/PREP7
ET,1,BEAM188
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,20.6e10
MPDATA,PRXY,1,,0.3
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,7850
SECTYPE,1, BEAM, CTUBE, P, 0
SECOFFSET, CENT
SECDATA,0.0935,0.1015,0,0,0,0,0,0,0,0
k,1
k,2,,,6
l,1,2
CM,_Y,LINE
LSEL, , , , 1
CM,_Y1,LINE
CMSEL,S,_Y
!*
!*
CMSEL,S,_Y1
LATT,1, ,1, , , ,1
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
FLST,5,1,4,ORDE,1
FITEM,5,1
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,20, , , , ,1
!*
LMESH, 1
FINISH
/SOL
!*
ANTYPE,2
!*
!*
MODOPT,LANB,10
EQSLV,SPAR
MXPAND,10, , ,0
LUMPM,0
PSTRES,0
!*
MODOPT,LANB,10,0,0, ,OFF
FLST,2,1,1,ORDE,1
FITEM,2,1
!*
/GO
D,P51X, ,0, , , ,ALL, , , , ,
/STATUS,SOLU
SOLVE
FINISH
/POST1
SET,LIST
SAVE
FINISH
! /EXIT,NOSAV |