24小时热门版块排行榜    

查看: 509  |  回复: 3
当前主题已经存档。

毛毛虫子

金虫 (正式写手)

[交流] 【求助】谁能给我写一个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 ]
回复此楼

» 猜你喜欢

玩儿去任务额
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

毛毛虫子

金虫 (正式写手)

2楼2009-08-20 08:49:51
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

毛毛虫子

金虫 (正式写手)

玩儿去任务额
3楼2009-08-24 10:18:53
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

毛毛虫子

金虫 (正式写手)

已解决
玩儿去任务额
4楼2009-09-17 16:42:55
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 毛毛虫子 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 投票:  有多少人是今天查系统知道结果的? +17 爱看书的可乐 2026-08-26 19/950 2026-08-31 08:09 by xiangy672
[基金申请] 面上意见出来了 +10 黄鸟于飞Chao 2026-08-29 19/950 2026-08-31 08:01 by blueearth171
[基金申请] 能否申诉? +4 echo8914667 2026-08-30 5/250 2026-08-30 21:11 by echo8914667
[考博] 找导师 +6 yuanjiabao 2026-08-29 7/350 2026-08-30 14:40 by 生科新手
[基金申请] 国自然面上复盘~欢迎讨论 (金币+15) +15 晴天加油 2026-08-26 16/800 2026-08-29 18:28 by symmetry
[基金申请] 国自然评审意见 +13 wangmingqi 2026-08-28 19/950 2026-08-29 10:22 by Poppy1104
[基金申请] 为什么资助数各大高校都创新高,自己申请怎么就这么难 +12 Kittylucky 2026-08-27 13/650 2026-08-29 00:04 by superceng
[基金申请] 怎么查啊 +6 huang1991js 2026-08-26 6/300 2026-08-28 08:42 by winsaint
[基金申请] 哪位高人中了,把查询到的截图贴出来让我看看,让我长长见识 +5 yuleib84 2026-08-26 6/300 2026-08-28 00:02 by yudaoqian88
[基金申请] 面上合作单位盖章 +5 ssyjh 2026-08-27 5/250 2026-08-27 20:50 by gdfollow
[文学芳草园] 梦想 +3 myrtle 2026-08-26 3/150 2026-08-27 10:01 by angelyueyi
[基金申请] 为什么 国际(地区)合作与交流项目 没有放榜? 10+3 majunge000 2026-08-26 11/550 2026-08-27 08:42 by 北京莱茵编辑
[基金申请] 我不理解! +15 Edward_pc 2026-08-26 23/1150 2026-08-26 20:34 by zzuzxg
[基金申请] 出来了 +9 trojank 2026-08-26 9/450 2026-08-26 14:25 by 宝贝虫子
[基金申请] 国际合作可查了,中了面上 (EPI+1)(金币+50) +18 Ldrop2023 2026-08-26 18/900 2026-08-26 11:15 by cmrandy
[基金申请] 系统进不去 +4 yanglien 2026-08-26 5/250 2026-08-26 11:10 by wenfengw83
[基金申请] 项目信息和经费信息在系统里都可以看到了 +6 wittyboy 2026-08-26 14/700 2026-08-26 10:55 by wittyboy
[基金申请] 在坚冰还盖着北海的时候,我看到了怒放的梅花。 (金币+10) +6 ziyangfang 2026-08-25 9/450 2026-08-25 20:26 by huagongfeihu
[基金申请] 某些机构,以效率低为荣,以效率低作为存在感 +9 yuleib84 2026-08-25 10/500 2026-08-25 17:14 by alexon
[基金申请] 如果此刻你正在为国基感到焦虑,不妨来听听这首《基金之外》 +8 scalable 2026-08-24 8/400 2026-08-25 12:52 by jnhyjjm
信息提示
请填处理意见