• 大小: 195KB
    文件类型: .rar
    金币: 1
    下载: 0 次
    发布日期: 2021-06-15
  • 语言: 其他
  • 标签: 智能控制  

资源简介

智能控制控制第三版源代码,欢迎有需要的朋友进行下载,谢谢

资源截图

代码片段和文件信息

%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\chap10_1.m

     文件       2554  2004-12-31 22:57  智能控制第三版仿真程序\chap10\chap10_2.m

     文件       2397  2005-01-21 22:43  智能控制第三版仿真程序\chap10\chap10_3a.m

     文件        956  2005-01-17 09:36  智能控制第三版仿真程序\chap10\chap10_3b.m

     文件       1067  2005-01-21 22:43  智能控制第三版仿真程序\chap10\chap10_3c.m

     文件       1956  2013-10-02 16:54  智能控制第三版仿真程序\chap10\chap10_4.m

     文件       1950  2013-10-02 16:55  智能控制第三版仿真程序\chap10\chap10_4cross.m

     文件        266  2008-09-20 17:04  智能控制第三版仿真程序\chap10\chap10_4dis.m

     文件        590  2013-10-02 16:55  智能控制第三版仿真程序\chap10\chap10_4mutate.m

     文件        481  2008-09-24 10:30  智能控制第三版仿真程序\chap10\chap10_4select.m

     文件       1892  2013-09-30 12:58  智能控制第三版仿真程序\chap10\chap10_5.m

     文件         86  2012-10-08 08:12  智能控制第三版仿真程序\chap10\chap10_5obj.m

     文件        345  2012-10-08 12:00  智能控制第三版仿真程序\chap10\chap10_6.m

     文件       1994  2013-09-30 13:01  智能控制第三版仿真程序\chap10\chap10_7.m

     文件        471  2012-09-13 10:43  智能控制第三版仿真程序\chap10\chap10_7obj.m

     文件        147  2008-09-20 10:19  智能控制第三版仿真程序\chap10\city15.txt

     文件        202  2008-09-19 21:47  智能控制第三版仿真程序\chap10\city20.txt

     文件        204  2008-09-23 15:25  智能控制第三版仿真程序\chap10\city30.txt

     文件         73  2008-09-19 22:13  智能控制第三版仿真程序\chap10\city8.txt

     文件        710  2013-10-02 16:57  智能控制第三版仿真程序\chap10\de1_file.mat

     文件        381  2012-09-05 10:46  智能控制第三版仿真程序\chap10\function_plot.m

     文件        961  2008-07-31 19:35  智能控制第三版仿真程序\chap11\chap11_1ctrl.m

     文件        651  2008-07-31 19:36  智能控制第三版仿真程序\chap11\chap11_1input.m

     文件       1211  2008-07-31 19:31  智能控制第三版仿真程序\chap11\chap11_1main.m

     文件       1354  2008-08-01 11:32  智能控制第三版仿真程序\chap11\chap11_1plant.m

     文件      13735  2008-08-01 12:29  智能控制第三版仿真程序\chap11\chap11_1sim.mdl

     文件        740  2008-07-31 20:01  智能控制第三版仿真程序\chap11\chap11_2ctrl.m

     文件        651  2008-07-31 20:01  智能控制第三版仿真程序\chap11\chap11_2input.m

     文件       1434  2008-07-31 19:55  智能控制第三版仿真程序\chap11\chap11_2main.m

     文件        798  2008-07-31 20:01  智能控制第三版仿真程序\chap11\chap11_2plant.m

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

评论

共有 条评论