Changeset 70a952 in git
 Timestamp:
 May 29, 2012, 12:13:49 PM (11 years ago)
 Branches:
 (u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
 Children:
 9aac3e40e249db0a2411b4c4f36cdc9a5d791080
 Parents:
 5998134399af73455bd45b86419f1c2d580ea52d
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/iparith.cc
r599813 r70a952 4415 4415 A list [P, L, U] is returned. */ 4416 4416 matrix mat = (const matrix)v>Data(); 4417 if (!idIsConstant((ideal)mat)) 4418 { 4419 WerrorS("matrix must be constant"); 4420 return TRUE; 4421 } 4417 4422 matrix pMat; 4418 4423 matrix lMat; … … 6816 6821 return TRUE; 6817 6822 } 6823 if (!idIsConstant((ideal)aMat)) 6824 { 6825 WerrorS("matrix must be constant"); 6826 return TRUE; 6827 } 6818 6828 invertible = luInverse(aMat, iMat); 6819 6829 } … … 6836 6846 return TRUE; 6837 6847 } 6848 if (!idIsConstant((ideal)pMat) 6849  (!idIsConstant((ideal)lMat)) 6850  (!idIsConstant((ideal)uMat)) 6851 ) 6852 { 6853 WerrorS("matricesx must be constant"); 6854 return TRUE; 6855 } 6838 6856 invertible = luInverseFromLUDecomp(pMat, lMat, uMat, iMat); 6839 6857 } … … 6916 6934 Werror("third matrix (%d x %d) and vector (%d x 1) do not fit", 6917 6935 uMat>rows(), uMat>cols(), bVec>rows()); 6936 return TRUE; 6937 } 6938 if (!idIsConstant((ideal)pMat) 6939 (!idIsConstant((ideal)lMat)) 6940 (!idIsConstant((ideal)uMat)) 6941 (!idIsConstant((ideal)bVec)) 6942 ) 6943 { 6944 WerrorS("matrices must be constant"); 6918 6945 return TRUE; 6919 6946 }
Note: See TracChangeset
for help on using the changeset viewer.