单代号搭接网络时间参数的计算与关键线路的确定Word文件下载.docx
- 文档编号:19743138
- 上传时间:2023-01-09
- 格式:DOCX
- 页数:9
- 大小:546.47KB
单代号搭接网络时间参数的计算与关键线路的确定Word文件下载.docx
《单代号搭接网络时间参数的计算与关键线路的确定Word文件下载.docx》由会员分享,可在线阅读,更多相关《单代号搭接网络时间参数的计算与关键线路的确定Word文件下载.docx(9页珍藏版)》请在冰豆网上搜索。
D10=2;
D11=18;
D12=17;
D13=28;
D14=2;
D15=3;
D16=0。
FTS=14
FTS=10
FTS=7FTS=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、编制最早开始时间与最早结束时间计算程序:
SETTALKOFF
ACCEPT"
请输入工作约束关系数据库文件名称:
"
toK1
ACCEPT"
请输入工作资源消耗数据库文件名称:
toK2
请输入工作时间参数输出数据库文件名称:
toK3
INPUT"
请输入开始工作的最早开始时间:
"
toES
EF=ES
SELECT1
USE&
K1
SELECT3
K3
REPLFOR节点号=1最早开始WITHES最早结束WITHEF
SELE2
K2
GOBOTTOM
I1=节点号
N1=2
DOWHILEN1<
=I1
GON1
D2=持续时间
SELE1
GOTOP
I2=0
DOWHILE.NOT.EOF()
IF终点节点=N1
IFN1>
=3
N2=起始节点
SELE3
GON2
ES=最早开始
EF=最早结束
ENDIF
ES1=ES+STS
ES2=EF+FTS
I2=I2+1
ES3=MAX(ES1,ES2)
IFI2=1
ES4=ES3
ELSE
IFES3>
ES4
SKIP
ENDDO
ES=ES4
EF=ES+D2
REPL最早开始WITHES,最早结束WITHEF
N1=N1+1
SETTALKON
最早开始时间与最早结束时间程序运行结果如下图:
3、编制最迟开始时间与最迟结束时间计算程序:
请输入工作约束关系数据库文件名称:
toK1
请输入工作资源消耗数据库文件名称:
toK2
请输入工作时间参数输出数据库文件名称:
toK3
INPUT"
请输入终点号工作的最迟结束时间:
toLF
LS=LF
SELE1
USE&
SELE3
REPLFOR节点号=16最迟开始WITHLS,最迟结束WITHLF
N1=15
DOWHILEN1>
=1
use&
GOtop
IF起始节点=N1
IFN1<
=14
N2=终点节点
GON2
LS=最迟开始
LF=最迟结束
ENDIF
LF1=LS-FTS
LF2=LS-STS+D2
I2=I2+1
LF3=Min(LF1,LF2)
IFI2=1
LF4=LF3
ELSE
IFLF3<
LF4
SKIP
LF=LF4
LS=LF-D2
REPL最迟开始WITHLS,最迟结束WITHLF
N1=N1-1
replaceall工作总时差with最迟结束-最早结束
SETTALKON
最迟开始时间、最迟结束时间与工作总时差程序运行结果如下:
4、关键路线的确定
settalkoff
useD3KN
publick
k=1
DIMENSIONA(100)
dowhile.not.EOF()
if工作总时差=0
A(K)=节点号
K=K+1
ENDIF
skip
M=K-1
K=1
此网络图的关键线路为:
dowhileK<
=M
ifK=M
STR(A(K),2)
else
STR(A(K),2)+"
-"
K=K+1
settalkon
关键路线程序运行结果如下:
(注:
可编辑下载,若有不当之处,请指正,谢谢!
)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 代号 网络 时间 参数 计算 关键 线路 的确