% Testroutine zum Programm 
% DeBoor, Blatt 7
%
% Das Programm soll die Bilder im Skript, Seite 72, erzeugen.
% Dazu kann der Wert der Ordnung n entsprechend geandert werden.

% Ordnung
n = 4;

% Datenpunkte generieren
N = 14-n;
T = [zeros(1,n) 1:N-1 zeros(1,n)+N];
P = [0 0.29 0.32 0.10 0.24 0.65 0.48 0.69 0.88 0.92 0.75 0.66 0.9954];
P = [P; 0 0.22 0.41 0.48 0.79 0.84 0.65 0.57 0.80 0.12 0.30 0.14 0];
P = P';
S = linspace(0,N*(1-eps),200);

% Aufruf des Programms
F = DeBoor(P,T,S);

% Figur aufbauen
clf reset
plot(P(:,1),P(:,2))
hold on
plot(P(:,1),P(:,2),'.','MarkerSize',20)
plot(F(:,1),F(:,2),'r')
title(['Ordnung n = ' num2str(n)])
axis square