appcs2_learn.asv

其中提到遺傳學的程式碼與應用提供給次淚相向的研究者參考下載

% appcs2_learn.m

%load appcs2_psoData
 t=0:380;t=t';Pc1=Pc';Tc1=Tc';
 simin1=[t Pc1];simin2=[t Tc1];
 obj_fcn = 'PSO_fappcs2';	% Objective function
 MDL='PSO_appcs2m';
 W1=[tnet.IW{1,1}]';W1=W1(:);W1=W1';
 b1=[tnet.b{1}]';
 W2=tnet.LW{2,1};
 b2=tnet.b{2};
 W3=[tnet.IW{1,2}]';
 initData=[W1 b1 W2 b2 W3];
 ranges=GA_getRanges(initData,2.5);
 %ranges = [-30*ones(1,41)
 %           30*ones(1,41)];	% Range of the input variables
 gen_no=60;
 popuSize=50;
 maxmin=-1;
 [PI,para]=PS_particleswarm(obj_fcn,popuSize,gen_no,ranges,maxmin);
 x=para;sim(MDL);A=Y(:,2:3);
 fprintf('PI after PSO search=%.6f;\n',PI);
 tnet.IW{1,1}=[x(1:2:15)' x(2:2:16)'];
 tnet.b{1}=[x(17:24)]';
 tnet.LW{2,1}=x(25:32);
 tnet.b{2}=x(33);
 tnet.IW{1,2}=[x(34:41)]';