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

CHANGSHA UNIVERSITY OF SCIENCE & TECHNOLOGY

题目：

上机报告（一）

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

学生姓名： 肖 志 锋 学 号： 200831010121 班 级: 0801班 学 院： 交通运输工程学院 专 业： 工程管理 指导教师： 高 幸

201 年11月

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

一、 上机目的：

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。 1 2 FTS=1 10 11 13 FTS=10 FTS=7 15 FTS=28 3 4 5 6 14 16 FTS=20 FTS=7 7 8 9 12 上机步骤

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 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 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

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 LF3LS=LF-D2 SELE 3 GO N1

REPL 最迟开始 WITH LS,最迟结束 WITH LF N1=N1-1 ENDDO

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

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