]dd =: ^ 0j1 * o. i. 2 2 (_10+10+])&.:j.dd 1 _1 1 _1
Den 20:15 fredag den 8. november 2013 skrev km <[email protected]>: 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 > > > ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
