Changeset 1099 in Sophya for trunk/SophyaLib/TArray/tvector.cc

Timestamp:

Jul 26, 2000, 6:29:46 PM (25 years ago)

Author:

ansari

Message:

Protection integrite TMatrix,TVector - operateur = (BaseArray & pour TVector et operations entre matrices avec <> MemMapping (Pas termine) Reza 27/6/2000

File:

• trunk/SophyaLib/TArray/tvector.cc (modified) (7 diffs)

trunk/SophyaLib/TArray/tvector.cc

@@ -1 @@
-// $Id: tvector.cc,v 1.8 2000-04-27 17:53:52 ansari Exp $
+// $Id: tvector.cc,v 1.9 2000-07-26 16:29:46 ansari Exp $
 //                         C.Magneville          04/99
 #include "machdefs.h"
@@ -35 +35 @@
   : TMatrix<T>(1,1,mm)
 {
+  arrtype_ = 2;   // Type = Vector
   lcv = SelectVectorType(lcv);
   ReSize(n,lcv);
@@ -49 +50 @@
   : TMatrix<T>(a)
 {
+  arrtype_ = 2;   // Type = Vector
 }
 
@@ -60 +62 @@
 : TMatrix<T>(a, share)
 {
+  arrtype_ = 2;   // Type = Vector
 }
 
@@ -69 +72 @@
   if ( (size_[0] != 1) && (size_[1] != 1) )
     throw SzMismatchError("TVector<T>::TVector(const TArray<T>& a) NRows()!=1 && NCols()!=1 ");
+  arrtype_ = 2;   // Type = Vector
 }
 
@@ -86 +90 @@
   if ( (size_[0] != 1) && (size_[1] != 1) )
     throw SzMismatchError("TVector<T>::TVector(const TArray<T>& a) NRows()!=1 && NCols()!=1 ");
+  arrtype_ = 2;   // Type = Vector
   if ( (size_[0] == 1) && (size_[1] == 1) ) {
     if (lcv == SameVectorType) lcv = a.GetVectorType();
@@ -91 +96 @@
     veceli_ = (lcv ==  ColumnVector ) ?  marowi_ : macoli_;
   }
+}
+
+//! Constructor of a vector from a TArray \b a , with a different data type
+template <class T>
+TVector<T>::TVector(const BaseArray& a)
+: TMatrix<T>()
+{
+  arrtype_ = 2;   // Type = Vector
+  SetBA(a);
 }