%%HP: T(3)A(D)F(.);
\<< \-> E M L Lu MAJOR
  \<<
    IF MAJOR
    THEN
      CASE 'Lu/\<-d<7./
12.'
        THEN Lu 24.72
*
        END 'Lu/\<-d>
14.3/12.'
        THEN Lu 22.08
*
        END Lu 19.56
* \<-d 3. * +
      END \<-d * \<-b SQ
/ DUP \v/
      IF 50. >
      THEN
"NG!
RB > 50" MSGBOX
KILL
      END INV E 1000.
* *
      IF '\<-TP==1. OR
\<-TP==4.'
      THEN .438
      ELSE .609
      END *
"Flexural Terms,
Strong Axis:
 FbE = "
OVER + '\<-MSG' STO
      IF '\<-d/\<-b\<=4. OR
\<-d/\<-b\<=6. AND Lu\<=8.'
      THEN 1.
      ELSE DUP \<-Fb1 /
DUP 1. + 1.9 / DUP SQ
ROT .95 / - \v/ - 1.
MIN
      END
" psi
  CL = " OVER +
'\<-MSG' SWAP STO+ \<-b
\<-d L MAJOR CFV ROT
MIN '\<-Fb1' STO* INV
12. * M * "
F\180b1 = "
\<-Fb1 + " psi
 fb1 = "
+ OVER + " psi" +
\<-MSG SWAP + SCRN
    ELSE
"Flexural Terms,
Weak Axis:"
'\<-MSG' STO \<-d \<-b L
MAJOR CFV '\<-Fb2' STO*
INV 12. * M *
"
F\180b2 = " \<-Fb2 +
" psi
 fb2 = " + OVER
+ " psi" + \<-MSG SWAP
+ SCRN
    END
  \>>
\>>