clear
clc
%基于BP的手寫(xiě)數(shù)字識(shí)別程序

load?mnist_uint8;
%對(duì)mnist數(shù)據(jù)集進(jìn)行歸一化處理，并對(duì)數(shù)據(jù)進(jìn)行轉(zhuǎn)化為可用的double型
train_x?=?double（train_x（1:20000:）‘）?/?255;
test_x??=?double（test_x（1:10000:）‘）??/?255;
train_y?=?double（train_y（1:20000:）‘）;
test_y??=?double（test_y（1:10000:）‘）;
?
net=newff（minmax（test_x）[13?10]{‘tansig‘‘purelin‘}‘traingdx‘）;%創(chuàng)建一個(gè)BP神經(jīng)網(wǎng)絡(luò)
net?=?init（net）;%對(duì)網(wǎng)絡(luò)進(jìn)行初始化
net.trainparam.show=50;%顯示訓(xùn)練迭代過(guò)程
net.trainparam.epochs=300;%定義訓(xùn)練步數(shù)
net.trainparam.goal=0.008;%設(shè)置性能參數(shù)
net.trainparam.lr=0.008;
net=train（nettrain_xtrain_y）;%訓(xùn)練網(wǎng)絡(luò)
y=sim（nettest_x）;
[~?h]?=?max（y）;
[~?a]?=?max（test_y）;
bad?=?find（h?~=?a）;
s2=size（test_y?2）;
hitnum=s2-numel（bad）;
er?=?numel（bad）?/?size（test_y?2）;
sprintf（‘錯(cuò)誤率是?%3.3f%%\n‘100?*?er?）
sprintf（‘識(shí)別正確的個(gè)數(shù)是?%d%\n‘?hitnum?）
sprintf（‘輸入的總個(gè)數(shù)是?%d%\n‘?s2?）

%經(jīng)過(guò)調(diào)參，反復(fù)試驗(yàn)，最后的到最小的誤識(shí)率是8.040%
%各參數(shù)為，[13?10]{‘tansig‘‘purelin‘}epoch=2000goal=0.008
%lr=0.008train[1:20000:]t=29:16er=8.040

?屬性????????????大小?????日期????時(shí)間???名稱(chēng)
-----------?---------??----------?-----??----

?????文件???????1056??2016-12-23?10:57??BP\Bbpwsl1.m

?????文件???14735220??2016-08-14?11:27??BP\mnist_uint8.mat

?????目錄??????????0??2016-12-23?10:59??BP

-----------?---------??----------?-----??----

?????????????14736276????????????????????3