Return to linear CVS log

Up to [local] / OpenXM_contrib / pari / src / test / in

Annotation of OpenXM_contrib/pari/src/test/in/linear, Revision 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