/dports/math/p5-Math-Pari/pari-2.3.5/src/graph/ |
H A D | plotport.c | 249 double xd = gtodouble(x), yd = gtodouble(y); in initrect_gen() 310 rectscale0(ne, gtodouble(x1), gtodouble(x2), gtodouble(y1), gtodouble(y2)); in rectscale() 333 rectmove0(ne,gtodouble(x),gtodouble(y),0); in rectmove() 339 rectmove0(ne,gtodouble(x),gtodouble(y),1); in rectrmove() 366 rectpoint0(ne,gtodouble(x),gtodouble(y),0); in rectpoint() 372 rectpoint0(ne,gtodouble(x),gtodouble(y),1); in rectrpoint() 543 rectline0(ne, gtodouble(gx2), gtodouble(gy2),0); in rectline() 549 rectline0(ne, gtodouble(gx2), gtodouble(gy2),1); in rectrline() 582 rectbox0(ne, gtodouble(gx2), gtodouble(gy2), 0); in rectbox() 588 rectbox0(ne, gtodouble(gx2), gtodouble(gy2), 1); in rectrbox() [all …]
|
/dports/math/pari/pari-2.13.3/src/graph/ |
H A D | plotport.c | 273 { plotscale0(ne, gtodouble(x1), gtodouble(x2), gtodouble(y1), gtodouble(y2)); } in plotscale() 293 { plotmove0(ne,gtodouble(x),gtodouble(y),0); } in plotmove() 296 { plotmove0(ne,gtodouble(x),gtodouble(y),1); } in plotrmove() 317 { plotpoint0(ne,gtodouble(x),gtodouble(y),0); } in plotpoint() 320 { plotpoint0(ne,gtodouble(x),gtodouble(y),1); } in plotrpoint() 394 { rectline0(ne, gtodouble(gx2), gtodouble(gy2),0); } in plotline() 397 { rectline0(ne, gtodouble(gx2), gtodouble(gy2),1); } in plotrline() 534 { rectbox0(ne, gtodouble(gx2), gtodouble(gy2), 0, f); } in plotbox() 537 { rectbox0(ne, gtodouble(gx2), gtodouble(gy2), 1, f); } in plotrbox() 743 double xd = gtodouble(xoff), yd = gtodouble(yoff); in plotcopy() [all …]
|
H A D | plottty.c | 111 y[i] = gtodouble( fun(E, x) ); in pariplot() 123 if (ysmlu) ysml = gtodouble(ysmlu); in pariplot() 124 if (ybigu) ybig = gtodouble(ybigu); in pariplot()
|
/dports/math/lcalc/lcalc-1.23/src/ |
H A D | Lcommandline_elliptic.cc | 148 x=gtodouble((GEN) C[1]); in data_E() 172 coeff[p] = Double(1.*llrint(gtodouble(ellap(E,y))))/sqrt(Double(1.*p)); in data_E()
|
/dports/math/pari/pari-2.13.3/src/basemath/ |
H A D | lfun.c | 80 k = gtodouble(w); in ldata_get_k1_dbl() 444 *r = gtodouble(gabs(t, prec)); in get_cone() 449 *r = fabs(gtodouble(t)); in get_cone() 478 rho= gtodouble(gel(tdom,1)); in lfunthetacost() 479 al = gtodouble(gel(tdom,2)); in lfunthetacost() 776 r = gtodouble(gel(tdom,1)); in lfunthetacheckinit() 932 suma = gtodouble(sumVga(Vga)); in lfunparams() 935 logN2 = log(gtodouble(N)) / 2; in lfunparams() 1211 S->dh = gtodouble(gel(dom,1)); in parse_dom() 2327 maxt = maxdd(fabs(gtodouble(h1)), fabs(gtodouble(h2))); in lfunzeros() [all …]
|
H A D | buch1.c | 931 c = gtodouble(gmul(z, R)); in get_R() 986 drc = fabs(gtodouble(QFR.D)); in Buchquad() 1152 { (void)REL; return Buchquad(D,gtodouble(c),gtodouble(c2),0); } in buchimag() 1157 (void)REL; return Buchquad(D,gtodouble(c),gtodouble(c2),prec); in buchreal() 1176 case 3: c2 = gtodouble(gel(data,2)); in quadclassunit0() 1177 case 2: c1 = gtodouble(gel(data,1)); in quadclassunit0()
|
H A D | trans3.c | 837 rs = gtodouble(gel(s,1)); in incgam_cf() 838 is = gtodouble(gel(s,2)); in incgam_cf() 842 rs = gtodouble(s); in incgam_cf() 899 double sig = gtodouble(real_i(s)), t = gtodouble(imag_i(s)); in findextraincgam() 900 double xr = gtodouble(real_i(x)), xi = gtodouble(imag_i(x)); in findextraincgam() 1096 double a = gtodouble(gel(x,1)); in dblmodulus() 1097 double b = gtodouble(gel(x,2)); in dblmodulus() 1101 return fabs(gtodouble(x)); in dblmodulus() 1127 double xd = gtodouble(real_i(x)); in incgam0() 1157 es = mygamma(gtodouble(rs) - n, gtodouble(is)) / M_LN2; in incgam0() [all …]
|
H A D | mellininv.c | 368 const double D = get_D(d), td = dblmodulus(t2d), cd = gtodouble(gcd); in Kderivlarge_optim() 371 rtd = (typ(t2d) == t_COMPLEX)? gtodouble(gel(t2d,1)): td; in Kderivlarge_optim() 374 a = d*gtodouble(A2)*log2(td)/2 - (M_PI/M_LN2)*d*rtd + log2(cd); /*log2 K(t)~a*/ in Kderivlarge_optim()
|
H A D | subgroup.c | 292 wmin = (long) (wG - (log(gtodouble(T->bound)) / log(gtodouble(p)))); in dopsub()
|
H A D | prime.c | 974 GEN L = dbltor(4*n * log(gtodouble(Q) + 1)), R = addii(Q, ceil_safe(L)); in prime_successor() 1279 return dbltor(primepi_upper_bound(gtodouble(x))); in gprimepi_upper_bound() 1296 return dbltor(primepi_lower_bound(gtodouble(x))); in gprimepi_lower_bound()
|
H A D | bibli1.c | 510 double logN = gtodouble(glog(N, DEFAULTPREC)), x, b, rho; in choose_params() 511 x = gtodouble(glog(X, DEFAULTPREC)) / logN; in choose_params() 512 b = B? gtodouble(glog(B, DEFAULTPREC)) / logN: 1.; in choose_params() 515 rho = is_pm1(P0)? 0: gtodouble(glog(P0, DEFAULTPREC)) / logN; in choose_params() 1151 p = gtodouble(BORNE); in forqfvec_i()
|
H A D | modsym.c | 4627 double a = gtodouble(gcoeff(g,1,1)), c = gtodouble(gcoeff(g,2,1)); in decorate() 4628 double d = gtodouble(gcoeff(g,2,2)); in decorate() 4637 t = gtodouble(gcoeff(arc,1,1)) / D1; in decorate() 4645 t = gtodouble(gcoeff(arc,1,2)) / D2; in decorate() 4674 str_init(&s, 1); d = fabs(gtodouble(gsub(r1,r2))); in polygon2tex() 4683 double aa = gtodouble(a); in polygon2tex() 4698 fabs((gtodouble(b)-aa)/2)); in polygon2tex() 4712 double bb = gtodouble(b); in polygon2tex()
|
H A D | buch2.c | 1159 e = maxdd(e, gtodouble(E)); in log2fubound() 1164 e = maxdd(e, gtodouble(E) / 2); in log2fubound() 2972 if (ec < -1 || (ec == -1 && gtodouble(c) < 0.75)) return fupb_PRECI; in bad_check() 2974 if (ec > 0 || (ec == 0 && gtodouble(c) > 1.3)) return fupb_RELAT; in bad_check() 3403 case 3: c2 = gtodouble(gel(data,2)); in bnfinit0() 3404 case 2: c1 = gtodouble(gel(data,1)); in bnfinit0()
|
H A D | QX_factor.c | 502 logBr = gtodouble(glog(Br, DEFAULTPREC)) / logp; in LLL_cmbf() 646 long a,b,amin,d = (long)(31 * M_LN2/gtodouble(glog(q,DEFAULTPREC)) - 1e-5); in cmbf_precs()
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/language/ |
H A D | compat.c | 54 #define B_ARG1 g1,gtodouble(g2),gtodouble(g3),l1
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/basemath/ |
H A D | buch1.c | 1506 c = gtodouble(gmul(z, R)); in get_R() 1552 drc = fabs(gtodouble(Disc)); in buchquad() 1681 { return buchquad(D,gtodouble(c),gtodouble(c2),itos(REL), 0); } in buchimag() 1686 return buchquad(D,gtodouble(c),gtodouble(c2),itos(REL), prec); in buchreal() 1708 case 3: cbach2 = gtodouble(gel(data,2)); in quadclassunit0() 1709 case 2: cbach = gtodouble(gel(data,1)); in quadclassunit0()
|
H A D | subgroup.c | 285 wmin = (long) (wG - (log(gtodouble(T->bound)) / log(gtodouble(p)))); in dopsub()
|
H A D | bibli1.c | 998 else if (fabs(gtodouble(mu)) > 0.51) in HRS() 1700 double logN = gtodouble(glog(N, DEFAULTPREC)); in choose_params() 1703 tau = gtodouble(glog(X, DEFAULTPREC)) / logN; in choose_params() 1704 beta = gtodouble(glog(B, DEFAULTPREC)) / logN; in choose_params() 1707 rho = gtodouble(glog(P0, DEFAULTPREC)) / logN; in choose_params() 2675 gabar = gtodouble(gel(tabga,1)); tabgabar[1] = gabar; in pslqL2() 3062 p = gtodouble(BORNE); in minim0() 3127 BOUND=gtodouble(gnorme)+eps; s=0; in minim0()
|
H A D | buch2.c | 1840 v[k] = gtodouble(gcoeff(r,k,k)); in small_norm() 1841 for (j=1; j<k; j++) q[j][k] = gtodouble(gcoeff(r,j,k)); in small_norm() 2224 c = gtodouble(gmul(R,z)); /* should be n (= 1 if we are done) */ in compute_R() 2707 case 3: bach2 = gtodouble( gel(data,2)); in classgroupall() 2708 case 2: bach = gtodouble( gel(data,1)); in classgroupall() 2950 D = gel(nf,3); drc = fabs(gtodouble(D)); in buch()
|
H A D | trans3.c | 92 L = 1.3591409 * gtodouble(gabs(z,prec)); in jbesselintern() 269 n = (long) (bit_accuracy_mul(l,LOG2) + PI*sqrt(gtodouble(gnorm(nu)))) / 2; in kbessel() 417 L = 1.3591409 * gtodouble(gabs(z,prec)); in kbesselintern() 581 n=(long)(bit_accuracy_mul(l, LOG2) + PI*sqrt(gtodouble(gabs(gmul(a,a1),l1)))); in hyperu() 1155 t = log( gtodouble(d) ) + (n + 0.5) * log(n) - n*(1+log2PI) + 1.712086; in bernfrac_using_zeta()
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/modules/ |
H A D | part.c | 166 for (q = (ulong)(sqrt(gtodouble(n))*0.24 + 5); q >= 3; q--, avma=av) in numbpart()
|
/dports/math/pari/pari-2.13.3/src/language/ |
H A D | intnum.c | 1713 double bit = 2*prec2nbits(prec) / gtodouble(ga), D = bit*M_LN2; in sumnummonieninit_i() 1714 double da = maxdd(1., gtodouble(a)); in sumnummonieninit_i() 1868 w = gtodouble(glambertW(ginv(d), LOWDEFAULTPREC)); in sumnuminit() 2094 r = gtodouble(polrootsbound(P, NULL)); in polmax() 2401 rs = gtodouble(real_i(s)); in sumeulerrat() 2445 rs = gtodouble(real_i(s)); in prodeulerrat() 2476 c1d = c1 ? gtodouble(c1) : 0.332; in sumnumlagrange1init() 2499 double c1d = c1 ? gtodouble(c1) : 0.228; in sumnumlagrange2init() 2558 c1d = gtodouble(c1); in sumnumlagrangeinit_i()
|
/dports/math/giacxcas/giac-1.6.0/ |
H A D | pariinl.h | 256 double gtodouble(GEN x); 870 gtodouble(GEN x)
|
/dports/math/pari/pari-2.13.3/src/modules/ |
H A D | part.c | 128 for (q = (ulong)(sqrt(gtodouble(n))*0.24 + 5); q >= 3; q--, set_avma(av)) in numbpart()
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/kernel/none/ |
H A D | level1.h | 96 double gtodouble(GEN x); 1047 gtodouble(GEN x) in gtodouble() function
|