/PREP7
et,1,plane13
et,2,fluid29
et,3,fluid29
et,4,fluid129
KEYOPT,1,1,7
KEYOPT,1,2,0
KEYOPT,1,3,1
KEYOPT,1,4,0
KEYOPT,1,5,0
KEYOPT,2,2,0
KEYOPT,2,3,1
!*
KEYOPT,3,2,1
KEYOPT,3,3,1
!*
KEYOPT,4,3,1
!压电材料参数
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,7500
TB,ANEL,1,1,21,0
TBTEMP,0
TBDATA,,11.5e10,7.43e10,7.43e10,0,0,0
TBDATA,,13.9e10,7.78e10,0,0,0,13.9e10
TBDATA,,0,0,0,2.56e10,0,0
TBDATA,,3.06e10,0,2.56e10,,,
TB,PIEZ,1,,,0
TBMODIF,1,1,15.1
TBMODIF,1,2,
TBMODIF,1,3,
TBMODIF,2,1,-5.2
TBMODIF,2,2,
TBMODIF,2,3,
TBMODIF,3,1,-5.2
TBMODIF,3,2,
TBMODIF,3,3,
TBMODIF,4,1,
TBMODIF,4,2,12.7
TBMODIF,4,3,
TBMODIF,5,1,
TBMODIF,5,2,
TBMODIF,5,3,
TBMODIF,6,1,
TBMODIF,6,2,
TBMODIF,6,3,12.7
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,PERX,1,,635
MPDE,PERY,1
MPDATA,PERY,1,,370
MPDE,PERZ,1
MPDATA,PERZ,1,,370
SAVE
MP,DENS,2,1000
MP,SONC,2,1500
MP,MU,2,0
MP,DENS,3,1000
MP,SONC,3,1500
MP,MU,3,1
!实常数
R,1,0.5,0,0,
RECTNG,0.036,0.042,-0.019,0.019
cyl4,,,0,-90,0.5,90
ASBA,2,1,,DELETE,DELETE
RECTNG,0.036,0.042,-0.019,0.019
NUMCMP,ALL
NUMMRG,ALL,,,,LOW
SAVE
csys,1
k,,0.5,30,
k,,0.5,-30,
csys,0
lstr,4,6
lstr,1,5
lstr,8,3
lstr,9,2
lstr,7,4
lstr,7,1
lsel,s,line,,8,13
cm,L1,line
asbl,2,l1
alls
!给面分配属性
ASEL,S,,,1
AATT,1,0,1,0
ASEL,S,,,3
ASEL,A,,,4
ASEL,A,,,5
ASEL,A,,,6
ASEL,A,,,7
ASEL,A,,,8
AATT,2,0,3,0
!划分线
LESIZE,1,,,20,1
LESIZE,2,,,100,1
LESIZE,3,,,20,1
LESIZE,4,,,100,1
LESIZE,6,,,100,-10
LESIZE,7,,,100,-10
LESIZE,8,,,100,10
LESIZE,9,,,100,10
LESIZE,10,,,100,10
LESIZE,11,,,100,10
LESIZE,12,,,100,-10
LESIZE,13,,,100,-10
!划分面不建议用命令
ASEL,S,,,3
ASEL,A,,,4
ASEL,A,,,5
ASEL,A,,,6
ASEL,A,,,7
ASEL,A,,,8
MSHKEY,1
MSHAPE,0,2D
ASEL,S,,,1
AMESH,3,8
alls
!下面划分面不建议用命令
MSHKEY,1
MSHAPE,0,2D
ASEL,S,,,1
AMESH,1
alls
!改变流固接触面单元属性
LSEL,S,,,1
lsel,a,,,2
LSEL,A,,,3
LSEL,A,,,4
NSLL,S,1
ESLN,S
ESEL,u,TYPE,,1
NSLE,S
EMODIF,ALL,TYPE,2
alls
!创建fluid129单元
CSYS,1
LSEL,S,LOC,X,0.5
nsll,s,1
TYPE,4
MAT,2
REAL,1
ESURF
CSYS,0
alls
!创建流固耦合标识符
LSEL,S,,,1
lsel,a,,,2
lsel,a,,,3
lsel,a,,,4
NSLL,S,1
ESEL,S,TYPE,,2
SF,ALL,FSI,1
alls
!施加载荷以及耦合
lsel,s,,,2
nsll,s
CP,1,VOLT,ALL
*GET,N1,NODE,0,NUM,MIN
D,N1,VOLT,10
lsel,s,,,4
nsll,s
CP,2,VOLT,ALL
*GET,N2,NODE,0,NUM,MIN
D,N2,VOLT,0
!求解
/solu
antype,harmic
hropt,full
harfrq,5000,30000
nsubst,100
kbc,1
DMPRAT,0.042
!后处理
!导纳曲线
!显示实部G和虚部B
/POST26
RFORCE,2,N1,AMPS
CFACT,,,,1
PROD,3,2,1,,MHOS,,,-2*3.1416/10 ! 计算导纳Y=-jwQ/V ,10指的是电压
realvar,4,3,,,YR
imagin,5,3,,,YI
PLCPLX,2 !显示实部
PRCPLX,0 !实部+虚部输出
PLVAR,4,5
!画导纳圆
/POST26
RFORCE,2,N1,AMPS
CFACT,,,,1
PROD,3,2,1,,MHOS,,,-2*3.1416 ! 计算导纳Y=-jwQ/V
realvar,4,3,,,YR
imagin,5,3,,,YI
xvar,4
PLVAR,5
|