Changeset f9241bf in git
 Timestamp:
 Nov 20, 2006, 10:20:21 AM (17 years ago)
 Branches:
 (u'jengelhdatetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')
 Children:
 59b9615870d42298bc425c97176a54ee9c4e3b9d
 Parents:
 1731e390e73a68ff2ded83525e456e5bb72106ca
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

kernel/matpol.cc
r1731e3 rf9241bf 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: matpol.cc,v 1.1 0 20061118 12:58:00Singular Exp $ */4 /* $Id: matpol.cc,v 1.11 20061120 09:20:21 Singular Exp $ */ 5 5 6 6 /* … … 92 92 { 93 93 t = a>m[i]; 94 pNormalize(t); 95 b>m[i] = pCopy(t); 94 if (t!=NULL) 95 { 96 pNormalize(t); 97 b>m[i] = pCopy(t); 98 } 96 99 } 97 100 b>rank=a>rank; … … 147 150 int k, n = a>nrows, m = a>ncols; 148 151 149 pNormalize(p); 150 for (k=m*n1; k>0; k) 151 { 152 if (a>m[k]!=NULL) 153 a>m[k] = pMult(a>m[k], pCopy(p)); 154 } 155 a>m[0] = pMult(a>m[0], p); 152 if (p!=NULL) 153 { 154 pNormalize(p); 155 for (k=m*n1; k>0; k) 156 { 157 if (a>m[k]!=NULL) 158 a>m[k] = pMult(a>m[k], pCopy(p)); 159 } 160 a>m[0] = pMult(a>m[0], p); 161 } 162 else 163 { 164 for (k=m*n1; k>0; k) 165 pDelete(&a>m[k]); 166 } 156 167 return a; 157 168 }
Note: See TracChangeset
for help on using the changeset viewer.