QQ登录

只需要一步,快速开始

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

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

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

5273

主题

82

听众

17万

积分

  • 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解法  m& U5 J& k# L2 @& p9 z0 |
    一、 从规划问题引入
    : d  Q% Q5 ]4 T! P* E& J; d- ~4 ?* J5 P& w1 A
      在我们学习探索的各个领域,规划问题都是无处不在的。通过列出约束条件及目标函数,再画出约束条件所表示的可行域,就能在可行域内求得目标函数的最优解以及最优值。当然我们在高中就已经学习过线性规划的相关知识,对于理科同学来说,大多数同学应该感觉难度不大,或者说是送分考点。然而到了大学阶段,一些规划问题的求解已经不是人力可以轻松算出来的了,必须借助于计算机来进行计算。那么对于规划问题的软件选择,又应当如何进行呢?) Z! H: ]# S+ |6 f: g
    * J$ H) n7 n* h! X1 L4 x) a
    二、 软件分析与选择
    : O, O$ [9 a* n* _3 T  E7 ^2 ~, B4 {( L2 O* i+ ^
      Matlab相比之下是一个面面俱到的编程软件,也可用于求解规划问题。但是如果一定要去和某些“针对特定功能而开发的软件”去比的话,Matlab有时也会稍显逊色。就好比一款顶级的耳机能通吃高中低音,但是去和另一款顶级的为高音而设计的耳机去比较的话,也难免会被比下去。这也就是为什么在规划问题上,很多人会去使用Lingo进行求解。
    $ W, ~% X$ e$ o; A2 ^9 |/ O2 v& c2 u6 [5 P; v
      首先我们来区分一下Lindo和Lingo这两款软件。Lingo是在Lindo基础之上做成的软件,处理解线性规划问题之外还加了非线性的求解器,更关键的是还追加了集的概念。可以更方便的解决复杂的问题。所以本文只对Lingo进行讲解。
    & H( @- \8 u6 o" R4 L  而对于Matlab与Lingo的区别,就好比手动挡与自动挡的区别,有针对性的专业软件会对用户做很多的优化。这里引用知乎上大佬 花开花落 的回答
    5 F6 j7 \! k: _, ~https://www.zhihu.com/question/49319704/answer/165923451" F* y; N. F8 z
    3 S7 |: P# _2 V+ v3 L7 s! y* I
      用MATLAB求解线性规划和整数规划问题,需要先将问题转化成如下标准型,其中X只能是向量,也就是单下标变量,然后用向量和矩阵来表达目标函数和约束条件。 : m& F; f- a6 O* z9 h1 L
      然而,许多问题(如指派问题和运输问题)由于参数和决策变量是双下标变量,必须在基本的数学模型的基础上进行变换才能求解,这样得到的等式约束和不等式约束的系数矩阵规模就非常庞大,当然由MATLAB计算问题不大,但转换工作完全要由人工完成,工作量大而且容易出错,因此在这一块效率不高。
    2 w/ M" r! H  y4 l$ P  t$ ?  而LINGO有自己的建模语言,在建立了集合的基础上,能够高效表达目标函数和各种约束条件。所写的模型基本上可以看作是对数学模型的翻译,不需要太多的转换。
    & W$ ^9 u+ O6 J  E* i3 S/ c  I+ B8 q( p4 D6 }3 {2 G/ b
      那么现在我们基本上对LINGO和MATLAB对规划问题的处理方面有了初步认识与了解,至于是执着于MATLAB还是选择开辟LINGO这片新的领域,取决于队伍自身了。5 `$ M8 g/ y: l! Q
      r$ ^' L( ]4 t
    三、 如何上手Lingo3 }$ N/ I. z+ W: e& i$ z2 W7 G
    8 B# _; e6 e3 B( E9 L) Y$ [
      有很多人对于Lingo的评价都是,非常简单的软件,很好上手。
    ) ^) P8 K( o5 ~/ R& {- Z" R  “简单”一词我觉得还比较恰当。Lingo的各种版本几乎全部都是免安装版本的,界面很简单,功能用法很简单,处理问题的方式简单快捷。确实是跟“简单”一词挂钩的。但是任何一款软件想要精通,都是有一定难度的。如果你只需要用Lingo处理一些简单的线性问题,那么2个小时不到,0编程基础的朋友就能上手。如果你认准了Lingo就是你处理各类规划问题的御用软件,那么还是有很长一段路要走的。当然这也取决于用户的编程基础。如果学习过面向对象的程序设计课程的朋友,对于类与对象概念有所了解,那么对于集这一概念也能快速理解上手,学习起来更加轻松。
    # v, w5 l! w( f
    " f2 {, r+ b! b  z0 z( j四、 Lingo的基本语法规则% d0 J- r  x4 S2 I
    ' H3 H3 ?; j: x0 i: v6 a7 v9 H
    1、求目标函数的最大最小值用 MAX=MAX= 和 MIN=MIN= 来表示;
    8 }& q/ q& g' G3 w+ [2、每个语句必须用分号“;”结束,每行可以有许多语句,一个语句可以跨行;   q! z3 m% q- Q! z
    3、变量名必须以字母A-Z开头,由字母、数字0-9和下划线组成,长度不超过32个字符,不区分大小写;
    / Y: ~: t$ e1 }/ K, ?! Y4、可以给语句加上标号; 2 i& d8 q5 v6 N  L  a& f
    5、注释以“!”开头以“;”结束;
    0 `4 B- F6 g' d" z1 L/ g6、默认所有的决策变量为非负数;
    9 f2 l1 O' U* y+ k5 Z7、Lingo模型以“MODEL”开头以“END”结束。
    + I; ^9 _9 f8 B2 u- l3 H8、Lingo把相联系的对象聚合成集,借助集,就能够用一个单一的长的简明的公式表示一系列相应的约束。
    9 c8 D3 G% t, B" w$ G4 |9、Lingo程序会包含集合段,数据输入段,优化目标和约束段,初始段和数据预处理部分。
    2 }9 N+ r8 d4 W, B) @. U10、Lingo函数包括有数学函数,金融函数,概率函数,变量界定义函数,集操作函数,集循环函数,输入输出函数,辅助函数等等。
    # V' W+ H. E$ r- l+ [) s* A; A1 S) V) L+ D& [0 C! w6 h
    五、 谈一谈例子, z2 t, u; n  ^" L3 p$ [7 i

      h# ^' p: [5 `) g; X7 g) M# }  那么Lingo用起来到底有多简单呢,我们来看一个例子。
    7 f# _) g, X/ X+ |$ N8 m
    6 x& c5 z9 n0 h8 T: r" ?0 i3 l例1:某家公诉制造书桌、餐桌和椅子,所用的资源有三种:木料、木工和漆工。生产数据如下表所示:" `( [% a. O0 X4 D2 `6 t

    * J  a7 l/ a9 L2 E& I1 |9 y4 U         每个书桌        每个餐桌        每个椅子        现有资源总数
    ; z: o6 V7 H7 `- _- W2 l* u) m& u木料        8个单位        6个单位        1个单位        48个单位
    4 G6 e0 c( `) \+ F漆工        4个单位        2个单位        1.5个单位        20个单位
    % R7 z/ }3 M* O  I" F木工        2个单位        1.5个单位        0.5个单位        8个单位  x' d5 L! \5 P$ q" U/ ^; U0 \
    成品单价        60个单位        30个单位        20个单位         ! e) j0 R0 {* p& @3 ^- ^. }
      若要求桌子的生产量不超过5件,如何安排三种产品的生产可使利润最大?' c2 V' x+ [& w, s2 O7 W
    / {6 i$ ?5 o" z. S0 _
    解:代码- j8 D: ]7 B* G% k, ?: N) }

      T+ Z8 p/ ]) ]& \. gmax = 60 * desks + 30 * tables + 20 * chairs;( b* C! h* J+ V9 U7 b# @
          8 * desks + 6 * tables + chairs <= 48;
    % @0 X% S, H6 N2 F      4 * desks + 2 * tables + 1.5 * chairs <= 20;* n) J2 X2 u* n! d# x2 h" _0 H: D' m9 \
          2 * desks + 1.5 * tables + .5 * chairs <= 8;) A9 s* Z/ i% G
    tables <= 5;
    * o9 }1 @/ c6 v  }/ w' B+ I6 f1" x! l  Q0 m* d: k9 p
    2
    & a  q. N7 n* t! z; k3% F' |/ \* E4 I2 u0 r' @
    47 I- H  Z* G4 A+ ]$ U8 s
    5
    2 z0 \/ J1 D0 L& \) u可以得到结果:
    5 X0 B. a! n: A5 x  x9 z" l; |* T6 Z
      这里的 Total solver iteration 表示一共迭代2次得到最优解。 2 |  j. q" K: r) [3 [# C3 H7 w
      Objective value 表示最优值为280,而取280的时候各个变量取多少呢,底下的表格给出了答案。
    $ b: v. B, j0 x, A9 ^: U+ p4 w: s  可以看到,没有定义变量,简简单单一个函数一个约束条件,迅速计算出了答案。Lingo看上去就像是为了非编程人员量身定制的一样。
    * \0 S4 ?' {* q/ I! [- ^# X5 a- B2 w" L% f# U% o* M0 M
    例2:给定一个直角三角形,求包含该三角形的最小正方形。0 j$ Y% N+ L9 W" C4 y3 u% a1 X
    + Z( u2 |/ r; n% Z
    我们可以作出如下正方形:
      c0 z+ s1 @. l! e/ W
    + n% R% b2 I# t* H: ^6 e. k
    3 M7 Q& j$ Z1 }6 B) u+ H  CE=asinx,AD=bcosx,DE=acosx+bsinxCE=asinx,AD=bcosx,DE=acosx+bsinx
    ( x/ B0 ?. S$ x6 V& s5 q  转化为了规划问题那么正方形面积最小的时候即为最优解。
    7 _# o! A4 P# p; `  代码:
    " l& z8 n) o, {0 T) @5 o0 p
    1 r3 [; D3 q3 R3 Amodel:' ]$ n+ Y& F$ G7 y: H0 j
    sets:) e# O) n' T7 ^4 w: p
        object/1..3/:f;- x. M8 B! k0 X  W- ]; K
    endsets/ O: j0 V# U8 ~: f; U1 P2 n1 n
    data:. ~% y7 R. q/ o
        a, b = 3, 4;8 ~' E7 V% h7 l# R, X* M
    enddata
    , Y2 r9 C2 M0 Y2 j    f(1) = a * @sin(x);% w3 }$ W# Y  G4 n7 C6 g
        f(2) = b * @cos(x);3 V0 S2 ]1 }& g" U! N, i
        f(3) = a * @cos(x) + b * @sin(x);; p& d( e0 r. l/ B. b1 g* J
        min = @smax(f(1), f(2), f(3));$ t# _0 n; i# f8 R5 N5 w6 W) K$ |
        @bnd(0, x, 1.57);- S! K% T0 ^- p8 s# ~
    end
    ) H4 D  g0 j3 f* O# v0 U6 L! ~1& h8 k0 @/ [" l" T
    2( f0 p* U: n" T- e3 i  y
    3
    / ]7 f3 Y, y; B9 e4
    ( _- x4 Z+ F* p9 i55 }; x% m! _# H7 Y- E
    63 h. D0 l3 M. _1 a& V' r8 ]
    75 |- E+ k2 Z& F1 l$ q0 X6 q
    8: I5 D# z  b9 D& R
    9
    0 z; }" H& y7 L5 w10
      W: {# |7 P% w# K11
    + g! ]$ q6 p; ]; I6 o+ j12* b3 t9 H" L& q; A' ^
    13
    + q; j5 V, v7 |! G; x' Z! I* V  得到结果: * q2 o% S4 C8 y' v& l0 {
    4 w" k- a  d! ]
    : t; ^3 C$ X" Q% i9 V/ u" j
      这里需要注意,lingo中如果没有代码说明,是默认 xx 的值大于0的。代码中用 bndbnd 函数限制了 xx 的范围。
    8 w& f3 l: g+ ]# X4 V' Y  那么再进阶一下,Lingo在处理TSP问题的时候表现如何呢?* v. F5 B5 N6 n8 e

    " j2 G  p# ^4 Y' q1 T. Z例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 的一个圈置换 ππ 就表示对所有零件的一个加工顺序,在此置换下,完成所有加工所需要的总时间为
    0 R% i2 _9 ^+ U# X" t6 C1 P∑i=0n(ciπ(i)+piπ(i))=∑i=0nciπ(i)+∑j=0npj1 l) ~: {) N% R) S$ v
    ∑i=0n(ciπ(i)+piπ(i))=∑i=0nciπ(i)+∑j=0npj7 q5 h/ R9 }3 A0 M* g
    由于 ∑nj=0pj∑j=0npj 是一个常数,故该零件的加工顺序问题变成TSP。. C0 |" U/ x' N& E, I0 z/ r

    7 f, E' \8 v( N3 E9 ?代码:# q# v$ z8 h+ P& V

    + A' {5 J. d+ C!旅行商问题;6 K" Q# V% H4 {* m0 d
    model:+ [' }9 A) [5 P8 c3 {7 T
    sets:# @+ w& W! F& k) ?* q- T
        city / 1.. 5/: u;
    4 Z9 A% ~) J: Y* u3 d    link(city, city):+ B" t; ^) x& `- ~
            dist, x; !距离矩阵;2 h% m0 t- p- h0 H7 F
    endsets
    ) z+ @- g  O6 H) x* {    n = @size(city);
    ) q) P3 a/ Z# I. bdata: !距离矩阵,它并不需要是对称的;4 p; w# }+ Q/ ~2 w; ~" e
        dist = @qrand(1); !随机产生,这里可改为你要解决的问题的数据;
    5 w5 N' J& K7 m2 r- L. `enddata
    % K& |* h6 X" l4 L    min = @sum(link:dist * x);
    & _9 `8 Y1 s% c0 g# z, W+ z    @FOR(city(K):) k% m4 i* e% ]0 g. D
            @sum(city(I)|I #ne# K: x(I, K)) = 1;& }0 \; F4 [5 E8 J; L, n
            !进入城市K;# b% X- c0 c1 d, u! m
            @sum(city(J)|J #ne# K: x(K, J)) = 1;8 T$ H  H! f3 L
        );+ y7 L$ p, _& n. O' p( w2 C  |0 p# t
        @for(city(I)|I #gt# 1:2 }$ g- r& j, g
            @for(city( J)| J#gt#1 #and# I #ne# J:5 }" W+ ~9 d9 X+ S
                 u(I) - u(J) + n * x(I,J) <= n - 1);
    ; k5 r: z4 E" T5 K    );
    % _. G5 r- B) Q$ d. R# G* @- d@for(city(I)|I #gt# 1: u(I) <= n - 2);
    ! U; A& c4 ]; q# E% @@for(link: @bin(x));
    $ p  V, b: L6 `9 A1 ]end
    ( h! {( I: Z$ @1
    # m+ b9 d. R1 l2 L  }9 ^2 X2
    ) \0 c/ Q; }3 x% h+ z+ ]# d" w3+ q1 {  B3 T* T0 I/ _
    4
    ' O$ P- j9 k6 W6 X* d3 x' h5! Y" N* P1 d$ B2 p$ Y2 e& g- B
    6
    0 [8 H/ o& B' u2 \* I! f7
    2 p. v# k6 y2 i& Y+ D& n8
      }( H% ?5 y2 T9
    ) K5 r# a/ a, ^9 s3 k& l" M) R" p10
    % Y# {4 A8 _6 l1 ~& M" N) L. u. i11
    ! U% k0 M3 f. J4 g8 J12
    " K" m$ D- e& M- f3 e- R, S  b13
    8 |: x8 n$ r- s2 L3 D14$ f7 h: ^$ k, D
    15
    7 c  C( [5 J5 j16
    1 s5 v( M+ d' Q17
    + e& Q, z% p% _- R3 f1 C3 J( T2 [18
    1 s& k& J- }$ M0 f1 q, _# y6 `+ U19( {. g$ [) E% x  L% m8 l" d
    20
    4 u7 N9 o6 p* h! C9 y/ ]213 x0 p5 R+ q& C. F
    22. v! [: ^0 Z# z  `
    23
    2 z; P1 g5 W% P0 Q24! p  u0 [2 }$ s+ Q) d" `, e
    可以得到结果:
    8 f, `( X2 h( i( f  F1 X* |* }. }/ s$ ^( [
    ---------------------
    ) D9 h$ r1 k3 g! ~3 M, L  {1 G! R0 y
    % f6 W# b4 }8 j: u& W2 s/ t
    ) ?' t8 P& g3 u" Q" K

    ) D) H  a! r1 k7 m/ C
    8 N$ `3 v. s; e. {. Y4 E
    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, 2025-7-29 02:28 , Processed in 0.865812 second(s), 50 queries .

    回顶部