Ellipse circumference by m.ukai

while 1=1do
Scanf.scanf"%f %f "(fun a b->let rec e=1.-.(b/.a)**2.and g t=if t>0.then sqrt(1.-.e*.sin t**2.)+.g(t-.0.0002)else 0.in
Printf.printf"%.f
"(g 1.5707*.0.0008*.a))done

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

download

return to the top page