资源目录
压缩包内文档预览:
编号:12774493
类型:共享资源
大小:104.91KB
格式:RAR
上传时间:2019-01-06
上传人:hon****an
认证信息
个人认证
丁**(实名认证)
江苏
IP属地:江苏
2.4
积分
- 关 键 词:
-
管道
选型
计算
程序
- 资源描述:
-
管道压降、泵选型计算程序,管道,选型,计算,程序
- 内容简介:
-
Sub () ActiveSheet.Shapes(“Check Box 37“).Select With Selection .Value = xlOff .LinkedCell = “$D$299“ .Display3DShading = True End With ActiveSheet.Shapes(“Check Box 36“).Select With Selection .Value = xlOff .LinkedCell = “$D$298“ .Display3DShading = True End With Range( _ “G8,G9,G10,G17,G19,G27,G30,G31,G39,F55,F56,F57,F58,F59,F60,F61,F62,F63,F64,F65,F66,F67,F68,F69,F70,G71,F80,F81“ _ ).Select Selection.ClearContents Range(“A1“).Select End Sub Sub () ActiveSheet.Shapes(“Check Box 37“).Select With Selection .Value = xlOff .LinkedCell = “$D$299“ .Display3DShading = True End With ActiveSheet.Shapes(“Check Box 36“).Select With Selection .Value = xlOff .LinkedCell = “$D$298“ .Display3DShading = True End With Range( _ “M7,O7,O32,O33,O34,O35,O40,O41,S41,S42,S43,S55,S56,S57,S58,T56,T57,T58,U56,U57,U58,O42,O43,O44,P51,O52,O53,O54,O55,P56,P57,P58,O59,O72,O79,O80“). _ Select Selection.ClearContents Range(“A1“).Select End Sub Sub () Range(“P39“).Select Selection.Copy Range(“P51“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“P40“).Select Application.CutCopyMode = False Selection.Copy Range(“O40“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“P41“).Select Application.CutCopyMode = False Selection.Copy Range(“O41“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“P42“).Select Application.CutCopyMode = False Selection.Copy Range(“O42“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“P43“).Select Application.CutCopyMode = False Selection.Copy Range(“O43“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“P44“).Select Application.CutCopyMode = False Selection.Copy Range(“O44“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“R41“).Select Application.CutCopyMode = False Selection.Copy Range(“S41“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“R42“).Select Application.CutCopyMode = False Selection.Copy Range(“S42“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“R43“).Select Application.CutCopyMode = False Selection.Copy Range(“S43“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range(“J36“).Select End Sub Sub () Range(“P52“).Select Selection.Copy Range(“O52“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“P53“).Select Application.CutCopyMode = False Selection.Copy Range(“O53“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“P54“).Select Application.CutCopyMode = False Selection.Copy Range(“O54“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“P55“).Select Application.CutCopyMode = False Selection.Copy Range(“O55“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range(“P59“).Select Application.CutCopyMode = False Selection.Copy Range(“O59“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range(“J48“).Select End Sub Sub () Range(“P55“).Select Selection.Copy Range(“P56“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“R55“).Select Application.CutCopyMode = False Selection.Copy Range(“S55“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“R56“).Select Application.CutCopyMode = False Selection.Copy Range(“S56“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“R57“).Select Application.CutCopyMode = False Selection.Copy Range(“T56“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“R58“).Select Application.CutCopyMode = False Selection.Copy Range(“U56“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range(“Q56“).Select End Sub Sub () Range(“P55“).Select Selection.Copy Range(“P57“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“R56“).Select Application.CutCopyMode = False Selection.Copy Range(“S57“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“R57“).Select Application.CutCopyMode = False Selection.Copy Range(“T57“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“R58“).Select Application.CutCopyMode = False Selection.Copy Range(“U57“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range(“Q57“).Select End Sub Sub () Range(“P55“).Select Selection.Copy Range(“P58“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“R56“).Select Application.CutCopyMode = False Selection.Copy Range(“S58“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“R57“).Select Application.CutCopyMode = False Selection.Copy Range(“T58“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(“R58“).Select Application.CutCopyMode = False Selection.Copy Range(“U58“).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range(“Q58“).Select End Sub Sub 36_() ActiveSheet.Shapes(“Check Box 37“).Select With Selection .Value = xlOff .LinkedCell = “$D$299“ .Display3DShading = True End With Range( _ “G8,G9,G17,G19,G27,G39,F55,F56,F57,F58,F59,F60,F61,F62,F63,F64,F65,F66,F67,F68,F69,F70,G71,F80,F81“ _ ).Select Selection.ClearContents Range(“A1“).Select End Sub Sub 37_() ActiveSheet.Shapes(“Check Box 36“).Select With Selection .Value = xlOff .LinkedCell = “$D$298“ .Display3DShading = True End With Range( _ “G8,G9,G17,G19,G27,G39,F55,F56,F57,F58,F59,F60,F61,F62,F63,F64,F65,F66,F67,F68,F69,F70,G71,F80,F81“ _ ).Select Selection.ClearContents Range(“A1“).Select End Sub 泵系统水力计算 用于1、计算离心泵的扬程、功率 2、计算离心泵进口段、出口各段压降,校核管径 3、计算离心泵气蚀余量,校核安装高度 手动输入设计数据 自动输出计算结果 按钮1、清空左栏、清空右栏:清空输入的全部设计数据;仅在计算开始前和全部结束后执行,计算过程中不执行。 2、更新吸入段:完成吸入段计算后,点击按钮,刷新结果。 更新排出段:泵出口管道不分段时:完成排出段计算后,点击更新排出段按钮,刷新结果,计算结束。 泵出口管道分段时: 选择泵出口分段数,输入设计数据,完成第一段计算,点击 ,刷新第一段结果; 改变流量、管径、长度、管件数量,完成第二段计算,点击 ,刷新第二段结果; 改变流量、管径、长度、管件数量,完成第三段计算,点击 ,刷新第三段结果; 最后,点击更新排出段按钮,刷新结果,计算结束。 注意1、操作顺序:清空左右栏计算吸入段计算排出段结束 2、计算过程中,分段或全部计算结束时,会出现提示,然后再点击相应按钮 3、压力基准应一致,若设备压力输入为表压(或绝压),则NPSH计算所需蒸汽压也应为表压(或绝压), 相应地,泵吸入及排出压力计算值也为表压(或绝压) 4、控件和按钮功能是不可逆操作,不能通过撤消返回上一步 5、随意插入和删除行、列、单元格或修改、只读单元格,均有可能导致计算程序或功能按钮失效 参考1、化工原理 2、石油化工设计手册 第4卷(系统设计) 3、化工工艺设计手册(2003) 4、化工厂系统设计 蔡尔辅 意见反馈 chem_zb 计算离心泵的扬程、功率 计算离心泵进口段、出口各段压降,校核管径 计算离心泵气蚀余量,校核安装高度 清空左栏、清空右栏:清空输入的全部设计数据;仅在计算开始前和全部结束后执行,计算过程中不执行。 更新吸入段:完成吸入段计算后,点击按钮,刷新结果。 完成排出段计算后,点击更新排出段按钮,刷新结果,计算结束。 选择泵出口分段数,输入设计数据,完成第一段计算,点击 ,刷新第一段结果; 改变流量、管径、长度、管件数量,完成第二段计算,点击 ,刷新第二段结果; 改变流量、管径、长度、管件数量,完成第三段计算,点击 ,刷新第三段结果; 最后,点击更新排出段按钮,刷新结果,计算结束。 压力基准应一致,若设备压力输入为表压(或绝压),则NPSH计算所需蒸汽压也应为表压(或绝压), 相应地,泵吸入及排出压力计算值也为表压(或绝压) 、只读单元格,均有可能导致计算程序或功能按钮失效 化工原理 石油化工设计手册 第4卷(系统设计) 化工工艺设计手册(2003) 化工厂系统设计 蔡尔辅 意见反馈 chem_zb 管道压降计算(不可压缩流体)离心泵选型计算排出段计算结束 开始重新计算之前清空左右栏数据 一一、静静压压降降管管道道压压降降计计算算结结果果摘摘要要 PZ(Z2Z1)g /1000位号物料 输入Z1泵排出口标高m0.50密度kg/m31000.00 Z2最大抬升高度m6.00粘度mPas1.00 密度kg/m31000.00QV体积流量m3/h180.00 u实际流速m/s1.59 输出PZ静压降kPa53.96d管道内径mm200.00 L直管长度m256.00 二二、速速度度头头L当量长度m16.00 Z抬升高度m5.50 PUu2/2000管壁绝对粗糙度mm0.10 输入QV体积流量m3/h180.00Re雷诺数318309.89过渡湍流 QM质量流量kg/h180000.00摩擦系数0.01813 u设计流速m/s u实际流速m/s1.59 密度kg/m31000.00PZ静压降kPa53.96 PF总摩擦压降kPa31.24 输出PU速度头kPa1.27 PF 直管段压降kPa29.40 PiA局部摩擦压降kPa1.84 PiB进出设备压降kPa Redu/ 输入d管道内径mm200PTOTAL总压降kPa85.19 u实际流速m/s1.59 密度kg/m31000.00 粘度mPas1.000泵泵计计算算 管壁绝对粗糙度mm0.10 PE1吸入设备压力kPa100.00 输出Re雷诺数318310过渡湍流LE1吸入设备最低液位 mm300 PE2目的设备压力kPa200.00 三三、摩摩擦擦压压降降(三部分)LE2目的设备最高液位 mm1500 直直管管段段吸吸入入压压力力 PF(L / d)(u2/2)PINPE1PLE1PZ1PF1PU1 输入L直管长度m256.00180.00 d管道内径mm200输入 PE1吸入设备压力kPa100.00100.00 u实际流速m/s1.59LE1吸入设备最低液位 mm300.00300.00 密度kg/m31000.00PZ1吸入侧静压降kPa39.2439.24 摩擦系数0.01813PF1吸入侧总摩擦压降 kPa4.254.25 PU1速度头kPa1.241.24 输出PF 直管压降kPa29.40 P100百米压降kPa11.48输出 PIN泵吸入压力kPa60.69 折合压头m6.19 局局部部A PiA(L / d)(u2/2)排排出出压压力力 u实际流速m/s1.59POUTPE2PLE2PZ2PF2PU2 密度kg/m31000.00100 摩擦系数0.01813输入 PE2目的设备压力kPa200.00200.00 L当量长度m16.00LE2目的设备最高液位 mm1500.001500.00 管 件 数量当量长度PZ2排出侧静压降kPa53.9653.96 弯头 45PF2排出侧总摩擦压降 kPa59.3959.39 90416第一段摩擦压降28.16 截止阀全开第二段摩擦压降31.24 角阀全开 闸阀 全开PU2速度头kPa1.241.24 3/4开 1/2开输出 POUT泵排出压力kPa329.30 1/4开折合压头m33.57 止回阀旋启式 蝶阀全开扬扬程程 三通 PH泵需要压头kPa268.61 H泵扬程m27.38 流量计 孔板功功率率 文氏PCALTQVPH/(367g) 转子输入 QV体积流量m3/h100.00 其他PH泵需要压头kPa268.61 E泵效率80.00% 输出PiA局部摩擦压降kPa1.84 输出 PCALT 泵驱动机功率kW7.46 局局部部BP轴泵轴功率kW9.33 PiB(u2/2)/1000 输入u实际流速m/s1.59NPSH 密度kg/m31000.00NPSHaPINPV 局部阻力系数输入 PV吸入温度下蒸汽压 kPa30.00 管道设备NPSHr需要净正吸入压头 m 设备管道 输出 NPSHa 有效净正吸入压头 m3.13 输出PiB进出设备压降kPaNPSH裕量m 泵泵计计算算结结果果摘摘要要 总压降 PFPFPiAPiB Q流量m3/h100.00 输入PF 直管段压降kPa29.40H扬程m27.38 PiA局部摩擦压降kPa1.84NPSHa 有效净正吸入压头 m3.13 PiB进出设备压降kPaPCALT驱动机功率kW7.46 E效率80.00% 输出PF总摩擦压降kPa31.24P轴轴功率kW9.33 计算吸入段 计算排出段 出口分两段 泵系统水力计算 用于1、计算离心泵的扬程、功率 2、计算离心泵进口段、出口各段压降,校核管径 3、计算离心泵气蚀余量,校核安装高度 手动输入设计数据 自动输出计算结果 按钮1、清空左栏、清空右栏:清空输入的全部设计数据;仅在计算开始前和全部结束后执行,计算过程中不执行。 2、更新吸入段:完成吸入段计算后,点击按钮,刷新结果。 更新排出段:泵出口管道不分段时:完成排出段计算后,点击更新排出段按钮,刷新结果,计算结束。 泵出口管道分段时: 选择泵出口分段数,输入设计数据,完成第一段计算,点击 ,刷新第一段结果; 改变流量、管径、长度、管件数量,完成第二段计算,点击 ,刷新第二段结果; 改变流量、管径、长度、管件数量,完成第三段计算,点击 ,刷新第三段结果; 最后,点击更新排出段按钮,计算结束。点击 ,输出结果摘要。 注意1、操作顺序:清空左右栏计算吸入段计算排出段保存结果 2、计算过程中,分段或全部计算结束时,会出现提示,然后再点击相应按钮 3、压力基准应一致,若设备压力输入为表压(或绝压),则NPSH计算所需蒸汽压也应为表压(或绝压), 相应地,泵吸入及排出压力计算值也为表压(或绝压) 4、控件和按钮功能是不可逆操作,不能通过撤消返回上一步 5、随意插入和删除行、列、单元格或修改、只读单元格,均有可能导致计算程序或功能按钮失效 参考1、化工原理 2、石油化工设计手册 第4卷(系统设计) 3、化工工艺设计手册(2003) 4、化工厂系统设计 蔡尔辅 意见反馈 chem_zb 计算离心泵的扬程、功率 计算离心泵进口段、出口各段压降,校核管径 计算离心泵气蚀余量,校核安装高度 清空左栏、清空右栏:清空输入的全部设计数据;仅在计算开始前和全部结束后执行,计算过程中不执行。 更新吸入段:完成吸入段计算后,点击按钮,刷新结果。 完成排出段计算后,点击更新排出段按钮,刷新结果,计算结束。 选择泵出口分段数,输入设计数据,完成第一段计算,点击 ,刷新第一段结果; 改变流量、管径、长度、管件数量,完成第二段计算,点击 ,刷新第二段结果; 改变流量、管径、长度、管件数量,完成第三段计算,点击 ,刷新第三段结果; 最后,点击更新排出段按钮,计算结束。点击 ,输出结果摘要。 压力基准应一致,若设备压力输入为表压(或绝压),则NPSH计算所需蒸汽压也应为表压(或绝压), 相应地,泵吸入及排出压力计算值也为表压(或绝压) 、只读单元格,均有可能导致计算程序或功能按钮失效 化工原理 石油化工设计手册 第4卷(系统设计) 化工工艺设计手册(2003) 化工厂系统设计 蔡尔辅 意见反馈 chem_zb 管道压降计算(不可压缩流体)离心泵选型计算排出段计算结束 开始重新计算之前清空左右栏数据 一一、静静压压降降管管道道压压降降计计算算结结果果摘摘要要 PZ(Z2Z1)g /1000位号物料 输入Z1泵排出口标高m0.50密度kg/m31000.00 Z2最大抬升高度m6.00粘度mPas1.00 密度kg/m31000.00QV体积流量m3/h200.00 u实际流速m/s1.77 输出PZ静压降kPa53.96d管道内径mm200.00 L直管长度m256.00 二二、速速度度头头L当量长度m0.00 Z抬升高度m5.50 PUu2/2000管壁绝对粗糙度mm0.10 输入QV体积流量m3/h200.00Re雷诺数353677.65过渡湍流 QM质量流量kg/h200000.00摩擦系数0.01801 u设计流速m/s u实际流速m/s1.77 密度kg/m31000.00PZ静压降kPa53.96 PF总摩擦压降kPa36.04 输出PU速度头kPa1.56 PF 直管段压降kPa36.04 PiA局部摩擦压降kPa0.00 PiB进出设备压降kPa0.00 Redu/ 输入d管道内径mm2000PTOTAL总压降kPa90.00 u实际流速m/s1.77 密度kg/m31000.00 粘度mPas1.000泵泵计计算算 管壁绝对粗糙度mm0.10 PE1吸入设备压力kPa100.00 输出Re雷诺数353678过渡湍流LE1吸入设备最低液位 mm PE2目的设备压力kPa100.00 三三、摩摩擦擦压压降降(三部分)LE2目的设备最高液位 mm 直直管管段段吸吸入入压压力力 PF(L / d)(u2/2)PINPE1PLE1PZ1PF1PU1 输入L直管长度m256.00200.00 d管道内径mm200输入 PE1吸入设备压力kPa100.00100.00 u实际流速m/s1.77LE1吸入设备最低液位 mm0.000.00 密度kg/m31000.00PZ1吸入侧静压降kPa39.2439.24 摩擦系数0.01801PF1吸入侧总摩擦压降 kPa0.960.96 PU1速度头kPa1.241.24 输出PF 直管压降kPa36.040 P100百米压降kPa14.08适 中输出 PIN泵吸入压力kPa61.04 折合压头m6.22 局局部部A PiA(L / d)(u2/2)排排出出压压力力 u实际流速m/s1.77POUTPE2PLE2PZ2PF2PU2 密度kg/m31000.00100 摩擦系数0.01801输入 PE2目的设备压力kPa100.00100.00 L当量长度m0.00LE2目的设备最高液位 mm0.000.00 管 件 数量当量长度PZ2排出侧静压降kPa53.9653.96 弯头 450PF2排出侧总摩擦压降 kPa56.4956.49 900第一段摩擦压降20.44 截止阀全开0第二段摩擦压降36.04 角阀全开0 闸阀 全开0PU2速度头kPa1.241.24 3/4开0 1/2开0输出 POUT泵排出压力kPa211.68 1/4开0折合压头m21.58 止回阀旋启式0 蝶阀全开0扬扬程程 三通 0PH泵需要压头kPa150.64 0H泵扬程m15.36 0 流量计 孔板0功功率率 文氏0PCALTQVPH/(367g) 转子0输入 QV体积流量m3/h100.00 其他PH泵需要压头kPa150.64 E泵效率80.00% 输出PiA局部摩擦压降kPa0.00 输出 PCALT 泵驱动机功率kW4.18 局局部部BP轴泵轴功率kW
- 温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

人人文库网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。