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
|
#############################################################################
##
#W fields.gi Alnuth - ALgebraic NUmber THeory Bjoern Assmann
##
#############################################################################
##
## ExampleMatField provides somes examples of fields which are generated
## by matrices in GL(d,Z) or GL(d,Q)
##
ExampleMatField := function(n)
if n = 1 then
return FieldByMatricesNC(ExamUnimod(1){[1..4]});
elif n = 2 then
return FieldByMatricesNC(ExamUnimod(2){[1..4]});
elif n = 3 then
return FieldByMatricesNC(ExamUnimod(3){[1..4]});
elif n = 4 then
return FieldByMatricesNC(ExamUnimod(1));
elif n = 5 then
return FieldByMatricesNC(ExamUnimod(2));
elif n = 6 then
return FieldByMatricesNC(ExamUnimod(3));
elif n = 7 then
return FieldByMatricesNC(ExamRationals(1));
elif n = 8 then
return FieldByMatricesNC(ExamRationals(2));
elif n = 9 then
return FieldByMatricesNC(ExamRationals(3));
else
return fail;
fi;
end;
|
