/filename,ex6-2                       	        !趨
/title,The Dynamic Analysis of Arch Bridge 	!趨
!*******************************
!
!*******************************
*set,deltl,32/100                  		!ƶصľ
*set,v,120,                       		!ƶٶ120Km/h
*set,deltt,deltl/v*3.6                 		!ƶصʱ
*set,f,1000                      		!ÿֵĺ
*set,w,10                          	        !гƵ
!*******************************
!嵥Ԫ͡ϲʵ
!*******************************
/prep7 
et,1,BEAM3                     		        !嵥Ԫ
r,1,25.48e-4 ,250500E-8,1.5        		!嵥Ԫʵ
!
mp,ex,1,1e11                    		!ϲ 
mp,prxy,1,0.3 
mp,dens,1,2700
mp,ex,2,2e11                    		!幰Ȧϲ 
mp,prxy,2,0.3 
mp,dens,2,2700
!*******************************
!ģͣ浥Ԫ
!*******************************
n,1,                            		!ɽڵ
n,101,32,0,0
fill,1,101
*do,i,1,100                      		!浥Ԫ
E,I,i+1
*enddo
!
K,1,,-6,,                        		!Ȧؼ
K,2,8,-1,, 
K,3,16,-6,, 
Larc, 1, 3, 2                       		!ɻ
Lgen,2,1,,,16                      		!
!*******************************
!ģͣɹȦԪ
!*******************************
TYPE, 1                        		        !ùȦԪ
MAT, 2                           		!ùȦϺ
REAL, 1                          		!ùȦʵ
ESYS, 0                          		!ùȦԪϵ
!
LESIZE,ALL, , ,50, ,, , ,,            		!ָߵķָ
LMESH, all 
!
E,7,111                          		!ͨڵɵԪ
E,14,118
E,40,140
E,47,147
E,65,170
E,57,162
E,92,193
E,97,198
!
Nummrg,all,all                   		!ϲظ
Numcmp,all                     		        !ѹв
save
finish 
!*******************************
!ؼ
!*******************************
/solu 
ANTYPE, 4                       		!÷Ϊ˲̬
TRNOPT, FULL                   		        !趨Ϊȫ˲̬
!ʩλԼ
Nsel,s,,,1                         		!ѡڵ
Nsel,a,,,101
Nsel,a,,,102
Nsel,a,,,103
Nsel,a,,,153
Nsel,a,,,154
D,all,all                          		!ѡڵʩȫλԼ
!ʩٶ
Acel,,10                       		        !ʩYٶ
!*******************************
!ʩƶг
!*******************************
*do,ii,1,101+8,1                !ѭ⡣ǰּ2.56ѭ8
Outres,all,all                  !ѡΪӲĽ
Time, ii*deltt                  !趨ÿغɲʱ
Nsubst, 5                     	!趨ÿغɲӲ
!ǰʻ桢δʻ
*if ,ii, lt, 8,then             !IF俪ʼiiС8ִ
Fdele,all,all                   !ɾеļغ
ESEL, S, MAT,,1               	!ѡΪ1еԪ
Nsle,s                        	!ѡԪĽڵ
Nsel,r,loc,x,(ii-1)*deltl       !ٴӵǰڵѡǰּýڵ
F,all,fy,-f *cos(w*ii*deltt)    !ʩǰּغ
Allsel                        	!ѡԪ
Solve                        	!ʼ
!ǰֶʻ
*elseif,ii,lt,101               !ELSEIF俪ʼiiС101ִ 
Fdele,all,all                    
ESEL,S, MAT,,1
Nsle,s
Nsel,r,loc,x,(ii-1)*deltl       !ӵǰڵѡǰּýڵ
F,all,fy,-f *cos(w*ii*deltt)    !ʩǰּغ
Allsel
Esel,s,mat,,1
Nsle,s
Nsel,r,loc,x,(ii-7-1)*deltl     !ӵǰڵѡּýڵ
F,all,fy,-f *cos(w*ii*deltt)    !ʩӺּغ
Allsel
Solve
!ǰʻ桢δʻ
*else                                   !ELSE俪ʼii101ִ
Fdele,all,all
ESEL,S,MAT,,1
Nsle,s
Nsel,r,loc,x,(ii-7-1)*deltl,           	!ӵǰڵѡּýڵ
F,all,fy,-f *cos(w*ii*deltt)          	!ʩӺּغ
Allsel
Solve                           
*endif                          	!IF
*enddo                         	        !ѭ
!*******************************
!鿴
!*******************************
!ƶгµĽ
/POST26
Nsol,2,52,u,y,uy_2          		!ڵ52YλΪ2
XVAR,1                  		!趨ʱΪX
PLVAR,2,                 		!ʾڵ52Yλƣʱ
!*******************************
!ʩƶ㶨
!*******************************
*do,ii,1,101+8,1                  
Outres,all,all                     
Time, ii*deltt                     
Nsubst, 5                        
*if ,ii, lt, 8,then
Fdele,all,all                      
ESEL, S, MAT,,1
Nsle,s
Nsel,r,loc,x,(ii-1)*deltl             
F,all,fy,-f         	 	  !ʩӺ㶨غ
Allsel                          
Solve
*elseif,ii,lt,101
Fdele,all,all
ESEL,S, MAT,,1
Nsle,s
Nsel,r,loc,x,(ii-1)*deltl
F,all,fy,-f                        !ʩӺ㶨غ
Allsel
Esel,s,mat,,1
Nsle,s
Nsel,r,loc,x,(ii-7-1)*deltl
F,all,fy,-f
Allsel
Solve
*else
Fdele,all,all
ESEL,S,MAT,,1
Nsle,s
Nsel,r,loc,x,(ii-7-1)*deltl,
F,all,fy,-f                           !ʩӺ㶨غ
Allsel
Solve
*endif
*enddo
!*******************************
!鿴
!*******************************
!ƶ㶨µĽ
/POST26   
Nsol,2,52,u,y,uy_2          		!ڵ52YλΪ2
XVAR,1                  		!趨ʱΪX 
PLVAR,2,                 	        !ʾڵ52Yλƣʱ
FINISH                  		!ģ
/EXIT,ALL               		!ȫݲ˳
