FINISH	! ǰ
/CLEAR	! ݿ
/FILNAME,beam	! ļͼα
/TITLE,cantilever beam
/prep7  	!ǰ
!λN,m,s 
!嵥Ԫ
ET,1,BEAM3        	! 1൥ԪΪάԪ
ET,2,MASS21	! 2൥ԪΪάṹԪ
KEYOPT,2,3,4
!  
MP,EX,    1,3E10
MP,PRXY,  1,0.2   
MP,DENS,  1,0  
!ʵ
R,1,0.045,0.0003375,0.3 	!Ծأ߶
R,2,1000	! 
!ڵ
N,1,
N,2,1
N,3,2
N,4,3
!Ԫ
TYPE,1	!ָԪ
MAT,1
REAL,1
E,1,2	!Ԫ
E,2,3
E,3,4
!Ԫ
TYPE,2	!ָԪ
REAL,2
E,2	!弯Ԫ
E,3
E,4
D,1,ALL	!ʩλԼ
D,2,UX,,,4
FINISH	!˳ǰģ

!ģ̬
/SOLU	! ģ
ANTYPE,MODAL	! Ϊģ̬(MODAL)
MODOPT,SUBSP,3	! ѡģ̬Ϊοռ䷨3ģ̬
MXPAND,3
SOLVE 	! ʼ
FINISH	! ˳ģ
!ȡƵ
/POST1	! غģ
SET,LIST	! г3Ƶʽ
FINISH	! ˳ģ
/SOLU

/solu
antype,spectrum
spopt,sprs,,yes
svtype,2     ! Seismic acceleration
sed,0,1,0    !
freq,0.3333,0.8363,1.669,2.500,3.330,4.167,5.000,10.00,100.000	
sv,,0.2653,0.2653,0.4941,0.7108,0.9210,1.1260,1.326,1.326,0.6632
SOLVE	!
FINISH	!˳
/SOL  	!
ANTYPE,SPECTRUM 	!÷Ϊ׷
srss
solve
finish
/post1
/inp,beam,mcom   
pldisp,2
finish
