Ellipse circumference by pooq

do
input""a,b
i=pi/2
f=0^a
for u=2to a/b*99step 2f=i+f
i=i*(u-4+3/u)/u*(1-(b/a)^2)next
?int(f*a*4+.5)loop

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page