基于人工神经网络的MATLAB手写数字识别系统.doc
- 文档编号:236160
- 上传时间:2022-10-07
- 格式:DOC
- 页数:7
- 大小:65.50KB
基于人工神经网络的MATLAB手写数字识别系统.doc
《基于人工神经网络的MATLAB手写数字识别系统.doc》由会员分享,可在线阅读,更多相关《基于人工神经网络的MATLAB手写数字识别系统.doc(7页珍藏版)》请在冰豆网上搜索。
基于人工神经网络的MATLAB手写数字识别系统
一、函数MouseDraw实现手写识别系统GUI界面的建立和鼠标手写的实现。
(使用时保存为MouseDraw.m)
functionMouseDraw(action)
%MouseDraw本例展示如何以HandleGraphics来设定滑鼠事件
%(MouseDrawEvents)的反应指令(Callbacks)
%本程序在鼠标移动非常快时,不会造成画“断线”
%global不能传矩阵
globalInitialXInitialYFigHandlehb2hb3hb4counthb5hb6hb7
count='E:
\im.jpg';
imSize=50;
ifnargin==0,action='start';
end
switch(action)
%%开启图形视窗
case'start',
FigHandle=figure('WindowButtonDownFcn','MouseDrawdown','DeleteFcn','savebpnet');
axis([1imSize1imSize]);%设定图轴范围%
set(gca,'Position',[.25.20.7.7]);
axisoff;
gridoff;
boxon;%将图轴加上图框
title('手写体输入窗');
tryevalin('base','loadbpnet')
catch
evalin('base','bpgdtrain');
end
%%fprintf('start');
%%设定滑鼠按钮被按下时的反应指令为「MouseDrawdown」
%set(gcf,'WindowButtonDownFcn','MouseDrawdown');
hb1=uicontrol('Parent',FigHandle,'Units','Normalized',...
'Position',[.3.01.13.07],'String','保存',...
'Callback',['exa=rgb2gray(frame2im(getframe(gca)));','imwrite(exa,''E:
\im.jpg'')']);
hb2=uicontrol('Parent',FigHandle,'Style','popupmenu','Position',[50505030],...
'String',{'26','24','22','20','18','16','14','12','10'});
hb3=uicontrol('Parent',FigHandle,'Style','text',...
'Position',[10909030],'String',['CurrentX()','CurrentY()']);
hb4=uicontrol('Parent',FigHandle,'Style','popupmenu','Position',[50205030],...
'String',{'Red','Blue','Black','Yellow','Green'});
uicontrol('Parent',FigHandle,'Position',[27067030],'String','训练','Callback',...
['exa=rgb2gray(frame2im(getframe(gca)));','sample=reshape(recgnition(exa),25,1);','clc;',...
't=inputdlg(''数字类别'',''样品训练'');','t=str2num(t{1,1})/10;',...
'bpnet.trainParam.lr=str2num(get(hb6,''String''));','bpnet.trainParam.goal=str2num(get(hb7,''String''));',...
'[bpnet]=train(bpnet,sample,t);','savebpnet']);
uicontrol('Parent',FigHandle,'Position',[36067030],'String','识别','Callback',...
['exa=rgb2gray(frame2im(getframe(gca)));','sample=reshape(recgnition(exa),25,1);',...
'record=round(sim(bpnet,sample)*10);','clc;','set(hb5,''String'',num2str(record),''fontSize'',48);']);
uicontrol('Parent',FigHandle,'Style','text','Position',[10603020],'String','字号');
uicontrol('Parent',FigHandle,'Style','text','Position',[10303020],'String','颜色');
hb5=uicontrol('Parent',FigHandle,'Style','text','Position',[101509090]);
uicontrol('Parent',FigHandle,'Style','text','Position',[52605020],'String','学习速率');
hb6=uicontrol('Parent',FigHandle,'Style','Edit','Position',[602603020],'String','0.01');
uicontrol('Parent',FigHandle,'Style','text','Position',[52905020],'String','训练精度');
hb7=uicontrol('Parent',FigHandle,'Style','Edit','Position',[602903020],'String','0.005');
uicontrol('Parent',FigHandle,'Style','pushbutton','Position',[45067030],'String','清除','Callback','cla');
%将函数变量导入到工作空间;
assignin('base','hb5',hb5);
assignin('base','hb6',hb6);
assignin('base','hb7',hb7);
%%%%%%%%%%%%%%%%%%%%%%%%%%%
dlmwrite('IXT.txt',-10,'delimiter','\t','precision',6);
dlmwrite('IYT.txt',-10,'delimiter','\t','precision',6);%%滑鼠按钮被按下时的反应指令
case'down',
ifstrcmp(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);
%列印「MouseDrawdown!
」讯息
%%fprintf('MouseDrawdown!
\n');
%设定滑鼠移动时的反应指令为「MouseDrawmove」
set(gcf,'WindowButtonMotionFcn','MouseDrawmove');
set(gcf,'WindowButtonUpFcn','MouseDrawup');
elseifstrcmp(get(FigHandle,'SelectionType'),'alt')%如果是右键
set(FigHandle,'Pointer','arrow');
set(FigHandle,'WindowButtonMotionFcn','')
set(FigHandle,'WindowButtonUpFcn','')
fprintf('MouseDrawrightbuttondown!
\n');
ImageX=importdata('IXT.txt');
ImageY=importdata('IYT.txt');
InputImage=ones(imSize);
roundX=round(ImageX);
roundY=round(ImageY);
fork=1:
size(ImageX,1)
if0 InputImage(roundX(k)-1: roundX(k)+2,roundY(k)-1: roundY(k)+2)=0; end end InputImage=imrotate(InputImage,90);%图像旋转90 figure (2); imshow(InputImage); end %%滑鼠移动时的反应指令 case'move', CurPiont=get(gca,'CurrentPoint'); X=CurPiont(1,1); Y=CurPiont(1,2); set(hb3,'String',['CurrentX(',num2str(X),')','CurrentY(',num2str(Y),')']); %当鼠标移动较快时,不会出现离散点。 %利用y=kx+b直线方程实现。 x_gap=0.1; %定义x方向增量 y_gap=0.1; %定义y方向增量
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 基于 人工 神经网络 MATLAB 手写 数字 识别 系统