; Taken from an old BASIC program - I'm not sure if it's useful.
LET YIELD = 1.81437e+10 KILOGRAM
LET SLANT = 32186.9 METER
DEFINE Q(F,Y,TAU,D) = ((((119.504 METER^2 PER SECOND^2  * F) * Y) * TAU) / (D ^ 2))
DEFINE Z(Y,D) = ((Y ^ 0.333333) / D)
DEFINE P(Y,D) = ((22.4 * (Z(Y,D) ^ 3)) + (15.8 * (Z(Y,D) ^ 1.5)))
DEFINE EMP(H) = (((((2 * H) * 3963) / 5280) ^ 1) / 2)
DEFINE REMS(Y,D) = ((250000 * Y) / ((16 * PI) * (D ^ 2)))
DEFINE MASS_TO_ENERGY(MASS) = (MASS * 8.988e+16 METER^2 PER SECOND^2 )