Calcul medie armonică

Media armonică se calculează după formula:

Subprogramul va returna valoarea corectă dacă și numai dacă toate valorile sirului Xi, i=1,2,3..., n sunt diferite de zero și variabila IK este 1. În cazul în care există doar o singură valoare nulă, variabila IK este 2 și valoarea returnată a mediei este prin convenție -1. Textul FORTRAN IV al subprogramului este:

         SUBROUTINE MEDARMON (X,N,XMEDARM, IK)

         DO 10 I=1,N

         IF(X(I).EQ.0)GO TO 20

         SUMX=0.
         DO 10 I=1,N

10     SUMX=SUMX+1./X(I)

         IK=1

         XMEDARM=N/SUMX

         GO TO 30

20     IK=2

         XMEDP=-1.

30     RETURN

         END

Calcul medie armonică este cu un subprogram fiabil dacă sunt testate valorile șirului X pentru a evita împărțiri prin zero.

(23 decembrie 2017)