`Sets wind pressure profile using Res. 749/IS2008 height coefficients
MACRO MODUWIND
 MACRO T
  SET P = %%92 TIMES {C} TIMES {WS} TIMES {WS} DIV 1000
  SET T = "{T} {P} @ %%91"
 //
 VARIABLE (STRING) T
 VARIABLE (REAL) P,C,WS
 UNIT MT
 SET C = 0.5 TIMES 1.222 DIV 9.807
 SET WS = %1 TIMES 0.5147 `Converts knots to m/sec
 SET T = ""
 .T    0.0  1.00
 .T   15.3  1.10
 .T   30.5  1.20
 .T   46.0  1.30
 .T   61.0  1.37
 .T   76.0  1.43
 .T   91.5  1.48
 .T  106.5  1.52
 .T  122.0  1.56
 .T  137.0  1.60
 .T  152.5  1.63
 .T  167.5  1.67
 .T  183.0  1.70
 .T  198.0  1.72
 `HEIGHTS ABOVE 199M REQUIRE GHS 1878C OR LATER
 `.T  213.5  1.75
 `.T  228.5  1.77
 `.T  244.0  1.79
 `.T  256.0  1.80
 WIND (PRESS) {T} /STEPWISE
/
.MODUWIND 50 `For a 50-knot wind.