function [arithm,geom] = mittelwerte (x)
%MITTELWERTE (X) Berechnungen verschiedener Mittelwert
%   MITTELWERTE (X) berechnet das arithmetische Mittel 
%   des Vektors X.
%
%   [A,G] = MITTELWERTE (X) berechnet das arithmetische 
%   Mittel A und das geometrische Mittel G des Vektors X.

% Autor:     Michael Beuschel, 16.06.00
% Erweitert: Ulrich Wohlfarth, 21.01.02

arithm = mean(x);                     % Arithmetisches Mittel
geom   = prod(x).^(1/length(x));      % Geometrisches Mittel
