/prep7
ET,1,SOLID5,3 !定义三维固体耦合场单元
MP,DENS,1,7500 !压电陶瓷密度
!!!!阻尼系数!!!!!
mp,dmpr,1,0.005
MP,PERX,1,762 ! X和Y轴向的介电常数
MP,PERZ,1,663 ! Z轴向的介电常数
TB,PIEZ,1 ! 定义压电系数
TBDATA,16,12.7179
TBDATA,14,12.7179
TBDATA,3,-5.2028
TBDATA,6,-5.2028
TBDATA,9,15.0804
TB,ANEL,1 ! 压电陶瓷的弹性系数
TBDATA,1,1.39E11,7.7837E10,7.4284E10
TBDATA,7,1.39E11,7.4284E10
TBDATA,12,1.541E11
TBDATA,16,3.0581E10
TBDATA,19,2.5641E10
TBDATA,21,2.5641E10
!!!!!建立模型划分网格!!!!!!!
block,0,3.5e-3*2,0,3.5e-3*2,0,0.2e-3
aatt,1,1
lsel,s,loc,z,0
lsel,a,loc,z,0.2e-3
lesize,all,,,28
ALLSEL,ALL
lsel,s,loc,x,0
lsel,a,loc,x,3.5e-3*2
lesize,all,,,2
ALLSEL,ALL
vmesh,all
!!!!!!电势面耦合!!!!!!!!!
nsel,s,loc,z,0.2e-3
cm,z1,node
cp,1,volt,all ! 将施加相同电位势的面耦合
*GET,vtop,NODE,,NUM,MIN
allsel,all
nsel,s,loc,z,0
cm,z2,node
cp,2,volt,all
*GET,vbot,NODE,,NUM,MIN
allsel,all
d,vtop,volt,1 ! 在表面加电压1 V
d,vbot,volt,0 ! 在表面加电压0 V
nsel,all
!!!!!!!!!!谐分析!!!!!!!!!!!!!
/solu
eqslv,sparce
antype,harmic
hropt,full
outers,all,all
harfrq,100000,1000000
nsubst,120
kbc,1
solve
FINISH |