appcs2_learn.m

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

% 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,1.001);
ranges = [-100.0*ones(1,41)
           100.0*ones(1,41)];	% Range of the input variables
gen_no=30;
popuSize=50;
maxmin=-1;
echo off
[PI,para]=PS_particleswarm(obj_fcn,popuSize,gen_no,ranges,maxmin);
x=para;sim(MDL);A=Y(:,2:3);PI=sum(sum(abs(A)));
%fprintf('===>PI before PSO search=%.6f;\n',PI1);
fprintf('===>PI after  PSO search=%.6f;\n',PI);
echo on
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)]';