|
EDA365欢迎您登录!
您需要 登录 才可以下载或查看,没有帐号?注册
x
7 O3 }) j6 U O+ e+ R" }" z E1 背景介绍
* E4 K% h3 U& e( V假定某群岛海域有20个小岛,每个岛屿各产不同种类的海鲜,现需对各岛屿的海鲜进行外向运输,选取一个中心岛屿作为中心枢纽,(以下称其为中心岛);各个岛屿的货物运送到中心枢纽岛屿,然后从中心岛运往大陆,其中参考各方因素确定最优的运送路线,各个岛屿到中心岛运送的船只有两种船型;并对船只进行选择。运用matlab编程,禁忌搜索方法。
5 p/ R g$ O' `1 ]% D( h, `' m' g- l1 V9 G1 ~
鉴于偏远岛屿的地理特点,其交通网络一般由三个节点组成:大陆港口、中心岛和卫星岛。大陆港口是海岛依托大陆的物流运输通道;中心岛是收集周围岛屿输送物资的枢纽;卫星岛是供应生产物资到中心岛物资的末端岛屿。- @ m# x. q- s+ J: }- b+ f2 t) e
5 o$ ?& r. R! B: d
首先,由于海上航行受台风影响很大,需要防止岛间运输物资中断,分析了该地区台风发生的统计资料,并结合各岛的生活资料,通过数据拟合得到台风影响时间的概率分布曲线。在一定的保证率下,每个岛屿的日平均生产量在不腐坏的前提下,建立运输模型。那么,对中心岛的位置和交通的优化是必须的。其中运输系统结构包括航线数量、运输组织形式及到达顺序、每条航线的船型及时刻表、各岛码头规模等;建立和优化存储系统(包括存储容量和周期性供应等)。$ {/ o9 R: e+ }. ~
) S, m- v# S7 X
显然,运输系统成本和存储系统是优化目标统一成本的两个矛盾方面,即如果某一航线的船舶尽可能满载,则可以延长运输计划的间隔,从而降低运输计划运输成本,但同时也会增加货物储存和仓库建设成本;如果船型不变,增加航线上的供应岛它可以减少航线数量和船舶采购、集货周期和库存成本,以及库存引起的货物存储成本和仓库建设的成本,但是运输距离的增加和路线的延长会导致运输成本的增加,从而导致系统总成本的变化。此外,中心岛的位置将直接影响路径规划和运输组织形式的选择,从而间接影响仓储系统的优化。 k8 |! [' e4 g
* b! _* f5 x2 A在优化远洋集团货物海运系统的过程中,除了上述传统的LIRP问题外,还应考虑选址、运输和仓储的决策问题。除了相互作用外,我们还需要考虑航运系统本身的特点:①由于船舶的负荷一般远大于岛上的日生产量,所以双向装货路线与单方向运输相比,双向运输可以延长装货周期,大大降低运输频率。虽然运输距离有所增加,但运输成本可能会相对降低。即使库存和由此产生的货物储存成本和仓库建设成本增加,最终系统的总成本也可能降低。具体运输组织形式的选择应根据线路岛屿的数量和距离确定。
& i5 e- ]8 K: c
$ ?( ]; W4 z# O* t, [6 F② 与小船型相比,如果选择航线,应根据航线中岛屿的数量和距离确定,大型船型可以成倍定期装货,延长输送周期,减少运输次数,降低运输成本,但船舶采购成本和码头总建设成本、库存及由此产生的货物储存成本和仓库建设成本都会增加,导致系统总成本的变化。
( d: U; p1 H# Y% L) ~
) L: w# y7 M1 k) V. r h在运输系统中,无论有多少条线路,所有卫星岛的终端总数都是固定的,但由于不同航线的船型不同,所以卫星岛码头的规模不同和由此带来的码头建设成本也不尽相同,而且每增加一种船型,中心岛都需要配备更多相应的船型的码头。因此,它对码头的建设成本有很大的影响。综上所述,离岛海运物流系统的优化应基于以上特点选出中心岛,为卫星岛运输划分路线组,建立各条线路(循环运输)的运输组织形式,配置不同船型,制定航次。在线路换班时设置各岛的存储容量,以便在台风等影响下求得偏远岛屿的整个群岛物流系统总成本得最低。
' x7 G# _2 }7 ]0 w. g( r% v3 Z% c, Q, t+ m6 ~
2、算法描述及实现* z8 X; B9 O3 N9 R
2.1、遗传算法概述# G2 B/ Q0 c i4 J7 y% G
遗传算法(GA,Genetic Algorithm),也称为进化算法。遗传算法是受达尔文的进化论的启发,借鉴生物进化过程而提出的一种启发式搜索算法。其主要特点是直接对结构对象进行操作,因此不同于其他求解最优解的算法,遗传算法不存在求导和对函数连续性的限定,采用概率化的寻优方法,不需要确定的规则就能自动获取和指导优化的搜索空间,自适应地调整搜索方向。
: N! ]/ ?* z' j* P X y* ^5 z) X, E+ `5 J. l- o% `+ C) s ~
以上是对遗传算法相对抽象的总结,为了更具体形象的解释遗传算法的一般原理,我们首先介绍一些生物学上的概念:
4 B; t3 x# l; r% [( `, c
" a! C7 F" t/ m" U9 v$ C6 G①种群:不同生物个体形成的群体,生物的进化以群体的形式进行,这样的一个群体称为种群;
- i, J1 {7 Z- C1 X0 W6 y
* _+ R, J! @" }. A/ \②个体:组成种群的单个生物;6 r$ E9 y5 \( e7 |# Y
8 i' d) ^" G, e" G8 A. L- e0 Z③基因:带有遗传信息的DNA片段,可以通俗的将基因理解为一段信息,这段信息决定的生物个体的性状;
5 k) t5 ^/ |( h1 q
/ v) d& s8 R; ~% r1 |④表现型:根据基因形成的个体的外部表现;$ X% R+ _. ^/ @
& K" B+ c7 w/ K G$ F( x
⑤适应度:生物个体对于生存环境的适应程度,越适应那么其得以存活和繁衍的概率就越大;5 l q# [$ M- K/ e5 r4 l' d
5 F& h5 P. l$ ]" J; o5 ^9 @
⑥遗传:通过繁殖过程,子代将从父母双方各获取一部分基因,形成新的自己的基因,这个过程中,会发生基因的复制、交叉,也会以较低的概率发生基因突变;
* ^$ u; v4 R( c& e* Z5 r& K5 h; S7 ]
# D$ r0 t7 {0 |* a⑦自然选择:物竞天择,适者生存的自然淘汰机制。具体为对环境适应度高的个体参与繁殖的机会比较多,后代就会越来越多。适应度低的个体参与繁殖的机会比较少,后代就会越来越少;
% x. g9 i" x$ W3 \5 S% y) N- { f. W- t; f. P6 h* B' v g; O
⑧进化:种群通过代际繁衍不断适应生存环境的过程,在这个过程中,以对外界环境的适应度为评判标准,生物的性状不断得到改良。+ i1 z4 s/ N( B& F( W3 \& Q
/ y( D9 c: C) B) r$ K/ y/ \2 |6 L了解了这些术语的含义,我们就可以进一步说说生物进化的过程了。由于自然选择是客观存在的,即生物只能改变自己去适应环境,那么在自然选择的过程中,适应度低的个体会被淘汰,适应度高的个体被保留,高适应度的父体与母体又有更高的概率繁衍出适应度高的子代,因此在一代又一代的繁衍之后,高适应度的个体在种群中所占的比例越来越大,种群就这样完成了进化。
, C4 F, I; t7 e- i6 l! w+ Q
0 A/ J& }: |2 K, Q) \7 Y; ?现在我们要参考生物进化的过程来设计算法解决求最优解的问题。对此,遗传算法的思路是,将要解决的问题模拟成一个生物进化的过程,通过进化来寻找最优解。以我们题目中寻找多峰函数的最大值这个问题为例:) v0 _3 s4 Z9 k3 t! }
+ S5 B' `' i* W
将(x, y)这一可能的解作为一个个体;将多峰函数的函数值f(x, y)作为个体的适应度;对(x, y)进行编码作为个体的基因;以适应度为标准不断筛选生物个体;通过遗传算子(如复制、交叉、变异等)不断产生下一代。如此不断循环迭代,完成进化。最终,根据设定的迭代次数,可得到最后一代种群,该种群中的个体适应度都较高,而多峰函数的最大值就有比较大的概率存在于这一群解中,以种群中适应度最高的个体作为问题的解,则可以说该解有比较高的概率就是我们希望求得的最优解。
. j& k( M; ?! `+ C1 V2 d% i0 m4 a. E( E$ z$ e
文字述说终究还是不如图表好理解,因此还是看图吧(下图将本题与自然遗传联系了起来):
6 H( ~' u4 R& g
# }! h' x" y& S4 u, I) z
8 t; I S. X% q& r6 T
, q9 |6 s. A0 l I通过以上描述,我们不难看出,遗传算法不能保证一定能求得最优解,而只能以一定的概率求最优解。但是使用遗传算法时,我们可以不用关心具体如何去找最优解,要做的只是简单的否定一些表现不好的个体。这一优点也是遗传算法能够取得广泛应用的原因之一。+ S# ^5 J& ?( z5 S4 g& O- r
$ M/ N3 V9 T+ y) S) U9 A2.2、算法的流程. G v3 o- B( N: u' `* c
通过上文的阐述,对于如何模拟自然进化来求题中多峰函数的最优解已经比较明晰了。这里我将列出遗传算法的主要步骤,并一一解析: y% a; l1 Q4 T% L
5 E0 T* t7 w1 E第一步:随机产生一个种群,作为问题的初代解(通常,初代解可能与最优解相差较大,这是可以容忍的,只要保证初代解是随机产生的,以确保个体基因的多样性即可);. p$ t! L' Q: G2 C+ M
4 Q/ p2 d; g D+ ?. x7 U第二步:寻找一种合适的编码方案对种群中的个体进行编码,可以选择如浮点数编码或二进制编码等常用编码方案(需要指出的是,不同的编码方案直接影响后续遗传算子的实现细节);# }/ M8 I7 K7 r6 d5 z
0 ~* [2 q8 G6 A0 m) Q2 b
第三步:以多峰函数的函数值 作为个体的适应度,计算种群中每个个体的适应度(算出的适应度将为后续的个体选择提供依据);
" I4 Q, |& s6 |5 E5 t. {5 w: Y& [7 Z+ }7 p5 C% x) ~4 m& T
第四步:根据适应度的高低选择参与繁衍的父体与母体,选择的原则是适应度越高的个体越可能被选中(以此不断淘汰适应度低的个体);
) Q$ g: F6 |7 v/ x' ? [9 q
1 S3 N( `( f. m! ]1 C' F" Z1 ^3 }& l8 h第五步:对被选出的父体与母体执行遗传操作,即复制父体与母体的基因,并采用交叉、变异等算子产生出子代(在较大程度保留优秀基因的基础上,变异增加了基因的多样性,从而提高找到最优解的概率);" ^+ d3 l G" w( d
$ @5 V/ M0 |: d0 H( q( A第六步:根据一定的准则判断是继续执行算法,还是找出所有子代中适应度最高个体作为解返回并结束程序(判断的准则可以是设定的解的阈值、指定的迭代次数等)。
- D9 M4 l7 }( a( J0 s. p, j) K% k; V5 n: w6 @8 S
+ } n5 F; h. `! W
4 ?' p3 W/ s* y, B+ H二、源代码" D+ f; L8 j+ {( p' ?8 M7 Q% d" N
5 @1 ^, z6 d0 M5 P5 y+ q& {
- clc
- close all
- clear all
- %% 模型参数
- n=20;
- Axes=[35,44;13,36;22,59;30,79
- 39,60;31,26;25,21;40,16;52,38
- 63,17;66,71;62,50;41,29;71,35
- 91,37;25,33;82,74;52,80;49,11
- 22,11];
- Land=[-8,65];
- Dom=((Axes(1,1)-Land(1))^2+(Axes(1,2)-Land(2))^2)^0.5;
- Dist=getdist(Axes);
- Output=[122,77,75,68,87,96,90,110,127,...
- 155,141,135,103,163,170,81,147,145,129,95];
- Ship.Cp=[1300000,2100000,1e15];
- Ship.Ctr=[65,90,1e15];
- Ship.V=[18,14,1e15];
- T.all=15*365-1;
- T.main=7;
- %% Ga参数
- GenMax=200;
- Pc=0.5;
- Pv=0.5;
- Gen=0;
- Popnum=100;
- Chrom=struct;
- NewChrom=struct;
- %% 生成初始种群
- for i =1:Popnum
- Chrom(i).Index=randperm(n-1)+1;
- Chrom(i).RouteNum=randi(n-1,1);
- Chrom(i).Routes=getdivide(Chrom(i).RouteNum,Chrom(i).Index,n);
- end
- while Gen < GenMax
- Gen=Gen+1;
- for i=1:size(Chrom_all,2)
- ship=[];
- RouteL=[];
- ShipNum=Chrom_all(i).RouteNum;
- for j=1:ShipNum
- EachL=0;
- Route=Chrom_all(i).Routes{j};
- EachOutput(j)=sum(Output(Route(2:end-1)));
- if EachOutput(j)<=300
- ship(j)=1;
- elseif EachOutput(j)<=500
- ship(j)=2;
- else
- ship(j)=3;
- end
- for k=1:length(Route)-1
- EachL=EachL+Dist(Route(k),Route(k+1));
- end
- RouteL(j)=EachL;
- end
- Chrom_all(i).Ship=ship;
- Chrom_all(i).Length=RouteL;
- end
- [bestC,ind]=getbest(Chrom_all,Ship,Dom,T);
- Chrom=Chrom_all(ind(1:Popnum));
- Best(Gen).Gen=Chrom_all(ind(1));
- Best(Gen).C=bestC(1);
- end
- % %% 淘汰
- plot([Best.C])
- title('总成本进化曲线');
- xlabel('迭代次数')
- ylabel('总成本')
- %
- % end
- % X+ z' b M+ O7 C: C9 U, ^, ?
7 T+ \- [0 _- x" n P) \$ r% P2 f5 N9 |: F$ P
/ v! q4 l# T' L N- f
三、运行结果
/ w7 i. ^, f2 g8 }* P; P; [7 m* j! S) i8 m' d L" T
- z# T9 v& y3 a% }8 Q' [2 ? |
|