子程序介绍三:对流换热子程序film
本帖最后由 mlj0016 于 2010-7-6 10:23 编辑今天介绍一下对流换热子程序film。在这个子程序中,可以设置对流以及辐射换热。我们知道,对流和辐射的系数都是与温度相关的。尤其是辐射的系数,与温度的三次方相关,因此当温度较高时,工件的换热主要通过辐射的方式。具体的公式大家找一本传热学的书看一下就知道了。
今天介绍的子程序比较简单,类似于一个水火弯板或者随焊激冷过程,对流换热系数认为是一个常数。代码如下:
subroutine film(h,tinf,ts,n,time)
implicit logical (a-z)
real*8 h
integer n
real*8 time, tinf, ts
dimension h(2),n(7),ts(6)
tinf=20
if (ts(4).gt.20.and.ts(4).lt.30.and.ts(5).gt.(4*time)
$ .and.ts(5).lt.(4*time+10)) then
h(1)=10
else
h(1)=0
end if
return
end
解释一下,模型中,工件的初始温度设置为1000,温度为20度的冷源沿着y轴移动,移动速度为4mm/s,冷源的范围为x方向10mm,y方向10mm。对流换热系数为10000(随便设置的)。模拟结果如图中所示。
模型及子程序见附件。
**** Hidden Message ***** 隐藏模型和附件没有别的意思,只是觉得本版太冷清,希望大家踊跃回帖。 看看。学习一下。。。。。。。。。。。。。。。。。。。 LZ很强啊,谢谢,学习了! 很经典,谢谢楼主分享啊! 楼主的软件太新了,呵呵,2007版打不开啊!可惜啊! 感谢。能不能针对LASER BEAM WELDING讲解一下。 最近才开始看子程序,下载下来学习一下。 楼主能不能把你的材料参数贴出来啊!我的是2007版,很想学习下你的这个!谢谢啊! 材料参数是读的marc材料库中的材料。
因为是做例子,所以参数基本上都是用的现成的。只有水冷的对流换热系数是随手填的,这个最好还是找一下文献。 感谢LZ分享,跟LZ学习一下,呵呵。 LZ的marc软件是2008版本么?我的2007打不开。 2010版的。 谢谢了,分享 很强大啊,楼主,学习了 高手,学习啦 看看了,应该不错 有关marc二次开发,可以看看教程,有本专门的教程 师兄,我来顶你了!能不能讲讲怎么使平板出现马鞍形变形啊? 学习一下,应该很有用