- 1、本文档共9页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
《过程参数检测及仪表》课程设计报告选编
课程设计报告
( 2015 -- 2016 年度 第 一 学期 )
名 称:《过程参数检测及仪表》课程设计
题 目: 标准节流装置的计算
院 系:
班 级:
学 号:
学生姓名:
指导教师:
设计周数:
成 绩:
日 期: 年 月 日
课程设计的目的与要求
本课程设计为自动化专业《过程参数检测及仪表》专业课的综合实践环节。通过本课程设计,使学生加深过程参数检测基本概念的理解,掌握仪表的基本设计方法和设计步骤。
二、设计正文
第一类命题
1. 已知:流体为水,工作压力(表压力),工作温度℃;管道,材料为20号钢旧无缝管;节流装置采用角接取压标准孔板,材料为1Cr18Ni9Ti,;差压,求给定差压值下的水流量。
解题过程:
辅助计算。
工作压力(绝对压力):
查表可得:水密度,其动力粘度,
管道线膨胀系数℃,节流件线膨胀系数℃,
将水视为不可压缩流体则其可膨胀性系数。
题目未对管道直管段长度做出要求,故无需考虑此项检查;由于没有查出20号钢旧无缝管的管壁等效绝对粗糙度,无法检查管道粗糙度是否满足要求。
迭代计算。
对角接取压标准孔板:
令,得初值。
在MATLAB中编写迭代程序:
A=316681.1485;
beta=0.50383;
C(1)=0.60253;
i=1;
deta=1;
while (deta0.000001)
Re=A*C(i);
i=i+1;
C(i)=0.5959+0.0312*(beta^2.1)-0.184*(beta^8)+0.0029*(beta^2.5)*((1000000/Re)^0.75);
deta=abs((C(i)-C(i-1))/C(i));
end
迭代的中间结果如下:
则最终可得
(4)最终结果。
第二类命题
9. 流体为过热蒸汽,最大流量,常用流量,最小流量;工作压力(表压力),工作温度℃;管道,材料为20号钢新无缝管,允许压力损失;管道阻力件:上游第一阻力件为球形阀全开,上游第二阻力件为渐扩管。要求:
(1)确定标准节流件形式;
(2)选定差压计;
(3)计算;
(4)确定最小直管段长度;
(5)计算压力损失并进行核算;
(6)计算基本误差。
解题过程:
由题目要求建立下表:
项目 符号 单位 数值 被测介质 过热蒸汽 流量测量范围:正常
最大
最小
kg/h
kg/h
kg/h 2500
3000
1500 介质工作表压力 MPa 1 工作温度 ℃ 310 管道内径 mm 76.2 管道材料 20号钢新无缝管 正常流量下允许压力损失 kPa 30 阻力件:上游第一
上游第二 球形阀全开
渐扩管
确定标准节流件形式。
考虑到对压力损失的要求较为严格,选取的节流件为标准喷嘴(ISA1932喷嘴).
考虑到角接取压的沿程压力损失变化对差压测量影响较小,采用角接取压方式;由于管道直径不大,故采用环室取压方式。
选择材料为1Cr18Ni9Ti。
选定差压计。
满刻度流量值确定。
规定的流量计满刻度系列值为??
最大流量,选取最近的流量系列值。
对应的确定。
(a)从对压力损失的要求出发,标准喷嘴差压上限,但实际上若取,选择最近的差压系列值,最终验算出的压力损失,远不满足题目要求。
(b)为减小压力损失,选择较小的差压上限,选取最为靠近的差压系列值。
(c)工作压力(绝对压力):
验算,符合规定。
验算,查表得所有值对应的最小雷诺数推荐值,保证了流出系数变化的要求。
(d)常用流量对应的差压。
3)型号选定。
可选用1151DP电容式差压变送器,其量程范围,仪表基本误差,再根据调整量程为。
计算。
辅助计算。
查表可得:过热蒸汽密度,其动力粘度,
管道线膨胀系数℃,节流装置线膨胀系数℃,过热蒸汽等熵指数。
迭代计算。
假设。
根据以下公式进行迭代:
从n=3起用快速弦截法公式:
精度判别公式:??
假设判别条件:?
在MATLAB中编写迭代程序:
A=0.255323; Re=560000;
k=1.3; tau=0.999958;
j=1;
C(1)=1; epsilon(1)=1; e(1)=1;
while (e(j)5*10^(-10))
j=j+1;
if j=3;
X(j)=A/(C(j-1)*epsilon
文档评论(0)