%%?清空環(huán)境變量
clc
clear

tic
%%?訓(xùn)練數(shù)據(jù)預(yù)測數(shù)據(jù)提取及歸一化
%下載輸入輸出數(shù)據(jù)
load?data?input?output

%從1到2000間隨機排序
k=rand（14000）;
[mn]=sort（k）;

%找出訓(xùn)練數(shù)據(jù)和預(yù)測數(shù)據(jù)
input_train=input（n（1:3900）:）‘;
output_train=output（n（1:3900）:）‘;
input_test=input（n（3901:4000）:）‘;
output_test=output（n（3901:4000）:）‘;

%選連樣本輸入輸出數(shù)據(jù)歸一化
[inputninputps]=mapminmax（input_train）;
[outputnoutputps]=mapminmax（output_train）;

%%?BP網(wǎng)絡(luò)訓(xùn)練
%?%初始化網(wǎng)絡(luò)結(jié)構(gòu)
net=newff（inputnoutputn5）;

net.trainParam.epochs=100;
net.trainParam.lr=0.1;
net.trainParam.goal=0.0000004;

%網(wǎng)絡(luò)訓(xùn)練
net=train（netinputnoutputn）;

%%?BP網(wǎng)絡(luò)預(yù)測
%預(yù)測數(shù)據(jù)歸一化
inputn_test=mapminmax（‘a(chǎn)pply‘input_testinputps）;
?
%網(wǎng)絡(luò)預(yù)測輸出
an=sim（netinputn_test）;
?
%網(wǎng)絡(luò)輸出反歸一化
BPoutput=mapminmax（‘reverse‘a(chǎn)noutputps）;

%%?結(jié)果分析

figure（1）
plot（BPoutput‘:og‘）
hold?on
plot（output_test‘-*‘）;
legend（‘預(yù)測輸出‘‘期望輸出‘‘fontsize‘12）
title（‘BP網(wǎng)絡(luò)預(yù)測輸出‘‘fontsize‘12）
xlabel（‘樣本‘‘fontsize‘12）
ylabel（‘輸出‘‘fontsize‘12）
print?-dtiff?-r600?4-3
%預(yù)測誤差
error=BPoutput-output_test;

figure（2）
plot（error‘-*‘）
title（‘神經(jīng)網(wǎng)絡(luò)預(yù)測誤差‘）

figure（3）
plot（（output_test-BPoutput）./BPoutput‘-*‘）;
title（‘神經(jīng)網(wǎng)絡(luò)預(yù)測誤差百分比‘）

errorsum=sum（abs（error））

toc

save?data?net?inputps?outputps

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????1291??2009-12-19?09:05??案例4?神經(jīng)網(wǎng)絡(luò)遺傳算法函數(shù)極值尋優(yōu)-非線性函數(shù)極值\BP.m

?????文件????????420??2009-08-16?22:48??案例4?神經(jīng)網(wǎng)絡(luò)遺傳算法函數(shù)極值尋優(yōu)-非線性函數(shù)極值\Code.m

?????文件???????1556??2009-08-16?22:59??案例4?神經(jīng)網(wǎng)絡(luò)遺傳算法函數(shù)極值尋優(yōu)-非線性函數(shù)極值\Cross.m

?????文件????????134??2009-09-11?15:31??案例4?神經(jīng)網(wǎng)絡(luò)遺傳算法函數(shù)極值尋優(yōu)-非線性函數(shù)極值\data.m

?????文件??????94683??2009-12-19?16:59??案例4?神經(jīng)網(wǎng)絡(luò)遺傳算法函數(shù)極值尋優(yōu)-非線性函數(shù)極值\data.mat

?????文件????????326??2009-09-15?09:36??案例4?神經(jīng)網(wǎng)絡(luò)遺傳算法函數(shù)極值尋優(yōu)-非線性函數(shù)極值\fun.m

?????文件???????2694??2010-01-30?20:24??案例4?神經(jīng)網(wǎng)絡(luò)遺傳算法函數(shù)極值尋優(yōu)-非線性函數(shù)極值\Genetic.m

?????文件???????1545??2009-08-16?23:05??案例4?神經(jīng)網(wǎng)絡(luò)遺傳算法函數(shù)極值尋優(yōu)-非線性函數(shù)極值\Mutation.m

?????文件????????535??2009-09-11?15:36??案例4?神經(jīng)網(wǎng)絡(luò)遺傳算法函數(shù)極值尋優(yōu)-非線性函數(shù)極值\net.mat

?????文件????????823??2009-09-11?21:24??案例4?神經(jīng)網(wǎng)絡(luò)遺傳算法函數(shù)極值尋優(yōu)-非線性函數(shù)極值\Select.m

?????文件????????278??2009-12-26?21:25??案例4?神經(jīng)網(wǎng)絡(luò)遺傳算法函數(shù)極值尋優(yōu)-非線性函數(shù)極值\test.asv

?????文件????????278??2009-12-26?21:26??案例4?神經(jīng)網(wǎng)絡(luò)遺傳算法函數(shù)極值尋優(yōu)-非線性函數(shù)極值\test.m

?????目錄??????????0??2018-08-07?18:28??案例4?神經(jīng)網(wǎng)絡(luò)遺傳算法函數(shù)極值尋優(yōu)-非線性函數(shù)極值

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

???????????????104563????????????????????13