利用FORTRAN编程进行水闸泄流计算应用
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
并 结 合 具 体 工程 应 用 实例 对 程序 进 行 了验 证 。
关键 词 ：Ｆ ｒ ａ 泄 流 计 算 ｏｔ ｎ ｒ
Ｃａ ｃ ｌ ｔｏ ｆ Ｗ ａ ｅ Ｇａ ｅ ｌｕ ａｉ ｎ ｏ ｔｒ ｔ Ｌｅ ｋ ｇ ｏ ａ ａ ｅ Ｆｌ ｗ ｔ ｒ ｕｇ ＦＯＲＴＲＡＮ ｏ ｒ ｍ ｍ ｉ ｈ ｏ ｈ Ｐｒ ｇ ａ ｎｇ
Ｗ ＡＮＧ ｎ Ｆｅ ｇ
（ｈｎ ｄ ｎｔｕ ｆ Ｃ ｉ ｄｏ ｏ ｅ ｎ ｉｅｒ ｇ Ｃ ｎａｔｇ Ｇｏｐ Ｃ ｒｏａｏ ，Ｃ ｅｇ ｕ ６ ０ ７ ８ ｈｎ ） Ｃ ｅｇ ｕ Ｉｓｔｔ ｏ ｈｎ Ｈｙｒ ｗ ｒＥ ｇ ｅｉ ｏｓｌｎ ｒｕ ｏ ｒ ｉ ｉｅ ａ ｐ ｎ ｎ ｉ ｐ ｔ ｎ ｈｎ ｄ １０ ２ ，Ｃ ｉ ａ
总第 ７ 期 第 ３ ４ 期
２ １年３ ０ １ 月
中国水 能 及 电 气 化
ＣＨＩ ＮＡ ＡＴＥＲ Ｗ ＰＯＷ ＥＲ ＆ ＥＬＥＣＴＲＩ ＣＡＴＩ ＦＩ ＯＮ
Ｔ０ＴＥＬ Ｎｏ７ ．４ Ｍａ ． ０１ ｒ ．２ １
利 用 Ｆ Ｔ ＡＮ编 程进 行 水 闸泄流 计 算 应 用 ＯＲ Ｒ
ｓ ｌ － ｒｇ ａ ｍａ ｌ ｐ ｏ ｒ ｍ ｃ ｌｕ ａ ｉｎ ｃ ｍｐ ｌ ｄ ｈ ｏ ｇ ｕ ｉ ｚｎ Ｆ ｒｒ ｎ ｂ ｉ ｇ ｇ ｅ ｔ ｃ ｎ ｅ ｉ ｎ ｅ ｔ ａ ｃ ｌｔ ｏ ｉ ｔ ｒ ｕ ｈ ｔ ｉｉ ｇ ｏ ｅ ｌ ｏ ｔａ ｒ ｓ ｒ ａ ｏ ｖ ｎ ｅ ｃ ｏ ｎ ｐ ａ ｔｃ ｌ ａ ｐ ｉ ａ ｉ ｎ ｈ ａ ｅ ｎ ｒ ｄ ｃ ｓ ｔ ｅ ｏ ｃ ｅ ｅ ｐ ｏ ｅ ｓ ｆ ｃ ｍｐ ｌ ｇ ｔ ｅ ｒ ｇ ａ ，ａ ｄ ｒ ｃ ｉａ ｐ ｌ ｔ ．Ｔ ｅ ｐ ｐ ｒ ｉ ｔｏ ｕ ｅ ｈ ｃ ｎ ｒ ｔ ｒ ｃ ｓ ｏ ｏ ｉ ｎ ｈ ｐ ｏ ｒ ｍ ｃ ｏ ｉ ｎ
Hale Waihona Puke Baidu
改 闸 。水 闸堰 型 均 采 用 宽顶 堰 ，孔 宽 不 同 ，堰 顸 高程 各 异 。现 有 泄 流 计 算程 序 多针 对 单 一 堰 顶 高程 设 计 ．本 工程 并 不 适 用 。 多 闸孔 、 多堰 高组 合 水 闸泄 流 计 算 是 一件 繁 琐 的 工作 ，利 用 Ｆ ｒａ ｏ ｔ ｎ编 写 的 小程 序 计 算给 实 际应 用 带 来 了极 大便 利 。 本 文介 绍 了程 序 编 写 的 具 体 过程 ， ｒ
ｇ ｔ． Ｔ ｅ ａｅ ｈ ｗａｅ ａ ｅ ａ ｔ ｒ ｇ ｔ ｄ ｍ ｓ ａ ｅ ａ ｗｉ ｅ ｏ ｄ ｍｓ ｈ ｐ ｈ ｓ ｄ ｔ ｐ ａ ｗｉ ｄ ｆ ｒ ｎ ｈ ｌ ｗｉ ｔ ｓ ｎ ｖ ｔ ｕ ｔ ｈ ｉ ｅ ｅ ｔ ｏｅ ｆ ｄ ｈ ａ ｄ ａ ｏ ｓ ｉ ｄ ｍ ｏ ｅｅ ａ ｉ ｎ ． Ｅｘｓｉ ｇ ｅ ｋ ｇ ｏ ｃ ｌ ｕ ａｉ ｎ ｒ ｇ ａ ａ ｅ ｘ ｅ ｓｖ ａｍｉ ｇ ｔ ｉ ｇ ｅ ａ ｔ ｐ ｌｖ ｔ ｓ ｏ ｉ ｔ ｌ ａ ａ ｅ ｆ ｗ ａ ｃ ｌｔ ｐ ｏ ｒ ｍｓ ｒ ｅ ｃ ｓ ｉ ｅ ｉ ｎ ａ ｓｎ ｌ ｎ ｌ ｏ
ａ ｅ ｅ ｐ ｃ ｉ ｅｙ ９ ０ ｍ３ ａ ｄ ７ ０ ｒ ｒ ｓ ｅ ｔ ｌ ５ ７ ０ ｖ ／ ｎ ６ ｍ３ ， ａ ｄ ｔ ｅ ｅ ｋ ａ ｅ ｉｈ ｓ １ ０ ／ ｓ ｎ ｈ ｐ ａ ｓ ｒ ｈ ｇ ｗｉ ｌｒ ｅ ｏ ｕ ． Ｉ ｔ ａ ｇ ｖ ｌ ｍｅ ｎ ｈ
王 锋
（ 中国水 电顾 问集 团成 都 院 ，成 都 ６ ０ ７ ） １０ ２
摘
要 ：某一 等 枢 纽 工程 设 计 洪水 、校 核 洪水 洪峰 流 量 分 别 为 ５ ７ ０ ｉ。ｓ ７ ０ ｎ／ ，峰 ９ ０ ｎ／、６ １ ０ ｉ ｓ
高量 大 为 满足 工程 运 行 要 求 ，泄 水 建 筑物 共 设 置 了 １ ５孔 泄 洪 闸 、５孔 冲砂 闸和 １ 围堰 孔
ｄ ｍ ｔ ｌｖｔ ｎ ｄ ｓ ｎ ｎ ｈ ｒ ｅｔ ｄ ｅ ｏ ａ ｐｙ ｔｅ ｐｏｒｍ．Ｍｕｔ ｇｔ ｏｅ ａ ｄ ａ ｏ ｅｅ ａ ｏ ｅｉ ，ａ ｄ ｔｅ ｐｏ ｃ ｏ ｓ ｎ ｔ ｐ ｌ ｈ ｒｇａ ｐ ｉ ｇ ｊ ｌ — ａ ｈｌ ｎ ｉ ｅ
ｍｕｔ— ａ ｌ ｄ ｍ ｈ ｉｈ ｃ ｍｂｎ ｄ ｉ ｅｇ ｔ ｏ ｉ ｅ ｗａｅ ｇ ｔ ｌａ ａ ｅ ｌｗ ｃ ｌｕａｉｎ ｅｏ ｇ ｔ ｆ ｓｙ ｔｒ ａｅ ｅ ｋ ｇ ｆ ｏ ａｃ ｌｔ ｂ ｌｎ ｓ ｏ ｕ ｓ ｗｏｋ ａ ｄ ｏ ｒ， ｎ
Ａ ｓｒ ｃ：Ｏ ｅ ｅｅ ｉｇ ｒｊｃ ｅｉｎ ｄ ｆ ｏ ｎ ｈ ｃ ｅ ｏ ｄ ｐ ａ ｏ ａ ａｉｅ ｂ ｔａ ｔ ｎ ｌ ｌ Ｉ ｈｎ ｅ ｐｏｅｔ ｄ ｓ ｅ ｏ ｄ ａ ｄ ｃ ｅｋ ｄ ｆ ｏ ｅｋ ｆ ｗ ｃ ｐ ｃｔ ｓ ｖ ｇ ｌ ｌ ｌ ｉ
ｏｄ ｒｔ ｅ ｒｑ ｉ ｍｅ ｔ ｏ ｒｊｃ ｏ ｅａｉ ，ｔｅ ｗ ｔｒ ｌａ ａ ｅ ｂ ｉ ｉｇ ｒ ｒｖｄ ｄ ｗｔ ｒｅ ｏ ｍｅｔ ｅ ｕｒ ｎｓ ｆｐｏｅ ｔ ｐ ｒｔ ｎ ｈ ａｅ ｅｋ ｇ ｕｌ ｎ ｓ ａｅ ｐｏ ｉｅ ｉ ｅ ｏ ｄ ｈ
１ ｈ ｌ ｆ ｏ ｄｓ ｈ ｒ ｅ ａｅ ， ５ ｏｅ ｃ ｕ ｎ ｓｕｃ ｇ ｔｓ ｎ １ ｏｅ ｏｆｒ ａ ｏｅ ｌ ｄ ｉｃ ａ ｇ ｇ ｔｓ ｈ ｌ ｓ ｏ ｔ ｇ ｌｉｅ ａｅ ａ ｄ ｈ ｌ ｃ ｆ ｄ ｍ ｃ ａ ｇｎ ５ ｏ ｉ ｅ ｈ ｎ ｉｇ
ｃ ｍ ｉｅ ｐ ｌ ａ ｏ ｘｍｐｅ ｆｃ ｎｒｔ ｐｏｅｔ ｔ ｖ ｌ ａｅ ｔｅ ｐｏｒｍ． ｏ ｂｎ ｓａ ｐｉ ｔ ｎ ｅ ａ ｌｓ ｏ ｏ ｃｅｅ ｒ ｃｓ ｏ ａｉ ｔ ｈ ｒｇａ ｃｉ ｊ ｄ
关键 词 ：Ｆ ｒ ａ 泄 流 计 算 ｏｔ ｎ ｒ
Ｃａ ｃ ｌ ｔｏ ｆ Ｗ ａ ｅ Ｇａ ｅ ｌｕ ａｉ ｎ ｏ ｔｒ ｔ Ｌｅ ｋ ｇ ｏ ａ ａ ｅ Ｆｌ ｗ ｔ ｒ ｕｇ ＦＯＲＴＲＡＮ ｏ ｒ ｍ ｍ ｉ ｈ ｏ ｈ Ｐｒ ｇ ａ ｎｇ
Ｗ ＡＮＧ ｎ Ｆｅ ｇ
（ｈｎ ｄ ｎｔｕ ｆ Ｃ ｉ ｄｏ ｏ ｅ ｎ ｉｅｒ ｇ Ｃ ｎａｔｇ Ｇｏｐ Ｃ ｒｏａｏ ，Ｃ ｅｇ ｕ ６ ０ ７ ８ ｈｎ ） Ｃ ｅｇ ｕ Ｉｓｔｔ ｏ ｈｎ Ｈｙｒ ｗ ｒＥ ｇ ｅｉ ｏｓｌｎ ｒｕ ｏ ｒ ｉ ｉｅ ａ ｐ ｎ ｎ ｉ ｐ ｔ ｎ ｈｎ ｄ １０ ２ ，Ｃ ｉ ａ
总第 ７ 期 第 ３ ４ 期
２ １年３ ０ １ 月
中国水 能 及 电 气 化
ＣＨＩ ＮＡ ＡＴＥＲ Ｗ ＰＯＷ ＥＲ ＆ ＥＬＥＣＴＲＩ ＣＡＴＩ ＦＩ ＯＮ
Ｔ０ＴＥＬ Ｎｏ７ ．４ Ｍａ ． ０１ ｒ ．２ １
利 用 Ｆ Ｔ ＡＮ编 程进 行 水 闸泄流 计 算 应 用 ＯＲ Ｒ
ｓ ｌ － ｒｇ ａ ｍａ ｌ ｐ ｏ ｒ ｍ ｃ ｌｕ ａ ｉｎ ｃ ｍｐ ｌ ｄ ｈ ｏ ｇ ｕ ｉ ｚｎ Ｆ ｒｒ ｎ ｂ ｉ ｇ ｇ ｅ ｔ ｃ ｎ ｅ ｉ ｎ ｅ ｔ ａ ｃ ｌｔ ｏ ｉ ｔ ｒ ｕ ｈ ｔ ｉｉ ｇ ｏ ｅ ｌ ｏ ｔａ ｒ ｓ ｒ ａ ｏ ｖ ｎ ｅ ｃ ｏ ｎ ｐ ａ ｔｃ ｌ ａ ｐ ｉ ａ ｉ ｎ ｈ ａ ｅ ｎ ｒ ｄ ｃ ｓ ｔ ｅ ｏ ｃ ｅ ｅ ｐ ｏ ｅ ｓ ｆ ｃ ｍｐ ｌ ｇ ｔ ｅ ｒ ｇ ａ ，ａ ｄ ｒ ｃ ｉａ ｐ ｌ ｔ ．Ｔ ｅ ｐ ｐ ｒ ｉ ｔｏ ｕ ｅ ｈ ｃ ｎ ｒ ｔ ｒ ｃ ｓ ｏ ｏ ｉ ｎ ｈ ｐ ｏ ｒ ｍ ｃ ｏ ｉ ｎ
Hale Waihona Puke Baidu
改 闸 。水 闸堰 型 均 采 用 宽顶 堰 ，孔 宽 不 同 ，堰 顸 高程 各 异 。现 有 泄 流 计 算程 序 多针 对 单 一 堰 顶 高程 设 计 ．本 工程 并 不 适 用 。 多 闸孔 、 多堰 高组 合 水 闸泄 流 计 算 是 一件 繁 琐 的 工作 ，利 用 Ｆ ｒａ ｏ ｔ ｎ编 写 的 小程 序 计 算给 实 际应 用 带 来 了极 大便 利 。 本 文介 绍 了程 序 编 写 的 具 体 过程 ， ｒ
ｇ ｔ． Ｔ ｅ ａｅ ｈ ｗａｅ ａ ｅ ａ ｔ ｒ ｇ ｔ ｄ ｍ ｓ ａ ｅ ａ ｗｉ ｅ ｏ ｄ ｍｓ ｈ ｐ ｈ ｓ ｄ ｔ ｐ ａ ｗｉ ｄ ｆ ｒ ｎ ｈ ｌ ｗｉ ｔ ｓ ｎ ｖ ｔ ｕ ｔ ｈ ｉ ｅ ｅ ｔ ｏｅ ｆ ｄ ｈ ａ ｄ ａ ｏ ｓ ｉ ｄ ｍ ｏ ｅｅ ａ ｉ ｎ ． Ｅｘｓｉ ｇ ｅ ｋ ｇ ｏ ｃ ｌ ｕ ａｉ ｎ ｒ ｇ ａ ａ ｅ ｘ ｅ ｓｖ ａｍｉ ｇ ｔ ｉ ｇ ｅ ａ ｔ ｐ ｌｖ ｔ ｓ ｏ ｉ ｔ ｌ ａ ａ ｅ ｆ ｗ ａ ｃ ｌｔ ｐ ｏ ｒ ｍｓ ｒ ｅ ｃ ｓ ｉ ｅ ｉ ｎ ａ ｓｎ ｌ ｎ ｌ ｏ
ａ ｅ ｅ ｐ ｃ ｉ ｅｙ ９ ０ ｍ３ ａ ｄ ７ ０ ｒ ｒ ｓ ｅ ｔ ｌ ５ ７ ０ ｖ ／ ｎ ６ ｍ３ ， ａ ｄ ｔ ｅ ｅ ｋ ａ ｅ ｉｈ ｓ １ ０ ／ ｓ ｎ ｈ ｐ ａ ｓ ｒ ｈ ｇ ｗｉ ｌｒ ｅ ｏ ｕ ． Ｉ ｔ ａ ｇ ｖ ｌ ｍｅ ｎ ｈ
王 锋
（ 中国水 电顾 问集 团成 都 院 ，成 都 ６ ０ ７ ） １０ ２
摘
要 ：某一 等 枢 纽 工程 设 计 洪水 、校 核 洪水 洪峰 流 量 分 别 为 ５ ７ ０ ｉ。ｓ ７ ０ ｎ／ ，峰 ９ ０ ｎ／、６ １ ０ ｉ ｓ
高量 大 为 满足 工程 运 行 要 求 ，泄 水 建 筑物 共 设 置 了 １ ５孔 泄 洪 闸 、５孔 冲砂 闸和 １ 围堰 孔
ｄ ｍ ｔ ｌｖｔ ｎ ｄ ｓ ｎ ｎ ｈ ｒ ｅｔ ｄ ｅ ｏ ａ ｐｙ ｔｅ ｐｏｒｍ．Ｍｕｔ ｇｔ ｏｅ ａ ｄ ａ ｏ ｅｅ ａ ｏ ｅｉ ，ａ ｄ ｔｅ ｐｏ ｃ ｏ ｓ ｎ ｔ ｐ ｌ ｈ ｒｇａ ｐ ｉ ｇ ｊ ｌ — ａ ｈｌ ｎ ｉ ｅ
ｍｕｔ— ａ ｌ ｄ ｍ ｈ ｉｈ ｃ ｍｂｎ ｄ ｉ ｅｇ ｔ ｏ ｉ ｅ ｗａｅ ｇ ｔ ｌａ ａ ｅ ｌｗ ｃ ｌｕａｉｎ ｅｏ ｇ ｔ ｆ ｓｙ ｔｒ ａｅ ｅ ｋ ｇ ｆ ｏ ａｃ ｌｔ ｂ ｌｎ ｓ ｏ ｕ ｓ ｗｏｋ ａ ｄ ｏ ｒ， ｎ
Ａ ｓｒ ｃ：Ｏ ｅ ｅｅ ｉｇ ｒｊｃ ｅｉｎ ｄ ｆ ｏ ｎ ｈ ｃ ｅ ｏ ｄ ｐ ａ ｏ ａ ａｉｅ ｂ ｔａ ｔ ｎ ｌ ｌ Ｉ ｈｎ ｅ ｐｏｅｔ ｄ ｓ ｅ ｏ ｄ ａ ｄ ｃ ｅｋ ｄ ｆ ｏ ｅｋ ｆ ｗ ｃ ｐ ｃｔ ｓ ｖ ｇ ｌ ｌ ｌ ｉ
ｏｄ ｒｔ ｅ ｒｑ ｉ ｍｅ ｔ ｏ ｒｊｃ ｏ ｅａｉ ，ｔｅ ｗ ｔｒ ｌａ ａ ｅ ｂ ｉ ｉｇ ｒ ｒｖｄ ｄ ｗｔ ｒｅ ｏ ｍｅｔ ｅ ｕｒ ｎｓ ｆｐｏｅ ｔ ｐ ｒｔ ｎ ｈ ａｅ ｅｋ ｇ ｕｌ ｎ ｓ ａｅ ｐｏ ｉｅ ｉ ｅ ｏ ｄ ｈ
１ ｈ ｌ ｆ ｏ ｄｓ ｈ ｒ ｅ ａｅ ， ５ ｏｅ ｃ ｕ ｎ ｓｕｃ ｇ ｔｓ ｎ １ ｏｅ ｏｆｒ ａ ｏｅ ｌ ｄ ｉｃ ａ ｇ ｇ ｔｓ ｈ ｌ ｓ ｏ ｔ ｇ ｌｉｅ ａｅ ａ ｄ ｈ ｌ ｃ ｆ ｄ ｍ ｃ ａ ｇｎ ５ ｏ ｉ ｅ ｈ ｎ ｉｇ
ｃ ｍ ｉｅ ｐ ｌ ａ ｏ ｘｍｐｅ ｆｃ ｎｒｔ ｐｏｅｔ ｔ ｖ ｌ ａｅ ｔｅ ｐｏｒｍ． ｏ ｂｎ ｓａ ｐｉ ｔ ｎ ｅ ａ ｌｓ ｏ ｏ ｃｅｅ ｒ ｃｓ ｏ ａｉ ｔ ｈ ｒｇａ ｃｉ ｊ ｄ