Index: trunk/Ohana/src/opihi/cmd.data/test/mslice.sh
===================================================================
--- trunk/Ohana/src/opihi/cmd.data/test/mslice.sh	(revision 40335)
+++ trunk/Ohana/src/opihi/cmd.data/test/mslice.sh	(revision 40335)
@@ -0,0 +1,49 @@
+
+macro test_00
+
+  mcreate t0 30 50 -nz 70
+
+  set t1 = xramp(t0)
+  set t2 = yramp(t0)
+  set t3 = zramp(t0)
+
+  set r0 = sqrt((t1 - 15)^2 + (t2 - 25)^2 + (t3 - 35)^2)
+
+  mslice r0 rz 35 -z
+  mslice r0 ry 25 -y
+  mslice r0 rx 15 -x
+
+  mcreate Rz 30 50
+  set Rz = sqrt((xramp(Rz) - 15)^2 + (yramp(Rz) - 25)^2 + (35 - 35)^2)
+  set dRz = rz - Rz
+
+  mcreate Ry 30 70
+  set Ry = sqrt((xramp(Ry) - 15)^2 + (25 - 25)^2 + (yramp(Ry) - 35)^2)
+  set dRy = ry - Ry
+
+  mcreate Rx 50 70
+  set Rx = sqrt((15 - 15)^2 + (xramp(Rx) - 25)^2 + (yramp(Rx) - 35)^2)
+  set dRx = rx - Rx
+
+  tv -ch 1 dRx -5 10
+  tv -ch 2 dRy -5 10
+  tv -ch 3 dRz -5 10
+
+  mslice r0 rz 13 -z
+  mslice r0 ry 43 -y
+  mslice r0 rx 8 -x
+
+  set Rz = sqrt((xramp(Rz) - 15)^2 + (yramp(Rz) - 25)^2 + (13 - 35)^2)
+  set dRz = rz - Rz
+
+  set Ry = sqrt((xramp(Ry) - 15)^2 + (43 - 25)^2 + (yramp(Ry) - 35)^2)
+  set dRy = ry - Ry
+
+  set Rx = sqrt((8 - 15)^2 + (xramp(Rx) - 25)^2 + (yramp(Rx) - 35)^2)
+  set dRx = rx - Rx
+
+  stat dRx
+  stat dRy
+  stat dRz
+end
+
Index: trunk/Ohana/src/opihi/cmd.data/test/nnet.sh
===================================================================
--- trunk/Ohana/src/opihi/cmd.data/test/nnet.sh	(revision 40334)
+++ trunk/Ohana/src/opihi/cmd.data/test/nnet.sh	(revision 40335)
@@ -162,9 +162,9 @@
 
 # -large-weight-initializer : revert to original implementation
-  nnet create tn 2 2 
-# nnet create tn 2 2 -large-weight-initializer
+# nnet create tn 2 2 
+  nnet create tn 2 2 -large-weight-initializer
 
 # -quadratic-cost : revert to original implementation
-  nnet train tn x0 x1 y0 y1 -Nmini $Nmini -Nepoch $Nepoch -eta $eta -lambda 0.0 -quadratic-cost
+  nnet train tn x0 x1 y0 y1 -Nmini $Nmini -Nepoch $Nepoch -eta $eta -lambda 0.0 -quadratic-cost -resid resid -result result
 # nnet train tn x0 x1 y0 y1 -Nmini $Nmini -Nepoch $Nepoch -eta $eta -lambda 0.0
 # nnet train tn x0 x1 y0 y1 -Nmini $Nmini -Nepoch $Nepoch -eta $eta -lambda 2.0
@@ -240,5 +240,5 @@
 
   # set weights and biases
-  nnet set t1 m1 v1 m1 v1
+  nnet set t1 m1 v1 m2 v2
 
   # generate an input set spanning the range -5 to +5
@@ -256,5 +256,5 @@
 
 # nnet train tn x0 x1 x2 y0 y1 y2 -Nmini $Nmini -Nepoch $Nepoch -eta $eta -lambda 0.1
-  nnet train tn x0 x1 x2 y0 y1 y2 -Nmini $Nmini -Nepoch $Nepoch -eta $eta -lambda 0.0 -quadratic-cost
+  nnet train tn x0 x1 x2 y0 y1 y2 -Nmini $Nmini -Nepoch $Nepoch -eta $eta -lambda 0.0 -quadratic-cost -resid dS -result result
 
   nnet apply tn x0 x1 x2 Y0 Y1 Y2