!COD
!CODƵΪ40HZ,Ϊ1E-4T

FINI
/CLE
/FILENAME,COD 
/TITLE,COD ANLYSIS
*AFUN,RAD
!ò
*SET,LL,23.6		!CODųMM
*SET,BB,10.3		!CODſ
*SET,TT,0.75		!CODź
*SET,EE,210E3		!CODŵģ
*SET,DL,10		!CODż
*SET,LC,25.6		!Ԫ
*SET,BC,16.8		!Ԫ
*SET,HC,29.1		!Ԫ߶
*SET,EC,100E3		!Ԫģ
*SET,NN,2		!CODŵԪ
*SET,NB,6		!CODſȷԪ
*SET,NC,12		!CODųȷ
*SET,NL,12		!Ԫȷ

!ģ
/PREP7
!Ԫ
ET,1,MESH200		!ƽ
KEYOPT,1,1,6		!ı
ET,2,SOLID45
MP,EX,1,EE		!COD
MP,PRXY,1,0.3
MP,DENS,1,2.8E-6
MP,EX,2,EC		!Ԫ
MP,PRXY,2,0.3
MP,DENS,2,2E-6

/PNUM,KP,1
/PNUM,LINE,1
/PNUM,NODE,0
/VIEW,1,1,1,1
/ESHAPE,1

!ƽģ
!ؼƵ
K,1
K,2,,,BC
K,3,,HC
K,4,,HC,BC
K,5,,(HC-2*TT-DL)/2,BC
K,6,,(HC-DL)/2,BC
K,7,,(HC-2*TT+DL)/2,BC
K,8,,(HC+DL)/2,BC
K,9,,(HC-2*TT-DL)/2,(BC+BB)/2
K,10,,(HC-DL)/2,(BC+BB)/2
K,11,,(HC-2*TT+DL)/2,(BC+BB)/2
K,12,,(HC+DL)/2,(BC+BB)/2
K,13,,(HC-2*TT-DL)/2,(BC-BB)/2
K,14,,(HC-DL)/2,(BC-BB)/2
K,15,,(HC-2*TT+DL)/2,(BC-BB)/2
K,16,,(HC+DL)/2,(BC-BB)/2
K,17,,(HC-2*TT-DL)/2
K,18,,(HC-DL)/2
K,19,,(HC-2*TT+DL)/2
K,20,,(HC+DL)/2
K,21,,,(BC+BB)/2
K,22,,,(BC-BB)/2
K,23,,HC,(BC+BB)/2
K,24,,HC,(BC-BB)/2
!ƽģ
A,1,17,13,22
A,17,18,14,13
A,18,19,15,14
A,19,20,16,15
A,20,3,24,16
A,22,13,9,21
A,13,14,10,9
A,14,15,11,10
A,15,16,12,11
A,16,24,23,12
A,21,9,5,2
A,9,10,6,5
A,10,11,7,6
A,11,12,8,7
A,12,23,4,8
!ûַ
LSEL,S,LOC,Y,(HC-2*TT-DL)/2+0.5,(HC-DL)/2-0.5
LSEL,A,LOC,Y,(HC-2*TT+DL)/2+0.5,(HC+DL)/2-0.5
LESIZE,ALL,,,NN			!CODźȷ
LSEL,S,LOC,Z,0.5,(BC-BB)/2-0.5
LSEL,A,LOC,Z,(BC+BB)/2+0.5,BC-0.5
LESIZE,ALL,,,NN			!Ԫ
LSEL,S,LOC,Y,0.5,(HC-2*TT-DL)/2-0.5
LSEL,A,LOC,Y,(HC-DL)/2+0.5,(HC-2*TT+DL)/2-0.5
LSEL,A,LOC,Y,(HC+DL)/2+0.5,HC-0.5
LESIZE,ALL,,,NB			!CODſȷ
LSEL,S,LOC,Z,(BC-BB)/2+0.5,(BC+BB)/2-0.5
LESIZE,ALL,,,NB			!Ԫ
!CODƽ
TYPE,1
MAT,1
ASEL,S,AREA,,7,9,2
AMESH,ALL
!
TYPE,2
MAT,1
EXTOPT,ESIZE,NC
VEXT,ALL,,,LL
!ֵԪƽ
TYPE,1
MAT,2
ALLS
ASEL,U,AREA,,7,9,2
AMESH,ALL
!
ASEL,S,LOC,X,0
TYPE,2
MAT,2
EXTOPT,ACLEAR,1
EXTOPT,ESIZE,NL
ESEL,ALL
VEXT,ALL,,,-LC
NUMMRG,ALL,ALL
NUMCMP,ALL,ALL
SAVE
FINI

/SOL
ANTYPE,0
NSEL,S,LOC,X,LL
NSEL,R,LOC,Y,(HC+DL)/2			!Ͻ
D,ALL,UX,,,,,UZ
D,ALL,UY,-1.5
ALLS
NSEL,S,LOC,Y,(HC-2*TT-DL)/2		!½
NSEL,R,LOC,X,LL
D,ALL,UX,,,,,UZ
D,ALL,UY,+1.5
ALLS
ACEL,0,9.8,0				!ٶ
SOLVE
SAVE

fini
/post1
FINISH  
/POST1  
PLNSOL, U,SUM, 0,1.0
PLNSOL, S,EQV, 0,1.0
PLNSOL, S,X, 0,1.0 
PLESOL, S,X, 0,1.0 




