Changeset 3615 in Sophya for trunk/SophyaProg/Tests/lpk.cc

Timestamp:

May 1, 2009, 1:34:31 PM (16 years ago)

Author:

cmv

Message:

Modifs relatives a l'introduction de RandomGeneratorInterface + delete de srandgen.c, cmv 01/05/2009

File:

• trunk/SophyaProg/Tests/lpk.cc (modified) (2 diffs)

trunk/SophyaProg/Tests/lpk.cc

@@ -92 +92 @@
   Matrix a(n,n);
   for(i=0; i<n; i++)
-    for(j=0; j<n; j++)  a(j,i) = GauRnd(0., 1.);
+    for(j=0; j<n; j++)  a(j,i) = Gaussian(1.,0.);
   
   Vector x(n), b;
@@ -98 +98 @@
   if (prtlev > 0) 
     cout << " ------------ Vector X = \n " << x << "\n" << endl; 
-  for(i=0; i<n; i++) x(i) = GauRnd(2., 1.5);
+  for(i=0; i<n; i++) x(i) = Gaussian(1.5,2.);
   b = a*x;