function tmouse2(action)

A=imread('e:\a.jpg');

imshow(A);

global Xall Yall N??InitialX InitialY FigHandle

% TMOUSE 本例展示如何以Handle Graphics來(lái)設(shè)定滑鼠事件(Mouse

% Events)的反應(yīng)指令(Callbacks)

if nargin == 0, action = 'start'; end

switch(action)

% 開(kāi)啟圖形視窗

case 'start',

% 設(shè)定滑鼠按鈕被按下時(shí)的反應(yīng)指令為「tmouse down」

set(gcf, 'WindowButtonDownFcn', 'MouseDraw down');

FigHandle = figure('WindowButtonDownFcn','MouseDraw down');

% 滑鼠按鈕被按下時(shí)的反應(yīng)指令

case 'down',

if strcmp(get(FigHandle, 'SelectionType'), 'normal')

set(FigHandle,'pointer','hand');

CurPiont = get(gca, 'CurrentPoint');

InitialX = CurPiont(1,1);

InitialY = CurPiont(1,2);

% 設(shè)定滑鼠移動(dòng)時(shí)的反應(yīng)指令為「tmouse move」

set(gcf, 'WindowButtonMotionFcn', 'MouseDraw move');

% 設(shè)定滑鼠按鈕被釋放時(shí)的反應(yīng)指令為「tmouse up」

set(gcf, 'WindowButtonUpFcn', 'MouseDraw up');

elseif strcmp(get(FigHandle, 'SelectionType'), 'alt')

set(FigHandle, 'Pointer', 'arrow');

set( FigHandle, 'WindowButtonMotionFcn', '')

set(FigHandle, 'WindowButtonUpFcn', '')

fprintf('MouseDraw right button down!\n');

axes(FigHandle.Children),cla;%刪除坐標(biāo)圖像

end

% 滑鼠移動(dòng)時(shí)的反應(yīng)指令

case 'move',

currPt = get(gca, 'CurrentPoint');

%? ?? ?? ? X = currPt(1,1);

%? ?? ?? ?Y = currPt(1,2);

Xall = evalin('base','Xall');

Yall = evalin('base','Yall');

Xall=[Xall;currPt(1,1)];

Yall=[Yall;currPt(1,2)];

assignin('base','Xall',Xall);

assignin('base','Yall',Yall);

x_gap = 0.1;? ? % 定義x方向增量

y_gap = 0.1;? ? % 定義y方向增量

if currPt(1,1) > InitialX

step_x = x_gap;

else

step_x = -x_gap;

end

if currPt(1,2)> InitialY

step_y = y_gap;

else

step_y = -y_gap;

end

% 定義x,y的變化范圍和步長(zhǎng)

if abs(currPt(1,1)-InitialX) < 0.01? ?? ???% 線平行于y軸，即斜率不存在時(shí)

iy = InitialY:step_y:currPt(1,2);

ix = currPt(1,1).*ones(1,size(iy,2));

else

ix = InitialX:step_x:currPt(1,1) ;? ? % 定義x的變化范圍和步長(zhǎng)

% 當(dāng)斜率存在，即k = (Y-InitialY)/(X-InitialX) ~= 0

iy = (currPt(1,2)-InitialY)/(currPt(1,1)-InitialX).*(ix-InitialX)+InitialY;

end

ImageX = [ix, currPt(1,1)];

ImageY = cat(2, iy, currPt(1,2));

line(ImageX,ImageY, 'marker', '.', 'markerSize',0.5, ...

'LineStyle', '-', 'LineWidth', 0.5, 'Color', 'Red');

%fprintf('Current location = (%g, %g)\n', currPt(1,1), currPt(1,2));

InitialX = currPt(1,1);? ?? ? %記住當(dāng)前點(diǎn)坐標(biāo)

InitialY = currPt(1,2);? ?? ? %記住當(dāng)前點(diǎn)坐標(biāo)

N=length(Xall);

% 滑鼠按鈕被釋放時(shí)的反應(yīng)指令

case 'up',

% 清除滑鼠移動(dòng)時(shí)的反應(yīng)指令

set(gcf, 'WindowButtonMotionFcn', '');

% 清除滑鼠按鈕被釋放時(shí)的反應(yīng)指令

set(gcf, 'WindowButtonUpFcn', '');

fprintf('N=%d\n',N);

end

總結(jié)

以上是生活随笔為你收集整理的matlab输入数组出曲线,用鼠标画出曲线，并将曲线所经过的点保存到数组中的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。