La media armonica è il reciproco della media aritmetica dei reciproci. Particolarmente utile per qualche tipo di variabili come ad esempio per calcolare la velocità media lungo un percorso. È vietato usare valori nulli per ovvi motivi, mentre sono leciti valori negativi. Valori (sia positivi che negativi) vicini allo zero, sono molto più importanti di valori grandi. Infatti se in autostrada percorriamo metà del percorso a 120 km/h, e l’altra metà a 10 km/h, la velocità media complessiva è molto più vicina a 10 che a 120.
PROGRAM media
IMPLICIT NONE
REAL :: X = 1.0, Y = 2.0, Z = 3.0
REAL :: HarmMean
WRITE(*,*) ‘Data items: ‘, X, Y, Z
WRITE(*,*)
HarmMean = 3.0/(1.0/X + 1.0/Y + 1.0/Z)
WRITE(*,*) ‘Harmonic Mean = ‘, HarmMean
END PROGRAM media
Link correlati all’argomento
- Come scaricare gratuitamente il compilatore Fortran
- Gli articoli della guida Fortran