matlab 画曲线切线,用于绘制曲线切线的Matlab代码

Rody Oldenhu..

6

尝试以下功能.当然,需要进行大量的调整以适用于您的情况,但我认为这是您想要的.

function test

hh = figure(1); clf, hold on

grid on

x = 0:0.01:2*pi;

f = @(x) sin(x);

fprime = @(x) cos(x);

plot(x, f(x), 'r')

axis tight

D = [];

L = [];

set(hh, ...

'WindowButtonMotionFcn', @mouseMove,...

'WindowButtonDownFcn', @mouseClick);

function mouseMove(varargin)

coords = get(gca, 'currentpoint');

xC = coords(1);

if ishandle(D)

delete(D); end

D = plot(xC, f(xC), 'ko');

end

function mouseClick(obj, varargin)

switch get(obj, 'selectiontype')

% actions for left mouse button

case 'normal'

coords = get(gca, 'currentpoint');

xC = coords(1);

yC = f(xC);

a = fprime(xC);

b = yC-a*xC;

if ishandle(L)

delete(L); end

L = line([0; 2*pi], [b; a*2*pi+b]);

case 'alt'

% actions for right mouse button

case 'extend'

% actions for middle mouse button

case 'open'

% actions for double click

otherwise

% actions for some other X-mouse-whatever button

end

end

end