Changeset 1519 in Sophya for trunk/SophyaProg

Timestamp:

Jun 12, 2001, 6:22:18 PM (24 years ago)

Author:

ansari

Message:

Test de fonctions sur tableaux complexes (ComplexMathArray) - Reza 12/6/2001

Location:

trunk/SophyaProg/Tests

Files:

• arrt.cc (modified) (1 diff)
• tfft.cc (modified) (1 diff)

trunk/SophyaProg/Tests/arrt.cc

@@ -216 +216 @@
   cout << " ------ cos(fa2=fa*2*Pi) = \n" << Cos(fa2) << endl;
 
+  //  Test des fonctions sur complexes 
+  TVector<r_4> p_real(10, BaseArray::RowVector), p_imag(10, BaseArray::RowVector);
+  p_real = RegularSequence(0., 0.5);
+  p_imag = RegularSequence(0., 0.25);
+  TVector< complex<r_4> > zvec = ComplexArray(p_real, p_imag);
+  cout << " ------ zvec = ComplexArray(p_real, p_imag) -------- "  << endl;
+  cout << " :: p_real= " << p_real; 
+  cout << " :: p_imag= " << p_imag;
+  cout << " :: zvec= " << zvec;
+  cout << " :: real(zvec) = " << real(zvec) ;
+  cout << " :::: imag(zvec) = " << imag(zvec) ;
+  cout << " :::: module2(zvec) = " << module2(zvec) ;
+  cout << " :::: module(zvec) = " << module(zvec) ;
+  cout << " :::: phase(zvec) = " << phase(zvec) ;
+  cout << " ----------------------------------------------------- " << endl;
+
   if (tio) tstioarr(ia, ib, ic);
 }

trunk/SophyaProg/Tests/tfft.cc

@@ -5 +5 @@
 
 #include "nbrandom.h"
+#include "matharr.h"
 #include "fftpserver.h"
 #include "fftmserver.h"