QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 3254|回复: 0
打印 上一主题 下一主题

计划评审方法和关键路线法【PERT/CPM、统筹方法】

[复制链接]
字体大小: 正常 放大
浅夏110 实名认证       

542

主题

15

听众

1万

积分

  • TA的每日心情
    开心
    2020-11-14 17:15
  • 签到天数: 74 天

    [LV.6]常住居民II

    邮箱绑定达人

    群组2019美赛冲刺课程

    群组站长地区赛培训

    群组2019考研数学 桃子老师

    群组2018教师培训(呼伦贝

    群组2019考研数学 站长系列

    跳转到指定楼层
    1#
    发表于 2020-5-20 17:34 |只看该作者 |倒序浏览
    |招呼Ta 关注Ta |邮箱已经成功绑定
    计划评审方法(program evaluation and review technique, PERT)和关键路线法 (critical path method, CPM)是网络分析的重要组成部分,它广泛地用于系统分析和项 目管理。计划评审与关键路线方法是在 20 世纪 50 年代提出并发展起来的,1956 年, 美国杜邦公司为了协调企业不同业务部门的系统规划,提出了关键路线法。1958 年, 美国海军武装部在研制“北极星”导弹计划时,由于导弹的研制系统过于庞大、复杂, 为找到一种有效的管理方法,设计了计划评审方法。由于 PERT 与 CPM 既有着相同的 目标应用,又有很多相同的术语,这两种方法已合并为一种方法,在国外称为 PERT/CPM,在国内称为统筹方法(scheduling method)。: h5 q7 F" t, m- U, A% V
    ' M/ }4 @$ b  r, C
    1 计划网络图
    7 \$ o7 t$ \2 |3 ~6 V- _例 20 某项目工程由 11 项作业组成(分别用代号 A, B,...., J , K 表示),其计划完 成时间及作业间相互关系如表 9 所示,求完成该项目的最短时间。- P/ {: M( G7 K$ O  @2 D

    - Q& P' p" f* k5 q4 g2 e8 a
    4 ^) p5 L- j/ b  N( w* R! \5 _( ^' u1 Y; G
    例 20 就是计划评审方法或关键路线法需要解决的问题。
    . i! _: M% l  ~6 H
    . _* q& a% F5 w: `$ V: x% ?1.1 计划网络图的概念* n, d& V: a; Q
    【定义】 称任何消耗时间或资源的行动称为作业。称作业的开始或结束为事件,事 件本身不消耗资源。 在计划网络图中通常用圆圈表示事件,用箭线表示工作,如图 9 所示,1,2,3 表 示事件, A, B 表示作业。由这种方法画出的网络图称为计划网络图。
    2 _0 r* F0 L  }
    3 h  Y5 G' G% `  N! z6 m  ]/ s% r
    / B3 k) s" L3 p& C4 G; J5 `0 s8 {" A$ q, z- J; O0 i: r5 I
                      虚工作用虚箭线“”表示。它表示工时为零,不消耗任何资源的虚构工作。 其作用只是为了正确表示工作的前行后继关系。 定义 在计划网络图中,称从初始事件到最终事件的由各项工作连贯组成的一条 路为路线。具有累计作业时间最长的路线称为关键路线。  ' Z1 G5 Y% l; ?8 U4 ^& [
    6 J- Q! g! H% p2 ~( c
    由此看来,例 20 就是求相应的计划网络图中的关键路线。* D4 I5 N# L: a- c3 Q9 E1 z

    . J+ a5 m; \/ t1.2 建立计划网络图应注意的问题4 V$ i) i% u7 _. B9 U# H
    (1)任何作业在网络中用唯一的箭线表示,任何作业其终点事件的编号必须大于 其起点事件。  }0 R. F3 E; p  f, N5 N9 l

    # c: I" r( t1 y: w3 _* Y: x1 Z& q(2)两个事件之间只能画一条箭线,表示一项作业。对于具有相同开始和结束事 件的两项以上的作业,要引进虚事件和虚作业。) a5 ^; G2 Y! i" y

      c& R9 ~" a/ j& z$ X  |5 t(3)任何计划网络图应有唯一的最初事件和唯一的最终事件。4 @9 c0 y( J4 M! h
    # h! ^( Q2 V2 j& p- C+ B: x
    (4)计划网络图不允许出现回路。
    : i! D* c( F% {# n; z' ~9 L( r0 u. d" p& O) {
    (5)计划网络图的画法一般是从左到右,从上到下,尽量作到清晰美观,避免箭 头交叉。
    & i7 b3 I; e0 C3 x" \' ]9 K
    " \3 u* r7 W* k, H0 Z0 H2 i2 时间参数
    0 L3 Z' `, m0 v" ]: W# L$ K2.1 事件时间参数
    ' M" a: P  ?( h; M$ Y3 D& h(1)事件的最早时间
      Z: Q- ^  G- u- j2 w事件 j 的最早时间用 表示,它表明以它为始点的各工作最早可能开始的时 间,也表示以它为终点的各工作的最早可能完成时间,它等于从始点事件到该事件的最 长路线上所有工作的工时总和。事件最早时间可用下列递推公式,按照事件编号从小到 大的顺序逐个计算。
      P8 i. a( n8 S5 H4 |$ A/ y. R( W+ w# D
    设事件编号为1,2,..., n ,则
    & l( l. l4 u: J5 R. Y/ x7 L# ?3 y8 Y0 B0 S) L& W

    / G+ j7 W3 v/ J" C; k% e7 \/ ]' E: h; ~3 F* F: U
    其中 是与事件 j 相邻的各紧前事件的最早时间,t(i, j) 是作业(i, j) 所需的工时。 终点事件的最早时间显然就是整个工程的总最早完工期,即
    1 X) a1 U/ w2 n! ]
    $ f+ Z3 W0 Y% @! p. w = 总最早完工期                                                                                                                                   (7)8 s! O+ N. X) y* p0 ]( P
    6 X- [8 {) u' X5 A  g, D
    (2)事件的最迟时间5 O* T! n* Q0 f4 o8 l& E# ^+ s/ m
    事件i 的最迟时间用表示,它表明在不影响任务总工期条件下,以它为始点 的工作的最迟必须开始时间,或以它为终点的各工作的最迟必须完成时间。由于一般情 况下,我们都把任务的最早完工时间作为任务的总工期,所以事件最迟时间的计算公式 为:
    . }% }: p$ L4 R* J
    $ s( @  P: b3 i8 \$ f8 G' \# C# U8 m9 t. k

      d3 N. j' H  H其中是与事件i 相邻的各紧后事件的最迟时间。4 ~0 {  K. N  r2 s( C  b6 r& C
    $ v+ w/ i- _+ E+ A1 ^9 e) I# Q, |
    公式(8)也是递推公式,但与(6)相反,是从终点事件开始,按编号由大至小的 顺序逐个由后向前计算。
    ( p' }  d% D8 @5 |  y. A3 @- @
    6 a2 _( m& Q( j9 f% p$ {+ @2.2 工作的时间参数; s9 H0 W2 p" J  Y
    (1)工作的最早可能开工时间与工作的最早可能完工时间
    7 c5 f+ S* J" H( S, w6 C一个工作(i, j) 的最早可能开工时间用 表示。任何一件工作都必须在其所有紧前工作全部完工后才能开始。
    0 F3 m) w# M5 A3 R3 }/ K  u( z2 x% D. U( p5 [$ E
    工作(i, j) 的最早可能完工时间用 表示。它 表示工作按最早开工时间开始所能达到的完工时间。它们的计算公式为:7 h& t7 `5 I. J

    2 P. u8 t" o5 A  f# Y
    8 ]- X$ ^% s) c! H* R3 L! {; O7 i  d7 G' F! p! w) x
    这组公式也是递推公式。即所有从总开工事件出发的工作(1, j),其最早可能开工 时间为零;任一工作(i, j) 的最早开工时间要由它的所有紧前工作(k,i) 的最早开工时间 决定;工作(i, j) 的最早完工时间显然等于其最早开工时间与工时之和。
    ) W; i7 P, N! ?! `
    9 e( i' r$ Y$ s9 t; K- ~* l6 G(2)工作的最迟必须开工时间与工作的最迟必须完工时间+ u: \6 m+ Y, ^; v) K
    一个工作(i, j) 的最迟开工时间用    表示。它表示工作(i, j) 在不影响整个任 务如期完成的前提下,必须开始的最晚时间。; l+ s1 N; l: ]; X0 T0 u/ X( b& N
    2 L* M6 N* x& m8 y* Q; @) z
    工作(i, j) 的最迟必须完工时间用 表示。它表示工作(i, j) 按最迟时间开 工,所能达到的完工时间。它们的计算公式为:
    2 h! @1 g) [# }4 L2 N; q6 ^  L
    ) |$ d" N' P) ~4 N% v6 e+ G' o8 L/ \5 `8 J1 r

    ( D7 ~: d) [# ?2 ?' X这组公式是按工作的最迟必须开工时间由终点向始点逐个递推的公式。凡是进入 总完工事件 n 的工作(i, n) ,其最迟完工时间必须等于预定总工期或等于这个工作的最 早可能完工时间。任一工作(i, j) 的最迟必须开工时间由它的所有紧后工作( j, k) 的最 迟开工时间确定。而工作(i, j) 的最迟完工时间显然等于本工作的最迟开工时间与工时 的和。# _* J" [$ J) q2 h6 z7 z
    + R$ m2 A, m3 Z; u6 |6 u
    由于任一个事件i (除去始点事件和终点事件),既表示某些工作的开始又表示某 些工作的结束。所以从事件与工作的关系考虑,用公式(9),公式(10)求得的有关工 作的时间参数也可以通过事件的时间参数公式(6),公式(8)来计算。如工作(i, j) 的 最早可能开工时间 就等于事件i 的最早时间 。工作(i, j) 的最迟必须完工 时间等于事件 j 的最迟时间。5 b% v& ~* C# p8 e0 }
    ' v6 T% @8 t( p- k4 }6 X
    2.3 时差7 z6 @  _! K& P5 l! z6 Q
    工作的时差又叫工作的机动时间或富裕时间,常用的时差有两种。
    ( v/ |+ S! Q# W+ {- d
    - L# G$ b0 p% U! T+ i(1)工作的总时差+ Q+ N+ P; A8 O' `# Y  h1 }1 c
    在不影响任务总工期的条件下,某工作(i, j) 可以延迟其开工时间的最大幅度,叫 做该工作的总时差,用 R(i, j) 表示。其计算公式为:
    , c0 _8 s6 o; C% P: Z4 |2 i2 y6 _7 n' R" n
    3 c0 e4 Q# i3 I6 O$ Z# ^, s7 m

    : s9 M- R. O7 ?) J% j# |+ k6 y即工作(i, j) 的总时差等于它的最迟完工时间与最早完工时间的差。显然 R(i, j) 也等于 该工作的最迟开工时间与最早开工时间之差。
    9 _/ v% K+ ?9 N7 e2 u
    0 q3 B4 B" C3 d/ [( i(2)工作的单时差
    # G/ e) i0 g0 K5 O. z4 F* F工作的单时差是指在不影响紧后工作的最早开工时间条件下,此工作可以延迟其 开工时间的最大幅度,用 r(i, j) 表示。其计算公式为:
    6 I0 R% k- M2 i! e6 V+ x% i8 g6 r, B5 [& u

    ' _$ e# b+ n& E! D$ i
    ! X: F7 f" x* G  P即单时差等于其紧后工作的最早开工时间与本工作的最早完工时间之差。
    , W0 x1 b1 i% y, X9 A- k
    3 p3 D4 ~" j! O2 k% g7 J5 A3 计划网络图的计算
    , ~+ a" F, o; k4 Z: J' w) W* d以例 20 的求解过程为例介绍计划网络图的计算方法。
    , I+ Q) z5 E( f, [
    2 e6 S+ r* G+ k! o3.1 建立计划网络图+ M; w3 Y( R7 F  @+ x- q
    首先建立计划网络图。按照上述规则,建立例 20 的计划网络图,如图 10 所示。+ E- d4 O, c' w/ ]: J  h

    & z- f' b+ i- J9 B+ ^5 ?
    # ?, B( k. P$ o
    & ]/ K: D* t6 L& Q4 _5 `; U3.2 写出相应的规划问题4 e/ [: y5 J8 m( X
    & ~- Q# ]' |' ?& t" S% h
    ! `' |7 u$ V" \8 R/ r, ~0 M
    3.3 问题求解, t. [8 r5 _# i0 @
    用 LINGO 软件求解例 20。 编写 LINGO 程序如下:( j; w, \, P+ D& _

    + G2 \: X, M, ~9 Zmodel:
    2 B5 W2 e3 p) U* rsets:5 u! _) O/ _1 `1 f8 j
    events/1..8/:x;2 Q/ E8 p5 k( o1 b2 s; b& P
    operate(events,events)/1 2,1 3,1 4,2 5,3 4,3 5,4 6,5 6,+ q+ O4 c/ Q2 Z% h6 W
    5 7,5 8,6 7,6 8,7 8/:t;4 l' Z* }9 Z9 b( I0 ]" i6 }, [
    endsets2 P9 P2 l4 x4 T% I- E9 e, c* ?
    data:
    + D# y5 U) `9 |t=5 10 11 4 4 0 15 21 25 35 0 20 15;
    * Q" B( b, d3 y6 }7 e; fenddata
    " @  Q8 F3 z* }6 G, N, qmin=x(8)-x(1);" ]& D0 [* P  w1 ?8 y
    @for(operate(i,j):x(j)>x(i)+t(i,j));
    5 ~+ A( Q+ S4 c+ R4 }# q3 Fend" x" V9 O, H9 W% b$ r/ {

    7 m# i6 p5 ?6 u6 N$ q. c0 L计算结果给出了各个项目的开工时间,如  x1 = 0 ,则作业 A, B,C 的开工时间均是 第 0 天;  x2 =  5,作业 E 的开工时间是第 5 天; x3 = 10,则作业 D 的开工时间是第 10 天;等等。每个作业只要按规定的时间开工,整个项目的最短工期为 51 天。  U$ N4 v) @+ @; t

    ; z( J, _) R7 c, J" o3 h尽管上述 LINGO 程序给出相应的开工时间和整个项目的最短工期,但统筹方法中许多有用的信息并没有得到,如项目的关键路径、每个作业的最早开工时间、最迟开工 时间等。0 i$ O* K1 P: _6 c2 l! N. S

      G* }' F$ ~0 I% ]% ]  s例 21(续例 20)求例 20 中每个作业的最早开工时间、最迟开工时间和作业的关 键路径。
    4 F) q$ }4 H  o2 x6 \
    0 t1 S( p7 V! i2 h8 S( Z. U: G4 t% b/ V4 l9 V$ \* ~6 Q

    3 U4 X) G/ \5 j1 F5 {* e: o3 I编写 LINGO 程序如下:5 d1 j% B, |" W" M* V2 V# B* k2 Z

    7 L' b' ^: I+ ~! ~# h7 J7 W6 G5 x: }3 ?7 r+ ~# Q6 K
    model:
    9 K& q- v! [8 c. Y0 ^: e6 osets:+ D2 F1 }; I5 b9 w/ A7 J; x" q  _# r
    events/1..8/:x,z;* ]1 ?1 D' e& v4 O
    operate(events,events)/1 2,1 3,1 4,2 5,3 4,3 5,4 6,5 6,+ e+ k& _: ^9 Z5 P
    5 7,5 8,6 7,6 8,7 8/:s,t,m,c,y;
    $ L3 i6 D( J# i, X* n& sendsets
    + k; P! {. J' {data:
    1 g  u. k! u  f; T/ ^7 v9 Wt=5 10 11 4 4 0 15 21 25 35 0 20 15;
    ' h+ Z8 D$ i5 N' f$ l; u4 ~% km=5 8 8 3 4 0 15 16 22 30 0 16 12;9 M& f; l$ F! k1 s9 Y' {6 e
    c=0 700 400 450 0 0 0 600 300 500 0 500 400;6 u# H1 Y* Y+ [" r/ b' w3 N$ V! v
    d=49;+ {( Z7 K( n. ]+ t8 @: O; ^
    @text(txt2.txt)=x,z;
    % ^* C$ o: B* o7 d3 Cenddata
    - n  D' a1 x" _2 {) _; K$ Rmin=mincost+sumx;
    9 s+ Y6 I' J, L8 p. H- b% o+ R+ Qmincost=@sum(operate:c*y);
    + ]3 S* @* t+ L3 Bsumx=@sum(events:x);
    ' @  C+ m+ I# L- x; `( X@for(operate(i,j):s(i,j)=x(j)-x(i)+y(i,j)-t(i,j));, ?/ U/ q: M+ o: S" z- Y
    n=@size(events);- a9 {; d4 o& {8 r  J/ P
    x(1)=0;
    7 C7 U: J0 O2 B0 D( Tx(n)<d;
    ( l8 D9 q0 Y1 S' u+ h; p@for(operatebnd(0,y,t-m));
    * y( U8 r5 Y1 H) {4 i! qz(n)=x(n);
    1 k% V) |1 L$ h" h- \4 t& }4 v# O6 o@for(events(i)|i#lt#n:z(i)=@min(operate(i,j):z(j)-t(i,j)+y(i,j)));# d+ L1 F0 N& ]( s
    end/ u' L( R' y0 K' ^4 R1 i
    : A6 m" ?3 ^; Q0 L1 I% `
    最迟开工时间的分析需要用到松弛变量 sij ,当 sij > 0时,说明还有剩余时间,对 应作业的工期可以推迟 sij 。例如,s78 = 1,作业(7,8)( J )的开工时间可以推迟 1 天,即开工时间为 36。再如 s46 = 2 ,作业(4,6)( F )可以推迟 2 天开始, 3 s14 = , 作业(1,4)(C )可以推迟 3 天开始,但由于作业(4,6)( F )已能够推迟 2 天, 所以,作业(1,4)(C )最多可推迟 5 天。 由此,可以得到所有作业的最早开工时间和最迟开工时间,如下表所示,方括号 中第 1 个数字是最早开工时间,第 2 个数字是最迟开工时间。0 H. h0 H! N$ L
    4 w2 B# q1 q- f! s- F" q
    " y6 O4 G) \6 S9 {5 h1 P( \
    # S3 X# A) R, x, |+ u
    + l+ b2 A$ u) b, x: c
    从上表可以看出,当最早开工时间与最迟开工时间相同时,对应的作业在关键路 线上,因此可以画出计划网络图中的关键路线,如图 11 粗线所示。关键路线为 1→3→ 5→6→8。" `  u- Y# f) m! |# _1 Z; D
    " t; m! ~$ W+ O+ [

    3 ~- V* w$ F7 K# {7 t" ?3 N$ U7 G- j1 w, X- ~
    3.4 将关键路线看成最长路

    如果将关键路线看成最长路,则可以按照求最短路的方法(将求极小改为求极大) 求出关键路线。

    & z" H  q$ X1 e& V
    1 `% \+ I1 O5 N' ]4 e6 ~2 h
    3 ?4 N4 F7 Y# b1 N# X% V
    例 22 用最长路的方法,求解例 20。  按上述数学规划问题写出相应的 LINGO 程序。
    2 c) W  U8 r' N& y9 A3 R' G2 i6 x1 h- @2 u) Y, F+ b, o
    model:# N* g! g* L/ n/ w, d+ u& ]+ A
    sets:
    7 `4 H8 O' E: \, Revents/1..8/:d;# O' p- |9 w2 W
    operate(events,events)/1 2,1 3,1 4,2 5,3 4,3 5,4 6,5 6,
    ! z$ t5 u( b4 j  L5 7,5 8,6 7,6 8,7 8/:t,x;0 h0 h% Y" K  b7 Q. E" K: P
    endsets5 I2 `* h, B; Q' `; w6 x) q
    data:
      Q  s; Q2 C. p5 a: v; ]8 W. gt=5 10 11 4 4 0 15 21 25 35 0 20 15;
    ) v' ?5 |. S: c: V/ l" |d=1 0 0 0 0 0 0 -1;: x. @; r+ @9 W4 ~
    enddata6 p6 U! L% P7 I& W
    max=@sum(operate:t*x);
    + j7 s; l# Z' e0 k5 y2 F7 A@for(events(i)sum(operate(i,j):x(i,j))-@sum(operate(j,i):x(j,i))=d(i));( y. W  y; @" r4 i8 |
    end
    $ ^7 T; e" J0 n" a; A' S1 d* l( n
    " M( t4 O6 D# N' ~6 \4 l: X: t得工期需要 51 天,关键路线为 1→3→5→6→8。, y# W0 u) L6 {
    2 t  }, C5 S/ Z# |6 t2 S. X$ n; U
    4 关键路线与计划网络的优化% I* i3 x7 z. [" x: N
    例 23(关键路线与计划网络的优化)假设例 20 中所列的工程要求在 49 天内完成。 为提前完成工程,有些作业需要加快进度,缩短工期,而加快进度需要额外增加费用。 下表列出例 20 中可缩短工期的所有作业和缩短一天工期额外增加的费用。现在的问题 是,如何安排作业才能使额外增加的总费用最少。7 V0 X( h3 j5 d# U( j6 U

    4 {$ c9 {  c6 o( l% E) Q; Z  ^2 d& y8 A2 q. e% b0 o
    $ H# ?9 i/ T3 ^/ j3 t& u

    例 23 所涉及的问题就是计划网络的优化问题,这时需要压缩关键路径来减少最短 工期。

    4.1 计划网络优化的数学表达式+ X$ g" n+ b) ^6 ~8 b
    ! j) t! b9 }% Q2 {) _) f

    8 A' @' C% K2 n1 @4.2 计划网络优化的求解

    用 LINGO 软件求解例 23,程序如下:


    : W! z6 B% P( N" T: mmodel:7 T. C- o% C3 Z+ H7 i
    sets:% n, m' {- N* P1 Q* i! ~, M6 n
    events/1..8/:x;1 l  \! x0 U" E& u2 {
    operate(events,events)/1 2,1 3,1 4,2 5,3 4,3 5,4 6,5 6,) V* \" A) e' W( P3 r/ W/ v- \
    5 7,5 8,6 7,6 8,7 8/:t,m,c,y;
    ( B8 |  {8 F( }+ {- S$ P3 Sendsets, Y1 X+ A7 L9 l( z* B+ R+ @
    data:$ M8 \  \2 q& D0 s  a% [* F6 U
    t=5 10 11 4 4 0 15 21 25 35 0 20 15;
    . c. R. L3 g: V/ M+ qm=5 8 8 3 4 0 15 16 22 30 0 16 12;! Z: t& H! d! T' K! k) W& s! K
    c=0 700 400 450 0 0 0 600 300 500 0 500 400;) h1 ]2 t% `1 T: y- u" t2 O. M  k
    d=49;
    , i$ R' I! i( t* c. ]# k3 fenddata4 m5 M) ^: j, q" L9 g0 p2 I+ d# A( r
    min=@sum(operate:c*y);
    0 k% w9 v9 E- z0 P3 B6 m" L, n% F@for(operate(i,j):x(j)-x(i)+y(i,j)>t(i,j));1 \* @- y1 H4 I; _2 E  h7 Y3 e
    n=@size(events);
    ' ]7 V9 R- T3 u) L9 I2 Gx(n)-x(1)<d;6 l: A0 |; i7 f& R
    @for(operatebnd(0,y,t-m));
    4 l( v! l7 N9 {& W7 P- jend# A- `6 w$ \( b& T% \
    ' [5 Q) r7 R% w8 P8 w* O
    + C& @) q* \2 }/ Y, x, @2 c. q
    作业(1,3)(B) 压缩 1 天的工期,作业(6,8)(K) 压缩 1 天工期,这样可以在 49 天 完工,需要多花费 1200 元。 如果需要知道压缩工期后的关键路径,则需要稍复杂一点的计算。
    ; Z, x9 t& t: _
    / [; D3 f, v* B# P( Z例 24 (续例 23) 用 LINGO 软件求解例 23,并求出相应的关键路径、各作业的 最早开工时间和最迟开工时间。 解 为了得到作业的最早开工时间,仍在目标函数中加入  ,记 zi 表示事件i 的最迟开工时间,其它处理方法与前面相同。 写出相应的 LINGO 程序如下:
    0 T% u9 a& q9 P  t* r+ h% y! `/ Q; y# N
    model:
    , a& W: {6 K1 F  [9 f( K  Ksets:' {5 M! ^# ~: g5 A1 G( ?" Z
    events/1..8/:x,z;! N' d! H# `2 B! c) Y
    operate(events,events)/1 2,1 3,1 4,2 5,3 4,3 5,4 6,5 6,$ A) y! Z1 P; Q) m5 h0 _" j
    5 7,5 8,6 7,6 8,7 8/:s,t,m,c,y;5 m" L( l7 d- r3 M% U! w2 i
    endsets
    $ i* t, b/ _% `  T+ jdata:9 f" D- W7 N6 `; `. q0 l# b
    t=5 10 11 4 4 0 15 21 25 35 0 20 15;+ K3 v& R9 F' d
    m=5 8 8 3 4 0 15 16 22 30 0 16 12;
    . ~5 f& B& j2 ]/ S  ]) J$ ^c=0 700 400 450 0 0 0 600 300 500 0 500 400;
    2 G$ N4 e. a1 c+ S! ?  @d=49;3 C7 t4 W" t3 D" G; E& D
    @text(txt2.txt)=x,z;( F. v2 b0 d* q1 J! R1 \/ e; U' g
    enddata. \+ C9 d" @8 F, `7 d
    min=mincost+sumx;) p7 k& y$ c- B, L9 x5 l% {
    mincost=@sum(operate:c*y);+ r( J7 }; |( u( e  A( @
    sumx=@sum(events:x);/ [# W; Z+ i4 _" S9 F8 {
    @for(operate(i,j):s(i,j)=x(j)-x(i)+y(i,j)-t(i,j));
    , D- u5 b% T4 B0 b  ?; Z8 `( a) [; Cn=@size(events);
    / `# D1 Z" H+ p" jx(1)=0;
    0 J' V/ e7 b$ zx(n)<d;; o% Q' H0 O- G5 X
    @for(operatebnd(0,y,t-m));
    5 F3 Y. ?1 V3 v  {9 {0 v) s3 Dz(n)=x(n);
    : W5 _* l, B, e/ w! n@for(events(i)|i#lt#n:z(i)=@min(operate(i,j):z(j)-t(i,j)+y(i,j)));+ K/ \0 A$ Z& R2 s8 O
    end & K+ A1 p; ~' X0 C
    % h$ [: y% G) J' ^, L6 ?* j% X9 H

    ( @: P* N% z6 j计算出所有作业的最早开工时间和最迟开工时间,见表 12。
    5 \: _1 Y, A. |; \; w* U+ b  i, Z: E6 z, z- A0 J
    * @# f0 v/ q5 R4 E: c' P' Q3 m
    / F1 J) ~/ [' f; F. V) ~
    当最早开工时间与最迟开工时间相同时,对应的作业就在关键路线上,图 12 中的 粗线表示优化后的关键路线。从图 5-10 可以看到,关键路线不止一条。
      t* e9 _5 o& A8 c
    ) ~* z$ G7 u& S/ C2 h0 @; I# S0 }5 完成作业期望和实现事件的概率
    ; f) z! g- G" e  P. n+ a在例 20 中,每项作业完成的时间均看成固定的,但在实际应用中,每一工作的完 成会受到一些意外因素的干扰,一般不可能是完全确定的,往往只能凭借经验和过去完 成类似工作需要的时间进行估计。通常情况下,对完成一项作业可以给出三个时间上的 估计值:最乐观值的估计值( a ),最悲观的估计值(b )和最可能的估计值( m )。
    : X6 X5 e7 L: J, ?) u& R1 V+ G+ }( E! t8 G$ y. P
    设  是完成作业(i, j) 的实际时间(是一随机变量),通常用下面的方法计算相应 的数学期望和方差。
    ( }0 O2 c8 H# F& ^0 J4 \* a* L0 x
    ! l6 R" l; @% D2 f2 u' U+ B  ?; f& m2 u
    5 O4 C1 b) l0 O
    例 25 已知例 20 中各项作业完成的三个估计时间如下表所示。如果规定时间为 52 天,求在规定时间内完成全部作业的概率。进一步,如果完成全部作业的概率大于等于 95%,那么工期至少需要多少天?
    3 O. B5 z$ {. x7 `2 H2 l! B( ]+ B7 v
    % Z& U5 A  c: M- K$ B! s
    " z& {" b6 a, ]. I. z( \  ~1 e, i1 X+ M
    解 对于这个问题采用最长路的编写方法。 按公式(13)和公式(14)计算出各作业的期望值与方差,再由期望时间计算出关 键路线。从而由公式(16)和公式(17)得到关键路线的期望与方差的估计值,再利用 分布函数@psn(x),计算出完成作业的概率与完成整个项目的时间。 写出相应的 LINGO 程序如下:
    9 t6 I' p4 j+ E5 A0 `
    ; L; [$ \2 v3 o% }5 A5 Q) M& Cmodel:
    9 m! L7 }1 v+ ~3 D/ _: S; Fsets:
      L# M1 F1 k3 v0 [& Cevents/1..8/:d;& K. q2 i0 W) `2 i) w
    operate(events,events)/1 2,1 3,1 4,2 5,3 4,3 5,4 6,5 6,+ O& T* J3 j" Y* f0 l" X$ j5 ?  _( n
    5 7,5 8,6 7,6 8,7 8/:a,m,b,et,dt,x;
    # K+ p# Z+ G) o) P( g; A5 B  xendsets+ a* [0 Z. R8 F! q
    data:
    1 S1 w5 _$ A3 |3 f; pa=3 8 8 3 2 0 8 18 18 26 0 11 12;
    % f6 z4 I, E- \: im= 5 9 11 4 4 0 16 20 25 33 0 21 15;
    2 c( f& T: }2 O- j. M9 s' W* P+ D+ yb=7 16 14 5 6 0 18 28 32 52 0 25 18;
    / @& ~! o* K' N9 ld=1 0 0 0 0 0 0 -1;
    ' w# W" b( B: ^$ p1 k) Blimit=52;. i8 z2 x; T. u$ A' _7 o' L
    enddata
    & L6 h# S( k, M5 x3 F( v@for(operate:et=(a+4*m+b)/6;dt=(b-a)^2/36);. g& d2 k8 _% e- o+ Q8 t% t: n! i
    max=tbar;8 D: r  P7 G7 ?9 U/ ^* X
    tbar=@sum(operate:et*x);
    8 H* p- K$ p5 |& b- H@for(events(i)sum(operate(i,j):x(i,j))-@sum(operate(j,i):x(j,i))=d(i));+ n- Y7 Q1 k) w
    s^2=@sum(operate:dt*x);
    3 K& C% ^4 [- t4 m: yp=@psn((limit-tbar)/s);
    2 H) [' v# r3 W+ K9 j6 V  E7 d# h@psn((days-tbar)/s)=0.95;
    6 x- W; N' E6 M% aend / f7 h" c6 L4 [4 h5 M. E0 @2 g

    * V) g+ [' {  @! b% q2 x( @1 R4 V7 d: V8 i( E, o
    求得关键路线的时间期望为 51 天,标准差为 3.16,在 52 天完成全部作业的概率为 62.4%,如果完成全部作业的概率大于等于 95%,那么工期至少需要 56.2 天。  j9 i/ l6 I' z- f, c( _7 W' ~( w+ m9 F
    ! Y' \3 o2 H, m8 p
    2 V; }6 J3 n* `) w% ~( x% q$ @
    版权声明:本文为CSDN博主「wamg潇潇」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。: a: ?8 ?( L* ?( h
    原文链接:https://blog.csdn.net/qq_29831163/article/details/89787727
    4 ?0 ^2 L( T' ~3 W+ {0 F6 h
    7 K# R# y: j( c, I$ o. |# v4 g/ W/ j; D& _9 g, I9 F8 K* W1 r
    zan
    转播转播0 分享淘帖0 分享分享0 收藏收藏1 支持支持0 反对反对0 微信微信
    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2026-9-9 03:01 , Processed in 0.372334 second(s), 51 queries .

    回顶部