%?BP?神經(jīng)網(wǎng)絡(luò)用于模式分類
%?使用平臺(tái)?-?Matlab6.5
%?作者：陸振波，海軍工程大學(xué)
%?歡迎同行來(lái)信交流與合作，更多文章與程序下載請(qǐng)?jiān)L問我的個(gè)人主頁(yè)
%?電子郵件：luzhenbo@sina.com
%?個(gè)人主頁(yè)：luzhenbo.88uu.com.cn

clc
clear
close?all

%---------------------------------------------------
%?產(chǎn)生訓(xùn)練樣本與測(cè)試樣本，每一列為一個(gè)樣本

n1?=?[rand（35）rand（35）+1rand（35）+2];
x1?=?[repmat（[1;0;0]15）repmat（[0;1;0]15）repmat（[0;0;1]15）];

n2?=?[rand（35）rand（35）+1rand（35）+2];
x2?=?[repmat（[1;0;0]15）repmat（[0;1;0]15）repmat（[0;0;1]15）]

xn_train?=?n1;??????????%?訓(xùn)練樣本
dn_train?=?x1;??????????%?訓(xùn)練目標(biāo)

xn_test?=?n2;???????????%?測(cè)試樣本
dn_test?=?x2;???????????%?測(cè)試目標(biāo)

%---------------------------------------------------
%?函數(shù)接口賦值

NodeNum?=?20;???????????%?隱層節(jié)點(diǎn)數(shù)?
TypeNum?=?3;????????????%?輸出維數(shù)
p1?=?xn_train;??????????%?訓(xùn)練輸入
t1?=?dn_train;??????????%?訓(xùn)練輸出
Epochs?=?1000;??????????%?訓(xùn)練次數(shù)

P?=?xn_test;????????????%?測(cè)試輸入?
T?=?dn_test;????????????%?測(cè)試輸出（真實(shí)值）

%---------------------------------------------------
%?設(shè)置網(wǎng)絡(luò)參數(shù)

%TF1?=?‘tansig‘;TF2?=?‘purelin‘;?%?缺省值
%TF1?=?‘tansig‘;TF2?=?‘logsig‘;
TF1?=?‘logsig‘;TF2?=?‘purelin‘;
%TF1?=?‘tansig‘;TF2?=?‘tansig‘;
%TF1?=?‘logsig‘;TF2?=?‘logsig‘;
%TF1?=?‘purelin‘;TF2?=?‘purelin‘;

net?=?newff（minmax（p1）[NodeNum?TypeNum]{TF1?TF2}‘trainlm‘）;

%?指定訓(xùn)練參數(shù)
%net.trainFcn?=?‘trainlm‘;??%?內(nèi)存使用最多（快）
%net.trainFcn?=?‘trainbfg‘;
%net.trainFcn?=?‘trainrp‘;??%?內(nèi)存使用最少（慢）
%net.trainFcn?=?‘traingda‘;?%?變學(xué)習(xí)率
%net.trainFcn?=?‘traingdx‘;

net.trainParam.epochs?=?Epochs;?????%?最大訓(xùn)練次數(shù)
net.trainParam.goal?=?1e-8;?????????%?最小均方誤差
net.trainParam.min_grad?=?1e-20;????%?最小梯度
net.trainParam.show?=?200;??????????%?訓(xùn)練顯示間隔
net.trainParam.time?=?inf;??????????%?最大訓(xùn)練時(shí)間

%---------------------------------------------------
%?訓(xùn)練與測(cè)試

net?=?train（netp1t1）;?????????????%?訓(xùn)練
X?=?sim（netP）;?????????????????????%?測(cè)試?-?輸出為預(yù)測(cè)值
X?=?full（compet（X））?????????????????%?競(jìng)爭(zhēng)輸出

%---------------------------------------------------
%?結(jié)果統(tǒng)計(jì)

Result?=?~sum（abs（X-x2））???????????????%?正確分類顯示為1
Percent?=?sum（Result）/length（Result）???%?正確分類率

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

????..AD...?????????0??2011-12-11?20:27??NeuralNetwork_BP

?????文件???????2280??2006-03-22?10:13??NeuralNetwork_BP\NeuralNetwork_BP_Classification.m

?????文件???????2065??2006-03-22?10:14??NeuralNetwork_BP\NeuralNetwork_BP_Regression.m

?????文件????????384??2006-03-24?17:47??NeuralNetwork_BP\文件夾說明.txt

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

?????????????????4729????????????????????4