close all
BezierPunkte=[0 2 4 6;
              5 1 5 1];          
KurveHistory=zeros(2,0);   
fig1=figure('Position',[100 100 400 400]);
for t=0:0.005:1
figure(fig1);
plot(BezierPunkte(1,:),BezierPunkte(2,:));
Stufe1BezierPunkte=[BezierPunkte(:,1)*(1-t)+BezierPunkte(:,2)*t BezierPunkte(:,2)*(1-t)+BezierPunkte(:,3)*t BezierPunkte(:,3)*(1-t)+BezierPunkte(:,4)*t];
Stufe2BezierPunkte=[Stufe1BezierPunkte(:,1)*(1-t)+Stufe1BezierPunkte(:,2)*t Stufe1BezierPunkte(:,2)*(1-t)+Stufe1BezierPunkte(:,3)*t];
Stufe3BezierPunkt=Stufe2BezierPunkte(:,1)*(1-t)+Stufe2BezierPunkte(:,2)*t;
KurveHistory(:,end+1)=Stufe3BezierPunkt;
hold on
plot(Stufe1BezierPunkte(1,:),Stufe1BezierPunkte(2,:),'g');
plot(Stufe2BezierPunkte(1,:),Stufe2BezierPunkte(2,:),'y');
plot(KurveHistory(1,:),KurveHistory(2,:),'.');
axis([0 6 0 6]);
hold off
end