Re: [問題] 發問移動平均的問題

[laa7352 (Laa)]

※ 引述《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