% Hermite Spline Demo.
X = [0 1 2];
Y = [0 1 0];
S = [2 0 -1];
t1 = linspace(-0.2,1);
a1 = [-1 2 0];
p1 = polyval(a1,t1);
t2 = linspace(1,2.2);
a2 = [1 -5 7 -2];
p2 = polyval(a2,t2);
plot(t1,p1,t2,p2,X,Y,'o'), grid
pause
t = linspace(-0.2,2.2);
b = pwch(X,Y,S);
p = ppval(b,t);
plot(t,p,t1,p1,t2,p2,X,Y,'o'), grid