/dports/math/pari/pari-2.13.3/src/functions/symbolic_operators/ |
H A D | eq | 16 (gen, 1):bool gequal1($1)
|
/dports/math/pari/pari-2.13.3/src/basemath/ |
H A D | dirichlet.c | 143 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 D | gen2.c | 374 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 D | buch4.c | 570 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 D | RgX.c | 1730 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 D | polarit1.c | 271 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 D | aprcl.c | 604 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 D | polarit2.c | 53 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 D | hnf_snf.c | 851 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 D | trans3.c | 2083 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 D | gen1.c | 251 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 D | FpXX.c | 465 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 D | bibli2.c | 494 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 D | RgV.c | 1000 if (!gequal1(gel(c,i++))) return 0; in RgM_isidentity() 1015 if (!gequal1(c) || j) return 0; in RgC_is_ei()
|
H A D | zetamult.c | 477 if (a <= 0 || (a == 1 && i == 1 && gequal1(zi))) in aztoe() 614 else if (!_1 && gequal1(xi)) _1 = i; in zetamultevec()
|
H A D | lfun.c | 154 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 D | trans1.c | 1032 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 D | base5.c | 238 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 D | hypergeom.c | 691 if (gequal1(z)) in F21_i() 1111 if (gequal1(z)) return sumz(N, D, 1, prec); in hypergeom_i()
|
H A D | base2.c | 1913 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 D | gen3.c | 1252 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 D | pariold.h | 102 #define gcmp1 gequal1
|
/dports/math/pari/pari-2.13.3/src/modules/ |
H A D | stark.c | 740 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 D | test.tst | 207 (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 D | intnum.c | 1751 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()
|