% Testroutine zum Programm 
% BezPlot, Blatt 4

% Datenpunkte generieren
P = [-5:5;abs(-5:5)]';
P(end,:) = [4 0];


% Figur vorbereiten
clf reset
axis([-5.2 4.2 -.2 5.2])
hold on

% Aufruf des Programms
plot(P(:,1),P(:,2),'r')
plot(P(:,1),P(:,2),'r.','MarkerSize',20)
BezPlot(P,0.002);