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

单代号搭接网络时间参数的计算与关键线路的确定 一、上机目的：

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 1 2 10 11 13 FTS=10

15 6 FTS=7 5 4 3 FTS=28 14 16

FTS=20 8 7 9 12

FTS=7

步骤：

1、建立工作关系数据(D1KN.DBF)、工作资源消耗数据库(D2KN.DBF)及工作时间参数输出结果数据库文件(D3KN.DBF)。

(1)打开新建表(D1KN.DBF)，然后设计表，结果如下

1 / 10

希望对大家有所帮助，多谢您的浏览！

（2）命令输入“list—回车”，表格建立完成后，输入相关的数据。如下图：

（3）打开新建表(D2KN.DBF)，然后设计表，结果如下

(4) 命令输入“list—回车”，表格建立完成后，输入相关的数据。如下图：

2 / 10

希望对大家有所帮助，多谢您的浏览！

(5)打开新建表(D3KN.DBF)，然后设计表，结果如下

(6)命令输入“list—回车”，表格建立完成后，输入相关的数据。如下图：

2、编制最早开始时间与最早结束时间计算程序： SET TALK OFF

ACCEPT \"请输入工作约束关系数据库文件名称： \"to K1 ACCEPT\"请输入工作资源消耗数据库文件名称： \"to K2

3 / 10

希望对大家有所帮助，多谢您的浏览！

ACCEPT\"请输入工作时间参数输出数据库文件名称： \"to K3 INPUT\"请输入开始工作的最早开始时间：\"to ES EF=ES SELECT 1 USE &K1 SELECT 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

4 / 10

希望对大家有所帮助，多谢您的浏览！

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

REPL 最早开始 WITH ES,最早结束 WITH EF N1=N1+1 ENDDO SET TALK ON

最早开始时间与最早结束时间程序运行结果如下图：

5 / 10

希望对大家有所帮助，多谢您的浏览！

3、编制最迟开始时间与最迟结束时间计算程序： SET TALK OFF

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

6 / 10

希望对大家有所帮助，多谢您的浏览！

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

5 / 10

希望对大家有所帮助，多谢您的浏览！

LF2=LS-STS+D2 I2=I2+1

LF3=Min(LF1,LF2) IF I2=1 LF4=LF3 ELSE IF LF3REPL 最迟开始 WITH LS,最迟结束 WITH LF N1=N1-1 ENDDO

replace all 工作总时差 with 最迟结束-最早结束 SET TALK ON

最迟开始时间、最迟结束时间与工作总时差程序运行结果如下：

6 / 10

希望对大家有所帮助，多谢您的浏览！

4、关键路线的确定 set talk off use D3KN public k k=1

DIMENSION A(100) do while.not.EOF() if 工作总时差=0 A(K)=节点号 K=K+1 ENDIF skip ENDDO M=K-1 K=1

\"此网络图的关键线路为:\" do while K<=M if K=M STR(A(K),2) else

7 / 10

希望对大家有所帮助，多谢您的浏览！

STR(A(K),2)+\"-\" ENDIF K=K+1 ENDDO set talk on

关键路线程序运行结果如下：

（注：可编辑下载，若有不当之处，请指正，谢谢!）

8 / 10