好的，我从图像处理工具箱中搜索了有关 ImPoint 选项的更多信息，并编写了这个脚本 .

由于 ImPoint 仅适用于2D设置(我想将其概括为3D以便能够使用曲面而不是曲线)，这不是一个真正可接受的答案！但是有人可能从中受益，或者想知道如何在3D中做到这一点 .

% -------------------------------------------------

% This file needs the Image Processing Toolbox!

% -------------------------------------------------

function Interact(Pos)

% This part is executed when you run it for the first time.

% In that case, the number of input arguments (nargin) == 0.

if nargin == 0

close all;

clear all;

clc;

figure();

hold on;

axis([0 7 0 5])

% I do not know how to do this without global variables?

global P0 P1 P2

% GCA = Get handle for Current Axis

P0 = ImPoint(gca,1,1);

setString(P0,'P0');

P1 = ImPoint(gca,2,4);

setString(P1,'P1');

P2 = ImPoint(gca,6,2);

setString(P2,'P2');

% Call subfunction

DrawLagrange(P0,P1,P2)

% Add callback to each point

addNewPositionCallback(P0,@Interact);

addNewPositionCallback(P1,@Interact);

addNewPositionCallback(P2,@Interact);

else

% If there _is_ some input argument, it has to be the updated

% position of a moved point.

global H1 H2 P0 P1 P2

% Display X and Y coordinates of moved point

Pos

% Important: remove old plots! Otherwise the graph will get messy.

delete(H1)

delete(H2)

DrawLagrange(P0,P1,P2)

end

function DrawLagrange(P0,P1,P2)

P = zeros(3,2);

% Get X and Y coordinates for the 3 points.

P(1,:) = getPosition(P0);

P(2,:) = getPosition(P1);

P(3,:) = getPosition(P2);

global H1 H2

H1 = plot(P(:,1), P(:,2), 'ko--', 'MarkerSize', 12);

t = 0:.1:2;

Lagrange = [.5*t.^2 - 1.5*t + 1; -t.^2 + 2*t; .5*t.^2 - .5*t];

CurveX = P(1,1)*Lagrange(1,:) + P(2,1)*Lagrange(2,:) + P(3,1)*Lagrange(3,:);

CurveY = P(1,2)*Lagrange(1,:) + P(2,2)*Lagrange(2,:) + P(3,2)*Lagrange(3,:);

H2 = plot(CurveX, CurveY);

为清楚起见，我添加了一些评论

[Edit] 在预览中，语法高亮显示效果不佳！我应该定义要在某处突出显示的语言吗？