Home
last modified time | relevance | path

Searched refs:gequal1 (Results 1 – 25 of 63) sorted by relevance

123

/dports/math/pari/pari-2.13.3/src/functions/symbolic_operators/
H A Deq16 (gen, 1):bool gequal1($1)
/dports/math/pari/pari-2.13.3/src/basemath/
H A Ddirichlet.c143 if (!gequal1(s)) err_direuler(s); in direuler_factor()
160 if (!gequal1(p)) s = RgX_Rg_mul(s, p); in direuler_factor()
161 if (!signe(s) || !gequal1(gel(s,2))) err_direuler(s); in direuler_factor()
165 if (!signe(s) || valp(s) || !gequal1(gel(s,2))) err_direuler(s); in direuler_factor()
H A Dgen2.c374 gequal1(GEN x) in gequal1() function
390 return gequal1(gel(x,2)) || gequal1(gel(x,1)); in gequal1()
399 return gequal1(gel(x,1)) && gequal0(gel(x,2)); in gequal1()
402 return !valp(x) && gequal1(gel(x,4)); in gequal1()
405 return gequal1(gel(x,2)) && gequal0(gel(x,3)); in gequal1()
407 case t_POL: return is_monomial_test(x, 0, &gequal1); in gequal1()
408 case t_SER: return is_monomial_test(x, valp(x), &gequal1); in gequal1()
411 case t_COL: return col_test(x, &gequal1); in gequal1()
412 case t_MAT: return mat_test(x, &gequal1); in gequal1()
2188 if (vx < 0 || !gequal1(z)) pari_err_OP("",x, mkintmod(gen_1,Y)); in padic_to_Fp()
H A Dbuch4.c570 if (!gequal1(leading_coeff(R))) pari_err_IMPL("non monic relative equation"); in rnfisnorminit()
643 if (gequal1(x)) { set_avma(av); return mkvec2(gen_1, gen_1); } in rnfisnorm()
705 if (!gequal1(aux)) x = gdiv(x, gnorm(aux)); in rnfisnorm()
H A DRgX.c1730 default: if (gequal1(y_lead)) y_lead = NULL; in RgX_divrem_i()
1891 if (gequal1(lead)) return RgX_copy(x); in RgXQX_divrem()
1896 lead = gequal1(lead)? NULL: gclone(ginvmod(lead,T)); in RgXQX_divrem()
1970 if (gequal1(y_lead)) return signe(RgXQX_rem(x, y, T)) == 0; in ZXQX_dvd()
1971 T_ismonic = gequal1(leading_coeff(T)); in ZXQX_dvd()
2028 if (gequal1(y_lead)) return T? RgXQX_rem(x, y, T): RgX_rem(x, y); in RgXQX_pseudorem()
2096 if (gequal1(y_lead)) return T? RgXQX_divrem(x,y, T, ptr): RgX_divrem(x,y, ptr); in RgXQX_pseudodivrem()
2386 if (!gequal1(a)) b = gmul(b, gsqr(a)); in RgXn_inv_i()
2574 if (degpol(h)<0 || !gequal1(gel(h,2))) in RgXn_sqrt()
2719 if (gequal1(L) || !signe(x)) return y; in RgXQ_norm()
H A Dpolarit1.c271 if (gequal1(lead)) return ZX_to_ZpX(x, p, pr, r); in ZX_to_ZpX_normalized()
593 if (!gequal1(lt)) gel(P,1) = gmul(gel(P,1), lt); in factorpadic()
H A Daprcl.c604 if (!gequal1(b)) break; in finda()
615 if (!gequal1(b)) return NULL; in finda()
675 if (!gequal1( modZ( mulii(a, gel(vpa,ph)), R) )) return 0; in filltabs()
H A Dpolarit2.c53 P_lead = gel(P,dP); if (gequal1(P_lead)) P_lead = NULL; in polsym_gen()
871 if (!gequal1(y)) { in gauss_factor()
1538 if (gequal1(gel(z,1))) gel(z,2) = gen_0; in ggcd()
1721 if (!gequal1(d)) { X = gdiv(X,d); Y = gdiv(Y,d); } in ggcd()
1822 if (!gequal1(z)) in glcm()
2001 if (gequal1(c)) { set_avma(av); c = NULL; } in primitive_part()
2427 if (gequal1(y)) return x; in gdivexact()
3316 if (!gequal1(L)) ch = RgX_Rg_div(ch, L); in RgXQ_charpoly()
3584 if (dd && !gequal1(L)) D = (dd == -1)? gdiv(D, L): gmul(D, gpowgs(L, dd)); in RgX_disc_i()
3675 if (!gequal1(gel(x,n+2))) in reduceddiscsmith()
H A Dhnf_snf.c851 if (U && !gequal1(d)) gel(U,j0) = RgC_Rg_div(gel(U,j0), d); in RgM_reduce()
2528 if (gequal1(gel(z,c))) break; in smithclean()
2539 if (gequal1(gcoeff(D,c,d))) break; in smithclean()
2544 if (gequal1(gcoeff(D,c,d))) break; in smithclean()
2549 if (gequal1(gcoeff(D,c,c))) break; in smithclean()
2651 if (B && !gequal1(d)) gel(B, def) = RgC_Rg_div(gel(B, def), d); in RgM_hnfall()
2738 if (all && !gequal1(d)) gel(V,k) = RgC_Rg_div(gel(V,k), d); in RgXM_snf()
H A Dtrans3.c2083 long j, fls = !gequal1(s), J = (((p==2)? (prec >> 1): prec) + 2) >> 1; in init_cache()
2105 if (D == 1 && gequal1(s)) in zetap_i()
2151 if (gequal1(x)) pari_err_DOMAIN("zeta", "argument", "=", gen_1, x); in gzeta()
2261 if (gequal1(s)) pari_err_DOMAIN("zetahurwitz", "s", "=", gen_1, s0); in zetahurwitz()
2297 prpr = (lg(y) + v + 1)/v; if (gequal1(s0)) prpr += v; in zetahurwitz()
2301 if (gequal1(s0) && (!sch || gequal0(sch))) in zetahurwitz()
2421 if (gequal1(x)) return szeta(m,prec); in cxpolylog()
2595 if (gequal1(x) && m>=2) return m2? szeta(m,prec): gen_0; in polylogD()
2627 if (gequal1(x) && m>=2) return m2? szeta(m,prec): gen_0; in polylogP()
H A Dgen1.c251 if (!gequal1(cd)) { in gred_rfrac_simple()
253 if (!gequal1(cn)) in gred_rfrac_simple()
267 if (!gequal1(cn)) in gred_rfrac_simple()
483 if (!gequal1(a)) z = gdiv(z, a); in quad_polmod_norm()
1391 if (typ(x) == t_INT && gequal1(x)) return gcopy(y); /* fall through */ in mul_scal()
2278 c = gel(x,2); if (gequal1(c)) return x; in ser_normalize()
3166 if (gequal1(n)) { set_avma(av); return RgX_copy(d); } in ginv()
H A DFpXX.c465 if (gequal1(lead)) return FpXQX_red(x,T,p); in FpXQX_divrem_basecase()
470 lead = gequal1(lead)? NULL: gclone(Fq_inv(lead,T,p)); in FpXQX_divrem_basecase()
851 if (dd && !gequal1(L)) in FpXQX_disc()
913 if (!gequal1(gel(x,0))) u = Fq_mul(u, Fq_sqr(gel(x,0), T, p), T, p); in FpXQX_invBarrett_Newton()
960 if (!gequal1(c)) in FpXQX_invBarrett()
H A Dbibli2.c494 if (gequal1(x)) in polcyclo_eval()
868 if (gequal1(c)) in dirmul()
906 if (gequal1(p1)) p1 = NULL; else y = gdiv(y,p1); in dirdiv()
916 if (gequal1(c)) in dirdiv()
H A DRgV.c1000 if (!gequal1(gel(c,i++))) return 0; in RgM_isidentity()
1015 if (!gequal1(c) || j) return 0; in RgC_is_ei()
H A Dzetamult.c477 if (a <= 0 || (a == 1 && i == 1 && gequal1(zi))) in aztoe()
614 else if (!_1 && gequal1(xi)) _1 = i; in zetamultevec()
H A Dlfun.c154 return gequal1(c) || gequalm1(c); in vgaell()
166 if (gequal1(c)) in antwist()
803 return gmul(x, gmul2n(gequal1(a)? t: gpow(t,a,prec), 1)); in mulT()
2268 if (ldata_isreal(ldata)) { st = 2; if (!gequal1(eno)) c0 = 1; } in lfunorderzero()
H A Dtrans1.c1032 if (gequal1(lead)) return ser_pow_1(x, n); in ser_pow()
1497 if (gequal1(lta)) ltx = lta; in sqrt_ser()
1673 else if (gequal1(modii(a, p))) in Qp_log()
3257 if (!gequal1(gel(y,2))) p1 = gadd(p1, glog(gel(y,2),prec)); in glog()
3884 if (!gequal1(y0)) y10 = gdiv(y10, y0); in gsinc()
H A Dbase5.c238 dzknf = gel(zknf,1); if (gequal1(dzknf)) dzknf = NULL; in mkupdown()
399 if (gequal1(dzknf)) dzknf = NULL; in nfeltup()
979 if (gequal1(gcoeff(x,1,1))) y = M; in findmin()
H A Dhypergeom.c691 if (gequal1(z)) in F21_i()
1111 if (gequal1(z)) return sumz(N, D, 1, prec); in hypergeom_i()
H A Dbase2.c1913 if (gequal1(gcoeff(x,i,i))) gel(y,j++) = gel(x,i); in Fp_basis()
3009 if (!only_maximal && !gequal1(leading_coeff(P))) in rnfdedekind_i()
3377 if (!gequal1(leading_coeff(pol))) in rnfallbase()
3412 if (gequal1(dzknf)) dzknf = NULL; in rnfallbase()
3424 if (A && gequal1(A)) A = NULL; in rnfallbase()
H A Dgen3.c1252 if (typ(T) == t_POL && RgX_is_monomial(T) && gequal1(leading_coeff(T))) in gsubstpol()
1822 if (gequal1(t)) b0 = b; in rfrac_deriv()
1853 else if (!gequal1(T)) in rfrac_deriv()
4058 if (equali1(y)) return gequal1(x); in _egal_i()
4063 if (equali1(x)) return gequal1(y); in _egal_i()
/dports/math/pari/pari-2.13.3/src/headers/
H A Dpariold.h102 #define gcmp1 gequal1
/dports/math/pari/pari-2.13.3/src/modules/
H A Dstark.c740 else if (gequal1(z)) in AChi()
1104 if (gequal1(chi2)) c = NULL; else { Polmod2Coeff(c2, chi2, deg); c = c2; } in an_AddMul()
1466 if (!gequal1(z)) return NULL; in chk_reccoeff()
1615 if (gequal1(chi)) return; in an_mul()
2209 while (gequal1(gel(cond1,v))) v++; in AllStark()
2369 if (gequal1(ZM_det_triangular(subgrp))) { set_avma(av); return pol_x(0); } in bnrstark()
/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/modules/pari/
H A Dtest.tst207 (pari:gequal1 (pari:isprime 139)) T
681 ("_==_" PARI:gequal PARI:gequal0 PARI:gequal1 PARI:gequalm1 PARI:_==_)
/dports/math/pari/pari-2.13.3/src/language/
H A Dintnum.c1751 if (gequal1(a)) a = NULL; in sumnummonieninit_i()
2283 if (gequal1(F)) return real_1(prec); in prodnumrat()
2440 if (gequal1(F)) return real_1(prec); in prodeulerrat()
2671 if (!gequal1(S)) s = gdiv(s,S); in sumnumlagrange()

123