QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 9981|回复: 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解法
    , [/ h1 _- f* q# F( ~! ^一、 从规划问题引入! G% I+ N2 N; V: k
    ; j% a6 o3 y5 u9 v
      在我们学习探索的各个领域,规划问题都是无处不在的。通过列出约束条件及目标函数,再画出约束条件所表示的可行域,就能在可行域内求得目标函数的最优解以及最优值。当然我们在高中就已经学习过线性规划的相关知识,对于理科同学来说,大多数同学应该感觉难度不大,或者说是送分考点。然而到了大学阶段,一些规划问题的求解已经不是人力可以轻松算出来的了,必须借助于计算机来进行计算。那么对于规划问题的软件选择,又应当如何进行呢?( i, l6 A/ v1 O9 x$ ~/ f
    + B% Q2 m) m4 E( v
    二、 软件分析与选择
    / P7 o3 V+ x5 C* ?/ l' p
    ( q0 F5 w# R  ^* _/ V9 m  Matlab相比之下是一个面面俱到的编程软件,也可用于求解规划问题。但是如果一定要去和某些“针对特定功能而开发的软件”去比的话,Matlab有时也会稍显逊色。就好比一款顶级的耳机能通吃高中低音,但是去和另一款顶级的为高音而设计的耳机去比较的话,也难免会被比下去。这也就是为什么在规划问题上,很多人会去使用Lingo进行求解。! A3 F5 F+ Y* n9 \. c& u* |
    # ~/ P$ J0 G. m
      首先我们来区分一下Lindo和Lingo这两款软件。Lingo是在Lindo基础之上做成的软件,处理解线性规划问题之外还加了非线性的求解器,更关键的是还追加了集的概念。可以更方便的解决复杂的问题。所以本文只对Lingo进行讲解。 7 Q2 r" G5 n' d  l8 X
      而对于Matlab与Lingo的区别,就好比手动挡与自动挡的区别,有针对性的专业软件会对用户做很多的优化。这里引用知乎上大佬 花开花落 的回答
    4 f& V+ ?; `: A: [. J$ _# Xhttps://www.zhihu.com/question/49319704/answer/165923451  G6 K- x( D) j2 L

    6 z6 F, O; D. k3 w  用MATLAB求解线性规划和整数规划问题,需要先将问题转化成如下标准型,其中X只能是向量,也就是单下标变量,然后用向量和矩阵来表达目标函数和约束条件。
    ) g6 k" e7 R' I& @  然而,许多问题(如指派问题和运输问题)由于参数和决策变量是双下标变量,必须在基本的数学模型的基础上进行变换才能求解,这样得到的等式约束和不等式约束的系数矩阵规模就非常庞大,当然由MATLAB计算问题不大,但转换工作完全要由人工完成,工作量大而且容易出错,因此在这一块效率不高。
    : E0 Z* q9 F& d. _4 T  而LINGO有自己的建模语言,在建立了集合的基础上,能够高效表达目标函数和各种约束条件。所写的模型基本上可以看作是对数学模型的翻译,不需要太多的转换。
    ! [6 b7 v* L) O; r& ^
    5 K* d* u4 n! }8 u. Z  那么现在我们基本上对LINGO和MATLAB对规划问题的处理方面有了初步认识与了解,至于是执着于MATLAB还是选择开辟LINGO这片新的领域,取决于队伍自身了。' x; v4 X$ {8 [/ {' M
    ; q( ]3 |, k9 M' L7 s
    三、 如何上手Lingo- |" d9 T, _0 L& j6 d+ L

    & x6 W! |) l; ?8 C+ U& {" R( \2 c0 S  有很多人对于Lingo的评价都是,非常简单的软件,很好上手。 ( [8 `2 ^7 [% \+ |7 y
      “简单”一词我觉得还比较恰当。Lingo的各种版本几乎全部都是免安装版本的,界面很简单,功能用法很简单,处理问题的方式简单快捷。确实是跟“简单”一词挂钩的。但是任何一款软件想要精通,都是有一定难度的。如果你只需要用Lingo处理一些简单的线性问题,那么2个小时不到,0编程基础的朋友就能上手。如果你认准了Lingo就是你处理各类规划问题的御用软件,那么还是有很长一段路要走的。当然这也取决于用户的编程基础。如果学习过面向对象的程序设计课程的朋友,对于类与对象概念有所了解,那么对于集这一概念也能快速理解上手,学习起来更加轻松。; M) d* X* y9 A; \7 S# C

    : l; i7 q( v7 e9 o8 [  j* G4 z四、 Lingo的基本语法规则
    " }0 ~6 |1 ?& }( Q( e: J  ]% E8 T, V0 ?1 Z0 Q! T& ~# \
    1、求目标函数的最大最小值用 MAX=MAX= 和 MIN=MIN= 来表示; + v5 _0 y  W% d! B2 s- X
    2、每个语句必须用分号“;”结束,每行可以有许多语句,一个语句可以跨行;
    ) P% R1 |0 o) k1 N3、变量名必须以字母A-Z开头,由字母、数字0-9和下划线组成,长度不超过32个字符,不区分大小写; 7 K) F5 B( Q9 a. g; b: f
    4、可以给语句加上标号;   o: \: x0 `2 K. `
    5、注释以“!”开头以“;”结束;
    . G" @2 _1 u6 |, P8 Y" V6、默认所有的决策变量为非负数;
    . ?, e9 y; Q4 R+ R3 F$ ?9 Y7、Lingo模型以“MODEL”开头以“END”结束。 + w- F# Z5 F) m, T9 O. h) F
    8、Lingo把相联系的对象聚合成集,借助集,就能够用一个单一的长的简明的公式表示一系列相应的约束。   S4 A" T4 c" N
    9、Lingo程序会包含集合段,数据输入段,优化目标和约束段,初始段和数据预处理部分。 * Q3 R6 c3 z4 [6 u" Q$ M
    10、Lingo函数包括有数学函数,金融函数,概率函数,变量界定义函数,集操作函数,集循环函数,输入输出函数,辅助函数等等。
    * Z7 I6 H8 |) A7 q6 l5 W3 M# m. A  d
    1 g; m: _, [% _9 H, p6 w五、 谈一谈例子
    + U* b7 O7 E) H0 M9 X
    & y" Z% }: q0 Z  那么Lingo用起来到底有多简单呢,我们来看一个例子。2 R5 ]8 [% y9 S) c5 M% j
    # Z2 A% y: O1 p
    例1:某家公诉制造书桌、餐桌和椅子,所用的资源有三种:木料、木工和漆工。生产数据如下表所示:" {. ~; S( u  S; L* U4 a/ X& o

    ' A$ s1 @; F2 C+ S& y" k         每个书桌        每个餐桌        每个椅子        现有资源总数. K% O7 V* H7 ]( @0 i9 b
    木料        8个单位        6个单位        1个单位        48个单位/ o# l- i# o! b% V% y* r/ G3 X$ z
    漆工        4个单位        2个单位        1.5个单位        20个单位
    - M. ]! h, ^* T: L4 G9 |8 {木工        2个单位        1.5个单位        0.5个单位        8个单位6 j) c& K9 y! O+ j" i; s
    成品单价        60个单位        30个单位        20个单位         
    # A0 l- I' r% N! ]1 z+ ~+ `; _  若要求桌子的生产量不超过5件,如何安排三种产品的生产可使利润最大?
    " ~4 R; X1 i  K
    4 K* d/ ^: C% p解:代码
    7 p' J* L" J! n2 E. c9 @
    8 o* D4 w6 E/ d0 `  Qmax = 60 * desks + 30 * tables + 20 * chairs;
    ' m. Y1 P) k3 m1 K9 K7 [; d      8 * desks + 6 * tables + chairs <= 48;
    ( y; U: ]* l, C/ m$ c$ Y: S      4 * desks + 2 * tables + 1.5 * chairs <= 20;) J# O4 r/ N$ v# y) h, S: A
          2 * desks + 1.5 * tables + .5 * chairs <= 8;- z3 C% M+ L" f- o
    tables <= 5;6 i* a9 v+ ?# T
    1
    7 v4 d8 I2 ]$ t* k/ x, |8 y/ o+ ?- N2
    . v2 W5 I9 H4 U& t" q( ?33 {/ C, `: |' L' A9 j! n+ Q# u, a
    4
    ( B0 ~- D0 o, F  b; _5
    ( C6 i* ^3 ^1 |' c$ T6 E可以得到结果:
    ( |- {- e; X+ ?0 J: t4 P1 j
    8 R+ T) n# x9 o. E  这里的 Total solver iteration 表示一共迭代2次得到最优解。
    & {1 u1 N! {& ~; o3 c. j  Objective value 表示最优值为280,而取280的时候各个变量取多少呢,底下的表格给出了答案。
    % a4 I  Y1 ?7 ]! A  可以看到,没有定义变量,简简单单一个函数一个约束条件,迅速计算出了答案。Lingo看上去就像是为了非编程人员量身定制的一样。
    0 a- z$ ^$ T% E9 j7 A' ]; K5 o8 V- j1 X$ I* \' w9 ~! \7 I
    例2:给定一个直角三角形,求包含该三角形的最小正方形。
    2 @! c# T. m/ Y: d4 m" O- o
    4 p" d$ _# ^/ b8 o' [9 ?我们可以作出如下正方形: 9 K0 O2 y" z$ N3 l% s. i

    . z$ g( l; K, n. X# F
    / G3 J$ y# z- q  CE=asinx,AD=bcosx,DE=acosx+bsinxCE=asinx,AD=bcosx,DE=acosx+bsinx
    $ \+ Y/ W8 d) n- y" Q& J  转化为了规划问题那么正方形面积最小的时候即为最优解。 2 ^$ X* H$ d6 p( I* N1 c3 Y2 U
      代码:
    2 B& r, U8 {- L( K9 i+ |* ?. g4 f
    ( F, V8 L! b4 S- a; Pmodel:
    ( [4 x' q1 [& R" W- ~+ Lsets:
    ; O0 ^8 u; y) m* c    object/1..3/:f;, O3 N% w! q6 [6 d, Z
    endsets
    & Y2 K: c  [5 `% ]1 e6 B2 Ndata:3 |( c2 d( y. p6 I( g: O
        a, b = 3, 4;
    " U! C% I; p$ \# i& `4 Jenddata
    0 _# V5 \" Y2 t1 l    f(1) = a * @sin(x);- `4 S/ v" z& `& C# Z1 y
        f(2) = b * @cos(x);
    & ?0 i9 d7 e2 `1 S. ]6 W    f(3) = a * @cos(x) + b * @sin(x);. ?5 k$ Z$ M) L( M9 t0 D  P4 t
        min = @smax(f(1), f(2), f(3));0 e8 R  o% g  Z% k0 y
        @bnd(0, x, 1.57);8 @' t, g: A  m* D" i
    end
    + t! ?, R' Y+ p5 W5 {1
    ! \) L, u3 L! I25 c/ h1 Q6 P8 ?6 ~
    3- W; z# k# l+ z& h0 k
    4
    3 X: a1 Q* Y6 s0 ?. M5: p( C# k5 v) n6 y: F
    6, J! w9 X2 u# o. y. V
    75 ^1 R* A* g+ Q6 [7 P) o" \8 s
    89 G1 v) {4 {% ~# d
    9
    ! C5 k  r0 `9 P& u- R101 B  w& ^  w8 K" P
    11/ U$ v2 \2 _& I. z
    12- q/ g6 G7 p: L2 n' g
    13
    % z% Q6 P; ~7 u0 `/ U5 D9 K* H  得到结果: 8 D3 |5 B" t# b% {! ^5 M% b
    1 J( \2 V# @$ I

    8 V( ^$ k# E: `3 n/ E$ @% h, R5 c  这里需要注意,lingo中如果没有代码说明,是默认 xx 的值大于0的。代码中用 bndbnd 函数限制了 xx 的范围。) F9 e) g* f' u( D. y
      那么再进阶一下,Lingo在处理TSP问题的时候表现如何呢?
    + O2 g; b1 |/ E. i3 g# s7 P* d4 p* 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 的一个圈置换 ππ 就表示对所有零件的一个加工顺序,在此置换下,完成所有加工所需要的总时间为
    5 P4 _6 B; e) p, f' h& Q# H3 d∑i=0n(ciπ(i)+piπ(i))=∑i=0nciπ(i)+∑j=0npj
    # ^' c% E- u4 e; d* g; B∑i=0n(ciπ(i)+piπ(i))=∑i=0nciπ(i)+∑j=0npj
    . S# k( N% n3 m" b& R4 U由于 ∑nj=0pj∑j=0npj 是一个常数,故该零件的加工顺序问题变成TSP。' z2 D5 ]7 J4 Q5 |! N( A
    : m1 Q' m% z+ ~* P# p' |
    代码:
    * I* |! a7 S4 k2 c; I* h4 s$ s" r: v- R; p  p$ J
    !旅行商问题;( r- N1 m+ i8 u( X
    model:% ~  z5 n, T) ?8 H) k7 A
    sets:. P7 l2 C# f$ J. ^9 i+ ?
        city / 1.. 5/: u;) a4 h1 M# ~' |$ _5 U4 y' }7 [
        link(city, city):( ^( ~+ [: ^! l
            dist, x; !距离矩阵;
    / \7 f/ v. N# ~9 P+ b4 ~endsets
    4 a- P' \# V9 ?* X8 k    n = @size(city);* A+ J: M0 P; i, P5 w
    data: !距离矩阵,它并不需要是对称的;' b3 N0 j# B" |. Q1 P
        dist = @qrand(1); !随机产生,这里可改为你要解决的问题的数据;$ S1 ]# }& q# s, G; o  G4 {8 Z" b
    enddata* p& X$ _% J4 x5 t
        min = @sum(link:dist * x);5 z" i# e) k5 Y
        @FOR(city(K):6 Z7 @. [; m: b
            @sum(city(I)|I #ne# K: x(I, K)) = 1;% o& z' R* w! u9 Z: f7 Q$ p
            !进入城市K;7 l, B5 U* S/ o" w7 v' E
            @sum(city(J)|J #ne# K: x(K, J)) = 1;( ^. C/ ]9 [" M7 X/ u# h+ Z
        );
    ; h; b, S2 o1 S1 ^4 h/ w    @for(city(I)|I #gt# 1:% M7 S4 s. c. _" s
            @for(city( J)| J#gt#1 #and# I #ne# J:$ A$ ]7 j7 D1 ~  e$ u7 u3 y* A
                 u(I) - u(J) + n * x(I,J) <= n - 1);; Q1 H* b% M4 F$ b5 [
        );: ~& @  k$ Q, X
    @for(city(I)|I #gt# 1: u(I) <= n - 2);3 j& O0 v- M3 ?3 G2 S
    @for(link: @bin(x));$ V# B& b  K4 l* _4 J6 ^
    end3 y5 `. N# J0 {- f3 B7 N
    17 }' U! F3 ^* d9 A* }0 W" J5 ~
    2+ ~$ u/ k& ?7 D. |% a3 T) O7 Z) O- ]
    3
    5 X* e6 k+ J. Q! f4, Y; K6 Z8 l+ ]- _1 U8 G( g
    5
    % @$ h- h* `, F6
    0 L+ Z# F5 ~' Q: }) w) |7
    , Y3 Z2 p6 b( z  ^; S; P8
    . L# H2 }, T9 h" u. S5 A" {- ^9
    . Z$ F$ G( ^0 B9 L4 q; Q( Q' Q10
      {$ k+ f- J. d/ u% D11
    3 ?% m+ z$ j5 `. v+ U125 ]3 t% _/ Z/ M; U( V' p$ z" [6 w/ X
    13
    % F9 t$ O1 L9 D1 @2 t14
    0 x; {! k" z9 |15
    " I4 {* n3 W" w, o3 W161 o, E: S# U1 K" c* }
    179 u" Y/ k6 c  C
    18
    : M/ y/ R- A+ D6 c* r' r/ O+ Y193 c/ ^: R$ E1 \: L4 [
    20
    7 H* G; X2 H" z: T( X21+ w! z7 ]$ I; W5 m5 @$ l  m
    22
    ( }0 U$ h. ]) {7 }9 P231 q! s7 b' X- X* {
    24" G* t) {% F; k6 X
    可以得到结果: 4 B9 l. C5 e/ y) d8 `3 U- ~- l

    3 O/ n+ O7 \* a& p. _---------------------
    1 b" b# n& e' G! |5 K# |  B# u# e) D' U: z* w$ b3 T, b& V

    0 A' X: ]# Q0 L9 R) n  q$ `
    0 a' j- i' A& u" {  D' h' Z( z
    4 j% {. r5 k# d; J3 v! u) a3 m, v/ x2 w/ v" E9 _
    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-12-23 15:08 , Processed in 0.880710 second(s), 50 queries .

    回顶部