shili14.m

来自「自己手敲并验证的matlab 6.0实例的代码 及运行程序所得的图像结果。此部分」· M 代码 · 共 32 行

function shili14
h0=figure('toolbar','none',...
    'position',[200 200 500 500],...
    'name','shili14');
axis([0 10 0 10]);
%建立空的坐标轴
hold on
x=[];
y=[];
n=0;
%初始化数据
disp('单击鼠标左键点取需要的点');
%调用DISP（）函数；
disp('单击鼠标右键取最后一个点');
but=1;
while but==1
    [xi,yi,but]=ginput(1);
    plot(xi,yi,'bo')
    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,'r-');
%调用SPLINE()函数将数据点连接起来
hold off