| 我附上我写的命令请高手帮我看看 
 /FILNAME,FILE121201
 /TITLE,TEST1212
 /PREP7
 SMRT,OFF
 
 ET,1,PLANE55
 ET,2,SURF151
 !KEYOPT,2,2,0
 KEYOPT,2,4,1
 KEYOPT,2,5,0
 KEYOPT,2,8,2
 
 MP,KXX,1,0.0045
 MP,DENS,1,1.093
 MP,C,1,3.37
 
 N=0
 
 !通过关键点建立模型,模型大小为0.1*0.1,在x=0.025 及0.05出生成血管,施加对流
 K,N+1,0,0
 K,N+2,0.1,0      !ccccc
 K,N+3,0,0.1      !ccccc
 K,N+4,0.1,0.1    !ccccc
 K,N+5,0.025,0   !ccccc
 K,N+6,0.025,0.1    !ccccc
 K,N+7,0.05,0    !ccccc
 K,N+8,0.05,0.1    !ccccc
 
 L,1,5
 L,5,7
 L,7,2
 L,2,4
 L,4,8
 L,8,6
 L,6,3
 L,3,1
 L,5,6
 L,7,8
 AL,8,1,9,7
 AL,2,10,6,9
 AL,3,4,5,10
 
 !划分血管网格
 ASEL,S,AREA,,2
 AATT,1,,1,0
 MSHAPE,0,2D
 MSHKEY,1
 ESIZE,0.00125    !cccccccc
 AMESH,ALL
 
 !血管壁上覆盖表面单元,生成表面效应单元,line 9 and 10 分别为x=0.025,x=0.05
 LSEL,S,LINE,,9,10
 !LSEL,A,LINE,,2
 NSLL,S,1
 TYPE,2
 ESURF
 
 !划分其他area网格
 ASEL,S,AREA,,1,3,2
 AATT,1,,1,0
 MSHAPE,0,2D
 MSHKEY,1
 ESIZE,0.00125     !ccccccccc
 AMESH,ALL
 
 
 !下边界和左边界生成表面单元
 !LSEL,S,LINE,,1,3,2
 !LSEL,A,LINE,,8
 !NSLL,S,1
 !TYPE,2
 !ESURF
 
 
 !给血管表面单元施加对流载荷
 !/PSYMB,ESYS,1
 !ESEL,S,TYPE,,2
 !LSEL,S,,,9,10
 !NSLL,S,1
 !ESLN,S,1
 !SFE,ALL,,CONV,1,0.0684
 !SFE,ALL,,CONV,2,37
 !/psf,conv,,2,0,1
 
 !对下边界施加常温对流载荷
 !/PSYMB,ESYS,1
 !LSEL,S,,,1,3
 !NSLL,S,1
 !ESLN,S,1
 !SFE,ALL,,CONV,1,0.00062
 !SFE,ALL,,CONV,2,25
 !/psf,conv,,2,0,1
 
 !对轴上施加绝热边界条件
 !LSEL,S,,,8
 !NSLL,S,1
 !ESLN,S,1
 !SFE,ALL,,CONV,1,0
 !SFE,ALL,,CONV,2,37
 !D,ALL,TEMP,37
 
 !对右边界和上边界施加恒温条件
 !LSEL,S,,,4,7
 !NSLL,S,1
 !D,ALL,TEMP,37
 
 /SOLU
 !定义分析类型
 ANTYPE,4        !瞬态分析
 !定义初始条件
 TUNIF,37,         !初始温度37
 
 !对节点施加热生成率
 *DIM,uhgen,,81,81
 *VREAD,uhgen(1,1),B105T4,txt,,JIK,81,81
 (81F8.3)
 *STATUS, uhgen
 YVALUE=0
 XVALUE=0
 XSTEP=0.00125       !ccccc
 YSTEP=0.00125        !ccccc
 *DO,II,1,81               !X Direction
 *DO,JJ,1,81            !Y Direction
 !选定节点时候需要给定一个较小的范围
 Nn=NODE(XVALUE,YVALUE,0)
 BF,Nn,HGEN,UHGEN(II,JJ)
 ALLSEL
 YVALUE=YVALUE+YSTEP
 *ENDDO
 XVALUE=XVALUE+XSTEP
 YVALUE=0
 *ENDDO
 
 allsel
 *DO,T1F1,1,300
 time, T1F1
 kbc,1
 autots,on
 deltim,0.5,0.5,1
 timint,on
 tintp,,,,1
 outres,nsol,2,
 LSWRITE,T1F1,
 *ENDDO
 
 *DEL,UHGEN
 *DEL,YVALUE
 *DEL,XVALUE
 *DEL,ZVALUE
 *DEL,XSTEP
 *DEL,YSTEP
 *DEL,ZSTEP
 *DEL,II
 *DEL,JJ
 *DEL,KK
 BFDELE,ALL,HGEN
 
 ALLSEL
 *DO,T1F2,301,600
 time, T1F2
 kbc,1
 autots,off
 deltim,1,1,2
 timint,on
 tintp,,,,1
 outres,nsol,2,
 LSWRITE,T1F2,
 *ENDDO
 
 
 Lssolve,T1F1,T1F2
 
 |