电熨斗热分析——为什么温度场就只有两种温度?求大牛...
求解程序如下:程序求解貌似也有问题/SOL !进入求解器ANTYPE,TRANS !瞬态分析 TIMINT,OFF !先关闭瞬态效应,计算常温下熨斗的温度分布情况TIME,0.00001 !设置时间为0.00001sKBC,1 !阶跃载荷SOLVE !计算 DDELE,ALL,ALL !删除节点上加载的温度TIMINT,ON !打开瞬态效应 *DO,I,1,20 !这里设置计算1分钟,即20次 *GET,yundou,NODE,27142,TEMP !读取温控器附近节点的温度,节点编号为27142,储存在yundou里 TIME,I !设置计算时间,每循环一次加一秒*IF,yundou,LE,160,THEN !控制加热通断,如果节点温度低于160度,则加热管发热FLST,2,7,5,ORDE,3FITEM,2,22FITEM,2,47FITEM,2,-52 !选取发热管外表面SFA,P51X,1,HFLUX,1.337e5 !加载热流密度*ENDIF !结束一个IF-THEN-ELSE *IF,yundou,GE,200,THEN !控制加热通断,如果节点温度高于200度,则加热管停止发热FLST,2,7,5,ORDE,3FITEM,2,22FITEM,2,47FITEM,2,-52 !选取发热管外表面SFA,P51X,1,HFLUX,0 !不加载热流密度*ENDIF KBC,1NSUBST,1 !设定子步数为1来设置荷载步的子步OUTRES,ALL,ALL !输出所有求解选项,荷载步的每一步都写入SOLVE*ENDDO !结束一个DO循环并开始循环操作 *DO,I,1,20 *GET,yundou,NODE,27142,TEMP !读取温控器附近节点的温度,节点编号为16543TIME,I !设置计算时间,每循环一次加一秒*IF,yundou,LE,160,THEN !控制加热通断,如果节点温度低于160度,则加热管开始发热 FLST,2,7,5,ORDE,3FITEM,2,22FITEM,2,47FITEM,2,-52 !选取发热管外表面SFA,P51X,1,HFLUX,1.337e5 !加载热流密度*ENDIF *IF,yundou,GE,180,THEN !控制加热通断,如果节点温度高于180度,则加热管停止发热FLST,2,7,5,ORDE,3FITEM,2,22FITEM,2,47FITEM,2,-52SFA,P51X,1,HFLUX,0 *ENDIF KBC,1NSUBST,1 !设定子步数来设置荷载步的子步OUTRES,ALL,ALLSOLVE*ENDDO !结束一个DO循环并开始循环操作
页:
[1]