/dports/math/singular/Singular-Release-4-2-1/kernel/linear_algebra/ |
H A D | eigenval.cc | 33 MATELEM(M,i,k)=MATELEM(M,j,k); in evSwap() 34 MATELEM(M,j,k)=p; in evSwap() 40 MATELEM(M,k,i)=MATELEM(M,k,j); in evSwap() 41 MATELEM(M,k,j)=p; in evSwap() 49 if(MATELEM(M,i,k)==NULL||MATELEM(M,j,k)==NULL) in evRowElim() 60 MATELEM(M,i,l)=pSub(MATELEM(M,i,l),ppMult_qq(p,MATELEM(M,j,l))); in evRowElim() 65 MATELEM(M,l,j)=pAdd(MATELEM(M,l,j),ppMult_qq(p,MATELEM(M,l,i))); in evRowElim() 78 if(MATELEM(M,k,i)==0||MATELEM(M,k,j)==0) in evColElim() 81 poly p=pNSet(nDiv(pGetCoeff(MATELEM(M,k,i)),pGetCoeff(MATELEM(M,k,j)))); in evColElim() 86 MATELEM(M,l,i)=pSub(MATELEM(M,l,i),ppMult_qq(p,MATELEM(M,l,j))); in evColElim() [all …]
|
H A D | linearAlgebra.cc | 138 MATELEM(uMat, r, c) = MATELEM(uMat, bestR, c); in luDecomp() 147 MATELEM(lMat, r, c) = MATELEM(lMat, bestR, c); in luDecomp() 492 MATELEM(H, r, c) = pCopy(MATELEM(N, r, c)); in luSolveViaLUDecomp() 788 MATELEM(aMat, row1, c) = MATELEM(aMat, row2, c); in swapRows() 813 MATELEM(block, i, j) = pCopy(MATELEM(aMat, i, j)); in matrixBlock() 1048 MATELEM(c,1,1) = pAdd(pAdd(pAdd(ppMult_qq(MATELEM(H,1,1), MATELEM(H,1,1)), in mpTrafo() 1052 MATELEM(c,2,1) = pAdd(pMult(pCopy(MATELEM(H,2,1)), in mpTrafo() 1056 MATELEM(c,3,1) = ppMult_qq(MATELEM(H,2,1), MATELEM(H,3,2)); in mpTrafo() 1359 MATELEM(uMat, r, c) = pCopy(MATELEM(aMat, r, c)); in lduDecomp() 1499 MATELEM(yVec, r, 1) = pMult(p, MATELEM(yVec, r, 1)); in luSolveViaLDUDecomp() [all …]
|
H A D | test.cc | 140 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // w2 - xz in TestGBEngine() 167 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // wx - yz in TestGBEngine() 194 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // x2 - wy in TestGBEngine() 221 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // xy - z2 in TestGBEngine() 248 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // y2 - wz in TestGBEngine()
|
/dports/math/singular/Singular-Release-4-2-1/Singular/ |
H A D | gms.cc | 30 if(MATELEM(B,i,j)!=NULL) in gmsNF() 31 MATELEM(B0,i,j)=pDiff(MATELEM(B,i,j),i+1); in gmsNF() 50 if(MATELEM(B0,i+1,j+1)!=NULL) in gmsNF() 51 p->m[k]=pAdd(p->m[k],ppMult_mm(MATELEM(B0,i+1,j+1),m)); in gmsNF() 52 if(MATELEM(B,i+1,j+1)!=NULL&&m0!=NULL) in gmsNF() 53 p->m[k]=pAdd(p->m[k],ppMult_mm(MATELEM(B,i+1,j+1),m0)); in gmsNF()
|
H A D | calcSVD.cc | 72 char *str=pString(MATELEM(M,i,j)); in testsvd() 90 MATELEM(Mu,i,j)=p_svdInit(u(i,j).toString()); in testsvd() 96 MATELEM(Mw,i,i)=p_svdInit(w(i).toString()); in testsvd() 103 MATELEM(Mvt,i,j)=p_svdInit(vt(i,j).toString()); in testsvd()
|
H A D | eigenval_ip.cc | 139 while(j<=n&&MATELEM(M,j,j-1)!=NULL) in evEigenvals() 143 e->m[k]=pHead(MATELEM(M,j0,j0)); in evEigenvals() 155 MATELEM(M0,i,j)=pCopy(MATELEM(M,j0+i,j0+j)); in evEigenvals() 157 MATELEM(M0,i,i)=pSub(MATELEM(M0,i,i),pCopy(t)); in evEigenvals()
|
/dports/math/singular/Singular-Release-4-2-1/libpolys/polys/nc/ |
H A D | old.gring.cc | 952 t = MATELEM(cMT,k,1); in gnc_uu_Mult_ww_vert() 973 t = MATELEM(cMT,a,m); in gnc_uu_Mult_ww_vert() 994 t=MATELEM(cMT,a,b); in gnc_uu_Mult_ww_vert() 1170 t=MATELEM(cMT,1,m); in gnc_uu_Mult_ww_horvert() 1194 t=MATELEM(cMT,m,1); in gnc_uu_Mult_ww_horvert() 1247 t=MATELEM(cMT,1,m); in gnc_uu_Mult_ww_horvert() 1267 t=MATELEM(cMT,k,b); in gnc_uu_Mult_ww_horvert() 1312 t=MATELEM(cMT,a,k); in gnc_uu_Mult_ww_horvert() 2428 p=MATELEM(M,s,t); in nc_PrintMat() 2766 CN = MATELEM(CCC,1,1); in nc_CallPlural() [all …]
|
/dports/math/singular/Singular-Release-4-2-1/kernel/GBEngine/ |
H A D | units.cc | 27 u0=nInvers(pGetCoeff(MATELEM(U0,i+1,i+1))); in redNF() 28 MATELEM(U0,i+1,i+1)=__p_Mult_nn(MATELEM(U0,i+1,i+1),u0,currRing); in redNF() 41 pCopy(MATELEM(U0,i+1,i+1)))); in redNF() 66 MATELEM(U,1,1)=u; in redNF()
|
H A D | test.cc | 136 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // w2 - xz in TestGBEngine() 163 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // wx - yz in TestGBEngine() 190 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // x2 - wy in TestGBEngine() 217 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // xy - z2 in TestGBEngine() 244 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // y2 - wz in TestGBEngine()
|
/dports/math/singular/Singular-Release-4-2-1/kernel/ |
H A D | polys.cc | 81 p=MATELEM(T,1,1); MATELEM(T,1,1)=NULL; in p_Divide() 141 p=MATELEM(T,1,1); MATELEM(T,1,1)=NULL; in p_Divide() 219 p=MATELEM(T,1,1); MATELEM(T,1,1)=NULL; in pp_Divide() 281 p=MATELEM(T,1,1); MATELEM(T,1,1)=NULL; in pp_Divide() 366 p=MATELEM(T,1,1); MATELEM(T,1,1)=NULL; in p_DivRem() 369 rest=MATELEM(T,1,1); MATELEM(T,1,1)=NULL; in p_DivRem()
|
H A D | test.cc | 230 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // w2 - xz in TestGBEngine() 257 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // wx - yz in TestGBEngine() 284 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // x2 - wy in TestGBEngine() 311 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // xy - z2 in TestGBEngine() 338 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // y2 - wz in TestGBEngine()
|
H A D | ideals.cc | 802 MATELEM(*T,t-syzComp,j+1) = pAdd(MATELEM(*T,t-syzComp,j+1),p); in idExtractG_T_S() 1090 MATELEM(*unit,i,i)=pOne(); in idLift_setUnit() 1297 MATELEM(*unit,i+1,i+1)=pAdd(MATELEM(*unit,i+1,i+1),p); in idLift() 1354 MATELEM(T,j+1,i+1)=pAdd(MATELEM(T,j+1,i+1),p0); in idLiftW() 1859 MATELEM(tmp,i,j) = MATELEM(a,rowchoise[i-1],colchoise[j-1]); in idMinor() 1921 MATELEM(tmp,i,j) = MATELEM(a,rowchoise[i-1],colchoise[j-1]); in idMinors() 1948 for (j=1; j<=ar; j++) MATELEM(tmp,i,j) = NULL; in idMinors() 2117 M->m[i]=pSeries(n,M->m[i],MATELEM(U,i+1,i+1),w); in idSeries() 2118 MATELEM(U,i+1,i+1)=NULL; in idSeries() 2370 MATELEM(*T,(int)t-length,i) = pAdd(MATELEM(*T,(int)t-length,i),p); in idModuloLP() [all …]
|
/dports/math/singular/Singular-Release-4-2-1/libpolys/polys/ |
H A D | matpol.cc | 298 p = pp_Mult_qq(MATELEM(a,i,j), MATELEM(b,j,i), R); in TraceOfProd() 425 MATELEM(co,1,i) = h; in mp_CoeffProc() 437 MATELEM(co,1,i) = h; in mp_CoeffProc() 452 MATELEM(co,2,i) = p_Add_q(MATELEM(co,2,i), h, R); in mp_CoeffProc() 464 MATELEM(co,2,pos_of_1) = p_Add_q(MATELEM(co,2,pos_of_1), h, R); in mp_CoeffProc() 531 MATELEM(co,j+2,i) = p_Add_q(MATELEM(co,j+2,i), h, R); in mp_CoeffProcId() 543 MATELEM(co,j+2,pos_of_1) = p_Add_q(MATELEM(co,j+2,pos_of_1), h, R); in mp_CoeffProcId() 630 MATELEM(*c,j,i) = p_Add_q(MATELEM(*c,j,i), h, R); in mp_Coef2() 1703 res = MATELEM(c,1,1); in mp_DetBareiss() 1704 MATELEM(c,1,1) = NULL; in mp_DetBareiss() [all …]
|
/dports/math/singular/Singular-Release-4-2-1/kernel/fglm/ |
H A D | test.cc | 139 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // w2 - xz in TestGBEngine() 166 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // wx - yz in TestGBEngine() 193 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // x2 - wy in TestGBEngine() 220 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // xy - z2 in TestGBEngine() 247 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // y2 - wz in TestGBEngine()
|
/dports/math/singular/Singular-Release-4-2-1/kernel/maps/ |
H A D | test.cc | 140 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // w2 - xz in TestGBEngine() 167 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // wx - yz in TestGBEngine() 194 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // x2 - wy in TestGBEngine() 221 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // xy - z2 in TestGBEngine() 248 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // y2 - wz in TestGBEngine()
|
/dports/math/singular/Singular-Release-4-2-1/kernel/numeric/ |
H A D | test.cc | 140 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // w2 - xz in TestGBEngine() 167 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // wx - yz in TestGBEngine() 194 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // x2 - wy in TestGBEngine() 221 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // xy - z2 in TestGBEngine() 248 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // y2 - wz in TestGBEngine()
|
H A D | mpr_base.cc | 379 if ( (MATELEM( omat, i, j)!=NULL) in print_matrix() 380 && (!nIsZero(pGetCoeff( MATELEM( omat, i, j))))) in print_matrix() 2129 MATELEM(m,i,j)= pInit(); in createMatrix() 2130 pSetCoeff0( MATELEM(m,i,j), nInit(0) ); in createMatrix() 2152 MATELEM(m,numVectors - k,i + 1)= pInit(); in createMatrix() 2176 pWrite0(MATELEM(m,i,j));PrintS(" "); in createMatrix() 2479 p=MATELEM(m,i,j); in getMatrix() 2485 MATELEM(resmat,i,j)= pCopy( p ); in getMatrix() 2495 if ( MATELEM(resmat,numVectors-i, in getMatrix() 2604 MATELEM(mat,i,j)= pInit(); in getSubDet() [all …]
|
H A D | mpr_numeric.cc | 1023 if ( MATELEM(mm,i,j) != NULL ) in mapFromMatrix() 1025 coef= pGetCoeff( MATELEM(mm,i,j) ); in mapFromMatrix() 1055 pDelete( &(MATELEM(mm,i,j)) ); in mapToMatrix() 1056 MATELEM(mm,i,j)= NULL; in mapToMatrix() 1062 MATELEM(mm,i,j)= pOne(); in mapToMatrix() 1063 pSetCoeff( MATELEM(mm,i,j), coef ); in mapToMatrix()
|
/dports/math/singular/Singular-Release-4-2-1/kernel/oswrapper/ |
H A D | test.cc | 140 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // w2 - xz in TestGBEngine() 167 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // wx - yz in TestGBEngine() 194 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // x2 - wy in TestGBEngine() 221 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // xy - z2 in TestGBEngine() 248 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // y2 - wz in TestGBEngine()
|
/dports/math/singular/Singular-Release-4-2-1/kernel/spectrum/ |
H A D | test.cc | 136 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // w2 - xz in TestGBEngine() 163 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // wx - yz in TestGBEngine() 190 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // x2 - wy in TestGBEngine() 217 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // xy - z2 in TestGBEngine() 244 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // y2 - wz in TestGBEngine()
|
/dports/math/singular/Singular-Release-4-2-1/kernel/groebner_walk/ |
H A D | test.cc | 140 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // w2 - xz in TestGBEngine() 167 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // wx - yz in TestGBEngine() 194 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // x2 - wy in TestGBEngine() 221 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // xy - z2 in TestGBEngine() 248 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // y2 - wz in TestGBEngine()
|
/dports/math/singular/Singular-Release-4-2-1/kernel/combinatorics/ |
H A D | test.cc | 142 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // w2 - xz in TestGBEngine() 169 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // wx - yz in TestGBEngine() 196 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // x2 - wy in TestGBEngine() 223 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // xy - z2 in TestGBEngine() 250 MATELEM(I, 1, ++gen) = p_Add_q(lp, p, R); // y2 - wz in TestGBEngine()
|
/dports/math/singular/Singular-Release-4-2-1/libpolys/polys/monomials/ |
H A D | maps.cc | 58 if(MATELEM(s,v,1)==NULL) in maEvalVariable() 60 MATELEM(s,v,1)=p_Copy(p/*theMap->m[v-1]*/,dst_r); in maEvalVariable() 64 while((j<=pExp)&&(MATELEM(s,v,j)!=NULL)) in maEvalVariable() 68 p0=MATELEM(s,v,j-1); in maEvalVariable() 73 p0=MATELEM(s,v,j)=pp_Mult_qq(p0, p,dst_r); in maEvalVariable()
|
H A D | ring.cc | 728 MATELEM(C,i,j) = p_One( r); in nc_rCreateNCcomm_rCopy() 1204 assume(MATELEM(C1,i,j) != NULL); in rSumInternal() 1207 if (MATELEM(D1,i,j) != NULL) in rSumInternal() 1208 … MATELEM(D,i,j) = p_PermPoly(MATELEM(D1,i,j), perm1, R1, sum, nMap1, par_perm1, rPar(R1)); in rSumInternal() 1221 …MATELEM(C,rVar(R1)+i,rVar(R1)+j) = p_PermPoly(MATELEM(C2,i,j),perm2,R2,sum, nMap2,par_perm2,rPar(R… in rSumInternal() 1223 if (MATELEM(D2,i,j) != NULL) in rSumInternal() 5585 … MATELEM(C,nj,ni) = p_PermPoly(MATELEM(src->GetNC()->C,i,j),perm,src,r, nMap,par_perm,rPar(src)); in rOpposite() 5588 … MATELEM(D,nj,ni) = p_PermPoly(MATELEM(src->GetNC()->D,i,j),perm,src,r, nMap,par_perm,rPar(src)); in rOpposite() 5697 MATELEM(C,i,j) = p; in nc_rComplete() 5698 if (MATELEM(D0,i,j) != NULL) in nc_rComplete() [all …]
|
/dports/math/polymake/polymake-4.5/bundled/singular/apps/ideal/src/ |
H A D | singularIdeal.cc | 382 if (MATELEM(T, j, 1)) { in convert_number_to_Rational() 383 polys[j-1]=convert_poly_to_Polynomial(MATELEM(T, j, 1)); in convert_number_to_Rational() 434 MATELEM(variableSlackMatrix,i+1,j+1) = p_Copy(m, singRing); in convert_number_to_Rational()
|