ex632neu.m

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

% Main_Program ex632neu.m
% Find a NN to replace the FIS in [P T] described
%   in Example 6.3-2.

% Input pattern
P=4.7*(rand(2,50)-0.5);
ex631f=readfis('ex631f');
% Target
T=evalfis(P,ex631f); T=T';
% New Feedforward NN
net = newff([-2 2;-2 2],[7 1],{'tansig' 'purelin'},'trainlm');
net.trainParam.epochs = 1500;
net.trainParam.goal = 1e-12;
% Training
net = train(net,P,T);
disp('Press <CR> to continue');pause
% Get the Neural output
Y = sim(net,P);
% Reprint the Target
% Display weights and bias
W10=net.IW{1,1}
B10=net.b{1}
W20=net.LW{2,1}
B10=net.b{2}
% Plot the target and neural outputs
sample=1:length(T);
figure(2);plot(sample,T,'o',sample,T,sample,Y)
title('Desired and Neural output plots')
xlabel('Sample points');
gensim(net,0.01)