Guide

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