!Ӧʵ4-2
!===Զ===
FINI
/CLE

!嵥Ԫ
/PREP7
ET,1,200			!MESH200ԪΪ1ŵԪ
KEYOPT,1,1,7			!MESH200Ԫ48ڵĿ
!ʵ潨ģ
RECTNG,-0.3,0.3,-0.5,0.5
PCIRC,0.15,0,0,360, 
ASBA,1,2

!ֵԪ
LSEL,S,LINE,,2,4,2
LESIZE,ALL,,,10
LSEL,S,LINE,,1,3,2
LESIZE,ALL,,,6
LSEL,S,LINE,,5,8,1
LESIZE,ALL,,,5
ALLS
AMESH,ALL

SECWRITE,SEC1,SECT		!дļ

!===ʹԶ===
FINI
/CLE

/FILNAME,EX4-2
/TITLE,EXAMPLE 4-2
!嵥Ԫ
/PREP7
ET,1,189			!BEAM189ԪΪ1ŵԪ
MP,EX,1,26E9
MP,PRXY,1,0.2

SECTYPE,1,BEAM,MESH		!
SECOFFSET,CENT			
SECREAD,'SEC1','SECT',' ',MESH	!ȡļ

!ģ
K,1
K,2,10
L,1,2
K,3,,1				!ֵԪʱķ

LATT,1,,1,,3,3,1		!ָԪԣ
				!˲ϺšԪšͽ

LESIZE,ALL,,,10
LMESH,ALL
/ESHAPE,1
EPLOT


FINI
/SOLU
DK,1,ALL,0
DK,2,UY,-1

ALLS
SOLVE



