function [P] = aufg18(X)
% function [P] = aufg18(X) 
% 
% Diese Funktion berechnet und speichert spaltenweise die 
% kumulativen Produkte der Elemente einer Matrix X.

P = [];
if isempty(X)
    return;
end

if ((size(X,1) == 1) & (size(X,2) > 1))
    error('Geben Sie bitte nur Spaltenvektoren ein !!');
    return;
end
    
P = ones(size(X));
for i=1:size(X,2)
    P(1,i) = X(1,i);
    for j=2:size(X,1)
        P(j,i) = P(j-1,i)*X(j,i);
    end
end
