/filename,ex5-2                               !趨
/title,The Harmonic Analysis of the sample    !趨
/prep7                                        !ǰģ
*set,r1,0.00325                               !
*set,r2,0.031
*set,r3,0.0015
*set,l1,0.0362
*set,l2,0.0103
!
k,1,0,0,0                                !ɹؼ
k,2,0,r1,0
k,3,l1,r1,0
k,4,l1+l2,r3
k,5,l1+l2,0
k,6,l1+l2+l2,r1
k,7,l1,0
l,1,2                                   !
l,2,3
larc,3,4,6,r2                           !ɻ
l,4,5
l,5,7
l,7,1
l,7,3
al,1,2,7,6                             !ͨ
al,3,4,5,7
wpoff,l1+l2                            !ƽƹƽ
csys,4                                 !ƽϵ
arsym,x,1,2                            !xӳ
nummrg,all                             !ϲͼԪ
!
et,1,mesh200                           !嵥Ԫ1
keyopt,1,1,7                           !趨mesh200ĵԪѡ
et,2,solid95                           !嵥Ԫ2 
mp,ex,1,7.1e10                         !嵯ģ
mp,prxy,1,0.3                          !岴ɱ
mp,dens,1,2770                         !ܶ
!
mshape,0,2d                            !趨ı
mshkey,1                               !趨ӳ񻮷
esize,0.0015                           !趨Ԫߴ
amesh,all                              !滮
!
type,2                                 !Ԫ2
extopt,esize,5,0                       !趨Ԫѡָ5ȷֲ
extopt,aclear,0                        !趨Ԫѡԭʼ
allsel,all                             !ѡȫͼԪ
vrotat,all,,,,,,1,8,,                  !ת
!
/SOLU                                  !ģ  
ANTYPE,2                               !趨Ϊģ̬
MODOPT,LANB,10                         !趨ȡģ̬ͽ
MXPAND,10,,,1                          !趨ģ̬չѡ
MODOPT,LANB,10,10000,30000,,OFF        !趨ȡƵʷΧ
CSYS,0                                 !ϵ
NSEL,S,LOC,X,0                         !ѡx=0Ľڵ
NSEL,A,LOC,X,2*l1+2*l2                 !ͬʱѡx=2*l1+2*l2Ľڵ
NPLOT                                  !ͼʾڵ
D,ALL,,,,,,UY,UZ,,,,                   !ڽڵʩuyuzλԼ
ALLSEL,ALL                             !ѡȫͼԪ
SOLVE                                  !ʼ 
ANTYPE,3                               !趨Ϊг
HARFRQ,0,30000,                        !趨гӦƵ
NSUBST,10,                             !趨ƵʶڵӲ
KBC,1                                  !趨ΪԾطʽ
F,1,FX,1,0                             !ڽڵ1ʩxغ
F,361,FX,-1,0                          !ڽڵ361ʩ-xغ
SOLVE                                  !ʼ
Finish                                 !ģ 
/post26                                !ʱ̺
nsol,2,297,u,x,ux                      !ڵ297xλƶΪ2
ANSOL,3,297,S,X,SX                     !ڵ297xӦΪ3
ANSOL,4,297,S,EQV,SEQV                 !ڵ297ƽЧӦΪ4
plvar,2                                !ͼʾ2
plvar,3,4,                             !ͼʾ2~3
prvar,2,3,4                            !ͼʾ2~4
finish                                 !ʱ̺ģ
/post1                                 !ͨú
set,,,1,,21000,,,                      !ӦƵ21000ʱĽ
pldisp,2                               !ͼʾṹͼ
plnsol,s,x                             !ͼʾṹxӦ
plnsol,s,eqv                           !ͼʾṹƽЧӦ
finish                                 !ͨúģ
/exit,all                              !ȫݲ˳
