That can be simplified: 

  ]d=: ^ t. i.6    
1 1 0.5 0.166667 0.0416667 0.00833333
   +. r.}.i.# d
 0.540302  0.841471
_0.416147  0.909297
_0.989992   0.14112
_0.653644 _0.756802
 0.283662 _0.958924
   
Linda


-----Original Message-----
From: programming-boun...@forums.jsoftware.com
[mailto:programming-boun...@forums.jsoftware.com] On Behalf Of Aai
Sent: Friday, December 14, 2012 8:33 AM
To: programm...@jsoftware.com
Subject: Re: [Jprogramming] Cool roots



>        +. a=: (init=: r.@}.@i.@#) c |a
> +. (r.@}.@i.@# (120 120 60 20 5 1 | a))
>

It probably should be

    +. a=: (init=: r.@}.@i.@#) c |d
  0.540302  0.841471
_0.416147  0.909297
_0.989992   0.14112
_0.653644 _0.756802
  0.283662 _0.958924


the trailing 1s shown in the first row of the text are a little enigma.


-- 
Met vriendelijke groet,
@@i = Arie Groeneveld

----------------------------------------------------------------------
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