/filename,ex6-5                          	!ùļ
/title,The Simulation Analysis of the Tunnel   	!趨
/prep7                                 	        !ǰ
!***************************
!嵥Ԫ͡ϡʵ
!***************************
et,1,mesh200,6                          	!趨񻮷ֵԪ
et,2,shell63                             	!趨Ԫ
et,3,solid45                             	!趨Ԫ
r,1,0.4                                 	!ʵ
!
mp,ex,1,4.0e10                          	!趨
mp,prxy,1,0.2
mp,dens,1,2700
mp,ex,2,5e8                            	        !趨ΧĲ
mp,prxy,2,0.32
mp,dens,2,2200
mp,ex,3,5e8                      		!趨ȥĲ
mp,prxy,3,0.32
mp,dens,3,2200
!***************************
!ģ
!***************************
k,,                               		!ؼ
k,,,5
k,,5,5
k,,5,,
k,,2.5,7.5
!
l,1,2                             		!
l,4,3
l,1,4
larc,2,5,3,2.5
larc,3,5,2,2.5
lcomb,4,5,0
al,1,3,2,4                         		!ȥģ
!
k,,-25,-25                         		!ʣؼ
k,,-25,32.5
k,,30,32.5
k,,30,-25
l,5,6                             		!ʣΧ
l,6,7
l,7,8
l,8,5
!
l,2,6
l,3,7
l,4,8
l,1,5
!
al,9,4,10,6                       		!ʣ
al,9,1,12,5
al,3,12,8,11
al,11,7,10,2
!
/pnum,area,1                   		!
Aplot                         		!ʾͼԪ
Aglue,all                      		!кϲ
numcmp,all                   	 	!ϲظԪ
!***************************
!ģͽ񻮷
!***************************
lsel,s,line,,1,2,1
lsel,a,line,,5,7,2
lesize,all,,,10                   		!Ϊ10
allsel
!
lsel,s,line,,4,6,2
lsel,a,line,,3,8,5
lesize,all,,,10                   		!Ϊ10
allsel
!
lsel,s,line,,9,12,1
lesize,all,,,15,5                 		!Ϊ15ñΪ5
allsel
!
type,1                        			!ѡԪΪԪ
asel,s,area,,1,5,1                		!ѡ1~5
amesh,all                     			!񻮷
!***************************
!ɳģ
!***************************
k,1000,,,-10                   		!츨ؼ
l,1,1000                       		!츨
lesize,13,,,10                   	!
lsel,s,line,,1,4,1
adrag,all,,,,,,13                  	!13ɳ
type,2                         		!ÿ񻮷ֵ
real,1                         		!ʵ1 
mat,1                         		!ϱ1
asel,s,loc,z,-5                   	!ѡ
aplot                          	!ʾ
mshape,0,2D                   	!趨״Ϊı
mshkey,1                      	!趨ʽΪӳ
amesh,all                      	!ԳԪ񻮷
!***************************
!ʣʯʵģ
!***************************
type,3                         	!񻮷ֵĵԪ
mat,2                         	!Ĳ 
extopt,aclear,1                  	!趨񽫱 
asel,r,area,,2,5,1
vdrag,all,,,,,,13               	!ʵ
allsel                       		!ѡȫͼԪ
mat,3                       		!趨ȥĲ
vdrag,1,,,,,,13                		!ɱȥʵģ
eplot                       		!ʾԪ
numcmp,all                  		!ѹȫ 
save
fini
!***************************
!ؼ⿪ʼ
!***************************
/solu
antype, 0                    		!趨
!ʩӱ߽Լٶ
asel,s,loc,x,-25                	!ԼXԼ
asel,a,loc,x,30
da,all,ux,0
alls
!
asel,s,loc,y,-25                	!ԼYԼ
da,all,all,
alls
!
asel,s,loc,z,-10                	!ԼǰZԼ
asel,a,loc,z,0
da,all,uz,0
allsel
!
acel,,10                      		!ʩٶ
!趨ѡ
deltim,0.02,0.01,0.2             	!趨Ӳʱ
autots,on                  		!ʹԶز
pred, on                   		!ʱ䲽Ԥ
lnsrch,on                  		!
nlgeom,on                 		!򿪴λѡ
nropt,full                  		!趨ţ٣ɭѡ
cnvtol,f,,0.02,2,0.5         		!趨
!***************************
гʼӦļ
!***************************
Esel,s,type,,2               		!ѡ֧ǵԪΪǰЧԪ
Ekill,all                    		!ɱ
Esel,s,live                  		!ѡеĻԪ
Nsle,s                     		!ѡԪϵĽڵ
Nsel,invert                 		!ѡ񣬼ѡԪϵĽڵ
D,all,all                    		!ԪĽڵʩλԼ
Nsel,all                       		!ѡнڵ
Esel,all                       		!ѡеԪ
Solve                      		!гʼӦ
!***************************
!пڹ̵ļ
!***************************
Esel, s, mat,,3          		!ѡȥʯԪΪЧԪ
Ekill,all                       	!ɱԪ
Esel, s, type,, 2                 	!ѡ֧ĿǵԪ
Ealive,all                      	!Ԫ
Nsle,s                        		!ѡԪĽڵ
Ddele, all, all                   	!ɾڵϵԼ
esel, all
esel,s,live
nsle,s
nsel,invert             
d,all,all,
nsel,all
esel,all
solve
fini
!***************************
!鿴
!***************************
/post1                     	!ͨú
Esel,s,type,,2               	!ѡԪΪ鿴
Plnsol,u,x,                 	!鿴ԪXλ
Plnsol,u,y                  	!鿴ԪYλ
Plnsol,s,x                  	!鿴ԪXӦͼ
Plnsol,s,y                  	!鿴ԪYӦͼ
/exit,all                    	!ȫݲ˳
