QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 9683|回复: 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解法
    + a* J7 K0 z$ }一、 从规划问题引入/ X0 l2 h) R# s5 e
    % J9 f8 c8 v: M6 O
      在我们学习探索的各个领域,规划问题都是无处不在的。通过列出约束条件及目标函数,再画出约束条件所表示的可行域,就能在可行域内求得目标函数的最优解以及最优值。当然我们在高中就已经学习过线性规划的相关知识,对于理科同学来说,大多数同学应该感觉难度不大,或者说是送分考点。然而到了大学阶段,一些规划问题的求解已经不是人力可以轻松算出来的了,必须借助于计算机来进行计算。那么对于规划问题的软件选择,又应当如何进行呢?
    % B- Y6 h+ P6 U- t+ d2 [4 P( K5 `, q% X5 A8 }3 i
    二、 软件分析与选择
    5 D# X& k3 |  N# {3 |
    ( C) L! U# j$ w/ L, s" o3 d  Matlab相比之下是一个面面俱到的编程软件,也可用于求解规划问题。但是如果一定要去和某些“针对特定功能而开发的软件”去比的话,Matlab有时也会稍显逊色。就好比一款顶级的耳机能通吃高中低音,但是去和另一款顶级的为高音而设计的耳机去比较的话,也难免会被比下去。这也就是为什么在规划问题上,很多人会去使用Lingo进行求解。
    5 `6 e; w. L; {! C# w1 j$ f( Y* L6 l$ w2 G
      首先我们来区分一下Lindo和Lingo这两款软件。Lingo是在Lindo基础之上做成的软件,处理解线性规划问题之外还加了非线性的求解器,更关键的是还追加了集的概念。可以更方便的解决复杂的问题。所以本文只对Lingo进行讲解。
    / G% ^/ F& F3 d7 W1 ?0 z4 m% s8 L  而对于Matlab与Lingo的区别,就好比手动挡与自动挡的区别,有针对性的专业软件会对用户做很多的优化。这里引用知乎上大佬 花开花落 的回答
    - O3 N+ [5 |8 A  ]https://www.zhihu.com/question/49319704/answer/165923451( e0 t6 o# K' D! c  w
    ) V" q% p6 s' D% @% _3 \
      用MATLAB求解线性规划和整数规划问题,需要先将问题转化成如下标准型,其中X只能是向量,也就是单下标变量,然后用向量和矩阵来表达目标函数和约束条件。 9 K3 j+ z3 o* e9 x
      然而,许多问题(如指派问题和运输问题)由于参数和决策变量是双下标变量,必须在基本的数学模型的基础上进行变换才能求解,这样得到的等式约束和不等式约束的系数矩阵规模就非常庞大,当然由MATLAB计算问题不大,但转换工作完全要由人工完成,工作量大而且容易出错,因此在这一块效率不高。 ( b" v& y) @6 y8 @" v  Y: }! E
      而LINGO有自己的建模语言,在建立了集合的基础上,能够高效表达目标函数和各种约束条件。所写的模型基本上可以看作是对数学模型的翻译,不需要太多的转换。& q. o% {3 F. j

    , U) e5 Z$ e& \1 {! H/ G2 [  那么现在我们基本上对LINGO和MATLAB对规划问题的处理方面有了初步认识与了解,至于是执着于MATLAB还是选择开辟LINGO这片新的领域,取决于队伍自身了。
    6 c" [* |. `# @& K0 ?7 m+ H' i) \& H" `# U- e
    三、 如何上手Lingo5 J, S* E2 _+ s9 z3 H5 K
    * B1 L; b; j0 F* {3 B. n# @
      有很多人对于Lingo的评价都是,非常简单的软件,很好上手。 ; M3 K, x) H& _3 r2 S. b) x
      “简单”一词我觉得还比较恰当。Lingo的各种版本几乎全部都是免安装版本的,界面很简单,功能用法很简单,处理问题的方式简单快捷。确实是跟“简单”一词挂钩的。但是任何一款软件想要精通,都是有一定难度的。如果你只需要用Lingo处理一些简单的线性问题,那么2个小时不到,0编程基础的朋友就能上手。如果你认准了Lingo就是你处理各类规划问题的御用软件,那么还是有很长一段路要走的。当然这也取决于用户的编程基础。如果学习过面向对象的程序设计课程的朋友,对于类与对象概念有所了解,那么对于集这一概念也能快速理解上手,学习起来更加轻松。
    . f* h% P" Q5 ~3 d. |
    ; ^) N5 ?6 E  U7 j4 p2 B. L" K四、 Lingo的基本语法规则
    3 M% z) r: G' E$ ~) J" c; B: Z& J( C. p4 V1 C3 Y7 g
    1、求目标函数的最大最小值用 MAX=MAX= 和 MIN=MIN= 来表示;
    ( l& h* f. Y4 @( e8 J2、每个语句必须用分号“;”结束,每行可以有许多语句,一个语句可以跨行;
      w: s; p/ o$ ]) j5 }# v3、变量名必须以字母A-Z开头,由字母、数字0-9和下划线组成,长度不超过32个字符,不区分大小写;
    0 N, H# A( ^3 \- L0 L1 g6 ]6 {+ r" ?4、可以给语句加上标号; : [3 s2 O9 {1 ^" m, R
    5、注释以“!”开头以“;”结束;
    ( e3 ^) J6 m+ b8 h) B( t/ T6、默认所有的决策变量为非负数; / S4 `, z5 e" L7 ?) g! m
    7、Lingo模型以“MODEL”开头以“END”结束。
    0 N" w: p& i) i. `; I! z! [8、Lingo把相联系的对象聚合成集,借助集,就能够用一个单一的长的简明的公式表示一系列相应的约束。 + S# t0 C1 I" C- F# Y3 n. k% o3 d
    9、Lingo程序会包含集合段,数据输入段,优化目标和约束段,初始段和数据预处理部分。
    # s" @8 C, d5 e7 p' `4 z1 d10、Lingo函数包括有数学函数,金融函数,概率函数,变量界定义函数,集操作函数,集循环函数,输入输出函数,辅助函数等等。
    / F4 c& K# S8 p* B& Y3 R6 i4 V- H( a& s* P& ~) q) |
    五、 谈一谈例子2 Y0 m' X0 _2 o% Q  n' J6 ]" F! r9 Q' j
    % N; }8 j- h( s
      那么Lingo用起来到底有多简单呢,我们来看一个例子。
    : i* z, X+ Y5 }" h8 C
    $ F# G6 M# S$ P! U/ n8 x( y例1:某家公诉制造书桌、餐桌和椅子,所用的资源有三种:木料、木工和漆工。生产数据如下表所示:: O1 i4 S! J7 M, s' }: Y. g

    ; X1 e* `4 P" e' J: R* E" `' m) K         每个书桌        每个餐桌        每个椅子        现有资源总数$ e& f. W% J3 V- i- e' ?' n$ l
    木料        8个单位        6个单位        1个单位        48个单位7 o* I' m6 }% }- }8 \# e' O3 ?) K  B
    漆工        4个单位        2个单位        1.5个单位        20个单位
    * o% D/ G- K/ {1 h木工        2个单位        1.5个单位        0.5个单位        8个单位
    " ^; X: l6 f, P0 x$ d  Q9 M! n成品单价        60个单位        30个单位        20个单位         
    5 s! ~( G9 v: l( h  若要求桌子的生产量不超过5件,如何安排三种产品的生产可使利润最大?
    . _( s8 D5 ^* S$ Q( L
    ; ]# O7 e- W6 M; M8 b( u解:代码
    8 y$ H8 X- ?+ F  e! @4 l$ ^6 n& M9 ?: e+ L) M8 N
    max = 60 * desks + 30 * tables + 20 * chairs;& Y8 ]" }2 T$ v- b1 H
          8 * desks + 6 * tables + chairs <= 48;# X7 U7 ]- Y9 Y: N% }: T7 |
          4 * desks + 2 * tables + 1.5 * chairs <= 20;) C, f8 Y6 T* n( K8 c
          2 * desks + 1.5 * tables + .5 * chairs <= 8;
      z2 I9 b9 k0 k- g1 r, gtables <= 5;
    / E1 M9 B8 ?; I, d1, H8 Z* e( I$ w, X. |: X, j
    2
    5 k* X* @  W  j2 v) ^  |% g3
    ) H# P6 Y) K' v40 `% N- T; A! h
    5: U) U4 J# P9 }% ?( Q# ^9 D
    可以得到结果: 5 u9 n) `* @. _1 C7 ?
    : N9 O. q* R6 A6 [2 N
      这里的 Total solver iteration 表示一共迭代2次得到最优解。 . Q8 v& `: A, o; x8 t8 \; G
      Objective value 表示最优值为280,而取280的时候各个变量取多少呢,底下的表格给出了答案。 * g2 X2 u5 C, w9 {2 x
      可以看到,没有定义变量,简简单单一个函数一个约束条件,迅速计算出了答案。Lingo看上去就像是为了非编程人员量身定制的一样。* f$ n2 R3 I/ u4 R

    ' C% U4 n, |2 v  m* S- l3 i例2:给定一个直角三角形,求包含该三角形的最小正方形。
    " p; V$ [9 z- i  ]3 r3 i6 [( ^! j' D. R+ i
    我们可以作出如下正方形:
    # k: l. I8 i# C$ K. }4 c* f0 [8 \; F1 ~) _# t5 ?# u

    5 }7 _2 H# _/ Y! i0 {# p  CE=asinx,AD=bcosx,DE=acosx+bsinxCE=asinx,AD=bcosx,DE=acosx+bsinx; U  F( G5 X" L/ Y
      转化为了规划问题那么正方形面积最小的时候即为最优解。 / }4 \% S" `# d  C9 \* L$ H+ V
      代码:! m( }% m# B: ]: [
    3 }2 a! L7 ^5 x' ^' j
    model:
    0 z/ ~9 W! S9 p; Y9 bsets:7 J$ U0 O# v7 c
        object/1..3/:f;, G( N5 T- b" o) t& \: r
    endsets% I  e  h; Q; N
    data:2 k% y6 m2 x5 d( d( J
        a, b = 3, 4;' x; r* U) D  M9 f
    enddata+ H, m2 m# b) @6 b
        f(1) = a * @sin(x);5 w# q! J+ J: Q7 R) |; O
        f(2) = b * @cos(x);! M5 e8 a- [! G; Z( ^3 a5 n; G8 M
        f(3) = a * @cos(x) + b * @sin(x);: h$ }0 q. |0 z1 q) E5 R( S
        min = @smax(f(1), f(2), f(3));6 h' P  C3 |; M) ]
        @bnd(0, x, 1.57);5 I, V5 [% \, A: l) `' g) S. I
    end
    " h' o* a9 Y" v  X& R17 i4 |* S/ d0 K7 y
    2) }; u( H1 d0 _, T, V
    3
    + y' D  {9 S2 l8 Y: g2 d4& C8 o  S2 t% Q3 e8 ?
    56 U9 _3 L1 z* N" _" \: ?- X
    68 x" r1 i- Y0 T( @9 V+ m
    7* d4 D7 j4 e' W: ?  X6 k8 F6 p& U
    83 t1 K6 |7 x/ D+ p
    9
    & w7 @4 d) r, H4 N10
    . g5 n) q5 X/ k# x% P# ^* q11
    # ~/ T9 [- I1 o' |% f+ o2 {0 \12, j5 d% g9 @4 }& x1 k# b/ E2 U: u
    13
    8 Y: f" H+ q7 F9 U  得到结果: ; O! C. u2 o# `6 Q
    4 K/ ?& q3 H" U4 J. R, l
    $ ^; K* |3 y5 Z2 f' M
      这里需要注意,lingo中如果没有代码说明,是默认 xx 的值大于0的。代码中用 bndbnd 函数限制了 xx 的范围。  B0 U" @5 s: {# R
      那么再进阶一下,Lingo在处理TSP问题的时候表现如何呢?5 o0 _8 E3 V) o" m: C9 Q
    0 M7 L. g' {0 c7 l
    例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 的一个圈置换 ππ 就表示对所有零件的一个加工顺序,在此置换下,完成所有加工所需要的总时间为
    " @* K! v, [8 m4 e+ N) L0 R( Y  y∑i=0n(ciπ(i)+piπ(i))=∑i=0nciπ(i)+∑j=0npj
    ; T, G4 _7 a# I∑i=0n(ciπ(i)+piπ(i))=∑i=0nciπ(i)+∑j=0npj1 O3 q$ J% Z& K6 ~, S# q
    由于 ∑nj=0pj∑j=0npj 是一个常数,故该零件的加工顺序问题变成TSP。
    & I6 I! `  `$ ~8 ]
    3 c/ R- ?' [* y0 T* B代码:% U3 {, a! K( k' G; o

    $ D6 ^, v/ Y. ?!旅行商问题;
    7 X! `& M# p4 z& V! ]: x0 X; Smodel:
    & j2 ~8 N# m9 {, Msets:
    & z/ X2 n. Z( N- g( \* J    city / 1.. 5/: u;
    5 H4 ?4 X4 o# i9 }+ Z2 L2 U    link(city, city):0 e2 i% l$ S6 j6 P* @/ a
            dist, x; !距离矩阵;/ W' @6 e9 C% O& ^8 I
    endsets! J6 G5 _3 a2 a  t, d
        n = @size(city);: V( S, [: e1 w" ~+ j" J: G
    data: !距离矩阵,它并不需要是对称的;, |# J+ U: j- D- v& N0 A2 r7 b
        dist = @qrand(1); !随机产生,这里可改为你要解决的问题的数据;# g8 o  \( `1 M  J+ T# ~: n
    enddata/ M1 \! e1 R' @" ]6 L
        min = @sum(link:dist * x);
    ' p6 N* ]7 _$ R  z/ D- ^    @FOR(city(K):
    6 U+ ~6 e4 h3 R0 I1 N8 F        @sum(city(I)|I #ne# K: x(I, K)) = 1;, B6 i% j; `# I2 y, t
            !进入城市K;. }  j! N. h; S+ C+ r$ _; D2 B/ t, M
            @sum(city(J)|J #ne# K: x(K, J)) = 1;1 Z* r+ p  p, v: _" ^6 f
        );5 j* k( z) m+ Y" f9 l9 V2 T& ?
        @for(city(I)|I #gt# 1:' k" P4 t8 }) [: L
            @for(city( J)| J#gt#1 #and# I #ne# J:
    2 z- K$ u4 r" G% j             u(I) - u(J) + n * x(I,J) <= n - 1);
    $ j* y/ r: a9 s2 m/ t4 q0 f    );
    . M& N9 F0 [2 `7 o: A5 u@for(city(I)|I #gt# 1: u(I) <= n - 2);
    4 t0 r, `1 M5 S8 A' u+ I( A5 M: [@for(link: @bin(x));* j: |3 I  v( E& E
    end+ U8 x: X: d9 v! a3 @! h. Q6 I
    1
    0 M) N- h+ p- }( c3 b  N2
    / e8 j8 W1 s! E! |3" p% X- [4 K; o
    4
    / n3 e0 c$ w0 l# o58 R! U# S* O. y5 ~4 u
    67 }) h7 ^0 h% ~/ l3 M/ F
    7- w9 S4 `7 p9 @' B
    8
    % \* X& ]3 \5 X2 `9
    2 ~5 H) x5 h% b% b10, S/ F9 x# x! S# ]+ q# J  C
    11* J$ D4 |4 I7 V9 W
    121 X; r; n. L+ a% [
    13
    6 G! s/ [* A# |$ M, O# v. U140 F1 v+ N1 j+ `" g6 h
    15. j: F8 X8 C. c# c2 N6 S6 A4 s
    169 ]( ?! N3 x% i1 }0 E; P' s8 A
    17/ Y6 R9 |0 a6 P+ X5 E$ x3 `
    18
    4 U2 k( [6 d- q: g/ j8 {199 Q7 U+ c9 ~% S1 {# o+ v2 \
    20, b/ s( e- e. s+ @4 g
    21& E# |+ n" m1 ?: x, V
    22
    & a) a: P' i) J, w23! K/ e5 `+ H5 d; l' U. O) K
    24$ s9 m9 l& i1 ?
    可以得到结果: . A0 a3 c& E! \) U% d  D% l4 Z

    5 Z4 O& z8 c( P8 c3 X1 N: _. W$ x---------------------
    . T. A, a. K6 p2 W% L( `. d$ M3 }' V; g, a

    0 j; R! s5 t* y3 x% |* u7 b
      @/ L( i, @. g- \
    4 X5 {2 n9 N1 E+ `. u7 u! R4 z9 k6 ?
    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-22 15:50 , Processed in 0.410091 second(s), 50 queries .

    回顶部