gmean Interface

public interface gmean

Calculates the geometric mean of a set of values given in a vector of any size with one dimension applying the following equation:

$$\overline{x} = \left(\prod\limits_{i=1}^{n}x_{i}\right)^\frac{1}{n} = \sqrt[n]{x_{1} \times x_{2} \times \dots \times x_{n}}$$

Where:

• $x$ is a vector with real numbers.
• $n$ is how many numbers are included in $x$.

Syntax

y = gmean(x)

Where:

• x = vector of rank 1 with real numbers. See this example to use an array of rank larger than 1.
• y = real number of the same kind as x with the geometric mean of x.

Example

The following program calculates the geometric mean value of a vector:

 PROGRAM gmeanExample
    USE FU_Statistics, ONLY: gmean
    IMPLICIT NONE
    REAL, DIMENSION(5) :: x = [1., 2., 3., 4., 5.]
    WRITE(*,*) gmean(x)
 END PROGRAM gmeanExample

Module Procedures