NB. J crashes on my machine with this program.
NB. The software is ubuntu 7.10 and jre1.5.0.
9!:14 ''
j602/beta/2007-09-19/23:00
px =:>@(0{])
xx =:>@(1{])
nx =:>@(2{])
sumx =:>@(3{])
limitx=:>@(4{])
lastx =:>@(5{])
py =:>@(0{[)
xy =:>@(1{[)
ny =:>@(2{[)
sumy =:>@(3{[)
limity=:>@(4{[)
lasty =:>@(5{[)
order=:2
limit=:2^_44
bdata=:order;];0;0;limit;1:
term =:((_1^nx)*(xx%2:)^(2*nx)+px)%([EMAIL PROTECTED]@(px+nx))
next =:](py;xy;(ny+1:);(sumy+]);limity;])term
t1=:[EMAIL PROTECTED](limitx<|@lastx)^:100
B1=:[EMAIL PROTECTED]@bdata"0
t2=:[EMAIL PROTECTED](limitx<|@lastx)^:a:
B2=:[EMAIL PROTECTED]:@[EMAIL PROTECTED]"0
B1 15
0.0415717
B2 15
0.0415717
B1 D.1 [15
0.199568
B2 D.1 [15 NB. crashes with attached dump to home directory
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
