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

Timestamp:

May 11, 2005, 9:35:40 PM (21 years ago)

Author:

eugene

Message:

cleaned gaussdeviate, added vsmooth

File:

• trunk/Ohana/src/opihi/cmd.data/gaussdeviate.c (modified) (1 diff)

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

@@ -29 +29 @@
     
 }
+
+double int_gauss (int i);
+
+int gaussintegral (int argc, char **argv) {
+  
+  int i, Npts;
+  double mean, sigma;
+  Vector *vec;
+
+  if (argc != 5) goto usage;
+
+  if ((vec = SelectVector (argv[1], ANYVECTOR, TRUE)) == NULL) return (FALSE);    
+
+  Npts = atoi (argv[2]);
+  mean = atof (argv[3]);
+  sigma = atof (argv[4]);
+
+  vec[0].Nelements = Npts;
+  REALLOCATE (vec[0].elements, float, Npts);
+
+  gauss_init (Npts);
+  for (i = 0; i < Npts; i++) {
+    vec[0].elements[i] = int_gauss (i);
+  }
+  return (TRUE);
+
+ usage:
+  fprintf (stderr, "USAGE: gaussintegral Npts mean sigma\n");
+  return (FALSE);
+    
+}