snnu 发表于 2007-3-20 10:30:52

压电陶瓷的谐响应问题

这是一个压电陶瓷圆环的谐响应分析，求出的是导和纳的频率曲线，出现了纳曲线的凹谷，这是什么问题呢？
另外导纳曲线成了图示德行，怎么回事呢？盼达人正解！！！！

我爱715 发表于 2007-3-21 19:00:46

你是那个学校的呀?出现你这种情况可能是你加电压的问题,我也遇到过，你自己看一下，因该是加电压的问题

snnu 发表于 2007-3-22 13:58:34

回复 #2 我爱715 的帖子

谢谢楼上的，我是陕西师大的，我加的电压是一个电极加100v，另一个加0v，命令流失这样的：（作了几次，比较杂乱）

/BATCH
/COM,ANSYS RELEASE9.0    UP20041104       21:04:55    03/19/2007
/input,menust,tmp,'',,,,,,,,,,,,,,,,1   
/GRA,POWER
/GST,ON
/PLO,INFO,3
/GRO,CURL,ON
/CPLANE,1   
/REPLOT,RESIZE
WPSTYLE,,,,,,,,0
/PREP7
ET,1,SOLID5,3   
mp,DENS,1,7500               ! Density, kg/m**3   
emunit,epzro,8.85E-12   
MP,PERX,1,804.6                  ! PERMITTIVITY (X AND Y DIRECTION)   
MP,PERZ,1,659.7                  ! PERMITTIVITY (Z DIRECTION)
TB,PIEZ,1                        ! DEFINE PIEZ. TABLE
TBDATA,16,10.5                     ! E61 PIEZOELECTRIC CONSTANT
TBDATA,14,10.5                     ! E52 PIEZOELECTRIC CONSTANT
TBDATA,3,-4.1                      ! E13 PIEZOELECTRIC CONSTANT
TBDATA,6,-4.1                      ! E23 PIEZOELECTRIC CONSTANT
TBDATA,9,14.1                      ! E33 PIEZOELECTRIC CONSTANT
TB,ANEL,1                        ! DEFINE STRUCTURAL TABLE
TBDATA,1,13.2E10,7.1E10,7.3E10   ! INPUT MATRIX   
TBDATA,7,13.2E10,7.3E10
TBDATA,12,11.5E10   
TBDATA,16,3.0E10
TBDATA,19,2.6E10
TBDATA,21,2.6E10
SAVE
CYLIND,0.03,0.006,0,0.008,0,90,
SAVE
LPLOT   
/VIEW,1,1,1,1   
/ANG,1
/REP,FAST   
FLST,5,4,4,ORDE,4   
FITEM,5,2   
FITEM,5,4   
FITEM,5,-5
FITEM,5,7   
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y   
!*
LESIZE,_Y1, , ,10, , , , ,1
!*
FLST,5,4,4,ORDE,4   
FITEM,5,1   
FITEM,5,3   
FITEM,5,6   
FITEM,5,8   
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y   
!*
LESIZE,_Y1, , ,10, , , , ,1
!*
FLST,5,4,4,ORDE,2   
FITEM,5,9   
FITEM,5,-12
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y   
!*
LESIZE,_Y1, , ,4, , , , ,1
!*
MSHAPE,0,3D
MSHKEY,1
!*
/UI,MESH,OFF
/UI,MESH,OFF
SAVE
FINISH
! /EXIT,MODEL   
/BATCH
/COM,ANSYS RELEASE9.0    UP20041104       21:07:23    03/19/2007
/input,menust,tmp,'',,,,,,,,,,,,,,,,1   
/GRA,POWER
/GST,ON
/PLO,INFO,3
/GRO,CURL,ON
/CPLANE,1   
/REPLOT,RESIZE
WPSTYLE,,,,,,,,0
RESUME
/COM,ANSYS RELEASE9.0    UP20041104       21:07:31    03/19/2007
/SOLU   
FINISH
/PREP7
LPLOT   
CM,_Y,VOLU
VSEL, , , ,       1
CM,_Y1,VOLU
CHKMSH,'VOLU'   
CMSEL,S,_Y
!*
VMESH,_Y1   
!*
CMDELE,_Y   
CMDELE,_Y1
CMDELE,_Y2
!*
SAVE
nsel,s,loc,x,0
dsym,symm,x,0   
nsel,s,loc,y,0
dsym,symm,y,0   
nsel,all
SAVE
NSEL,S,LOC,Z,0
cp,1,volt,all   
*get,n_top,node,0,num,min   
NSEL,S,LOC,Z,0.008
cp,2,volt,all   
*get,n_bot,node,0,num,min   
nsel,all
SAVE
SAVE
FINISH
/SOL
!*
ANTYPE,2
!*
MSAVE,0
!*
MODOPT,LANB,20
EQSLV,SPAR
MXPAND,20, , ,0
LUMPM,0
PSTRES,0
!*
MODOPT,LANB,20,70000,150000, ,OFF   
/STATUS,SOLU
SOLVE   
FINISH
/POST1
SET,LIST,999
SET,,, ,,, ,7   
!*
PLDI,1,
ANMODE,10,0.5, ,0   
!*
/VIEW,1,1,1,1   
/ANG,1
/REP,FAST   
/USER,1   
/VIEW,1,0.260929502154    ,0.820900603601E-02,0.965322954832
/ANG,   1,-9.54457421845
/REPLO
/VIEW,1,0.207074691996    , -0.694098024994    ,0.689454859751
/ANG,   1,-9.01666088780
/REPLO
/VIEW,1,0.298539481877    , -0.774838520504    ,0.557224770540
/ANG,   1,-17.3954711513
/REPLO
/VIEW,1,0.127919332868E-01, -0.873150722607    ,0.487282445871
/ANG,   1,   4.77757793703
/REPLO
/VIEW,1,0.174318516208    , -0.904622803132    ,0.388935263200
/ANG,   1,-15.3064823658
/REPLO
/VIEW,1,0.445416052314    , -0.772169661177    ,0.453165041347
/ANG,   1,-30.7844383989
/REPLO
/VIEW,1,0.183887041978    , -0.720394120173    ,0.668743498969
/ANG,   1,-7.33382661885
/REPLO
/VIEW,1,0.299816513685    , -0.953752937412    ,0.215729576048E-01
/ANG,   1,-79.6341510036
/REPLO
/VIEW,1,0.653067238339    , -0.694332244227    ,0.302334114572
/ANG,   1,-61.7386693823
/REPLO
/VIEW,1,0.385218962051    , -0.843141819685    ,0.375124276974
/ANG,   1,-46.3027182399
/REPLO
/VIEW,1,0.267562658895    , -0.865394240267    ,0.423677982054
/ANG,   1,-34.8707007998
/REPLO
/VIEW,1,0.205220784839    , -0.875119072572    ,0.438236281350
/ANG,   1,-28.6351619677
/REPLO
/VIEW,1,0.198017879239    , -0.846723808111    ,0.493809388610
/ANG,   1,-25.8414139160
/REPLO
/UI,COPY,SAVE,JPEG,GRAPH,GREY,NORM,LANDSCAPE,,100   
/VIEW,1,,,1
/ANG,1
/REP,FAST   
/UI,COPY,SAVE,JPEG,GRAPH,GREY,NORM,LANDSCAPE,,100   
/VIEW,1,,,1
/ANG,1
/REP,FAST   
/VIEW,1,1,2,3   
/ANG,1
/REP,FAST   
/VIEW,1,1   
/ANG,1
/REP,FAST   
SET,LIST
SET,LAST
!*
PLDI,1,
ANMODE,10,0.5E-01, ,0   
!*
SET,PREVIOUS
!*
PLDI,1,
ANMODE,10,0.5E-01, ,0   
!*
SET,PREVIOUS
!*
PLDI,1,
ANMODE,10,0.5E-01, ,0   
!*
/VIEW,1,1,1,1   
/ANG,1
/REP,FAST   
/VIEW,1,,,1
/ANG,1
/REP,FAST   
/VIEW,1,,,1
/ANG,1
/REP,FAST   
!*
PLDI,1,
ANMODE,10,0.5E-01, ,0   
!*
SET,LIST
/VIEW,1,1   
/ANG,1
/REP,FAST   
SET,FIRST   
!*
PLDI,1,
ANMODE,10,0.5E-01, ,0   
!*
SET,NEXT
!*
PLDI,1,
ANMODE,10,0.5E-01, ,0   
!*
/VIEW,1,1,1,1   
/ANG,1
/REP,FAST   
/VIEW,1,,,1
/ANG,1
/REP,FAST   
SET,NEXT
!*
PLDI,1,
ANMODE,10,0.5E-01, ,0   
!*
/VIEW,1,,,1
/ANG,1
/REP,FAST   
/VIEW,1,1   
/ANG,1
/REP,FAST   
SET,NEXT
!*
PLDI,1,
ANMODE,10,0.5E-01, ,0   
!*
SET,NEXT
!*
PLDI,1,
ANMODE,10,0.5E-01, ,0   
!*
SET,NEXT
!*
PLDI,1,
ANMODE,10,0.5E-01, ,0   
!*
SET,NEXT
!*
PLDI,1,
ANMODE,10,0.5E-01, ,0   
!*
FINISH
/SOL
!*
ANTYPE,2
!*
MSAVE,0
!*
MODOPT,LANB,20
EQSLV,SPAR
MXPAND,20, , ,0
LUMPM,0
PSTRES,0
!*
MODOPT,LANB,20,70000,150000, ,OFF   
NSEL,S,LOC,Z,0
d,n_top,volt,100
NSEL,S,LOC,Z,0.008
d,n_bot,volt,0
nsel,all
/STATUS,SOLU
SOLVE   
/VIEW,1,,,1
/ANG,1
/REP,FAST   
FINISH
/POST1
SET,FIRST   
SET,LIST
SET,LIST,999
SET,,, ,,, ,7   
!*
PLDI,1,
ANMODE,10,0.5E-01, ,0   
!*
/DIST,1,1.08222638492,1
/REP,FAST   
/DIST,1,1.08222638492,1
/REP,FAST   
/DIST,1,0.924021086472,1
/REP,FAST   
/DIST,1,0.924021086472,1
/REP,FAST   
/DIST,1,1.08222638492,1
/REP,FAST   
/VIEW,1,1,1,1   
/ANG,1
/REP,FAST   
/VIEW,1,1,2,3   
/ANG,1
/REP,FAST   
/VIEW,1,,,1
/ANG,1
/REP,FAST   
!*
PLDI,1,
ANMODE,10,0.5E-01, ,0   
!*
/UI,COPY,SAVE,JPEG,GRAPH,GREY,NORM,LANDSCAPE,,100   
/VIEW,1, -0.381320622974    , -0.719840707473    ,0.580020636149
/ANG,   1,   10.0874749933
/REPLO
/VIEW,1,0.214570907820    , -0.882690160661    ,0.418111714485
/ANG,   1,-40.0136175392
/REPLO
/VIEW,1,0.536897321259    , -0.789105137145    ,0.298419752960
/ANG,   1,-68.8913278906
/REPLO
/VIEW,1,0.382289859238    , -0.921034855470    ,0.744933455651E-01
/ANG,   1,-84.4283037166
/REPLO
/VIEW,1, -0.324199614420    , -0.933126563937    ,0.155465191234
/ANG,   1,   54.9219438043
/REPLO
/VIEW,1, -0.277047230322    , -0.848017608070    ,0.451786419200
/ANG,   1,   24.2785817340
/REPLO
/VIEW,1, -0.308490759940E-01, -0.865307806155    ,0.500290650641
/ANG,   1,0.150796561926
/REPLO
/VIEW,1,0.523015894880E-01, -0.801802654510    ,0.595295764270
/ANG,   1,-7.13806043340
/REPLO
!*
PLDI,1,
ANMODE,10,0.5E-01, ,0   
!*
/UI,COPY,SAVE,PNG,GRAPH,GREY,NORM,LANDSCAPE,YES
/DIST,1,0.924021086472,1
/REP,FAST   
!*
PLDI,1,
ANMODE,10,0.5E-01, ,0   
!*
/UI,COPY,SAVE,JPEG,GRAPH,GREY,NORM,LANDSCAPE,,100   
FINISH
/SOL
/DIST,1,1.08222638492,1
/REP,FAST   
/DIST,1,1.08222638492,1
/REP,FAST   
/DIST,1,0.924021086472,1
/REP,FAST   
/DIST,1,0.924021086472,1
/REP,FAST   
SAVE
!*
ANTYPE,3
!*
!*
HROPT,FULL
HROUT,ON
LUMPM,0
!*
EQSLV,FRONT,0,
PSTRES,0
!*
ALPHAD,0,   
BETAD,0,
DMPRAT,0.003,   
!*
HARFRQ,70000,100000,
NSUBST,30,
KBC,1   
!*
/STATUS,SOLU
SOLVE   
FINISH
/POST26
FILE,'sang','rst','.'   
/UI,COLL,1
NUMVAR,200
SOLU,191,NCMIT
STORE,MERGE
PLCPLX,0
PRCPLX,1
FILLDATA,191,,,,1,1
REALVAR,191,191
!*
RFORCE,2,1,AMPS,, AMPS_2
STORE,MERGE
FILLDATA,192,,,,0,0
FILLDATA,193,,,,1,0
FILLDATA,194,,,,-1,0
FILLDATA,195,,,,1,1
VARNAME,195,NSET
!   
! Name: Y   
! ID:3
! Function: -4*2*3.14*{FREQ}*{AMPS_2}*1000*sqrt(-1)
FILLDATA,199,,,,2,0
REALVAR,199,199
FILLDATA,198,,,,-4,0
REALVAR,198,198
PROD,200,198,199
FILLDATA,198,,,,3.14,0
REALVAR,198,198
PROD,199,200,198
PROD,198,199,1
PROD,199,198,2
FILLDATA,200,,,,1000,0
REALVAR,200,200
PROD,198,199,200
FILLDATA,199,,,,1,0
REALVAR,199,199
FILLDATA,197,,,,0,0
REALVAR,197,197
PROD,196,199,194
ADD,200,197,196
FILLDATA,197,,,,1,0
REALVAR,197,197
PROD,196,200,197
SQRT,197,196
PROD,3,198,197,,Y   
!   
STORE,MERGE
XVAR,1
PLVAR,3,
/UI,COPY,SAVE,JPEG,GRAPH,GREY,NORM,LANDSCAPE,,100   
NUMVAR,200
PLCPLX,0
PRCPLX,1
FILLDATA,191,,,,1,1
REALVAR,191,191
FILLDATA,192,,,,0,0
FILLDATA,193,,,,1,0
FILLDATA,194,,,,-1,0
FILLDATA,195,,,,1,1
VARNAME,195,NSET
!   
! Name: G   
! ID:4
! Function: real({Y})   
REALVAR,4,3,,,G
!   
STORE,MERGE
FILLDATA,192,,,,0,0
FILLDATA,193,,,,1,0
FILLDATA,194,,,,-1,0
FILLDATA,195,,,,1,1
VARNAME,195,NSET
!   
! Name: B   
! ID:5
! Function: imag({Y})   
IMAGIN,5,3,,,B
!   
STORE,MERGE
XVAR,1
PLVAR,4,
XVAR,1
PLVAR,5,
XVAR,4
PLVAR,5,
FINISH
/SOL
!*
ANTYPE,3
!*
!*
HROPT,FULL
HROUT,ON
LUMPM,0
!*
EQSLV,FRONT,1e-008,
PSTRES,0
!*
ALPHAD,0,   
BETAD,0,
DMPRAT,0.003,   
!*
HARFRQ,80000,90000,
NSUBST,50,
KBC,1   
!*
/STATUS,SOLU
! PLVAR,5,
FINISH
/POST26
FILE,'sang','rst','.'   
/UI,COLL,1
NUMVAR,200
SOLU,191,NCMIT
STORE,MERGE
PLCPLX,0
PRCPLX,1
FILLDATA,191,,,,1,1
REALVAR,191,191
!*
RFORCE,2,1,AMPS,, AMPS_2
STORE,MERGE
FILLDATA,192,,,,0,0
FILLDATA,193,,,,1,0
FILLDATA,194,,,,-1,0
FILLDATA,195,,,,1,1
VARNAME,195,NSET
!   
! Name: Y   
! ID:3
! Function: -4*2*3.14*{FREQ}*{AMPS_2}*1000*sqrt(-1)
FILLDATA,199,,,,2,0
REALVAR,199,199
FILLDATA,198,,,,-4,0
REALVAR,198,198
PROD,200,198,199
FILLDATA,198,,,,3.14,0
REALVAR,198,198
PROD,199,200,198
PROD,198,199,1
PROD,199,198,2
FILLDATA,200,,,,1000,0
REALVAR,200,200
PROD,198,199,200
FILLDATA,199,,,,1,0
REALVAR,199,199
FILLDATA,197,,,,0,0
REALVAR,197,197
PROD,196,199,194
ADD,200,197,196
FILLDATA,197,,,,1,0
REALVAR,197,197
PROD,196,200,197
SQRT,197,196
PROD,3,198,197,,Y   
!   
STORE,MERGE
XVAR,1
PLVAR,3,
/UI,COPY,SAVE,JPEG,GRAPH,GREY,NORM,LANDSCAPE,,100   
FILLDATA,192,,,,0,0
FILLDATA,193,,,,1,0
FILLDATA,194,,,,-1,0
FILLDATA,195,,,,1,1
VARNAME,195,NSET
!   
! Name: G   
! ID:4
! Function: real({Y})   
REALVAR,4,3,,,G
!   
STORE,MERGE
FILLDATA,192,,,,0,0
FILLDATA,193,,,,1,0
FILLDATA,194,,,,-1,0
FILLDATA,195,,,,1,1
VARNAME,195,NSET
!   
! Name: B   
! ID:5
! Function: imag({Y})   
IMAGIN,5,3,,,B
!   
STORE,MERGE
XVAR,1
PLVAR,4,
XVAR,1
PLVAR,5,
XVAR,1
PLVAR,4,5,
XVAR,4
PLVAR,5,
XVAR,5
PLVAR,5,
XVAR,5
PLVAR,4,
XVAR,4
PLVAR,4,
XVAR,4
PLVAR,1,
XVAR,4
PLVAR,4,
XVAR,1
PLVAR,4,
XVAR,1
PLVAR,4,5,
/UI,COPY,SAVE,JPEG,GRAPH,GREY,NORM,LANDSCAPE,,100   
/UI,COPY,SAVE,JPEG,GRAPH,COLOR,NORM,LANDSCAPE,,100
XVAR,4
PLVAR,5,
/UI,COPY,SAVE,JPEG,GRAPH,COLOR,NORM,LANDSCAPE,,100
FINISH
! /EXIT,ALL
/BATCH
/COM,ANSYS RELEASE9.0    UP20041104       18:37:48    03/21/2007
/input,menust,tmp,'',,,,,,,,,,,,,,,,1   
/GRA,POWER
/GST,ON
/PLO,INFO,3
/GRO,CURL,ON
/CPLANE,1   
/REPLOT,RESIZE
WPSTYLE,,,,,,,,0
RESUME
/COM,ANSYS RELEASE9.0    UP20041104       18:37:59    03/21/2007
/REPLOT,RESIZE
/POST26
FILE,'sang','rst','.'   
/UI,COLL,1
NUMVAR,200
SOLU,191,NCMIT
STORE,MERGE
PLCPLX,0
PRCPLX,1
FILLDATA,191,,,,1,1
REALVAR,191,191
FINISH
! /EXIT,MODEL

lonedancer 发表于 2007-4-6 21:46:58

原因在于你显示的是电纳的绝对值（模值），改变显示实部就行了

tzhdacy 发表于 2007-4-7 02:11:18

你的命令流应该是拼凑的吧？看得我头晕，下次命令写工整些，注释也清楚些，大姐都方便。给你一个求impdance公式：1/sqre（实部^2+虚部^2)

ly030604 发表于 2014-10-30 11:27:17

这个命令流里面多余的东西太多了，楼主应该把这个稍微简化下再发上来

镜中人0315 发表于 2014-11-5 21:31:33

好乱啊，希望大家在分享时能精简一下不必要的过程
页: [1]
查看完整版本: 压电陶瓷的谐响应问题