% ___ Compute :   Barwert   von    Cash-Flows ____  mit  Grafik
% __________________________________________________

clear all; close all; clf ;

CF = [-10000 2000 -1500  3000  3800  5000];                      % > Cashflow
time = 1:1: 6;                                                                          % > Perioden

DimB = 0.05;                     %  >>   Cylinder
High = 4;

[x y] = meshgrid(0: DimB*pi : 2*pi,   0: 0.5: High );
mesh(cos(x),sin(x), y );

pause(1)
% >> eventuell  mit " repmat " Multi - Cylinder erzeugen

for k = 1: length(time)
    [x y] = meshgrid(0: DimB*pi*k : 2*(k)*pi,   0: 0.5: High );
   Hs(k) = mesh(cos(x),sin(x), y );
hold on
end