Fortran Coder

楼主: filwZ
打印 上一主题 下一主题

[数值问题] 关于求平均值的问题

[复制链接]

712

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
608 元
贡献
311 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

13#
发表于 2014-3-9 11:51:42 | 只看该作者
filwZ 发表于 2014-3-9 11:46
还有点疑问,就是如果这半个月的数据都是不满足条件的话,3000的时候,程序就跳过了这半个月? ...

是的,因为没有满足条件的,所以无法平均。

14

帖子

1

主题

0

精华

入门

F 币
55 元
贡献
33 点
12#
 楼主| 发表于 2014-3-9 11:46:10 | 只看该作者
chuxf 发表于 2014-3-7 13:36
别人给你写的代码,你不能完全拷贝,要根据自己的情况稍作修改。别人的代码只是思路,而不是确定的解决方 ...

还有点疑问,就是如果这半个月的数据都是不满足条件的话,<12,>3000的时候,程序就跳过了这半个月?

14

帖子

1

主题

0

精华

入门

F 币
55 元
贡献
33 点
11#
 楼主| 发表于 2014-3-7 13:53:56 | 只看该作者
chuxf 发表于 2014-3-7 13:36
别人给你写的代码,你不能完全拷贝,要根据自己的情况稍作修改。别人的代码只是思路,而不是确定的解决方 ...

嗯,我就把文件的名字改了,好的,谢谢你

712

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
608 元
贡献
311 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

10#
发表于 2014-3-7 13:36:59 | 只看该作者
filwZ 发表于 2014-3-7 12:46
不好意思,我把那个写到屏幕的让他写到一个txt里,运行完没有错误,但是也没有结果输出。麻烦你了。。 ...

别人给你写的代码,你不能完全拷贝,要根据自己的情况稍作修改。别人的代码只是思路,而不是确定的解决方案。

问题就出在第一行的表头上面。之前的代码没有考虑第一行的表头。

请使用二楼的新代码。

14

帖子

1

主题

0

精华

入门

F 币
55 元
贡献
33 点
9#
 楼主| 发表于 2014-3-7 12:46:05 | 只看该作者
不好意思,我把那个写到屏幕的让他写到一个txt里,运行完没有错误,但是也没有结果输出。麻烦你了。。

57517(4年).txt

216.94 KB, 下载次数: 8

712

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
608 元
贡献
311 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

8#
发表于 2014-3-7 11:21:10 | 只看该作者
filwZ 发表于 2014-3-7 11:15
我把你的那个写进去,调试不出结果。。。好难啊

建议您发送部分数据(而不是截图)

如果遇到错误提示,请给出来。这样别人才能判断是为什么。

14

帖子

1

主题

0

精华

入门

F 币
55 元
贡献
33 点
7#
 楼主| 发表于 2014-3-7 11:15:49 | 只看该作者
chuxf 发表于 2014-3-7 11:03
这个程序用本次读取的年月日和上一次读取的年月日对比,以便判断是否需要重新进行平均。(你要求每半月进行 ...

我把你的那个写进去,调试不出结果。。。好难啊

712

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
608 元
贡献
311 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

6#
发表于 2014-3-7 11:03:29 | 只看该作者
这个程序用本次读取的年月日上一次读取的年月日对比,以便判断是否需要重新进行平均。(你要求每半月进行一次平均)
yearlast = -1
monlast = -1
daylast = -1
这是让一开始的上一次读取的年月日是一个不可能存在的年月日,以便第一行读取后,本次读取的年月日,一定与这个不同,于是程序会认为是一个新的平均部分。

( (day>15)==(daylast>15) ) )
这句话的意思是,day 和 daylast 是否同时大于15,或者是否同时小于15。如果不是的话,就说明需要重新平均了。如果是的话,就继续本次平均

14

帖子

1

主题

0

精华

入门

F 币
55 元
贡献
33 点
5#
 楼主| 发表于 2014-3-7 10:34:01 | 只看该作者
chuxf 发表于 2014-3-6 17:21
[mw_shl_code=fortran,true]Program www_fcode_cn
  Implicit None
  integer :: ierr

能解释下吗?谢谢!

14

帖子

1

主题

0

精华

入门

F 币
55 元
贡献
33 点
地板
 楼主| 发表于 2014-3-7 10:32:24 | 只看该作者

[Fortran] 纯文本查看 复制代码
  yearlast = -1
  monlast = -1
  daylast = -1

和后面的那句
[Fortran] 纯文本查看 复制代码
( (day>15)==(daylast>15) ) )

看不懂啊,能解释下吗?
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-5-20 01:01

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表