各位高手帮帮小弟，谁能帮我把他转化为ＧＵＩ命令模式，我是新手，有些地方很难理解．我的邮箱是changzz84123@163.com
BATCH
/FILNAME,stave1,0
/TITLE,steady-state
/units,SI
!几何参数设定
*SET,O1X,0 ！炉壳的起点坐标
*SET,O1Y,0
*SET,O2X,0 ！填料层的起点坐标
*SET,O2Y,0.03
*SET,O3X,0 ！铸铁面的起点坐标
*SET,O3Y,0.05
*SET,O4X,0 ！铜面的起点坐标
*SET,O4Y,0.09
*SET,O5X,0.11 ！第一个冷却水管的起点坐标
*SET,O5Y,0.09
*SET,O6X,0.37 ！第二个冷却水管的起点坐标
*SET,O6Y,0.09
*SET,O7X,0.63 ！第三个冷却水管的起点坐标
*SET,O7Y,0.09
*SET,O8X,0.89 ！第四个冷却水管的起点坐标
*SET,O8Y,0.09
*SET,O9X,0 ！炉渣厚度起点坐标
*SET,O9Y,0.13
*SET,L,2.0 ！冷却壁的长度
*SET,d1,0.03 ！炉壳的厚度
*SET,d2,0.02 ！填料层的厚度
*SET,d3,0.04 ！铸铁层的厚度
*SET,d4,0.04 ！铜层的厚度
*SET,d5,0.02 ！渣皮层的厚度
*SET,D,d1+d2+d3+d4 ！冷却壁的厚度
*SET,W,1.0 ！冷却壁的宽度
*SET,RI,0.028 ！冷却水管的内径
*SET,RO,0.03 ！冷却水管的外径
！边界条件的定义参数
*SET,Hair,9.45 !空气与炉壳之间的对流换热系数
*SET,Tair,25
*SET,Hwater,401.56 !冷却水管与冷却水之间的对流换热系数
*SET,Twater,30
*SET,Hgas,232 !炉气与渣壳表面之间的对流换热系数
*SET,Tgas,1600
！边界条件的定义参数
!定义分析类型为热分析
/NOPR
/PMETH,OFF,0
KEYW,PR_SET,1
KEYW,PR_STRUC,0
KEYW,PR_THERM,1
KEYW,PR_FLUID,0
KEYW,PR_ELMAG,0
KEYW,MAGNOD,0
KEYW,MAGEDG,0
KEYW,MAGHFE,0
KEYW,MAGELC,0
KEYW,PR_MULTI,0
KEYW,PR_CFD,0
/GO
!定义分析类型为热分析
!进入前处理器
/PREP7
！定义单元类型
ET,1,PLANE55
！定义材料属性
！导热系数参数设定
！炉壳导热系数
MPTEMP,,,,,,,,
MPTEMP,1,0
MPTEMP,2,100
MPTEMP,3,200
MPTEMP,4,300
MPTEMP,5,400
MPTEMP,6,500
MPTEMP,7,600
MPTEMP,8,700
MPDATA,KXX,1,,52.5
MPDATA,KXX,1,,50.00
MPDATA,KXX,1,,47.50
MPDATA,KXX,1,,45.00
MPDATA,KXX,1,,42.50
MPDATA,KXX,1,,40.00
MPDATA,KXX,1,,37.50
MPDATA,KXX,1,,34.50
!填料层导热系数
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,KXX,2,,20
!球墨铸铁面导热系数
MPTEMP,,,,,,,,
MPTEMP,1,0
MPTEMP,2,100
MPTEMP,3,200
MPTEMP,4,300
MPTEMP,5,400
MPTEMP,6,500
MPTEMP,7,600
MPTEMP,8,700
MPDATA,KXX,3,,42.5
MPDATA,KXX,3,,39.80
MPDATA,KXX,3,,37.10
MPDATA,KXX,3,,34.40
MPDATA,KXX,3,,31.70
MPDATA,KXX,3,,29.00
MPDATA,KXX,3,,26.30
MPDATA,KXX,3,,23.30
!铜面导热系数
MPTEMP,,,,,,,,
MPTEMP,1,0
MPTEMP,2,100
MPTEMP,3,200
MPTEMP,4,300
MPTEMP,5,400
MPTEMP,6,500
MPTEMP,7,600
MPTEMP,8,700
MPDATA,KXX,4,,401
MPDATA,KXX,4,,393
MPDATA,KXX,4,,388
MPDATA,KXX,4,,384
MPDATA,KXX,4,,379
MPDATA,KXX,4,,366
MPDATA,KXX,4,,352
MPDATA,KXX,4,,334
!填料层导热系数
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,KXX,5,,2.0
!冷却水管导热系数
！线性膨胀系数参数设定
！设定温度单位为摄氏度
TOFFST,273
!建立模型
BLC4,O1X,O1Y,W,d1
BLC4,O2X,O2Y,W,d2
BLC4,O3X,O3Y,W,d3
BLC4,O4X,O4Y,W,d4
！产生四个圆孔
CYL4,0.11,0.09,0.03
FLST,3,1,5,ORDE,1
FITEM,3,5
AGEN,2,P51X, , ,0.26,0,0, ,0
FLST,3,1,5,ORDE,1
FITEM,3,6
AGEN,2,P51X, , ,0.26,0,0, ,0
FLST,3,1,5,ORDE,1
FITEM,3,7
AGEN,2,P51X, , ,0.26,0,0, ,0
FLST,2,2,5,ORDE,2
FITEM,2,3
FITEM,2,-4
FLST,3,4,5,ORDE,2
FITEM,3,5
FITEM,3,-8
ASBA,P51X,P51X
！结束圆孔
NUMCMP,ALL
！粘合
AGLUE,ALL
NUMCMP,ALL
FINISH
/POST1
FINISH
/PREP7
BLC4,O9X,O9Y,W,d5
NUMCMP,ALL
AGLUE,ALL
NUMCMP,ALL
FINISH
！粘合
！划分网格分配材料属性
/PREP7
CM,_Y,AREA
ASEL, , , , 1
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 1, , 1, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
CM,_Y,AREA
ASEL, , , , 2
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 2, , 1, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
CM,_Y,AREA
ASEL, , , , 3
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 3, , 1, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
CM,_Y,AREA
ASEL, , , , 4
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 4, , 1, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
CM,_Y,AREA
ASEL, , , , 5
CM,_Y1,AREA
CMSEL,S,_Y
!*
CMSEL,S,_Y1
AATT, 5, , 1, 0,
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
SMRT,6
SMRT,1
MSHAPE,1,2D
MSHKEY,0
!*
FLST,5,5,5,ORDE,2
FITEM,5,1
FITEM,5,-5
CM,_Y,AREA
ASEL, , , ,P51X
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
！划分网格分配材料属性
/SOL
FLST,2,10,4,ORDE,6
FITEM,2,2
FITEM,2,4
FITEM,2,28
FITEM,2,-33
FITEM,2,35
FITEM,2,-36
/GO
!*
SFL,P51X,HFLUX,0,
FLST,2,16,4,ORDE,2
FITEM,2,7
FITEM,2,-22
/GO
!*
SFL,P51X,CONV,Hwater, ,Twater,
FLST,2,2,4,ORDE,2
FITEM,2,1
FITEM,2,7
/GO
!*
SFL,P51X,CONV,Hair, ,Tair,
FLST,2,1,4,ORDE,1
FITEM,2,34
/GO
!*
SFL,P51X,CONV,Hgas, ,Tgas,
/STATIS,SOLU
TIME,1
AUTOTS,-1
DELTIM,5, , ,1
KBC,0
SOLVE
SAVE,stave1,db,D:\model\stave1\
FINISH
/POST1
PLNSOL,TEMP,,0,
FINISH |
发表于 2005-8-17 00:54:17
