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

📄 4_2.asp

📁 《管式加热炉设计计算程序》本程序依据《管式加热炉规范》 SY/T0538-2004进行开发而成。适用于油田、长输管道圆筒型管式加热炉（包括丁头管、翅片管）的热力计算、水力计算、阻力计算及强度计算。
💻 ASP
字号:
🔍 
<!--#include file="dbconn.asp"-->
<!--#include file="inc/checkchange.inc"-->
<!--#include file="inc/QZF.CSS"-->
<!--#include file="9_04.asp"-->
<html>

<head>
<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>
<%
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
th=Session.Contents("th")
set rs=server.createobject("adodb.recordset")
 sql ="select * from 4 where (th='"&th&"')"
 rs.open sql,conn,1,1
th=rs("th")
d=rs("d")
b=rs("b")
s=rs("s")
n=rs("n")
e=rs("e")
r=rs("r")
l=rs("l")
d1=rs("d1")
s1=rs("s1")
n1=rs("n1")
l1=rs("l1")
AAAAAA=rs("AAAAAA")
a=rs("a")
f=rs("f")
tpj=rs("TPJ")
v=rs("v")
ff=rs("ff")
qf=rs("qf")
tc=rs("tc")
tf=rs("tf")
c=rs("c")
ts=rs("ts")
qk=rs("qk")
qa=rs("qa")
qf1=rs("qf1")
tg=rs("tg")
fa=rs("fa")
c1=rs("c1")
pq1=rs("pq1")
ll=rs("ll")
eg=rs("eg")
es=rs("es")
f1=rs("f1")
tw=rs("tw")
qr1=rs("qr1")
qr=rs("qr")
qrF=rs("qrF")
ee=rs("ee")
qrr=rs("qrr")
qvv=rs("qvv")

%>
<p align="center"><font face="华文新魏" size="6">四、辐射室设计计算</font>
<p align="center"><font 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="39" align="center">序号</td>
    <td width="139" align="center">名称</td>
    <td width="47" align="center">符号</td>
    <td width="94" align="center">单位</td>
    <td width="334" align="center">计算公式及数据来源</td>
    <td width="107" align="center">结果</td>
  </tr>
  
  <tr>
  
    <td width="39">一、</td>
    <td width="139">设计号</td>
    <td width="47">-</td>
    <td width="94">-</td>
    <td width="334">-</td>
    <td width="107">　</td>
  </tr>
  <tr>
    <td width="39">1</td>
    <td width="139">辐射炉管直径</td>
    <td width="47">d</td>
    <td width="94">mm</td>
    <td width="334">选取</td>
    <td width="107"><%=d%></td>
  </tr>
  <tr>
    <td width="39">2</td>
    <td width="139">辐射炉管壁厚</td>
    <td width="47">b</td>
    <td width="94">mm</td>
    <td width="334">选取,壁厚进行强度校核后确定</td>
    <td width="107"><%=b%></td>
  </tr>
  <tr>
    <td width="39">3</td>
    <td width="139">管间距</td>
    <td width="47">S</td>
    <td width="94">mm</td>
    <td width="334">选取</td>
    <td width="107"><%=s%></td>
  </tr>
  <tr>
    <td width="39">4</td>
    <td width="139">辐射炉管数目</td>
    <td width="47">n</td>
    <td width="94">根</td>
    <td width="334">选取</td>
    <td width="107"><%=n%></td>
  </tr>
  <tr>
    <td width="39">5</td>
    <td width="139">管墙距离</td>
    <td width="47">e</td>
    <td width="94">mm</td>
    <td width="334">选取</td>
    <td width="107"><%=e%></td>
  </tr>
  <tr>
    <td width="39">6</td>
    <td width="139">辐射室有效长度</td>
    <td width="47">l</td>
    <td width="94">mm</td>
    <td width="334">选取</td>
    <td width="107"><%=l%></td>
  </tr>
  <tr>
    <td width="39">7</td>
    <td width="139">遮蔽管直径</td>
    <td width="47">d1</td>
    <td width="94">mm</td>
    <td width="334">选取</td>
    <td width="107"><%=d1%></td>
  </tr>
  <tr>
    <td width="39">8</td>
    <td width="139">遮蔽管管心距</td>
    <td width="47">s1</td>
    <td width="94">mm</td>
    <td width="334">选取</td>
    <td width="107"><%=s1%></td>
  </tr>
  <tr>
    <td width="39">9</td>
    <td width="139">遮蔽段每排炉管数</td>
    <td width="47">n1</td>
    <td width="94">根</td>
    <td width="334">选取</td>
    <td width="107"><%=n1%></td>
  </tr>
  <tr>
    <td width="39">10</td>
    <td width="139">遮蔽管长度</td>
    <td width="47">l1</td>
    <td width="94">mm</td>
    <td width="334">选取</td>
    <td width="107"><%=l1%></td>
  </tr>
  <tr>
    <td width="39">11</td>
    <td width="139">辐射室有效半径</td>
    <td width="47">r</td>
    <td width="94">mm</td>
    <td width="334">r=S/2sin(360/2n)</td>
    <td width="107"><%=r%></td>
  </tr>
  <tr>
    <td width="39">12</td>
    <td width="139">当量平面面积</td>
    <td width="47">Acp</td>
    <td width="94">m2</td>
    <td width="334">Acp=nls</td>
    <td width="107"><%=a%></td>
  </tr>
  <tr>
    <td width="39">13</td>
    <td width="139">遮蔽管当量平面面积</td>
    <td width="47">Acp1</td>
    <td width="94">m2</td>
    <td width="334">Acp=2n1L1S1</td>
    <td width="107"><%=AAAAAA%></td>
  </tr>
  <tr>
    <td width="39">14</td>
    <td width="139">炉膛总内表面积</td>
    <td width="47">Fl</td>
    <td width="94">m2</td>
    <td width="334">Fl=2*3.14*(r+e)*L+2*3.14(r+e)</td>
    <td width="107"><%=f%></td>
  </tr>
  <tr>
    <td width="39">15</td>
    <td width="139">炉膛容积</td>
    <td width="47">V</td>
    <td width="94">m3</td>
    <td width="334">V=3.14*(r+e)*l</td>
    <td width="107"><%=v%></td>
  </tr>
  <tr>
    <td width="39">16</td>
    <td width="139">辐射管总表面积</td>
    <td width="47">Ff</td>
    <td width="94">m2</td>
    <td width="334">3.14ndl</td>
    <td width="107"><%=ff%></td>
  </tr>
  <tr>
    <td width="39">二、</td>
    <td width="139">　辐射室热力计算</td>
    <td width="47">　</td>
    <td width="94">　</td>
    <td width="334">　</td>
    <td width="107">　</td>
  </tr>
  <tr>
    <td width="39">1</td>
    <td width="139">辐射段热负荷</td>
    <td width="47">Qf</td>
    <td width="94">kw</td>
    <td width="334">先按额定负荷65%验算，最后确定实际值</td>
    <td width="107"><%=Qf%></td>
  </tr>
  <tr>
    <td width="39">2</td>
    <td width="139">辐射原油出口温度</td>
    <td width="47">tc</td>
    <td width="94">&ordm;C</td>
    <td width="334">基础数据给定</td>
    <td width="107"><%=TC%></td>
  </tr>
  <tr>
    <td width="39">3</td>
    <td width="139">辐射原油进口温度</td>
    <td width="47">tf</td>
    <td width="94">&ordm;C</td>
    <td width="334">先假定，再校核</td>
    <td width="107"><%=Tf%></td>
  </tr>
  <tr>
    <td width="39">4</td>
    <td width="139">平均温度</td>
    <td width="47">t<font size="1">pj</font></td>
    <td width="94">&ordm;C</td>
    <td width="334">t<font size="1">pj=</font>(tc+tf)/2</td>
    <td width="107"><%=TPJ%></td>
  </tr>
  <tr>
    <td width="39">5</td>
    <td width="139">平均温度原油比热</td>
    <td width="47">C</td>
    <td width="94">KJ/KG.K</td>
    <td width="334">C=(0.415+0.0006TPJ)*0.41868</td>
    <td width="107"><%=C%>　</td>
  </tr>
  <tr>
    <td width="39">6</td>
    <td width="139">实际辐射原油进口温度</td>
    <td width="47">t<font size="1">s</font></td>
    <td width="94">&ordm;C</td>
    <td width="334">ts=tc-Qf/(Gy*C)</td>
    <td width="107"><%=TS%></td>
  </tr>
  <tr>
    <td width="39">7</td>
    <td width="139">空气进炉显热</td>
    <td width="47">Qa</td>
    <td width="94">kj/kg</td>
    <td width="334">Qa=I<font size="1">k*</font>a<font size="1">1</font></td>
    <td width="107"><%=QK%></td>
  </tr>
  <tr>
    <td width="39">8</td>
    <td width="139">燃料进炉显热</td>
    <td width="47">Qrl</td>
    <td width="94">kj/kg</td>
    <td width="334">Qrl=cf*(t-t0)</td>
    <td width="107"><%=QA%></td>
  </tr>
  <tr>
    <td width="39">9</td>
    <td width="139">烟气离开辐射室热量</td>
    <td width="47">Qk</td>
    <td width="94">kj/kg</td>
    <td width="334">Qk=Q<font size="1">n</font>-Q<font size="1">f</font>*3600/B</td>
    <td width="107"><%=QF1%></td>
  </tr>
  <tr>
    <td width="39">10</td>
    <td width="139">辐射室出口烟气温度</td>
    <td width="47">tg</td>
    <td width="94">K</td>
    <td width="334">由Qk根据经验公式计算出</td>
    <td width="107"><%=TG%></td>
  </tr>
  <tr>
    <td width="39">11</td>
    <td width="139">有效吸收因数　</td>
    <td width="47">Fa</td>
    <td width="94">-</td>
    <td width="334">　</td>
    <td width="107"><%=fa%></td>
  </tr>
  <tr>
    <td width="39">12</td>
    <td width="139">对流系数</td>
    <td width="47">C1</td>
    <td width="94">-</td>
    <td width="334">选取，圆筒炉=40.6</td>
    <td width="107"><%=c1%></td>
  </tr>
  <tr>
    <td width="39">13</td>
    <td width="139">三原子气体压力</td>
    <td width="47">Pq</td>
    <td width="94">atm</td>
    <td width="334">根据a1查表</td>
    <td width="107"><%=pq1%></td>
  </tr>
  <tr>
    <td width="39">14</td>
    <td width="139">平均气体辐射长度</td>
    <td width="47">L</td>
    <td width="94">m</td>
    <td width="334">根据炉型及尺寸查取</td>
    <td width="107"><%=ll%></td>
  </tr>
  <tr>
    <td width="39">15</td>
    <td width="139">烟气辐射率</td>
    <td width="47">Eg</td>
    <td width="94">-</td>
    <td width="334">计算</td>
    <td width="107"><%=EG%></td>
  </tr>
  <tr>
    <td width="39">16</td>
    <td width="139">炉膛有效辐射率</td>
    <td width="47">Es</td>
    <td width="94">-</td>
    <td width="334">计算</td>
    <td width="107"><%=es%></td>
  </tr>
  <tr>
    <td width="39">17</td>
    <td width="139">气体交换因数</td>
    <td width="47">F</td>
    <td width="94">-</td>
    <td width="334">计算</td>
    <td width="107"><%=f1%></td>
  </tr>
  <tr>
    <td width="39">18</td>
    <td width="139">辐射炉管管壁温度</td>
    <td width="47">Tw</td>
    <td width="94">K</td>
    <td width="334">辐射炉管介质温度加50&ordm;C</td>
    <td width="107"><%=tw%></td>
  </tr>
  <tr>
    <td width="39">19</td>
    <td width="139">遮蔽管辐射传热量</td>
    <td width="47">QR1</td>
    <td width="94">kw</td>
    <td width="334">计算</td>
    <td width="107"><%=qr1%></td>
  </tr>
  <tr>
    <td width="39">20</td>
    <td width="139">炉膛辐射传热量</td>
    <td width="47">Qr</td>
    <td width="94">kw</td>
    <td width="334">计算</td>
    <td width="107"><%=qr%></td>
  </tr>
  <tr>
    <td width="39">21</td>
    <td width="139">辐射传热比率</td>
    <td width="47">%</td>
    <td width="94">-</td>
    <td width="334">QR/Q</td>
    <td width="107"><%=qrF%></td>
  </tr>
  <tr>
    <td width="39">22</td>
    <td width="139">误差</td>
    <td width="47">e</td>
    <td width="94">%</td>
    <td width="334">e=(Qf-Qr)/Qf</td>
    <td width="107"><%=ee%>  　</td>
  </tr>
  <tr>
    <td width="39">23</td>
    <td width="139">辐射面平均热强度</td>
    <td width="47">qr</td>
    <td width="94">kw/m</td>
    <td width="334">qr=Qr/Ff</td>
    <td width="107"><%=qrr%></td>
  </tr>
  <tr>
    <td width="39">24</td>
    <td width="139">辐射体积热强度</td>
    <td width="47"> qv </td>
    <td width="94"> kw/m&sup3; </td>
    <td width="334"> qv=Qr/V </td>
    <td width="107"><%=qvv%></td>
  </tr>

</table>

  </center>
</div>

</html>
<%
rs.close                       
set rs=nothing 
conn.close                       
set conn=nothing 
response.write"<p align='center'><a href='4_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 + -