%%HP: T(3)A(D)F(.);
\<< \-> Mu fc\180 Fy b d
  \<< fc\180 1000. / \-> fc
'IFTE(fc\<=4.,.85,IFTE(
fc\>=8.,.65,.85-.05*(fc
-4.)))' .85 * fc\180 *
Fy 1000. * / 87. 87.
Fy + / * .75 * b d *
* b d .0014 * * .85
fc\180 b d * * * DUP SQ
OVER .45 d * / Mu
12000. * * - \v/ - Fy
1000. * /
  \>>
\>>