Questo sito contribuisce alla audience di

Media geometrica in Fortran

Un programma in Fortran 90 per la valutazione della media geometrica

fortran 90,programmi fortran,codice sorgente fortran,compilatore fortran

La media geometrica (semplice) è l’N-esima radice del prodotto di tutti gli N valori. La media geometrica viene usata soprattutto quando i diversi valori vengono per loro natura moltiplicati tra di loro e non sommati. Esempio tipico sono i tassi di crescita (anche i tassi d’interesse o i tassi d’inflazione), adeguatamente modificati. In questi casi è più corretto usare questo tipo di media al posto di quella aritmetica, perché ha caratteristiche utili in quelle situazioni.

PROGRAM media
IMPLICIT NONE

REAL :: X = 1.0, Y = 2.0, Z = 3.0
REAL :: GeoMean

WRITE(*,*) ‘Data items: ‘, X, Y, Z
WRITE(*,*)

GeoMean = (X * Y * Z)**(1.0/3.0)

WRITE(*,*) ‘Geometric mean = ‘, GeoMean

END PROGRAM media