If the absolute value of a real or imaginary part is < 2_44 then verb clean
replaces the part by 0.
Write verb clean.
]dd =: ^ 0j1 * o. i. 2 2
1 _1j1.22465e_16
1j_2.44929e_16 _1j3.67394e_16
clean dd
1 _1
1 _1
0j1 * dd
0j1 _1.22465e_16j_1
2.44929e_16j1 _3.67394e_16j_1
clean 0j1 * dd
0j1 0j_1
0j1 0j_1
+. dd
1 0
_1 1.22465e_16
1 _2.44929e_16
_1 3.67394e_16
clean +. dd
1 0
_1 0
1 0
_1 0
--Kip Murray
Sent from my iPad
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
