5_2.asp

《管式加热炉设计计算程序》本程序依据《管式加热炉规范》 SY/T0538-2004进行开发而成。适用于油田、长输管道圆筒型管式加热炉（包括丁头管、翅片管）的热力计算、水力计算、阻力计算及强度计算。

    <td width="35" align="center">I'</td>
    <td width="56" align="center">　kj/kg</td>
    <td width="336">辐射室计算结果</td>
    <td width="144"><%=i1%></td>
  </tr>
  <tr>
    <td width="46">3</td>
    <td width="143">出口烟气焓</td>
    <td width="35" align="center">I&quot;</td>
    <td width="56" align="center">　kj/kg</td>
    <td width="336">i1-(a2-a1)*ik-qd*3600/bb-qe*0.01</td>
    <td width="144"><%=i2%></td>
  </tr>
  <tr>
    <td width="46">4</td>
    <td width="143">实际排烟温度</td>
    <td width="35" align="center">tpy</td>
    <td width="56" align="center">&ordm;C</td>
    <td width="336">参考书公式2-27　</td>
    <td width="144"><%=ts%></td>
  </tr>
  <tr>
    <td width="46">5</td>
    <td width="143">误差</td>
    <td width="35" align="center">t12</td>
    <td width="56" align="center">&ordm;C</td>
    <td width="336">tpy-热平衡设定的排烟温度　</td>
    <td width="144"><%=wc%></td>
  </tr>
  <tr>
    <td width="46">6</td>
    <td width="143">出口原油温度</td>
    <td width="35" align="center">td</td>
    <td width="56" align="center">&ordm;C</td>
    <td width="336">辐射室计算结果　</td>
    <td width="144"><%=TF%></td>
  </tr>
  <tr>
    <td width="46">7</td>
    <td width="143">进入对流室原油温度</td>
    <td width="35" align="center">tr</td>
    <td width="56" align="center">&ordm;C</td>
    <td width="336">给定　</td>
    <td width="144"><%=TR%></td>
  </tr>
  <tr>
    <td width="46">8</td>
    <td width="143">平均温度</td>
    <td width="35" align="center">tpj</td>
    <td width="56" align="center">&ordm;C</td>
    <td width="336">(td+tr)/2　</td>
    <td width="144"><%=TPJ%></td>
  </tr>
  <tr>
    <td width="46">9</td>
    <td width="143">平均温度原油比热</td>
    <td width="35" align="center">Ctpj</td>
    <td width="56" align="center">kj/kg.K</td>
    <td width="336">4.1868*（0.415+0.0006Tpj)　</td>
    <td width="144"><%=CTPJ%></td>
  </tr>
  <tr>
    <td width="46">10</td>
    <td width="143">平均温度原油密度</td>
    <td width="35" align="center">&THORN;tpj</td>
    <td width="56" align="center">kg/m&sup3;</td>
    <td width="336">参考书公式2-2</td>
    <td width="144"><%=rTPJ%></td>
  </tr>
  <tr>
    <td width="46">11</td>
    <td width="143">原油动力粘度</td>
    <td width="35" align="center">&micro;</td>
    <td width="56" align="center">Pa.s</td>
    <td width="336">给定值按平均温度插值　</td>
    <td width="144"><%=uu%></td>
  </tr>
  <tr>
    <td width="46">12</td>
    <td width="143">原油导热系数</td>
    <td width="35" align="center">&Aring;</td>
    <td width="56" align="center">w/m.K</td>
    <td width="336">参考书公式2-5　</td>
    <td width="144"><%=y%></td>
  </tr>
  <tr>
    <td width="46">13</td>
    <td width="143">原油温度普朗特数</td>
    <td width="35" align="center">Pr</td>
    <td width="56" align="center">-</td>
    <td width="336">标准公式A-26　</td>
    <td width="144"><%=PR%></td>
  </tr>
  <tr>
    <td width="46">14</td>
    <td width="143">原油流速</td>
    <td width="35" align="center">u</td>
    <td width="56" align="center">m/s</td>
    <td width="336">G/(&THORN;tpj*SI)</td>
    <td width="144"><%=UUU%></td>
  </tr>
  <tr>
    <td width="46">15</td>
    <td width="143">原油雷诺数</td>
    <td width="35" align="center">Re</td>
    <td width="56" align="center">-</td>
    <td width="336">标准公式A-22　　</td>
    <td width="144"><%=Re%></td>
  </tr>
  <tr>
    <td width="46">16</td>
    <td width="143">管内换热系数</td>
    <td width="35" align="center">hi</td>
    <td width="56" align="center">w/m&sup2;.K</td>
    <td width="336">标准公式A-23、27、29　</td>
    <td width="144"><%=hi%></td>
  </tr>
  <tr>
    <td width="46">17</td>
    <td width="143">烟气平均温度</td>
    <td width="35" align="center">Ty</td>
    <td width="56" align="center">K</td>
    <td width="336">标准公式A-20　　</td>
    <td width="144"><%=typj%></td>
  </tr>
  <tr>
    <td width="46">18</td>
    <td width="143">烟气质量流速</td>
    <td width="35" align="center">Gg</td>
    <td width="56" align="center">kg/m&sup2;s</td>
    <td width="336">标准公式A-31　</td>
    <td width="144"><%=Gg%></td>
  </tr>
  <tr>
    <td width="46">19</td>
    <td width="143">烟气对流传热系数</td>
    <td width="35" align="center">hoc</td>
    <td width="56" align="center">w/m&sup2;.K</td>
    <td width="336">标准公式A-30　</td>
    <td width="144"><%=hoc%></td>
  </tr>
  <tr>
    <td width="46">20</td>
    <td width="143">烟气平均辐射长度</td>
    <td width="35" align="center">L</td>
    <td width="56" align="center">m</td>
    <td width="336">参考书P162　</td>
    <td width="144"><%=ll%></td>
  </tr>
  <tr>
    <td width="46">21</td>
    <td width="143">烟气黑度</td>
    <td width="35" align="center">eg</td>
    <td width="56" align="center">-</td>
    <td width="336">参考书P162　</td>
    <td width="144"><%=eg%></td>
  </tr>
  <tr>
    <td width="46">21</td>
    <td width="143">烟气辐射传热系数</td>
    <td width="35" align="center">hor</td>
    <td width="56" align="center">w/m&sup2;.K</td>
    <td width="336">标准公式A-31　</td>
    <td width="144"><%=hor%></td>
  </tr>
  <tr>
    <td width="46">22</td>
    <td width="143">管外膜传热系数</td>
    <td width="35" align="center">ho</td>
    <td width="56" align="center">w/m&sup2;.K</td>
    <td width="336">标准公式A-32　</td>
    <td width="144"><%=ho%></td>
  </tr>
  
  <tr>
    <td width="46">23</td>
    <td width="143">管外膜结垢热阻</td>
    <td width="35" align="center">Mo</td>
    <td width="56" align="center">w/m&sup2;.K</td>
    <td width="336">标准5.12规定　</td>
    <td width="144"><%=mo%></td>
  </tr>
  <tr>
    <td width="46">24</td>
    <td width="143">炉管内膜污垢热阻</td>
    <td width="35" align="center">Mi</td>
    <td width="56" align="center">w/m&sup2;.K</td>
    <td width="336">标准5.12规定　</td>
    <td width="144"><%=mi%></td>
  </tr>
  <tr>
    <td width="46">25</td>
    <td width="143">含热阻管内膜传热系数</td>
    <td width="35" align="center">hi*</td>
    <td width="56" align="center">w/m&sup2;.K</td>
    <td width="336">标准公式A-19　</td>
    <td width="144"><%=hi1%></td>
  </tr>
  
  <%
  if d1="丁头" then
  %>
  <tr>
    <td width="46">26</td>
    <td width="143">含热阻管外膜传热系数</td>
    <td width="35" align="center">hoc*</td>
    <td width="56" align="center">w/m&sup2;.K</td>
    <td width="336">标准公式A-32　</td>
    <td width="144"><%=hoc1%></td>
  </tr>
  
   

  <tr>
    <td width="46">26</td>
    <td width="143">丁头效率</td>
    <td width="35" align="center">&Otilde;</td>
    <td width="56" align="center">-</td>
    <td width="336">标准公式A-36　</td>
    <td width="144"><%=of%></td>
  </tr>
  <tr>
    <td width="46">27</td>
    <td width="143">丁头管外膜传热系数</td>
    <td width="35" align="center">ho*</td>
    <td width="56" align="center">w/m&sup2;.K</td>
    <td width="336">标准公式A-30　</td>
    <td width="144"><%=ho1%></td>
  </tr>
  
 <%
    end if
  %>
  <%
  if  d1="翅片" then
  %>
  <tr>
    <td width="46">26</td>
    <td width="143">含热阻管外膜传热系数</td>
    <td width="35" align="center">hoc*</td>
    <td width="56" align="center">w/m&sup2;.K</td>
    <td width="336">标准公式A-38&nbsp;</td>
    <td width="144"><%=hoc1%></td>
  </tr>

<tr>
    <td width="46">26</td>
    <td width="143">翅片效率</td>
    <td width="35" align="center">&Otilde;</td>
    <td width="56" align="center">-</td>
    <td width="336">标准公式A-40&nbsp;</td>
    <td width="144"><%=of%></td>
  </tr>
  <tr>
    <td width="46">27</td>
    <td width="143">翅片管外膜传热系数</td>
    <td width="35" align="center">ho*</td>
    <td width="56" align="center">w/m&sup2;.K</td>
    <td width="336">标准公式A-30　</td>
    <td width="144"><%=ho1%></td>
  </tr>
<%
    end if
  %>
  <%
  if  d1="光管" then
  %>
<tr>
    <td width="46">25</td>
    <td width="143">含热阻管外膜传热系数</td>
    <td width="35" align="center">ho*</td>
    <td width="56" align="center">w/m&sup2;.K</td>
    <td width="336">标准公式A-41　</td>
    <td width="144"><%=ho1%></td>
  </tr>
<%
    end if
  %>

  <tr>
    <td width="46">28</td>
    <td width="143">传热系数</td>
    <td width="35" align="center">kc</td>
    <td width="56" align="center">kw/m&sup2;.K</td>
    <td width="336">标准公式A-18&nbsp;</td>
    <td width="144"><%=kc%></td>
  </tr>
  <tr>
    <td width="46">29</td>
    <td width="143">对流传热面积</td>
    <td width="35" align="center">Ac</td>
    <td width="56" align="center">m&sup2;</td>
    <td width="336">标准公式A-42　</td>
    <td width="144"><%=ac%></td>
  </tr>
  <tr>
    <td width="46">30</td>
    <td width="143">程炉总程数</td>
    <td width="35" align="center">Nc</td>
    <td width="56" align="center">排</td>
    <td width="336">标准公式A-43</td>
    <td width="144"><%=nc%></td>
  </tr>
  <tr>
    <td width="46">31</td>
    <td width="143">对流总表面积</td>
    <td width="35" align="center">Fd</td>
    <td width="56" align="center">m&sup2;</td>
    <td width="336">n*3.1415926*d/1000*L*nc</td>
    <td width="144"><%=fd%></td>
  </tr>
  <tr>
    <td width="46">32</td>
    <td width="143">对流面平均热强度</td>
    <td width="35" align="center">Qc</td>
    <td width="56" align="center">kw/m&sup2;</td>
    <td width="336">qd/fd　</td>
    <td width="144"><%=qc%></td>
  </tr>
</table>
  </center>
</div>
</body>

</html>
<%
rs.close                       
set rs=nothing 
conn.close                       
set conn=nothing
if d1="光管" then
response.write"<p align='center'><a href='5_12.asp?change=ture'><font color='#000064'>重新计算！&gt;&gt;&gt;</font> </a></p>" 
end if
if d1="丁头" then
response.write"<p align='center'><a href='5_13.asp?change=ture'><font color='#000064'>重新计算！&gt;&gt;&gt;</font> </a></p>" 
end if
if d1="翅片" then
response.write"<p align='center'><a href='5_14.asp?change=ture'><font color='#000064'>重新计算！&gt;&gt;&gt;</font> </a></p>" 
end if
response.write"<p align='center'><a href='mulu.asp'><font color='#000064'>返回&gt;&gt;&gt;</font> </a></p>" 
%>