24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 628  |  回复: 2

xooper

铜虫 (正式写手)

[求助] 请大侠把公式用fortran翻译出来

请高人帮忙把这个血液函数编辑成fortran语言,小女子先行谢过,金币持续放出。
请大侠把公式用fortran翻译出来
未命名.gif
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

pippi6

铁杆木虫 (著名写手)

工程和科学数值计算咨询

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
xooper: 金币+20, ★★★★★最佳答案 2013-05-21 17:44:59
function  BloodFunction(t)
  implicit none
  real*8 :: t, BloodFunction
  BloodFunction=0
  if(t < 0.24d0 .and. t >=0.d0 ) then
     BloodFunction=240d0*exp(-7.557d0*t)*sin(13.09d0*t)
  elseif(t < 0.2743d0 .and.t >=0.24d0 ) then
     BloodFunction=-31.4d0*sin(13.09d0)*exp(-7.557d0*(t-0.24d0))*(t-0.24d0)
  end if
end function BloodFunction
2楼2013-05-20 12:58:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

liqiuyan

金虫 (小有名气)

0≤t < 0.24时,BloodFunction(t)=240*exp(-7.557*t)*sin(13.09*t)
0.24≤t < 0.2743时, BloodFunction(t)=-31.4*sin(13.09)*exp(-7.557*(t-0.24))*(t-0.24)

注明:exp(x)指的是e的x次方
3楼2013-05-25 15:36:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 xooper 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求材料调剂,一志愿郑州大学289分 +7 硕星赴 2026-04-03 7/350 2026-04-03 08:06 by 帕尔马拉特
[考研] 一志愿南开大学0710生物学359求调剂 +6 兔兔兔111223314 2026-03-29 8/400 2026-04-02 22:37 by louise0220
[考研] 求调剂 +5 朔朔话 2026-04-02 6/300 2026-04-02 22:02 by barlinike
[考研] 一志愿山东大学,085600,344 +7 魏子per 2026-04-02 8/400 2026-04-02 21:12 by 百灵童888
[考研] 一志愿北京科技材料科学与工程288分,求调剂 +14 是辰啊 2026-04-02 14/700 2026-04-02 21:10 by dongzh2009
[考研] 362求调剂 +14 西南交材料专硕3 2026-03-31 14/700 2026-04-02 17:50 by yunlongyang
[考研] 085600,材料与化工321分求调剂 +11 大馋小子 2026-03-28 11/550 2026-04-02 15:59 by yunlongyang
[考研] 283求调剂 +3 jiouuu 2026-04-02 4/200 2026-04-02 14:08 by 哒哒哒呱呱呱
[考研] 337求调剂 +11 《树》 2026-03-29 11/550 2026-04-02 10:20 by 不吃魚的貓
[考研] 367求调剂 +8 芋泥啵啵… 2026-03-28 8/400 2026-04-02 09:20 by olim
[考研] 一志愿北京科技,085601总分305求调剂 +9 半生瓜! 2026-04-01 11/550 2026-04-02 08:28 by Wang200018
[考研] 材料求调剂 +8 呢呢妮妮 2026-04-01 8/400 2026-04-02 07:13 by yjolah
[考研] 省双一流重点一本大学招收调剂 +4 wwwwffffff 2026-03-31 7/350 2026-04-01 15:23 by wwwwffffff
[考研] 0710生物学求调剂! +6 叙述文 2026-03-31 6/300 2026-04-01 09:39 by JourneyLucky
[考研] 0856调剂 +7 曲听筠 2026-03-30 7/350 2026-04-01 08:51 by JourneyLucky
[考研] 吉大生物学326分求调剂 +3 sunnyupup 2026-03-31 3/150 2026-03-31 09:28 by longlotian
[考研] 一志愿食品科学与工程083200求调剂 +4 XQTJZ 2026-03-30 4/200 2026-03-31 04:10 by fmesaito
[考研] 085701环境工程求调剂 +11 多久上课 2026-03-27 12/600 2026-03-30 21:21 by 研究僧导导
[考研] 297 地理学070500 复试求调剂 +3 小圆圈圈ooo 2026-03-30 3/150 2026-03-30 21:05 by 余震yz
[考研] 一志愿上海理工能源动力(085800)310分求调剂 +3 zhangmingc 2026-03-27 4/200 2026-03-27 19:01 by 给你你注意休息
信息提示
请填处理意见