/dports/math/pari/pari-2.13.3/src/kernel/none/ |
H A D | halfgcd.c | 192 return gerepilecopy(av, mkvec3(mkmat22(u,u1,v,v1), a, b)); in HGCD_basecase() 213 return gerepilecopy(av, mkvec3(matid2(), a, b)); in HGCD_split() 218 return gerepilecopy(av, mkvec3(R, a, b)); in HGCD_split() 224 return gerepilecopy(av, mkvec3(R, ap, bp)); in HGCD_split() 230 return gerepilecopy(av, mkvec3(R, c, d)); in HGCD_split() 240 return gerepilecopy(av, mkvec3(T, cp, dp)); in HGCD_split() 260 return mkvec3(mkmat22(gcoeff(Q,2,1),gcoeff(Q,2,2),gcoeff(Q,1,1),gcoeff(Q,1,2)), in HGCD0() 266 return mkvec3(mkmat22(negi(gcoeff(Q,2,1)),negi(gcoeff(Q,2,2)), in HGCD0() 273 return mkvec3(mkmat22(gcoeff(Q,1,1),gcoeff(Q,1,2),negi(gcoeff(Q,2,1)),negi(gcoeff(Q,2,2))), in HGCD0()
|
/dports/math/pari/pari-2.13.3/src/functions/gp2c_internal/ |
H A D | _tovec | 8 (gen,gen,gen):vec mkvec3($1, $2, $3) 19 (gen,gen):vec:prec mkvec3($1, $2, stoi($prec))
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/functions/gp2c_internal/ |
H A D | _tovec | 7 (gen,gen,gen):vec mkvec3($1, $2, $3)
|
/dports/math/pari/pari-2.13.3/examples/ |
H A D | pari-mt.c | 21 in = mkvec3(mkvec2(N1,gen_0), mkvec2(N2,gen_0), mkvec2(M,gen_1)); in main()
|
/dports/math/pari/pari-2.13.3/src/functions/conversions/ |
H A D | Str | 9 (gen,gen,gen):genstr Str(mkvec3($1, $2, $3))
|
/dports/math/pari/pari-2.13.3/src/basemath/ |
H A D | ellisog.c | 79 return gerepilecopy(av, mkvec3(f,g,K)); in ellcompisog() 161 return gerepilecopy(av, gmul(mkvec3(f,g,K),gmodulo(gen_1,T))); in ellnfcompisog() 198 { return mkvec3(pol_x(vx), pol_x(vy), pol_1(vx)); } in isog_identity() 312 return mkvec2(EE, mkvec3(f,g, gel(isog,3))); in isogeny_from_kernel_point() 602 return mkvec2(EE, mkvec3(f,g,kerp)); in isogeny_from_kernel_poly() 656 return mkvec3(pol_x(0), scalarpol(pol_x(1), 0), pol_1(0)); in trivial_isogeny() 704 else return mkvec3(c4t, c6t, jt); in ellisog_by_Kohel() 806 return mkvec3(c4t, c6t, jt); in ellisog_by_jt() 881 return flag ? mkvec3(c4, c6, j): in ellisograph_a4a6() 941 gel(V, n) = mkvec3(gel(E,1), gel(E,2), gel(E,3)); in etree_listr() [all …]
|
H A D | hypergeom.c | 885 return FBaux1(mkvec3(a,b1,c1), mkvec2(b,e1), coe1, mkvec3(b,e1,c2), in F21taylor1() 913 return FBaux1(mkvec3(a,b,c1), mkvec2(a2,b2), gen_1, mkvec3(a2,b2,c2), in F21taylor4() 946 return FBaux1(mkvec3(a,b1,c1), mkvec2(d1,e1), coe1, in F21taylor5() 947 mkvec3(d1,b2,c2), mkvec2(a, b), coe2, z1, bma, prec, prec); in F21taylor5() 984 return FBaux1(mkvec3(a,b1,c1), mkvec2(b,e1), coe1, in F21taylor6() 985 mkvec3(b,b2,c2), mkvec2(a,e2), coe2, z1, bma, prec, prec); in F21taylor6() 1075 void *E = (void*)mkvec3(N, D, utoi(prec)); in sumz()
|
H A D | buch3.c | 221 if (lg(U) == 1) return mkvec3(h, cyc, cgetg(1, t_VEC)); in bnr_grp() 318 return mkvec3(h, cyc, basecl); in bnr_grp() 467 U = mkvec3(U, cgetg(1,t_MAT), U); in Buchraymod_i() 468 vu = mkvec3(cgetg(1,t_MAT), matid(RU), gen_1); in Buchraymod_i() 486 vu = mkvec3(u2,u1,c2); /* u2/c2 = H^(-1) (mod Im u1) */ in Buchraymod_i() 1674 return mkvec3(cond, bnrc, H); in bnrconductormod() 2007 return mkvec3(utoipos(n), utoi(r1), dk); in bnrdisc_i() 2199 if (nz < 0) return mkvec3(gen_0,gen_0,gen_0); /*EMPTY*/ in get_NR1D() 2205 return mkvec3(utoipos(n), in get_NR1D() 2323 return mkvec3(fa, cyc, U_pr); in zsimpjoin() [all …]
|
H A D | F2xqE.c | 445 D = F2xq_mul(D, v, T); return mkvec3(N, D, point); in F2xqE_Miller_dbl() 460 D = F2xq_mul(D, v, T); return mkvec3(N, D, point); in F2xqE_Miller_add() 473 v = gen_pow_i(mkvec3(g1,g1,Q), m, (void*)&d, F2xqE_Miller_dbl, F2xqE_Miller_add); in F2xqE_Miller() 601 return mkvec3(z,f0,f1); in _can_iter() 699 r = mkvec3(Dy, Dx, TM); in _lift_invd()
|
H A D | FpE.c | 98 return mkvec3(gen_1, gen_1, gen_0); in FpJ_add() 116 return mkvec3(icopy(gel(Q,1)), Fp_neg(gel(Q,2), p), icopy(gel(Q,3))); in FpJ_neg() 121 { return ell_is_inf(P) ? mkvec3(gen_1, gen_1, gen_0): in FpE_to_FpJ() 122 mkvec3(icopy(gel(P,1)),icopy(gel(P,2)), gen_1); in FpE_to_FpJ() 556 D = Fp_mul(D, v, p); return mkvec3(N, D, point); in FpE_Miller_dbl() 571 D = Fp_mul(D, v, p); return mkvec3(N, D, point); in FpE_Miller_add() 584 v = gen_pow_i(mkvec3(gen_1,gen_1,Q), m, (void*)&d, in FpE_Miller() 1784 D = FpXQ_mul(D, v, T, p); return mkvec3(N, D, point); in FpXQE_Miller_dbl() 1801 D = FpXQ_mul(D, v, T, p); return mkvec3(N, D, point); in FpXQE_Miller_add() 1815 v = gen_pow_i(mkvec3(g1,g1,Q), m, (void*)&d, in FpXQE_Miller()
|
H A D | msfarey.c | 125 if (!def) return mkvec3(V, ast, gam); in rectify() 178 return mkvec3(V1, a1, g1); in rectify()
|
H A D | subcyclo.c | 124 setlg(ord,r+1); return gerepilecopy(av, mkvec3(gen,ord,bits)); in znstar_generate() 508 gel(grp,2) = mkvec3(stoi(l), stoi(val), icopy(le)); in galoiscyclo() 556 return mkvec3(bnr_get_no(bnr), bnr_get_cyc(bnr), v); in bnr_to_abgrp() 581 N = mkvec3(znstar_get_no(N), znstar_get_cyc(N), in galoissubcyclo()
|
H A D | elltors.c | 581 if (is_pm1(d1)) return mkvec3(gen_1,cgetg(1,t_VEC),cgetg(1,t_VEC)); in ellnftors() 582 if (is_pm1(d2)) return mkvec3(d1, mkvec(d1), mkvec(nfpt(e,P1))); in ellnftors() 583 return mkvec3(mulii(d1,d2), mkvec2(d1,d2), mkvec2(nfpt(e,P1),nfpt(e,P2))); in ellnftors()
|
H A D | bb_group.c | 392 case 0: return mkvec3(grp->pow(E,a,gen_2), Fp_mulu(b,2,q), Fp_mulu(c,2,q)); in iter_rho() 393 case 1: return mkvec3(grp->mul(E,a,x), addiu(b,1), c); in iter_rho() 394 case 2: return mkvec3(grp->mul(E,a,g), b, addiu(c,1)); in iter_rho() 409 A = B = mkvec3(x,gen_1,gen_0); in gen_Pollard_log()
|
H A D | lfun.c | 356 setlg(b, c); setlg(f, c); return mkvec3(R, mkvec2(a,e), mkvec2(b,f)); in gammafactor() 668 return mkvec3(mkvecsmall(t_LDESC_THETA), ldata, tech); in lfunthetainit0() 1275 tech = mkvec3(domain, tech, mkvec4(k2, w2, expot, gammafactor(Vga))); in lfuninit_make() 1276 return mkvec3(mkvecsmall(t), ldata, tech); in lfuninit_make() 1468 tech = mkvec3(h, AB, R); in lfuninit() 1584 *dom = mkvec3(real_i(sa), gen_0, gabs(imag_i(sa),DEFAULTPREC)); in get_domain() 1883 dom = mkvec3(gmul2n(k, -1), gen_0, gabs(t,LOWDEFAULTPREC)); in lfunhardy() 2163 return gerepilecopy(ltop, mkvec3(r, R, w)); in lfunrootres() 2212 return gerepilecopy(ltop, mkvec3(r, R, ropm1(w, prec))); in lfunrootres()
|
H A D | bnflog.c | 402 if (prec == 1) return mkvec3(cgetg(1,t_VEC), cgetg(1,t_VEC), cgetg(1,t_VEC)); in bnflog_i() 442 return mkvec3(D, CLt, ellsylow(cycAp, ell)); in bnflog_i()
|
H A D | Ser.c | 248 x = RgV_to_ser_i(mkvec3(gel(x,1),gel(x,2),gel(x,3)), v, prec+2, 1); in gtoser_prec()
|
H A D | ecpp.c | 444 return gerepilecopy(av, mkvec3(mkvec4(T,Plist,Dlist,Olist), primorial, tune)); in ecpp_param_set() 563 GEN PJ = mkvec3(gel(P,1), gel(P,2), gen_1); in NqE_check() 944 gel(v,i) = mkvec3(gel(Dm,1), gel(Dm,2), q); in Dmvec_batchfactor() 1203 X0 = mkvec3(Tv, Cv, zero_zv(1)); in ecpp0()
|
H A D | FlxqE.c | 426 D = Flxq_mul(D, v, T, p); return mkvec3(N, D, point); in FlxqE_Miller_dbl() 443 D = Flxq_mul(D, v, T, p); return mkvec3(N, D, point); in FlxqE_Miller_add() 457 v = gen_pow_i(mkvec3(g1,g1,Q), m, (void*)&d, in FlxqE_Miller() 640 return mkvec3(V,xp,yp); in _lift_iter() 788 GEN F = mkvec3(x1, TM, XM); in _teich_invd()
|
H A D | mftrace.c | 489 return mkvec3(Pm, Pn, T); in Qab_trace_init() 3840 return mkvec3(y, Minv, M); in mfclean2() 3858 return mkvec3(y, Minv, M); in mfclean() 5281 return mkvec3(mkvecsmall2(lim, p), mf, M); in mfwt1_pre() 7925 return mkvec3(almin, utoi(w), M); 8009 return mkvec3(almin, utoi(w), B); in mfgaexpansion_i() 8056 return mkvec3(al, w, V); in mfthetaexpansion() 8114 return mkvec3(gen_0, utoipos(Q), V); in mfgaexpansionatkin() 8790 mf = mfinit(mkvec3(N, gk, chi), space); in mffromqf() 9599 return mkvec3(vCHI, bymod, vG); in charsmodN() [all …]
|
H A D | Qfb.c | 844 return mkvec3(c,B,C); in qfr3_rho() 1276 gel(L, k++) = mkvec3(a,b,c); in normforms() 1391 return gerepilecopy(ltop, mkvec2(mkvec3(a,b,c),N)); in redrealsl2step() 1419 return gerepilecopy(ltop, mkvec2(mkvec3(a,b,c), M)); in redrealsl2()
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/language/ |
H A D | members.c | 248 case typ_QUA: return mkvec3(gel(x,1), gel(x,2), gel(x,3)); in member_clgp() 547 return mkvec3(gel(x,15), gel(x,16), gel(x,17)); in member_tate()
|
/dports/math/pari/pari-2.13.3/src/modules/ |
H A D | thue.c | 191 gel(L,n++) = mkvec3(A,U,PR); in get_prime_info() 785 tnf = mkvec3(mkvec3(POL,C,L), thueinit(f, flag, prec), E); in thueinit() 797 tnf = mkvec3(mkvec3(POL,C,L), mkvecsmall4(degpol(f), e, va,vb), R); in thueinit() 851 setsigne(c0,1); c0 = invr(c0); tnf = mkvec3(pol, bnf, c0); in thueinit() 853 gel(tnf,1) = mkvec3(gel(tnf,1), C, L); in thueinit() 1344 ne = shallowconcat1(mkvec3(ne, RgXQV_RgXQ_mul(ne,u,POL), in thue()
|
H A D | elldata.c | 96 return gerepilecopy(av, shallowconcat1(mkvec3(f, ellrecode(itos(c)), s))); in ellconvertname()
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/basemath/ |
H A D | buch3.c | 86 return gerepilecopy(av, mkvec3(shifti(gel(clgp,1), r1-t), met,basecl)); in buchnarrow() 1390 return gerepilecopy(av, mkvec3(mod, (all == 1)? gel(bnr2,5): bnr2, H)); in conductor() 1593 return gerepilecopy(av, mkvec3(clhray, stoi(nz), dlk)); in Discrayrel() 1833 return mkvec3(utoipos(n), in get_NR1D() 1843 return mkvec3(mkmat2(gel(fa,1), vec_to_vecsmall(gel(fa,2))), in get_discdata() 2202 EMPTY = mkvec3(gen_0,gen_0,gen_0); in discrayabslistarch()
|