[Jprogramming] Cool roots

[Linda Alvord]

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-bounces at forums.jsoftware.com
[mailto:programming-bounces at forums.jsoftware.com] On Behalf Of Aai
Sent: Friday, December 14, 2012 8:33 AM
To: programming at jsoftware.com
Subject: Re: [Jprogramming] Cool roots



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

It probably should be

    +. a=: (init=: r.@}. at 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