24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 627  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿085600中科院宁波所276分求调剂 +26 材料学257求调剂 2026-03-28 27/1350 2026-04-02 15:15 by chyhaha
[考研] 071000生物学调剂 +5 知昭蔓 2026-04-02 5/250 2026-04-02 15:13 by 唐沐儿
[考博] 材料工程专业硕士申博 +3 麟正宇 2026-03-30 3/150 2026-04-02 15:04 by greychen00
[考研] 求调剂求调剂 +5 121. 2026-04-02 5/250 2026-04-02 14:52 by 帕尔马拉特
[考研] 298求调剂 +3 zzz,,r 2026-04-02 6/300 2026-04-02 14:34 by zzz,,r
[考研] 一志愿复旦材料,英一专硕,总分357调剂 +3 1050389037 2026-04-02 4/200 2026-04-02 14:32 by olim
[考研] 296材料专硕求调剂 +9 202451007219 2026-04-02 10/500 2026-04-02 11:54 by ms629
[考研] 354求调剂 +4 lxb598 2026-03-31 5/250 2026-04-02 09:55 by Jaylen.
[考研] 化学工程专硕324分,一志愿中国矿业大学求调剂 +7 耿耿1314 2026-04-01 7/350 2026-04-02 07:40 by 尚水阁主
[考研] 291求调剂 +20 Y-cap 2026-03-29 25/1250 2026-04-01 23:49 by 欣喜777
[考研] 279求调剂 +7 莫xiao 2026-04-01 7/350 2026-04-01 22:05 by 客尔美德
[考研] 353求调剂 +4 拉钩不许变 2026-04-01 4/200 2026-04-01 18:10 by 记事本2026
[考研] 生物与医药考研调剂 +5 铁憨憨123425 2026-03-31 5/250 2026-04-01 18:01 by syh9288
[考研] 0703求调剂 +4 zizimo 2026-03-31 4/200 2026-04-01 16:04 by yanflower7133
[考研] 材料专硕306英一数二 +7 z1z2z3879 2026-03-31 7/350 2026-04-01 14:50 by ZXlzxl0425
[考研] 一志愿南昌大学324求调剂 +7 hanamiko 2026-03-30 7/350 2026-04-01 13:22 by JourneyLucky
[考研] 考研调剂 +9 小蜡新笔 2026-03-29 10/500 2026-03-31 19:52 by Dyhoer
[考研] 285求调剂 +6 AZMK 2026-03-29 9/450 2026-03-30 21:02 by dophin1985
[考研] 一志愿南京航空航天大学材料学硕求调剂 +3 @taotao 2026-03-28 3/150 2026-03-28 10:26 by JourneyLucky
[考研] 272求调剂 +7 脚滑的守法公民 2026-03-27 7/350 2026-03-27 17:23 by laoshidan
信息提示
请填处理意见