% Datei mittelwerte2.m
function [out1,out2] = mittelwerte2 (x,schalter)

error(nargchk(1,2,nargin))

if nargin == 1 ,
    out1 = mean(x) ;                    % Arithmetisches Mittel
    out2 = prod(x).^(1/length(x)) ;     % Geometrisches Mittel
elseif nargin == 2 ,
    if schalter == 'g' , 
        out1 = prod(x).^(1/length(x)) ;
    else
        out1 = mean(x) ;
    end      
    out2 = [] ;
end
