关于求平均值的问题

filwZ · 发表于 2014-3-6 16:46:24

求助大家一个问题
我的资料是52年的雨量资料，每一天都有，但是有的天数是缺失的，现在需要将一个月的前15天求一个平均值，这个月剩下的天数求一个平均。
但是需要雨量大于12mm，资料里雨量30000多的表示缺失，记为0.

请位大神教下怎么求。

filwZ · 发表于 2014-3-6 17:56:52

非常谢谢。。大神。

filwZ · 发表于 2014-3-7 10:32:24

[Fortran] 纯文本查看 复制代码

  yearlast = -1
  monlast = -1
  daylast = -1

和后面的那句

[Fortran] 纯文本查看 复制代码

( (day>15)==(daylast>15) ) )

看不懂啊，能解释下吗？

filwZ · 发表于 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

能解释下吗？谢谢！

filwZ · 发表于 2014-3-7 11:15:49

chuxf 发表于 2014-3-7 11:03
这个程序用本次读取的年月日和上一次读取的年月日对比，以便判断是否需要重新进行平均。（你要求每半月进行 ...

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

filwZ · 发表于 2014-3-7 12:46:05

不好意思，我把那个写到屏幕的让他写到一个txt里，运行完没有错误，但是也没有结果输出。麻烦你了。。

filwZ · 发表于 2014-3-7 13:53:56

chuxf 发表于 2014-3-7 13:36
别人给你写的代码，你不能完全拷贝，要根据自己的情况稍作修改。别人的代码只是思路，而不是确定的解决方 ...

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

filwZ · 发表于 2014-3-9 11:46:10

chuxf 发表于 2014-3-7 13:36
别人给你写的代码，你不能完全拷贝，要根据自己的情况稍作修改。别人的代码只是思路，而不是确定的解决方 ...

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

filwZ · 发表于 2014-3-9 13:07:15

chuxf 发表于 2014-3-9 11:51
是的，因为没有满足条件的，所以无法平均。

有没有办法让他读完以后也输出一行平均数为0的结果呢？

filwZ · 发表于 2014-3-9 13:29:09

chuxf 发表于 2014-3-9 13:08
有办法，修改很简单。请你尝试自己修改，如有问题再追问。

哦，我算出来了。

[Fortran] 纯文本查看 复制代码

else if (( c==0) .and. (yearlast/=-1))then
a = 0
c = 0
 write(13,*) yearlast , monlast , a , c

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