Changeset 774 in Sophya for trunk/SophyaLib/NTools/linfit.cc

Timestamp:

Mar 10, 2000, 4:24:53 PM (26 years ago)

Author:

ansari

Message:

Adaptation aux modifs de TMatrixRC<T> - Reza 10/3/2000

File:

• trunk/SophyaLib/NTools/linfit.cc (modified) (3 diffs)

trunk/SophyaLib/NTools/linfit.cc

@@ -1 +1 @@
 #include "machdefs.h"
 #include "peida.h"
+#include "sopemtx.h"
 #include "linfit.h"
 
@@ -38 +39 @@
   for (int j=0; j<nf; j++)
     for (int k=j; k<nf; k++)
-      a(j,k) = a(k,j) = fx.Row(j) * fx.Row(k);
+      a(j,k) = a(k,j) = TMatrixRC<r_8>::Row(const_cast<Matrix &>(fx), j) 
+        * TMatrixRC<r_8>::Row(const_cast<Matrix &>(fx), k); /* $CHECK$ Reza 10/3/2000 */
    
   c = fx * y;
 
-  if (Matrix::GausPiv(a,c) == 0) THROW(singMatxErr);
+  if (SimpleMatrixOperation<r_8>::GausPiv(a,c) == 0) THROW(singMatxErr); /* $CHECK$ Reza 10/3/2000 */
 
   double xi2 = 0;
@@ -105 +107 @@
   }
 
-  if (Matrix::GausPiv(a,d) == 0) THROW(singMatxErr);
+  if (SimpleMatrixOperation<r_8>::GausPiv(a,d) == 0) THROW(singMatxErr); /* $CHECK$ Reza 10/3/2000 */
 
   for (int l=0; l<nf; l++) {