Changeset 20936 for trunk/Ohana/src/opihi/cmd.data/test/gaussj.sh

Timestamp:

Dec 7, 2008, 3:31:01 PM (18 years ago)

Author:

eugene

Message:

big update from eam_branch_20081124 with updates to Opihi math

File:

• trunk/Ohana/src/opihi/cmd.data/test/gaussj.sh (modified) (2 diffs)

trunk/Ohana/src/opihi/cmd.data/test/gaussj.sh

@@ -232 +232 @@
  for i 0 B[]
   for j 0 B[]
+   # echo $i $j meas[$i] inA[$i][$j] B[$j] {inA[$i][$j] * B[$j]} {meas[$i] + inA[$i][$j] * B[$j]}
    meas[$i] = meas[$i] + inA[$i][$j] * B[$j]
+   # echo "-> meas[$i]"
   end
  end
@@ -238 +240 @@
  for i 0 inB[]
   if (abs(inB[$i]-meas[$i]) > 1e-5)
+    echo inB[$i] meas[$i] {abs(inB[$i]-meas[$i])}
     $PASS = 0
   end