QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 9685|回复: 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解法" [0 Z1 L( x. D5 E( A) z
    一、 从规划问题引入% z0 t+ d8 K) u, i8 Y

    ) E) q# U( v/ }6 Y  y$ Q4 b  在我们学习探索的各个领域,规划问题都是无处不在的。通过列出约束条件及目标函数,再画出约束条件所表示的可行域,就能在可行域内求得目标函数的最优解以及最优值。当然我们在高中就已经学习过线性规划的相关知识,对于理科同学来说,大多数同学应该感觉难度不大,或者说是送分考点。然而到了大学阶段,一些规划问题的求解已经不是人力可以轻松算出来的了,必须借助于计算机来进行计算。那么对于规划问题的软件选择,又应当如何进行呢?8 L% F( Q* V5 `# ~( N1 n

    6 q3 K5 ?5 N6 N, b7 G& y; f二、 软件分析与选择
    ) k1 c: N' i- G* p3 \9 w
    % d' \  Q7 U6 P7 ]$ A5 [& h. n6 F+ O3 m  Matlab相比之下是一个面面俱到的编程软件,也可用于求解规划问题。但是如果一定要去和某些“针对特定功能而开发的软件”去比的话,Matlab有时也会稍显逊色。就好比一款顶级的耳机能通吃高中低音,但是去和另一款顶级的为高音而设计的耳机去比较的话,也难免会被比下去。这也就是为什么在规划问题上,很多人会去使用Lingo进行求解。- f0 U; `9 C* }2 B# T; X8 Y

    + t8 J6 R) I: `% R  首先我们来区分一下Lindo和Lingo这两款软件。Lingo是在Lindo基础之上做成的软件,处理解线性规划问题之外还加了非线性的求解器,更关键的是还追加了集的概念。可以更方便的解决复杂的问题。所以本文只对Lingo进行讲解。
    7 D, o, K  ^$ V! E# K  而对于Matlab与Lingo的区别,就好比手动挡与自动挡的区别,有针对性的专业软件会对用户做很多的优化。这里引用知乎上大佬 花开花落 的回答
    & n. G- t+ |; y$ f) q. Yhttps://www.zhihu.com/question/49319704/answer/165923451
    7 E( A  n7 j8 f( ]0 g- e; P+ y3 _; A6 O! K7 U, w6 Q; V, Q9 E
      用MATLAB求解线性规划和整数规划问题,需要先将问题转化成如下标准型,其中X只能是向量,也就是单下标变量,然后用向量和矩阵来表达目标函数和约束条件。
    + A! a# }" Y0 B2 g& q/ e  然而,许多问题(如指派问题和运输问题)由于参数和决策变量是双下标变量,必须在基本的数学模型的基础上进行变换才能求解,这样得到的等式约束和不等式约束的系数矩阵规模就非常庞大,当然由MATLAB计算问题不大,但转换工作完全要由人工完成,工作量大而且容易出错,因此在这一块效率不高。 % G9 @/ T+ e/ s$ Y- u
      而LINGO有自己的建模语言,在建立了集合的基础上,能够高效表达目标函数和各种约束条件。所写的模型基本上可以看作是对数学模型的翻译,不需要太多的转换。4 G. i. f+ g0 t2 f
    % F) Y* }0 k9 e: c: P: H
      那么现在我们基本上对LINGO和MATLAB对规划问题的处理方面有了初步认识与了解,至于是执着于MATLAB还是选择开辟LINGO这片新的领域,取决于队伍自身了。0 _3 T# L. I3 A1 }9 T3 O5 k7 Y/ Y
    3 |8 W  W; C% Q7 x5 A
    三、 如何上手Lingo
      S; ]' |7 w: S. N0 q8 E
    / k% W. y  K- L: Y" J& f; h  有很多人对于Lingo的评价都是,非常简单的软件,很好上手。
    + P4 P1 _0 V# E1 c# c) ^) l' T  “简单”一词我觉得还比较恰当。Lingo的各种版本几乎全部都是免安装版本的,界面很简单,功能用法很简单,处理问题的方式简单快捷。确实是跟“简单”一词挂钩的。但是任何一款软件想要精通,都是有一定难度的。如果你只需要用Lingo处理一些简单的线性问题,那么2个小时不到,0编程基础的朋友就能上手。如果你认准了Lingo就是你处理各类规划问题的御用软件,那么还是有很长一段路要走的。当然这也取决于用户的编程基础。如果学习过面向对象的程序设计课程的朋友,对于类与对象概念有所了解,那么对于集这一概念也能快速理解上手,学习起来更加轻松。6 J. a" _) }4 ]. N- b( |  k3 N
    ' H. A* R: W; H
    四、 Lingo的基本语法规则
    ! t5 `" ]- o1 o; `% g3 L! [) {) y# s& M
    1、求目标函数的最大最小值用 MAX=MAX= 和 MIN=MIN= 来表示;
    ; q7 ]9 _, |' r% l8 U3 D2、每个语句必须用分号“;”结束,每行可以有许多语句,一个语句可以跨行; . M* V$ b" B( {. [2 x$ H0 Q9 ?
    3、变量名必须以字母A-Z开头,由字母、数字0-9和下划线组成,长度不超过32个字符,不区分大小写;
    / F6 J1 B2 C  P4、可以给语句加上标号; - }  _; `4 P; O  o" ~* U3 e4 ]
    5、注释以“!”开头以“;”结束;
    * ]2 j, U4 h. W- D% J! h6、默认所有的决策变量为非负数;
    6 a, E, w0 m# H; V7、Lingo模型以“MODEL”开头以“END”结束。
    2 G0 M4 p/ @7 ?8、Lingo把相联系的对象聚合成集,借助集,就能够用一个单一的长的简明的公式表示一系列相应的约束。
    * e! S$ T# A. g3 K  L1 d9、Lingo程序会包含集合段,数据输入段,优化目标和约束段,初始段和数据预处理部分。
    3 d& D# ]  r5 Y: g10、Lingo函数包括有数学函数,金融函数,概率函数,变量界定义函数,集操作函数,集循环函数,输入输出函数,辅助函数等等。
    0 p; n0 f2 r) c( D: S+ g7 B) G" Q8 @" d
    五、 谈一谈例子
    8 S. W( p# F& J$ E( }+ `+ t7 u
      那么Lingo用起来到底有多简单呢,我们来看一个例子。% o1 H: ]+ W) {* A: C

    / H5 Q, i8 s& J8 n! e! M* n例1:某家公诉制造书桌、餐桌和椅子,所用的资源有三种:木料、木工和漆工。生产数据如下表所示:
    % X6 J$ ^8 j; n7 t0 k+ q2 M2 h
    , Y2 Z6 y2 ~/ `  L         每个书桌        每个餐桌        每个椅子        现有资源总数
    9 u# S) n$ D  w0 n/ }木料        8个单位        6个单位        1个单位        48个单位! Y7 @9 h- z: d& Q7 w0 \9 [- K" X* p; g
    漆工        4个单位        2个单位        1.5个单位        20个单位& ?$ {( h2 N" F$ U2 Z) c7 @
    木工        2个单位        1.5个单位        0.5个单位        8个单位
    $ d; A7 c$ d3 R成品单价        60个单位        30个单位        20个单位         6 f9 T: N1 J. k% r7 b
      若要求桌子的生产量不超过5件,如何安排三种产品的生产可使利润最大?
    2 v7 b4 z+ ]" |4 @
    & \* n) i" I- ^. i% o解:代码
    ' I5 ~( v- P$ n1 o0 J' `+ `7 C
    # `/ H3 y6 p2 u% @max = 60 * desks + 30 * tables + 20 * chairs;
    6 ^3 ?5 o8 m3 w" H: R! B5 L9 Q% x      8 * desks + 6 * tables + chairs <= 48;
    $ i8 r" Q; F8 q1 x! S7 Z* o, Z      4 * desks + 2 * tables + 1.5 * chairs <= 20;" S; V8 b  }6 x4 x
          2 * desks + 1.5 * tables + .5 * chairs <= 8;
    5 b* I, q% v' F/ {) Atables <= 5;; }1 V+ I$ h: t7 Y& O
    1
    7 S! Y/ _8 d+ ]4 D: Z' M2
    + {  l4 ]. j1 o7 o0 V6 ]3
      e' H5 S5 W2 T+ L8 |) @4
    % m: _; R5 v0 Q+ F" o8 s5
    . F. B# A4 o2 A9 `- Z8 f可以得到结果:   j8 i: v  p5 `, c7 `" F! P

    ' v# k2 Y) l' U9 S" Z  这里的 Total solver iteration 表示一共迭代2次得到最优解。
    6 s5 N' m. g: i% M2 ^& A( c  K  Objective value 表示最优值为280,而取280的时候各个变量取多少呢,底下的表格给出了答案。
    1 d- j' o* a# H0 C* H; H  可以看到,没有定义变量,简简单单一个函数一个约束条件,迅速计算出了答案。Lingo看上去就像是为了非编程人员量身定制的一样。/ a9 K3 u, z% b0 X

    5 R, V) t) F1 A例2:给定一个直角三角形,求包含该三角形的最小正方形。1 y  e' c, Q+ v. V9 {

    4 W4 ^  t; c9 k' U# X( \5 y我们可以作出如下正方形:
    . V$ l3 X2 p. L- c, `
    + `0 C- ^" I( n3 Q9 W& s3 T$ O& b& Y2 z, U: b/ l9 d7 V
      CE=asinx,AD=bcosx,DE=acosx+bsinxCE=asinx,AD=bcosx,DE=acosx+bsinx
    4 b8 O! Q* t- e+ y1 [' k/ n  转化为了规划问题那么正方形面积最小的时候即为最优解。 4 J9 Y% f0 y9 H- g$ w
      代码:1 \- @5 t3 r" D

    ) i$ L; z4 {7 L1 gmodel:7 `; ^; J' J8 E" [3 H- J1 p# }
    sets:, h  R+ K9 }( T$ n
        object/1..3/:f;* ^; V6 Q8 r& R+ u- o
    endsets1 H/ k, B' l: u/ X
    data:
    & z6 n1 k& D% R' V& j6 m    a, b = 3, 4;
    7 H+ l/ k. x- Q+ F9 o8 yenddata
    + c; c6 J+ |% {% H6 G# I    f(1) = a * @sin(x);
    ( |+ _5 D5 [8 W  d    f(2) = b * @cos(x);$ J" p* M& Z- ]' H0 Y( a' A
        f(3) = a * @cos(x) + b * @sin(x);
    - x7 D! o, }. c    min = @smax(f(1), f(2), f(3));6 n; G! M5 f# b2 y8 L% m
        @bnd(0, x, 1.57);8 \3 D  t) s- q; G$ v( o+ ?& V/ g
    end2 z" |# q5 }; e" }
    1
    . u: _, T4 \$ [# ?3 Y; e' ]2
    1 ]: `' {- l# S39 {# T6 l. U$ y! c
    43 U' V* H" `2 Y" t
    5( L; ?  o6 m9 t9 q) N7 Y  E
    6' Y" V& f+ H2 o2 b( b$ e: S. q6 z
    7
    $ u. ?- ^4 l7 U) ^" l8
    9 i4 e4 ~' t5 G& Z+ R/ ?9 }9. _1 c4 k2 \! I! ?, G6 K, g
    10  _# ?) `; R: a5 i6 z, [
    113 A0 j9 b0 x- W' i% E
    12# E  M4 y1 O; {1 F  K) G# s
    13
    4 w! |' x+ ~- u9 b+ ^3 ^+ K3 k  得到结果: ! x' p$ ?% V- r+ i7 O) h3 h; `
      @: y$ p9 W9 S; y

    * |  o% r6 E& C6 m6 V  k1 b5 A7 [  这里需要注意,lingo中如果没有代码说明,是默认 xx 的值大于0的。代码中用 bndbnd 函数限制了 xx 的范围。5 ?# ~+ I/ g% E" d3 X; h
      那么再进阶一下,Lingo在处理TSP问题的时候表现如何呢?
    8 C  Z  @: F% ]2 y+ z: E, ?+ i5 `1 W8 e" ?
    例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 的一个圈置换 ππ 就表示对所有零件的一个加工顺序,在此置换下,完成所有加工所需要的总时间为 * |$ F/ B4 d$ a
    ∑i=0n(ciπ(i)+piπ(i))=∑i=0nciπ(i)+∑j=0npj( Z+ }  @3 h, p) e  ~& u, a
    ∑i=0n(ciπ(i)+piπ(i))=∑i=0nciπ(i)+∑j=0npj: B, V% `5 t: `2 b; Y
    由于 ∑nj=0pj∑j=0npj 是一个常数,故该零件的加工顺序问题变成TSP。
    " p' v0 m" v. Z9 T9 N3 U, s' E: E# P+ B
    代码:7 q# d0 |( O4 y- t6 z$ c
    : |# m' L) ?  ?0 V0 j
    !旅行商问题;0 `6 c  C! b/ }: r& [
    model:, t& T+ M, Z; m0 J& \" O; I
    sets:, s% ?, h/ Z2 v
        city / 1.. 5/: u;
    $ U8 z1 [# q* D2 \/ O/ M. J% w. s    link(city, city):
    7 k0 y  g3 m" }% y% O# R0 ~2 i. D        dist, x; !距离矩阵;% E; c# l& W& x. h
    endsets
    - d1 _0 j, K5 i" d# W! c/ Y    n = @size(city);; z" o' Q3 u. e7 q0 z1 }/ ^6 p
    data: !距离矩阵,它并不需要是对称的;6 J1 {* ?+ V  N0 P
        dist = @qrand(1); !随机产生,这里可改为你要解决的问题的数据;# C. y+ R: t0 v( G1 N1 ]" w; j/ O& l
    enddata
    2 Y0 a3 i( u2 ]8 O    min = @sum(link:dist * x);( o" w8 z: B; t5 ^% d6 g8 {
        @FOR(city(K):1 [# S; o0 E, W/ `$ z* U
            @sum(city(I)|I #ne# K: x(I, K)) = 1;' p! ~0 A7 o1 ]) [! G+ r+ g$ {* _
            !进入城市K;
      ^+ G6 w; _0 M3 T5 k) H' C        @sum(city(J)|J #ne# K: x(K, J)) = 1;
    2 D) t; _8 E) J% {+ @& x- {    );" j4 `- o5 j6 @( W5 l- U' d6 R; }
        @for(city(I)|I #gt# 1:8 @8 O5 u) _* V/ S, o
            @for(city( J)| J#gt#1 #and# I #ne# J:0 y8 e1 F/ ?% |
                 u(I) - u(J) + n * x(I,J) <= n - 1);
    % G2 r' @. K' ~    );5 q6 A7 s( [) ]
    @for(city(I)|I #gt# 1: u(I) <= n - 2);
    ' t' s- w# q( ~$ C) R' t@for(link: @bin(x));4 v% }+ w: S" m# I7 {4 y4 U; L! s
    end
    - \' W) C& _' R% T) ~& ?0 d; ~1: j  C$ O- a* L( l5 Q4 A2 i. C
    2
    , ]& [5 t  i; V) S7 o2 U  L  w6 S3. D: W2 L% r8 i3 t- f8 `
    4+ W8 S/ j( d1 j5 u* _+ F/ @# [
    5& B( ~9 S: x2 Q0 t/ G
    6
    " i- r0 E3 R8 j4 y) e7
    7 ]2 `4 t2 i3 D+ ?, z! H8* H0 F: Y0 t; m  g4 {5 @+ [7 F
    9
    - g/ ]8 F% d0 o0 g10
    ) L* j- H) H, ~- K6 F) g, S' E11* _; P( g( K- Y6 A
    120 y& M9 @& e$ y
    13
    - V, `: H+ p$ F1 I: h14
    $ c  \+ o  {3 e& A6 ?156 x5 e$ v+ Z2 g
    16- l2 G3 q$ J4 i
    17
    ' C' {! L0 _# G* e183 O! [, S: `! w6 F7 b# D0 a
    19# }' o/ [5 B& W; A  {8 G
    20
    9 C( D4 E' r0 ?& n- `21/ b- t: F; y, ~, S# s1 [8 k5 m
    225 Z7 N9 W+ p3 s# \) g7 s
    23
    5 s# O2 @/ Z8 _2 d; e$ O8 M$ r3 O) l24
    : n& k9 |4 F4 o. \7 |可以得到结果:
    + S9 G" P0 r* l5 H
    . |2 x! ]& l* r3 X: e3 k' p( T4 c---------------------
    $ D! C6 ~$ Q5 E+ H/ O' b% F, f  E2 B* E( ?2 _( ?

    * X' x; s5 e  i- n4 M% b3 D2 I
    ! k, ]. }1 T9 V: \3 ^0 F2 Z; t' j4 L' u( \- x/ Z8 A
    . z  O1 B1 g  e7 W  _9 J
    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-23 13:13 , Processed in 0.453906 second(s), 50 queries .

    回顶部