[BACK]Return to linear CVS log [TXT][DIR] Up to [local] / OpenXM_contrib / pari / src / test / in

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>