找回密码
 注册
关于网站域名变更的通知
查看: 472|回复: 1
打印 上一主题 下一主题

经典蝙蝠算法MATLAB实现

[复制链接]
  • TA的每日心情

    2019-11-20 15:22
  • 签到天数: 2 天

    [LV.1]初来乍到

    跳转到指定楼层
    1#
    发表于 2020-5-12 13:42 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式

    EDA365欢迎您登录!

    您需要 登录 才可以下载或查看,没有帐号?注册

    x
    本帖最后由 mutougeda 于 2020-5-12 13:46 编辑
    4 z0 Y8 p. P5 {$ k! d/ f+ l+ y( j0 M
    0 u- M3 n" X6 ?+ t8 G6 q6 L
    蝙蝠算法( BA) 是 Yang 教授于 2010 年基于群体智能提出的启发式搜索算法,是一种搜索全局最优解的有效方法。该算法是一种基于迭代的优化技术,初始化为一组随机解,然后 通过迭代搜寻最优解,且在最优解周围通过随机飞行产生局部新解,加强了局部搜索。与其他算法相比,BA 在准确性和有效性方面远优于其他算法,且没有许多参数要进行调整。
    BA算法是模拟自然界中蝙蝠利用一种声呐来探测猎物、避免障碍物的随机搜索算法即模拟蝙蝠利用超声波对障碍物或猎物进行最基本的探测、定位能力并将其和优化目标功能相联系。BA算法的仿生原理将种群数量为的蝙蝠个体映射为D维问题空间中的NP个可行解,将优化过程和搜索模拟成种群蝙蝠个体移动过程和搜寻猎物利用求解问题的适应度函数值来衡量蝙蝠所处位置的优劣,将个体的优胜劣汰过程类比为优化和搜索过程中用好的可行解替代较差可行解的迭代过程。在蝙蝠搜索算法中,为了模拟蝙蝠探测猎物、避免障碍物,需假设如下三个近似的或理想化的规则:6 ?8 I: ?  Q% U- T1 f, u
    • 1)所有蝙蝠利用回声定位的方法感知距离,并且它们采用一种巧妙的方式来区别猎物和背景障碍物之间的不同。
    • 2)蝙蝠在位置xi以速度vi随机飞行,以固定的频率fmin、可变的波长λ和音量A0来搜索猎物。蝙蝠根据自身与目标的邻近程度来自动调整发射的脉冲波长(或频率)和调整脉冲发射率r属于[0,1]
    • 3)虽然音量的变化方式有多种但在蝙蝠算法中, 假定音量A是从一个最大值A0(整数)变化到固定最小值Amin  Z) i' x& j3 e, H
    伪代码:
    Maltab实现:
    主函数代码:
    8 N5 \' m5 ~- |$ U

      Z. d8 z) y: t: T0 n. y5 rfunction [bestMin, bestID] = MYBA()
    - u" b4 I( S: E- [%A new modification approach on bat algorithm for solving optimization problems
    - v( I1 w; R1 T& ]7 h . ^5 P# i0 u( t) w# g* l
    %omegaxyz.com 2019年2月12日: A& p; Q  G! [$ E; u9 E

    2 b+ n8 {8 c% lclc2 s1 `  s" i- Z( n9 e4 |
    %% BA参数设置
    : d# K8 Y2 i$ @% n: G; I
    0 O5 }1 m7 d' q7 `+ \' wt = 1; ; y/ v# j4 |1 @. H( H) \
    maxT = 500; %最大迭代次数
    4 V, X  \* e" M; ~2 \( @dim = 30; %问题的维度
    : |* F  u/ e4 asizep = 50; %种群大小' v9 k4 m: y3 j& `6 A, e1 V
    xmin = -100;
    5 G6 p9 X" B( R5 M( `  r; uxmax = 100; %位置向量的范围: L# x1 f" v9 _

    . l7 n  J% l0 CA = 0.6.*ones(sizep,1);    % 响度 (不变或者减小)
    - F3 s0 X  V3 J, z& X8 M" H3 Z4 yr = zeros(sizep,1);      % 脉冲率 (不变或增加))
    * |+ j" n3 c( m2 F/ i$ h% p9 Qr0 = 0.7;" F9 h5 c7 }4 I$ d2 r4 v. v
    Af = 0.9;
    3 H( R7 X& w- J: A! |* [RF = 0.9;' I2 u& C% r" k% \3 v6 Q3 g  |
    Qmin = 0;         % 最小频率' E9 B- J9 D1 U4 _3 i
    Qmax = 1;         % 最大频率
    5 l$ U' A2 m1 g! V. Y- ?& ~
    % ~( D! I* `3 x%% 初始化- t* O# A3 H: R+ P$ }; ]
    ) r: ~1 T0 d4 ~$ f/ c, z  w
    Lb = xmin*ones(1,dim);
    % q$ O* `/ ]4 _% ZUb = xmax*ones(1,dim);
    + P5 X- C0 v) f+ j: a/ Ypop = Lb+(Ub-Lb).*rand(sizep,dim); %种群初始化5 h  @, h7 s4 S8 E
    popv = zeros(sizep,dim);   % 速度
    6 @0 l; m) s( v" h9 `( u: i3 yQ = zeros(sizep,1);   % 频率
    9 Z6 P& N8 Q6 i7 E0 K / D7 d7 F, O0 J+ K3 H
    pfitness = zeros(dim,1);
    1 W$ Y% R! C0 T! [for i = 1:sizep
    1 |. s' K0 b8 V8 |5 p" t' ]+ {8 z    pfitness(i) = evaluate(pop(i,:)); %评价: |0 v/ `. T% T1 ^) j, `3 D7 ?
    end
    - f" V1 R$ t& O& n& g$ X. v[bestMin, bestID]=min(pfitness);6 Q$ z; G" `+ @9 X; C# j* T
    bestS = pop(bestID, :);3 o6 v3 N! B; y1 ~
    bestArchive = zeros(maxT,1);1 m: o7 r/ E( d, L
    %% 具体迭代过程5 h0 O! E, f7 L8 K# k
    7 l1 J+ l4 [% t% p$ f& X
    while t <= maxT
    , c6 b& S$ [4 N, q/ k5 ~    for i = 1:sizep
    5 O9 F8 h7 g; l8 s" ?$ Q        Q(i)=Qmin+(Qmin-Qmax)*rand();
    3 k0 v0 s9 p( u+ K, ]        popv(i,:)=popv(i,:)+(pop(i,:)-bestS)*Q(i);( H/ v# R5 z- O! H5 i
            Stemp = pop(i,:)+popv(i,:);
    2 C0 K7 @+ Q* z" |# @; h        % 脉冲率- c' u& Y1 W3 [' N, B1 d7 o0 F
             if rand>r(i)
    5 o& b% H! c, O& T# k) e             Stemp=bestS-1+2*rand(1,dim);! m4 l  A- k4 U
             end0 b1 |6 H. a% ]7 t8 ~3 E- U
             fitTemp = evaluate(Stemp);
    6 \) j/ b8 W$ ^         if (fitTemp<=pfitness(i))&&(rand()<A(i))% {) A9 U9 K+ r2 a3 W. j
                pop(i,:) = Stemp;' m4 s; y/ d) L. k7 ]
                pfitness(i) = fitTemp;6 h7 G" u9 X9 [+ j- s  v) j) h
                A(i) = Af*A(i);
    2 b& k- e) y! Y4 k' d3 [' C            r(i) = r0*(1-exp(-Rf*t));
    ( M& [% e9 I/ Y! b, B5 v         end
    4 M' {3 r$ q; F9 }% q         if fitTemp <= bestMin3 }" Q, Y* ^8 ^( ~6 ~  Z
                bestMin = fitTemp;5 c9 d* a+ J, W0 G
                     bestS = Stemp;
    : T  o# b3 e% }& a7 B$ B; l! }" E0 O) O, ?         end
    8 d. C; h* B; \9 _    end' _. p, V( d, `3 B6 }' l9 A
        bestArchive(t) = bestMin;& ^$ x4 ^) T9 B5 ^
        fprintf('GEN: %d  min: %.4f\n', t, bestMin);' M5 a: f- z. r3 ]9 D6 H
        t = t +1;/ I/ r& D- R% k& S' l
    end
    4 g5 J1 Q! B3 f; z" I+ p* y
    1 [' }2 d' @+ m. s2 _' ?$ n " t0 \, V, o* n0 @/ m
    end% n8 C" X+ e/ i3 ~1 n$ `  `! P
    % X2 O! f3 Q) Y* q* J

    该用户从未签到

    2#
    发表于 2020-5-12 14:41 | 只看该作者
    蝙蝠算法MATLAB实现
    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    关闭

    推荐内容上一条 /1 下一条

    EDA365公众号

    关于我们|手机版|EDA365电子论坛网 ( 粤ICP备18020198号-1 )

    GMT+8, 2025-7-23 09:29 , Processed in 0.125000 second(s), 26 queries , Gzip On.

    深圳市墨知创新科技有限公司

    地址:深圳市南山区科技生态园2栋A座805 电话:19926409050

    快速回复 返回顶部 返回列表