老师,我先把代码贴一下,麻烦您看能看出问题不,然后我继续计算着
/clear
/prep7
/units,mpa !!mm,Mg,s,℃
et,1,plane182
et,2,solid186
et,3,solid226,1001
mp,ex,1,7e4 !!光纤
mp,prxy,1,0.17
mp,dens,1,2.2e-9
mp,dens,2,7.75e-9 !!压电片
c11 = 12.035e4
c12 = 7.5179e4
c13 = 7.509e4
c33 = 11.087e4
c44 = 2.2584e4
c66 = 2.1053e4
tb,ANEL,2
tbdata, 1, c11, c12, c13, 0, 0, 0
tbdata, 7, c11, c13, 0, 0, 0
tbdata,12, c33, 0, 0, 0
tbdata,16, c44, 0, 0
tbdata,19, c66, 0
tbdata,21, c66
e13 = -5.3512e-6
e33 = 15.784e-6
e52 = 12.295e-6
tb,PIEZ,2
tbdata, 1, 0, 0, e13
tbdata, 4, 0, 0, e13
tbdata, 7, 0, 0, e33
tbdata,10, 0, 0, 0
tbdata,13, 0, e52, 0
tbdata,16, e52, 0, 0
emunit,EPZRO,8.854e-15
mp,PERx,2, 919
mp,PERy,2, 919
mp,PERz,2, 826
lp=8 !压电片长度
can=16 !光纤悬臂长度
pw=0.6 !压电片半宽度
ph=0.5 !压电片厚度
ra=0.0625 !光纤半径
k,1,0,0,0
circle,1,ra,,,90
lstr,1,3
lstr,1,2
al,1,2,3
type,1
lesize,1,,,8
lesize,2,,,8
lesize,3,,,8
MSHAPE,0,2D
MSHKEY,1
amesh,1
type,2
mat,1
esize,,120
vext,all,,,,,can+lp
vsymm,y,all
vsymm,x,all
numoff,kp,100
numoff,line,100
numoff,area,100
numoff,volu,100
local,11,,,,,,,90
csys,0
k,1,-ra,pw,0
k,2,-(ra+ph),pw,0
k,3,-(ra+ph),-pw,0
k,4,-ra,-pw,0
lstr,1,2
lstr,2,3
lstr,3,4
lstr,4,1
a,1,2,3,4
type,1
lesize,1,,,4
lesize,2,,,10
MSHAPE,0,2D
MSHKEY,1
amesh,1
type,3 $ esys,11 !!!!与极化方向一致
mat,2
esize,,40
vext,1,,,,,lp
nummrg,node
vsel,s,,,1
nslv,s,1
nsel,r,loc,x,-ra
nsel,u,loc,z,0
cp,1,volt,all
ground=ndnext(0)
vsel,s,,,1
nslv,s,1
nsel,r,loc,x,-(ra+ph)
nsel,u,loc,z,0
cp,2,volt,all
load=ndnext(0)
allsel
/solu
antype,modal
modenum=40
modopt,lanb,modenum
mxpand,modenum
nsel,s,loc,z,0
d,all,all,0
allsel
solve
finish
/solu
allsel
antype,trans
TRNOPT,FULL
DAMPRATIO=0.02
TINTP,,0.25,0.5,0.5
pi=4*atan(1)
ff=377.59
nT=5
t=1/ff
n=10
allsel
nsel,s,loc,z,0
d,all,all,0
allsel
d,ground,volt,0
*do,j,1,nT
*do,i,1,n
time,(j-1)*t+t/n*i
d,load,volt,-10e3*sin(2*pi*ff*((j-1)*t+t/n*i))
lswrite,(j-1)*n+i
*enddo
*enddo
allsel
outres,all,all
lssolve,1,(j-1)*n+i
finish
/post26
allsel
nsel,s,loc,x,0
nsel,r,loc,y,0
nsel,r,loc,z,lp+can
*get,end_node,node,0,num,max
allsel
nsol,2,end_node,u,x,ux
plvar,2
finish |