FINISH
/CLEAR
/PREP7
A=2 $B=1 $W1=200E-3$W2=200E-3$W3=400E-3
T1=13E-3$T2=13E-3$T3=8E-3
F=10E3$Q1=10E3$Q2=5E3
MP,EX,1,210E9
MP,PRXY,1,0.3
ET,1,BEAM189
SECTYPE,1,BEAM,I,HSHAPE
SECOFFSET,CENT
SECDATA,W1, W2, W3, t1, t2, t3
K,1 $K,2,A $K,3,A $K,4,A+B/2 $K,5,A+B
L,1,2$L,3,4$L,4,5
K,501,KX(1),KY(1)+1,KZ(1)
LATT,1,,1,,501,,1
LESIZE,ALL,0.1
LMESH,ALL
DK,1,ALL$DK,5,UY $DK,ALL,UZ$DK,ALL,ROTX
KSEL,S,,,2,3
NSLK,S
CP,1,UX,ALL
CP,2,UY,ALL
CP,3,UZ,ALL
FK,4,FY,-1*F
LSEL,S,,,1
ESLL
SFBEAM,ALL,1,PRES,Q2
ALLSEL
DTRAN $FTRAN
FINISH
/SOLU
SOLVE
FINISH
/POST1
PLDISP,1
ETABLE,MYI,SMISC,2
ETABLE,MYJ,SMISC,15
PLLS,MYI,MYJ
/ESHAPE,1
PLESOL,S,EQV
KSEL,S,,,2
NSLK
PRNSOL,U,Y
ALLSEL