% SNOOPY Plot the upper side of the noble beast.

x1 = [   1   2   5   6   7   8  10  13  17];
y1 = [ 3.0 3.7 3.9 4.2 5.7 6.6 7.1 6.7 4.5];
x2 = [  17  20  23  24  25  27 27.7];
y2 = [ 4.5 7.0 6.1 5.6 5.8 5.2  4.1];
x3 = [27.7  28  29  30];
y3 = [ 4.1 4.3 4.1 3.0];

xx1 = 1:.01:17;    % dense points for plotting
xx2 = 17:.01:27.7; % ditto
xx3 = 27.7:.01:30; % ditto

subplot(411)  % make plot aspect ratio close to original
set(0,'defaultlinelinewidth',1.5,'defaultlinemarkersize',4)
plot(xx1, ncspline(x1,y1,xx1), 'b', x1, y1, 'bo', ...
     xx2, ncspline(x2,y2,xx2), 'g', x2, y2, 'go', ...
     xx3, ncspline(x3,y3,xx3), 'r', x3, y3, 'ro' )
title('noble beast'),  grid on,  xlabel x,  ylabel('f(x)')
