Changeset 20870
- Timestamp:
- Dec 1, 2008, 7:00:40 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/eam_branch_20081124/Ohana/src/opihi/cmd.data/test/gaussj.sh
r16269 r20870 232 232 for i 0 B[] 233 233 for j 0 B[] 234 # echo $i $j meas[$i] inA[$i][$j] B[$j] {inA[$i][$j] * B[$j]} {meas[$i] + inA[$i][$j] * B[$j]} 234 235 meas[$i] = meas[$i] + inA[$i][$j] * B[$j] 236 # echo "-> meas[$i]" 235 237 end 236 238 end … … 238 240 for i 0 inB[] 239 241 if (abs(inB[$i]-meas[$i]) > 1e-5) 242 echo inB[$i] meas[$i] {abs(inB[$i]-meas[$i])} 240 243 $PASS = 0 241 244 end
Note:
See TracChangeset
for help on using the changeset viewer.
