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

《单代号搭接网络时间参数的计算与关键线路的确定.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、单代号搭接网络时间参数的计算与关键线路的确定一、上机目的：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。12101113346141516789125FTS=14FTS=10FTS=7FTS=28FTS=20FTS=7步骤：1、建立工作关系数

2、据(D1KN.DBF)、工作资源消耗数据库(D2KN.DBF)及工作时间参数输出结果数据库文件(D3KN.DBF)。(1)打开新建表(D1KN.DBF)，然后设计表，结果如下（2）命令输入“list—回车”，表格建立完成后，输入相关的数据。如下图：（3）打开新建表(D2KN.DBF)，然后设计表，结果如下(4)命令输入“list—回车”，表格建立完成后，输入相关的数据。如下图：(5)打开新建表(D3KN.DBF)，然后设计表，结果如下(6)命令输入“list—回车”，表格建立完成后，输入相关的数据。如下图：2、编制最早开始时间与最早结束时间计算程序：SETTALKOFF

3、 ACCEPT"请输入工作约束关系数据库文件名称："toK1 ACCEPT"请输入工作资源消耗数据库文件名称："toK2ACCEPT"请输入工作时间参数输出数据库文件名称："toK3 INPUT"请输入开始工作的最早开始时间："toES EF=ES SELECT1 USE&K1 SELECT3 USE&K3 REPLFOR节点号=1最早开始WITHES最早结束WITHEF SELE2 USE&K2 GOBOTTOM I1=节点号 N1=2 DOWHILEN1<=I1 SELE2 GON1 D2=持续时间 SELE1 GOTOP I2=0 DOWHILE.NOT.EOF(

4、) IF终点节点=N1 IFN1>=3 N2=起始节点 SELE3 GON2 ES=最早开始 EF=最早结束 SELE1 ENDIF ES1=ES+STS ES2=EF+FTS I2=I2+1 ES3=MAX(ES1,ES2) IFI2=1 ES4=ES3 ELSE IFES3>ES4 ES4=ES3 ENDIF ENDIF ENDIF SKIP ENDDO ES=ES4 EF=ES+D2 SELE3 GON1 REPL最早开始WITHES,最早结束WITHEF N1=N1+1 ENDDO SETTALKON最早开始时间与最早结束时间程序运行结果如下图：3、编制最迟开始

5、时间与最迟结束时间计算程序：SETTALKOFFACCEPT"请输入工作约束关系数据库文件名称:"toK1ACCEPT"请输入工作资源消耗数据库文件名称:"toK2ACCEPT"请输入工作时间参数输出数据库文件名称:"toK3INPUT"请输入终点号工作的最迟结束时间:"toLFLS=LFSELE1USE&K1SELE3USE&K3REPLFOR节点号=16最迟开始WITHLS,最迟结束WITHLFN1=15DOWHILEN1>=1SELE2use&K2GON1D2=持续时间SELE1GOtopI2=0DOWHILE.NOT.EOF()IF起始节点=N1IFN1<=14

6、N2=终点节点SELE3GON2LS=最迟开始LF=最迟结束SELE1ENDIFLF1=LS-FTSLF2=LS-STS+D2I2=I2+1LF3=Min(LF1,LF2)IFI2=1LF4=LF3ELSEIFLF3

7、seD3KNpublickk=1DIMENSIONA(100)dowhile.not.EOF()if工作总时差=0A(K)=节点号K=K+1ENDIFskipENDDOM=K-1K=1"此网络图的关键线路为:"dowhileK<=MifK=MSTR(A(K),2)elseSTR(A(K),2)+"-"ENDIFK=K+1ENDDOsettalkon关键路线程序运行结果如下：