`Sets wind pressure profile using Res. 749 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
WIND (PRESS) {T}
/
.MODUWIND 50