Download or view Beaufort.frink in plain text format
/** This converts to/from the Beaufort wind speed scale. */
Beaufort[n] :=
{
if n conforms dimensionless
return 0.836 n^(3/2) m/s
else
if n conforms velocity
return (0.836 m)^(-2/3) s^(2/3) n^(2/3)
else
return "Error"
}
Download or view Beaufort.frink in plain text format
This is a program written in the programming language Frink.
For more information, view the Frink
Documentation or see More Sample Frink Programs.
Alan Eliasen, eliasen@mindspring.com