ANSYS 流固耦合操作视频

ultrater · 发表于 2011-5-19 08:30:04

本帖最后由 ultrater 于 2011-5-19 08:44 编辑

ANSYS帮助文件中，关于流固耦合分析例子的操作视频。

一环孔浸于无限延伸水中，使用谐分析通过对34到38Hz的频率之间进行频率扫描，计算出第一阶模态（卵形模态），此模态通过加载两个大小相等但方向径向相反的力激发。

/PREP7
/TITLE,AMA,EV129-1S,FLUID129,HARMONIC ANALYSIS
ET,1,PLANE42                ! structural element
ET,2,FLUID29                   ! acoustic fluid element with ux & uy
et,3,129                            ! acoustic infinite line element
r,3,0.31242,0,0
ET,4,FLUID29,,1,0          ! acoustic fluid element without ux & uy! material properties
MP,EX,1,2.068e11
MP,DENS,1,7929
MP,NUXY,1,0
MP,DENS,2,1030
MP,SONC,2,1460          ! create inner and outer quarter circles
CYL4,0,0,0.254,0,0.26035,90
CYL4,0,0,0.26035,0,0.31242,90                ! select, assign attribute to and mesh area 1
ASEL,S,AREA,,1
AATT,1,1,1,0
LESIZE,1,,,16,1
LESIZE,3,,,16,1
LESIZE,2,,,1,1
LESIZE,4,,,1,1
MSHKEY,1
MSHAPE,0,2D                   ! mapped quad mesh
AMESH,1                            ! select, assign attribute to and mesh area 2
ASEL,S,AREA,,2
AATT,2,1,2,0
LESIZE,5,,,16,1
LESIZE,7,,,16,1
LESIZE,6,,,5
LESIZE,8,,,5
MSHKEY,0
MSHAPE,0,2D                   ! mapped quad mesh
AMESH,2                            ! reflect quarter circle into semicircle about x-axis
nsym,x,1000,all                ! offset node number by 1000
esym,,1000,all                   ! reflect semicircle into full circle about y-axis
nsym,y,2000,all                ! offset node number by 2000
esym,,2000,all
NUMMRG,ALL                   ! merge all quantities! modify outer 2 layers of el29 into type 4
esel,s,type,,1
nsle,s
esln,s,0
nsle,s
esel,inve
nsle,s
emodif,all,type,4
esel,all
nsel,all                               ! define el129 line element
csys,1
nsel,s,loc,x,0.31242
type,3
real,3
mat,2
esurf
esel,all
nsel,all                               ! flag interface as fluid-structure interface
nsel,s,loc,x,0.26035
esel,s,type,,2
sf,all,fsi,1
nsel,all
esel,all
FINISH                               ! enter solution module
/SOLU
ANTYPE,harmic             ! select harmonic analysis
hropt,full
f,19,fx,1000.
f,1019,fx,-1000.
harfrq,34.,38.
nsubst,100
kbc,1
SOLVE
FINISH
/post26
plcplx,0
nsol,2,1,u,x,d1ux
store
conjug,3,2
prod,4,2,3
sqrt,5,4
*get,uxmx,vari,5,extrem,tmax
/COM -------------------------------------------------------------
/COM                   Expected Result:
/COM
/COM The following "uxmx" should equal 35.24 Hz.
/COM -------------------------------------------------------------
*status,uxmx
finish

游客，如果您要查看本帖隐藏内容请回复

sxg863 · 发表于 2011-5-19 08:35:04

本帖最后由 sxg863 于 2011-5-19 08:54 编辑

ultrater · 发表于 2011-5-20 09:42:35

本帖最后由 ultrater 于 2012-1-10 23:07 编辑

全部上传完了，共23个文件。
我主要是做压电换能器的流固耦合，用ANSYS求出换能器在空气中产生的声压，其他的流固耦合问题也不太懂
还有问题给我发邮件 breakingbad@foxmail.com

zhanggf · 发表于 2011-5-23 08:58:02

正在进行流固耦合的计算，学习下，谢谢分享

xukai1125 · 发表于 2011-5-25 10:23:06

好好学习啊

xukai1125 · 发表于 2011-5-25 10:31:25

不错，很好！

yououyang · 发表于 2011-5-25 21:57:32

下来看看

luck6123 · 发表于 2011-5-30 22:43:52

下下来看看，谢谢楼主

baileygeng · 发表于 2011-6-3 15:57:35

学习下，谢谢分享

heyang854963 · 发表于 2011-6-8 08:54:11

要是能一键下载全部就好了

zzccww_1 · 发表于 2011-6-9 08:40:33

好贵啊。。。

zhanyang · 发表于 2011-6-9 09:37:35

没钱了，怎么下载啊

zxh_1984 · 发表于 2011-6-10 16:43:28

东西不错，希望有用。

iceblueseason · 发表于 2011-6-11 21:58:53

看看新手很有帮助

rt0214 · 发表于 2011-6-15 08:51:56

感謝樓主熱心無私的分享

hawk0229 · 发表于 2011-6-15 09:34:31

下来看一下

xiaowendong · 发表于 2011-6-20 22:02:43

为什么解压不了，提示缺少part06.rar。我是付过钱的不要让我看不了啊。

后街where · 发表于 2011-6-21 09:01:49

楼主太慷慨了。。。。多谢了~！

xyz1076 · 发表于 2011-6-22 17:25:05

下下来看看希望能有帮助

xyz1076 · 发表于 2011-6-22 17:25:19

下下来看看希望能有帮助

账号		自动登录	找回密码
密码			注册

账号		自动登录	找回密码
密码			立即注册

[声学] ANSYS 流固耦合操作视频

本帖子中包含更多资源

评分

相关帖子

本帖子中包含更多资源

本帖子中包含更多资源