/** 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" }