找回密码
 注册
Simdroid-非首页
查看: 73|回复: 4

[3. Fortran] 各位大虾帮下忙啊,求5日滑动平均气温

[复制链接]
发表于 2009-3-22 17:44:28 | 显示全部楼层 |阅读模式 来自 北京
哪位大虾帮下忙啊,我研究了一下午也没编出来啊,谁给个提示也行啊

假设有1月份的日平均气温数据
天数1,2,3,4,5,6,7,8,9,……,31
现在要求5日滑动平均气温,也就是说1,2,3,4,5,5日温度求一个平均值,然后是2,3,4,5,6,再求一个平均,依次类推3,4,5,6,7……
发表于 2009-3-22 18:28:05 | 显示全部楼层 来自 大连理工大学
Simdroid开发平台
本帖最后由 zhoulon 于 2009-3-22 18:29 编辑

呵呵,这个问题比较好求呀,只需要两个数组就可以解决了。
首先定义两个数组a(31)和b(27)
请看下面代码

  1. implicit real*8 (a-h,o-z)
  2. dimension a(31),b(27)

  3. do i=1,27
  4.     b(i)=(a(i)+a(i+1)+a(i+2)+a(i+3)+a(i+4))/5
  5. end do

  6. end
复制代码
回复 不支持

使用道具 举报

发表于 2009-3-22 18:28:37 | 显示全部楼层 来自 大连理工大学
相信你一看就知道如何做了,其它读取文件数据的事情自己做吧。
回复 不支持

使用道具 举报

 楼主| 发表于 2009-3-22 19:57:44 | 显示全部楼层 来自 北京
2# zhoulon
版主我还是没弄出来啊 ,麻烦在帮下忙,数据是在txt文档里,也就是啊a(31),每次只能读出一个数据
do i=1,27
    b(i)=(a(i)+a(i+1)+a(i+2)+a(i+3)+a(i+4))/5
end do
怎么实现呢???
回复 不支持

使用道具 举报

发表于 2009-3-24 11:00:38 | 显示全部楼层 来自 大连理工大学
每一个读取一个数据是由于你没有利用循环来进行读取呀,呵呵,多想想。
回复 不支持

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Simapps系列直播

Archiver|小黑屋|联系我们|仿真互动网 ( 京ICP备15048925号-7 )

GMT+8, 2024-11-1 11:28 , Processed in 0.038852 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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