《用于计算双代号钢络图时间参数的计算机程序.pdf》由会员分享，可在线阅读，更多相关《用于计算双代号钢络图时间参数的计算机程序.pdf（3页珍藏版）》请在三一文库上搜索。
1、第3 卷 增刊 辽 宁 省 交 通 高 等 2 0 01年 6月J OURN AL OF LI A ONI NG P ROVI NC I AL 专 科 学 校 学 报 ， S COLLEGE OF COMMU NI CATI ONS J 2 0 0 1 用 于计算 双代号 网络 图时 间参数 的计 算机 程序 王 胜伟 柳 大 宇 忡 崇 扭 ( 1 2盘稀 市套路 管 理 处3海城 市 套路段 ) 摘要本 文介 绍 了用于 计鼻 公路 工 程施 工 网络计 划 时 间参敷 的 一个 计 算机 程 序 。 关键 词觑 代 号 网络 圉 时 间参敷计鼻 机程 序 在现 代 公路 工 程 的施 工
2、 组 织过 程 中 网 络计 划 技术 已经 得 到 了越来 越 广 泛 的应 用 。网络计 掘 f 技术 是本 世纪 五 十年 代 后 期 发 展 起 来 的 一 仃新 型科 学 。 网络计 划 是 以加 注工 序作 业 时 间的箭 杆 和 节点 组 成 的 网络 图来 表 示 施工 进度 的 一种 计划 方 法 。其 基 本 原 理是 先 用 网图 的形 式表 示 某项 工程 各 工序 的先 后 顺 序相 互 关系 再 通 过 计 算 找 出 计 划 中的 关键 工 序 和 关键 线路 。 最 后通 过 不 断 改 善 得 出 最 优 方 案付 诸 实 施并 在执 行 中 进 行 有 效
3、的 控 制 与 监 督 ， 以保 证 舍 理 利用 人 力 、 物 力 、 财 力 获得 最 佳 的经挤 效 益 。 与 其 它施 工 计 划 相 比 网 络 计 划 能 把 旋 工过 程 中 的各 有 关工 作 组 成 一 个 有 机 整体 全 面 而 明 确 地 反 映 出各 项 工 作 之 间相 互 制 约 、 相 互 依 赖 的 关 系。 通过 网络 图时 间参 数 的 计 算 能 在错 综 复 杂 的计 划 中 找出 关键 工序 和 关键 线 路 便于 管理 人 员抓 住 主 要 矛 盾 更好 地 运用 和 调 配 人 力 与 设备 节 约人 力 、 暂 力 ， 达到 降低 成本 的
4、 目的 。但 是对 于 大型 的 网 络 图 ， 其 时 间参 数 的计 算 是 一 项 很 鬟 重 的 工 作 ， 利 用 计 算 机 进 行 网络 图时 间 参数 的计 算 见f 可 以节省 大 量的 人 力和 时 间 。 1 双 代号 网络 图时 间 参 数的 计算 原 理 双代 号 网络 图 的时 间参 数 有工 序最 早 开始 时 间 ( E S ) 工 序 最 早完 成 时 间 ( E F) 、 工序 最迟 开 始 时 间 ( L S ) W序 最迟 完 成 时 间 ( L F) 、 节 点 最 早 时 间 ( E T) 、 节点 最迟 时 间( L T) 以及 工 序 总 时差(
5、 T F) 、 工离 自由 时差 ( F F) 。在 这里 我 们 只讨 论 工 序 时 间 参 数 有 有 关计 算 公式 ， 详 细 内容 请参 阅相 关 著 作。 工序 最早 开始 时 间 ： 收稿 日期 ： 2 0 0 00 3 1 5 E S =ma x l E - i- E s 本工序最 早开始时间 磷 紧 前 工序 的最 早 开始 时 间 紧前 工序 作业 持 续 时 间 m“一取 最大 值 工 序最 早 完成 时间 ： E = E + t li EE ， 本 工 序 最 早完 成 时 间 其它 符号 意 义 同前 。 网络 计 划的 总工 期 ( T) 就 是 最 早 完 成
6、时 间的最 大 值 。 工 序最 迟 开始 时 间 嗡 rai n 1 I - i- l S 本 工序 最迟 开 始 时 间 Ls j k 一紧后 工序 最 迟 开始 时 间 rai n 取最 小 值 意 义 同前 工序 最 迟完 成 时 间 LFU I L E； 工 序最 迟 完成 时 间 其 它符 舍 号意 义 同前 工 序总 时差 TF k+ E T F 工序 总 时差 其 它符 号 意义 同前 工序 自由时 差 FF U E + E 一 E F 工序 自由 时差 其 它符 号意 义 同前 6 9 维普资讯 辽 宁 省 交 通 高 等 专 科 学 校 学 报 2 0 01年 工 序 总时
7、 差为 零 的 工序 即为 关 键 工 序 由关 键 工序 组成 的 线路 即 为该 阿 络计 划 的关键 线路 。 2时 间参 数 计算 程序 的 鞠 输 出 本程 序用 F 0R 1 1 AN 语 言编 写 ， 程 序 输 入 数 据 的意 义如 下 ： N 网 络 图 中数据 的数 目 B H( I ， 1 ) 第 1 个工 序 第 1个节 点 编号 B H( I 2 ) 第 1 个 工 序第 2十节 点编号 T( I ) 第 1 个 工序 持 续 时间 GQS 一 是 否 有 指令 总工 期 ， 填 0表 示 没有 填 1表 示有 指 令 总工 期 车 爵 人 数据 在 I NP UT
8、 DA q 文 件 中， 节 点编 号 接 工序的先后顺序 由小 到大进行。输入 结果 在 OUT P uT DA T文件 中 。 3源程 序 C W L Sc FOR DI MENS I ON B H ( i O O 0 ，2) T ( 1 0 0 0) E S ( I O O 0 ) ， L S ( I O O 0 ) ，EF ( 1 0 o o ) L F( 1 0 ) T F ( 1 0 0 0 ) ， F F ( 1 0 ) I N r EGE R ES L S， EF， LF I F FF GQ， B H oP EN( 6 F I L E： I NP UT n T ) RE AD(
9、 6 ，*) N RE AD( 6 ， *) ( ( B H( I ， J ) ， J =1 2 ) I =1 ， N) RE AD( 6 *) ( T( I ) I =1 ， N) RE AD( 6 ，*) GQ s I F( GQS NE 0 ) T N RE A D( 6 ，*) G Q ENDI F C L OS E( 6 ) E S= 0 M ：2 DO I = M ， N I 3 0 K = I ， 2 。一 l I F ( B H( I ， 1 )E Q B H( K一1 ， 2 ) ) THE N E S S =ES ( K1 ) +T( K一1 ) I F ( E S s G
10、T E S ( I ) ) THE N E S ( I ) =E S S END I F ENDI F DNDI N) ENDDO I F ( G( I S E Q 0 ) TH EN GQ ：0 70一 DO I = 1 N I F ( B H( I 2 ) E q B H( N 2 ) THE N GQQ=E S ( I ) +T( I ) I F ( G QQ GT C , Q) T i - mN GQ = G( q ENDI F ENDI F ENDDO ENDI F LS： 1 0000 00 L S ( N) =C , Q T( N) Do I = N 一 1 1 一 l I F(
11、 B H( I 2 )E Q B H( N， 2 ) T HE N L S ( I ) =C , Q T( I ) ENDI F ENDDO DO I ： N 一 2 i 一 1 DO J = I N 一1 I F ( B H( I ， 2 ) E Q B H( j +l ， i ) ) T HEN L S P：L s ( J +1 ) 一T( I ) I F ( 【 sP L T L S ( I ) ) T HE N L S( I )： LS P ENDI F ENDI F ENDDO ENBDO DO I ： i ， N E F( I ) ：E S ( I ) +T ( I ) L F (
12、 I ) =L S ( I ) +T( I ) T F( I ) =L S ( I ) 一E S ( I ) E m DO DO J：1 N 一1 Do I ； 2， N n ( B H( J 2 )E q B H( I 1 ) TH EN F F ( I )=gS ( I )一( E S ( J ) +T( J ) ) ENDI F ENDDO E NDDO DO I= 1 N I F( B t t ( 1 2 ) EQ B H( N 2 ) ) THE N F F ( I ) =GQE S ( I )+T( I ) ENDI F ENDDO 维普资讯 增刊 王胜伟柳大宇等： 用于计算双代号
13、阿络图时间参数的计算机程序 ( I ) * 1 0 I 6 OP E N( 8 ， F I L E= OUT P UT D AT ) WRI T E( 8 ， ( 8 x， 一 一 5 X， E S ： ， 5 X， E F： ) 5 X， L S ； 5 X， L Ft 5 X T F： 5 X F F： ) ) DO I = 1 N WRI T E ( 8 1 0 ) B H( I 1 ) B H( I 2 ) ， E S ( I ) EF L S ( I ) L F ( I ) ， TF ( I ) FF ( I ) F OR MA T( 6 X， I 3 一 一 I 3 ， 2 X I
14、 6 ， 2 X I 6 2 X， ，2X， I 6 2XI 6 ENDDO WRI T E ( 8 ， 2 0 ) G Q 2 0 F OR MA T( 1 0 X， 8 X T： ， 8 X， I 5 ) G L O S E ( 8 ) END 4 举例 计算 如 下 网络 图 的时 间参 数 ： 1 j _ - - + ， 奉 输入 数据 ： ( 文件 名 为 I NP UT D AT) 9 1 5 3 2 6 5 0 5 3 ( 工序 持 续 时 间) 0 ( 有无 指 令总 工 期) 蠢出结 果 ： ( 文 件名 为 OUTP U T D AT i J ES： EF：LS：LF：TF
15、： FF： 12 0 1 1 2 1 0 1 3 0 5 0 5 0 0 2 3 1 4 2 5 1 1 2 4 1 3 9 1 1 8 8 34 5 11 5 l1 0 0 35 5 1 0 8 1 3 3 1 4 5 l l 1 1 1 3 1 3 2 0 4 6 1 1 16 ll l 6 0 0 5 6 1 1 1 4 l 3 l 6 2 2 T ： 1 6 由 蠢出结 果可 以看 出工 序 、 、 的总时 差 为零 为 关键 工序 。 线路 一 为关键 线 路 。总工 期 T=1 6 。 Th e Co mp u t e r Pr o g r a m Us e d f o r Ca
16、l c u l a t i n g t h e Ti me P a r a me t e r o f Do u b l e Co d e Ne t c h a r t W a n g Sh e n gwe i Li u Da y u Zh o n g Cho n g z h e n A b s t r a c t T h i s p a s s a g e s t a t e s a c o mp u t e r p r o g r a m u s e d f o r c a l c u l a t i n g t h e t i me p a r a me t e r 。 f t he d r i v e roa d e n g i ne e r i ng c o n s t r u c t i o n ne t p l a n ( K e y wo r d s d o u b l e cod e n e t c h a r t t i me P a r a me t e r c o mp u t e r p r o g r a m 维普资讯