应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 编一个fortran循环程序求思路
北京石油化工学院2026年研究生招生接收调剂公告
71/1返回列表
查看: 1285  |  回复: 6
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

liu8868235

金虫 (正式写手)

[求助] 编一个fortran循环程序求思路

自己感觉比较复杂 刚接手肯定不会，求一个思路或者是编写基本让我看看。


算是中  G D 都是已经的定值，p1也已知，p1-p2=1（每次递减1）N=300
v1，v2，h1,h2 这些都是温度的函数  能调用公式把他们算出了。

循环结束的条件是：si - si+1<=0   S也是温度的函数 能调用公式。

在书上看到的都是一些 循环过程中只有简单的一、二步运算的，这个忽然中间这么多运算，不会弄了，现在  求出了第一小段：△L1 。   就是不会往下这么设置循环？

编一个fortran循环程序求思路
求的就是这个.jpg


编一个fortran循环程序求思路-1
总长等于图1的总和.jpg


编一个fortran循环程序求思路-2
这个是干度 x 的计算公式.jpg


编一个fortran循环程序求思路-3
图三的干度x就是在这里用到的.jpg


编一个fortran循环程序求思路-4
求图1中的f的公式.jpg
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
生命不息---奋斗不止.不要因为走的远了就忘了最初出发的目的；不要因为一点小小的成就就忘了最初低调的自己，要记住最初的自己是谁。
1楼 2013-10-26 15:29:50
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

liu8868235

金虫 (正式写手)
加下标m  就是  f1  与  f2 的平均值  大家也都知道的
赞一下 回复此楼
生命不息---奋斗不止.不要因为走的远了就忘了最初出发的目的；不要因为一点小小的成就就忘了最初低调的自己，要记住最初的自己是谁。
2楼2013-10-26 15:30:55
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

jerkwin

专家顾问 (正式写手)
你终于还是来求助了啊
还以为你能自己搞定呢
赞一下 回复此楼
3楼2013-10-26 21:58:50
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

liu8868235

金虫 (正式写手)
引用回帖:
3楼: Originally posted by jerkwin at 2013-10-26 21:58:50
你终于还是来求助了啊
还以为你能自己搞定呢

那你看到了还不帮帮我，我这次写帖子的时候还在想，上次怎么不这样写呢，要上次都写这么详细或许你已经给我解决了呢。呵呵
赞一下 回复此楼
生命不息---奋斗不止.不要因为走的远了就忘了最初出发的目的；不要因为一点小小的成就就忘了最初低调的自己，要记住最初的自己是谁。
4楼2013-10-26 22:05:01
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

liu8868235

金虫 (正式写手)
引用回帖:
3楼: Originally posted by jerkwin at 2013-10-26 21:58:50
你终于还是来求助了啊
还以为你能自己搞定呢

真心的还是没思路？  不知道该怎么办？  现在就是不知道  如何把下角标 2换为3  1换位2  这样不就完成循环了吗？  给点意见呗
赞一下 回复此楼
生命不息---奋斗不止.不要因为走的远了就忘了最初出发的目的；不要因为一点小小的成就就忘了最初低调的自己，要记住最初的自己是谁。
5楼2013-10-26 22:06:37
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

jerkwin

专家顾问 (正式写手)

【答案】应助回帖

★
感谢参与，应助指数 +1
liu8868235(jjdg代发): 金币+1, 感谢参与 2013-10-27 02:34:55
不用循环, 用个while判断, 达到条件就推出
一个Spre记录上一步的S, 一个Snow记录当前S, abs(Snow-Spre)<eps exit
赞一下 回复此楼
6楼2013-10-26 22:17:02
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

liu8868235

金虫 (正式写手)
引用回帖:
6楼: Originally posted by jerkwin at 2013-10-26 22:17:02
不用循环, 用个while判断, 达到条件就推出
一个Spre记录上一步的S, 一个Snow记录当前S, abs(Snow-Spre)<eps exit

大神，能不能说的再稍微详细点，我刚接触这东西，还不是很懂。每一次Fm，Vm都不一样也能用WHILE啊？
赞一下 回复此楼
生命不息---奋斗不止.不要因为走的远了就忘了最初出发的目的；不要因为一点小小的成就就忘了最初低调的自己，要记住最初的自己是谁。
7楼2013-10-27 13:00:47
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 liu8868235 的主题更新
71/1返回列表
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 专硕0854初试考材科基，求调剂 +3 3220548044 2026-04-06 3/150 2026-04-06 08:09 by melodiousnow
[考研] 化学0703-一志愿211-338分求调剂 +8 vants 2026-04-05 8/400 2026-04-06 06:17 by houyaoxu
[考研] 327求调剂 +4 拾光任染 2026-04-05 4/200 2026-04-05 20:16 by 南航~万老师
[考研] 329求调剂 +17 miaodesi 2026-04-02 20/1000 2026-04-05 18:33 by 蓝云思雨
[考研] 0832食品科学与工程学硕282调剂 +6 鱼在水中游a 2026-04-02 9/450 2026-04-05 11:45 by flysky1234
[考研] 材料调剂 +11 一样YWY 2026-04-02 13/650 2026-04-04 23:10 by 无际的草原
[考研] 怎么删帖子啊 +3 缝曦1000 2026-04-04 3/150 2026-04-04 14:20 by 土木硕士招生
[考研] 280求调剂 +21 咕噜晓晓 2026-04-02 22/1100 2026-04-04 11:12 by 猪会飞
[考研] 材料专业383求调剂 +8 郭阳阳阳成 2026-04-03 8/400 2026-04-04 10:29 by Rednal.
[考研] 一志愿北京交通大学材料工程总分358 +4 cs0106 2026-04-03 4/200 2026-04-03 13:41 by 百灵童888
[考研] 调剂 +7 祉岷. 2026-04-02 7/350 2026-04-03 09:11 by 花呗还欠600
[考研] 一志愿大工学硕，求调剂 +4 yub0811 2026-04-02 4/200 2026-04-02 21:36 by 百灵童888
[考研] 318求调剂 +3 笃行致远. 2026-03-31 4/200 2026-04-02 15:56 by Jaylen.
[考研] 081200-11408-276学硕求调剂 +3 崔wj 2026-04-02 3/150 2026-04-02 15:06 by cal0306
[考研] 270调剂 +7 maxjxbsk 2026-04-02 7/350 2026-04-02 09:50 by yulian1987
[考研] 304求调剂 +12 素年祭语 2026-03-31 15/750 2026-04-01 22:41 by peike
[考研] 求调剂0703 +5 周嘉尧 2026-03-31 8/400 2026-04-01 20:32 by ltltkkk
[考研] 一志愿西安交大材料学硕（英一数二）347，求调剂到高分子/材料相关专业 +7 zju51 2026-03-31 9/450 2026-04-01 19:35 by CFQZAFU
[考研] 08工科275求调剂，可跨考。 +5 AaAa7420 2026-03-31 5/250 2026-04-01 15:21 by 159357hjz
[考研] 085404 22408 315分 +5 zhuangyan123 2026-03-31 6/300 2026-03-31 13:48 by limeifeng
信息提示
关闭
请填处理意见
关闭