example_ginput.m

来自「基础程序」· M 代码 · 共 25 行

% example_ginput.m
% 鼠标左键选择数据点，鼠标右键完成选择
% 定义绘图区域属性
axis([0 15 0 15]);
grid on;
hold on;
title('draw spline by picked points');
xy=[];
n=0;
disp('提示：鼠标左键选择点，鼠标右键结束选择');
but=1;
% 开始选择点
while but==1
    % 用鼠标选择一个点
    [xi,yi,but]=ginput(1);
    plot(xi,yi,'bp');
    n=n+1;
    xy(:,n)=[xi;yi];
end
t=1:n;
ts=1:0.1:n;
% 绘制样条曲线
xys=spline(t,xy,ts);
plot(xys(1,:),xys(2,:),'r-','linewidth',2);
hold off;