电熨斗温度场仿真——为什么温度场只有两块温区?
浏览:91441 回答:1
求解程序如下:貌似程序也有问题
/SOL !进入求解器
ANTYPE,TRANS !瞬态分析
TIMINT,OFF !先关闭瞬态效应,计算常温下熨斗的温度分布情况 TIME,0.00001 !设置时间为 0.00001s KBC,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,3 FITEM,2,22 FITEM,2,47 FITEM,2,-52 !选取 发热管外表面 SFA,P51X,1,HFLUX,1.337e5 !加载热流密度 *ENDIF !结束一个 IF-THEN-ELSE
*IF,yundou,GE,200,THEN !控制加热通断,如果节点温度高于 200度,则加热管停止发热 FLST,2,7,5,ORDE,3 FITEM,2,22 FITEM,2,47 FITEM,2,-52 !选取 发热管外表面 SFA,P51X,1,HFLUX,0 !不加载热流密度 *ENDIF
KBC,1 NSUBST ,1 !设定子步数为 1来设置荷载步的子步 OUTRES,ALL,ALL !输出所有求解选项,荷载步的每一步都写入 SOLVE *ENDDO !结束一个 DO循环并开始循环操作
*DO,I,1,20
*GET,yundou,NODE,27142,TEMP !读取温控器附近节点的温度,节点编号为 16543 TIME,I !设置计算时间,每循环一次加一秒 *IF,yundou,LE,160,THEN !控制加热通断,如果节点温度低于 160度,则加热管开始发热 FLST,2,7,5,ORDE,3 FITEM,2,22 FITEM,2,47 FITEM,2,-52 !选取发热管外表面 SFA,P51X,1,HFLUX,1.337e5 !加载热流密度 *ENDIF
*IF,yundou,GE,180,THEN !控制加热通断,如果节点温度高于 180度,则加热管停止发热 FLST,2,7,5,ORDE,3 FITEM,2,22 FITEM,2,47 FITEM,2,-52 SFA,P51X,1,HFLUX,0 *ENDIF
KBC,1 NSUBST,1 !设定子步数来设置荷载步的子步 OUTRES,ALL,ALL SOLVE *ENDDO !结束一个 DO循环并开始循环操作
TIMINT,OFF !先关闭瞬态效应,计算常温下熨斗的温度分布情况 TIME,0.00001 !设置时间为 0.00001s KBC,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,3 FITEM,2,22 FITEM,2,47 FITEM,2,-52 !选取 发热管外表面 SFA,P51X,1,HFLUX,1.337e5 !加载热流密度 *ENDIF !结束一个 IF-THEN-ELSE
*IF,yundou,GE,200,THEN !控制加热通断,如果节点温度高于 200度,则加热管停止发热 FLST,2,7,5,ORDE,3 FITEM,2,22 FITEM,2,47 FITEM,2,-52 !选取 发热管外表面 SFA,P51X,1,HFLUX,0 !不加载热流密度 *ENDIF
KBC,1 NSUBST ,1 !设定子步数为 1来设置荷载步的子步 OUTRES,ALL,ALL !输出所有求解选项,荷载步的每一步都写入 SOLVE *ENDDO !结束一个 DO循环并开始循环操作
*DO,I,1,20
*GET,yundou,NODE,27142,TEMP !读取温控器附近节点的温度,节点编号为 16543 TIME,I !设置计算时间,每循环一次加一秒 *IF,yundou,LE,160,THEN !控制加热通断,如果节点温度低于 160度,则加热管开始发热 FLST,2,7,5,ORDE,3 FITEM,2,22 FITEM,2,47 FITEM,2,-52 !选取发热管外表面 SFA,P51X,1,HFLUX,1.337e5 !加载热流密度 *ENDIF
*IF,yundou,GE,180,THEN !控制加热通断,如果节点温度高于 180度,则加热管停止发热 FLST,2,7,5,ORDE,3 FITEM,2,22 FITEM,2,47 FITEM,2,-52 SFA,P51X,1,HFLUX,0 *ENDIF
KBC,1 NSUBST,1 !设定子步数来设置荷载步的子步 OUTRES,ALL,ALL SOLVE *ENDDO !结束一个 DO循环并开始循环操作

可能的原因有如下:
1、计算时间不够,结果还未收敛;
2、未发生热传导等。