| 查看: 885 | 回复: 6 | |||
| 当前主题已经存档。 | |||
| 【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 唐重鑫 的 3 个金币 | |||
[交流]
【求助】压电分析方面的例子
|
|||
|
各位高人，大家好，本人在做一压电能量采集器项目，现想用ANSYS做些压电分析，可找了半天也没看到有关这方面的资料，希望哪位好心人能帮我传一个，不甚感激！ 我的邮箱：tanggang@sjtu.edu.cn |
回复此楼» 猜你喜欢
假如你的研究生提出不合理要求
已经有12人回复
-
实验室接单子
已经有7人回复
-
全日制（定向）博士
已经有5人回复
-
萌生出自己或许不适合搞科研的想法，现在跑or等等看？
已经有4人回复
-
Materials Today Chemistry审稿周期
已经有4人回复
-
参与限项
已经有3人回复
-
对氯苯硼酸纯化
已经有3人回复
-
所感
已经有4人回复
-
要不要辞职读博？
已经有7人回复
-
北核录用
已经有3人回复
yuxiaxyg
金虫 (著名写手)
花花公子之噼里啪啦
- 应助: 0 (幼儿园)
- 金币: 1102.4
- 帖子: 1430
- 在线: 42小时
- 虫号: 716519
- 注册: 2009-03-06
- 性别: GG
- 专业: 内流流体力学
2楼2009-09-03 13:24:03
3楼2009-09-05 12:33:03
wdnlove
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1927.1
- 散金: 1000
- 红花: 1
- 帖子: 214
- 在线: 122.2小时
- 虫号: 785343
- 注册: 2009-06-02
- 专业: 多相流热物理学
4楼2009-09-09 15:13:44
5楼2009-09-20 17:29:07
★ ★ ★
nono2009(金币+2,VIP+0):谢谢交流！欢迎常来。 9-22 09:28
唐重鑫(金币+1,VIP+0): 9-22 12:20
nono2009(金币+2,VIP+0):谢谢交流！欢迎常来。 9-22 09:28
唐重鑫(金币+1,VIP+0): 9-22 12:20
|
压电分析例子 /COM,ANSYS MEDIA REL. 7.0 (083002) REF. VERIF. MANUAL: REL. 7.0 /VERIFY,VM175 /PREP7 SMRT,OFF /TITLE, VM175, NATURAL FREQUENCY OF A PIEZOELECTRIC TRANSDUCER /COM, COMPUTATION OF THE VIBRATIONAL MODES FOR PIEZOELECTRIC /COM, ARRAY TRANSDUCERS USING A MIXED FINITE ELEMENT /COM, PERTURBATION METHOD, BOUCHER, D., LAGIER, M., MAERFELD, /COM, C., IEEE TRANS. SONICS AND ULTRASONICS, VOL. SU-28, /COM, NO. 5, SEPTEMBER 1981., PG. 318-330 /COM, ET,1,SOLID5,3 ! 3-D COUPLED-FIELD SOLID, PIEZO OPTION MP,DENS,3,7500 ! DENSITY MP,PERX,3,7.124E-9 ! PERMITTIVITY (X AND Y DIRECTION) MP,PERZ,3,5.841E-9 ! PERMITTIVITY (Z DIRECTION) TB,PIEZ,3 ! 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,3 ! DEFINE STRUCTURAL TABLE TBDATA,1,13.2E10,7.1E10,7.3E10 ! INPUT [C] MATRIX TBDATA,7,13.2E10,7.3E10 TBDATA,12,11.5E10 TBDATA,16,3.0E10 TBDATA,19,2.6E10 TBDATA,21,2.6E10 L=10E-3 ! SET LENGTH W=10E-3 ! SET WIDTH H=20E-3 ! SET HEIGHT K,1 K,2,L K,3,L,W K,4,,W KGEN,2,1,4,1,,,H L,1,5 LESIZE,1,,,4 ESIZE,,2 MSHK,1 ! MAPPED VOLUME MESH MSHA,0,3D ! USING HEX V,1,2,3,4,5,6,7,8 MAT,3 VMESH,1 NSEL,S,LOC,X,0 DSYM,SYMM,X ! SYMMETRY BOUNDARY CONSTRAINTS NSEL,S,LOC,Y,0 DSYM,SYMM,Y NSEL,ALL FINISH /SOLU ANTYP,MODAL MODOPT,LANB,10,50000,150000 ! BLOCK LANCZOS, EXTRACT 10 MODES MXPAND,10 ! EXPAND ALL MODES /COM, ** RESONANCE FREQUENCY B.C.'S ** NSEL,S,LOC,Z,0 D,ALL,VOLT,0 ! GROUND BOTTOM ELECTRODE NSEL,S,LOC,Z,H D,ALL,VOLT,0 ! SHORT-CIRCUIT TOP ELECTRODE NSEL,ALL SOLVE *GET,F1,MODE,2,FREQ *GET,F2,MODE,5,FREQ FINISH /POST1 /VIEW,1,1,1,1 /VUP,,Z /TYPE,,4 *DO,I,1,10 SET,LS,I PLDISP,1 ! DISPLAY ANTI-RESONANCE MODE SHAPES *ENDDO FINISH /SOLU ANTYPE,MODAL MODOPT,LANB,10,50000,150000 ! BLOCK LANCZOS, EXTRACT 10 MODES MXPAND,10 /COM, ** ANTI-RESONANCE FREQUENCY B.C.'S ** NSEL,S,LOC,Z,H DDELE,ALL,VOLT ! DELETE VOLT CONSTRAINTS ON TOP ELECTRODE CP,1,VOLT,ALL ! COUPLE VOLT DOF ON TOP ELECTRODE NSEL,ALL SOLVE *GET,F3,MODE,4,FREQ *GET,F4,MODE,8,FREQ FINISH /POST1 *DO,I,1,10 SET,LS,I PLDISP,1 ! DISPLAY RESONANCE MODE SHAPES *ENDDO *status,parm *DIM,LABEL,CHAR,2,2 *DIM,VALUE,,2,3 LABEL(1,1) = 'F1 ','F2 ' LABEL(1,2) = 'Hz','Hz' *VFILL,VALUE(1,1),DATA,66560,88010 *VFILL,VALUE(1,2),DATA,F1,F2 *VFILL,VALUE(1,3),DATA,ABS(F1/66560),ABS(F2/88010) /COM /OUT,vm175,vrt /COM,------------------- VM175 RESULTS COMPARISON ------------- /COM, /COM, SHORT CIRCUIT /COM, | TARGET | ANSYS | RATIO /COM, *VWRITE,LABEL(1,1),LABEL(1,2),VALUE(1,1),VALUE(1,2),VALUE(1,3) (1X,A8,A8,' ',F10.0,' ',F10.0,' ',1F5.3) /COM, /NOPR *VFILL,VALUE(1,1),DATA,81590,93410 *VFILL,VALUE(1,2),DATA,F3,F4 *VFILL,VALUE(1,3),DATA,ABS(F3/81590),ABS(F4/93410) /GOPR /COM, OPEN CIRCUIT *VWRITE,LABEL(1,1),LABEL(1,2),VALUE(1,1),VALUE(1,2),VALUE(1,3) (1X,A8,A8,' ',F10.0,' ',F10.0,' ',1F5.3) /COM,---------------------------------------------------------- /OUT FINISH *LIST,vm175,vrt |
6楼2009-09-22 08:55:52
7楼2009-09-22 08:57:26