Changeset 40814 for branches/eam_branches/ohana.20190329/src/opihi/cmd.data/test/cut.sh

Timestamp:

Jun 22, 2019, 3:31:28 PM (7 years ago)

Author:

eugene

Message:

add some better tests

File:

• branches/eam_branches/ohana.20190329/src/opihi/cmd.data/test/cut.sh (modified) (1 diff)

branches/eam_branches/ohana.20190329/src/opihi/cmd.data/test/cut.sh

@@ -4 +4 @@
  memtest1
 end
+
+macro test2
+
+  mgaussdev z 50 100 0.0 1.0
+
+  cut z x y_sum    x 0 0 z[][0] z[0][]
+  cut z x y_median x 0 0 z[][0] z[0][] -median
+  cut z x y_mean   x 0 0 z[][0] z[0][] -mean
+  cut z x y_inner  x 0 0 z[][0] z[0][] -inner
+  
+end
+
+macro checkrange
+  if ($0 != 2)
+    echo "USAGE: checkrange (Npts)"
+    break
+  end
+
+  $Npts = $1
+  if ($Npts % 2)
+    $Ncenter = int($Npts / 2)
+    $Nquarter = int(0.25 * $Npts)
+    $Ns = $Ncenter - $Nquarter
+    $Ne = $Ncenter + $Nquarter
+  else
+    $Ncenter = int($Npts / 2) - 1
+    $Nquarter = int(0.25 * $Npts)
+    $Ns = $Ncenter - $Nquarter
+    $Ne = $Ncenter + $Nquarter + 1
+  end
+  if ($Ns < 0)
+    echo "error: Ns < 0: $Ns $Ncenter $Nquarter"
+  end
+  if ($Ne >= $Npts)
+    echo "error: Ne >= Npts: $Ne $Ncenter $Nquarter"
+  end
+  echo "$Npts : $Ncenter : $Nquarter : $Ns $Ne"
+  for i 0 $Npts
+    echo $i {($i >= $Ns) && ($i <= $Ne)}
+  end
+end
+
 
 # Test if cut works