子程序介绍三：对流换热子程序film

mlj0016 · 发表于 2010-7-6 10:15:36

本帖最后由 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（随便设置的）。模拟结果如图中所示。

模型及子程序见附件。

游客，如果您要查看本帖隐藏内容请回复

mlj0016 · 发表于 2010-7-6 10:21:29

隐藏模型和附件没有别的意思，只是觉得本版太冷清，希望大家踊跃回帖。

surfin · 发表于 2010-7-6 11:22:57

看看。学习一下。。。。。。。。。。。。。。。。。。。

Orangechen · 发表于 2010-7-6 11:47:48

LZ很强啊，谢谢，学习了！

xutaoneu · 发表于 2010-7-6 14:01:35

很经典，谢谢楼主分享啊！

xutaoneu · 发表于 2010-7-6 14:04:41

楼主的软件太新了，呵呵，2007版打不开啊！可惜啊！

sunnygu · 发表于 2010-7-6 14:18:29

感谢。能不能针对LASER BEAM WELDING讲解一下。

Coldplay · 发表于 2010-7-6 14:56:23

最近才开始看子程序，下载下来学习一下。

xutaoneu · 发表于 2010-7-6 15:58:47

楼主能不能把你的材料参数贴出来啊！我的是2007版，很想学习下你的这个！谢谢啊！

mlj0016 · 发表于 2010-7-6 16:13:54

材料参数是读的marc材料库中的材料。
因为是做例子，所以参数基本上都是用的现成的。只有水冷的对流换热系数是随手填的，这个最好还是找一下文献。

1354202904 · 发表于 2010-7-6 16:26:30

感谢LZ分享，跟LZ学习一下，呵呵。

1354202904 · 发表于 2010-7-6 16:38:09

LZ的marc软件是2008版本么？我的2007打不开。

mlj0016 · 发表于 2010-7-6 16:45:24

2010版的。

gmz118 · 发表于 2010-7-7 21:50:22

谢谢了，分享

励耘剑 · 发表于 2010-7-8 08:05:53

很强大啊，楼主，学习了

lamberleeky · 发表于 2010-7-8 09:33:10

高手，学习啦

zhangluu · 发表于 2010-7-8 15:22:11

看看了，应该不错

MCADCAM · 发表于 2010-7-8 18:44:16

有关marc二次开发，可以看看教程，有本专门的教程

haizhonglong1 · 发表于 2010-7-9 22:05:35

师兄，我来顶你了！能不能讲讲怎么使平板出现马鞍形变形啊？

hjc3721 · 发表于 2010-7-10 15:08:47

学习一下，应该很有用

账号		自动登录	找回密码
密码			注册

账号		自动登录	找回密码
密码			立即注册

[子程序/二次开发] 子程序介绍三：对流换热子程序film

本帖子中包含更多资源

评分

相关帖子