Changeset 2575 in Sophya for trunk/SophyaLib/TArray/tmatrix.cc

Timestamp:

Jul 29, 2004, 2:31:16 PM (21 years ago)

Author:

ansari

Message:

1/ Remplacement des methodes Add/Sub/Mul/DivElt(a) par

Add/Sub/Mul/DivElt(TArray a, TArray res)

2/ Operateurs += -= A+B A-B TArray et TMatrix/TVecteur modifies en consequence
3/ Ajout methode TArray::ScalarProduct()
4/ Methode TArray::SetT renomme en SetCst() SetT garde en alias
5/ Ajout parametre bool fzero (mise a zero) ajoute ds constructeur et

ReSize() de TMatrix et TVecteur.

Reza 29/07/2004

File:

• trunk/SophyaLib/TArray/tmatrix.cc (modified) (5 diffs)

trunk/SophyaLib/TArray/tmatrix.cc

@@ -1 @@
-// $Id: tmatrix.cc,v 1.25 2004-07-29 08:40:49 cmv Exp $
+// $Id: tmatrix.cc,v 1.26 2004-07-29 12:31:16 ansari Exp $
 //                         C.Magneville          04/99
 #include "machdefs.h"
@@ -61 +61 @@
   \param c : number of columns
   \param mm : define the memory mapping type
+  \param fzero : if \b true , set matrix elements to zero 
   \sa ReSize
  */
 template <class T>
-TMatrix<T>::TMatrix(sa_size_t r,sa_size_t c, short mm)
+TMatrix<T>::TMatrix(sa_size_t r,sa_size_t c, short mm, bool fzero)
 // Construit une matrice de r lignes et c colonnes.
   :  TArray<T>() 
@@ -71 +72 @@
     throw ParmError("TMatrix<T>::TMatrix(sa_size_t r,sa_size_t c) NRows or NCols = 0");
   arrtype_ = 1;   // Type = Matrix
-  ReSize(r, c, mm);
+  ReSize(r, c, mm, fzero);
 }
 
@@ -204 +205 @@
          (SameMemoryMapping,CMemoryMapping
          ,FortranMemoryMapping,DefaultMemoryMapping)
- */
-template <class T>
-void TMatrix<T>::ReSize(sa_size_t r, sa_size_t c, short mm)
+  \param fzero : if \b true , set matrix elements to zero 
+ */
+template <class T>
+void TMatrix<T>::ReSize(sa_size_t r, sa_size_t c, short mm, bool fzero)
 {
   if(r==0||c==0) 
@@ -223 +225 @@
     size[0] = r;  size[1] = c;
   }
-  TArray<T>::ReSize(2, size, 1);
+  TArray<T>::ReSize(2, size, 1, fzero);
   UpdateMemoryMapping(mm);
 }