Changeset 850 in Sophya for trunk/SophyaLib/TArray/sopemtx.h

Timestamp:

Apr 10, 2000, 2:57:45 PM (25 years ago)

Author:

ansari

Message:

Corrections divers + RansomSequence - Reza 10/4/2000

File:

• trunk/SophyaLib/TArray/sopemtx.h (modified) (1 diff)

trunk/SophyaLib/TArray/sopemtx.h

@@ -39 +39 @@
 }
 
+inline r_4 LinSolve(const TMatrix<r_4>& a, const TVector<r_4>& b, TVector<r_4>& c)
+{ 
+if(a.NCols() != b.NRows() || a.NCols() != a.NRows())
+  throw(SzMismatchError("LinSolve(TMatrix<r_4>,TVector<r_4>) size mismatch"));
+c = b;
+TMatrix<r_4> a1(a);
+return SimpleMatrixOperation<r_4>::GausPiv(a1,c);
+}
+
+// Inverse d'une matrice 
+inline TMatrix<r_8> Inverse(TMatrix<r_8> const & A)
+{
+  return SimpleMatrixOperation<r_8>::Inverse(A);
+}
+
+inline TMatrix<r_4> Inverse(TMatrix<r_4> const & A)
+{
+  return SimpleMatrixOperation<r_4>::Inverse(A);
+}
+
+
 //--------------------------------------
 //        Linear fitting