That was quick! --Kip Sent from my iPad
> On Nov 8, 2013, at 1:04 PM, Henry Rich <[email protected]> wrote: > > clean =. (* (2^_44) < |)&.:+. > clean =. (* *@:|)&.:+. > > Henry Rich > >> On 11/8/2013 1:36 PM, km wrote: >> 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 > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
