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

单代号搭接网络时间参数的计算与关键线路的确定 一、上机目的： 1、理解、掌握单代号搭接网络在计算机中的存贮方法； 2、掌握计算单代号搭接网络时间参数的算法思想； 3、学会编制与调试较复杂的应用程序。 二、上机内容与步骤 长永高速公路第九标段某装配式砼板桥网络图 FTS=14 FTS=10 FTS=7 FTS=28 FTS=20 FTS=7 步骤 1、建立工作关系数据(D1KN.DBF)、工作资源消耗数据库(D2KN.DBF)及工作时间参数输出结果数据库文件(D3KN.DBF)。 (1)打开新建表(D1KN.DBF)，然后设计表，结果如下 （2）命令输入“list—回车”，表格建立完成后，输入相关的数据。如下图： （3）打开新建表(D2KN.DBF)，然后设计表，结果如下 (4) 命令输入“list—回车”，表格建立完成后，输入相关的数据。如下图： (5)打开新建表(D3KN.DBF)，然后设计表，结果如下 (6)命令输入“list—回车”，表格建立完成后，输入相关的数据。如下图： 2、编制最早开始时间与最早结束时间计算程序： SET TALK OFF ACCEPT 请输入工作约束关系数据库文件名称： to K1 ACCEPT请输入工作资源消耗数据库文件名称： to K2 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 ENDIF ES1=ES+STS ES2=EF+FTS I2=I2+1 ES3=MAX(ES1,ES2) IF I2=1 ES4=ES3 ELSE IF ES3ES4 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 最早开始时间与最早结束时间程序运行结果如下图： 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 LF3LF4 LF4=LF3 ENDIF ENDIF ENDIF SKIP ENDDO LF=LF4 LS=LF-D2 SELE 3 GO N1 REPL 最迟开始 WITH LS,最迟结