%%HP: T(3)A(D)F(.);
\<< fc \v/ 2 * b * d *
'Vc' STO Av fy * d
* s / 'Vs' STO
  IF s d 2 / > s 12
> OR Vs 2 Vc * >
AND
  THEN
"Stirrups too far apart"
DOERR
  END
  IF Vs Vc 4 * >
  THEN "Vs reduced"
Vc 4 * 'Vs' STO
CLLCD 1 DISP 1
FREEZE
  END Vc Vs + .85 *
1000 / "Vu (kips)"
\->TAG
\>>
