- 积分
- 5
- 注册时间
- 2004-11-26
- 仿真币
-
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2005-7-13 11:43:13
|
显示全部楼层
来自 四川成都
Re:讨论.圆柱形PVDF膜压电模态分析
我重新做了一下.建模改在柱坐标中建模,压电参数矩阵也做了相应的改变.
因为圆柱面上有两个渡银电极,我用对称选了一边进行建模.得出一阶模态的频率为27KHZ左右.还是比理论值48KHZ要低.恳请大家帮忙检查一下.指导一下.
/title,wave pvdf sys=1
/replot
/prep7
/nopr
! - Material properties for PVDF
*SET,density,1780 ! density
*SET,c11,8.1e9 ! elastic stiffness matrix [c] or
*SET,c12,4.84e9
*SET,c13,4.84e9
*SET,c22,6.92e9
*SET,c23,4.38e9
*SET,c33,6.92e9
*SET,c44,1.38e9
*SET,c55,1.38e9
*SET,c66,1.38e9
*SET,ept31,12 ! Relative permittivity at const [蔚]
*SET,ept32,12
*SET,ept33,12
*SET,e31,0.0104 ! piezoelectric matrix [e] or [d]
*SET,e32,-0.0164
*SET,e33,-0.065
*set,e15,-0.0388
! Material 1 property input
mp,dens,1,density
mp,nuxy,1,0.3
mp,PERX,1,ept31 !data table for relative permittivity at const [蔚]
mp,PERy,1,ept32
mp,PERz,1,ept33
tb,PIEZ,1 ! Data table for piezoelectric matrix [e]
tbda,1,e31
tbda,4,e32
tbda,7,e33
tbda,14,e15
tbda,17,e15
tb,ANEL,1,,,0 ! Elastic compliance matrix [c]
tbda,1,c33,c32,c31
tbda,7,c22,c12
tbda,12,c11
tbda,16,c44
tbda,19,c66
tbda,21,c55
!model the geometroy
csys,1
k,1,5e-3,-60
k,2,5e-3,60
k,3,6e-3
larc,1,2,3,5e-3
kdele,3
lplot
k,3,5e-3,-60,22e-3
l,1,3
lplot
adrag,1,,,,,,2
ldele,2
lplot
numcmp,line
voffst,1,16e-6
SAVE
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
voffst,2,10e-6
SAVE
ALLSEL,ALL
/REPLOT
vglue,all
asel,s,area,,1
aplot
nsla,r,0
dA,1,symm
mp,dens,2,10500
mp,nuxy,2,0.38
MP,EX,2,7.32E+007
ET,1,SOLID 5
ET,2,SOLID185
allsel,all
/replot
lsel,s,line,,6
lsel,a,line,,4
lsel,a,line,,3
lsel,a,line,,8
lplot
lesize,all,,,40
lsel,s,line,,5
lsel,a,line,,1
lsel,a,line,,2
lsel,a,line,,7
lplot
lesize,all,,,10
lsel,s,line,,10
lsel,a,line,,9
lsel,a,line,,12
lsel,a,line,,11
lplot
lesize,all,,,3
allsel,all
/replot
save
et,1,solid5
type,1
mat,1
allsel,all
mshape,0,3d
mshkey,1
vmesh,1
*get,Epz,elem,,count
SAVE
VSEL,S, , , 2
VPLOT
TYPE, 2
MAT, 2
vsweep,2
allsel,all
/replot
da,3,symm
da,8,symm
allsel,all
/replot
asel,s,area,,1
nsla,r,0
d,all,ux,,,,,uy
ALLSEL,ALL
/REPLOT
asel,s,area,,5
asel,a,area,,10
aplot
nsla,r,0
nplot
d,all,ux,,,,,uy,uz
SAVE
ALLSEL,ALL
/REPLOT
VPLOT
asel,s,area,,6
asel,a,area,,11
aplot
nsla,r,0
nplot
d,all,ux,,,,,uy,uz
ALLSEL,ALL
/REPLOT
VPLOT
asel,s,area,,4
asel,a,area,,9
aplot
nsla,r,0
nplot
d,all,ux,,,,,uy,uz
SAVE
SAVE
ALLSEL,ALL
/REPLOT
VPLOT
asel,s,area,,1 ! Define bottom electrode
nsla,r,0
cp,1,volt,all
*get,n_bot,node,0,num,min ! Get master node on bottom electrode
ALLSEL,ALL
/REPLOT
asel,s,area,,2 ! Define top electrode
nsla,r,0
cp,2,volt,all
*get,n_top,node,0,num,min
nsel,all
d,n_bot,volt,0 ! Ground bottom electrode
d,n_top,volt,0
fini
allsel,all
/replot
/solu
antype,static ! Static analysis
pstres,on
outpr,basic,last
solve
fini
ALLSEL,ALL
/REPLOT
/solu
antype,modal ! Modal analysis
pstres,on
*SET,nmodes,5 ! Number of modes
modopt,LANB,nmodes ! Block Lanczos solver
mxpand,nmodes,,,yes ! Calculate element results and reaction forces
d,n_top,volt,0 ! Short-circuit top electrode
solve
/USER, 1
/REPLO
fini
/POST1
SET,LIST
allsel,all
/replot
FINISH
/SOL
antype,harmic ! The center frequency
outres,all,all
dmprat,0.005 !damping ratio
harfrq,20000,30000
nsubst,100
kbc,1
eqslv,sparse
d,n_top,volt,100
solve
save
FINISH
请大家帮忙看一下问题出在哪导致频率比理论值低?谢谢各位.. |
|