24小时热门版块排行榜    

查看: 617  |  回复: 2
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

xooper

铜虫 (正式写手)

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

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

» 猜你喜欢

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

已阅   回复此楼   关注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的回帖
查看全部 3 个回答

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的回帖
信息提示
请填处理意见