单代号搭接网络计算及编程.docVIP

单代号搭接网络时间参数的计算与关键线路的确定 上机目的： 理解、掌握单代号搭接网络在计算机中的存贮方法； 掌握计算单代号搭接网络时间参数的算法思想； 学会编制与调试较复杂的应用程序。 二、上机内容与步骤： 长永高速公路第九标段某装配式砼板桥网络图 其中：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 ES3ES4 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 LF3LF4 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 最早开始结束、最迟开始结束表格 上机体会与建议 通过上机的亲身操作，我将老师上课