Changeset 2367 in Sophya for trunk/Eval

Timestamp:

Apr 18, 2003, 10:29:14 PM (22 years ago)

Author:

ansari

Message:

Ajout test avec r_8 * p - Reza 18/04/03

File:

• trunk/Eval/JET/tjet.cc (modified) (1 diff)

trunk/Eval/JET/tjet.cc

@@ -205 +205 @@
 
     }
+
+    // Test avec des double * x;
+    {
+    cout << " >>>>> test with SOPHYA::TArray / TMatrix " << endl;
+    r_8 * m1 = new r_8[nrow*ncol];
+    r_8 * m2 = new r_8[nrow*ncol];
+    r_8 * m3 = new r_8[nrow*ncol];
+    r_8 * m5 = new r_8[nrow*ncol];
+    for(k=0; k<N; k++) {
+      double xxr = frand01();
+      double yyr = 2.*frand01();
+      for(i=0; i<nrow*ncol; i++) {
+          m1[i] = k*300+10.*i+j+xxr;    
+          m2[i] = k*550+20.*i+2.*j+yyr;
+          m3[i] = k*860.+40.*i+7.*j+yyr*3.14;
+      }
+    }
+    cout << " (31) p[i] Element access done ---" << endl;
+    PrtTim(" (31) -- ");
+    // Calcul m1*c1 + m2*c2 + m3*c3;
+    for(k=0; k<N; k++) {
+      double c1 = frand01() + 1.2;
+      double c2 = frand01() + 3.5;
+      double c3 = frand01() + 6.7;
+      for(i=0; i<nrow*ncol; i++) 
+        m5[i] = c1*m1[i]+c2*m2[i]+c3*m3[i];
+    }
+    cout << " (32) p[i] m1*c1 + m2*c2 + m3*c3 done ---" << endl;
+    PrtTim(" (32) -- ");
+
+    delete[] m1;
+    delete[] m2;
+    delete[] m3;
+    delete[] m5;
+    }
   }
   catch (PThrowable exc) {