%%HP: T(3)A(D)F(.);
\<< 3 SF CBM 3 CF b
bw - hf * fc * .85
* fy / 'Asf' STO As
Asf - fy * .85 / fc
/ bw / 'a' STO
  IF 'a<hf'
  THEN
"Does not behave as 
T-beam. RCBA was used."
CLLCD 1 DISP 1
FREEZE 4 SF RCBA
  ELSE Asf bw / d /
'\Grf' STO 87000 DUP
fy + / .85 * \Gb1 *
fc * fy / \Grf + bw *
b / '\Grb' STO As b /
d / '\Gr' STO
    IF '\Gr>.75*\Grb'
    THEN
"Error: \Gr max!"
DOERR
    END As Asf - fy
* d a 2 / - * hf .5
* NEG d + Asf * fy
* + .9 * 12000 /
'Mu' STO Mu
"Mu(k-ft)" \->TAG
  END
\>>
