Ellipse circumference by *yuko*(notogawa,nn)

do1;read*,a,b;do2 p=8e3,2,-2;2 x=a*6.2832+(p-4+3/p)/p*(1-b*b/a/a)*x;1 print'(i0)',nint(x);end

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

download

return to the top page