clean=:0 {"1 j./"0"_ (*[: | *) +.
]A=:1 o. 1r2p1 * i. 5
0 1 1.22465e_16 _1 _2.44929e_16
clean A
0 1 0 _1 0
]B=:+.^ 0j1 * 1r2p1 * i. 5
1 0
6.12323e_17 1
_1 1.22465e_16
_1.83697e_16 _1
1 _2.44929e_16
clean B
1 0
0 1
_1 0
0 _1
1 0
fix=:(0 {"1 ]) + [: j. 1 {"1 ]
fix clean B
1 0j1 _1 0j_1 1
Linda
-----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
