Changeset 3394 in Sophya for trunk/SophyaLib/TArray

Timestamp:

Nov 23, 2007, 2:32:48 PM (18 years ago)

Author:

ansari

Message:

Modification utilarr.cc pour utiliser RandomGenerator ds RandomSequence, Reza 23/11/2007

File:

• trunk/SophyaLib/TArray/utilarr.cc (modified) (4 diffs)

trunk/SophyaLib/TArray/utilarr.cc

@@ -5 +5 @@
 #include "machdefs.h"
 #include "utilarr.h"
-#include "srandgen.h"
+#include "stsrand.h"
 
 // Classe utilitaires
@@ -26 +26 @@
   \param s : sigma parameter of the generator (if needed)
  */
+static RandomGenerator* uarg_ = NULL;
 RandomSequence::RandomSequence(int typ, double m, double s)
 {
@@ -31 +32 @@
   mean_ = m;
   sig_ = s;
+  if (uarg_ == NULL) uarg_ = new RandomGenerator(1024, true);
 }
 RandomSequence::~RandomSequence()
@@ -45 +47 @@
 {
   if (typ_ == Flat) 
-    return(drandpm1()*sig_ + mean_);
-  else return(GauRnd(mean_, sig_));
+    return(uarg_->Flatpm1()*sig_ + mean_);
+  else return(uarg_->Gaussian(sig_, mean_));
 }
 
 MuTyV & RandomSequence::Value(sa_size_t k) const 
 {
-  if (typ_ == Flat) retv_ = drandpm1()*sig_ + mean_;
-  else retv_ = GauRnd(mean_, sig_);
+  if (typ_ == Flat) retv_ = uarg_->Flatpm1()*sig_ + mean_;
+  else retv_ = uarg_->Gaussian(sig_, mean_);
   return retv_;
 }