[求助]看看我的程序

[huanghuan]

画出两个周期的正弦曲线，当鼠标在图轴内单击时，你的程序能找出曲线上离这点最近的数据点，并在该点显示一个黑点，同时命令窗里显示这个数据点的值和两点的距离。

我的程序如下：

a=0:0.1:4*pi;
m=sin(a);
plot(a,m);
hold on
% 初始化，此时点列表为空
x =[];
y =[];
n = 0;
% 循环，用鼠标点击，确定列表中的点loop picking up these pionts
disp('单击鼠标左健点取需要的点')
disp('单击鼠标右键确定最后一个点')
but = 1;
while but ==1
[xi,yi,but] = ginput(1)
plot(xi,yi,'go')
n = n+1;
disp('单击鼠标键确定下一个点')
x(n,1) = xi
y(n,1) = yi
end
t = 1:n;
ts = 1: 0.1: n;
xs = spline(t,x,ts);
ys = spline(t,y,ts);
plot(xs,ys,'c-');
hold off;
我不知该怎么写了，请指教。