%%HP: T(3)A(D)F(.);
\<< \-> E P Ld Lb
  \<<
    CASE '\<-TP==1.'
      THEN .8 .3
      END '\<-TP==2.'
      THEN .9 .418
      END '\<-TP==3.'
      THEN .8 .418
      END '\<-TP==4.'
      THEN .85 .3
      END
    END E 1000. * *
DUP DUP 12. Ld * \<-d /
SQ / '\<-FcE1' STO 12.
Lb * \<-b / SQ /
'\<-FcE2' STO \<-FcE1
\<-FcE2 MIN SWAP
    IF 1. FS?
    THEN 1089. / MIN
    ELSE DROP
    END \<-Fc / SWAP /
LASTARG 2. * INV SWAP
1. + * DUP SQ ROT - \v/
-
    IF 1. FS?C
    THEN .78 *
    END '\<-Fc' STO* P
    IF '\<-TP==4.'
    THEN \<-d SQ 4. / \pi
*
    ELSE \<-b \<-d *
    END /
"Axial Terms:
FcE1 = "
\<-FcE1 +
" psi
FcE2 = " +
\<-FcE2 +
" psi
 Fc\180 = " + \<-Fc
+ " psi
  fc = " +
OVER + " psi" + SCRN
  \>>
\>>