clc; clear; close all;
x=[4 0 2 6 7 12 15 8 4 0 2];
y=[-2 0 4 4 6 7  1 -1 -2 0 4];

%plot(x,y);
t=3:0.1:11;
% xt=interp1([0:8],x,t);
% yt=interp1([0:8],y,t);
xt=spline([1:11],x,t);
yt=spline([1:11],y,t);
comet(xt,yt);