资源描述：
《ansys help流固耦合算例fluid_structure(内含解析)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、/BATCH/COM,ANSYSRELEASE12.1UP2009110213:06:0510/24/2010/PREP7!/Batch,list/prep7/sho,gasket,grphshpp,offET,1,141!Fluid-staticmeshET,2,182,!Hyperelasticelement!!!!!!!FluidStructureInteraction-Multiphysics!!!!!!!Deformationofagasketinaflowfield.!!!!!!!!Elem
2、entplotsarewrittentothefilegasket.grph.!!-Waterflowsinaverticalchannelthroughaconstriction!formedbyarubbergasket.!-Determinetheequilibriumpositionofthegasketand!theresultingflowfield!!
3、!
4、!
5、----------
6、Boundaryof"morphingfluid"!
7、______!
8、
9、______gasket!
10、!
11、--
12、--------
13、Boundaryof"morphingfluid"(sf)!
14、!!!1.Buildthemodeloftheentiredomain:!!Fluidregion-staticmesh!!!!Gasketleavesaholeinthecenterofthechannel!!MorphingFluidregionisauserdefinedregionaround!!thegasket.Thefluidmeshherewilldeformandbe!!updatedasthegasket
15、deforms.!!!!ParameterizeDimensionsintheflowdirection!!*SET,yent,0.0!Ycoordinateoftheentrancetothechannel*SET,dyen,1.0!Undeformedgeometryflowentrancelength*SET,ysf1,yent+dyen!Ycoordinateofentrancetothemorphingfluidregion*SET,dsf1,0.5!Thicknessofupstream*S
16、ET,ygas,ysf1+dsf1!Ycoordinateofthebottomofthegasket*SET,dg,0.02!Thicknessofthegasket*SET,dg2,dg/2.*SET,ytg,ygas+dg!Ycoordinateoftheinitialtopofthegasket*SET,dsf2,0.5!Thicknessofdownstreamregion*SET,ysf2,ytg+dsf2!YofTopofthedownstreammorphingfluidsregion*
17、SET,dyex,6.0!Exitfluidlength*SET,x,0.!Locationofthecenterline*SET,dgasr,.20!Initialspanofgasket*SET,piper,0.3!Widthoftheanalysisdomain*SET,xrgap,piper-dgasr!!Widthofcompletelyunobtructedflowpassage!!!!!Creategeometry!!rect,xrgap,piper,ygas,ytg!A1:Gasket(
18、keypoints1-4)rect,x,piper,ysf1,ysf2!A2:Morphingfluidregionrect,x,piper,yent,ysf1!A3:Fluidregionwithstaticmeshrect,x,piper,ysf2,ysf2+dyex!A4:Fluidregionwithstaticmeshaovlap,allk,22,xrgap+dg2,ygas+dg2!定义一个关键点为22号，坐标是x，y*SET,rarc,dg2*1.1larc,1,4,22,rarc!定义一
19、个通过1，4点半径为dg2*1.1，圆心在22点这边的圆弧al,6,4!定义一个由相关线围成的面adelete,7!删除面7adele，7al,6,3,22,7,8,5,21,1!定义一个由相关线围成的面!!MeshDivisioninformation*SET,ngap,10!Numberelementsacrossthegap*SET,ngas,10!Numberofelementsalongthegasket*SET,rgas,-2!
