ex7-1.txt

《ANSYS机械工程应用实例》-周宁-源代码-3795 程序部分

FINI
/CLE
/AUX15  
IGESIN,EX7-1,IGES
/VIEW,1,1,1,1   
/ANG,1
/REP,FAST
FINISH
/FILENAME,EX7-1,1
/TITLE,the CFD analysis of honeycomb duct
/PREP7
ET,1,FLUID141
!
MSHKEY,0
MSHAPE,0,2D
MSHMID,2
LESIZE,1,,,15,-3 
LESIZE,3,,,15,-3 
LESIZE,5,,,15,1
LESIZE,7,,,15,1
LESIZE,8,,,30,-3
LESIZE,10,,,30,-3
LESIZE,11,,,15,1     
LESIZE,13,,,15,1
LESIZE,16,,,15,-3
LESIZE,14,,,15,-3   
LESIZE,4,,,10,-3
LESIZE,2,,,10,-3  
LESIZE,6,,,10,-3 
LESIZE,9,,,10,-3
LESIZE,12,,,10,-3  
LESIZE,15,,,10,-3 
ALLSEL,ALL
AMESH,ALL
EPLOT
SAVE
!
DL,4,,VX,3,1
DL,4,,VY,0,1
!
DL,1,,VX,0,1
DL,1,,VY,0,1
DL,3,,VX,0,1
DL,3,,VY,0,1
DL,5,,VX,0,1
DL,5,,VY,0,1
DL,7,,VX,0,1
DL,7,,VY,0,1
DL,8,,VX,0,1
DL,8,,VY,0,1
DL,10,,VX,0,1
DL,10,,VY,0,1
DL,11,,VX,0,1
DL,11,,VY,0,1
DL,13,,VX,0,1
DL,13,,VY,0,1
DL,14,,VX,0,1
DL,14,,VY,0,1
DL,16,,VX,0,1
DL,16,,VY,0,1
!
DL,15,,PRES,0,1
SAVE
/SOLU
FLDATA2,ITER,EXEC,40 
FLDATA8,NOMI,DENS,1.0  
FLDATA8,NOMI,VISC,0.008 
SAVE
SOLVE
FINISH           
/POST1
SET,LAST
PLNSOL,PTOT,,0             !图形显示总应力
PLVECT,V,,,,VECT,ELEM,ON,0 !速度矢量图形显示
PATH,outpath,2,30,20       !定义路径
PPATH,1,837
PPATH,2,852
PDEF,,V,X                  !映射数据到路径
/AXLAB,Y,VELOCITY          !定义图表Y轴名称
PLPATH,VX                  !图表显示路径数据
PRPATH,VX                  !列表显示路径数据
/EXIT,ALL