智能控制 刘金琨教材源码

智能控制 刘金琨著，，是北京航空航天大学刘金琨教授的著作，包含教材所有源码

%Generic Algorithm for function f（x1x2） optimum
clear all;
close all;

%Parameters
Size=80;   
G=100;     
CodeL=10;
 
umax=2.048;
umin=-2.048;

E=round（rand（Size2*CodeL））;    %Initial Code

%Main Program
for k=1:1:G
time（k）=k;

for s=1:1:Size
m=E（s:）;
y1=0;y2=0;

%Uncoding
m1=m（1:1:CodeL）;
for i=1:1:CodeL
   y1=y1+m1（i）*2^（i-1）;
end
x1=（umax-umin）*y1/1023+umin;
m2=m（CodeL+1:1:2*CodeL）;
for i=1:1:CodeL
   y2=y2+m2（i）*2^（i-1）;
end
x2=（umax-umin）*y2/1023+umin;

F（s）=100*（x1^2-x2）^2+（1-x1）^2;
end

Ji=1./F;
%****** Step 1 : Evaluate BestJ ******
BestJ（k）=min（Ji）;

fi=F;                          %Fitness Function
[OderfiIndexfi]=sort（fi）;     %Arranging fi small to bigger
Bestfi=Oderfi（Size）;           %Let Bestfi=max（fi）
BestS=E（Indexfi（Size）:）;      %Let BestS=E（m） m is the Indexfi belong to max（fi）
bfi（k）=Bestfi;

%****** Step 2 : Select and Reproduct Operation******
   fi_sum=sum（fi）;
   fi_Size=（Oderfi/fi_sum）*Size;
   
   fi_S=floor（fi_Size）;        %Selecting Bigger fi value
   
   kk=1;
   for i=1:1:Size
      for j=1:1:fi_S（i）        %Select and Reproduce 
       TempE（kk:）=E（Indexfi（i）:）;  
         kk=kk+1;              %kk is used to reproduce
      end
   end
   
%************ Step 3 : Crossover Operation ************
pc=0.60;
n=ceil（20*rand）;
for i=1:2:（Size-1）
    temp=rand;
    if pc>temp                  %Crossover Condition
    for j=n:1:20
        TempE（ij）=E（i+1j）;
        TempE（i+1j）=E（ij）;
    end
    end
end
TempE（Size:）=BestS;
E=TempE;
   
%************ Step 4: Mutation Operation **************
%pm=0.001;
%pm=0.001-[1:1:Size]*（0.001）/Size; %Bigger fi smaller Pm
%pm=0.0;    %No mutation
pm=0.1;     %Big mutation

   for i=1:1:Size
      for j=1:1:2*CodeL
         temp=rand;
         if pm>temp                %Mutation Condition
            if TempE（ij）==0
               TempE（ij）=1;
            else
               TempE（ij）=0;
            end
        end
      end
   end
   
%Guarantee TempPop（30:） is the code belong to the best individual（max（fi））
TempE（Size:）=BestS;
E=TempE;
end
 
Max_Value=Bestfi
BestS
x1
x2
figure（1）;
plot（timeBestJ）; 
xlabel（‘Times‘）;ylabel（‘Best J‘）;
figure（2）;
plot（timebfi）;
xlabel（‘times‘）;ylabel（‘Best F‘）;

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

     文件       2317  2004-12-31 22:55  智能控制所有源程序\chap10_1.m

     文件       2554  2004-12-31 22:57  智能控制所有源程序\chap10_2.m

     文件       2397  2005-01-21 22:43  智能控制所有源程序\chap10_3a.m

     文件        956  2005-01-17 09:36  智能控制所有源程序\chap10_3b.m

     文件       1067  2005-01-21 22:43  智能控制所有源程序\chap10_3c.m

     文件       2161  2005-02-22 17:38  智能控制所有源程序\chap2_1.m

     文件        250  2004-12-29 21:16  智能控制所有源程序\chap3_1.m

     文件        815  2005-09-25 13:21  智能控制所有源程序\chap3_2.m

     文件        373  2004-12-29 18:46  智能控制所有源程序\chap3_3.M

     文件        274  2004-12-29 18:49  智能控制所有源程序\chap3_4.m

     文件        642  2005-09-25 14:16  智能控制所有源程序\chap3_5.m

     文件       1507  2005-09-25 14:20  智能控制所有源程序\chap4_1.m

     文件       3332  2005-09-27 12:22  智能控制所有源程序\chap4_2.m

     文件      12228  2005-09-27 15:35  智能控制所有源程序\chap4_3.mdl

     文件        372  2005-01-24 00:31  智能控制所有源程序\chap4_4.m

     文件        365  2005-01-24 00:31  智能控制所有源程序\chap4_5.m

     文件       1514  2005-01-24 01:06  智能控制所有源程序\chap4_6.m

     文件       3774  2005-01-08 18:21  智能控制所有源程序\chap4_7a.m

     文件       1463  2005-01-08 18:44  智能控制所有源程序\chap4_7b.m

     文件       1030  2005-01-28 18:22  智能控制所有源程序\chap4_8.m

     文件       2026  2005-10-06 15:27  智能控制所有源程序\chap4_9.m

     文件        205  2005-02-23 21:24  智能控制所有源程序\chap4_9f.m

     文件        671  2005-01-16 13:48  智能控制所有源程序\chap5_1.m

     文件       1555  2005-01-16 20:18  智能控制所有源程序\chap5_2.m

     文件        246  2005-01-16 21:40  智能控制所有源程序\chap5_3mf.m

     文件       1164  2005-01-16 21:38  智能控制所有源程序\chap5_3plant.m

     文件        385  2005-01-16 21:38  智能控制所有源程序\chap5_3plot.m

     文件       2167  2005-03-19 00:23  智能控制所有源程序\chap5_3s.m

     文件      13233  2005-12-01 08:40  智能控制所有源程序\chap5_3sim.mdl

     文件        314  2005-01-17 22:15  智能控制所有源程序\chap5_4mf.m

............此处省略32个文件信息