⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 8_2.asp

📁 《管式加热炉设计计算程序》本程序依据《管式加热炉规范》 SY/T0538-2004进行开发而成。适用于油田、长输管道圆筒型管式加热炉（包括丁头管、翅片管）的热力计算、水力计算、阻力计算及强度计算。
💻 ASP
字号:
🔍 
<!--#include file="dbconn.asp"-->
<!--#include file="inc/checkchange.inc"-->
<!--#include file="inc/QZF.CSS"-->
<!--#include file="9_08.asp"-->
<%
th=Session.Contents("th")
 if th="00" then 
 response.write"<p align='center'><a href='index.asp'><font color='#000064'>请输入设计号！&gt;&gt;&gt;</font> </a></p>" 
 Response.End 
 end if
 set rs=server.createobject("adodb.recordset")
 sql ="select * from 8 where (th='"&th&"')"
 rs.open sql,conn,3,3

th=rs("th")
tb=rs("tb")
c=rs("c")
y=rs("y")
uu=rs("uu")
rtb=rs("rtb")
pr=rs("pr")
u=rs("u")
re=rs("re")
HI=rs("hi")
FL=rs("fL")
fc=rs("fc")
ft=rs("ft")
qf=rs("qf")
ff=rs("ff")
qc=rs("qc")
qa=rs("qa")
qm=rs("qm")
sc=rs("sc")
tf12=rs("tf12")
yc=rs("yc")
tc12=rs("tc12")
yw=rs("yw")
tw12=rs("tw12")
tm=rs("tm")
rt1=rs("rt1")
c1=rs("c1")
c2=rs("c2")
p=rs("p")
sm=rs("sm")*1
b=rs("b")*1
sm1=rs("sm1")*1
b1=rs("b1")*1
tpj=rs("tpj")

if b>=sm then
jl="<font color='#0000FF'>壁厚选择符合安全要求！"
else
jl="<font color='#FF0000'>壁厚选择不符合安全要求！</font>"
end if
b1=b1
if b1>=sm1 then
jl1="<font color='#0000FF'>壁厚选择符合安全要求！</font>"
else
jl1="<font color='#FF0000'>壁厚选择不符合安全要求！</font>"
end if

%> 

<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>管式加热炉工艺设计书</title>
</head>

<body>


<p align="center"><font face="华文新魏" size="7"><b>八、强度计算</b></font></p>
<p align="center"><font size="3" face="华文细黑">设计号：<%=th%></font></p>
<p align="center">
<input type=button onclick="vbscript:buildDoc '',4" value="生成word">
<div align="center">
  <center>
<table border="1" id="myData" width="800">
  <tr>
    <td width="6%" align="center">序号</td>
    <td width="22%" align="center">名称</td>
    <td width="8%" align="center">符号</td>
    <td width="10%" align="center">单位</td>
    <td width="45%" align="center">计算公式及数据来源</td>
    <td width="9%" align="center">结果</td>
  </tr>
  <tr>
    <td width="6%">一、</td>
    <td width="22%">辐射室炉管强度校核</td>
    <td width="8%">　</td>
    <td width="10%">　</td>
    <td width="45%">　</td>
    <td width="9%">　</td>
  </tr>
  <tr>
    <td width="6%">1</td>
    <td width="22%">管内流体平均温度</td>
    <td width="8%">tpj</td>
    <td width="10%">°C　</td>
    <td width="45%">辐射室热力计算结果</td>
    <td width="9%"><%=tb%></td>
  </tr>
  <tr>
    <td width="6%">2</td>
    <td width="22%">原油平均比热</td>
    <td width="8%">C</td>
    <td width="10%">kj/kg.k</td>
    <td width="45%">辐射室热力计算结果</td>
    <td width="9%"><%=c%></td>
  </tr>
  <tr>
    <td width="6%">3</td>
    <td width="22%">原油导热系数</td>
    <td width="8%">y</td>
    <td width="10%">w/mk　</td>
    <td width="45%">根据tb由参考书2-5公式计算</td>
    <td width="9%"><%=y%></td>
  </tr>
  <tr>
    <td width="6%">4</td>
    <td width="22%">原油粘度</td>
    <td width="8%">r</td>
    <td width="10%">pas</td>
    <td width="45%">根据tb及原油物性插值计算　</td>
    <td width="9%"><%=uu%></td>
  </tr>
  <tr>
    <td width="6%">5</td>
    <td width="22%">平均温度原油密度</td>
    <td width="8%">ptb</td>
    <td width="10%">kg/m3</td>
    <td width="45%">根据tb由参考书2-2公式计算</td>
    <td width="9%"><%=rtb%></td>
  </tr>
  <tr>
    <td width="6%">6</td>
    <td width="22%">普朗特数</td>
    <td width="8%">pr</td>
    <td width="10%">　-</td>
    <td width="45%">pr=C*u/y</td>
    <td width="9%"><%=pr%></td>
  </tr>
  <tr>
    <td width="6%">7　</td>
    <td width="22%">原油流速</td>
    <td width="8%">u</td>
    <td width="10%">m/s</td>
    <td width="45%">流动阻力计算结果</td>
    <td width="9%"><%=u%></td>
  </tr>
  <tr>
    <td width="6%">8</td>
    <td width="22%">原油雷诺数</td>
    <td width="8%">Re</td>
    <td width="10%">-</td>
    <td width="45%">re=di*u*ptb/u　</td>
    <td width="9%"><%=re%></td>
  </tr>
  <tr>
    <td width="6%">9</td>
    <td width="22%">管内换热系数</td>
    <td width="8%">hi</td>
    <td width="10%">w/m2k</td>
    <td width="45%">hi=0.023*re^0.8*pr^0.4　</td>
    <td width="9%"><%=hi%></td>
  </tr>
  <tr>
    <td width="6%">10</td>
    <td width="22%">纵热强度不均系数</td>
    <td width="8%">FL</td>
    <td width="10%">-</td>
    <td width="45%">取为1.3</td>
    <td width="9%"><%=fl%></td>
  </tr>
  <tr>
    <td width="6%">11　</td>
    <td width="22%">周热强度不均系数</td>
    <td width="8%">Fc</td>
    <td width="10%">-</td>
    <td width="45%">根据参考书图8-9查取</td>
    <td width="9%"><%=fc%></td>
  </tr>
  <tr>
    <td width="6%">12</td>
    <td width="22%">壁温影响因素</td>
    <td width="8%">FT</td>
    <td width="10%">-</td>
    <td width="45%">取为1.0</td>
    <td width="9%"><%=ft%></td>
  </tr>
  <tr>
    <td width="6%">13　</td>
    <td width="22%">辐射室对流传热量</td>
    <td width="8%">Qf</td>
    <td width="10%">kw</td>
    <td width="45%">辐射室热力计算结果</td>
    <td width="9%"><%=qf%></td>
  </tr>
  <tr>
    <td width="6%">14</td>
    <td width="22%">辐射室炉管外表面积</td>
    <td width="8%">Ff</td>
    <td width="10%">m2</td>
    <td width="45%">辐射室热力计算结果</td>
    <td width="9%"><%=ff%></td>
  </tr>
  <tr>
    <td width="6%">15</td>
    <td width="22%">管外壁对流热强度</td>
    <td width="8%">qc</td>
    <td width="10%">kw/m2</td>
    <td width="45%">qc=Qf/Ff　</td>
    <td width="9%"><%=qc%></td>
  </tr>
  <tr>
    <td width="6%">16</td>
    <td width="22%">管外壁辐射热强度</td>
    <td width="8%">qa</td>
    <td width="10%">kw/m2</td>
    <td width="45%">qa=Qf/Ff-qc</td>
    <td width="9%"><%=qa%></td>
  </tr>
  <tr>
    <td width="6%">17　</td>
    <td width="22%">管外壁最高热强度</td>
    <td width="8%">qm</td>
    <td width="10%">kw/m2</td>
    <td width="45%">qm=FcFLFTqa+qc</td>
    <td width="9%"><%=qm%></td>
  </tr>
  <tr>
    <td width="6%">18　</td>
    <td width="22%">垢层厚度</td>
    <td width="8%">Sc</td>
    <td width="10%">m</td>
    <td width="45%">取为0.003</td>
    <td width="9%"><%=sc%></td>
  </tr>
  <tr>
    <td width="6%">19　</td>
    <td width="22%">流体膜温差</td>
    <td width="8%">tf12</td>
    <td width="10%">°C</td>
    <td width="45%">tf12=qm/hi*(d/(di-2sc))*1000</td>
    <td width="9%"><%=tf12%></td>
  </tr>
  <tr>
    <td width="6%">20　</td>
    <td width="22%">垢层导热系数</td>
    <td width="8%">yc</td>
    <td width="10%">w/mk</td>
    <td width="45%">取为1.0</td>
    <td width="9%"><%=yc%></td>
  </tr>
  <tr>
    <td width="6%">21　</td>
    <td width="22%">垢层温差</td>
    <td width="8%">tc12</td>
    <td width="10%">°C</td>
    <td width="45%">tc12=qm*sc/yc*(d/(di-sc))</td>
    <td width="9%"><%=tc12%></td>
  </tr>
  <tr>
    <td width="6%">22　</td>
    <td width="22%">管壁导热系数</td>
    <td width="8%">yw</td>
    <td width="10%">w/mk</td>
    <td width="45%">取为45</td>
    <td width="9%"><%=yw%></td>
  </tr>
  <tr>
    <td width="6%">23　</td>
    <td width="22%">管壁温差</td>
    <td width="8%">tw12</td>
    <td width="10%">°C</td>
    <td width="45%">tw12=qm*sa/yw*(d/(d-sa))*1000</td>
    <td width="9%"><%=tw12%></td>
  </tr>
  <tr>
    <td width="6%">24　</td>
    <td width="22%">管内流体温度</td>
    <td width="8%">tb</td>
    <td width="10%">°C</td>
    <td width="45%">辐射室热力计算结果</td>
    <td width="9%"><%=tb%></td>
  </tr>
  <tr>
    <td width="6%">25</td>
    <td width="22%">管壁最高温度</td>
    <td width="8%">tm</td>
    <td width="10%">°C</td>
    <td width="45%">tm=tb+tf12+tc12+tw12</td>
    <td width="9%"><%=tm%></td>
  </tr>
  <tr>
    <td width="6%">26　</td>
    <td width="22%">材料许用应力</td>
    <td width="8%">[ó]t</td>
    <td width="10%">MPa</td>
    <td width="45%">根据td由标准的表2查取</td>
    <td width="9%"><%=rt1%></td>
  </tr>
  <tr>
    <td width="6%">27</td>
    <td width="22%">钢管厚度负偏差</td>
    <td width="8%">C1</td>
    <td width="10%">mm</td>
    <td width="45%">取为0.2</td>
    <td width="9%"><%=c1%></td>
  </tr>
  <tr>
    <td width="6%">28　</td>
    <td width="22%">腐蚀裕量</td>
    <td width="8%">C2</td>
    <td width="10%">mm</td>
    <td width="45%">取为3</td>
    <td width="9%"><%=c2%></td>
  </tr>
  <tr>
    <td width="6%">29　</td>
    <td width="22%">设计压力</td>
    <td width="8%">p</td>
    <td width="10%">MPa</td>
    <td width="45%">基础数据设定　</td>
    <td width="9%"><%=p%></td>
  </tr>
  <tr>
    <td width="6%">30</td>
    <td width="22%">辐射管壁最小厚度</td>
    <td width="8%">Sm</td>
    <td width="10%">mm</td>
    <td width="45%">sm=p*d/(2*rt1+p)+c1+c2</td>
    <td width="9%"><%=sm%></td>
  </tr>
  <tr>
    <td width="6%">31　</td>
    <td width="22%">辐射管设计选取的厚度</td>
    <td width="8%">b</td>
    <td width="10%">mm</td>
    <td width="45%">辐射室热力计算结果</td>
    <td width="9%"><%=b%></td>
  </tr>
  <tr>
    <td width="6%">32</td>
    <td width="22%">辐射炉管强度校核结论</td>
    <td width="8%">　</td>
    <td width="10%">　</td>
    <td width="45%"><%=jl%></td>
    <td width="9%">　</td>
  </tr>
  <tr>
    <td width="6%">二、</td>
    <td width="22%">对流管强度校核</td>
    <td width="8%">　</td>
    <td width="10%">　</td>
    <td width="45%">　</td>
    <td width="9%">　</td>
  </tr>
  <tr>
    <td width="6%">1</td>
    <td width="22%">对流管壁最小厚度</td>
    <td width="8%">sm1</td>
    <td width="10%">mm</td>
    <td width="45%">　</td>
    <td width="9%"><%=sm1%></td>
  </tr>
  <tr>
    <td width="6%">2</td>
    <td width="22%">对流管设计选取的厚度</td>
    <td width="8%">b1</td>
    <td width="10%">mm</td>
    <td width="45%">　</td>
    <td width="9%"><%=b1%></td>
  </tr>
  <tr>
    <td width="6%">3</td>
    <td width="22%">对流管强度校核结论</td>
    <td width="8%">　</td>
    <td width="10%">　</td>
    <td width="45%"><%=jl1%></td>
     <td width="9%">　</td>
  </tr>
</table>
  </center>
</div>
</body>

</html>
<%
rs.close                       
set rs=nothing 
conn.close                       
set conn=nothing 
response.write"<p align='center'><a href='8_1.asp?change=ture'><font color='#000064'>重新计算！&gt;&gt;&gt;</font> </a></p>" 
response.write"<p align='center'><a href='mulu.asp'><font color='#000064'>返回&gt;&gt;&gt;</font> </a></p>" 

%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -