单代号搭接网络时间参数的计算与关键线路的确定

一、    上机目的：

1、                          理解、掌握单代号搭接网络在计算机中的存贮方法；

2、                          掌握计算单代号搭接网络时间参数的算法思想；

3、                          学会编制与调试较复杂的应用程序。

二、上机内容与步骤：

长永高速公路第九标段某装配式砼板桥网络图

其中：D1=0；D2=17；D3=18；D4=1；D5=3；D6=4；D7=1；D8=3；D9=2；D10=2；D11=18；D12=17；D13=28；D14=2；D15=3；D16=0。

 

                    FTS=14

                                   FTS=10

                FTS=7                                                    

                                                             FTS=28  

                              FTS=20                                

                         FTS=7

上机步骤

2.1 建立工作关系数据(D1KN.DBF)、工作资源消耗数据库(D2KN.DBF)及工作时间参数输出结果数据库文件(D3KN.DBF)，建立的表格如下：

表格建立完成之后，输入相关数据，如下图：

、

表格数据输入后如下图：

2.2  编制最早开始时间与最早完成时间计算程序：

SET TALK OFF

ACCEPT "请输入工作约束关系数据库文件名称： "to K1

ACCEPT"请输入工作资源消耗数据库文件名称： "to K2

ACCEPT"请输入工作时间参数输出数据库文件名称： "to K3

INPUT"请输入开始工作的最早开始时间："to ES

EF=ES

SELE 1

USE &K1

SELE 3

USE &K3

REPL FOR 节点号=1 最早开始 WITH ES 最早结束 WITH EF

SELE 2

USE &K2

GO BOTTOM

I1=节点号

N1=2

DO WHILE N1<=I1

SELE 2

GO N1

D2=持续时间

SELE 1

GO TOP

I2=0

DO WHILE .NOT.EOF()

IF 终点节点=N1

IF N1>=3

N2=起始节点

SELE 3

GO N2

ES=最早开始

EF=最早结束

SELE 1

ENDIF

ES1=ES+STS

ES2=EF+FTS

I2=I2+1

ES3=MAX(ES1,ES2)

IF I2=1

ES4=ES3

ELSE

IF ES3>ES4

ES4=ES3

ENDIF

ENDIF

ENDIF

SKIP

ENDDO

ES=ES4

EF=ES+D2

SELE 3

GO N1

REPLACE 最早开始 WITH ES,最早结束 WITH EF

N1=N1+1

ENDDO

SET TALK ON

2.3  编制最迟开始时间与最迟完成时间计算程序：

SET TALK OFF

ACCEPT "请输入工作约束关系数据库文件名称:" to K1

ACCEPT "请输入工作资源消耗数据库文件名称:" to K2

ACCEPT "请输入工作时间参数输出数据库文件名称:" to K3

INPUT "请输入终点号工作的最迟结束时间:" to LF

LS=LF

SELE 1

USE &K1

SELE 3

USE &K3

REPL FOR 节点号=16 最迟开始 WITH LS,最迟结束 WITH LF

N1=15

DO WHILE N1>=1

SELE 2

use &K2

GO N1

D2=持续时间

SELE 1

GO top

I2=0

DO WHILE .NOT.EOF()

IF 起始节点=N1

IF N1<=14

N2=终点节点

SELE 3

GO N2

LS=最迟开始

LF=最迟结束

SELE 1

ENDIF

LF1=LS-FTS

LF2=LS-STS+D2

I2=I2+1

LF3=Min(LF1,LF2)

IF I2=1

LF4=LF3

ELSE

IF LF3<LF4

LF4=LF3

ENDIF

ENDIF

ENDIF

SKIP

ENDDO

LF=LF4

LS=LF-D2

SELE 3

GO N1

REPL 最迟开始 WITH LS,最迟结束 WITH LF

N1=N1-1

ENDDO

REPLACE  ALL 工作总时差 WITH 最迟结束-最早结束

SET TALK ON

2.3  最早开始结束、最迟开始结束表格

三、上机体会与建议

    通过上机的亲身操作，我将老师上课所讲的知识重现了出来，但是我觉得这只是学习的开始。建议老师以后能多给我们自我设计的机会，这样不紧能学习到知识而且更能在实践中深刻的运用知识。

      此次上机实践操作，

 

第二篇：单代号网络计算图例

ESi TFi

EFi TFj j i FFi i FFj