空气流过两个变截面管的分析.txt

我做的一些ansys的练习,命令流,对学习ansys很有帮助

fini
/cle  
!**********空气流过两个变截面管的分析

vel_X    =50
outlet_L =30.0

/PREP7  
ET,1,FLUID141 
rectng,0,4,0,1
rectng,6,6+outlet_L,0,2.5
L2TAN,7,3
A,3,8,5,2

lsel,s,,,1,3,2
lesize, all,,,15,-2
lsel,s,,,9,10,1
lesize, all,,,12,1
lsel,s,,,5
lesize, all,,,20,3
lsel,s,,,7
lesize, all,,,20,1/3
lsel,s,,,2,8,2
lesize, all,,,10,-2
alls
AMESH,all

*ABBR,tri_OFF,/triad,off
*ABBR,tri_ON,/triad,on

lsel,s,,,4
DL,all, ,VX, vel_X, 1   
DL,all, ,VY, 0, 1 

lsel,s,,,1,9,2
lsel,a,,,10
DL,all, ,VX,0,1 
DL,all, ,VY,0,1 

lsel,s,,,6
DL,all, ,PRES,0,1   
alls

/SOL
FLDATA7,PROT,DENS,AIR-SI
FLDATA7,PROT,VISC,AIR-SI
FLDATA2,ITER,EXEC,40, 

FLDATA15,PRES,REFE,14.7,
FLDATA14,TEMP,NOMI,70,  
FLDATA14,TEMP,TTOT,70,  
FLDATA14,TEMP,BULK,70,  
TOFFSET,460,

!FLDATA34,MIR,MOME,0.1,

SOLVE