psobp.m

推荐一下老外的工具箱psotb-beta-.3

%这是我在某人gann的基础上改的,若有不当之处,请大家多多指教
%警察(qq:175584600)
[e-mail]



[P,T,R,S1,S2,Q,S]=nninit; % BP网络初始化
popSize=40;
bounds=ones(S,1)*[-1 1];
MaxGen=10000;
vMax=1;
[fxmin, xmin, Swarm, history] = PSO(psoOptions);
[W1,B1,W2,B2,val]=psodecod(xmin);
net=newff(minmax(P),[S1 S2],{'tansig' 'purelin'},'trainlm');
net.iw{1,1}=W1;
net.lw{2,1}=W2;
net.b{1}=B1;
net.b{2}=B2;
% 仿真结果
tstP=[    0.2015    0.2756    0.4707    0.4980    0.9000    0.2912    0.7049    0.2366    0.4434;...
    0.1000    0.9000    0.9000    0.9000    0.9000    0.9000    0.9000    0.9000    0.9000;...
    0.2926    0.3444    0.4556    0.5000    0.9000    0.3741    0.7704    0.3296    0.4556;...
    0.3717    0.1000    0.5593    0.4647    0.5443    0.1300    0.2006    0.3041    0.6493;...
    0.2846    0.3000    0.1000    0.2538    0.3308    0.1462    0.3154    0.2385    0.3308];
net=train(net,P,T);
% 仿真结果
TT=sim(net,tstP)
[ 0.3080    0.1288    0.2120    0.3592    0.9000    0.1000    0.3720    0.1800    0.6920]