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

单代号搭接网络时间参数的计算与关键线路的确定上机目的：理解、掌握单代号搭接网络在计算机中的存贮方法；掌握计算单代号搭接网络时间参数的算法思想；学会编制与调试较复杂的应用程序。二、上机内容与步骤：长永高速公路第九标段某装配式砼板桥网络图其中：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。112101113346141516789125FTS=14FTS=10FTS=7FTS=28FTS=20FTS=7上机步骤2.1建立工作关系数据(D1KN.DBF)、工作资源消耗数据库(D2KN.DBF)及工作时间参数输出结果数据库文件(D3KN.DBF)，建立的表格如下：表格建立完成之后，输入相关数据，如下图：、表格数据输入后如下图：2.2编制最早开始时间与最早完成时间计算程序：SETTALKOFFACCEPT"请输入工作约束关系数据库文件名称："toK1ACCEPT"请输入工作资源消耗数据库文件名称："toK2ACCEPT"请输入工作时间参数输出数据库文件名称："toK3INPUT"请输入开始工作的最早开始时间："toESEF=ESSELE1USE&K1SELE3USE&K3REPLFOR节点号=1最早开始WITHES最早结束WITHEFSELE2USE&K2GOBOTTOMI1=节点号N1=2DOWHILEN1<=I1SELE2GON1D2=持续时间SELE1GOTOPI2=0DOWHILE.NOT.EOF()IF终点节点=N1IFN1>=3N2=起始节点SELE3GON2ES=最早开始EF=最早结束SELE1ENDIFES1=ES+STSES2=EF+FTSI2=I2+1ES3=MAX(ES1,ES2)IFI2=1ES4=ES3ELSEIFES3>ES4ES4=ES3ENDIFENDIFENDIFSKIPENDDOES=ES4EF=ES+D2SELE3GON1REPLACE最早开始WITHES,最早结束WITHEFN1=N1+1ENDDOSETTALKON2.3编制最迟开始时间与最迟完成时间计算程序：SETTALKOFFACCEPT"请输入工作约束关系数据库文件名称:"toK1ACCEPT"请输入工作资源消耗数据库文件名称:"toK2ACCEPT"请输入工作时间参数输出数据库文件名称:"toK3INPUT"请输入终点号工作的最迟结束时间:"toLFLS=LFSELE1USE&K1SELE3USE&K3REPLFOR节点号=16最迟开始WITHLS,最迟结束WITHLFN1=15DOWHILEN1>=1SELE2use&K2GON1D2=持续时间SELE1GOtopI2=0DOWHILE.NOT.EOF()IF起始节点=N1IFN1<=14N2=终点节点SELE3GON2LS=最迟开始LF=最迟结束SELE1ENDIFLF1=LS-FTSLF2=LS-STS+D2I2=I2+1LF3=Min(LF1,LF2)IFI2=1LF4=LF3ELSEIFLF3<LF4LF4=LF3ENDIFENDIFENDIFSKIPENDDOLF=LF4LS=LF-D2SELE3GON1REPL最迟开始WITHLS,最迟结束WITHLFN1=N1-1ENDDOREPLACEALL工作总时差WITH最迟结束-最早结束SETTALKON2.3最早开始结束、最迟开始结束表格上机体会与建议通过