Changeset 39242 for trunk/Ohana/src/opihi/cmd.data/gaussdeviate.c

Timestamp:

Dec 9, 2015, 3:42:26 PM (11 years ago)

Author:

eugene

Message:

move multple copies of gaussian deviates to libohana

File:

• trunk/Ohana/src/opihi/cmd.data/gaussdeviate.c (modified) (3 diffs)

trunk/Ohana/src/opihi/cmd.data/gaussdeviate.c

@@ -17 +17 @@
   ResetVector (vec, OPIHI_FLT, Npts);
 
-  gauss_init (2048);
+  gaussdev_init ();
   for (i = 0; i < Npts; i++) {
-    vec[0].elements.Flt[i] = rnd_gauss (mean, sigma);
+    vec[0].elements.Flt[i] = gaussdev_rnd (mean, sigma);
   }
   return (TRUE);
@@ -28 +28 @@
     
 }
-
-double int_gauss (int i);
 
 int gaussintegral (int argc, char **argv) {
@@ -46 +44 @@
   ResetVector (vec, OPIHI_FLT, Npts);
 
-  gauss_init (Npts);
+  gaussdev_init ();
   for (i = 0; i < Npts; i++) {
-    vec[0].elements.Flt[i] = int_gauss (i);
+    vec[0].elements.Flt[i] = gaussian_int (i);
   }
   return (TRUE);