/
automated_examples.m
61 lines (42 loc) · 1.58 KB
/
automated_examples.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
// ================================================================
// Some Automated Examples for theta-eigenform-decomposition--magma
// (c) 2011 Jonathan Hanke
// Released under GNU Public License (GPL) version 2.0
// ================================================================
//========================================================================================================
//======================================= Automated Examples ===========================================
//========================================================================================================
//time compute_cusp_constant(KneserForm);
//time compute_cusp_constant(Form6414);
/*
// Compute some Auxiliary cuspidal constants
time make_cusp_bounds_for_auxiliary_forms([27..40]);
quit;
*/
/*
// Compute some Basic cuspidal constants
time make_cusp_bounds_for_basic_forms([2786..2900]);
quit;
*/
/*
// Automated computation for the big form! =)
SetLogFile("10-27-2005____Magma__jon_cusp7.m____Form6414_cusp_constant_computation__take3.txt");
time compute_cusp_constant(Form6414);
UnsetLogFile();
quit;
*/
/*
// Automated computation for the Kneser form! =)
SetLogFile("9-4-2005____Magma__jon_cusp4.m____KneserForm_cusp_constant_computation.txt");
time compute_cusp_constant(KneserForm);
UnsetLogFile();
quit;
*/
/*
// Automated computation for all Auxiliaries
Auxiliary_cusp_bounds := make_cusp_bounds_for_list_of_forms(Auxiliary_Quaternaries, [1..#Auxiliary_Quaternaries]);
SetLogFile("Auxiliary_Logs/ALL_AUXILIARIES.txt");
print Auxiliary_cusp_bounds;
UnsetLogFile();
quit;
*/