Changeset e710e2 in git
 Timestamp:
 Apr 29, 2005, 7:35:18 PM (18 years ago)
 Branches:
 (u'jengelhdatetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
 Children:
 3175d17ec57bce508d17c4edf42f0152212f42cc
 Parents:
 53f676a223a33b24506039cdeca5266e23611a25
 Location:
 kernel
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

kernel/fglmzero.cc
r53f676 re710e2 1 1 // emacs edit mode for this file is * C++ * 2 // $Id: fglmzero.cc,v 1. 2 20040623 15:12:24Singular Exp $2 // $Id: fglmzero.cc,v 1.3 20050429 17:35:17 Singular Exp $ 3 3 4 4 /**************************************** … … 1102 1102 intvec *iv = idSort(perm,TRUE); 1103 1103 idDelete(&perm); 1104 for(i nt i= pVariables; i > 0; i) varpermutation[pVariables+1i] = (*iv)[i1];1104 for(i = pVariables; i > 0; i) varpermutation[pVariables+1i] = (*iv)[i1]; 1105 1105 delete iv; 1106 1106 1107 for ( i= 1; i <= pVariables; i++ ) { 1107 for (i= 1; i <= pVariables; i++ ) 1108 { 1108 1109 // main loop 1109 1110 STICKYPROT2( "(%i)", i /*varpermutation[i]*/); 
kernel/ring.cc
r53f676 re710e2 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: ring.cc,v 1.3 3 20050422 18:09:42 levandovExp $ */4 /* $Id: ring.cc,v 1.34 20050429 17:35:18 Singular Exp $ */ 5 5 6 6 /* … … 1238 1238 nMapFunc nMap1 = nSetMap(r1); 1239 1239 Q1 = idInit(IDELEMS(r1>qideal),1); 1240 for (int i=0;i<IDELEMS(r1>qideal);i++)1241 Q1>m[ i] = pPermPoly(r1>qideal>m[i],perm1,r1,nMap1,par_perm1,rPar(r1));1240 for (int for_i=0;for_i<IDELEMS(r1>qideal);for_i++) 1241 Q1>m[for_i] = pPermPoly(r1>qideal>m[for_i],perm1,r1,nMap1,par_perm1,rPar(r1)); 1242 1242 omFree((ADDRESS)perm1); 1243 1243 } … … 1257 1257 nMapFunc nMap2 = nSetMap(r2); 1258 1258 Q2 = idInit(IDELEMS(r2>qideal),1); 1259 for (int i=0;i<IDELEMS(r2>qideal);i++)1260 Q2>m[ i] = pPermPoly(r2>qideal>m[i],perm2,r2,nMap2,par_perm2,rPar(r2));1259 for (int for_i=0;for_i<IDELEMS(r2>qideal);for_i++) 1260 Q2>m[for_i] = pPermPoly(r2>qideal>m[for_i],perm2,r2,nMap2,par_perm2,rPar(r2)); 1261 1261 omFree((ADDRESS)perm2); 1262 1262 } … … 2244 2244 /*weights: entries for 3 blocks: NULL*/ 2245 2245 res>wvhdl = (int **)omAlloc0(3 * sizeof(int_ptr)); 2246 /*order: dp,C,0*/2246 /*order: Wp,C,0*/ 2247 2247 res>order = (int *) omAlloc(3 * sizeof(int *)); 2248 2248 res>block0 = (int *)omAlloc0(3 * sizeof(int *)); 2249 2249 res>block1 = (int *)omAlloc0(3 * sizeof(int *)); 2250 /* ringorder dp for the first block: var 1..3*/2250 /* ringorder Wp for the first block: var 1..r>N */ 2251 2251 res>order[0] = ringorder_Wp; 2252 2252 res>block0[0] = 1;
Note: See TracChangeset
for help on using the changeset viewer.