Showing posts with label subrpgram. Show all posts
Showing posts with label subrpgram. Show all posts

Thursday, December 28, 2017

Calcul medie mobilă

Media mobilă este un indicator statistic utilizat în studierea tendinței pe care o manifestă un fenomen în evoluția sa în timp. Fiind dat un șir X1, x2, x3, ..., xn-1, xn, a calcula media mobilă de ordin doi înseamnă a evalua expresii de forma xmi=(xi+xi+1)/2 cu i=1,2,3,...,n-1. A calcula media mobilă de ordin trei înseamnă a evalua expresii de forma xmi=(xi-1+xi+xi+1)/3 cu i=2,3,4,...,n-1. 
Subprogramul care calculează media măbilă de ordin doi este:

             SUBROUTINE MMOB2(X,N,XM,NN)
             DO 10  I=1,N-1
             XM(I)=(X(I)+X(I+1))/2.
10         CONTINUE
             NN=N-1
             RETURN
             END
Subprogramul care calculează media măbilă de ordin treieste:

             SUBROUTINE MMOB3(X,N,XM,NN)
             DO 10  I=2,N-1
             XM(I)=(X(I-1)+X(I)+X(I+1))/3.
10         CONTINUE
             NN=N-2
             RETURN
             END
Există posibilitatea de a calcula mediile aritmetice în cascadă, adică medie aritmetică de ordin doi din termenii mediei aritmetice de ordin doi, ca în secvența:
........................
             CALL  MMOB2(X,N,XM,NN)
             CALL  MMOB2(XM,NN,XMM,NNN)
........................
XMM=((X(I)+2*X(I+1)+X(I+2))/4. și trendul evoluției unei serii dinamice se vede și mai bine.


(28 decembrie 2017)