QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 8174|回复: 0
打印 上一主题 下一主题

2-7、规划问题的Lingo解法

[复制链接]
字体大小: 正常 放大
杨利霞        

5250

主题

81

听众

16万

积分

  • TA的每日心情
    开心
    2021-8-11 17:59
  • 签到天数: 17 天

    [LV.4]偶尔看看III

    网络挑战赛参赛者

    网络挑战赛参赛者

    自我介绍
    本人女,毕业于内蒙古科技大学,担任文职专业,毕业专业英语。

    群组2018美赛大象算法课程

    群组2018美赛护航培训课程

    群组2019年 数学中国站长建

    群组2019年数据分析师课程

    群组2018年大象老师国赛优

    跳转到指定楼层
    1#
    发表于 2019-4-25 16:16 |只看该作者 |倒序浏览
    |招呼Ta 关注Ta
    2-7、规划问题的Lingo解法
    $ Z3 p4 ?% ^& _一、 从规划问题引入
    9 b8 \3 G' c1 p: \8 y8 i) i$ C& D
    & E1 m) t1 B+ i* s. h6 Y  在我们学习探索的各个领域,规划问题都是无处不在的。通过列出约束条件及目标函数,再画出约束条件所表示的可行域,就能在可行域内求得目标函数的最优解以及最优值。当然我们在高中就已经学习过线性规划的相关知识,对于理科同学来说,大多数同学应该感觉难度不大,或者说是送分考点。然而到了大学阶段,一些规划问题的求解已经不是人力可以轻松算出来的了,必须借助于计算机来进行计算。那么对于规划问题的软件选择,又应当如何进行呢?
    3 _6 H+ Y: ^% Z. @3 F
    , D# v  I. c: B8 Q: e二、 软件分析与选择' P0 u3 v5 ]' x1 O: b6 O
    8 X- @' |  z8 k" w* F# T+ u
      Matlab相比之下是一个面面俱到的编程软件,也可用于求解规划问题。但是如果一定要去和某些“针对特定功能而开发的软件”去比的话,Matlab有时也会稍显逊色。就好比一款顶级的耳机能通吃高中低音,但是去和另一款顶级的为高音而设计的耳机去比较的话,也难免会被比下去。这也就是为什么在规划问题上,很多人会去使用Lingo进行求解。
    + L7 B! \1 I. E
      K1 o1 R$ I  K( \& }! k& s  首先我们来区分一下Lindo和Lingo这两款软件。Lingo是在Lindo基础之上做成的软件,处理解线性规划问题之外还加了非线性的求解器,更关键的是还追加了集的概念。可以更方便的解决复杂的问题。所以本文只对Lingo进行讲解。
    ) U5 E  W7 c  ^7 i! G: e3 X6 H" u: M  而对于Matlab与Lingo的区别,就好比手动挡与自动挡的区别,有针对性的专业软件会对用户做很多的优化。这里引用知乎上大佬 花开花落 的回答 ) ?/ ~& H  ~1 U
    https://www.zhihu.com/question/49319704/answer/165923451
    6 o1 h0 j9 g: i$ C; q- I( A! S) c- X5 G; n8 i. G3 d7 ~
      用MATLAB求解线性规划和整数规划问题,需要先将问题转化成如下标准型,其中X只能是向量,也就是单下标变量,然后用向量和矩阵来表达目标函数和约束条件。
    * j9 u7 w" g0 L9 k  然而,许多问题(如指派问题和运输问题)由于参数和决策变量是双下标变量,必须在基本的数学模型的基础上进行变换才能求解,这样得到的等式约束和不等式约束的系数矩阵规模就非常庞大,当然由MATLAB计算问题不大,但转换工作完全要由人工完成,工作量大而且容易出错,因此在这一块效率不高。
    & V* }9 _* S) D  p  而LINGO有自己的建模语言,在建立了集合的基础上,能够高效表达目标函数和各种约束条件。所写的模型基本上可以看作是对数学模型的翻译,不需要太多的转换。
    ; {' c7 O. b1 @$ q- U4 S2 ]* V1 h. G; n1 [+ }$ _8 t
      那么现在我们基本上对LINGO和MATLAB对规划问题的处理方面有了初步认识与了解,至于是执着于MATLAB还是选择开辟LINGO这片新的领域,取决于队伍自身了。
    ) q5 |" S. U$ M% S( g* y  `  }5 k* F! ]
    三、 如何上手Lingo
    9 ^& ]5 \3 b$ y; r' @" R
    0 q( R% w2 s+ g  E  有很多人对于Lingo的评价都是,非常简单的软件,很好上手。
    + m9 R; L1 b; ~- Q3 |0 ?6 ^0 V  “简单”一词我觉得还比较恰当。Lingo的各种版本几乎全部都是免安装版本的,界面很简单,功能用法很简单,处理问题的方式简单快捷。确实是跟“简单”一词挂钩的。但是任何一款软件想要精通,都是有一定难度的。如果你只需要用Lingo处理一些简单的线性问题,那么2个小时不到,0编程基础的朋友就能上手。如果你认准了Lingo就是你处理各类规划问题的御用软件,那么还是有很长一段路要走的。当然这也取决于用户的编程基础。如果学习过面向对象的程序设计课程的朋友,对于类与对象概念有所了解,那么对于集这一概念也能快速理解上手,学习起来更加轻松。
    5 H8 ~( w: G$ v% l3 {' G8 Q% o: z6 W! |
    四、 Lingo的基本语法规则; r* [6 a# u: o) w

    * }1 G) H7 c& ?1、求目标函数的最大最小值用 MAX=MAX= 和 MIN=MIN= 来表示; 2 j* Z! [4 C3 X, ]1 Q( {
    2、每个语句必须用分号“;”结束,每行可以有许多语句,一个语句可以跨行; 3 }/ D, E0 z, K" v; C0 @) ]
    3、变量名必须以字母A-Z开头,由字母、数字0-9和下划线组成,长度不超过32个字符,不区分大小写; - R' ^3 N% B3 U7 v% d
    4、可以给语句加上标号; " @2 ]4 \) a8 ~* z1 O6 T$ h
    5、注释以“!”开头以“;”结束;
    ) n- I3 {" O6 v( V+ _; V6、默认所有的决策变量为非负数;
    1 {6 `; {1 N$ O, q7、Lingo模型以“MODEL”开头以“END”结束。
    9 m7 p% A7 t! x1 A1 a1 z1 M: {/ e8、Lingo把相联系的对象聚合成集,借助集,就能够用一个单一的长的简明的公式表示一系列相应的约束。 8 O- }' F, g9 i. `3 V
    9、Lingo程序会包含集合段,数据输入段,优化目标和约束段,初始段和数据预处理部分。
    ' e5 U$ C8 ]% x7 |10、Lingo函数包括有数学函数,金融函数,概率函数,变量界定义函数,集操作函数,集循环函数,输入输出函数,辅助函数等等。( d8 ]9 D5 e# P. ^$ B

    7 I1 y: K5 Y( K5 `五、 谈一谈例子
    % j) m$ C) K  u" r6 e% c$ H8 \
    6 q1 `9 [! B9 Z6 o$ [- D- J) h  那么Lingo用起来到底有多简单呢,我们来看一个例子。
    5 W9 Z- b& X# l4 Q6 h6 u
    ; w) X8 o! F5 I2 h例1:某家公诉制造书桌、餐桌和椅子,所用的资源有三种:木料、木工和漆工。生产数据如下表所示:& \9 m7 G  g3 ~! k& Z: t6 M  s

    % ?: y+ S' u9 |& e( q! f5 P5 I         每个书桌        每个餐桌        每个椅子        现有资源总数1 Y8 S  W2 B/ g
    木料        8个单位        6个单位        1个单位        48个单位$ `7 r, x5 f) O- S
    漆工        4个单位        2个单位        1.5个单位        20个单位
    ' @! [3 C* Y% C" A$ Y5 d% r木工        2个单位        1.5个单位        0.5个单位        8个单位
    4 Y6 E+ E. k& Q* [成品单价        60个单位        30个单位        20个单位         * Y3 l, M4 ~' V
      若要求桌子的生产量不超过5件,如何安排三种产品的生产可使利润最大?
    : i6 L$ V# G, Z8 h: [3 ^" P* @4 Q; G" \- k
    解:代码
    4 Z# Z9 k& r4 t; L  o! K' m
    2 u- @( e9 Y8 L' {+ gmax = 60 * desks + 30 * tables + 20 * chairs;1 i& R2 k/ C; D' l" Y/ D+ f
          8 * desks + 6 * tables + chairs <= 48;
    2 D" H' i' [& p! ^! c. E      4 * desks + 2 * tables + 1.5 * chairs <= 20;
    3 {: y% R! o. {3 E5 H4 g$ u      2 * desks + 1.5 * tables + .5 * chairs <= 8;/ ^0 T1 F: {" V' R
    tables <= 5;  q) G& k# I- v
    19 {" r4 w9 D# ]$ G
    2
    0 Z5 m" p8 [$ n/ n# x3 O% @: k3
    7 F- {" h6 ~3 |* i, A4
    ' M% u! S* B4 y) `58 a  C5 l& p- P; L
    可以得到结果: ) L, {4 q7 X6 b5 b* a5 {  a4 w0 s
    + d: b# `; x2 u- ]3 D$ m3 ?- O
      这里的 Total solver iteration 表示一共迭代2次得到最优解。
    ; h+ M+ d+ A8 n, K  Objective value 表示最优值为280,而取280的时候各个变量取多少呢,底下的表格给出了答案。 # n1 I, ]6 I4 m& C7 ~+ }4 w# F
      可以看到,没有定义变量,简简单单一个函数一个约束条件,迅速计算出了答案。Lingo看上去就像是为了非编程人员量身定制的一样。
      Z! n' j, n( ?. ]! f; F6 q/ H3 i6 D7 V- Y* k
    例2:给定一个直角三角形,求包含该三角形的最小正方形。
    $ H  \% j# V5 H0 _* r4 c( h4 [
    / j6 a8 @& j% t, S3 p1 W我们可以作出如下正方形:   _  b/ v9 X2 S) O7 O

    3 z1 `; T% w- \1 E. t9 u9 f, u8 O
      CE=asinx,AD=bcosx,DE=acosx+bsinxCE=asinx,AD=bcosx,DE=acosx+bsinx
    0 N0 v; v/ r0 K( |# o, p- |  转化为了规划问题那么正方形面积最小的时候即为最优解。 ( B7 r7 `6 }2 w$ t- x$ W
      代码:
      x$ D5 |1 h7 @+ _8 k$ f; E, w3 U5 b4 R9 z  v( m8 u9 ~
    model:2 Y( p% V) o3 J# J# W1 z6 y+ j
    sets:
    7 B- G4 j8 U6 J" l# k2 M    object/1..3/:f;
    9 ?2 a- [5 o& Y. e/ V7 o( W3 jendsets
    ; r: u2 d. A* r: e$ l. [data:" H( c) q. u! @) z  C: T
        a, b = 3, 4;
    4 D( g/ s5 ]. B- q: [8 e7 ?3 }enddata
    % A' a5 o  Q; P8 a( J5 J0 u    f(1) = a * @sin(x);
    2 z7 \/ y, u: u3 Q8 O    f(2) = b * @cos(x);
    ' Q# C5 `$ ^$ c+ _7 V$ m* N    f(3) = a * @cos(x) + b * @sin(x);& R% s  W' K5 s/ A% G
        min = @smax(f(1), f(2), f(3));
    / I+ M/ b' L- W9 ?1 Z    @bnd(0, x, 1.57);
    : U& w0 T  R4 d4 K6 Nend! P9 [: r& o8 O" |7 q
    1# E$ m7 ~5 i+ U7 O2 ^8 |9 O
    2
    ; L6 }( c/ L2 Y3; l5 u% A2 d/ }5 g5 F7 H+ v' s- }/ \$ k
    4
    " W& G* E2 V3 u, b5
    : @& n6 H5 ?+ }: U% [! c68 o! u: A* e9 s, s1 ?! `, e
    7& l  p0 Y2 q0 z4 v4 ~/ |. _/ _
    86 \. M: K$ I1 A7 K/ Q
    9
    6 O4 c7 m3 l9 d100 z2 m# ~" g6 N/ O, |+ k/ {$ Z
    11, e5 [+ f2 V2 j1 _  a6 u" e
    12; H$ G; X0 W! G/ z9 z
    13
    ( D+ Z1 Q' m  Q! O. D  得到结果: 9 F8 U3 ]7 Z7 `! g* z9 N" |% |

    : B( Z& M% t7 T6 |5 |. x- u4 w
    - D8 n' E$ w- U4 G  这里需要注意,lingo中如果没有代码说明,是默认 xx 的值大于0的。代码中用 bndbnd 函数限制了 xx 的范围。
    / ]2 _( ^) @# \4 L; X9 z  那么再进阶一下,Lingo在处理TSP问题的时候表现如何呢?1 P  O. D" O- [. T6 Y5 F' o

    8 D: y+ x0 p3 p: [例3: 现需在一台机器上加工 nn 个零件(如烧瓷器),这些零件可按任意先后顺序在机器上加工。我们希望加工完成所有零件的总时间尽可能少。由于加工工艺的要求,加工零件 jj 时机器必须处于相应状态 sjsj(如炉温)。设起始未加工任何零件时机器处于状态 s0s0 ,且当所有零件加工完成后需恢复到 s0s0 状态。已知从状态 sisi 调整到状态 sj(j≠i)sj(j≠i) 需要时间 cijcij 零件 jj 本身加工时间为 pjpj。为方便起见,引入一个虚零件 00,其加工时间为 00,要求状态为 s0s0,则 0,1,2,…,n0,1,2,…,n 的一个圈置换 ππ 就表示对所有零件的一个加工顺序,在此置换下,完成所有加工所需要的总时间为
    7 A% e; a! V* \) R2 A6 B∑i=0n(ciπ(i)+piπ(i))=∑i=0nciπ(i)+∑j=0npj! u1 o! M& L3 w- U" u5 v
    ∑i=0n(ciπ(i)+piπ(i))=∑i=0nciπ(i)+∑j=0npj
    6 i' d& j/ T# ?* k' K9 i' }由于 ∑nj=0pj∑j=0npj 是一个常数,故该零件的加工顺序问题变成TSP。8 {& t0 s7 ?  S  h  T/ u* x

    : E0 f  r" \) {) I代码:% S" u6 {& `5 p3 U& J

    1 p7 H0 o; I7 N; a+ g!旅行商问题;1 H0 ?  W# w  Z# y/ J. A. p& z
    model:
    9 g1 B. M. C" v5 [6 Z4 s1 fsets:2 Q7 B5 e- W- d. {
        city / 1.. 5/: u;+ i' j. z6 v3 x# f2 y  U  A% Q+ D
        link(city, city):
    2 D0 B" b- G  a( A# \        dist, x; !距离矩阵;
    6 N! j4 @3 l( u2 j9 }: O/ j# |endsets
    + y4 K1 w* u2 O    n = @size(city);
    4 M! `# |. x9 `4 u7 T1 |0 i. Rdata: !距离矩阵,它并不需要是对称的;+ |  Q) Z1 J, [" h( Q& a& l
        dist = @qrand(1); !随机产生,这里可改为你要解决的问题的数据;; n* ~  Q: T  R8 O; E" u4 |
    enddata$ |4 H: W, i; s% M  X
        min = @sum(link:dist * x);
    $ X2 l5 f1 U  N0 g( j. s8 H    @FOR(city(K):
    ' a& `3 y5 ~4 S1 _        @sum(city(I)|I #ne# K: x(I, K)) = 1;
    # Y( J3 l; f( Q: q+ ~        !进入城市K;
    , M9 N7 i5 p* r        @sum(city(J)|J #ne# K: x(K, J)) = 1;/ h) E" y# c; X: J) f- u* k
        );
    4 W- S7 y9 }, ]    @for(city(I)|I #gt# 1:3 Q5 J' K2 |( P- l
            @for(city( J)| J#gt#1 #and# I #ne# J:9 ]  M+ w0 I) K. }* U; m2 R, m; h
                 u(I) - u(J) + n * x(I,J) <= n - 1);
    ) b% I6 x* d- r+ s( ~% f# b    );& c$ v. ~. K# N
    @for(city(I)|I #gt# 1: u(I) <= n - 2);! s  _2 R7 D+ M8 n: }$ O- t
    @for(link: @bin(x));
    : M5 e6 C9 e: U3 F4 G& f4 Lend
    4 R; @4 g6 m" ?2 w1
    : r/ d' E: ^" o# G" m- E5 Z; @2& [& i5 K* z, H- ]3 U: e7 M( g
    3
      p8 w( q! c9 q( K% |4" Z/ h3 K' [" H7 D# }+ T
    5
    1 M; S- n4 m' V! v! U+ T- f6  \3 P/ r" [9 i: x8 a, C+ J# N
    7( C) [% S6 P- Y0 A! G, Z
    87 ]) {6 _$ I1 m8 h: e
    9
    7 G; Q+ j3 M4 `4 \6 j3 J$ B' Y104 R/ h( A5 {. o8 V4 }/ Q& y
    11" N9 Z  G7 W& X. t
    12
    + T2 Q2 H% Y9 f) E' X9 t  S: }13
    5 ]' ^. y/ S4 O3 _# P143 V% ]. Y2 v" I: L2 J+ |
    15
    3 Q2 r0 n+ I. y16  d8 |3 u+ u, f
    171 c! G8 [4 @0 R5 f8 e8 @& e2 O
    18* t# L# D+ P4 I: @# S; ~- I
    19
    % c0 E, Q% j. f4 M8 U. k20
    1 k2 N+ l' U7 ~% D7 {6 x21
    # X' B0 a$ P! G2 I22; B7 ~# g2 T4 f' a* m
    239 f6 j) s  N5 A1 F
    24
    % l- i' \# p7 F8 e可以得到结果:
    + O' d* u, v, ~( k
    / A* X+ a: Q2 \- Z/ G/ s& o2 E2 [---------------------
    ' ~! q; h' ]5 P( }3 H, l0 {( O2 S7 p. B" l

    & O, G4 [7 G- V+ V' M: K0 z* |8 O: i. B) \8 m
    ; m: P; W! W* p# \7 N, s- L

    - |% ^3 [( ^$ e  r
    zan
    转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2024-5-7 21:20 , Processed in 0.293972 second(s), 50 queries .

    回顶部