bpn.rar_bpn matlab程序_matlab bpn程序_matlab 字母识别_matlab 识别_字母识别

clear all; close all; clc; disp('按任意键进行网络训练...'); pause; currPath = fileparts(mfilename('fullpath'));%获取当前路径 trainPath=strcat(currPath,'\训练图片\');%获取训练图片路径 trainpic=strcat(trainPath,'*.bmp'); T=eye(26,26);%目标输出 traindata=readpic(trainpic,trainPath);%读取图片 traindata=im2bw(traindata,0.8); S1 = 50;% 隐层神经元数目S1 选为50 [R,Q] = size(traindata); [S2,Q] = size(T); F = traindata; P=double(F); net=newff(minmax(P),[S1 S2],{'logsig','logsig'},'traingda','learngdm'); %设置训练参数 net.performFcn = 'sse'; %平方和误差性能函数 net.trainParam.goal = 0.1; %平方和误差目标 net.trainParam.show = 20; %进程显示频率 net.trainParam.epochs = 5000;%最大训练步数 net.trainParam.mc = 0.9; %动量常数网络训练 net.trainParam.lr=0.001;%设置学习率 net=init(net);%初始化网络 [net,tr] = train(net,P,T);%网络训练 D=sim(net,P);%测试网络输出 %clc; disp('训练结束！按任意键继续...'); pause; testPath=strcat(currPath,'\测试图片\'); num=input('请输入需要测试的样本的数目：'); for ii=1:num testfile=input('请输入被测试图片的名字(带扩展名),例如：numA.bmp numAA.bmp:','s'); testPath=strcat(currPath,'\测试图片\');%获取测试图片路径 testpic=strcat(testPath,testfile);%获取测试图片的完整路径 testdata=imread(testpic);%读取图片到testdata矩阵中 testdata=dim2todim1(testdata);%把图像矩阵转化成向量形式 testdata=im2bw(testdata,0.8);%转化成二值图像 testdata=double(testdata);%转化成double型 Q=sim(net,testdata);%测试网络输出 [Y,I]=max(Q);%找出输出向量中最大值的索引值 switch I case 1 disp('测试结果：字母‘A’!') case 2 disp('测试结果：字母‘B’!') case 3 disp('测试结果：字母‘C’!') case 4 disp('测试结果：字母‘D’!') case 5 disp('测试结果：字母‘E’!') case 6 disp('测试结果：字母‘F’!') case 7 disp('测试结果：字母‘G’!') case 8 disp('测试结果：字母‘H’!') case 9 disp('测试结果：字母‘I’!') case 10 disp('测试结果：字母‘J’!') case 11 disp('测试结果：字母‘K’!') case 12 disp('测试结果：字母‘L’!') case 13 disp('测试结果：字母‘M’!') case 14 disp('测试结果：字母‘N’!') case 15 disp('测试结果：字母‘O’!') case 16 disp('测试结果：字母‘P’!') case 17 disp('测试结果：字母‘Q’!') case 18 disp('测试结果：字母‘R’!') case 19 disp('测试结果：字母‘S’!') case 20 disp('测试结果：字母‘T’!') case 21 disp('测试结果：字母‘U’!') case 22 disp('测试结果：字母‘V’!') case 23 disp('测试结果：字母‘W’!') case 24 disp('测试结果：字母‘X’!') case 25 disp('测试结果：字母‘Y’!') case 26 disp('测试结果：字母‘Z’!') end disp('按任意键继续...'); pause; clc; end % clear; disp('本次测试已完成，谢谢！如果您还想继续测试的话请在命令窗口输入“bpnpic”');