数学建模社区-数学中国

标题: 线性规划(二):运输问题 (产销平衡) & 指派问题 [打印本页]

作者: 浅夏110    时间: 2020-6-6 10:08
标题: 线性规划(二):运输问题 (产销平衡) & 指派问题
1.可以转化为线性规划的问题# H# S' H3 P& u3 G$ {
很多看起来不是线性规划的问题也可以通过变换变成线性规划的问题来解决。下面举几个例子:# S- _9 Y& q# G4 x% Y2 _- F

: a9 e% H2 K7 }( x9 L
* x6 O/ t3 H, [  s1 H' G$ a6 x; P& R% d$ Z! l
. {' h6 r+ D1 A& A, |
0 V6 u/ j% C3 ?0 G7 e% C

$ H; Y! c  |7 l7 H2. 运输问题(产销平衡)  :康—希表上作业法
( g7 L0 E0 L. D$ ?5 j
9 ^: A% v0 b* d# {% Y, k" Q
0 ?8 O2 U: U& B" n% I6 S( S  D* Q4 ]7 R
3. 指派问题的数学模型
; ~% y. \7 C6 G0 f" r" ]+ B( [& J8 Y6 p
  u) i8 g. ^4 u4 I
, O, I8 ?+ {0 Y% ^& m
( X5 ^0 l' s" [/ u3 r: l, a) b  C
上述指派问题的可行解可以用一个矩阵表示,其每行每列均有且只有一个元素为 1,其余元素均为 0;可以用 1,...,n 中的一个置换表示。 问题中的变量只能取 0 或 1,从而是一个 0-1 规划问题。一般的 0-1 规划问题求解 极为困难。但指派问题并不难解,其约束方程组的系数矩阵十分特殊(被称为全单位模矩阵,其各阶非零子式均为  ),其非负可行解的分量只能取0或1,故约束 =0或1 可改写为 而不改变其解。此时指派问题被转化为一个特殊的运输问题,其中m=n, .0 T1 |0 F1 E, X

  u/ x4 }; i0 J: U# P% _求解指派问题的匈牙利算法
% `' L1 t- `  b0 a
) l1 l( D1 ~  |" \+ \# f2 d
6 z* n% K8 P  Y  a! A; p- @& n, w  L8 y  O7 S
! l  u1 ^1 I+ b* G
有时问题会稍复杂一些。% a% \) c# j" x' S& d1 s4 B

0 K% h( a! h% z2 @# \" @例 9 求解系数矩阵C 的指派问题
( a3 ^7 Q1 d. T. i* e& R+ N2 s, H1 L, C% i7 D/ @/ c8 N
' |& D- b* [; s: l0 c4 G% J! O
- i- B! S& E. X" z  n3 v
* X5 |$ n+ \; w. r8 E& T
8 `1 w9 U# G, w) f0 p$ t8 F# h! M

6 b3 F* F* J+ z4 Z
9 ]) n: ?" [/ f3 a. f
4 l9 r5 U$ [& Y6 {( U1 v+ d$ V2 H/ z" |+ k
4. 指派问题的计算机求解
% P2 |6 _- b) X" X整数规划问题的求解可以使用 Lingo 等专用软件。对于一般的整数规划问题,无法 直接利用 Matlab 的函数,必须利用 Matlab 编程实现分枝定界解法和割平面解法。但对 于指派问题等 0−1整数规划问题,可以直接利用 Matlab 的函数 bintprog 进行求解。
& d  @# ^  e7 u6 d2 {' p8 n( `" b+ n8 o1 g8 B

" D4 `; Y% t4 K  q, f3 B1 y9 [5 ]
, ~' E' d4 F1 F: m/ V" C解:编写 Matlab 程序如下: 求得最优值为 21,最优指派方案为
$ X; }3 ~5 L0 c- S$ c
, l0 P6 Z" X- Hc=[3 8 2 10 3;8 7 2 9 7;6 4 2 7 5    * i  H. A+ @* i/ J# y( j" M& S: x/ g
   8 4 2 3 5;9 10 6 9 10];
% k5 U: f4 j4 N( h& S# [c=c(; + @/ }5 \* v1 G5 q: S# r/ {
a=zeros(10,25);
5 h( W$ c) g& @0 t: u. W: n/ Qfor i=1:5    , u4 M  R( W6 @- K2 z/ x5 q
    a(i,(i-1)*5+1:5*i)=1;    - s- m' O# Y8 T; j- A+ u. K- [4 u
    a(5+i,i:5:25)=1; ; x1 i- h* @. [$ O
end 8 x. l4 I6 ]  ~/ s2 u3 ?
b=ones(10,1); : M( W& k: b) _" n
[x,y]=bintprog(c,[],[],a,b); + e5 s  t& F& v( l( O  w* A- L
x=reshape(x,[5,5]),y # n- d2 C& o, Y4 b2 C$ n

, k& N7 S* y0 a9 |3 F, q求解的 LINGO 程序如下: 6 o$ e# h6 {, W& ~6 o8 r! Y

( \6 r% B7 R7 Q
* H/ j" x8 y% Umodel:
. R/ x" W2 M1 g0 b; S" L9 c  Fsets: 1 v3 T! C$ C: k) j
var/1..5/; , w, w7 ]" ?8 l4 z$ D
link(var,var):c,x; 7 Z2 F, l1 x$ D- w7 i: ?
endsets
6 f6 {3 L8 b, |! f# j: Tdata: : q0 G- \5 i3 f6 d( m4 P
c=3 8 2 10 3   + w3 y9 p% }# F
  8 7 2 9 7   
; L% M1 O  y9 o! D/ f! j* ]  T+ D  6 4 2 7 5   
8 t8 R" u5 R, U1 ~  8 4 2 3 5   
! r, r4 V* _, P6 T/ I% ?) h  9 10 6 9 10;
4 D. |7 \! b! a6 _2 f3 Nenddata 6 t1 f/ X; y* c
min=@sum(link:c*x);
% \- M9 L! E2 I; J* D@for(var(i)sum(var(j):x(i,j))=1);
" s6 o6 N5 _$ Y9 c: a@for(var(j)sum(var(i):x(i,j))=1); 1 ?: K8 ~- W& d0 |. [& k  |
@for(linkbin(x)); . P8 u7 r3 s% h  \3 p9 p' r
end ' A: ?* k* |$ q# s9 s
' {6 X" R' k$ _
————————————————
+ `. ^; |0 [. |2 {: b版权声明:本文为CSDN博主「wamg潇潇」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
4 x  @1 P) ], m" J2 ]原文链接:https://blog.csdn.net/qq_29831163/article/details/888949662 T2 n  q, u$ @

1 l5 F! C7 o5 _4 \8 F
( E/ [, ]1 R, k3 ]  A- p1 r




欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5