hypot
sqr swap sqr + sqrt
?
dup .
spd50
50 yards swap / = mph .
grav
>$rad * @G * @$rad sqr / delvar $rad
kg
kilogram
km
kilometer
energy
@c sqr *
pi
3.14159265358
_prompt
stack
add_vel
@c / >$v1 @c / >$v2 @$v1 @$v2 + @$v1 @$v2 * 1 + / @c *
neg
0 swap -
circum
@pi 2 * *
c.area
sqr @pi *
s.vol
3 pwr 4 * 3 / @pi *