一个用鼠标选点、绘图的函数

aniso

% example
% t=1:4;a=t;
% plplot(t,a);

function pkplot=pkplot(t,a)
axis([t(1) t(end) min(a) max(a)]);
hold on
% Initially, the list of points is empty.
xy = [];
n = 0;
% Loop, picking up the points.
disp('Left mous e button picks points.')
disp('Right mouse button picks last point.')
but = 1;
while but == 1
    [xi,yi,but] = ginput(1);
    plot(xi,yi,'ro')
    n = n+1;
    xy(:,n) = [xi;yi];
end
% Interpolate with a spline curve and finer spacing.
t = 1:n;
ts = 1: 0.1: n;
xys = spline(t,xy,ts);
xys
% Plot the interpolated curve.
plot(xys(1,:),xys(2,:),'b-');
hold off

[ 本帖最后由 eight 于 2007-11-28 10:09 编辑 ]

eight

原帖由 aniso 于 2007-11-28 01:06 发表

                               
登录/注册后可看大图

% example
% t=1:4;a=t;
% plplot(t,a);

function pkplot=pkplot(t,a)
axis([t(1) t(end) min(a) max(a)]);
hold on
% Initially, the list of points is empty.
xy = [];
n = 0;
% Loop, picking u ...

这个貌似 help ginput 就有