万州做网站,2022年企业所得税最新标准,做贷款在那些网站找客户,实业公司注册条件类型#xff1a;编程工具大小#xff1a;1.5M语言#xff1a;中文 评分#xff1a;1.2标签#xff1a;立即下载最早的程序#xff0c;实在忘了从哪里下载的了。能够实现鼠标的手写输入#xff0c;但是一些不连续的点。tmouse.mfunction tmouse(action)% TMOUSE 本例展示…类型编程工具大小1.5M语言中文 评分1.2标签立即下载最早的程序实在忘了从哪里下载的了。能够实现鼠标的手写输入但是一些不连续的点。tmouse.mfunction tmouse(action)% TMOUSE 本例展示如何以Handle Graphics来设定滑鼠事件(Mouse% Events)的反应指令(Callbacks)if nargin 0action start;endswitch(action)% 开启图形视窗case start,axis([0 1 0 1]);% 设定图轴范围box on;% 将图轴加上图框title(Click and drag your mouse in this window!);% 设定滑鼠按钮被按下时的反应指令为「tmouse down」set(gcf, WindowButtonDownFcn, tmouse down);% 滑鼠按钮被按下时的反应指令case down,% 设定滑鼠移动时的反应指令为「tmouse move」set(gcf, WindowButtonMotionFcn, tmouse move);% 设定滑鼠按钮被释放时的反应指令为「tmouse up」set(gcf, WindowButtonUpFcn, tmouse up);% 列印「Mouse down!」讯息fprintf(Mouse down!\n);% 滑鼠移动时的反应指令case move,currPt get(gca, CurrentPoint);x currPt(1,1);y currPt(1,2);line(x, y, marker, ., EraseMode, xor);% 列印「Mouse is moving!」讯息及滑鼠现在位置fprintf(Mouse is moving! Current location (%g, %g)\n, currPt(1,1), currPt(1,2));% 滑鼠按钮被释放时的反应指令case up,% 清除滑鼠移动时的反应指令set(gcf, WindowButtonMotionFcn, );% 清除滑鼠按钮被释放时的反应指令set(gcf, WindowButtonUpFcn, );% 列印「Mouse up!」讯息fprintf(Mouse up!\n);endend本人在Matlab 2010a上运行过该程序tmouse.m运行结果截图如下之后有人在此基础上把画点改成了连续的线段。本人觉得程序还有点小问题在此不再转载。下面是本人改进的程序能够实现点击左键输入右键显示输入的记录结果。MouseDraw.mfunction MouseDraw(action)% MouseDraw 本例展示如何以Handle Graphics来设定滑鼠事件% (MouseDraw Events)的反应指令(Callbacks)% 本程序在鼠标移动非常快时不会造成画“断线”% global不能传矩阵global InitialX InitialY FigHandleimSize 200;if nargin 0, action start; endswitch(action)%%开启图形视窗case start,FigHandle figure(WindowButtonDownFcn,MouseDraw down);axis([1 imSize 1 imSize]); % 设定图轴范围% axis off;grid on;box on; % 将图轴加上图框title(手写体输入窗);% % fprintf(start);%%设定滑鼠按钮被按下时的反应指令为「MouseDraw down」% set(gcf, WindowButtonDownFcn, MouseDraw down);dlmwrite(IXT.txt, -10, delimiter, \t, precision, 6);dlmwrite(IYT.txt, -10, delimiter, \t, precision, 6);%%滑鼠按钮被按下时的反应指令case down,if strcmp(get(FigHandle, SelectionType), normal) %如果是左键set(FigHandle,pointer,hand);CurPiont get(gca, CurrentPoint);InitialX CurPiont(1,1);InitialY CurPiont(1,2);dlmwrite(IXT.txt, InitialX, -append, delimiter, \t, precision, 6);dlmwrite(IYT.txt, InitialY, -append, delimiter, \t, precision, 6);% 列印「MouseDraw down!」讯息% % fprintf(MouseDraw down!\n);% 设定滑鼠移动时的反应指令为「MouseDraw move」set(gcf, WindowButtonMotionFcn, MouseDraw move);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);ImageX importdata(IXT.txt);ImageY importdata(IYT.txt);InputImage ones(imSize);roundX round(ImageX);roundY round(ImageY);for k 1:size(ImageX,1)if 0InputImage(roundX(k)-1:roundX(k)2, roundY(k)-1:roundY(k)2) 0;endendInputImage imrotate(InputImage,90); % 图像旋转90figure(2);imshow(InputImage);end%%滑鼠移动时的反应指令case move,CurPiont get(gca, CurrentPoint);X CurPiont(1,1);Y CurPiont(1,2);% 当鼠标移动较快时不会出现离散点。% 利用ykxb直线方程实现。x_gap 0.1; % 定义x方向增量y_gap 0.1; % 定义y方向增量if X InitialXstep_x x_gap;elsestep_x -x_gap;endif Y InitialYstep_y y_gap;elsestep_y -y_gap;end% 定义x,y的变化范围和步长if abs(X-InitialX) 0.01 % 线平行于y轴即斜率不存在时iy InitialY:step_y:Y;ix X.*ones(1,size(iy,2));elseix InitialX:step_x:X ; % 定义x的变化范围和步长% 当斜率存在即k (Y-InitialY)/(X-InitialX) ~ 0iy (Y-InitialY)/(X-InitialX).*(ix-InitialX)InitialY;endImageX [ix, X];ImageY cat(2, iy, Y);line(ImageX,ImageY, marker, ., markerSize,28, ...LineStyle, -, LineWidth, 4, Color, Red);dlmwrite(IXT.txt, ImageX, -append, delimiter, \t, precision, 6);dlmwrite(IYT.txt, ImageY, -append, delimiter, \t, precision, 6);InitialX X; %记住当前点坐标InitialY Y; %记住当前点坐标% 列印「MouseDraw is moving!」及滑鼠现在位置% fprintf(MouseDraw is moving! Current location (%g, %g)\n, ...% CurPiont(1,1), CurPiont(1,2));% % fprintf(MouseDraw move!\n);% 设定滑鼠按钮被释放时的反应指令为「MouseDraw up」% set(gcf, WindowButtonUpFcn, MouseDraw up);%%滑鼠按钮被释放时的反应指令case up,% 清除滑鼠移动时的反应指令set(gcf, WindowButtonMotionFcn, );% 清除滑鼠按钮被释放时的反应指令set(gcf, WindowButtonUpFcn, );% 列印「MouseDraw up!」% % fprintf(MouseDraw up!\n);endend同样MouseDraw.m也在Matlab 2010a上运行过。有不足之处请不吝赐教
