Is this what you mean? A-:*&.+.B 1
On Sun, Mar 3, 2013 at 4:30 AM, Linda Alvord <lindaalv...@verizon.net> wrote: > I was rereading this thread and I remember that in APL there is a function > that can be applied to B to get A. Is there an equivalent function in J? > > f=: 13 :'^@o.j.0.5*i.y' > ]A=: f 3 4 > 1 0j1 _1 0j_1 > 1 0j1 _1 0j_1 > 1 0j1 _1 0j_1 > > g=: 13 :'([:^o.)j.0.5*i.y' > B=:g 3 4 > 1 6.12323e_17j1 _1j1.22465e_16 _1.83697e_16j_1 > 1j_2.44929e_16 3.06162e_16j1 _1j3.67394e_16 _4.28626e_16j_1 > 1j_4.89859e_16 5.51091e_16j1 _1j6.12323e_16 _2.44991e_15j_1 > > ((f 3 4)-:g 3 4) > 1 > > Linda > -- (B=) ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
