A real number equals its conjugate, so (~:+) works too:

    ]A=:(i:2)j./i:2
_2j_2 _2j_1 _2 _2j1 _2j2
_1j_2 _1j_1 _1 _1j1 _1j2
  0j_2  0j_1  0  0j1  0j2
  1j_2  1j_1  1  1j1  1j2
  2j_2  2j_1  2  2j1  2j2
    (~:+) A
1 1 0 1 1
1 1 0 1 1
1 1 0 1 1
1 1 0 1 1
1 1 0 1 1

Esa
-----Original Message-----
From: [email protected] 
[mailto:[email protected]] On Behalf Of Henry Rich
Sent: 29. marraskuuta 2014 05:34
To: [email protected]
Subject: Re: [Jprogramming] Better way to locate coomplex or real numbers in an 
array

    ]A=:(i:2)j./i:2
_2j_2 _2j_1 _2 _2j1 _2j2
_1j_2 _1j_1 _1 _1j1 _1j2
  0j_2  0j_1  0  0j1  0j2
  1j_2  1j_1  1  1j1  1j2
  2j_2  2j_1  2  2j1  2j2
    (0 ~: 11&o.) A
1 1 0 1 1
1 1 0 1 1
1 1 0 1 1
1 1 0 1 1
1 1 0 1 1

Henry Rich

On 11/28/2014 10:27 PM, Linda Alvord wrote:
> A is an array of real and complex numbers.  Is there an easier way to locate
> all the complex numbers.  Signum locates each numbers intersection with a
> line from it to the origin and the circle.
>
>
>
>     ]A=:(i:2)j./i:2
>
> _2j_2 _2j_1 _2 _2j1 _2j2
>
> _1j_2 _1j_1 _1 _1j1 _1j2
>
> 0j_2 0j_1 0 0j1 0j2
>
> 1j_2 1j_1 1 1j1 1j2
>
> 2j_2 2j_1 2 2j1 2j2
>
>
>
>     *A
>
> _0.707107j_0.707107 _0.894427j_0.447214 _1 _0.894427j0.447214
> _0.707107j0.707107
>
> _0.447214j_0.894427 _0.707107j_0.707107 _1 _0.707107j0.707107
> _0.447214j0.894427
>
> 0j_1 0j_1 0 0j1 0j1
>
> 0.447214j_0.894427 0.707107j_0.707107 1 0.707107j0.707107 0.447214j0.894427
>
> 0.707107j_0.707107 0.894427j_0.447214 1 0.894427j0.447214 0.707107j0.707107
>
>
>
>     -.(*A)e. _1 0 1
>
> 1 1 0 1 1
>
> 1 1 0 1 1
>
> 1 1 0 1 1
>
> 1 1 0 1 1
>
> 1 1 0 1 1
>
>
>
> I am looking for the best way to locate all the complex numbers.
>
>
>
> Linda
>
> ----------------------------------------------------------------------
> 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

Reply via email to