Annotation of OpenXM_contrib/pari/src/test/in/linear, Revision 1.1.1.1
1.1 maekawa 1: \p 38
2: \e
3: algdep(2*cos(2*Pi/13),6)
4: algdep(2*cos(2*Pi/13),6,15)
5: charpoly([1,2;3,4],z)
6: charpoly(Mod(x^2+x+1,x^3+5*x+1),z)
7: charpoly([1,2;3,4],z,1)
8: charpoly(Mod(1,8191)*[1,2;3,4],z,2)
9: lindep(Mod(1,7)*[2,-1;1,3],-1)
10: lindep([(1-3*sqrt(2))/(3-2*sqrt(3)),1,sqrt(2),sqrt(3),sqrt(6)])
11: lindep([(1-3*sqrt(2))/(3-2*sqrt(3)),1,sqrt(2),sqrt(3),sqrt(6)],14)
12: matadjoint([1,2;3,4])
13: matcompanion(x^5-12*x^3+0.0005)
14: matdet([1,2,3;1,5,6;9,8,7])
15: matdet([1,2,3;1,5,6;9,8,7],1)
16: matdetint([1,2,3;4,5,6])
17: matdiagonal([2,4,6])
18: mateigen([1,2,3;4,5,6;7,8,9])
19: mathess(mathilbert(7))
20: mathilbert(5)
21: amat=1/mathilbert(7)
22: mathnf(amat)
23: mathnf(amat,1)
24: mathnf(amat,2)
25: mathnf(amat,3)
26: mathnfmod(amat,matdetint(amat))
27: mathnfmodid(amat,123456789*10^100)
28: matid(5)
29: matimage([1,3,5;2,4,6;3,5,7])
30: matimage([1,3,5;2,4,6;3,5,7],1)
31: matimage(Pi*[1,3,5;2,4,6;3,5,7])
32: matimagecompl([1,3,5;2,4,6;3,5,7])
33: matimagecompl(Pi*[1,3,5;2,4,6;3,5,7])
34: matindexrank([1,1,1;1,1,1;1,1,2])
35: matintersect([1,2;3,4;5,6],[2,3;7,8;8,9])
36: matinverseimage([1,1;2,3;5,7],[2,2,6]~)
37: matisdiagonal([1,0,0;0,5,0;0,0,0])
38: matker(matrix(4,4,x,y,x/y))
39: matker(matrix(4,4,x,y,sin(x+y)))
40: matker(matrix(4,4,x,y,x+y),1)
41: matkerint(matrix(4,4,x,y,x*y))
42: matkerint(matrix(4,4,x,y,x*y),1)
43: matkerint(matrix(4,6,x,y,2520/(x+y)),2)
44: matmuldiagonal(amat,[1,2,3,4,5,6,7])
45: matmultodiagonal(amat^-1,%)
46: matpascal(8)
47: matrank(matrix(5,5,x,y,x+y))
48: matrix(5,5,x,y,gcd(x,y))
49: matrixqz([1,3;3,5;5,7],0)
50: matrixqz([1/3,1/4,1/6;1/2,1/4,-1/4;1/3,1,0],-1)
51: matrixqz([1,3;3,5;5,7],-2)
52: matsize([1,2;3,4;5,6])
53: matsnf(matrix(5,5,j,k,random))
54: matsnf(1/mathilbert(6))
55: matsnf(x*matid(5)-matrix(5,5,j,k,1),2)
56: matsolve(mathilbert(10),[1,2,3,4,5,6,7,8,9,0]~)
57: matsolvemod([2,3;5,4],[7,11],[1,4]~)
58: matsolvemod([2,3;5,4],[7,11],[1,4]~,1)
59: matsupplement([1,3;2,4;3,6])
60: mattranspose(vector(2,x,x))
61: %*%~
62: norml2(vector(10,x,x))
63: qfgaussred(mathilbert(5))
64: qfjacobi(mathilbert(6))
65: m=1/mathilbert(7)
66: mp=concat(m,matid(7))
67: qflll(m)
68: qflll(m,7)
69: qflllgram(m)
70: qflllgram(m,7)
71: qflllgram(m,1)
72: qflllgram(mp~*mp,4)
73: qflll(m,1)
74: qflll(m,2)
75: qflll(mp,4)
76: qflll(m,3)
77: qfminim([2,1;1,2],4,6)
78: qfperfection([2,0,1;0,2,1;1,1,2])
79: qfsign(mathilbert(5)-0.11*matid(5))
80: aset=Set([5,-2,7,3,5,1])
81: bset=Set([7,5,-5,7,2])
82: setintersect(aset,bset)
83: setisset([-3,5,7,7])
84: setminus(aset,bset)
85: setsearch(aset,3)
86: setsearch(bset,3)
87: setunion(aset,bset)
88: trace(1+I)
89: trace(Mod(x+5,x^3+x+1))
90: Vec(sin(x))
91: vecmax([-3,7,-2,11])
92: vecmin([-3,7,-2,11])
93: concat([1,2],[3,4])
94: concat(Mat(vector(4,x,x)~),vector(4,x,10+x)~)
95: vecextract([1,2,3,4,5,6,7,8,9,10],1000)
96: vecextract(matrix(15,15,x,y,x+y),vector(5,x,3*x),vector(3,y,3*y))
97: (1.*mathilbert(7))^(-1)
98: vecsort([8,7,6,5],,1)
99: vecsort([[1,5],[2,4],[1,5,1],[1,4,2]],,2)
100: vecsort(vector(17,x,5*x%17))
101: vecsort([[1,8,5],[2,5,8],[3,6,-6],[4,8,6]],2)
102: vecsort([[1,8,5],[2,5,8],[3,6,-6],[4,8,6]],[2,1])
103: vector(10,x,1/x)
104: setrand(1);a=matrix(3,5,j,k,vectorv(5,l,random\10^8))
105: setrand(1);as=matrix(3,3,j,k,vectorv(5,l,random\10^8))
106: getheap
107: print("Total time spent: ",gettime);
108: \q
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>