Annotation of OpenXM_contrib/pari/src/test/in/compat, Revision 1.1.1.1
1.1 maekawa 1: \e
2: default(compatible,3)
3: +3
4: -5
5: 5+3
6: 5-3
7: 5/3
8: 5\3
9: 5\/3
10: 5%3
11: 5^3
12: \precision=57
13: pi
14: \precision=38
15: o(x^12)
16: padicno=(5/3)*127+O(127^5)
17: initrect(0,500,500)
18: \\ A
19: abs(-0.01)
20: acos(0.5)
21: acosh(3)
22: acurve=initell([0,0,1,-1,0])
23: apoint=[2,2]
24: isoncurve(acurve,apoint)
25: addell(acurve,apoint,apoint)
26: addprimes([nextprime(10^9),nextprime(10^10)])
27: adj([1,2;3,4])
28: agm(1,2)
29: agm(1+o(7^5),8+o(7^5))
30: algdep(2*cos(2*pi/13),6)
31: algdep2(2*cos(2*pi/13),6,15)
32: \\allocatemem(3000000)
33: akell(acurve,1000000007)
34: nfpol=x^5-5*x^3+5*x+25
35: nf=initalg(nfpol)
36: ba=algtobasis(nf,mod(x^3+5,nfpol))
37: anell(acurve,100)
38: apell(acurve,10007)
39: apell2(acurve,10007)
40: apol=x^3+5*x+1
41: apprpadic(apol,1+O(7^8))
42: apprpadic(x^3+5*x+1,mod(x*(1+O(7^8)),x^2+x-1))
43: 4*arg(3+3*i)
44: 3*asin(sqrt(3)/2)
45: asinh(0.5)
46: assmat(x^5-12*x^3+0.0005)
47: 3*atan(sqrt(3))
48: atanh(0.5)
49: \\ B
50: basis(x^3+4*x+5)
51: basis2(x^3+4*x+5)
52: basistoalg(nf,ba)
53: bernreal(12)
54: bernvec(6)
55: bestappr(pi,10000)
56: bezout(123456789,987654321)
57: bigomega(12345678987654321)
58: mcurve=initell([0,0,0,-17,0])
59: mpoints=[[-1,4],[-4,2]]~
60: mhbi=bilhell(mcurve,mpoints,[9,24])
61: bin(1.1,5)
62: binary(65537)
63: bittest(10^100,100)
64: boundcf(pi,5)
65: boundfact(40!+1,100000)
66: move(0,0,0);box(0,500,500)
67: setrand(1);buchimag(1-10^7,1,1)
68: setrand(1);bnf=buchinitfu(x^2-x-57,0.2,0.2)
69: buchcertify(bnf)
70: buchfu(bnf)
71: setrand(1);buchinitforcefu(x^2-x-100000)
72: setrand(1);bnf=buchinitfu(x^2-x-57,0.2,0.2)
73: setrand(1);buchreal(10^9-3,0,0.5,0.5)
74: setrand(1);buchgen(x^4-7,0.2,0.2)
75: setrand(1);buchgenfu(x^2-x-100000)
76: setrand(1);buchgenforcefu(x^2-x-100000)
77: setrand(1);buchgenfu(x^4+24*x^2+585*x+1791,0.1,0.1)
78: buchnarrow(bnf)
79: buchray(bnf,[[5,3;0,1],[1,0]])
80: bnr=buchrayinitgen(bnf,[[5,3;0,1],[1,0]])
81: bnr2=buchrayinitgen(bnf,[[25,13;0,1],[1,1]])
82: bytesize(%)
83: \\ C
84: ceil(-2.5)
85: centerlift(mod(456,555))
86: cf(pi)
87: cf2([1,3,5,7,9],(exp(1)-1)/(exp(1)+1))
88: changevar(x+y,[z,t])
89: char([1,2;3,4],z)
90: char(mod(x^2+x+1,x^3+5*x+1),z)
91: char1([1,2;3,4],z)
92: char2(mod(1,8191)*[1,2;3,4],z)
93: acurve=chell(acurve,[-1,1,2,3])
94: chinese(mod(7,15),mod(13,21))
95: apoint=chptell(apoint,[-1,1,2,3])
96: isoncurve(acurve,apoint)
97: classno(-12391)
98: classno(1345)
99: classno2(-12391)
100: classno2(1345)
101: coeff(sin(x),7)
102: compimag(qfi(2,1,3),qfi(2,1,3))
103: compo(1+o(7^4),3)
104: compositum(x^4-4*x+2,x^3-x-1)
105: compositum2(x^4-4*x+2,x^3-x-1)
106: comprealraw(qfr(5,3,-1,0.),qfr(7,1,-1,0.))
107: concat([1,2],[3,4])
108: conductor(bnf,[[25,13;0,1],[1,1]])
109: conductorofchar(bnr,[2])
110: conj(1+i)
111: conjvec(mod(x^2+x+1,x^3-x-1))
112: content([123,456,789,234])
113: convol(sin(x),x*cos(x))
114: core(54713282649239)
115: core2(54713282649239)
116: coredisc(54713282649239)
117: coredisc2(54713282649239)
118: cos(1)
119: cosh(1)
120: move(0,200,150)
121: cursor(0)
122: cvtoi(1.7)
123: cyclo(105)
124: \\ D
125: degree(x^3/(x-1))
126: denom(12345/54321)
127: deplin(mod(1,7)*[2,-1;1,3])
128: deriv((x+y)^5,y)
129: ((x+y)^5)'
130: det([1,2,3;1,5,6;9,8,7])
131: det2([1,2,3;1,5,6;9,8,7])
132: detint([1,2,3;4,5,6])
133: diagonal([2,4,6])
134: dilog(0.5)
135: dz=vector(30,k,1);dd=vector(30,k,k==1);dm=dirdiv(dd,dz)
136: deu=direuler(p=2,100,1/(1-apell(acurve,p)*x+if(acurve[12]%p,p,0)*x^2))
137: anell(acurve,100)==deu
138: dirmul(abs(dm),dz)
139: dirzetak(initalg(x^3-10*x+8),30)
140: disc(x^3+4*x+12)
141: discf(x^3+4*x+12)
142: discrayabs(bnr,mat(6))
143: discrayabs(bnr)
144: discrayabscond(bnr2)
145: lu=ideallistunitgen(bnf,55);discrayabslist(bnf,lu)
146: discrayabslistlong(bnf,20)
147: discrayrel(bnr,mat(6))
148: discrayrel(bnr)
149: discrayrelcond(bnr2)
150: divisors(8!)
151: divres(345,123)
152: divres(x^7-1,x^5+1)
153: divsum(8!,x,x)
154: \\draw([0,0,0])
155: postdraw([0,0,0])
156: \\ E
157: eigen([1,2,3;4,5,6;7,8,9])
158: eint1(2)
159: erfc(2)
160: eta(q)
161: euler
162: z=y;y=x;eval(z)
163: exp(1)
164: extract([1,2,3,4,5,6,7,8,9,10],1000)
165: \\ F
166: 10!
167: fact(10)
168: factcantor(x^11+1,7)
169: centerlift(lift(factfq(x^3+x^2+x-1,3,t^3+t^2+t-1)))
170: factmod(x^11+1,7)
171: factor(17!+1)
172: p=x^5+3021*x^4-786303*x^3-6826636057*x^2-546603588746*x+3853890514072057
173: fa=[11699,6;2392997,2;4987333019653,2]
174: factoredbasis(p,fa)
175: factoreddiscf(p,fa)
176: factoredpolred(p,fa)
177: factoredpolred2(p,fa)
178: factornf(x^3+x^2-2*x-1,t^3+t^2-2*t-1)
179: factorpadic(apol,7,8)
180: factorpadic2(apol,7,8)
181: factpol(x^15-1,3,1)
182: factpol(x^15-1,0,1)
183: factpol2(x^15-1,0)
184: fibo(100)
185: floor(-1/2)
186: floor(-2.5)
187: for(x=1,5,print(x!))
188: fordiv(10,x,print(x))
189: forprime(p=1,30,print(p))
190: forstep(x=0,pi,pi/12,print(sin(x)))
191: forvec(x=[[1,3],[-2,2]],print1([x[1],x[2]]," "));print(" ");
192: frac(-2.7)
193: \\ G
194: galois(x^6-3*x^2-1)
195: nf3=initalg(x^6+108);galoisconj(nf3)
196: galoisconjforce(nf3)
197: aut=%[2];galoisapply(nf3,aut,mod(x^5,x^6+108))
198: gamh(10)
199: gamma(10.5)
200: gauss(hilbert(10),[1,2,3,4,5,6,7,8,9,0]~)
201: gaussmodulo([2,3;5,4],[7,11],[1,4]~)
202: gaussmodulo2([2,3;5,4],[7,11],[1,4]~)
203: gcd(12345678,87654321)
204: getheap()
205: getrand()
206: getstack()
207: \\gettime()isattheend
208: globalred(acurve)
209: getstack()
210: \\ H
211: hclassno(2000003)
212: hell(acurve,apoint)
213: hell2(acurve,apoint)
214: hermite(amat=1/hilbert(7))
215: hermite2(amat)
216: hermitehavas(amat)
217: hermitemod(amat,detint(amat))
218: hermiteperm(amat)
219: hess(hilbert(7))
220: hilb(2/3,3/4,5)
221: hilbert(5)
222: hilbp(mod(5,7),mod(6,7))
223: hvector(10,x,1/x)
224: hyperu(1,1,1)
225: \\ I
226: i^2
227: nf1=initalgred(nfpol)
228: initalgred2(nfpol)
229: vp=primedec(nf,3)[1]
230: idx=idealmul(nf,idmat(5),vp)
231: idealinv(nf,idx)
232: idy=ideallllred(nf,idx,[1,5,6])
233: idealadd(nf,idx,idy)
234: idealaddone(nf,idx,idy)
235: idealaddmultone(nf,[idy,idx])
236: idealappr(nf,idy)
237: idealapprfact(nf,idealfactor(nf,idy))
238: idealcoprime(nf,idx,idx)
239: idz=idealintersect(nf,idx,idy)
240: idealfactor(nf,idz)
241: ideallist(bnf,20)
242: idx2=idealmul(nf,idx,idx)
243: idt=idealmulred(nf,idx,idx)
244: idealdiv(nf,idy,idt)
245: idealdivexact(nf,idx2,idx)
246: idealhermite(nf,vp)
247: idealhermite2(nf,vp[2],3)
248: idealnorm(nf,idt)
249: idp=idealpow(nf,idx,7)
250: idealpowred(nf,idx,7)
251: idealtwoelt(nf,idy)
252: idealtwoelt2(nf,idy,10)
253: idealval(nf,idp,vp)
254: idmat(5)
255: if(3<2,print("bof"),print("ok"));
256: imag(2+3*i)
257: image([1,3,5;2,4,6;3,5,7])
258: image(pi*[1,3,5;2,4,6;3,5,7])
259: incgam(2,1)
260: incgam1(2,1)
261: incgam2(2,1)
262: incgam3(2,1)
263: incgam4(4,1,6)
264: indexrank([1,1,1;1,1,1;1,1,2])
265: indsort([8,7,6,5])
266: initell([0,0,0,-1,0])
267: initrect(1,700,700)
268: nfz=initzeta(x^2-2);
269: integ(sin(x),x)
270: integ((-x^2-2*a*x+8*a)/(x^4-14*x^3+(2*a+49)*x^2-14*a*x+a^2),x)
271: intersect([1,2;3,4;5,6],[2,3;7,8;8,9])
272: \precision=19
273: intgen(x=0,pi,sin(x))
274: sqr(2*intgen(x=0,4,exp(-x^2)))
275: 4*intinf(x=1,10^20,1/(1+x^2))
276: intnum(x=-0.5,0.5,1/sqrt(1-x^2))
277: 2*intopen(x=0,100,sin(x)/x)
278: \precision=38
279: inverseimage([1,1;2,3;5,7],[2,2,6]~)
280: isdiagonal([1,0,0;0,5,0;0,0,0])
281: isfund(12345)
282: isideal(bnf[7],[5,1;0,1])
283: isincl(x^2+1,x^4+1)
284: isinclfast(initalg(x^2+1),initalg(x^4+1))
285: isirreducible(x^5+3*x^3+5*x^2+15)
286: isisom(x^3+x^2-2*x-1,x^3+x^2-2*x-1)
287: isisomfast(initalg(x^3-2),initalg(x^3-6*x^2-6*x-30))
288: isprime(12345678901234567)
289: isprincipal(bnf,[5,1;0,1])
290: isprincipalgen(bnf,[5,1;0,1])
291: isprincipalraygen(bnr,primedec(bnf,7)[1])
292: ispsp(73!+1)
293: isqrt(10!^2+1)
294: isset([-3,5,7,7])
295: issqfree(123456789876543219)
296: issquare(12345678987654321)
297: isunit(bnf,mod(3405*x-27466,x^2-x-57))
298: \\ J
299: jacobi(hilbert(6))
300: jbesselh(1,1)
301: jell(i)
302: \\ K
303: kbessel(1+i,1)
304: kbessel2(1+i,1)
305: x
306: y
307: ker(matrix(4,4,x,y,x/y))
308: ker(matrix(4,4,x,y,sin(x+y)))
309: keri(matrix(4,4,x,y,x+y))
310: kerint(matrix(4,4,x,y,x*y))
311: kerint1(matrix(4,4,x,y,x*y))
312: kerint2(matrix(4,6,x,y,2520/(x+y)))
313: f(u)=u+1;
314: print(f(5));kill(f);
315: f=12
316: killrect(1)
317: kro(5,7)
318: kro(3,18)
319: \\ L
320: laplace(x*exp(x*y)/(exp(x)-1))
321: lcm(15,-21)
322: length(divisors(1000))
323: legendre(10)
324: lex([1,3],[1,3,5])
325: lexsort([[1,5],[2,4],[1,5,1],[1,4,2]])
326: lift(chinese(mod(7,15),mod(4,21)))
327: lindep([(1-3*sqrt(2))/(3-2*sqrt(3)),1,sqrt(2),sqrt(3),sqrt(6)])
328: lindep2([(1-3*sqrt(2))/(3-2*sqrt(3)),1,sqrt(2),sqrt(3),sqrt(6)],14)
329: move(0,0,900);line(0,900,0)
330: lines(0,vector(5,k,50*k),vector(5,k,10*k*k))
331: m=1/hilbert(7)
332: mp=concat(m,idmat(7))
333: lll(m)
334: lll1(m)
335: lllgram(m)
336: lllgram1(m)
337: lllgramint(m)
338: lllgramkerim(mp~*mp)
339: lllint(m)
340: lllintpartial(m)
341: lllkerim(mp)
342: lllrat(m)
343: \precision=96
344: ln(2)
345: lngamma(10^50*i)
346: \precision=2000
347: log(2)
348: logagm(2)
349: \precision=19
350: bcurve=initell([0,0,0,-3,0])
351: localred(bcurve,2)
352: ccurve=initell([0,0,-1,-1,0])
353: l=lseriesell(ccurve,2,-37,1)
354: lseriesell(ccurve,2,-37,1.2)-l
355: \\ M
356: sbnf=smallbuchinit(x^3-x^2-14*x-1)
357: makebigbnf(sbnf)
358: concat(mat(vector(4,x,x)~),vector(4,x,10+x)~)
359: matextract(matrix(15,15,x,y,x+y),vector(5,x,3*x),vector(3,y,3*y))
360: ma=mathell(mcurve,mpoints)
361: gauss(ma,mhbi)
362: (1.*hilbert(7))^(-1)
363: matsize([1,2;3,4;5,6])
364: matrix(5,5,x,y,gcd(x,y))
365: matrixqz([1,3;3,5;5,7],0)
366: matrixqz2([1/3,1/4,1/6;1/2,1/4,-1/4;1/3,1,0])
367: matrixqz3([1,3;3,5;5,7])
368: max(2,3)
369: min(2,3)
370: minim([2,1;1,2],4,6)
371: mod(-12,7)
372: modp(-12,7)
373: mod(10873,49649)^-1
374: modreverse(mod(x^2+1,x^3-x-1))
375: move(0,243,583);cursor(0)
376: mu(3*5*7*11*13)
377: \\ N
378: newtonpoly(x^4+3*x^3+27*x^2+9*x+81,3)
379: nextprime(100000000000000000000000)
380: setrand(1);a=matrix(3,5,j,k,vvector(5,l,random()\10^8))
381: aid=[idx,idy,idz,idmat(5),idx]
382: bb=algtobasis(nf,mod(x^3+x,nfpol))
383: da=nfdetint(nf,[a,aid])
384: nfdiv(nf,ba,bb)
385: nfdiveuc(nf,ba,bb)
386: nfdivres(nf,ba,bb)
387: nfhermite(nf,[a,aid])
388: nfhermitemod(nf,[a,aid],da)
389: nfmod(nf,ba,bb)
390: nfmul(nf,ba,bb)
391: nfpow(nf,bb,5)
392: nfreduce(nf,ba,idx)
393: setrand(1);as=matrix(3,3,j,k,vvector(5,l,random()\10^8))
394: vaid=[idx,idy,idmat(5)]
395: haid=[idmat(5),idmat(5),idmat(5)]
396: nfsmith(nf,[as,haid,vaid])
397: nfval(nf,ba,vp)
398: norm(1+i)
399: norm(mod(x+5,x^3+x+1))
400: norml2(vector(10,x,x))
401: nucomp(qfi(2,1,9),qfi(4,3,5),3)
402: form=qfi(2,1,9);nucomp(form,form,3)
403: numdiv(2^99*3^49)
404: numer((x+1)/(x-1))
405: nupow(form,111)
406: \\ O
407: 1/(1+x)+o(x^20)
408: omega(100!)
409: ordell(acurve,1)
410: order(mod(33,2^16+1))
411: tcurve=initell([1,0,1,-19,26]);
412: orderell(tcurve,[1,2])
413: ordred(x^3-12*x+45*x-1)
414: \\ P
415: padicprec(padicno,127)
416: pascal(8)
417: perf([2,0,1;0,2,1;1,1,2])
418: permutation(7,1035)
419: permutation2num([4,7,1,6,3,5,2])
420: pf(-44,3)
421: phi(257^2)
422: pi
423: plot(x=-5,5,sin(x))
424: \\ploth(x=-5,5,sin(x))
425: \\ploth2(t=0,2*pi,[sin(5*t),sin(7*t)])
426: \\plothraw(vector(100,k,k),vector(100,k,k*k/100))
427: pnqn([2,6,10,14,18,22,26])
428: pnqn([1,1,1,1,1,1,1,1;1,1,1,1,1,1,1,1])
429: point(0,225,334)
430: points(0,vector(10,k,10*k),vector(10,k,5*k*k))
431: pointell(acurve,zell(acurve,apoint))
432: polint([0,2,3],[0,4,9],5)
433: polred(x^5-2*x^4-4*x^3-96*x^2-352*x-568)
434: polred2(x^4-28*x^3-458*x^2+9156*x-25321)
435: polredabs(x^5-2*x^4-4*x^3-96*x^2-352*x-568)
436: polredabs2(x^5-2*x^4-4*x^3-96*x^2-352*x-568)
437: polsym(x^17-1,17)
438: polvar(name^4-other)
439: poly(sin(x),x)
440: polylog(5,0.5)
441: polylog(-4,t)
442: polylogd(5,0.5)
443: polylogdold(5,0.5)
444: polylogp(5,0.5)
445: poly([1,2,3,4,5],x)
446: polyrev([1,2,3,4,5],x)
447: polzag(6,3)
448: \\draw([0,20,20])
449: postdraw([0,20,20])
450: postploth(x=-5,5,sin(x))
451: postploth2(t=0,2*pi,[sin(5*t),sin(7*t)])
452: postplothraw(vector(100,k,k),vector(100,k,k*k/100))
453: powell(acurve,apoint,10)
454: cmcurve=initell([0,-3/4,0,-2,-1])
455: powell(cmcurve,[x,y],quadgen(-7))
456: powrealraw(qfr(5,3,-1,0.),3)
457: pprint((x-12*y)/(y+13*x));
458: pprint([1,2;3,4])
459: pprint1(x+y);pprint(x+y);
460: \precision=96
461: pi
462: prec(pi,20)
463: precision(cmcurve)
464: \precision=38
465: prime(100)
466: primedec(nf,2)
467: primedec(nf,3)
468: primedec(nf,11)
469: primes(100)
470: forprime(p=2,100,print(p," ",lift(primroot(p))))
471: principalideal(nf,mod(x^3+5,nfpol))
472: principalidele(nf,mod(x^3+5,nfpol))
473: print((x-12*y)/(y+13*x));
474: print([1,2;3,4])
475: print1(x+y);print1(" equals ");print(x+y);
476: prod(1,k=1,10,1+1/k!)
477: prod(1.,k=1,10,1+1/k!)
478: pi^2/6*prodeuler(p=2,10000,1-p^-2)
479: prodinf(n=0,(1+2^-n)/(1+2^(-n+1)))
480: prodinf1(n=0,-2^-n/(1+2^(-n+1)))
481: psi(1)
482: \\ Q
483: quaddisc(-252)
484: quadgen(-11)
485: quadpoly(-11)
486: \\ R
487: rank(matrix(5,5,x,y,x+y))
488: rayclassno(bnf,[[5,3;0,1],[1,0]])
489: rayclassnolist(bnf,lu)
490: move(0,50,50);rbox(0,50,50)
491: print1("give a value for s? ");s=read();print(1/s)
492: 37.
493: real(5-7*i)
494: recip(3*x^7-5*x^3+6*x-9)
495: redimag(qfi(3,10,12))
496: redreal(qfr(3,10,-20,1.5))
497: redrealnod(qfr(3,10,-20,1.5),18)
498: reduceddisc(x^3+4*x+12)
499: regula(17)
500: kill(y);print(x+y);reorder([x,y]);print(x+y);
501: resultant(x^3-1,x^3+1)
502: resultant2(x^3-1.,x^3+1.)
503: reverse(tan(x))
504: rhoreal(qfr(3,10,-20,1.5))
505: rhorealnod(qfr(3,10,-20,1.5),18)
506: rline(0,200,150)
507: cursor(0)
508: rmove(0,5,5);cursor(0)
509: rndtoi(prod(1,k=1,17,x-exp(2*i*pi*k/17)))
510: qpol=y^3-y-1;setrand(1);bnf2=buchinit(qpol);nf2=bnf2[7];
511: un=mod(1,qpol);w=mod(y,qpol);p=un*(x^5-5*x+w)
512: aa=rnfpseudobasis(nf2,p)
513: rnfbasis(bnf2,aa)
514: rnfdiscf(nf2,p)
515: rnfequation(nf2,p)
516: rnfequation2(nf2,p)
517: rnfhermitebasis(bnf2,aa)
518: rnfisfree(bnf2,aa)
519: rnfsteinitz(nf2,aa)
520: rootmod(x^16-1,41)
521: rootpadic(x^4+1,41,6)
522: roots(x^5-5*x^2-5*x-5)
523: rootsold(x^4-1000000000000000000000)
524: round(prod(1,k=1,17,x-exp(2*i*pi*k/17)))
525: rounderror(prod(1,k=1,17,x-exp(2*i*pi*k/17)))
526: rpoint(0,20,20)
527: \\ S
528: initrect(3,600,600);scale(3,-7,7,-2,2);cursor(3)
529: q*series(anell(acurve,100),q)
530: aset=set([5,-2,7,3,5,1])
531: bset=set([7,5,-5,7,2])
532: setintersect(aset,bset)
533: setminus(aset,bset)
534: setprecision(28)
535: setrand(10)
536: setsearch(aset,3)
537: setsearch(bset,3)
538: setserieslength(12)
539: setunion(aset,bset)
540: arat=(x^3+x+1)/x^3;settype(arat,14)
541: shift(1,50)
542: shift([3,4,-11,-12],-2)
543: shiftmul([3,4,-11,-12],-2)
544: sigma(100)
545: sigmak(2,100)
546: sigmak(-3,100)
547: sign(-1)
548: sign(0)
549: sign(0.)
550: signat(hilbert(5)-0.11*idmat(5))
551: signunit(bnf)
552: simplefactmod(x^11+1,7)
553: simplify(((x+i+1)^2-x^2-2*x*(i+1))^2)
554: sin(pi/6)
555: sinh(1)
556: size([1.3*10^5,2*i*pi*exp(4*pi)])
557: smallbasis(x^3+4*x+12)
558: smalldiscf(x^3+4*x+12)
559: smallfact(100!+1)
560: smallinitell([0,0,0,-17,0])
561: smallpolred(x^4+576)
562: smallpolred2(x^4+576)
563: smith(matrix(5,5,j,k,random()))
564: smith(1/hilbert(6))
565: smithpol(x*idmat(5)-matrix(5,5,j,k,1))
566: solve(x=1,4,sin(x))
567: sort(vector(17,x,5*x%17))
568: sqr(1+o(2))
569: sqred(hilbert(5))
570: sqrt(13+o(127^12))
571: srgcd(x^10-1,x^15-1)
572: move(0,100,100);string(0,pi)
573: move(0,200,200);string(0,"(0,0)")
574: \\draw([0,10,10])
575: postdraw([0,10,10])
576: apol=0.3+legendre(10)
577: sturm(apol)
578: sturmpart(apol,0.91,1)
579: subcyclo(31,5)
580: subell(initell([0,0,0,-17,0]),[-1,4],[-4,2])
581: subst(sin(x),x,y)
582: subst(sin(x),x,x+x^2)
583: sum(0,k=1,10,2^-k)
584: sum(0.,k=1,10,2^-k)
585: sylvestermatrix(a2*x^2+a1*x+a0,b1*x+b0)
586: \precision=38
587: 4*sumalt(n=0,(-1)^n/(2*n+1))
588: 4*sumalt2(n=0,(-1)^n/(2*n+1))
589: suminf(n=1,2.^-n)
590: 6/pi^2*sumpos(n=1,n^-2)
591: supplement([1,3;2,4;3,6])
592: \\ T
593: sqr(tan(pi/3))
594: tanh(1)
595: taniyama(bcurve)
596: taylor(y/(x-y),y)
597: tchebi(10)
598: teich(7+o(127^12))
599: texprint((x+y)^3/(x-y)^2)
600: theta(0.5,3)
601: thetanullk(0.5,7)
602: torsell(tcurve)
603: trace(1+i)
604: trace(mod(x+5,x^3+x+1))
605: trans(vector(2,x,x))
606: %*%~
607: trunc(-2.7)
608: trunc(sin(x^2))
609: tschirnhaus(x^5-x-1)
610: type(mod(x,x^2+1))
611: \\ U
612: unit(17)
613: n=33;until(n==1,print1(n," ");if(n%2,n=3*n+1,n=n/2));print(1)
614: \\ V
615: valuation(6^10000-1,5)
616: vec(sin(x))
617: vecmax([-3,7,-2,11])
618: vecmin([-3,7,-2,11])
619: vecsort([[1,8,5],[2,5,8],[3,6,-6],[4,8,6]],2)
620: vecsort([[1,8,5],[2,5,8],[3,6,-6],[4,8,6]],[2,1])
621: \\ W
622: weipell(acurve)
623: wf(i)
624: wf2(i)
625: m=5;while(m<20,print1(m," ");m=m+1);print()
626: \\ Z
627: zell(acurve,apoint)
628: zeta(3)
629: zeta(0.5+14.1347251*i)
630: zetak(nfz,-3)
631: zetak(nfz,1.5+3*i)
632: zidealstar(nf2,54)
633: bid=zidealstarinit(nf2,54)
634: zideallog(nf2,w,bid)
635: znstar(3120)
636: getstack()
637: getheap()
638: print("Total time spent: ",gettime());
639: \q
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to compat CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / pari / src / test / in