/dports/math/pari/pari-2.13.3/src/basemath/ |
H A D | base5.c | 535 if (isintzero(x)) return rnfideal0(); in rnfidealhnf() 763 if (isintzero(gel(y,1))) { set_avma(av); return rnfideal0(); } in rnfidealmul() 1302 if (isintzero(v)) return A; in colcomb1() 1309 if (isintzero(u)) return nfC_nf_mul(nf,B,v); in colcomb() 1327 if (!isintzero(t)) in element_mulvecrow() 1459 j=def; while (j>=1 && isintzero(gcoeff(A,i,j))) j--; in nfhnf0() 1474 b = gel(T0,i); if (isintzero(b)) continue; in nfhnf0() 1504 GEN mc, c = gcoeff(A,i,j); if (isintzero(c)) continue; in nfhnf0() 1830 def--; j=def; while (j>=1 && isintzero(gcoeff(A,i,j))) j--; in nfhnfmod() 1840 b = gel(T0,i); if (isintzero(b)) continue; in nfhnfmod() [all …]
|
H A D | gen1.c | 66 gel(z,1) = isintzero(gel(y,1))? gen_0: gmul(x,gel(y,1)); in mulRc() 833 if (isintzero(x)) return gcopy(y); in add_scal() 973 if (isintzero(gel(z,2))) in gadd() 1278 if (isintzero(gel(z,2))) in gsub() 1615 if (isintzero(xr)) in mulcc() 1617 if (isintzero(yr)) { in mulcc() 1623 if (isintzero(yr)) return mulcIR(x, yi); in mulcc() 1692 if (isintzero(gel(z,2))) in mulcc() 1769 if (isintzero(gel(x,1))) return gel(x,2); in mulcxmI() 2141 if (isintzero(gel(x,1))) { in gsqr() [all …]
|
H A D | ecpp.c | 500 if (isintzero(j)) { *A = gen_0; *B = gen_1; return; } in Fp_ellfromj() 1291 return gc_long(av, !isintzero(ecpp(N))); in isprimeECPP() 1401 a4 = cert_get_a4(xi); Ais0 = isintzero(a4); in primo_out() 1402 a6 = cert_get_a6(xi); Bis0 = isintzero(a6); in primo_out() 1453 if (!isintzero(r)) return gen_0; in primecertisvalid_ecpp_worker() 1497 if (isintzero(qq)) return 0; in ecppisvalid_i()
|
H A D | RgV.c | 349 if (isintzero(y)) return z; in RgC_Rg_add() 363 if (isintzero(y)) return z; in RgC_Rg_sub() 378 if (isintzero(a)) return z; in Rg_RgC_sub() 500 if (!isintzero(c)) t = gadd(t, gmul(c, gel(y,j))); in RgMrow_RgC_mul_i()
|
H A D | lfun.c | 45 ldata_isreal(GEN ldata) { return isintzero(gel(ldata, 2)); } in ldata_isreal() 562 { return isintzero(r)? gen_0: serpole(r); } in simple_pole() 593 if (isintzero(r)) return 0; in residues_known() 600 if (isintzero(gel(ri, 2))) return 0; in residues_known() 616 if (!r || isintzero(eno) || !residues_known(r)) in lfunrtoR_i() 1436 if (r && isintzero(r)) eno = NULL; in lfuninit() 1440 if (isintzero(eno)) eno = NULL; in lfuninit() 1452 if (isintzero(r)) setlg(ldata,7); else gel(ldata, 7) = r; in lfuninit() 2158 if (isintzero(w)) w = lfunrootno(data, bitprec); in lfunrootres() 2193 if (!isintzero(w)) R = gdiv(gsub(e, gmul(a, w)), b); in lfunrootres()
|
H A D | aprcl.c | 261 if (!isintzero(cache_mat(C))) return _powpolmodsimple(C, R, jac); in powpolmod() 588 if (Cp && !isintzero(cache_a(Cp))) { in finda() 910 if (pk <= lpC && !isintzero(gel(pC,pk))) { in step5()
|
H A D | gen3.c | 577 case t_COMPLEX: return isintzero(gel(g,1)) && isintzero(gel(g,2)); in isrationalzeroscalar() 578 case t_QUAD: return isintzero(gel(g,2)) && isintzero(gel(g,3)); in isrationalzeroscalar() 730 if (isintzero(x)) return gen_0; in modRr_safe() 1398 if (!isintzero(gel(x,i))) return 0; in serequalXk() 4162 case t_COMPLEX: return isintzero(gel(x,2))? gel(x,1): x; in simplify_shallow() 4163 case t_QUAD: return isintzero(gel(x,3))? gel(x,2): x; in simplify_shallow() 4228 if (isintzero(gel(x,i))) continue; in qfeval() 4427 if (isintzero(y)) return gcopy(gel(x,imin)); in poleval()
|
H A D | gen2.c | 260 return isintzero(gel(g,1)) && isintzero(gel(g,2)); in isrationalzero() 262 return isintzero(gel(g,2)) && isintzero(gel(g,3)); in isrationalzero() 470 && isintzero(gel(x,2)) && isint1(gel(x,3)); } in gequalX() 2364 if (isintzero(v)) return cxcompotor(u, prec); in quadtofp()
|
H A D | msfarey.c | 203 t = !isintzero(gtrace(gel(gam,i))); in msfarey()
|
H A D | trans2.c | 387 if (isintzero(gel(x,1))) return gcos(gel(x,2),prec); in gcosh() 473 if (isintzero(gel(x,1))) retmkcomplex(gen_0, gsin(gel(x,2),prec)); in gsinh() 524 if (isintzero(gel(x,1))) retmkcomplex(gen_0, gtan(gel(x,2),prec)); in gtanh() 574 if (isintzero(gel(x,1))) retmkcomplex(gen_0, gcotan(gel(x,2),prec)); in gcotanh()
|
H A D | prime.c | 666 if (isintzero(C0)) in PL_certificate() 769 return gc_long(av, !isintzero(isprimePL(x))); in _isprimePL()
|
H A D | qfsolve.c | 205 if (isintzero(p)) return stoi(k); in partialgaussred() 216 if (isintzero(gcoeff(a,n,n))) return stoi(n); in partialgaussred()
|
H A D | lfunutils.c | 292 eno = isintzero(eno2)? gen_0: gdiv(ldata_get_rootno(ldata1), eno2); in lfundiv() 435 ed = isintzero(e) ? e: ginvvec(e); in lfundual() 463 if (isintzero(r)) return gen_0; in simple_pole() 635 if (isintzero(x)) return gmul(y,z); in gaddmul() 1145 if (!isintzero(G)) in lfunzetakinit()
|
H A D | trans1.c | 3514 if (isintzero(a)) return gcosh(b, prec); in gcos() 3579 if (isintzero(a)) retmkcomplex(gen_0,gsinh(b,prec)); in gsin() 3840 if (isintzero(gel(x,1))) in gsinc() 3942 if (isintzero(gel(x,1))) retmkcomplex(gen_0,gtanh(gel(x,2),prec)); in gtan() 3988 if (isintzero(gel(x,1))) { in gcotan()
|
H A D | elliptic.c | 129 case 2: if (isintzero(gel(z,1))) break; in checkellpt() 861 return isint1(u) && isintzero(r) && isintzero(s) && isintzero(t); in is_trivial_change() 2497 if (isintzero(real_i(T->tau))) T->some_q_is_real = 1; in red_modSL2() 2515 if (isintzero(real_i(T->Tau))) T->some_q_is_real = T->q_is_real = 1; in red_modSL2() 2523 else if (isintzero(gel(z,1))) { *real = 0; *imag = 1; } in check_complex() 2996 if (!et || (typ(et) == t_COMPLEX && isintzero(gel(et,1)))) in ellzeta() 3089 if (T.some_q_is_real && isintzero(imag_i(z)) && gexpo(imag_i(y)) < 1) in ellsigma()
|
H A D | base3.c | 305 if (isintzero(x)) return gen_0; in nfmul() 311 if (isintzero(y)) return gen_0; in nfmul() 393 if (!isintzero(c)) c = ZC_Z_mul(gel(x,1), c); in zkC_multable_mul() 412 if (!isintzero(c)) c = RgC_Rg_mul(gel(x,1), c); in nfC_multable_mul()
|
H A D | base4.c | 918 if (isintzero(a)) { set_avma(av); return gen_1; } in idealredmodpower() 1741 return isintzero(x)? cgetg(1,t_MAT): RgM_Rg_mul(A, Q_abs_shallow(x)); in idealmulelt() 3071 if (!isintzero(a)) not_in_ideal(a); in idealtwoelt2()
|
H A D | ellpadic.c | 83 if (isintzero(x)) in Qp_descending_Landen()
|
H A D | galconj.c | 2591 if (!isintzero(gel(gp->cache,i))) in galoisperm_free() 2599 if (isintzero(gel(gp->cache,p[1]))) in permtoaut() 2616 if (!isintzero(gel(W,ns))) return gel(W,ns); in pc_evalcache()
|
H A D | rootpol.c | 1626 if (isintzero(a)) return cxcompotor(b, prec); in quicktofp() 1627 if (isintzero(b)) return cxcompotor(a, prec); in quicktofp()
|
H A D | perm.c | 327 if (isintzero(gel(C,mj))) continue; in vecperm_extendschreier()
|
H A D | mftrace.c | 659 if (isintzero(CHI) && joker) in checkCHI() 3226 if (isintzero(t)) continue; in TA3() 6982 if (d == 2 && isint1(gel(P,2)) && isintzero(gel(P,3)) && isint1(gel(P,4))) in ZX_roots() 7731 || (!isintzero(gel(z,1)) && !checkMF_i(gel(z,1)))) in checkmfa() 10136 if (isintzero(c)) return gen_0; in f00_i() 12790 if (al0[j] && !isintzero(gel(VF,1)) && !isintzero(gel(VG,1))) in mfpetersson2() 12795 if (!isintzero(a) && !isintzero(b)) in mfpetersson2()
|
H A D | polmodular.c | 930 if (isintzero(f)) pari_err_BUG("polmodular_db_getp"); in polmodular_db_getp() 1785 if (!isintzero(j_powers)) Tp = eval_modpoly_modp(Tp, j_powers, ne, derivs); in polmodular_worker()
|
/dports/math/pari/pari-2.13.3/src/headers/ |
H A D | pariinl.h | 816 if (!isintzero(gel(x, i))) return 0; in QV_isscalar() 1461 if (isintzero(b)) return cxcompotor(a, prec); in gtofp() 1462 if (isintzero(a)) { in gtofp() 2068 INLINE int isintzero(GEN x) { return typ(x) == t_INT && !signe(x); } in isintzero() function
|
/dports/math/pari/pari-2.13.3/src/modules/ |
H A D | algebras.c | 50 if (isintzero(rnf) || !gequal0(alg_get_char(al))) return 1; in checkalg_i() 88 if (isintzero(alg_get_splittingfield(al)) || !gequal0(alg_get_char(al))) return al_TABLE; in alg_type() 830 if (!isintzero(dec1)) { in try_fact() 905 if (isintzero(dec)) in alg_decompose_total() 1436 mt = check_mt_noid(mt0, isintzero(p)? NULL: p); in algisassociative()
|