QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 9858|回复: 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解法, ]2 o9 _) Q7 X! D) N+ O% B6 \
    一、 从规划问题引入
    . m+ f1 |" l; H8 A1 i
    & K0 c0 t# K: O( W/ g: d. U: f  在我们学习探索的各个领域,规划问题都是无处不在的。通过列出约束条件及目标函数,再画出约束条件所表示的可行域,就能在可行域内求得目标函数的最优解以及最优值。当然我们在高中就已经学习过线性规划的相关知识,对于理科同学来说,大多数同学应该感觉难度不大,或者说是送分考点。然而到了大学阶段,一些规划问题的求解已经不是人力可以轻松算出来的了,必须借助于计算机来进行计算。那么对于规划问题的软件选择,又应当如何进行呢?5 O; a$ P5 N) x" ^% B

    . \' @, t) h- x0 K# H3 T$ Z二、 软件分析与选择
    ; y8 h. }+ p* w% {+ z& {; g5 {( V3 R. v* T
      Matlab相比之下是一个面面俱到的编程软件,也可用于求解规划问题。但是如果一定要去和某些“针对特定功能而开发的软件”去比的话,Matlab有时也会稍显逊色。就好比一款顶级的耳机能通吃高中低音,但是去和另一款顶级的为高音而设计的耳机去比较的话,也难免会被比下去。这也就是为什么在规划问题上,很多人会去使用Lingo进行求解。) f* t5 n! f) B- M
    & k( K0 j0 F+ U( V# ^% B9 m
      首先我们来区分一下Lindo和Lingo这两款软件。Lingo是在Lindo基础之上做成的软件,处理解线性规划问题之外还加了非线性的求解器,更关键的是还追加了集的概念。可以更方便的解决复杂的问题。所以本文只对Lingo进行讲解。 & C# _; v% t- T# L
      而对于Matlab与Lingo的区别,就好比手动挡与自动挡的区别,有针对性的专业软件会对用户做很多的优化。这里引用知乎上大佬 花开花落 的回答
    : r/ N0 [# M. t$ D4 R/ b% V1 q  _https://www.zhihu.com/question/49319704/answer/165923451; [# _: j% j; }7 t$ T; E

    ( v) Y$ y4 G. \4 M7 |' l, r* Y  用MATLAB求解线性规划和整数规划问题,需要先将问题转化成如下标准型,其中X只能是向量,也就是单下标变量,然后用向量和矩阵来表达目标函数和约束条件。
    6 M. o& }; J6 j- \  然而,许多问题(如指派问题和运输问题)由于参数和决策变量是双下标变量,必须在基本的数学模型的基础上进行变换才能求解,这样得到的等式约束和不等式约束的系数矩阵规模就非常庞大,当然由MATLAB计算问题不大,但转换工作完全要由人工完成,工作量大而且容易出错,因此在这一块效率不高。 6 P2 T. l0 v& H- N
      而LINGO有自己的建模语言,在建立了集合的基础上,能够高效表达目标函数和各种约束条件。所写的模型基本上可以看作是对数学模型的翻译,不需要太多的转换。* Q1 I9 m* T( W* {" I! @8 H
    " u) j- }$ K) x" F; y/ H
      那么现在我们基本上对LINGO和MATLAB对规划问题的处理方面有了初步认识与了解,至于是执着于MATLAB还是选择开辟LINGO这片新的领域,取决于队伍自身了。! X. H- c" `0 Y6 ^% w
    % e/ }& w- H/ h, A1 s/ X
    三、 如何上手Lingo
    6 a# x& D3 y; o1 C7 c5 P+ B6 C5 r" m% P
      有很多人对于Lingo的评价都是,非常简单的软件,很好上手。
    , G" |! O  T% p6 \1 h0 U- m5 `  “简单”一词我觉得还比较恰当。Lingo的各种版本几乎全部都是免安装版本的,界面很简单,功能用法很简单,处理问题的方式简单快捷。确实是跟“简单”一词挂钩的。但是任何一款软件想要精通,都是有一定难度的。如果你只需要用Lingo处理一些简单的线性问题,那么2个小时不到,0编程基础的朋友就能上手。如果你认准了Lingo就是你处理各类规划问题的御用软件,那么还是有很长一段路要走的。当然这也取决于用户的编程基础。如果学习过面向对象的程序设计课程的朋友,对于类与对象概念有所了解,那么对于集这一概念也能快速理解上手,学习起来更加轻松。. ?. [% r( C. ~: C  Z3 z1 @
    . ^+ H, }3 Z% _1 I( H& w
    四、 Lingo的基本语法规则, [! J1 f6 }7 ?0 r
      y# g6 I- X! g0 N
    1、求目标函数的最大最小值用 MAX=MAX= 和 MIN=MIN= 来表示;
    ; {+ }: B( E( h7 w( Z" V; d2、每个语句必须用分号“;”结束,每行可以有许多语句,一个语句可以跨行; : c1 g8 D# K: ?. F3 t
    3、变量名必须以字母A-Z开头,由字母、数字0-9和下划线组成,长度不超过32个字符,不区分大小写; . U' D$ l9 ]+ ^1 C
    4、可以给语句加上标号;
    , }3 `, g$ ]- o+ v" T  C( n! e* V5、注释以“!”开头以“;”结束; " E! M1 ]4 w7 i+ g, V
    6、默认所有的决策变量为非负数;
    # R. e6 B4 t% V2 Z* F  K  V7、Lingo模型以“MODEL”开头以“END”结束。
    " A8 I: Y5 ~/ @5 F5 ^. Z8、Lingo把相联系的对象聚合成集,借助集,就能够用一个单一的长的简明的公式表示一系列相应的约束。
    + G( F4 S0 ~" U7 l- z- O, M9、Lingo程序会包含集合段,数据输入段,优化目标和约束段,初始段和数据预处理部分。 " C/ }$ |  G/ e, c' p: z* J
    10、Lingo函数包括有数学函数,金融函数,概率函数,变量界定义函数,集操作函数,集循环函数,输入输出函数,辅助函数等等。3 t. A- _0 M- a+ I- D# ^6 k  k

    1 z8 ^3 I5 \6 E& T! j  n5 B( `五、 谈一谈例子7 q+ g; F+ i; W5 T1 |/ d
    6 t& W; p9 W: I* m4 @% E: Z
      那么Lingo用起来到底有多简单呢,我们来看一个例子。
    ' Y) {+ g1 Z7 {3 f, {1 F0 ^: Z
    , i; a* D* u% ~/ g- u. R例1:某家公诉制造书桌、餐桌和椅子,所用的资源有三种:木料、木工和漆工。生产数据如下表所示:* `- y! j  k7 R

    # q* r( E& T( J7 r  t6 m         每个书桌        每个餐桌        每个椅子        现有资源总数* t1 }- X! r/ b( @1 n! q4 [
    木料        8个单位        6个单位        1个单位        48个单位
    " ]: `- V5 z  m漆工        4个单位        2个单位        1.5个单位        20个单位: A" A% S% h1 S
    木工        2个单位        1.5个单位        0.5个单位        8个单位, e# T" O' b- _2 Q
    成品单价        60个单位        30个单位        20个单位         5 W, V8 U9 v9 ?' c
      若要求桌子的生产量不超过5件,如何安排三种产品的生产可使利润最大?
    8 B% L4 v6 m! K/ s5 z. O# A0 H5 E0 g" G% ~
    解:代码2 A: D/ d- O1 D5 I! |

    3 c" A  f$ Y- z8 E# qmax = 60 * desks + 30 * tables + 20 * chairs;3 e; q/ t- n( ]4 N: i+ s- U8 p- v
          8 * desks + 6 * tables + chairs <= 48;
    / m5 h$ R3 J  _0 A% A4 ^# ~      4 * desks + 2 * tables + 1.5 * chairs <= 20;
    / l2 s* E' X0 o! [0 k  d      2 * desks + 1.5 * tables + .5 * chairs <= 8;* w. N) v2 }+ H+ a4 S
    tables <= 5;
    + O5 D5 [9 l7 h( @! w9 S10 t2 `' U1 B# E) U; w. E0 ^
    2
    0 {! `! s1 Y' Y' ^; {2 C. o/ @( W; H3; k# t) N1 x6 j9 `/ |% ~# F/ V
    4, h9 Q! \- e0 ^7 D1 Y; f) u" A3 _3 o
    5% h7 v) l. ?& m8 |
    可以得到结果: * v* @) f5 ^3 s+ o( L5 F
    - I, A' F9 i: K9 _; L4 h. e
      这里的 Total solver iteration 表示一共迭代2次得到最优解。 + @2 W* V% }; P, {9 a/ d
      Objective value 表示最优值为280,而取280的时候各个变量取多少呢,底下的表格给出了答案。 ) a1 s1 H, l) f
      可以看到,没有定义变量,简简单单一个函数一个约束条件,迅速计算出了答案。Lingo看上去就像是为了非编程人员量身定制的一样。, F$ g8 G9 o$ ~! @3 {, _, e

    ( h# c! i: o  Y% E例2:给定一个直角三角形,求包含该三角形的最小正方形。/ S" R$ W% [; T- H9 P+ N' J
    ) H4 n2 y, l: h* F( _
    我们可以作出如下正方形: 8 V/ {& W2 R- A" f; L0 C7 j4 b
    # u+ {8 ~0 a& N
    9 Y0 _' e4 P2 w* R( ]( z! `8 K
      CE=asinx,AD=bcosx,DE=acosx+bsinxCE=asinx,AD=bcosx,DE=acosx+bsinx+ ^" q# l% N1 Q: v
      转化为了规划问题那么正方形面积最小的时候即为最优解。
    / o7 H& R( z8 @8 K: I  代码:
    & }/ }3 B  o! I0 @: \5 }. |' O0 P% c9 D! E/ W1 q$ {
    model:! r$ @/ {% w5 B6 m: B! ^6 ?2 ^
    sets:
    ! M3 u+ T- T: W" L, ]  ]    object/1..3/:f;
    : K9 F+ i) ^& K, \1 l& cendsets; t/ I2 l8 d2 r" {
    data:# m! o+ ]+ |2 B& @- R% o, V
        a, b = 3, 4;* ~6 c; C3 D" [/ v
    enddata
    & w+ E4 D  A, ~/ }    f(1) = a * @sin(x);% @- C! D$ q9 o, j: {
        f(2) = b * @cos(x);
    ( K7 R$ g+ ]. r# T    f(3) = a * @cos(x) + b * @sin(x);9 j4 ~- F! n8 G- @$ R
        min = @smax(f(1), f(2), f(3));
    % B- y( ?2 T  B: z9 A    @bnd(0, x, 1.57);4 H9 t: S8 r/ x2 D5 g* {  V, R4 s8 N1 q
    end5 L" i% u. j" D/ N8 Z& C/ ]8 h9 W
    17 M3 H0 T. O9 c- V
    2" \' }# V5 K$ I& _
    3( ?$ z' T8 J1 `4 v9 d) E
    4
    2 H% V. p6 M7 Q5
    + {. E* K  M: X5 }( S# n9 ]- x/ Z6* g, H" ?' n  O# \: e
    7! p. L- w6 t. ~$ _4 }* q
    8  |5 k5 u9 |5 z
    9
    % j) p& o2 p& S0 M& w10
    # A: W( e8 c- `11. v8 z$ O  p, A; x
    120 U7 h6 C# _: n
    13# k3 ~' ]/ }, U5 C
      得到结果:
    3 _+ j; u8 D8 t! C2 v
    % n4 Y2 R# C; y, v, Q/ N% x
    + D+ O- j6 k: r- N  这里需要注意,lingo中如果没有代码说明,是默认 xx 的值大于0的。代码中用 bndbnd 函数限制了 xx 的范围。
    2 r- u" `) ^7 G! H9 b  那么再进阶一下,Lingo在处理TSP问题的时候表现如何呢?
    ( z1 V" c' z- ?* O) R# V! ?! b6 T, I
    例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 的一个圈置换 ππ 就表示对所有零件的一个加工顺序,在此置换下,完成所有加工所需要的总时间为 + y8 |) }, g* r+ d# F
    ∑i=0n(ciπ(i)+piπ(i))=∑i=0nciπ(i)+∑j=0npj
    5 `3 g2 I0 D9 \6 S+ a, p∑i=0n(ciπ(i)+piπ(i))=∑i=0nciπ(i)+∑j=0npj% J  m2 L8 x, c& {" M7 t) Z8 b* t
    由于 ∑nj=0pj∑j=0npj 是一个常数,故该零件的加工顺序问题变成TSP。
    2 ?( k" q" W7 X2 p  w5 y7 V
      B5 L# V" t, f6 i" P: u4 ]: g% k代码:7 M0 q7 V5 W9 r3 I+ Y
    " Z6 r4 A( Z; H: n6 [
    !旅行商问题;
    ' M& v3 f7 x2 ^- t! K; B0 V* e' nmodel:8 A  D6 N$ h5 X# x4 w
    sets:
    8 P: ~% S" l. |; y" n, k: ^    city / 1.. 5/: u;
    * U# a1 A% ^3 j" Q3 {    link(city, city):) R: T7 C) _' }) h6 X1 a; H7 W
            dist, x; !距离矩阵;; o  ~# Q5 T3 o1 G+ l% g
    endsets
    ) \4 L# z6 {4 p: s- ?& e    n = @size(city);
    , ]6 P" ?; D' f0 Pdata: !距离矩阵,它并不需要是对称的;+ r" Q- Q: l( W$ X  {% e
        dist = @qrand(1); !随机产生,这里可改为你要解决的问题的数据;
    % l. b1 }: q1 G$ W! b& }enddata
    / _( y9 m' ]$ b* w( V  Y' w6 s    min = @sum(link:dist * x);
    - H* {! J) H5 V7 x5 n% d    @FOR(city(K):
    ! m9 ?# q+ _/ q        @sum(city(I)|I #ne# K: x(I, K)) = 1;. h& m; G2 l7 _! T- @
            !进入城市K;/ S/ h$ A# S. W! E
            @sum(city(J)|J #ne# K: x(K, J)) = 1;4 g: R& B( H7 X
        );
    + _& Z/ w0 E$ q7 l5 E    @for(city(I)|I #gt# 1:
    5 h+ m6 r, ~% d" e+ V        @for(city( J)| J#gt#1 #and# I #ne# J:
    0 T7 q3 i0 U# o6 ?- w) [             u(I) - u(J) + n * x(I,J) <= n - 1);4 W& I# p7 t* F- {- D, U
        );
    . Q! P: F4 u0 v. U" {@for(city(I)|I #gt# 1: u(I) <= n - 2);
    - d9 L6 ]9 I$ c, e6 S- o@for(link: @bin(x));
    ) ?3 o: r, Y; r$ tend
    : v' J9 _  T2 {. F: F; j$ I15 L1 k1 H5 A1 H7 q. a, M7 h" ^
    2
    3 Q$ B9 S; c5 T1 h) N# e; Z30 T9 W* X9 ]! g5 |
    43 P' ^, u! L) }2 A
    5
    * Y4 T3 ~0 l6 l6 i; b# A61 ]+ ]" B4 T9 \  L
    7- b8 L! F8 R5 {$ Q' S; K% a% w
    8
    # _7 D3 X1 r# I9# n2 z& ~, i# O, ^$ s4 N
    10& X) p! e* C7 _! ^3 e
    11
      c# R4 K5 V% ~* I129 v. [+ ~* M+ w6 `+ v1 R4 B5 x& ]2 e* X
    13
    & Q4 E0 f8 g( o5 D6 r" L) M# k14
    ! }' D& a7 G$ L: _- S' H' G15$ q0 K. h$ T$ `0 c3 I7 R& Z
    16
    ) B3 k/ l3 G! [$ T5 b( N4 w17
    + B9 _" g8 l% I! ~18" p; h% B, d5 N& Z) B8 {7 m7 F6 X
    19! ^1 r1 ^# z1 ?
    20
    * T% J; ]3 M6 g, V1 }3 t- p2 N) S21$ [" O+ @3 V6 I% B3 O- ?5 s6 U+ |
    22/ {! n" X, u8 [- x
    23
    * H" q3 ]0 o0 r& ~24) p- R' `: `4 z+ j0 S
    可以得到结果: 1 C, U1 s+ y, {1 w

    & Q  D% X8 B7 H( L* K---------------------
    7 U' s$ d) r8 u7 J9 T' W' L
    5 d! G2 ~' b8 w0 G' p: r& o4 @% {5 \/ D# d: ^# `

    8 c: F8 R) m% v/ ?( e/ n
    # y0 I; h( h3 H8 Q' ~3 o7 U. l! \8 A
    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-11-10 10:22 , Processed in 0.978562 second(s), 50 queries .

    回顶部