Changeset a780be in git for kernel/matpol.cc
 Timestamp:
 Nov 20, 2006, 12:10:39 PM (17 years ago)
 Branches:
 (u'spielwiese', 'd0474371d8c5d8068ab70bfb42719c97936b18a6')
 Children:
 840876f3cccda6e6038fa2968ca844c02edc61c8
 Parents:
 59b9615870d42298bc425c97176a54ee9c4e3b9d
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

kernel/matpol.cc
r59b9615 ra780be 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: matpol.cc,v 1.1 2 20061120 09:38:35Singular Exp $ */4 /* $Id: matpol.cc,v 1.13 20061120 11:10:39 Singular Exp $ */ 5 5 6 6 /* … … 150 150 int k, n = a>nrows, m = a>ncols; 151 151 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 { 166 pDelete(&a>m[k]); 167 } 168 } 152 pNormalize(p); 153 for (k=m*n1; k>0; k) 154 { 155 if (a>m[k]!=NULL) 156 a>m[k] = pMult(a>m[k], pCopy(p)); 157 } 158 a>m[0] = pMult(a>m[0], p); 169 159 return a; 170 160 }
Note: See TracChangeset
for help on using the changeset viewer.