-----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of km Sent: Monday, May 27, 2013 1:35 AM To: [email protected] Subject: Re: [Jprogramming] Clean
I didn't think of Signum! Thanks, Roger. Sent from my iPad On May 26, 2013, at 11:56 PM, Roger Hui <[email protected]> wrote: > clean=: (* |@*)&.+. > > Eugene McDonnell objected when we made *x to be 0 for x near 0, saying > that *x should be 0 only if x is 0. > > > On Sun, May 26, 2013 at 9:32 PM, km <[email protected]> wrote: > >> Let's say a real number "ought to be zero" if its absolute value is >> <: the comparison tolerance 2^_44 . Write a verb "clean" that >> replaces real numbers that ought to be zero with zero. How would you >> clean a complex number? >> >> 1 o. 1r2p1 * i. 5 >> 0 1 1.22465e_16 _1 _2.44929e_16 >> clean 1 o. 1r2p1 * i. 5 >> 0 1 0 _1 0 >> >> ^ 0j1 * 1r2p1 * i. 5 >> 1 6.12323e_17j1 _1j1.22465e_16 _1.83697e_16j_1 1j_2.44929e_16 >> clean ^ 0j1 * 1r2p1 * i. 5 >> 1 0j1 _1 0j_1 1 >> >> --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
