%%HP: T(3)A(D)F(.);
\<< 2 SF CBM 2 CF
87000 fy - INV
87000 * fc * dp *
fy / d / .85 * \Gb1 *
As Asp - b / d /
  IF >
  THEN
"Neglect comp. steel"
CLLCD 1 DISP 1
FREEZE 4 SF RCBA
  ELSE 87000 fy +
87000 / dp * d /
NEG 1 + 87000 *
'fs' STO
    IF 'fs>fy'
    THEN fy 'fs'
STO
    END Asp b / d /
'\Grp' STO 87000 DUP
fy + / .85 * \Gb1 *
fc * fy / \Grp fs *
fy / + '\Grb' STO As
b / d / '\Gr' STO
    IF '\Gr>.75*\Grb'
    THEN
"Error: \Gr max!" 1
CF DOERR
    END As Asp - fy
* .85 / fc / b /
'a' STO As Asp - fy
* a 2 / NEG d + * d
dp - Asp * fy * +
.9 * 12000 / 'Mu'
STO Mu "Mu(k-ft)"
\->TAG 1 CF
  END
\>>
