24小时热门版块排行榜

返回列表

当前主题已经存档。

毛毛虫子

金虫 (正式写手)

应助: 0 (幼儿园)
金币: 119.8
散金: 12
红花: 3
帖子: 385
在线: 54小时
虫号: 647538
注册: 2008-11-06
专业: 动力学与控制

[交流] 【求助】谁能给我写一个aspen中的Fortran子程序呀？【已完成】

高手们请帮帮我吧
我想把一个动力学方程式放到aspen中
需要用Fortran编译这个方程式的子程序
编译实在不懂了

这是一个co变换的动力学方程式
方程式如下：
r= K0×exp^(- E/R T)×Y1^a×Y2^b×Y3^c×Y4^d×(1- β)

其中：β=(Y1^a×Y4^d)/(Kp×Y2^b×Y3^c )
Kp= exp (5.992511+ 4764.11/T +0.56273903T×10^(-2)- 0.2189647T^2
×10^(-5)+0.417603T^3×10^(-9)-1.9439412lnT)

(注：exp^(- E/R T)表示e的(- E/R T)次方，Y1^a表示Y1的a次方)
式中参数T 代表反应温度, 已知。R 是气体常数，K0 ，a，b，c，d都是常数，已知。其中的Y1，Y2，Y3，Y4表示反应的浓度，是未知的。
谢谢！！

[ Last edited by nono2009 on 2009-9-22 at 07:36 ]

回复此楼