*

: ds dup * 2 * swap 3 * + sin 0.5 * 1 + ;
: fc 2dup ds - swap drop ;
: x2 x 0.5 - 2 * ;
: y2 y 0.5 - 2 * ;
y2 x2 atan2 x2 x2 * y2 y2 * + sqrt fc abs

comments powered by Disqus