Annotation of OpenXM_contrib/pari/src/test/64/linear, Revision 1.1
1.1 ! maekawa 1: echo = 1 (on)
! 2: ? algdep(2*cos(2*Pi/13),6)
! 3: x^6 + x^5 - 5*x^4 - 4*x^3 + 6*x^2 + 3*x - 1
! 4: ? algdep(2*cos(2*Pi/13),6,15)
! 5: x^6 + x^5 - 5*x^4 - 4*x^3 + 6*x^2 + 3*x - 1
! 6: ? charpoly([1,2;3,4],z)
! 7: z^2 - 5*z - 2
! 8: ? charpoly(Mod(x^2+x+1,x^3+5*x+1),z)
! 9: z^3 + 7*z^2 + 16*z - 19
! 10: ? charpoly([1,2;3,4],z,1)
! 11: z^2 - 5*z - 2
! 12: ? charpoly(Mod(1,8191)*[1,2;3,4],z,2)
! 13: Mod(1, 8191)*z^2 + Mod(8186, 8191)*z + Mod(8189, 8191)
! 14: ? lindep(Mod(1,7)*[2,-1;1,3],-1)
! 15: [Mod(6, 7), Mod(5, 7)]~
! 16: ? lindep([(1-3*sqrt(2))/(3-2*sqrt(3)),1,sqrt(2),sqrt(3),sqrt(6)])
! 17: [-3, -3, 9, -2, 6]
! 18: ? lindep([(1-3*sqrt(2))/(3-2*sqrt(3)),1,sqrt(2),sqrt(3),sqrt(6)],14)
! 19: [-3, -3, 9, -2, 6]
! 20: ? matadjoint([1,2;3,4])
! 21:
! 22: [4 -2]
! 23:
! 24: [-3 1]
! 25:
! 26: ? matcompanion(x^5-12*x^3+0.0005)
! 27:
! 28: [0 0 0 0 -0.00049999999999999999999999999999999999999]
! 29:
! 30: [1 0 0 0 0]
! 31:
! 32: [0 1 0 0 0]
! 33:
! 34: [0 0 1 0 12]
! 35:
! 36: [0 0 0 1 0]
! 37:
! 38: ? matdet([1,2,3;1,5,6;9,8,7])
! 39: -30
! 40: ? matdet([1,2,3;1,5,6;9,8,7],1)
! 41: -30
! 42: ? matdetint([1,2,3;4,5,6])
! 43: 3
! 44: ? matdiagonal([2,4,6])
! 45:
! 46: [2 0 0]
! 47:
! 48: [0 4 0]
! 49:
! 50: [0 0 6]
! 51:
! 52: ? mateigen([1,2,3;4,5,6;7,8,9])
! 53:
! 54: [-1.2833494518006402717978106547571267252 1 0.283349451800640271797810654757
! 55: 12672521]
! 56:
! 57: [-0.14167472590032013589890532737856336261 -2 0.6416747259003201358989053273
! 58: 7856336260]
! 59:
! 60: [1 1 1]
! 61:
! 62: ? mathess(mathilbert(7))
! 63:
! 64: [1 90281/58800 -1919947/4344340 4858466341/1095033030 -77651417539/819678732
! 65: 6 3386888964/106615355 1/2]
! 66:
! 67: [1/3 43/48 38789/5585580 268214641/109503303 -581330123627/126464718744 4365
! 68: 450643/274153770 1/4]
! 69:
! 70: [0 217/2880 442223/7447440 53953931/292008808 -32242849453/168619624992 1475
! 71: 457901/1827691800 1/80]
! 72:
! 73: [0 0 1604444/264539275 24208141/149362505292 847880210129/47916076768560 -45
! 74: 44407141/103873817300 -29/40920]
! 75:
! 76: [0 0 0 9773092581/35395807550620 -24363634138919/107305824577186620 72118203
! 77: 606917/60481351061158500 55899/3088554700]
! 78:
! 79: [0 0 0 0 67201501179065/8543442888354179988 -9970556426629/74082861999267660
! 80: 0 -3229/13661312210]
! 81:
! 82: [0 0 0 0 0 -258198800769/9279048099409000 -13183/38381527800]
! 83:
! 84: ? mathilbert(5)
! 85:
! 86: [1 1/2 1/3 1/4 1/5]
! 87:
! 88: [1/2 1/3 1/4 1/5 1/6]
! 89:
! 90: [1/3 1/4 1/5 1/6 1/7]
! 91:
! 92: [1/4 1/5 1/6 1/7 1/8]
! 93:
! 94: [1/5 1/6 1/7 1/8 1/9]
! 95:
! 96: ? amat=1/mathilbert(7)
! 97:
! 98: [49 -1176 8820 -29400 48510 -38808 12012]
! 99:
! 100: [-1176 37632 -317520 1128960 -1940400 1596672 -504504]
! 101:
! 102: [8820 -317520 2857680 -10584000 18711000 -15717240 5045040]
! 103:
! 104: [-29400 1128960 -10584000 40320000 -72765000 62092800 -20180160]
! 105:
! 106: [48510 -1940400 18711000 -72765000 133402500 -115259760 37837800]
! 107:
! 108: [-38808 1596672 -15717240 62092800 -115259760 100590336 -33297264]
! 109:
! 110: [12012 -504504 5045040 -20180160 37837800 -33297264 11099088]
! 111:
! 112: ? mathnf(amat)
! 113:
! 114: [420 0 0 0 210 168 175]
! 115:
! 116: [0 840 0 0 0 0 504]
! 117:
! 118: [0 0 2520 0 0 0 1260]
! 119:
! 120: [0 0 0 2520 0 0 840]
! 121:
! 122: [0 0 0 0 13860 0 6930]
! 123:
! 124: [0 0 0 0 0 5544 0]
! 125:
! 126: [0 0 0 0 0 0 12012]
! 127:
! 128: ? mathnf(amat,1)
! 129: [[420, 0, 0, 0, 210, 168, 175; 0, 840, 0, 0, 0, 0, 504; 0, 0, 2520, 0, 0, 0,
! 130: 1260; 0, 0, 0, 2520, 0, 0, 840; 0, 0, 0, 0, 13860, 0, 6930; 0, 0, 0, 0, 0,
! 131: 5544, 0; 0, 0, 0, 0, 0, 0, 12012], [420, 420, 840, 630, 2982, 1092, 4159; 21
! 132: 0, 280, 630, 504, 2415, 876, 3395; 140, 210, 504, 420, 2050, 749, 2901; 105,
! 133: 168, 420, 360, 1785, 658, 2542; 84, 140, 360, 315, 1582, 588, 2266; 70, 120
! 134: , 315, 280, 1421, 532, 2046; 60, 105, 280, 252, 1290, 486, 1866]]
! 135: ? mathnf(amat,2)
! 136: [[360360, 0, 0, 0, 0, 144144, 300300; 0, 27720, 0, 0, 0, 0, 22176; 0, 0, 277
! 137: 20, 0, 0, 0, 6930; 0, 0, 0, 2520, 0, 0, 840; 0, 0, 0, 0, 2520, 0, 1260; 0, 0
! 138: , 0, 0, 0, 168, 0; 0, 0, 0, 0, 0, 0, 7], [51480, 4620, 5544, 630, 840, 20676
! 139: , 48619; 45045, 3960, 4620, 504, 630, 18074, 42347; 40040, 3465, 3960, 420,
! 140: 504, 16058, 37523; 36036, 3080, 3465, 360, 420, 14448, 33692; 32760, 2772, 3
! 141: 080, 315, 360, 13132, 30574; 30030, 2520, 2772, 280, 315, 12036, 27986; 2772
! 142: 0, 2310, 2520, 252, 280, 11109, 25803], [7, 6, 5, 4, 3, 2, 1]]
! 143: ? mathnf(amat,3)
! 144: [[360360, 0, 0, 0, 0, 144144, 300300; 0, 27720, 0, 0, 0, 0, 22176; 0, 0, 277
! 145: 20, 0, 0, 0, 6930; 0, 0, 0, 2520, 0, 0, 840; 0, 0, 0, 0, 2520, 0, 1260; 0, 0
! 146: , 0, 0, 0, 168, 0; 0, 0, 0, 0, 0, 0, 7], [51480, 4620, 5544, 630, 840, 20676
! 147: , 48619; 45045, 3960, 4620, 504, 630, 18074, 42347; 40040, 3465, 3960, 420,
! 148: 504, 16058, 37523; 36036, 3080, 3465, 360, 420, 14448, 33692; 32760, 2772, 3
! 149: 080, 315, 360, 13132, 30574; 30030, 2520, 2772, 280, 315, 12036, 27986; 2772
! 150: 0, 2310, 2520, 252, 280, 11109, 25803], [7, 6, 5, 4, 3, 2, 1]]
! 151: ? mathnfmod(amat,matdetint(amat))
! 152:
! 153: [420 0 0 0 210 168 175]
! 154:
! 155: [0 840 0 0 0 0 504]
! 156:
! 157: [0 0 2520 0 0 0 1260]
! 158:
! 159: [0 0 0 2520 0 0 840]
! 160:
! 161: [0 0 0 0 13860 0 6930]
! 162:
! 163: [0 0 0 0 0 5544 0]
! 164:
! 165: [0 0 0 0 0 0 12012]
! 166:
! 167: ? mathnfmodid(amat,123456789*10^100)
! 168:
! 169: [60 0 0 0 30 24 35]
! 170:
! 171: [0 120 0 0 0 0 24]
! 172:
! 173: [0 0 360 0 0 0 180]
! 174:
! 175: [0 0 0 360 0 0 240]
! 176:
! 177: [0 0 0 0 180 0 90]
! 178:
! 179: [0 0 0 0 0 72 0]
! 180:
! 181: [0 0 0 0 0 0 12]
! 182:
! 183: ? matid(5)
! 184:
! 185: [1 0 0 0 0]
! 186:
! 187: [0 1 0 0 0]
! 188:
! 189: [0 0 1 0 0]
! 190:
! 191: [0 0 0 1 0]
! 192:
! 193: [0 0 0 0 1]
! 194:
! 195: ? matimage([1,3,5;2,4,6;3,5,7])
! 196:
! 197: [1 3]
! 198:
! 199: [2 4]
! 200:
! 201: [3 5]
! 202:
! 203: ? matimage([1,3,5;2,4,6;3,5,7],1)
! 204:
! 205: [3 5]
! 206:
! 207: [4 6]
! 208:
! 209: [5 7]
! 210:
! 211: ? matimage(Pi*[1,3,5;2,4,6;3,5,7])
! 212:
! 213: [3.1415926535897932384626433832795028841 9.424777960769379715387930149838508
! 214: 6525]
! 215:
! 216: [6.2831853071795864769252867665590057683 12.56637061435917295385057353311801
! 217: 1536]
! 218:
! 219: [9.4247779607693797153879301498385086525 15.70796326794896619231321691639751
! 220: 4420]
! 221:
! 222: ? matimagecompl([1,3,5;2,4,6;3,5,7])
! 223: [3]
! 224: ? matimagecompl(Pi*[1,3,5;2,4,6;3,5,7])
! 225: [3]
! 226: ? matindexrank([1,1,1;1,1,1;1,1,2])
! 227: [[1, 3], [1, 3]]
! 228: ? matintersect([1,2;3,4;5,6],[2,3;7,8;8,9])
! 229:
! 230: [-1]
! 231:
! 232: [-1]
! 233:
! 234: [-1]
! 235:
! 236: ? matinverseimage([1,1;2,3;5,7],[2,2,6]~)
! 237: [4, -2]~
! 238: ? matisdiagonal([1,0,0;0,5,0;0,0,0])
! 239: 1
! 240: ? matker(matrix(4,4,x,y,x/y))
! 241:
! 242: [-1/2 -1/3 -1/4]
! 243:
! 244: [1 0 0]
! 245:
! 246: [0 1 0]
! 247:
! 248: [0 0 1]
! 249:
! 250: ? matker(matrix(4,4,x,y,sin(x+y)))
! 251:
! 252: [1.0000000000000000000000000000000000000 1.080604611736279434801873214885953
! 253: 2074]
! 254:
! 255: [-1.0806046117362794348018732148859532074 -0.1677063269057152260048635409984
! 256: 7562046]
! 257:
! 258: [1 0]
! 259:
! 260: [0 1]
! 261:
! 262: ? matker(matrix(4,4,x,y,x+y),1)
! 263:
! 264: [1 2]
! 265:
! 266: [-2 -3]
! 267:
! 268: [1 0]
! 269:
! 270: [0 1]
! 271:
! 272: ? matkerint(matrix(4,4,x,y,x*y))
! 273:
! 274: [-1 -1 -1]
! 275:
! 276: [-1 0 1]
! 277:
! 278: [1 -1 1]
! 279:
! 280: [0 1 -1]
! 281:
! 282: ? matkerint(matrix(4,4,x,y,x*y),1)
! 283:
! 284: [-1 -1 -1]
! 285:
! 286: [-1 0 1]
! 287:
! 288: [1 -1 1]
! 289:
! 290: [0 1 -1]
! 291:
! 292: ? matkerint(matrix(4,6,x,y,2520/(x+y)),2)
! 293:
! 294: [3 1]
! 295:
! 296: [-30 -15]
! 297:
! 298: [70 70]
! 299:
! 300: [0 -140]
! 301:
! 302: [-126 126]
! 303:
! 304: [84 -42]
! 305:
! 306: ? matmuldiagonal(amat,[1,2,3,4,5,6,7])
! 307:
! 308: [49 -2352 26460 -117600 242550 -232848 84084]
! 309:
! 310: [-1176 75264 -952560 4515840 -9702000 9580032 -3531528]
! 311:
! 312: [8820 -635040 8573040 -42336000 93555000 -94303440 35315280]
! 313:
! 314: [-29400 2257920 -31752000 161280000 -363825000 372556800 -141261120]
! 315:
! 316: [48510 -3880800 56133000 -291060000 667012500 -691558560 264864600]
! 317:
! 318: [-38808 3193344 -47151720 248371200 -576298800 603542016 -233080848]
! 319:
! 320: [12012 -1009008 15135120 -80720640 189189000 -199783584 77693616]
! 321:
! 322: ? matmultodiagonal(amat^-1,%)
! 323:
! 324: [1 0 0 0 0 0 0]
! 325:
! 326: [0 2 0 0 0 0 0]
! 327:
! 328: [0 0 3 0 0 0 0]
! 329:
! 330: [0 0 0 4 0 0 0]
! 331:
! 332: [0 0 0 0 5 0 0]
! 333:
! 334: [0 0 0 0 0 6 0]
! 335:
! 336: [0 0 0 0 0 0 7]
! 337:
! 338: ? matpascal(8)
! 339:
! 340: [1 0 0 0 0 0 0 0 0]
! 341:
! 342: [1 1 0 0 0 0 0 0 0]
! 343:
! 344: [1 2 1 0 0 0 0 0 0]
! 345:
! 346: [1 3 3 1 0 0 0 0 0]
! 347:
! 348: [1 4 6 4 1 0 0 0 0]
! 349:
! 350: [1 5 10 10 5 1 0 0 0]
! 351:
! 352: [1 6 15 20 15 6 1 0 0]
! 353:
! 354: [1 7 21 35 35 21 7 1 0]
! 355:
! 356: [1 8 28 56 70 56 28 8 1]
! 357:
! 358: ? matrank(matrix(5,5,x,y,x+y))
! 359: 2
! 360: ? matrix(5,5,x,y,gcd(x,y))
! 361:
! 362: [1 1 1 1 1]
! 363:
! 364: [1 2 1 2 1]
! 365:
! 366: [1 1 3 1 1]
! 367:
! 368: [1 2 1 4 1]
! 369:
! 370: [1 1 1 1 5]
! 371:
! 372: ? matrixqz([1,3;3,5;5,7],0)
! 373:
! 374: [1 1]
! 375:
! 376: [3 2]
! 377:
! 378: [5 3]
! 379:
! 380: ? matrixqz([1/3,1/4,1/6;1/2,1/4,-1/4;1/3,1,0],-1)
! 381:
! 382: [19 12 2]
! 383:
! 384: [0 1 0]
! 385:
! 386: [0 0 1]
! 387:
! 388: ? matrixqz([1,3;3,5;5,7],-2)
! 389:
! 390: [2 -1]
! 391:
! 392: [1 0]
! 393:
! 394: [0 1]
! 395:
! 396: ? matsize([1,2;3,4;5,6])
! 397: [3, 2]
! 398: ? matsnf(matrix(5,5,j,k,random))
! 399: [741799239614624774584532992, 2147483648, 2147483648, 1, 1]
! 400: ? matsnf(1/mathilbert(6))
! 401: [27720, 2520, 2520, 840, 210, 6]
! 402: ? matsnf(x*matid(5)-matrix(5,5,j,k,1),2)
! 403: [x^2 - 5*x, x, x, x, 1]
! 404: ? matsolve(mathilbert(10),[1,2,3,4,5,6,7,8,9,0]~)
! 405: [9236800, -831303990, 18288515520, -170691240720, 832112321040, -23298940665
! 406: 00, 3883123564320, -3803844432960, 2020775945760, -449057772020]~
! 407: ? matsolvemod([2,3;5,4],[7,11],[1,4]~)
! 408: [-5, -1]~
! 409: ? matsolvemod([2,3;5,4],[7,11],[1,4]~,1)
! 410: [[-5, -1]~, [-77, 723; 0, 1]]
! 411: ? matsupplement([1,3;2,4;3,6])
! 412:
! 413: [1 3 0]
! 414:
! 415: [2 4 0]
! 416:
! 417: [3 6 1]
! 418:
! 419: ? mattranspose(vector(2,x,x))
! 420: [1, 2]~
! 421: ? %*%~
! 422:
! 423: [1 2]
! 424:
! 425: [2 4]
! 426:
! 427: ? norml2(vector(10,x,x))
! 428: 385
! 429: ? qfgaussred(mathilbert(5))
! 430:
! 431: [1 1/2 1/3 1/4 1/5]
! 432:
! 433: [0 1/12 1 9/10 4/5]
! 434:
! 435: [0 0 1/180 3/2 12/7]
! 436:
! 437: [0 0 0 1/2800 2]
! 438:
! 439: [0 0 0 0 1/44100]
! 440:
! 441: ? qfjacobi(mathilbert(6))
! 442: [[1.6188998589243390969705881471257800712, 0.2423608705752095521357284158507
! 443: 0114077, 0.000012570757122625194922982397996498755027, 0.0000001082799484565
! 444: 5497685388772372251711485, 0.016321521319875822124345079564191505890, 0.0006
! 445: 1574835418265769764919938428527140264]~, [0.74871921887909485900280109200517
! 446: 845109, -0.61454482829258676899320019644273870645, 0.01114432093072471053067
! 447: 8340374220998541, -0.0012481940840821751169398163046387834473, 0.24032536934
! 448: 252330399154228873240534568, -0.062226588150197681775152126611810492910; 0.4
! 449: 4071750324351206127160083580231701801, 0.21108248167867048675227675845247769
! 450: 095, -0.17973275724076003758776897803740640964, 0.03560664294428763526612284
! 451: 8131812048466, -0.69765137527737012296208335046678265583, 0.4908392097109243
! 452: 6297498316169060044997; 0.32069686982225190106359024326699463106, 0.36589360
! 453: 730302614149086554211117169622, 0.60421220675295973004426567844103062241, -0
! 454: .24067907958842295837736719558855679285, -0.23138937333290388042251363554209
! 455: 048309, -0.53547692162107486593474491750949545456; 0.25431138634047419251788
! 456: 312792590944672, 0.39470677609501756783094636145991581708, -0.44357471627623
! 457: 954554460416705180105301, 0.62546038654922724457753441039459331059, 0.132863
! 458: 15850933553530333839628101576050, -0.41703769221897886840494514780771076439;
! 459: 0.21153084007896524664213667673977991959, 0.3881904338738864286311144882599
! 460: 2418973, -0.44153664101228966222143649752977203423, -0.689807199293836684198
! 461: 01738006926829419, 0.36271492146487147525299457604461742111, 0.0470340189331
! 462: 15649705614518466541243873; 0.18144297664876947372217005457727093715, 0.3706
! 463: 9590776736280861775501084807394603, 0.45911481681642960284551392793050866602
! 464: , 0.27160545336631286930015536176213647001, 0.502762866757515384892605663686
! 465: 47786272, 0.54068156310385293880022293448123782121]]
! 466: ? m=1/mathilbert(7)
! 467:
! 468: [49 -1176 8820 -29400 48510 -38808 12012]
! 469:
! 470: [-1176 37632 -317520 1128960 -1940400 1596672 -504504]
! 471:
! 472: [8820 -317520 2857680 -10584000 18711000 -15717240 5045040]
! 473:
! 474: [-29400 1128960 -10584000 40320000 -72765000 62092800 -20180160]
! 475:
! 476: [48510 -1940400 18711000 -72765000 133402500 -115259760 37837800]
! 477:
! 478: [-38808 1596672 -15717240 62092800 -115259760 100590336 -33297264]
! 479:
! 480: [12012 -504504 5045040 -20180160 37837800 -33297264 11099088]
! 481:
! 482: ? mp=concat(m,matid(7))
! 483:
! 484: [49 -1176 8820 -29400 48510 -38808 12012 1 0 0 0 0 0 0]
! 485:
! 486: [-1176 37632 -317520 1128960 -1940400 1596672 -504504 0 1 0 0 0 0 0]
! 487:
! 488: [8820 -317520 2857680 -10584000 18711000 -15717240 5045040 0 0 1 0 0 0 0]
! 489:
! 490: [-29400 1128960 -10584000 40320000 -72765000 62092800 -20180160 0 0 0 1 0 0
! 491: 0]
! 492:
! 493: [48510 -1940400 18711000 -72765000 133402500 -115259760 37837800 0 0 0 0 1 0
! 494: 0]
! 495:
! 496: [-38808 1596672 -15717240 62092800 -115259760 100590336 -33297264 0 0 0 0 0
! 497: 1 0]
! 498:
! 499: [12012 -504504 5045040 -20180160 37837800 -33297264 11099088 0 0 0 0 0 0 1]
! 500:
! 501: ? qflll(m)
! 502:
! 503: [-420 -420 840 630 -1092 -83 2562]
! 504:
! 505: [-210 -280 630 504 -876 70 2205]
! 506:
! 507: [-140 -210 504 420 -749 137 1910]
! 508:
! 509: [-105 -168 420 360 -658 169 1680]
! 510:
! 511: [-84 -140 360 315 -588 184 1498]
! 512:
! 513: [-70 -120 315 280 -532 190 1351]
! 514:
! 515: [-60 -105 280 252 -486 191 1230]
! 516:
! 517: ? qflll(m,7)
! 518:
! 519: [-420 -420 840 630 -1092 -83 2562]
! 520:
! 521: [-210 -280 630 504 -876 70 2205]
! 522:
! 523: [-140 -210 504 420 -749 137 1910]
! 524:
! 525: [-105 -168 420 360 -658 169 1680]
! 526:
! 527: [-84 -140 360 315 -588 184 1498]
! 528:
! 529: [-70 -120 315 280 -532 190 1351]
! 530:
! 531: [-60 -105 280 252 -486 191 1230]
! 532:
! 533: ? qflllgram(m)
! 534:
! 535: [1 1 27 -27 69 0 141]
! 536:
! 537: [0 1 4 -22 34 -24 49]
! 538:
! 539: [0 1 3 -21 18 -24 23]
! 540:
! 541: [0 1 3 -20 10 -19 13]
! 542:
! 543: [0 1 3 -19 6 -14 8]
! 544:
! 545: [0 1 3 -18 4 -10 5]
! 546:
! 547: [0 1 3 -17 3 -7 3]
! 548:
! 549: ? qflllgram(m,7)
! 550:
! 551: [1 1 27 -27 69 0 141]
! 552:
! 553: [0 1 4 -22 34 -24 49]
! 554:
! 555: [0 1 3 -21 18 -24 23]
! 556:
! 557: [0 1 3 -20 10 -19 13]
! 558:
! 559: [0 1 3 -19 6 -14 8]
! 560:
! 561: [0 1 3 -18 4 -10 5]
! 562:
! 563: [0 1 3 -17 3 -7 3]
! 564:
! 565: ? qflllgram(m,1)
! 566:
! 567: [1 1 27 -27 69 0 141]
! 568:
! 569: [0 1 4 -23 34 -24 91]
! 570:
! 571: [0 1 3 -22 18 -24 65]
! 572:
! 573: [0 1 3 -21 10 -19 49]
! 574:
! 575: [0 1 3 -20 6 -14 38]
! 576:
! 577: [0 1 3 -19 4 -10 30]
! 578:
! 579: [0 1 3 -18 3 -7 24]
! 580:
! 581: ? qflllgram(mp~*mp,4)
! 582: [[-420, -420, 840, 630, 2982, -1092, -83; -210, -280, 630, 504, 2415, -876,
! 583: 70; -140, -210, 504, 420, 2050, -749, 137; -105, -168, 420, 360, 1785, -658,
! 584: 169; -84, -140, 360, 315, 1582, -588, 184; -70, -120, 315, 280, 1421, -532,
! 585: 190; -60, -105, 280, 252, 1290, -486, 191; 420, 0, 0, 0, -210, 168, 35; 0,
! 586: 840, 0, 0, 0, 0, 336; 0, 0, -2520, 0, 0, 0, 1260; 0, 0, 0, -2520, 0, 0, -840
! 587: ; 0, 0, 0, 0, -13860, 0, 6930; 0, 0, 0, 0, 0, 5544, 0; 0, 0, 0, 0, 0, 0, -12
! 588: 012], [0, 0, 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0; 0, 0,
! 589: 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0
! 590: ; 1, 0, 0, 0, 0, 0, 0; 0, 1, 0, 0, 0, 0, 0; 0, 0, 1, 0, 0, 0, 0; 0, 0, 0, 1,
! 591: 0, 0, 0; 0, 0, 0, 0, 1, 0, 0; 0, 0, 0, 0, 0, 1, 0; 0, 0, 0, 0, 0, 0, 1]]
! 592: ? qflll(m,1)
! 593:
! 594: [-420 -420 840 630 -1092 -83 2982]
! 595:
! 596: [-210 -280 630 504 -876 70 2415]
! 597:
! 598: [-140 -210 504 420 -749 137 2050]
! 599:
! 600: [-105 -168 420 360 -658 169 1785]
! 601:
! 602: [-84 -140 360 315 -588 184 1582]
! 603:
! 604: [-70 -120 315 280 -532 190 1421]
! 605:
! 606: [-60 -105 280 252 -486 191 1290]
! 607:
! 608: ? qflll(m,2)
! 609:
! 610: [-420 -420 -630 840 1092 2982 -83]
! 611:
! 612: [-210 -280 -504 630 876 2415 70]
! 613:
! 614: [-140 -210 -420 504 749 2050 137]
! 615:
! 616: [-105 -168 -360 420 658 1785 169]
! 617:
! 618: [-84 -140 -315 360 588 1582 184]
! 619:
! 620: [-70 -120 -280 315 532 1421 190]
! 621:
! 622: [-60 -105 -252 280 486 1290 191]
! 623:
! 624: ? qflll(mp,4)
! 625: [[-420, -420, 840, 630, 2982, -1092, -83; -210, -280, 630, 504, 2415, -876,
! 626: 70; -140, -210, 504, 420, 2050, -749, 137; -105, -168, 420, 360, 1785, -658,
! 627: 169; -84, -140, 360, 315, 1582, -588, 184; -70, -120, 315, 280, 1421, -532,
! 628: 190; -60, -105, 280, 252, 1290, -486, 191; 420, 0, 0, 0, -210, 168, 35; 0,
! 629: 840, 0, 0, 0, 0, 336; 0, 0, -2520, 0, 0, 0, 1260; 0, 0, 0, -2520, 0, 0, -840
! 630: ; 0, 0, 0, 0, -13860, 0, 6930; 0, 0, 0, 0, 0, 5544, 0; 0, 0, 0, 0, 0, 0, -12
! 631: 012], [0, 0, 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0; 0, 0,
! 632: 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0; 0, 0, 0, 0, 0, 0, 0
! 633: ; 1, 0, 0, 0, 0, 0, 0; 0, 1, 0, 0, 0, 0, 0; 0, 0, 1, 0, 0, 0, 0; 0, 0, 0, 1,
! 634: 0, 0, 0; 0, 0, 0, 0, 1, 0, 0; 0, 0, 0, 0, 0, 1, 0; 0, 0, 0, 0, 0, 0, 1]]
! 635: ? qflll(m,3)
! 636:
! 637: [-420 -420 840 630 -1092 -83 2982]
! 638:
! 639: [-210 -280 630 504 -876 70 2415]
! 640:
! 641: [-140 -210 504 420 -749 137 2050]
! 642:
! 643: [-105 -168 420 360 -658 169 1785]
! 644:
! 645: [-84 -140 360 315 -588 184 1582]
! 646:
! 647: [-70 -120 315 280 -532 190 1421]
! 648:
! 649: [-60 -105 280 252 -486 191 1290]
! 650:
! 651: ? qfminim([2,1;1,2],4,6)
! 652: [6, 2, [0, -1, 1; 1, 1, 0]]
! 653: ? qfperfection([2,0,1;0,2,1;1,1,2])
! 654: 6
! 655: ? qfsign(mathilbert(5)-0.11*matid(5))
! 656: [2, 3]
! 657: ? aset=Set([5,-2,7,3,5,1])
! 658: ["-2", "1", "3", "5", "7"]
! 659: ? bset=Set([7,5,-5,7,2])
! 660: ["-5", "2", "5", "7"]
! 661: ? setintersect(aset,bset)
! 662: ["5", "7"]
! 663: ? setisset([-3,5,7,7])
! 664: 0
! 665: ? setminus(aset,bset)
! 666: ["-2", "1", "3"]
! 667: ? setsearch(aset,3)
! 668: 3
! 669: ? setsearch(bset,3)
! 670: 0
! 671: ? setunion(aset,bset)
! 672: ["-2", "-5", "1", "2", "3", "5", "7"]
! 673: ? trace(1+I)
! 674: 2
! 675: ? trace(Mod(x+5,x^3+x+1))
! 676: 15
! 677: ? Vec(sin(x))
! 678: [1, 0, -1/6, 0, 1/120, 0, -1/5040, 0, 1/362880, 0, -1/39916800, 0, 1/6227020
! 679: 800, 0, -1/1307674368000]
! 680: ? vecmax([-3,7,-2,11])
! 681: 11
! 682: ? vecmin([-3,7,-2,11])
! 683: -3
! 684: ? concat([1,2],[3,4])
! 685: [1, 2, 3, 4]
! 686: ? concat(Mat(vector(4,x,x)~),vector(4,x,10+x)~)
! 687:
! 688: [1 11]
! 689:
! 690: [2 12]
! 691:
! 692: [3 13]
! 693:
! 694: [4 14]
! 695:
! 696: ? vecextract([1,2,3,4,5,6,7,8,9,10],1000)
! 697: [4, 6, 7, 8, 9, 10]
! 698: ? vecextract(matrix(15,15,x,y,x+y),vector(5,x,3*x),vector(3,y,3*y))
! 699:
! 700: [6 9 12]
! 701:
! 702: [9 12 15]
! 703:
! 704: [12 15 18]
! 705:
! 706: [15 18 21]
! 707:
! 708: [18 21 24]
! 709:
! 710: ? (1.*mathilbert(7))^(-1)
! 711:
! 712: [49.000000000000000000000000000000103566 -1176.00000000000000000000000000000
! 713: 42824 8820.0000000000000000000000000000421424 -29400.00000000000000000000000
! 714: 0000165821 48510.000000000000000000000000000306324 -38808.000000000000000000
! 715: 000000000266339 12012.000000000000000000000000000087656]
! 716:
! 717: [-1176.0000000000000000000000000000027736 37632.0000000000000000000000000001
! 718: 15103 -317520.00000000000000000000000000113213 1128960.000000000000000000000
! 719: 0000044496 -1940400.0000000000000000000000000082054 1596672.0000000000000000
! 720: 000000000071127 -504504.00000000000000000000000000233826]
! 721:
! 722: [8820.0000000000000000000000000000173507 -317520.000000000000000000000000000
! 723: 72412 2857680.0000000000000000000000000071262 -10584000.00000000000000000000
! 724: 0000027962 18711000.000000000000000000000000051435 -15717240.000000000000000
! 725: 000000000044456 5045040.0000000000000000000000000145745]
! 726:
! 727: [-29400.000000000000000000000000000039976 1128960.00000000000000000000000000
! 728: 16881 -10584000.000000000000000000000000016643 40320000.00000000000000000000
! 729: 0000065137 -72765000.000000000000000000000000119284 62092800.000000000000000
! 730: 000000000102568 -20180160.000000000000000000000000033446]
! 731:
! 732: [48510.000000000000000000000000000033880 -1940400.00000000000000000000000000
! 733: 14801 18711000.000000000000000000000000014677 -72765000.00000000000000000000
! 734: 0000057076 133402500.00000000000000000000000010330 -115259760.00000000000000
! 735: 000000000008758 37837800.000000000000000000000000028140]
! 736:
! 737: [-38808.000000000000000000000000000001890 1596672.00000000000000000000000000
! 738: 01577 -15717240.000000000000000000000000001694 62092800.00000000000000000000
! 739: 0000006074 -115259760.00000000000000000000000000925 100590336.00000000000000
! 740: 000000000000604 -33297264.000000000000000000000000001319]
! 741:
! 742: [12011.999999999999999999999999999993228 -504503.999999999999999999999999999
! 743: 74929 5045039.9999999999999999999999999975933 -20180159.99999999999999999999
! 744: 9999990337 37837799.999999999999999999999999981476 -33297263.999999999999999
! 745: 999999999983224 11099087.999999999999999999999999994238]
! 746:
! 747: ? vecsort([8,7,6,5],,1)
! 748: [4, 3, 2, 1]
! 749: ? vecsort([[1,5],[2,4],[1,5,1],[1,4,2]],,2)
! 750: [[1, 4, 2], [1, 5], [1, 5, 1], [2, 4]]
! 751: ? vecsort(vector(17,x,5*x%17))
! 752: [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16]
! 753: ? vecsort([[1,8,5],[2,5,8],[3,6,-6],[4,8,6]],2)
! 754: [[2, 5, 8], [3, 6, -6], [4, 8, 6], [1, 8, 5]]
! 755: ? vecsort([[1,8,5],[2,5,8],[3,6,-6],[4,8,6]],[2,1])
! 756: [[2, 5, 8], [3, 6, -6], [1, 8, 5], [4, 8, 6]]
! 757: ? vector(10,x,1/x)
! 758: [1, 1/2, 1/3, 1/4, 1/5, 1/6, 1/7, 1/8, 1/9, 1/10]
! 759: ? setrand(1);a=matrix(3,5,j,k,vectorv(5,l,random\10^8))
! 760:
! 761: [[10, 7, 8, 7, 18]~ [17, 0, 9, 20, 10]~ [5, 4, 7, 18, 20]~ [0, 16, 4, 2, 0]~
! 762: [17, 19, 17, 1, 14]~]
! 763:
! 764: [[17, 16, 6, 3, 6]~ [17, 13, 9, 19, 6]~ [1, 14, 12, 20, 8]~ [6, 1, 8, 17, 21
! 765: ]~ [18, 17, 9, 10, 13]~]
! 766:
! 767: [[4, 13, 3, 17, 14]~ [14, 16, 11, 5, 4]~ [9, 11, 13, 7, 15]~ [19, 21, 2, 4,
! 768: 5]~ [14, 16, 6, 20, 14]~]
! 769:
! 770: ? setrand(1);as=matrix(3,3,j,k,vectorv(5,l,random\10^8))
! 771:
! 772: [[10, 7, 8, 7, 18]~ [17, 0, 9, 20, 10]~ [5, 4, 7, 18, 20]~]
! 773:
! 774: [[17, 16, 6, 3, 6]~ [17, 13, 9, 19, 6]~ [1, 14, 12, 20, 8]~]
! 775:
! 776: [[4, 13, 3, 17, 14]~ [14, 16, 11, 5, 4]~ [9, 11, 13, 7, 15]~]
! 777:
! 778: ? getheap
! 779: [111, 12130]
! 780: ? print("Total time spent: ",gettime);
! 781: Total time spent: 154
! 782: ? \q
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to linear CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / pari / src / test / 64