求助编程

嫣儿

53691  2005     7     28.6806     34.1710     24.0129
53691  2005     8     26.0161     30.9452     22.0452
53691  2005     9     21.9500     27.1333     17.5233
53691  2006     7     26.7935     31.2161     23.2581
53691  2006     8     25.9806     30.1097     22.3323
53691  2006     9     22.0833     27.9100     17.2767
53694  2005     7     27.8806     33.1161     23.3097
53694  2005     8     24.9774     29.8581     20.9968
53694  2005     9     20.8400     26.1233     16.5000
53694  2006     7     25.9065     30.1387     22.7484
53694  2006     8     24.9323     28.8806     21.6581
53694  2006     9     20.4567     26.6400     15.8867
想算53691、53694 两年七月的第四五六列平均值
还有八月、九月的第四五六列平均值

怎么编程？谢谢

topmad

这个简单啊

外层判断 内层进行计算就可以了  好好想一下算法 不难的

陌小默的

深深不是写了个160站的处理程序么，参考下就是了

嫣儿

陌小默的 发表于 2012-5-23 15:12

                               
登录/注册后可看大图

深深不是写了个160站的处理程序么，参考下就是了

具体在哪儿呢

mofangbao

嫣儿 发表于 2012-5-23 15:17

                               
登录/注册后可看大图

具体在哪儿呢

自己搜索

随缘

mofangbao 发表于 2012-5-23 15:31

                               
登录/注册后可看大图

自己搜索

唉！现在衣来伸手饭来张口的人怎么这么多

kshxia

嫣儿 发表于 2012-5-23 15:17

                               
登录/注册后可看大图

具体在哪儿呢

http://bbs.06climate.com/forum.p ... &extra=page%3D7
不知道是不是。

言深深

http://bbs.06climate.com/forum.php?mod=viewthread&tid=7133

主要是第二部分，我算的是年，去掉头上两个经纬度，从3--14表示算了12个月的，你要是单算那一个月的也是可以类似的方法。不过你的数据和程序匹配的话也可以不这么做。
parameter(m=?,n=6)    !m是你数据的总行数
real x(m,n)
open(1,file="")
do i=1,m
read (1,*) (x(i,j),j=1,n)
enddo
close(1)

do i=1,m
s4=0
s5=0
s6=0
k=0
if(x(i,1).eq.53691) then
if(x(i,2).eq.2005.or.x(i,2).eq.2006)then
if(x(i,3).eq.7)then
s4=s4+x(i,4)
s5=s5+x(i,5)
s6=s6+x(i,6)
k=k+1
endif
endif
endif
enddo
s4=s4/k
s5=s5/k
s6=s6/k
print*,s4,s5,s6end

这是在回复里面临时敲的（只求了一个站点7月的），没有编译一下，你自己试试看吧，能看懂多少就看你自己的了。

嫣儿

言深深 发表于 2012-5-23 15:58

                               
登录/注册后可看大图

http://bbs.06climate.com/forum.php?mod=viewthread&tid=7133

主要是第二部分，我算的是年，去掉头上两 ...

谢谢你 其他的都搞定了

言深深

嫣儿 发表于 2012-5-23 16:55

                               
登录/注册后可看大图

谢谢你 其他的都搞定了

不客气