Ellipse circumference by pooq(notogawa)

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

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

download

return to the top page