版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

返回列表

haomeng12

新蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 101.8
散金: 15
帖子: 59
在線: 26.6小時
蟲號: 1346342
注冊: 2011-07-15
性別: MM
專業(yè): 食品加工技術(shù)

[求助] 遺傳算法BP預(yù)測中調(diào)試程序的問題

求助各位高手，下面程序中，數(shù)據(jù)不太清楚，能否有人告知'data.txt'中的數(shù)據(jù)幾行幾列？我自己輸上了45行14列，程序運行后，老是出現(xiàn)“Index exceeds matrix dimensions”
程序如下：
clear all
close all
p=textread('data.txt');
p1=p';
t=p1;
[pn,minp,maxp,tn,mint,maxt] = premnmx(p1,t);
p_train=[pn(1,:);pn(2,:);pn(3,:);pn(4,:);pn(5,:);pn(6,:);pn(7,:);pn(8,:);pn(9,:);pn(10,:);pn(11,:);pn(12,:);pn(13,:);...
pn(14,:);pn(15,:);pn(16,:);pn(17,:);pn(18,:);pn(19,:);pn(20,:);pn(21,:);pn(22,:);pn(23,:);pn(24,:);pn(25,:);pn(26,:);pn(27,:);...
pn(28,:);pn(29,:);pn(30,:);pn(31,:);pn(32,:);pn(33,:);pn(34,:);pn(35,:);pn(36,:);pn(37,:);pn(38,:);pn(39,:)]'
t_train=[pn(2,:);pn(3,:);pn(4,:);pn(5,:);pn(6,:);pn(7,:);pn(8,:);pn(9,:);pn(10,:);pn(11,:);pn(12,:);pn(13,:);pn(14,:);pn(15,:);pn(16,:);...
pn(17,:);pn(18,:);pn(19,:);pn(20,:);pn(21,:);pn(22,:);pn(23,:);pn(24,:);pn(25,:);pn(26,:);pn(27,:);pn(28,:);pn(29,:);pn(30,:);...
pn(31,:);pn(32,:);pn(33,:);pn(34,:);pn(35,:);pn(36,:);pn(37,:);pn(38,:);pn(39,:);;pn(40,:)]';
save p_train
save t_train
threshold=minmax(p_train);
%創(chuàng)建網(wǎng)絡(luò)
net=newff(threshold,[12,25,12],{'tansig','tansig','purelin'},'trainlm');
%下面使用遺傳算法對網(wǎng)絡(luò)進行優(yōu)化
P=p_train;
T=t_train;
R=size(P,1);
S2=size(T,1);
S1=25;%隱含層節(jié)點數(shù)
S=R*S1+S1*S2+S1+S2;%遺傳算法編碼長度
aa=ones(S,1)*[-1,1];
popu=50;%種群規(guī)模
initPpp=initializega(popu,aa,'gabpEval');%初始化種群
gen=100;%遺傳代數(shù)
%下面調(diào)用gaot工具箱，其中目標函數(shù)定義為gabpEval
[x,endPop,bPop,trace]=ga(aa,'gabpEval',[],initPpp,[1e-6 1 1],'maxGenTerm',gen,...
'normGeomSelect',[0.09],['arithXover'],[2],'nonUnifMutation',[2 gen 3]);
%繪收斂曲線圖
figure(1)
plot(trace(:,1),1./trace(:,3),'r-');
hold on
plot(trace(:,1),1./trace(:,2),'b-');
xlabel('Generation');
ylabel('Sum-Squared Error');
figure(2)
plot(trace(:,1),trace(:,3),'r-');
hold on
plot(trace(:,1),trace(:,2),'b-');
xlabel('Generation');
ylabel('Fittness');
%下面將初步得到的權(quán)值矩陣賦給尚未開始訓練的BP網(wǎng)絡(luò)
[W1,B1,W2,B2,P,T,A1,A2,SE,val]=gadecod(x);
net.LW{2,1}=W1;
net.LW{3,2}=W2;
net.b{2,1}=B1;
net.b{3,1}=B2;
XX=P;
YY=T;
%設(shè)置訓練參數(shù)
net.trainParam.show=10;
net.trainParam.lr=0.05;
net.trainParam.epochs=7000;
net.trainParam.goal=0.01;
%訓練網(wǎng)絡(luò)
net=train(net,p_train,t_train);
p_test=[pn(40,:)]';
T=sim(net,p_test);
a = postmnmx(T',mint(41,1),maxt(41,1));
number=round(a);
error=p1(41,:)-number;
time=[1 2 3 4 5 6 7 8 9 10 11 12];
plot(time,number,'ro--');
hold on
plot(time,p1(41,:),'gd-')
hold on
plot(time,error)
legend('red is yuce','green is actual','blue is error');
title('time(month)')

回復(fù)此樓

» 猜你喜歡

一志愿西安交通大學材料工程專業(yè) 282分求調(diào)劑已經(jīng)有6人回復(fù)
085600材料與化工調(diào)劑 324分已經(jīng)有10人回復(fù)
294求調(diào)劑材料與化工專碩已經(jīng)有11人回復(fù)
一志愿南昌大學，327分，材料與化工085600 已經(jīng)有3人回復(fù)
321求調(diào)劑已經(jīng)有7人回復(fù)
288求調(diào)劑已經(jīng)有6人回復(fù)
287求調(diào)劑已經(jīng)有4人回復(fù)
招收調(diào)劑碩士已經(jīng)有7人回復(fù)
085601材料工程專碩求調(diào)劑已經(jīng)有8人回復(fù)
一志愿武漢理工材料工程專碩調(diào)劑已經(jīng)有3人回復(fù)

1樓 2012-05-23 10:35:47

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

智能機器人

Robot (super robot)

我們都愛小木蟲

找到一些相關(guān)的精華帖子，希望有用哦~

有關(guān)遺傳算法的問題求助已經(jīng)有3人回復(fù)
關(guān)于遺傳算法中交叉的程序已經(jīng)有5人回復(fù)
遺傳算法的一段程序請教解釋已經(jīng)有9人回復(fù)
請教關(guān)于遺傳算法編程的問題（俺是小白）已經(jīng)有4人回復(fù)
【其他】了解遺傳算法已經(jīng)有12人回復(fù)
【討論】遺傳算法解決象棋問題已經(jīng)有8人回復(fù)
【求助】遺傳算法求解eil51.tsp問題，離最優(yōu)解還很遠。怎么辦？已經(jīng)有26人回復(fù)
【分享】粒子群算法和遺傳算法應(yīng)用與改進實驗框架已經(jīng)有42人回復(fù)
【分享】遺傳算法與蟻群算法演示程序已經(jīng)有18人回復(fù)

點擊這里搜索更多相關(guān)資源

科研從小木蟲開始，人人為我，我為人人

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 haomeng12 的主題更新