Matalbpso优化bp网络程序-PSO-bp.rar

Matalbpso优化bp网络程序-PSO-bp.rar
利用pso优化bp网络

function error = fun（xinputnumhiddennumoutputnumnetinputnoutputn）
%该函数用来计算适应度值
%x          input     个体
%inputnum   input     输入层节点数
%outputnum  input     隐含层节点数
%net        input     网络
%inputn     input     训练输入数据
%outputn    input     训练输出数据

%error      output    个体适应度值

%提取
w1=x（1:inputnum*hiddennum）;
B1=x（inputnum*hiddennum+1:inputnum*hiddennum+hiddennum）;
w2=x（inputnum*hiddennum+hiddennum+1:inputnum*hiddennum+hiddennum+hiddennum*outputnum）;
B2=x（inputnum*hiddennum+hiddennum+hiddennum*outputnum+1:inputnum*hiddennum+hiddennum+hiddennum*outputnum+outputnum）;

net=newff（inputnoutputnhiddennum）;
%网络进化参数
net.trainParam.epochs=20;
net.trainParam.lr=0.1;
net.trainParam.goal=0.00001;
net.trainParam.show=100;
net.trainParam.showWindow=0;
 
%网络权值赋值
net.iw{11}=reshape（w1hiddennuminputnum）;
net.lw{21}=reshape（w2outputnumhiddennum）;
net.b{1}=reshape（B1hiddennum1）;
net.b{2}=B2;

%网络训练
net=train（netinputnoutputn）;

an=sim（netinputn）;

error=sum（abs（an-outputn））;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      46404  2011-03-04 10:53  PSO-bp\data.mat

     文件       1049  2011-03-04 10:53  PSO-bp\fun.m

     文件       2063  2011-03-09 19:30  PSO-bp\PSO.asv

     文件       2058  2011-03-09 19:32  PSO-bp\PSO.m

     目录          0  2011-03-09 15:34  PSO-bp

----------- ---------  ---------- -----  ----

                51574                    5