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