FINISH
/CLEAR
/PREP7
!...............................................................
JZ_L=24						    !֧	
ZZ=0.1						
LJ_L=100					    !·
BK_L=32					    !߿糤
ZK_L=64						!
G_QD=0.725					    !ֹy
JZ_QD1=0					    !֧x
JZ_QD2=2*JZ_L+2*BK_L+ZK_L	!Ҽ֧x
ZK_QD=2*JZ_L				    !x
LJ_QD1=-LJ_L				    !·x
LJ_QD2=4*JZ_L+ZK_L+2*BK_L	!·x
L=4*JZ_L+ZK_L+2*BK_L+2*LJ_L	!㳤ȣ·֣
A=1							    !㵥Ԫ
LF=0.3						    !
!.....................................................
ET,1,LINK1
R,70,77.45E-4                      
MP,EX,1,2.1e11
MP,ALPX,1,11.8e-6
MP,PRXY,1,0.3

ET,2,BEAM54
MP,EX,2,3.6e10	                     
MP,ALPX,2,1.0e-5
MP,PRXY,2,0.3
R,100,2.24,2.75,1.08,2,2.24,2.75
RMORE,1.08,2,,-1.08,,-1.08
R,101,2.24,2.75,1.08,2,2.24,2.75
RMORE,1.08,2,,2,,-1.08
R,102,2.24,2.75,1.08,2,2.24,2.75
RMORE,1.08,2,,-1.08,,2					

R,130,3.58,5.29,1.46,1.59,3.58,5.29
RMORE,1.46,1.59,,-1.46,,-1.46	
R,131,3.58,5.29,1.46,1.59,3.58,5.29
RMORE,1.46,1.59,,1.59,,-1.46
R,132,3.58,5.29,1.46,1.59,3.58,5.29
RMORE,1.46,1.59,,-1.46,,1.59		    

ET,3,COMBIN39
KEYOPT,3,3,0	                     
ET,4,COMBIN14
KEYOPT,4,2,1	                      
ET,5,COMBIN14
KEYOPT,5,2,2	                     
R,80,-7e-3,-24.014e3,-4.5e-3,-24.009e3,-2e-3,-24e3
RMORE,-1.95e-3,-23.5e3,-1.9e-3,-22e3,-1.8e-3,-20.5e3
RMORE,-1.65e-3,-19.375e3,-1.5e-3,-18.25e3,-1e-3,-12.5e3
RMORE,-0.5e-3,-5.75e3,0,0,0.5e-3,5.75e3
RMORE,1e-3,12.5e3,1.5e-3,18.25e3,1.65e-3,19.375e3
RMORE,1.8e-3,20.5e3,1.9e-3,22e3,1.95e-3,23.5e3
RMORE,2e-3,24e3,4.5e-3,24.009e3		   !ʵء
R,800,-7e-3,-38.014e3,-4.5e-3,-38.009e3,-2e-3,-38e3
RMORE,-1.95e-3,-37.05e3,-1.9e-3,-36.1e3,-1.8e-3,-34.2e3
RMORE,-1.65e-3,-31.35e3,-1.5e-3,-28.5e3,-1e-3,-19e3
RMORE,-0.5e-3,-9.5e3,0,0,0.5e-3,9.5e3
RMORE,1e-3,19e3,1.5e-3,28.5e3,1.65e-3,31.35e3
RMORE,1.8e-3,34.2e3,1.9e-3,36.1e3,1.95e-3,37.05e3
RMORE,2e-3,38e3,4.5e-3,38.009e3			 !ɣϹ졢úˮ
mp,damp,50,0.05
R,700,300E5						         



!ֹ
TYPE,1
REAL,70
MAT,1
N,1,-LJ_L,G_QD
*DO,I,2,L/A+1
N,I,-LJ_L+(I-1)*A,G_QD
E,I,I-1
*ENDDO

!֧ 10000
TYPE,2
MAT,2
*DO,I,1,2
REAL,101
N,10000+I*100,LF+(I-1)*JZ_L,-3.08
N,10000+I*100+1,A+(I-1)*JZ_L,0
E,10000+I*100,10000+I*100+1
D,10000+I*100,UY,0
N,90000+I,LF+(I-1)*JZ_L,-4.08
D,90000+I,ALL,0
REAL,100
*DO,J,2,JZ_L/A
N,10000+I*100+J,J*A+(I-1)*JZ_L,0
E,10000+I*100+J-1,10000+I*100+J
*ENDDO
REAL,102
N,10000+I*100+JZ_L/A+1,I*JZ_L+ZZ,-3.08
E,10000+I*100+JZ_L/A,10000+I*100+JZ_L/A+1
*ENDDO
*DO,I,1,2
D,10000+I*100+JZ_L/A+1,UY,0
*ENDDO

!	12000
TYPE,2
REAL,131
N,12000,ZK_QD+LF,-3.05
N,12001,ZK_QD+A,0
E,12000,12001
D,12000,UY,0
*DO,I,2,BK_L/A-1
REAL,130
N,12000+I,ZK_QD+A*I,0		
E,12000+I-1,12000+I
*ENDDO
REAL,132
N,12000+BK_L/A,ZK_QD+BK_L,-3.05
E,12000+BK_L/A-1,12000+BK_L/A
D,12000+BK_L/A,UY,0
N,12000+BK_L/A+1,ZK_QD+BK_L+A,0
REAL,131
E,12000+BK_L/A,12000+BK_L/A+1
REAL,130
*DO,I,2,ZK_L-1
N,12000+BK_L/A+I,ZK_QD+BK_L+I*A,0
E,12000+BK_L/A+I-1,12000+BK_L/A+I
*ENDDO
REAL,132
N,12000+BK_L/A+ZK_L/A,ZK_QD+BK_L+ZK_L,-3.05
D,12000+BK_L/A+ZK_L/A,UY,0
E,12000+BK_L/A+ZK_L/A-1,12000+BK_L/A+ZK_L/A
REAL,131
N,12000+BK_L/A+ZK_L/A+1,ZK_QD+BK_L+ZK_L+A,0
E,12000+BK_L/A+ZK_L/A,12000+BK_L/A+ZK_L/A+1
REAL,130
*DO,I,2,BK_L-1
N,12000+BK_L/A+ZK_L/A+I,ZK_QD+BK_L+ZK_L+I*A,0
E,12000+BK_L/A+ZK_L/A+I-1,12000+BK_L/A+ZK_L/A+I
*ENDDO
REAL,132
N,12000+2*BK_L/A+ZK_L/A,ZK_QD+2*BK_L+ZK_L,-3.05
E,12000+2*BK_L/A+ZK_L/A-1,12000+2*BK_L/A+ZK_L/A
D,12000+2*BK_L/A+ZK_L/A,UY,0
N,90005,ZK_QD+BK_L,-4.05
D,90005,ALL,0

!Ҽ֧	14000
TYPE,2
*DO,I,1,2
REAL,101
N,14000+I*100,JZ_QD2+LF+(I-1)*JZ_L,-3.08
N,14000+I*100+1,JZ_QD2+A+(I-1)*JZ_L,0
E,14000+I*100,14000+I*100+1
N,90002+I,JZ_QD2+(I-1)*JZ_L+LF,-4.08
D,90002+I,ALL,0
REAL,100
*DO,J,2,JZ_L/A
N,14000+I*100+J,JZ_QD2+J*A+(I-1)*JZ_L,0
E,14000+I*100+J-1,14000+I*100+J
*ENDDO
REAL,102
N,14000+I*100+JZ_L/A+1,JZ_QD2+I*JZ_L+ZZ,-3.08
E,14000+I*100+JZ_L/A,14000+I*100+JZ_L/A+1
D,14000+I*100+JZ_L/A+1,UY,0
*ENDDO
*DO,I,1,2
D,14000+I*100,UY,0
*ENDDO

!·ڵ	20000
*DO,I,1,LJ_L/A+1
N,21000+I,LJ_QD1+(I-1)*A
*ENDDO
N,22001,LJ_QD2+LF
*DO,I,2,LJ_L/A+1
N,22000+I,LJ_QD2+(I-1)*A
*ENDDO
NSEL,S,,,21001,23000
D,ALL,ALL,0

!
ESEL,S,REAL,,70
CM,GUI,ELEM
ESEL,S,REAL,,1,GG_L/A
ESEL,A,REAL,,100,132
CM,LIANG,ELEM

!ۼ
ESEL,S,ELEM,,GUI
ESEL,A,ELEM,,LIANG
NSLE,S,ALL
NSEL,A,,,21001,23000	
TYPE,3
REAL,80
MAT,50
EINTF,,,LOW,,,0.725

!֧
ESEL,S,ELEM,,LIANG
NSLE,S,ALL
NSEL,A,,,90001,90005
TYPE,4
REAL,700
MAT,50
EINTF,,,LOW,,,1
ALLS
SAVE                                   


!¶Ⱥ

/SOLU
ANTYPE,0
ESEL,S,TYPE,,2
CM,LIANG,ELEM                         
ALLSEL
BFE,LIANG,TEMP,,25                      
SOLVE

!鿴λƽ
/POST1
ESEL,S,TYPE, ,1
PLESOL,U,X
PLESOL,U,Y
ETABLE,FX_I,SMISC,1
ETABLE,FX_J,SMISC,7
PLLS,FX_I,FX_J,1                         
PLNSOL, U,X, 0,1.0 

ALLS
ESEL,S,,,508,516,1                      !˿ʼ
SFBEAM,ALL,,PRES,146.7               !עĻ,q=220*5/7.5
ALLS
ESEL,S,,,517,547,1
SFBEAM,ALL,,PRES,92                  
ALLS
ESEL,S,,,548,569,1
ESEL,A,,,572,601,1
SFBEAM,ALL,,PRES,80                  !һ2
ANTYPE,STATIC
/SOLU
SOLVE

!鿴λƽ
/POST1
ESEL,S,TYPE, ,1
PLESOL,U,X
PLESOL,U,Y
ETABLE,FX_I,SMISC,1
ETABLE,FX_J,SMISC,7
PLLS,FX_I,FX_J,1                         
PLNSOL, U,X, 0,1.0 




