作者laa7352 (Laa)
看板Fortran
标题Re: [问题] 发问移动平均的问题
时间Mon Jan 25 18:02:45 2010
※ 引述《wtapin (大饼先生)》之铭言：
: 如题 我想写一个1~5的移动平均
: 他发生的情形有2个一组或3个一组4个一组或5个一组
: 如:12 23 34 45 分别平均
: 123 234 345 分别平均
: 1234 2345 分别平均
: 12345 分别平均
: 有大大可以指导一下吗??
: 原谅小弟的无知....
program test96
implicit none
integer i,j,k,imin,imax,ivar,isum
parameter (imin=1,imax=5)
dimension ivar(imax)
do i=1,imax
ivar(i)=i
enddo
do i=imin+1,imax
print*, 'number :',i
do j=imin,imax
if(i+j-1 .LE. imax)then
print'(A11,I2,A1,I2)', ' process :',i-1,'-',j
isum=0
do k=j,j+i-1
isum=ivar(k)+isum
c print'(I2)', k
enddo
print*, ' sum=',isum
endif
enddo
enddo
stop
end
--
应该是这样~~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.137.32.160