- Timestamp:
- Feb 22, 2001, 8:12:57 PM (23 years ago)
- Branches:
- (u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd08f5f0bb3329b8ca19f23b74cb1473686415c3a')
- Children:
- 35679e8ba2e1e01d3aeb88d71d2cf46e5413eb4a
- Parents:
- 08911644113263ab362bcd3330c19577a763878c
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/extra.cc
r089116 r335380 2 2 * Computer Algebra System SINGULAR * 3 3 *****************************************/ 4 /* $Id: extra.cc,v 1.16 1 2001-02-21 10:08:11 SingularExp $ */4 /* $Id: extra.cc,v 1.162 2001-02-22 19:12:57 levandov Exp $ */ 5 5 /* 6 6 * ABSTRACT: general interface to internals of Singular ("system" command) … … 1214 1214 for(j=i+1;j<=nv;j++) 1215 1215 { 1216 currRing->nc->MTsize[UPMATELEM(i,j )]=DefMTsize; /* default sizes */1217 currRing->nc->MT[UPMATELEM(i,j )]=mpNew(DefMTsize,DefMTsize);1216 currRing->nc->MTsize[UPMATELEM(i,j,curring->N)]=DefMTsize; /* default sizes */ 1217 currRing->nc->MT[UPMATELEM(i,j,curring->N)]=mpNew(DefMTsize,DefMTsize); 1218 1218 p=pOne(); 1219 1219 pSetCoeff(p,nCopy(pGetCoeff(MATELEM(currRing->nc->C,i,j)))); … … 1222 1222 pSetm(p); 1223 1223 p=pAdd(p,pCopy(MATELEM(currRing->nc->D,i,j))); 1224 MATELEM(currRing->nc->MT[UPMATELEM(i,j )],1,1)=p;1224 MATELEM(currRing->nc->MT[UPMATELEM(i,j,curring->N)],1,1)=p; 1225 1225 /* set MT[i,j,1,1] to c_i_j*x_i*x_j + D_i_j */ 1226 1226 }
Note: See TracChangeset
for help on using the changeset viewer.