【优化算法】材料生成算法 (MGA)【含Matlab源码 209期】

一、获取代码方式

获取代码方式1：
完整代码已上传我的资源：【优化算法】材料生成算法 (MGA)【含Matlab源码 209期】

获取代码方式2：
通过订阅紫极神光博客付费专栏，凭支付凭证，私信博主，可获得此代码。

备注：
订阅紫极神光博客付费专栏，可免费获得1份代码（有效期为订阅日起，三天内有效）；

二、部分源代码

%%
clc;clear all;                                                              
%% 获取所需的问题信息
ObjFuncName = @(x) Sphere(x); % @CostFunction ;
Var_Number = 10 ; %变量数；
VarMin = -10 *ones(1,Var_Number) ;  % 变量的下界；
VarMax = 10 *ones(1,Var_Number) ;  % 变量的上界；

%%获取所需的算法参数
MaxIteration = 25000 ; % 最大迭代次数；
NCompan = 50 ; % 初始 Companent 的最大数量；

Globalbest=0;
%% 创建初始同伴
Compan.Position=unifrnd(repmat(VarMin,NCompan,1),repmat(VarMax,NCompan,1));

% 评估初始 CompnMats
for ind=1:NCompan
    Compan.Fun_Eval(ind)=feval(ObjFuncName,Compan.Position(ind,:));
end

% 最优值
[value, Index1]=min(Compan.Fun_Eval);
BestSoFar.Fun_Eval(1) =value;
BestSoFar.Position (1,:)= Compan.Position(Index1,:);

%% MSS主循环
for Iter=2:MaxIteration
    %新组件 1
    Index=NCompan.*(0:Var_Number-1)+randperm(NCompan,Var_Number);
    CompnNew.Position(1,:)= Compan.Position(Index)+unifrnd(-1,1).*randn(1,Var_Number);
    %N新组件 2
    Index=randperm(NCompan,1);
    Index2= randperm(NCompan,Index);
    CMs=randn(Index,1);
    CMs=CMs/sum(CMs);
    CompnNew.Position(2,:)=sum(CMs.*Compan.Position(Index2,:));
    
    % 应用下限和上限
    CompnNew.Position = max(CompnNew.Position,VarMin);
    CompnNew.Position = min(CompnNew.Position,VarMax);
    
    % 评估
    for ind3=1:size(CompnNew.Position,1)
        CompnNew.Fun_Eval(ind3)=feval(ObjFuncName,CompnNew.Position(ind3,:));
    end
    
    % 更新组件
    AllCompn.Position=[Compan.Position;CompnNew.Position];
    AllCompn.Fun_Eval=[Compan.Fun_Eval,CompnNew.Fun_Eval];
    [~, Index1]=sort(AllCompn.Fun_Eval);
    Compan.Position=AllCompn.Position(Index1(1:NCompan),:);
    Compan.Fun_Eval=AllCompn.Fun_Eval(Index1(1:NCompan));
    % 更新最优值
    To_UpdateG= Compan.Fun_Eval(1) < BestSoFar.Fun_Eval(Iter-1);
    best = (1-To_UpdateG).*BestSoFar.Position(Iter-1,:)+To_UpdateG.*Compan.Position(1,:);
    BestSoFar.Fun_Eval (Iter)= (1-To_UpdateG).*BestSoFar.Fun_Eval(Iter-1)+To_UpdateG.*Compan.Fun_Eval(1);
    BestSoFar.Position(Iter,:)=best;
    % 显示迭代信息
    Showindex=1;
    if   Showindex
        disp(['Iteration ' num2str(Iter) ': Best Cost = ' num2str(BestSoFar.Fun_Eval (Iter))]);
    end
    
    % 检查终止标准
    if BestSoFar.Fun_Eval (Iter)<Globalbest 
        break
    end
    
end

  

 

  
1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
  
25
  
26
  
27
  
28
  
29
  
30
  
31
  
32
  
33
  
34
  
35
  
36
  
37
  
38
  
39
  
40
  
41
  
42
  
43
  
44
  
45
  
46
  
47
  
48
  
49
  
50
  
51
  
52
  
53
  
54
  
55
  
56
  
57
  
58
  
59
  
60
  
61
  
62
  
63
  
64
  
65
  
66
  
67
  
68
  
69
  
70
 

三、运行结果

四、matlab版本及参考文献

1 matlab版本
2014a

2 参考文献
[1] 包子阳,余继周,杨杉.智能优化算法及其MATLAB实例（第2版）[M].电子工业出版社，2016.
[2]张岩,吴水根.MATLAB优化算法源代码[M].清华大学出版社，2017.

文章来源: qq912100926.blog.csdn.net，作者：海神之光，版权归原作者所有，如需转载，请联系作者。

原文链接：qq912100926.blog.csdn.net/article/details/123953596