/dports/math/pari/pari-2.13.3/src/kernel/none/ |
H A D | level1.h | 95 affrr_fixlg(GEN y, GEN z) { fixlg(z, lg(y)); affrr(y, z); } in affrr_fixlg() 898 affrr(divrs(itor(x,prec), y),z); in rdivis() 906 affrr(divsr(x, itor(y,prec)), z); in rdivsi() 914 affrr(divrs(stor(x, prec), y), z); in rdivss() 926 affrr(divru(z, y[2]), z); in rdiviiz() 930 affir(x,z); affrr(divri(z, y), z); in rdiviiz() 1386 { pari_sp av = avma; affrr(addir(x,y),z); set_avma(av); } in addirz() 1388 { pari_sp av = avma; affrr(addri(x,y),z); set_avma(av); } in addriz() 1390 { pari_sp av = avma; affrr(addrr(x,y),z); set_avma(av); } in addrrz() 1394 { pari_sp av = avma; affrr(addsr(s,y),z); set_avma(av); } in addsrz() [all …]
|
H A D | mp_indep.c | 32 affrr(GEN x, GEN y) in affrr() function 569 affrr(divrr(itor(x, ly+1), y), z); in divir() 588 affrr(divrr(utor(x,ly+1), y), z); in divur() 608 affrr(divrr(stor(x,ly+1), y), z); in divsr() 619 affrr(divrr(real_1(ly+1), y), z); in invr_basecase() 639 affrr(invr_basecase(rtor(a, p+2)), x); in invr() 648 affrr(addrr(x, mulrr(x, subsr(1, mulrr(a,x)))), x); in invr()
|
H A D | mp.c | 762 affrr(divrr(x, itor(y, lx+1)), z); in divri() 2150 affrr(addrr(t, divrr(a,t)), t); shiftr_inplace(t, -1); in sqrtr_abs() 2153 affrr(t,y); shiftr_inplace(y, (ex>>1)); in sqrtr_abs()
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/modules/ |
H A D | part.c | 114 affrr(t, res); in L() 172 affrr(addrr(sum, t), sum); in numbpart() 176 affrr(mod2(n)? subrr(p1,p2): addrr(p1,p2), sum); in numbpart()
|
/dports/math/pari/pari-2.13.3/src/basemath/ |
H A D | lll.c | 189 affrr(rtmp, gmael(r,kappa,j)); in Babai() 193 affrr(divrr(gmael(r,kappa,j), gmael(r,j,j)), gmael(mu,kappa,j)); in Babai() 222 affrr(subrr(gmael(mu,kappa,k), gmael(mu,j,k)), gmael(mu,kappa,k)); in Babai() 242 affrr(addrr(gmael(mu,kappa,k), gmael(mu,j,k)), gmael(mu,kappa,k)); in Babai() 273 affrr(rtmp, gmael(mu,kappa,k)); in Babai() 297 affrr(rtmp, gmael(mu,kappa,k)); in Babai() 328 affrr(rtmp, gmael(mu,kappa,k)); in Babai() 358 affrr(tmp, gel(s,k+1)); in Babai() 452 affrr(subrr(gel(s,kappa-1), tmp), gmael(r,kappa,kappa)); in fplll() 476 affrr(gel(s,kappa), gmael(r,kappa,kappa)); in fplll()
|
H A D | trans1.c | 201 affrr(a, A); 204 affrr(subrr(C, y), C); set_avma(av2); 274 affrr(divru(mulur(xx,b),k*k), b); in consteuler() 276 affrr(addrr(u,a), u); in consteuler() 283 affrr(addrr(u,a), u); in consteuler() 293 affrr(divru(mulir(xx,b),k*k), b); in consteuler() 295 affrr(addrr(u,a), u); in consteuler() 302 affrr(addrr(u,a), u); in consteuler() 2343 affrr(t, a); set_avma((pari_sp)a); in mpexp() 2345 affrr(t,z); in mpexp() [all …]
|
H A D | trans2.c | 110 affrr(divrr(p2,p5), p2); set_avma(av); in mpatan() 115 affrr(divru(unr,2*n+1), p4); in mpatan() 122 setprec(p4,l1); affrr(p5,p4); set_avma(av); in mpatan() 428 affrr(z, res); set_avma(av); return res; in mpsinh() 459 shiftr_inplace(S, -1); affrr(S, *s); in mpsinhcosh() 605 affrr(z, res); return gc_const(av, res); in mpasinh() 672 affrr(z, res); return gc_const(av, res); in mpacosh() 1257 affrr(cxgamma(z,0,prec), y); in gammahs() 1272 affrr(z, y); set_avma(av); return y; in gammahs() 1744 affrr(mpfactr_basecase(n, prec), f); in mpfactr_small() [all …]
|
H A D | bern.c | 108 affrr(divrunu(mulrr(v,u), k-1), v); in bernset() 331 affrr(z, res); set_avma(av); return res; in inv_szeta_euler()
|
H A D | ellanal.c | 214 affrr(mulrr(Sl, gel(sleh,l)), gel(S, l)); /* to avoid copying all S */ in vecF2_lk() 235 affrr(gmael(C, i, 2),gmael(R, i, 1)); in baby_init() 239 affrr(r0, gmael(R, i, j)); in baby_init() 269 affrr(addrr(gel(giant, q+1), mulri(gel(baby, r+1), a)), gel(giant, q+1)); in ellL1_add() 476 affrr(addrr(gel(bb->sum, j), divri(mulri(ex, a), n)), gel(bb->sum, j)); in heegner_L1() 521 affrr(real_i(gmael(C, i, 2)), gel(S, i)); in baby_init3()
|
H A D | zetamult.c | 244 affrr(divru(S, h+m), gel(b,m)); set_avma(av2); in zetamult_Zagier() 251 affrr(z, gel(ze, m)); z = z1; in zetamult_Zagier() 675 z = zetamult_i(avec, prec); affrr(z, r); return gc_const(av, r); in zetamult() 700 affrr(addrr(gel(V,n), zetamult_i(a, prec)), gel(V,n)); in zetamult_interpolate()
|
H A D | trans3.c | 457 affrr(mulrr(u, mpexp(negr(x))), y); in kbessel1() 1215 av = avma; affrr(eint1p(x, expx), z); in mpeint1() 1328 en = eC; affrr(eint1p(C, en), gel(w,1)); in mpveceint1() 1334 affrr(eint1p(mulru(C,n), en), gel(w,n)); in mpveceint1() 1344 affrr(eint1p(mulru(C,N), invr(en)), gel(w,N)); in mpveceint1() 1357 affrr(c, gel(w,n)); set_avma(av2); in mpveceint1()
|
H A D | alglin2.c | 1684 affrr(x1,x); in rot() 1685 affrr(y1,y); in rot()
|
H A D | buch1.c | 843 affrr(d, gel(C,s)); in real_relations()
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/basemath/ |
H A D | trans2.c | 90 p2 = cgetr(l2); affrr(p1,p2); av = avma; in mpatan() 95 affrr(divrr(p2,p5), p2); avma = av; in mpatan() 100 affrr(divrs(unr,2*n+1), p4); in mpatan() 109 setlg(p4,l1); affrr(p5,p4); avma = av; in mpatan() 427 affrr(z, res); avma = av; return res; in mpsh() 521 affrr(z, res); avma = av; return res; in mpash() 709 *(BERN(i)) = c0; affrr(B, BERN(i)); } STMT_END 778 affrr(bern(n),B); return B; in bernreal() 982 affrr(y, z); in affr_fixlg() 1202 affrr(cxgamma(z,0,prec), y); in gammahs() [all …]
|
H A D | trans1.c | 122 affrr(subrr(C, y), C); in constpi() 123 affrr(a, A); in constpi() 124 affrr(b, B); avma = av2; in constpi() 127 affrr(divrr(gsqr(addrr(A,B)), C), tmppi); in constpi() 136 constpi(prec); affrr(gpi,x); return x; in mppi() 1293 affrr(a,z); in mpexp() 1596 affrr(divrs(y,n), tmplog2); in constlog2() 1605 affrr(constlog2(prec), x); return x; in mplog2() 1623 l2 = l+1; x = cgetr(l2); affrr(X,x); in logr_abs() 1684 Q = cgetr(prec); affrr(q, Q); in logagmr_abs() [all …]
|
H A D | trans3.c | 296 gnegz(p1,c); gaffsg(1,d); affrr(u,e); affrr(v,f); in kbessel() 856 affrr(eint1(mulsr(n,C),prec), F0); in veceint1() 885 if (expo(add) < G) { affrr(F,gel(y,n)); break; } in veceint1() 893 affrr(mulrr(e1,e2), e1); in veceint1() 896 affrr(eC, e1); in veceint1() 899 affrr(incgam2_0(mulsr(i,C), e1), gel(y,i)); in veceint1() 901 affrr(mulrr(e1, eC), e1); avma = av1; in veceint1() 1070 if (bernzone[2]>prec+1) { affrr(p3,p31); p3=p31; } 1118 affrr(z, res); avma = av; in inv_szeta_euler() 1122 affrr(z, res); avma = av; return res; in inv_szeta_euler() [all …]
|
H A D | bibli1.c | 2002 if (qzer[j]) affrr(bn[j], m[i][j]); in lindep() 2009 affrr(sqscal(be[i]), bn[i]); in lindep() 2040 affrr(m[i][j], m[k][j]); in lindep() 2041 affrr(p1, m[i][j]); in lindep() 2046 c2 = divrr(mulrr(bn[i],f),c1); affrr(c2, m[k][i]); in lindep() 2049 affrr(c1, bn[i]); qzer[i] = 0; in lindep() 2054 affrr(p1, m[j][i]); in lindep() 2059 affrr(bn[i], bn[k]); qzer[k] = qzer[i]; in lindep() 2060 affrr(c1, bn[i]); qzer[i] = 1; in lindep() 2061 for (j=i+2; j<=n; j++) affrr(m[j][i], m[j][k]); in lindep()
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/language/ |
H A D | intnum.c | 368 affrr(xp, gel(D.tabxp,k)); in inittanhsinh() 369 affrr(wp, gel(D.tabwp,k)); et = gerepileuptoleaf(av, mulrr(et, ex)); in inittanhsinh() 400 affrr(xp, gel(D.tabxp,k)); in initsinhsinh() 401 affrr(wp, gel(D.tabwp,k)); et = gerepileuptoleaf(av, mulrr(et, ex)); in initsinhsinh() 429 affrr(xp, gel(D.tabxp,k)); in initsinh() 492 affrr(xp, gel(D.tabxp,k)); in initexpexp() 493 affrr(wp, gel(D.tabwp,k)); in initexpexp() 494 affrr(xm, gel(D.tabxm,k)); in initexpexp() 535 affrr(xp, gel(D.tabxp,k)); in initnumsine() 536 affrr(wp, gel(D.tabwp,k)); in initnumsine() [all …]
|
/dports/math/giacxcas/giac-1.6.0/ |
H A D | pariinl.h | 504 { if (typ(y)==t_INT) affri(x,y); else affrr(x,y); } 548 affsr(x,p1); affrr(addrs(p1,y),z); avma=av; 757 affir(x,p1); affrr(divrs(p1,y),z); avma=av; 773 affrr(divrr(p1,p2),z); 788 affsr(x,p1); affrr(divrs(p1,y),z);
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/kernel/none/ |
H A D | level1.h | 611 mpaff(GEN x, GEN y) { if (typ(x)==t_INT) affiz(x, y); else affrr(x,y); } in mpaff() 643 rtor(GEN x, long prec) { GEN z = cgetr(prec); affrr(x,z); return z; } in rtor() 871 affrr(divrs(itor(x,prec), y),z); in rdivis() 890 affrr(divsr(x, itor(y,prec)), z); in rdivsi() 899 affrr(divrs(stor(x, prec), y), z); in rdivss() 910 affrr(divrs(z, y[2]), z); in rdiviiz() 914 affrr(divrr(z, itor(y,prec)), z); in rdiviiz() 927 affrr(divrr(x,y),z); avma=av; in divrrz()
|
H A D | mp_indep.c | 33 affrr(GEN x, GEN y) in affrr() function 380 affrr(divrr(itor(x, ly+1), y), z); in divir() 391 if (typ(z) == t_REAL) affrr(q, z); in mpdivz() 410 affrr(divrr(stor(x,ly+1), y), z); in divsr()
|
H A D | mp.c | 730 affrr(divrr(x, itor(y, lx+1)), z); in divri() 1783 a = cgetr(l+1); affrr(x,a); in sqrtr_abs() 1801 affrr(addrr(t, divrr(a,t)), t); setexpo(t, expo(t)-1); in sqrtr_abs() 1804 affrr(t,y); setexpo(y, expo(y) + (ex>>1)); in sqrtr_abs()
|
/dports/math/pari/pari-2.13.3/src/language/ |
H A D | intnum.c | 285 affrr(c, gel(W,1)); k = 2; in intnumgaussinit() 294 affrr(z, gel(V,k)); in intnumgaussinit() 296 affrr(w, gel(W,k)); set_avma(av2); in intnumgaussinit() 518 affrr(xp, gel(D.tabxp,k)); in initsinhsinh() 545 affrr(xp, gel(D.tabxp,k)); in initsinh() 605 affrr(xp, gel(D.tabxp,k)); in initexpexp() 606 affrr(wp, gel(D.tabwp,k)); in initexpexp() 607 affrr(xm, gel(D.tabxm,k)); in initexpexp() 651 affrr(xp, gel(D.tabxp,k)); in initnumsine() 652 affrr(wp, gel(D.tabwp,k)); in initnumsine() [all …]
|
/dports/math/pari/pari-2.13.3/src/modules/ |
H A D | part.c | 134 affrr(addrr(sum, t), sum); in numbpart() 138 affrr(mod2(n)? subrr(p1,p2): addrr(p1,p2), sum); in numbpart()
|
/dports/math/pari/pari-2.13.3/src/graph/ |
H A D | plotport.c | 1293 if (i) { affrr(tr,tl); xl = xr; yl = yr; } in plotrecthin() 1317 affrr(xr,xl); yl = yr; in plotrecthin()
|