24小时热门版块排行榜    

查看: 1357  |  回复: 1

c-network

新虫 (初入文坛)

[求助] 求助:分段求平均值

一个数组包含20个元素
Data(a(i),i=1,20)/1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0,10.0,11.0,12.0,13.0,14.0,15.0,16.0,17.0,18.0,19.0,20.0/
现在我想将这20个元素分成N段,然后求每一段的平均值,怎么计算?
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhg19

金虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与,应助指数 +1
c-network: 金币+5, ★★★★★最佳答案 2013-07-21 11:21:49
program ave
implicit none
integer,parameter ::n=5
integer i,j
real t
real a(20),b(n)
data a /1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0,10.0,11.0,12.0,13.0,14.0,15.0,16.0,17.0,18.0,19.0,20.0/
t=20/float(n)
do i=1,n
    b(i)=0.d0
    do j=(i-1)*t+1,i*t
        b(i)=b(i)+a(j)/t
    enddo
enddo
write(*,*)(b(i),i=1,n)
end
其中a(20)分为n等份,第i份平均值为b(i)

[ 发自手机版 http://muchong.com/3g ]
2楼2013-07-20 15:24:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 c-network 的主题更新
信息提示
请填处理意见