应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

CyRhmU.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 计算模拟 » 求助fortran编程一个。。仿真模拟非稳态（非）绝热毛细管
51/1返回列表
查看: 1336  |  回复: 12
只看楼主@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

liu8868235

金虫 (正式写手)

[求助] 求助fortran编程一个。。仿真模拟非稳态（非）绝热毛细管

刚上研一，老板叫我模拟一下非绝热非问题的毛细管 ，当做联系fortran   现在把fortran和毛细管的文献都看过了就是不知道怎么开始编程。。。。哪位大神有关于这方面的程序的，给我传一个  叫我学习参照一下。。。。
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
生命不息---奋斗不止.不要因为走的远了就忘了最初出发的目的；不要因为一点小小的成就就忘了最初低调的自己，要记住最初的自己是谁。
1楼2013-09-27 20:28:30
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

twoflm

木虫 (著名写手)
你把我四楼回复的帖子里的显式和隐式对调一下，后面的相关说法就通了。

[ 发自手机版 http://muchong.com/3g ]
赞一下 回复此楼
6楼2013-09-28 10:38:20
 已阅   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 13 个回答

twoflm

木虫 (著名写手)
程序不程序的先不说，你是否清楚这个过程的数理模型？
你这个毛细管是空调方面用的吗？
查查相关书籍，相关论文文献，把模型搞清楚（通常是一组微分方程），离散，变成代数方程租求解。离散好了，套用fortran相关求解代数方程租的程序求解。

你才研一，你们老板要求高了点，里面涉及气液相变，两相的流动传热，计算比较复杂。而且通常稳态计算就差不多够用了。
如果只是熟悉这个语言，编个稳态的就差不多了。

[ 发自手机版 http://muchong.com/3g ]
赞一下(1人) 回复此楼
2楼2013-09-28 09:58:44
 已阅   关注TA 给TA发消息 送TA红花 TA的回帖

liu8868235

金虫 (正式写手)
引用回帖:
2楼: Originally posted by twoflm at 2013-09-28 09:58:44
程序不程序的先不说，你是否清楚这个过程的数理模型？
你这个毛细管是空调方面用的吗？
查查相关书籍，相关论文文献，把模型搞清楚（通常是一组微分方程），离散，变成代数方程租求解。离散好了，套用fortran相关 ...

我现在已经能离散了，就差编写了，不知道怎么下手。所以请教一下！

[ 发自小木虫客户端 ]
赞一下 回复此楼
生命不息---奋斗不止.不要因为走的远了就忘了最初出发的目的；不要因为一点小小的成就就忘了最初低调的自己，要记住最初的自己是谁。
3楼2013-09-28 10:16:33
 已阅   关注TA 给TA发消息 送TA红花 TA的回帖

twoflm

木虫 (著名写手)
★ ★
csgt0: 金币+2, 欢迎交流 2013-09-29 15:46:28
引用回帖:
3楼: Originally posted by liu8868235 at 2013-09-28 10:16:33
我现在已经能离散了，就差编写了，不知道怎么下手。所以请教一下！
...

离散的格式和边界条件的设置对求解影响不小，你可以要多实验几种方案
你用的离散是隐式差分还是显式？前者对时间步长要求较高，后者计算相对稳定，但计算量较大，要求解一组代数方程租
前者是一组递推关系，后者要求解代数方程组（以前一时刻作为已知量，后一时刻作为未知量，需要整理好方程租，有现成的求解代数方程租的程序，线性的非线性的都有，视问题而定）。
除了上面步骤中你是否能成功实现以外（如果你有过良好的相关训练，如参加过数模竞赛，有良好的建模和编程能力的话，这些不是问题），我也怀疑你能否做的准确的是你能否选择合适的计算传热系数和摩擦因子的经验关联式，这些对结果影响也很大，你需要查找较多相关文献，比较各个经验关联式的特点，选择合适关联式。
不过你要是做出来了，专业基础理论方面的理解和运用以及数值求解方面的能力应该会有明显的提升。
不知能问一下楼主是哪个学校的吗，很好奇你们导师为什么会让研一的学生做这个学习fortran，呵呵

[ 发自手机版 http://muchong.com/3g ]
赞一下 回复此楼
4楼2013-09-28 10:32:51
 已阅   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 13 个回答
信息提示
关闭
请填处理意见
关闭