is a computer algebra system designed for fast computations in number theory (factorizations, algebraic number theory, elliptic curves...), but also contains a large number of other mathematical functions.
| mf (pari-2.13.0) | : | mf (pari-2.13.1) |
|---|
| | |
| skipping to change at line 356 | | skipping to change at line 356 |
|---|
| mfperiodpol(mf,f1) | | mfperiodpol(mf,f1) |
| f1=mfsymbol(mf,f1); f2=mfsymbol(mf,f2); | | f1=mfsymbol(mf,f1); f2=mfsymbol(mf,f2); |
| mfperiodpol(mf,f1) | | mfperiodpol(mf,f1) |
| mfperiodpol(mf,f2) | | mfperiodpol(mf,f2) |
| mfsymboleval(f1,[0,oo]) | | mfsymboleval(f1,[0,oo]) |
| mfsymboleval(f1,[1/2 + I/10000,oo]) | | mfsymboleval(f1,[1/2 + I/10000,oo]) |
| mfsymboleval(f1,[1/2 + I/20,oo]) | | mfsymboleval(f1,[1/2 + I/20,oo]) |
| mfsymboleval(f1,[1/2 + I/(20+1e-10),oo]) | | mfsymboleval(f1,[1/2 + I/(20+1e-10),oo]) |
| mfsymboleval(f1,[1/3,1/2]) | | mfsymboleval(f1,[1/3,1/2]) |
| mfsymboleval(f2,[1/3,1/2]) | | mfsymboleval(f2,[1/3,1/2]) |
|
| | mfsymboleval(f2,[1/2,1/2]) \\ #2260 |
| mfpetersson(f1) | | mfpetersson(f1) |
| m=mfpetersson(f2); | | m=mfpetersson(f2); |
| if (abs(m[2,1]) < 1e-38, m[2,1]=0); | | if (abs(m[2,1]) < 1e-38, m[2,1]=0); |
| if (abs(m[1,2]) < 1e-38, m[1,2]=0); m | | if (abs(m[1,2]) < 1e-38, m[1,2]=0); m |
| normlp(mfpetersson(f1,f2)) < 1e-38 | | normlp(mfpetersson(f1,f2)) < 1e-38 |
| normlp(mfpetersson(f2,f1)) < 1e-38 | | normlp(mfpetersson(f2,f1)) < 1e-38 |
| L=mfmanin(f2)[1]; | | L=mfmanin(f2)[1]; |
| liftpol(L[1]) | | liftpol(L[1]) |
| L[2][3] | | L[2][3] |
| | |
| | |
| skipping to change at line 703 | | skipping to change at line 704 |
|---|
| mfdescribe(E,&g); | | mfdescribe(E,&g); |
| apply(mfdescribe,g[1]) | | apply(mfdescribe,g[1]) |
| | |
| f1=mffromqf(matdiagonal([1,6,36]*2))[2]; | | f1=mffromqf(matdiagonal([1,6,36]*2))[2]; |
| f2=mffromqf(matdiagonal([4,6,9]*2))[2]; | | f2=mffromqf(matdiagonal([4,6,9]*2))[2]; |
| F=mflinear([f1,f2],[1,-1]/2); | | F=mflinear([f1,f2],[1,-1]/2); |
| mf=mfinit(F); | | mf=mfinit(F); |
| [mf2,g]=mfshimura(mf,F); | | [mf2,g]=mfshimura(mf,F); |
| mfcuspval(mf2,g,0) | | mfcuspval(mf2,g,0) |
| | |
|
| | T3=mfpow(T,3);mf=mfinit(T3); |
| | [mf,TSHI,res]=mfshimura(mf,T3); |
| | mfcoefs(TSHI,10) |
| T5=mfpow(T,5); | | T5=mfpow(T,5); |
| [mf,TSHI,res]=mfshimura(mfinit(T5),T5); | | [mf,TSHI,res]=mfshimura(mfinit(T5),T5); |
| mfcoefs(TSHI,10) | | mfcoefs(TSHI,10) |
| mftobasis(mfinit(TSHI,4),TSHI) | | mftobasis(mfinit(TSHI,4),TSHI) |
| F4=mfmul(mfbd(T,4),mffrometaquo([8,1;16,1])); | | F4=mfmul(mfbd(T,4),mffrometaquo([8,1;16,1])); |
| F4S=mfshimura(mfinit(F4),F4)[2];mfcoefs(F4S,20) | | F4S=mfshimura(mfinit(F4),F4)[2];mfcoefs(F4S,20) |
| EH=mfEH(13/2); | | EH=mfEH(13/2); |
| mfdescribe(EH); | | mfdescribe(EH); |
| mfcoef(EH,1001) | | mfcoef(EH,1001) |
| mfcoef(EH,13*5^2) | | mfcoef(EH,13*5^2) |
| | |
| skipping to change at line 759 | | skipping to change at line 763 |
|---|
| mfsymboleval(ES,[1,I]) | | mfsymboleval(ES,[1,I]) |
| mfcuspval(mf,E,1/2) | | mfcuspval(mf,E,1/2) |
| | |
| mffrometaquo([1,-24]) | | mffrometaquo([1,-24]) |
| mfcoefs(mffrometaquo([1,-24],1),6) | | mfcoefs(mffrometaquo([1,-24],1),6) |
| | |
| mf=mfinit([53,2]); | | mf=mfinit([53,2]); |
| F=mfeigenbasis(mf)[1]; | | F=mfeigenbasis(mf)[1]; |
| ms=mfsymbol(mf,F);mfpetersson(ms) | | ms=mfsymbol(mf,F);mfpetersson(ms) |
| | |
|
| | f=mfeisenstein(4,Mod(1,2),Mod(1,2)); vec(f) |
| | |
| getcache()[,1..4] | | getcache()[,1..4] |
| | |
| \\ ERRORS, leave at end of bench | | \\ ERRORS, leave at end of bench |
| mftobasis(mf0,L[1]) | | mftobasis(mf0,L[1]) |
| mfdim([4,1/2],0) | | mfdim([4,1/2],0) |
| mfdim([4,1/2],2) | | mfdim([4,1/2],2) |
| mfdim([4,1/2],5) | | mfdim([4,1/2],5) |
| | |
| mfeisenstein(2,1.0) | | mfeisenstein(2,1.0) |
| mfeisenstein(2,[0,0]) | | mfeisenstein(2,[0,0]) |
| | | |
| End of changes. 3 change blocks. |
|---|
| 0 lines changed or deleted | | 6 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 