/dports/math/pari/pari-2.13.3/src/basemath/ |
H A D | Flv.c | 78 U2 = vecslice(U, n1 + 1, n); in Flm_rsolve_upper_pre() 100 GEN B1 = vecslice(B, 1, 1); in Flm_lsolve_upper_2() 101 GEN B2 = vecslice(B, 2, 2); in Flm_lsolve_upper_2() 120 U2 = vecslice(U, n1 + 1, n); in Flm_lsolve_upper_pre() 124 B1 = vecslice(B, 1, n1); in Flm_lsolve_upper_pre() 125 B2 = vecslice(B, n1 + 1, n); in Flm_lsolve_upper_pre() 158 L1 = vecslice(L, 1, m1); in Flm_rsolve_lower_unit_pre() 176 GEN X2 = vecslice(A, 2, 2); in Flm_lsolve_lower_unit_2() 198 L1 = vecslice(L, 1, m1); in Flm_lsolve_lower_unit_pre() 200 A1 = vecslice(A, 1, m1); in Flm_lsolve_lower_unit_pre() [all …]
|
H A D | qfsolve.c | 53 return shallowconcat(ZM_lll(vecslice(U,1,m-n), 0.99, LLL_INPLACE), in completebasis() 54 vecslice(U, m-n+1,m)); in completebasis() 301 V = rowpermute(vecslice(G3, 2,n-1), mkvecsmall2(1,n)); in qflllgram_indefgoon() 331 U6 = mkvec3(mkmat(gel(U,1)), ZM_mul(vecslice(U,2,n-1),U5), mkmat(gel(U,n))); in qflllgram_indefgoon() 417 GEN G2 = vecslice(G,d+1,n); in blocks4() 491 U = shallowconcat(RgM_Rg_div(RgM_mul(vecslice(U,1,dimKer),K2), p), in qfminimize() 492 vecslice(U,dimKer+1,n)); in qfminimize() 1020 solG2 = vecslice(gel(solG2,2), 1, dim-1); in qfsolve_i()
|
H A D | arith2.c | 264 return mkmat2(vecslice(P,2,n), vecslice(gel(f,2),2,n)); in clean_Z_factor() 277 P2 = vecslice(P, i, l-1); P = vecslice(P, 1, i-1); in fuse_Z_factor() 278 E2 = vecslice(E, i, l-1); E = vecslice(E, 1, i-1); in fuse_Z_factor() 359 if (l>1 && signe(gel(P,1)) < 0) { E++; P = vecslice(P,2,--l); } in set_fact_check() 696 if (n && equalim1(gel(P,1))) E = vecslice(E,2,n); in bigomega()
|
H A D | char.c | 399 cyc = vecslice(cyc,i,l-1); in zv_cyc_minimize() 400 g = vecslice(g, i,l-1); in zv_cyc_minimize() 431 cyc = vecslice(cyc,k,l-1); in zv_cyc_minimal() 432 g = vecslice(g, k,l-1); in zv_cyc_minimal() 472 GEN cyc0 = vecslice(cyc,i+1,n), pre = zero_zv(i); in cyc2elts_normal() 1247 if (checkMF_i(D)) { chi = vecslice(MF_get_CHI(D),1,2); break; } in znchar() 1248 else if (checkmf_i(D)) { chi = vecslice(mf_get_CHI(D),1,2); break; } in znchar()
|
H A D | bb_hnf.c | 765 if (permute_zerocols && remove_zerocols==2) H = vecslice(H, nbz+1, n); in gen_howell_i() 766 if (remove_zerocols==1) H = vecslice(H, s+1, n); in gen_howell_i() 807 if (r<n2) *U = vecslice(*U, n2-r+1, n2); in gen_matimage() 968 X = vecslice(X, n2-n+1, n2); in gen_solve_from_howell() 1118 X = vecslice(X,1,n); in matsolvemod_finite()
|
H A D | buch2.c | 1797 GEN C2 = nW? vecslice(C, nW+1, lg(C)-1): C; in isprincipalall() 1802 GEN C1 = vecslice(C, 1, nW); in isprincipalall() 2614 Mt = shallowconcat(Mt, conj_i(vecslice(Mt, r1+1, r1+r2))); in automorphism_perms() 2948 d = det2(rowslice(vecslice(Im_mdet, 2, RU), 2, RU)); in compute_multiple_of_R() 3307 fu = vecslice(fu, 2, lg(fu)-1); in bnfnewprec_shallow() 3854 F.L_jid = vecslice(F.perm, 1, n); in Buchall_param() 3973 GEN E = vecslice(embs, k-l+1,k-1); in Buchall_param() 3989 F.L_jid = vecslice(F.perm, 1, need); in Buchall_param() 4009 F.L_jid = vecslice(F.perm, 1, need); in Buchall_param() 4110 GEN c = v? vecpermute(C,v): vecslice(C,1,zc); in Buchall_param() [all …]
|
H A D | alglin1.c | 905 U2 = vecslice(U, n1 + 1, n); in gen_rsolve_upper() 926 GEN B1 = vecslice(B, 1, 1); in gen_lsolve_upper_2() 927 GEN B2 = vecslice(B, 2, 2); in gen_lsolve_upper_2() 950 B1 = vecslice(B, 1, n1); in gen_lsolve_upper() 984 L1 = vecslice(L, 1, m1); in gen_rsolve_lower_unit() 1002 GEN X2 = vecslice(A, 2, 2); in gen_lsolve_lower_unit_2() 1026 L1 = vecslice(L, 1, m1); in gen_lsolve_lower_unit() 1028 A1 = vecslice(A, 1, m1); in gen_lsolve_lower_unit() 1081 *C = vecslice(A, 1, j - 1); in gen_CUP_basecase() 1156 A1 = vecslice(A, 1, n1); in gen_echelon() [all …]
|
H A D | hnf_snf.c | 205 perm = vecslice(perm, k+1, lg(perm)-1); in p_mat() 601 *pB = vecslice(x, k+n, lx-1); in mathnfspec() 634 GEN A = vecslice(C, col+1, co); in hnfadd_i() 641 Cnew = shallowconcat(extraC, vecslice(C, col-lH+1, co)); in hnfadd_i() 653 *ptC = shallowconcat(vecslice(C, 1, col-lH), Cnew); in hnfadd_i() 886 gel(C,j) = vecslice(gel(A,j), 1,j); in hnfmerge_get_1() 887 gel(C,c) = vecslice(gel(B,j), 1,j); in hnfmerge_get_1() 2350 V0 = vecslice(V, 1, n0 - n); /* kernel */ in ZM_snfall_i() 2351 V = vecslice(V, n0-n+1, n0); in ZM_snfall_i()
|
H A D | kummer.c | 575 tu = gel(U,1); fu = vecslice(U, 2, lg(U)-1); in futu() 599 *pselmer = shallowconcat(futu(bnf), vecslice(B,1,rc)); in bnf_cycgenmod() 692 U1 = vecslice(vell, 1, ru); /* units */ in kervirtualunit() 693 U2 = vecslice(vell, ru+1, ru+rc); /* cycgen (mod ell-th powers) */ in kervirtualunit()
|
H A D | ecpp.c | 168 gel(w,1) = zv_prod_Z(vecslice(v,1,ind[1])); in primorial_vec() 172 GEN q = mulii(gel(w,i-1), zv_prod_Z(vecslice(v,ind[i-1]+1,ind[i]))); in primorial_vec() 921 return vecslice(Dmqvec, lo, hi); in Dmqvec_slice()
|
H A D | mftrace.c | 835 return (l == n2)? v: vecslice(v, 1, n2-1); in sertovecslice() 1319 else vF = vecslice(vF, sh+1, n1+1); in c_shift() 4483 ME = mfvectomat(vecslice(M,1,j-1), n, 1); in mflineardivtomat() 4484 M = vecslice(M, j,lM-1); in mflineardivtomat() 4967 return mkvec2(vecslice(id, d-d2+1,d), in split_starting_space() 5087 v = mkvec2(vecslice(gel(v,1),1,j-1), vecslice(P,1,j-1)); in dim_filter() 8085 V = vecslice(V, 1, n + 1); in mf2gaexpansion() 8093 V = vecslice(V, sh+1, n + sh+1); in mf2gaexpansion() 9675 D = vecslice(D, 2, l); in getcols_i() 10382 if (!gequal0(vecslice(v,1,nE))) in mfspace_i() [all …]
|
H A D | buch3.c | 54 H = zm_to_ZM( vecslice(v, t+1, r1) ); /* supplement H of sgn(U) */ in bnfnarrow() 514 U = mkvec3(vecslice(U, 1,ngen), vecslice(U,ngen+1,lg(U)-1), Ui); in Buchraymod_i() 1236 S.fu = vecslice(U,2,lg(U)-1); in bnfcertify0() 1320 v = vecslice(w,l,lg(w)-1); in bnrchar_i() 2505 Z = vecslice(Z, 1, sqbou); in discrayabslistarch()
|
H A D | lll.c | 60 g = vecslice(h,1,k); /* done first: vectail_inplace kills h */ in lll_finish() 792 return ZM_lll(vecslice(U,1,d), LLLDFT, LLL_INPLACE); in kerint0()
|
H A D | base2.c | 208 P = vecslice(P, 2, l); in nfmaxord_check_args() 209 E = vecslice(E, 2, l); in nfmaxord_check_args() 352 P = shallowconcat(P, vecslice(u, 2, l-1)); in get_maxord() 2229 M2 = vecslice(M, r+1,N); /* M = (H|M2) invertible */ in primedec_aux() 3255 GEN mek = vecslice(MW, (k-1)*n+1, k*n), Ck; in rnfmaxord() 3484 A = shallowconcat(vecslice(A,n+1,lg(A)-1), vecslice(A,1,n)); in rnfallbase() 3784 col= gel(A,n); A = vecslice(A, 1, n-1); in rnfbasis()
|
H A D | buch1.c | 485 no = gclone(vecslice(B->vperm, 1, lgsub-1)); in subFBquad() 1073 BQ.subFB = gclone(vecslice(BQ.vperm, 1, nsubFB)); in Buchquad()
|
H A D | zetamult.c | 388 *pwmid = wmid = a+b < s? vecslice(evec, a+1, s-b): cgetg(1, t_VECSMALL); in findabvgen() 509 *pwmid = wmid = a+b < s? vecslice(evec, a+1, s-b): cgetg(1, t_VECSMALL); in findabvgens()
|
H A D | bnflog.c | 441 D = vecslice(D,2,lg(D)-1); in bnflog_i()
|
H A D | galconj.c | 2444 GEN v = vecsmall_concat(vecslice(g,1,i-o+1),gel(pw,g[i])); in pc_normalize() 2445 GEN w = vecsmall_concat(v,vecslice(g,i+2,l)); in pc_normalize() 2451 GEN v = vecsmall_concat(vecslice(g,1,i-1), br_get(br,g[i],g[i+1])); in pc_normalize() 2452 GEN w = vecsmall_concat(mkvecsmall2(g[i+1],g[i]),vecslice(g,i+2,l)); in pc_normalize() 2662 GEN ordH = vecslice(ord,2,lg(ord)-1); in nilp_froblift() 2760 pf = nilp_froblift(vecslice(res1,1,j), PG3, j, PG5, gel(PG2,j), incl, H, &gl, gp); in galoisgenlift_nilp()
|
H A D | base3.c | 2561 if (lg(Ld) > 1 && equaliu(gel(Ld,1),2)) Ld = vecslice(Ld,2,lg(Ld)-1); in sprkinit() 2770 gel(vU,k) = vecslice(U, t+1, t+n); in split_U() 2775 if (!n) setlg(vU,l); else gel(vU,l) = vecslice(U, t+1, t+n); in split_U() 3315 : ZM_ZMV_mul(vecslice(U, 1, l1-1), U1); in join_bid() 3317 : ZM_ZMV_mul(vecslice(U, l1, nbgen), U2); in join_bid()
|
H A D | mellininv.c | 151 gel(V, m++) = vecslice(P,i,k-1); in gammapoles()
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/modules/ |
H A D | elldata.c | 151 return gerepilecopy(ltop, vecslice(gel(V,i),2, lg(gel(V,i))-1)); in ellcondlist() 225 M = coordch(vecslice(E,1,5),gel(G,2)); in ellidentify()
|
/dports/math/pari/pari-2.13.3/src/modules/ |
H A D | elldata.c | 132 return vecslice(v,2, lg(v)-1); in ellcondlist() 215 M = ellchangecurve(vecslice(E,1,5),gel(G,2)); in ellidentify()
|
/dports/math/p5-Math-Pari/pari-2.3.5/src/basemath/ |
H A D | alglin2.c | 1742 perm = vecslice(perm, k+1, lg(perm)-1); in p_mat() 2141 *ptB = vecslice(x, j+lx-ly, lx-1); in mathnfspec() 2198 GEN A = vecslice(C, col+1, co); in hnfadd_i() 2205 Cnew = shallowconcat(extraC, vecslice(C, col-lH+1, co)); in hnfadd_i() 2217 *ptC = shallowconcat(vecslice(C, 1, col-lH), Cnew); in hnfadd_i() 2328 gel(C,j) = vecslice(gel(A,j), 1,j); in hnfmerge_get_1() 2329 gel(C,c) = vecslice(gel(B,j), 1,j); in hnfmerge_get_1() 3269 V0 = vecslice(V, 1, n0 - n); /* kernel */ in smithall() 3270 V = vecslice(V, n0-n+1, n0); in smithall()
|
H A D | buch1.c | 1052 no = gclone(vecslice(vperm, 1, lgsub-1)); in subFBquad() 1606 subFB = gclone(vecslice(vperm, 1, nsubFB)); in buchquad()
|
/dports/math/pari/pari-2.13.3/src/language/ |
H A D | members.c | 377 fu = vecslice(fu, 2, lg(fu)-1); /* remove torsion unit */ in member_fu()
|