步进式加热炉程序设计及三维立体制图

PAGE第PAGEIV页辽宁科技大学本科生毕业论文步进式加热炉程序设计摘要随着我国钢铁行业的迅猛发展，钢产量的逐年增加，轧钢工艺的不断提高，推钢式加热炉已经难以满足要求，而步进式加热炉在生产实践中证明了其良好的使用效果。因此，在国内外步进式加热炉的使用得到很快的推广。本设计主要利用VisualStudio2010编程软件对步进式加热炉进行设计计算，计算内容包括燃料燃烧计算，炉膛热交换计算，金属加热时间计算，炉子的主要尺寸计算，炉子热平衡计算，换热器计算，排烟系统和供风系统的流体力学计算，炉底水管的校核共九部分组成。借助于VB编程技术开发出加热炉设计计算软件，不仅可以缩短设计周期，还极大地提高工作效率和设计质量，同时，设计中还运用三维建模软件SolidWorks绘制蓄热烧嘴立体图。较之AutoCAD，SolidWorks三维建模更具有直观性，更易体现设计者的设计意图。最后以专题的形式对加热炉的蓄热燃烧技术作深入的研究。关键词：步进式加热炉；VisualStudio2010；计算软件；蓄热式燃烧

WalkingBeamHeatingFurnaceProgramDesigningAbstractWiththerapiddevelopmentofChina'ssteelindustry,theproductionofsteelhasbeenincreasingannually,androllingtechnologycontinuestoimprove,Pushgenerallythesteeltypeheatingfurnacehasbeendifficulttomeettheincreasinglyrequest,butwalking-beamreheatingfurnaceisalreadyprovedtohavegooduseofeffectsintheproductionpractice.Therefore,itisspreadfastintheproductionoftheheatingfurnaceathomeandabroad.ThisdesignmainlyuseVisualStudio2010programmingsoftwaretodesigncalculation,calculationincludingcalculationoffuel-borne,furnaceheatexchangecalculations,calculationofmetalheatingtime,themainfurnacesizecalculation,thebalanceoffurnaceheatcalculation,calculationofheatexchanger,exhaustsystemandairsystemforcomputationalfluiddynamics,waterpipecheckunderthefurnacenine.AndsoonVBprogrammingtechnologydevelopedbymeansoffurnacedesignsoftwarecannotonlyshortenthedesigncycle,butalsogreatlyimprovetheefficiencyanddesignquality,Atthesametime,inthisdesignSolidWorks,thethree-dimensionalmodelingsoftware,isalsousedtodrawmapsforheatingfurnace.ComparedwithAutoCAD,SolidWorksthree-dimensionalmodelingismuchmoreintuitive,andmucheasiertoreflectthedesigner'sintent.FinallyRegenerativeCombustionTechniqueasaspecialforin-depthstudy.Keywords：WalkingBeamHeatingFurnace；VisualStudio2010；Softwareforcalculation；RegenerativeCombustion

目录摘要 IAbstract II目录 III第一章绪论 11.1加热炉的基本构成 11.2步进式加热炉的特点 11.3步进式加热炉的发展趋势 21.4设计的主要内容 2第二章基于VB的步进式加热炉设计计算软件 32.1软件开发背景 32.2加热炉计算软件设计过程的实现 32.2.1加热炉设计基本参数输入 32.2.2燃料燃烧设计计算 42.2.3炉膛热交换计算 42.2.4金属加热的设计计算 42.2.5炉子热平衡计算 52.2.6换热器计算 52.2.7排烟系统阻力损失计算 52.2.8送风系统及炉底水管校核计算 62.2.9炉底水管强度校核 62.3加热炉设计计算软件的运行 62.3.1程序登录 62.3.2加热炉设计基本参数输入 72.3.3燃料燃烧计算操作 82.3.4炉膛热交换计算操作 92.3.5金属加热时间计算操作 122.3.6炉子热平衡计算操作 132.3.7换热器计算操作 132.3.8排烟系统计算操作 152.3.9送风系统计算操作 162.3.10炉底水管校核计算操作 16结论 18致谢 24附录A 25参考文献 45第三章专题蓄热燃烧技术及蓄热烧嘴三维制图 463.1引言 463.1.1蓄热燃烧技术历史发展概况 463.3.2我国蓄热燃烧技术展望 463.2蓄热燃烧技术 473.2.1蓄热燃烧技术原理 473.2.2蓄热燃烧的工作过程 473.2.3对蓄热体的要求和使用条件 473.2.4蓄热燃烧技术的应用 483.3三维制图 493.4总结 521绪论1.1加热炉的基本构成加热炉是一个复杂的热工设备，它由以下几个基本部分构：炉膛、燃料系统、供风系统、排烟系统、冷却系统、余热利用装置、装出料设备、检测及调节装置、电子计算机控制系统等。1.2步进式加热炉的特点常用的火焰炉炉型有环形炉、推钢炉及近些年来推广起来的步进炉。环形炉的炉子生产率一般较低，产量受到限制。步进炉和推钢炉相比，则具有以下优点：（1）加热灵活在炉长一定的情况下，炉内料坯数目是可变的。而在推钢加热炉中则是不变的，那样加热时间就受到了限制这对钢种来说是不利的，而步进炉在炉子产量变化的情况下可以通过改变料坯间的距离来达到改变或加热时间不变的目的。（2）加热质量好因为在步进炉内使料坯间留有一定的间隙，这样扩大了受热面，加热容易均匀，断面温差小，钢坯表面没有划痕，两面加热的步进炉比推钢式的加热炉要小。（3）炉长不受限制对连续加热炉来说炉长受到推钢长度的限制，而步进炉则不受限制。而且对于不利推钢的细长料坯、圆棒、弯曲料坯等均可在步进炉中加热。（4）操作方便，改善了劳动条件如不容易混钢号，在必要时可以将钢坯部分或全部退到炉外，开炉时间可以缩短，由于不会粘钢，可减轻繁重的体力劳动；和轧机配合比较方便、灵活。（5）便于实现自动化控制可以准确的控制炉内钢坯的位置但是步进炉也存在一定的缺点，主要是造价比较高，基建施工土方量比较大，要求机电设备维护水平比较高，在操作中要求对炉底勤加维护并及时清渣，经常保持动床和定床平直以防料坯跑偏。综合上面的优缺点，步进加热炉的优点较多方便操作，所以，在本次设计中选用了步进式加热炉，这也是现在的大型钢铁厂的首选。1.3步进式加热炉的发展趋势伴随着加热炉的发展，未来的步进炉热装技术对炉子提出了更新的要求，主要有：(1)钢坯入炉温度较高，表面硬度低，要求输送过程中不损伤表面。可采取的措施有：a装钢机代替推钢机装炉，装料室随之取消；b步进机械输送时轻拿轻放。(2)直接热装的装炉节奏取决于连铸机，要求炉子在装料节奏与轧制节奏不匹配时仍能适应。可采取的对策有：a装钢机设计成长行程的，可将钢坯送入炉子深处；b步进梁在炉子中间分段，两段可分别动作，分段处装射线或激光探测钢坯的位置，但分段操作非常复杂；c炉子分段处及进出料端装设工业电视监视；b计算机对钢坯进行定位和跟踪。(3)非常灵活的加热制度，能同时加热温度不同的入炉钢坯，包括冷热混装。(4)钢坯入炉温度不同，供热负荷波动大时，要求能稳定燃烧，均匀加热。(5)实现计算机控制。1.4设计的主要内容本次设计我们利用VisualStudio2010编程软件对以下几方面进行设计编程（1）燃料燃烧的计算，燃料燃烧部分的计算是整个设计的基础，在这部分确定了单位燃料空气需要量，烟气量及燃烧组分气体分压。（2）炉膛热交换计算，计算炉气导来系数，定出炉子相关尺寸及炉气温度。（3）金属加热部分的计算，主要是金属加热部分的计算，包括金属加热时间计算。（4）炉体尺寸的计算，确定炉子各部分尺寸。（5）炉子热平衡的计算，这部分主要利用收入和支出热平衡确定燃料消耗量及空气需要量。同时这部分也能判断出设计的炉子性能：如炉外表面温度，燃料消耗量及热损失情况。（6）换热器的计算，确定换热器的各热效率（7）排烟系统的阻力损失计算，主要确定排烟系统各部分阻力损失以便确定烟囱高度。（8）送风系统的计算，确定送风系统各部分阻力损失。（9）炉底水管强度的校核，对当前选用的水管强度进行检验。2基于VB的步进式加热炉设计计算软件2.1软件开发背景加热炉是轧钢厂的主要设备之一，其任务不仅仅是将炉温保持在规定的设定值，而且还要满足轧件的加热工艺要求。评价加热炉性能的主要指标是加热炉的单位燃耗、产量、金属的加热质量等。随着技术的进步和节能工作的进一步深入,对加热炉的设计提出了更高的要求。加热炉设计过程中，数学运算是很枯燥繁琐，而且现在对于计算精度要求也越来越高。利用计算机强大的计算性能，不但可以大大提高工作效率，减轻设计人员的工作强度，而且能提高设计计算的精确性，从而保证了产品的优良品质。为此利用VB编程技术开发出加热炉设计计算软件，用于加热炉计算机辅助设计。2.2加热炉计算软件设计过程的实现2.2.1加热炉设计基本参数输入加热炉的设计首先要确定相关基本参数，包括炉子生产率、加热钢种尺寸、钢坯的单重、板坯加热初始温度、板坯加热终了温度、板坯加热终了断面温差、空气预热温度、出炉烟气温度。程序实现步骤如下：（1）基本参数的输入，赋值给相应全局变量；（2）参数自动生成至word文档，便于设计过程中查阅。2.2.2燃料燃烧设计计算钢铁厂加热炉大多数使用自产的高、焦炉煤气，但是由于煤气的热值及压力波动较大，因此对加热炉的炉型设计带来了很多困难,所以必须对加热炉使用的燃料进行燃烧计算，其程序计算步骤如下：（1）原始数据的输入。输入燃料成分和空气过剩系数；（2）计算高炉、焦炉煤气低发热值（3）计算混合煤气的重度；（4）计算理论和实际的空气需要量；（5）计算完全燃烧的产物成分、生成量和重度；（6）计算燃烧产物中各种成分体积和百分含量（7）计算结果的输出；（8）燃料成分或空气过剩系数变化时,重复上述步骤（2）、（3）、（4）、（5）、（6）和（7）。2.2.3炉膛热交换计算加热炉炉膛的热交换是一个相当复杂的过程,不仅有传导、对流及辐射三种热交换方式同时存在，而且炉内各处的温度、炉气速度和压力都是不均匀的。为使本设计计算软件具有普遍性，特做如下假设：（1）炉气充满炉膛，且在整个分区的体积内温度是均匀的；（2）炉衬表面和钢坯表面的温度都是均匀的；（3）炉气以对流方式传给炉衬的热流在数值上等于炉衬的散热。炉内热交换程序计算步骤如下：（1）输入各段炉膛高度（2）输出计算结果；（4）输入参数发生变化时，重复上述步骤（1）和（2）2.2.4金属加热的设计计算根据加热炉基本设计参数以及前面计算结果，金属加热程序计算步骤如下：（1）计算各段的加热时间、长度及总加热时间、炉子总长度；（2）输出计算结果；（3）初始参数发生变化时，重复上述步骤（1）和（2）。2.2.5炉子热平衡计算根据加热炉基本设计参数以及前面计算结果，炉子热平衡程序计算步骤如下：（1）输入空气热焓量，烟气热焓量及炉门参数（2）计算炉子各热支出项与收入项；（3）输出计算结果；（4）空气热焓量，烟气热焓量及炉门参数炉门等参数变化时，重复上述步骤（2）和（3）。2.2.6换热器计算软件中所选换热器形式为U型管换热器，根据排烟温度、烟气量、初始空气温度、空气预热温度以及预热空气量，换热器程序计算步骤如下：（1）计算对数平均温差；（2）计算换热器总传热系数；（3）确定换热器面积和管子数目；（4）计算换热器经济指标；（5）输出计算结果；（6）当计算参数发生变化时，重复上述步骤（1）、（2）、（3）、（4）和（5）。图3.2金属加热计算流程图图3.2金属加热计算流程图Fig3.2Metalheatingcalculationflowchart2.2.7排烟系统阻力损失计算根据出炉烟气量、经过换热器烟气量、烟气出炉温度、换热器前后烟气温度、烟气重度和排烟方式等计算排烟系统阻力损失。计算依据是将烟道按一定的特点分成若干段，逐段进行计算，然后相加得总的阻力损失。程序计算步骤如下：（1）计算烟道总阻力损失；（2）烟囱计算；（3）输出计算结果；（4）当计算参数发生变化时,重复上述步骤（1）和（2）。2.2.8送风系统及炉底水管校核计算计算的主要目的是求出供风系统阻力损失，以作为选择风机的依据之一，根据空气量、空气预热温度和换热器前后空气流速等计算送风系统，其方法是分段进行计算，然后将各段阻力损失相加以求得总阻力损失。程序计算步骤如下：（1）计算空气管道直径；（2）计算空气管道阻力损失；（3）输出计算结果；（4）当计算参数发生变化时，重复上述步骤（1）、（2）和（3）。2.2.9炉底水管强度校核根据钢坯单重，炉宽，钢管尺寸，支撑纵水管管数等进行炉底水管校核，计算步骤如下：（1）计算梁的断面系数；（2）钢管的断面系数；（3）最大挠度与跨度比值；（4）输出计算结果；（5）计算参数变化时，重复（1）、（2）、（3）和（4）。2.3加热炉设计计算软件的运行2.3.1程序登录双击计算软件图标，弹出登录窗口，如图2.1所示。在用户窗口输入用户名：VB，点击“确定”，将进入主设计界面，如图2.2所示。点击“重新登录”则退出到登录窗口。当点击主设计界面上计算项目所列各按钮，将进入相应计算过程。使用中请严格按照计算步骤进行操作，否则可能出现运行错误。图2.1加热炉设计计算软件登陆界面图2.2加热炉设计计算软件主设计界面2.3.2加热炉设计基本参数输入进入软件主设计界面后，点击“加热炉设计基础数据”按钮，进入加热炉基础数据输入主界面，如图2.3所示。在界面各参数窗口中输入相应参数，然后点击“读取参数”按钮，输入的基本数据将记录进软件全局变量中。点击“主菜单”按钮，返回软件主设计界面。图2.3加热炉设计计算软件基本参数输入界面2.3.3燃料燃烧计算操作在软件主设计界面点击“燃料燃烧计算”按钮，进入燃料燃烧计算界面，如图2.4、2.5所示。图2.4加热炉设计计算软件燃料燃烧计算界面图2.5加热炉设计计算软件燃料燃烧计算界面（不同温度下饱和水蒸气表）在数据输入窗口中按要求输入煤气成分、空气过剩系数等。然后点击“确定”按钮，软件将进行燃料燃烧计算。点击“主菜单”按钮，返回软件主设计界面。2.3.4炉膛热交换计算操作在软件主设计界面点击“炉膛热交换计算”按钮，进入炉膛热交换计算界面，如图2.6、2.7、2.8、2.9、2.10所示。先输入各相关数据点击“确定”按钮，进行炉膛热交换计算。点击“主菜单”按钮，返回软件主设计界面。图2.6加热炉设计计算软件炉膛热交换计算界面图2.7加热炉设计计算软件炉膛热交换计算界面图2.8加热炉设计计算软件炉膛热交换计算界面图2.9加热炉设计计算软件炉膛热交换计算界面图2.10加热炉设计计算软件炉膛热交换计算界面2.3.5金属加热时间计算操作在软件主设计界面点击“金属加热时间计算”按钮，进入金属加热计算界面，如图2.11、2.12所示。输入相应的热焓和热导率，点击“确定”按钮,软件将自动进行计算点击“主菜单”按钮，返回软件主设计界面。图2.11加热炉设计计算软件金属加热时间计算界面图2.12加热炉设计计算软件金属加热时间计算界面2.3.6炉子热平衡计算操作在软件主设计界面点击“炉子热平衡计算”按钮，进入金属加热计算界面，如图2.13、2.14所示。输入空气和烟气的热焓量，以及炉门的参数，点击“确定”按钮,软件将自动进行计算，随后将会在热收入与支出项表格中自动显示计算结果。点击“主菜单”按钮，返回软件主设计界面。图2.13加热炉设计计算软件炉子热平衡计算界面图2.14加热炉设计计算软件炉子热平衡计算界面（炉水管参数）2.3.7换热器计算操作在软件主设计界面点击“换热器计算”按钮，进入金属加热计算界面，如图2.15、2.16、2.17所示。根据所提示的数据进行输入，点击“确定”按钮，程序将进行计算，点击“主菜单”按钮，返回软件主设计界面。 图2.15加热炉设计计算软件换热器计算界面图2.16加热炉设计计算软件换热器计算界面（温焓表）图2.17加热炉设计计算软件换热器计算界面（传热系数表）2.3.8排烟系统计算操作在软件主设计界面点击“排烟系统阻力损失计算”按钮，进入排烟损失计算界面，如图2.18所示。点击“确定”按钮，程序将进行计算点击“主菜单”按钮，返回软件主设计界面。图2.18加热炉设计计算软件排烟系统阻力损失计算界面2.3.9送风系统计算操作在软件主设计界面点击“送风计算”按钮，进入送风系统计算界面，如图2.19所示。点击“确定”按钮，程序将进行计算，点击“主菜单”按钮，返回软件主设计界面。图2.19加热炉设计计算软件送风系统计算界面2.3.10炉底水管校核计算操作在软件主设计界面点击“炉底水管强度校核计算”按钮，进入炉底水管校核计算界面，如图2.20、2.21所示。点击“确定”按钮，程序将进行校核计算，如果满足校核强度要求，软件会提示您选择的钢材合格，否则显示不合格，点击“主菜单”按钮，返回软件主设计界面。图2.20加热炉设计计算软件炉底水管强度校核界面图2.21加热炉设计计算软件炉底水管强度校核界面至此，整个步进式加热炉计算软件计算过程结束。结论以步进式加热炉基本设计计算为基础，我们利用VisualStudio2010中VB的各项功能对步进式加热炉进行设计计算，方便快捷的得出了加热炉燃烧计算、炉膛热交换计算、金属加热时间计算、炉子热平衡计算、换热器计算、排烟系统计算、送风系统计算和炉底校核计算，。下面是带入一组数据所得到的计算结果截图：基本参数输入：燃料燃烧计算：炉膛热交换：金属加热时间：炉子热平衡：换热器：排烟系统：送风系统：炉底水管强度校核：误差分析：在本次设计计算中存在一些误差，下面对误差进行分析。计算误差。包括数据进位和查表带来的误差。假设数据误差。在设计中有大量的数据都是假设出来的，尽管经过修正，但是依然不精确。如计算加热时间时的热流逼算。计算方法，在计算中有许多中方法可以选择，由于参数不全，经验不足可能选取的方法不完全合理，这也为计算带来了误差。致谢本毕业设计是在刘峰老师的细心指导和协助下完成的，刘老师工作繁忙，但仍在百忙之中给予我认真细致的指导。在设计中，为我指出了设计思路、指明了设计方向，并且耐心给予讲解设计中的疑难问题，及时指出不足之处,使我的毕业设计能够顺利完成并且少走了许多弯路，在设计期间为我们提供了大量相关的设计资料，在此，我对刘老师表示最崇高的敬意和诚挚的感谢。刘老师渊博多才、严谨的治学态度给我留下了深刻的印象，使我终生受益，立为榜样。同时，还要感谢栗霁、洪林同在设计中给予的帮助。附录A1燃料燃烧计算PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickDima1!,a2%,a3%,a4%,a5%,a6%,a7%,a8%,a9%,m1!,n1!,m2!,n2!,m3!,b1!,b2!,b3!,b4!,b5!,m4!,c1!,c2!,c3!,c4!,c5!,m5!,shuishui=100*Val(TextBox26.Text)/(803.6+Val(TextBox26.Text))a1=Val(TextBox1.Text)*((100-(100*Val(TextBox26.Text)/(803.6+Val(TextBox26.Text))))/100)a2=Val(TextBox2.Text)*((100-(100*Val(TextBox26.Text)/(803.6+Val(TextBox26.Text))))/100)a3=Val(TextBox3.Text)*((100-(100*Val(TextBox26.Text)/(803.6+Val(TextBox26.Text))))/100)a4=Val(TextBox4.Text)*((100-(100*Val(TextBox26.Text)/(803.6+Val(TextBox26.Text))))/100)a5=Val(TextBox5.Text)*((100-(100*Val(TextBox26.Text)/(803.6+Val(TextBox26.Text))))/100)a6=Val(TextBox6.Text)*((100-(100*Val(TextBox26.Text)/(803.6+Val(TextBox26.Text))))/100)a7=Val(TextBox7.Text)*((100-(100*Val(TextBox26.Text)/(803.6+Val(TextBox26.Text))))/100)a8=Val(TextBox8.Text)*((100-(100*Val(TextBox26.Text)/(803.6+Val(TextBox26.Text))))/100)a9=Val(TextBox9.Text)*((100-(100*Val(TextBox26.Text)/(803.6+Val(TextBox26.Text))))/100)'m1=4.18*(30.46*a1+30.5*a3+95.3*a4+152.5*a7+60.0*a9)'n1=4.18*(30.46*a1+25.8*a3+85.5*a4+141.0*a7+55.2*a9)m1=126.4*a1+127.7*a3+397.7*a4+696.6*a8+630*a7+257*a9n1=126.5*a1+108.1*a3+359.6*a4+636.3*a8+589.8*a7+236.9*a9TextBox11.Text=Math.Round(m1,3)TextBox12.Text=Math.Round(n1,3)'m2=(28*Val(TextBox1.Text)+44*Val(TextBox2.Text)+16*Val(TextBox4.Text)+30*Val(TextBox8.Text)+2*Val(TextBox3.Text)+28*Val(TextBox6.Text)+18*shui+32*Val(TextBox5.Text))/(22.4*100)m2=(28*a1+44*a2+2*a3+16*a4+32*a5+28*a6+28*a7+30*a8+34*a9+18*shui)/(22.4*100)TextBox13.Text=Math.Round(m2,3)'n2=(0.5*Val(TextBox1.Text)+0.5*Val(TextBox3.Text)+1.5*Val(TextBox9.Text)+2*Val(TextBox4.Text)+3*Val(TextBox7.Text)+3.5*Val(TextBox8.Text)-Val(TextBox5.Text))/(21*100)n2=(1/21)*(0.5*a1+0.5*a3+1.5*a9+2*a4+3*a7+3.5*a8-a5)TextBox14.Text=Math.Round(n2,3)m3=Val(TextBox10.Text)*n2TextBox15.Text=Math.Round(m3,3)'b1=0.01*(Val(TextBox2.Text)+Val(TextBox1.Text)+Val(TextBox4.Text)+2*Val(TextBox7.Text)+2*Val(TextBox8.Text))b1=0.1*(a2+a1+a4+a7+a8)'b2=0.01*(Val(TextBox3.Text)+2*Val(TextBox4.Text)+2*Val(TextBox7.Text)+100*Val(TextBox26.Text)/(803.6+Val(TextBox26.Text))+3*Val(TextBox8.Text)+Val(TextBox9.Text))b2=0.01*(a3+2*a4+2*a7+3*a8)'b3=0.01*(Val(TextBox6.Text+79*m3))b3=0.79*Val(TextBox14.Text)+0.01*a6'b4=0.01*Val(TextBox9.Text)b4=0.01*a9b5=0.01*(21*(Val(TextBox10.Text)-1)*Val(TextBox14.Text))m4=b1+b2+b3+b4+b5TextBox16.Text=Math.Round(m4,3)TextBox18.Text=Math.Round(b1,3)TextBox19.Text=Math.Round(b2,3)TextBox20.Text=Math.Round(b3,3)TextBox21.Text=Math.Round(b4,3)TextBox27.Text=Math.Round(b5,3)c1=100*b1/m4c2=100*b2/m4c3=100*b3/m4c4=100*b4/m4c5=100*b5/m4TextBox22.Text=Math.Round(c1,2)TextBox23.Text=Math.Round(c2,2)TextBox24.Text=Math.Round(c3,2)TextBox25.Text=Math.Round(c4,2)TextBox28.Text=Math.Round(c5,2)m5=(44*c1+18*c2+28*c3+64*c4+32*c5)/(22.3*100)TextBox17.Text=Math.Round(m5,2)EndSub2炉膛热交换计算PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimN!,B!,L加¨®1,L加¨®2,L预¡è,L均¨´,F底Ì¡Á加¨®1,F底Ì¡Á加¨®2,F底Ì¡Á预¡è,F底Ì¡Á均¨´,F墙?加¨®1,F墙?加¨®2,F墙?预¡è,F墙?均¨´,F顶£¤加¨®1,F顶£¤加¨®2,F顶£¤预¡è,F顶£¤均¨´,F加¨®1,F加¨®2,F预¡è,F均¨´,V加¨®1,V加¨®2,V预¡è,V均¨´,S加¨®1!,S加¨®2!,S预¡è!,S均¨´!,d1!,d2!,d3!,d4!,d5!,d6!,z1,z2,z3,ε?气?加¨®1,ε?气?加¨®2,ε?气?加¨®预¡è,ε?气?加¨®均¨´,ψ¡Á加¨®12,ψ¡Á预¡è,ψ¡Á均¨´,C加¨®1!,C加¨®2!,C预¡è!,C均¨´!,C!L加¨®1=1L加¨®2=2L预¡è=3L均¨´=4TabControl1.Visible=TrueOvalShape1.Visible=FalseRadioButton1.Visible=FalseRadioButton2.Visible=FalseTextBox2.Enabled=FalseTextBox3.Enabled=FalseTextBox4.Enabled=FalseTextBox5.Enabled=FalseTextBox6.Enabled=FalseIfRadioButton1.Checked=TrueThenN=1Else:N=2EndIfB=CInt(N*Val(Form3.TextBox7.Text)/1000+(N+1)*0.2)TextBox1.Text=B'炉¡¥底Ì¡Á面?积yF底Ì¡Á加¨®1=B*L加¨®1F底Ì¡Á加¨®2=B*L加¨®2F底Ì¡Á预¡è=B*L预¡èF底Ì¡Á均¨´=B*L均¨´'炉¡¥墙?与®?炉¡¥顶£¤内¨²表À¨ª面?积y'炉¡¥墙?F墙?加¨®1=2*Val(TextBox2.Text)*L加¨®1F墙?加¨®2=2*Val(TextBox3.Text)*L加¨®2F墙?预¡è=2*Val(TextBox4.Text)*L预¡èF墙?均¨´=2*Val(TextBox5.Text)*L均¨´'炉¡¥顶£¤F顶£¤加¨®1=B*L加¨®1F顶£¤加¨®2=B*L加¨®2F顶£¤预¡è=B*L预¡èF顶£¤均¨´=B*L均¨´'炉¡¥气?外ªa围¡ì总Á¨¹表À¨ª面?积yF加¨®1=F墙?加¨®1+F顶£¤加¨®1+F底Ì¡Á加¨®1F加¨®2=F墙?加¨®2+F顶£¤加¨®2+F底Ì¡Á加¨®2F预¡è=F墙?预¡è+F顶£¤预¡è+F底Ì¡Á预¡èF均¨´=F墙?均¨´+F顶£¤均¨´+F底Ì¡Á均¨´'炉¡¥墙?被À?炉¡¥气?充?满¨²的Ì?体¬?积yV加¨®1=Val(TextBox2.Text)*B*L加¨®1V加¨®2=Val(TextBox3.Text)*B*L加¨®2V预¡è=Val(TextBox4.Text)*B*L预¡èV均¨´=Val(TextBox5.Text)*B*L均¨´'平?均¨´有®D效¡ì射¦?线?长¡è度¨¨S加¨®1=0.9*4*V加¨®1/F加¨®1S加¨®2=0.9*4*V加¨®2/F加¨®2S预¡è=0.9*4*V预¡è/F预¡èS均¨´=0.9*4*V均¨´/F均¨´TextBox7.Text=S加¨®1TextBox8.Text=S加¨®2TextBox9.Text=S预¡èTextBox10.Text=S均¨´'辐¤?射¦?气?体¬?分¤?压1与®?平?均¨´有®D效¡ì射¦?线?长¡è度¨¨之?积yd1=Val(Form4.TextBox22.Text)*Val(TextBox7.Text)/100d2=Val(Form4.TextBox23.Text)*Val(TextBox7.Text)/100d3=Val(Form4.TextBox22.Text)*Val(TextBox9.Text)/100d4=Val(Form4.TextBox23.Text)*Val(TextBox9.Text)/100d5=Val(Form4.TextBox22.Text)*Val(TextBox10.Text)/100d6=Val(Form4.TextBox23.Text)*Val(TextBox10.Text)/100TextBox11.Text=d1TextBox12.Text=d2TextBox13.Text=d3TextBox14.Text=d4TextBox15.Text=d5TextBox16.Text=d6'炉¡¥气?温?度¨¨z1=Val(Form3.TextBox3.Text)TextBox17.Text=z1+50z2=Val(TextBox17.Text)z3=z2+50TextBox18.Text=z3TextBox19.Text=(z2+Val(Form3.TextBox6.Text))/2TextBox20.Text=z1+30'炉¡¥气?黑¨²度¨¨ε?气?加¨®1=0.282ε?气?加¨®2=0.285ε?气?加¨®预¡è=0.29ε?气?加¨®均¨´=0.32'炉¡¥膛¬?对?金e属º?的Ì?角?度¨¨系¦Ì数ºyψ¡Á加¨®12=F底Ì¡Á加¨®1/(F墙?加¨®1+F顶£¤加¨®1)ψ¡Á预¡è=F底Ì¡Á预¡è/(F墙?预¡è+F顶£¤预¡è)ψ¡Á均¨´=F底Ì¡Á均¨´/(F墙?均¨´+F顶£¤均¨´)'导Ì?来¤¡ä辐¤?射¦?系¦Ì数ºyC加¨®1=4.9*ε?气?加¨®1*0.8*(1+ψ¡Á加¨®12*(1-ε?气?加¨®1))/(ε?气?加¨®1+ψ¡Á加¨®12*(1-ε?气?加¨®1)*(0.8+ε?气?加¨®1*(1-0.8)))C加¨®2=4.9*ε?气?加¨®2*0.8*(1+ψ¡Á加¨®12*(1-ε?气?加¨®2))/(ε?气?加¨®2+ψ¡Á加¨®12*(1-ε?气?加¨®2)*(0.8+ε?气?加¨®2*(1-0.8)))C预¡è=4.9*ε?气?加¨®预¡è*0.8*(1+ψ¡Á预¡è*(1-ε?气?加¨®预¡è))/(ε?气?加¨®预¡è+ψ¡Á预¡è*(1-ε?气?加¨®预¡è)*(0.8+ε?气?加¨®预¡è*(1-0.8)))C均¨´=4.9*ε?气?加¨®均¨´*0.8*(1+ψ¡Á均¨´*(1-ε?气?加¨®均¨´))/(ε?气?加¨®均¨´+ψ¡Á均¨´*(1-ε?气?加¨®均¨´)*(0.8+ε?气?加¨®均¨´*(1-0.8)))C=(C加¨®1+C加¨®2+C预¡è+C均¨´)/4TextBox21.Text=C加¨®1TextBox22.Text=C加¨®2TextBox23.Text=C预¡èTextBox24.Text=C均¨´TextBox25.Text=CEndSub3金属加热时间计算PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimτ¨®4!,L!,L0!,τ¨®!,q1!,q0!,A1!,B1!,qy!,τ¨®1!,τ¨®2!,L1加¨®!,L2加¨®!,L预¡è!,L均¨´!GroupBox1.Visible=TrueTextBox14.Enabled=FalseTextBox15.Enabled=FalseTextBox16.Enabled=FalseTextBox17.Enabled=FalseTextBox18.Enabled=FalseTextBox19.Enabled=FalseTextBox20.Enabled=Falseτ¨®4=Val(Form15.TextBox2.Text)*((Val(Form3.TextBox9.Text)/2000)^2)/0.02TextBox4.Text=τ¨®4L0=(Val(Form3.TextBox1.Text)*1.1*1000)/5478.4L=(Val(Form3.TextBox1.Text)*1.1*1000)/5478.4+2.5TextBox10.Text=Lτ¨®=(L*Val(Form3.TextBox10.Text))/(Val(Form3.TextBox1.Text)*320)TextBox9.Text=τ¨®q1=120164A1=((Val(Form3.TextBox6.Text)+273)/100)^4B1=((Val(Form3.TextBox2.Text)+273)/100)^4q0=Val(Form5.TextBox21.Text)*(A1-B1)qy=(q1*q0)^0.5τ¨®1=75.3*7660*(Val(Form3.TextBox9.Text)/2000)/qyτ¨®2=53*7450*(Val(Form3.TextBox9.Text)/2000)/56437TextBox1.Text=τ¨®-(τ¨®1+τ¨®2+τ¨®4)TextBox2.Text=τ¨®2TextBox3.Text=τ¨®1L1加¨®=L0*Val(TextBox1.Text)/τ¨®L2加¨®=L0*Val(TextBox2.Text)/τ¨®L预¡è=L0*Val(TextBox3.Text)/τ¨®L均¨´=L0*Val(TextBox4.Text)/τ¨®TextBox5.Text=L1加¨®TextBox6.Text=L2加¨®TextBox7.Text=L预¡èTextBox8.Text=L均¨´EndSubPrivateSubForm6_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimq4!,tg4!,q3!,Δ¡èt3!,δ?!,A!,B!q4=4*Val(TextBox14.Text)*Val(Form3.TextBox4.Text)/(Val(Form3.TextBox9.Text)/1000)tg4=100*(q4/Val(Form5.TextBox24.Text)+((Val(Form3.TextBox3.Text)+273)/100)^4)^0.25'q3=Val(Form5.TextBox22.Text)*(((Val(Form5.TextBox18.Text)+273)/100)^4)-((Val(Form3.TextBox3.Text)+273)/100)^4A=((Val(Form5.TextBox18.Text)+273)/100)^4B=((Val(Form3.TextBox3.Text)+273)/100)^4q3=Val(Form5.TextBox22.Text)*(A-B)Δ¡èt3=q3*(Val(Form3.TextBox9.Text)/1000)/(4*Val(TextBox19.Text))'均¨´热¨¨¨时º¡À间?δ?=Val(Form3.TextBox4.Text)/Δ¡èt3TextBox20.Text=δ?TextBox11.Text=Val(Form3.TextBox3.Text)-2*Val(Form3.TextBox4.Text)/3TextBox12.Text=Val(Form3.TextBox3.Text)TextBox13.Text=1100EndSub4炉子平衡PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimB!,Q烧¦?!,Q空?!,Q氧?化¡¥!,Q效¡ì!,Q烟¨¬!,Q炉¡¥体¬?!,Q炉¡¥门?!,q门?加¨®!,q门?均¨´!,q门?预¡è!,o1!,o2!,o3!,q辐¤?1!,q辐¤?2!,Q氧?铁¬¨²!,Q冷¤?却¨¡ä!,F固¨¬预¡è!,F活?预¡è!,Fy!,qy!,F固¨¬1!,F活?1!,Fr1!,qr1!,F固¨¬2!,F活?2!,Fr2!,qr2!,F固¨¬均¨´!,F活?均¨´!,Fj!,qj!,A2!,B2!,C2!'收º?入¨?Q烧¦?=B*Val(Form4.TextBox12.Text)'1Q空?=B*Val(Form4.TextBox15.Text)*Val(TextBox26.Text)'2Q氧?化¡¥=5643*0.02*(Val(Form3.TextBox1.Text)*1000/0.98)'3'热¨¨¨支¡ì出?项?Q效¡ì=Val(Form3.TextBox1.Text)*1000*855'4Q烟¨¬=B*Val(Form4.TextBox16.Text)*Val(TextBox27.Text)'5Q炉¡¥体¬?=2040000'6o1=4*Val(TextBox28.Text)*Val(TextBox29.Text)/1000000+1.105*0.58q门?加¨®=o1*(1195-Val(Form3.TextBox2.Text))/(0.13/4.97+0.06)o2=2*Val(TextBox28.Text)*Val(TextBox29.Text)/1000000+1.105*0.58q门?均¨´=o2*(1219-Val(Form3.TextBox2.Text))/(0.13/5+0.06)o3=2*Val(TextBox28.Text)*Val(TextBox29.Text)/1000000q门?预¡è=o3*(860-Val(Form3.TextBox2.Text))/(0.13/4.56+0.06)q辐¤?1=4.9*4*0.5*0.5*((Val(Form5.TextBox20.Text)+273)/100)^4q辐¤?2=4.9*4.64*0.58*0.5*((Val(Form5.TextBox19.Text)+273)/100)^4Q炉¡¥门?=q门?加¨®+q门?均¨´+q门?预¡è+q辐¤?1+q辐¤?2'7Q氧?铁¬¨²=0.02*(Val(Form3.TextBox1.Text)*1000/0.98)*0.3*1.38*(Val(Form3.TextBox3.Text-Val(Form3.TextBox2.Text)))'8F固¨¬预¡è=2*3.14*(Val(Form18.TextBox2.Text)/1000)*Val(Form6.TextBox7.Text)+(Val(Form18.TextBox11.Text)*Val(Form6.TextBox7.Text)*3.14*Val(Form18.TextBox2.Text)/1000*Val(Form18.TextBox5.Text))/(Val(Form6.TextBox10.Text)-2.5)F活?预¡è=2*3.14*(Val(Form18.TextBox7.Text)/1000)*Val(Form6.TextBox7.Text)+(Val(Form18.TextBox11.Text)*Val(Form6.TextBox7.Text)*3.14*Val(Form18.TextBox7.Text)/1000*Val(Form18.TextBox10.Text))/(Val(Form6.TextBox10.Text)-2.5)Fy=Val(Form18.TextBox1.Text)*F固¨¬预¡è+Val(Form18.TextBox6.Text)*F活?预¡èqy=11*Fy*(((Val(Form5.TextBox19.Text)+273)/100)^3.54)F固¨¬1=2*3.14*Val(Form18.TextBox2.Text)/1000*Val(Form6.TextBox5.Text)+Val(Form18.TextBox11.Text)*Val(Form6.TextBox5.Text)*3.14*Val(Form18.TextBox2.Text)/1000*Val(Form18.TextBox4.Text)/(Val(Form6.TextBox10.Text)-2.5)F活?1=2*3.14*Val(Form18.TextBox7.Text)/1000*Val(Form6.TextBox5.Text)+Val(Form18.TextBox11.Text)*Val(Form6.TextBox5.Text)*3.14*Val(Form18.TextBox7.Text)/1000*Val(Form18.TextBox9.Text)/(Val(Form6.TextBox10.Text)-2.5)Fr1=Val(Form18.TextBox1.Text)*F固¨¬1+Val(Form18.TextBox6.Text)*F活?1qr1=2.4*Fr1*((Val(Form5.TextBox17.Text)+273)/100)^4F固¨¬2=2*3.14*Val(Form18.TextBox2.Text)/1000*Val(Form6.TextBox6.Text)+Val(Form18.TextBox11.Text)*Val(Form6.TextBox6.Text)*3.14*Val(Form18.TextBox2.Text)/1000*Val(Form18.TextBox4.Text)/(Val(Form6.TextBox10.Text)-2.5)F活?2=2*3.14*Val(Form18.TextBox7.Text)/1000*Val(Form6.TextBox6.Text)+Val(Form18.TextBox11.Text)*Val(Form6.TextBox6.Text)*3.14*Val(Form18.TextBox7.Text)/1000*Val(Form18.TextBox9.Text)/(Val(Form6.TextBox10.Text)-2.5)Fr2=Val(Form18.TextBox1.Text)*F固¨¬2+Val(Form18.TextBox6.Text)*F活?2qr2=2.4*Fr2*((Val(Form5.TextBox18.Text)+273)/100)^4F固¨¬均¨´=2*3.14*Val(Form18.TextBox2.Text)/1000*Val(Form6.TextBox8.Text)+Val(Form18.TextBox11.Text)*Val(Form6.TextBox8.Text)*3.14*Val(Form18.TextBox2.Text)/1000*Val(Form18.TextBox4.Text)/(Val(Form6.TextBox10.Text)-2.5)F活?均¨´=2*3.14*Val(Form18.TextBox7.Text)/1000*Val(Form6.TextBox8.Text)+Val(Form18.TextBox11.Text)*Val(Form6.TextBox8.Text)*3.14*Val(Form18.TextBox7.Text)/1000*Val(Form18.TextBox9.Text)/(Val(Form6.TextBox10.Text)-2.5)Fj=Val(Form18.TextBox1.Text)*F固¨¬均¨´+Val(Form18.TextBox6.Text)*F活?均¨´qj=2.4*Fj*((Val(Form5.TextBox20.Text)+273)/100)^4Q冷¤?却¨¡ä=qy+qr1+qr2+qj'9'Q烧¦?+Q空?+Q氧?化¡¥=Q效¡ì+Q烟¨¬+Q炉¡¥体¬?+Q炉¡¥门?+Q氧?铁¬¨²+Q冷¤?却¨¡ä'Q烧¦?+Q空?-Q烟¨¬=Q效¡ì+Q炉¡¥体¬?+Q炉¡¥门?+Q氧?铁¬¨²+Q冷¤?却¨¡ä-Q氧?化¡¥'B*Val(Form4.TextBox12.Text)+B*Val(Form4.TextBox15.Text)*Val(TextBox26.Text)-B*Val(Form4.TextBox16.Text)*Val(TextBox27.Text)=Q效¡ì+Q炉¡¥体¬?+Q炉¡¥门?+Q氧?铁¬¨²+Q冷¤?却¨¡ä-Q氧?化¡¥B=(Q效¡ì+Q炉¡¥体¬?+Q炉¡¥门?+Q氧?铁¬¨²+Q冷¤?却¨¡ä-Q氧?化¡¥)/(Val(Form4.TextBox12.Text)+Val(Form4.TextBox15.Text)*Val(TextBox26.Text)-Val(Form4.TextBox16.Text)*Val(TextBox27.Text))TextBox25.Text=BA2=B*Val(Form4.TextBox12.Text)/(10^6)TextBox1.Text=A2B2=B*Val(Form4.TextBox15.Text)*Val(TextBox26.Text)/(10^6)TextBox2.Text=B2TextBox3.Text=Q氧?化¡¥/(10^6)TextBox7.Text=Q效¡ì/(10^6)C2=B*Val(Form4.TextBox16.Text)*Val(TextBox27.Text)/(10^6)TextBox8.Text=C2TextBox9.Text=Q炉¡¥体¬?/(10^6)TextBox10.Text=Q炉¡¥门?/(10^6)TextBox11.Text=Q冷¤?却¨¡ä/(10^6)TextBox12.Text=Q氧?铁¬¨²/(10^6)TextBox19.Text=Val(TextBox1.Text)+Val(TextBox2.Text)+Val(TextBox3.Text)TextBox4.Text=Format(Val(TextBox1.Text)/Val(TextBox19.Text)*100,"0.00")TextBox5.Text=Format(Val(TextBox2.Text)/Val(TextBox19.Text)*100,"0.00")TextBox6.Text=Format(Val(TextBox3.Text)/Val(TextBox19.Text)*100,"0.00")TextBox20.Text=100TextBox21.Text=Val(TextBox7.Text)+Val(TextBox8.Text)+Val(TextBox9.Text)+Val(TextBox10.Text)+Val(TextBox11.Text)+Val(TextBox12.Text)TextBox13.Text=Format(Val(TextBox7.Text)/Val(TextBox21.Text)*100,"0.00")TextBox14.Text=Format(Val(TextBox8.Text)/Val(TextBox21.Text)*100,"0.00")TextBox15.Text=Format(Val(TextBox9.Text)/Val(TextBox21.Text)*100,"0.00")TextBox16.Text=Format(Val(TextBox10.Text)/Val(TextBox21.Text)*100,"0.00")TextBox17.Text=Format(Val(TextBox11.Text)/Val(TextBox21.Text)*100,"0.00")TextBox18.Text=Format(Val(TextBox12.Text)/Val(TextBox21.Text)*100,"0.00")TextBox22.Text=100TextBox23.Text=Format(100*Q效¡ì/(B*Val(Form4.TextBox12.Text)),"0.00")TextBox24.Text=B*Val(Form4.TextBox12.Text)/Val(Form3.TextBox1.Text)TextBox26.Enabled=FalseTextBox27.Enabled=FalseTextBox28.Enabled=FalseTextBox29.Enabled=FalseEndSub5换热器计算PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimV烟¨¬!,t烟¨¬!,i烟¨¬1!,Δ¡èt!,α¨¢1!,α¨¢1辐¤?!,α¨¢1对?!,A!,B!,α¨¢2!,A1!,B1!,K!,F!,Z!,η?换?!,η?t!,η?回?!,η?节¨²!TextBox1.Enabled=FalseTextBox2.Enabled=FalseTextBox11.Enabled=FalseTextBox12.Enabled=FalseTextBox13.Enabled=FalseTextBox14.Enabled=FalseTextBox15.Enabled=FalseV烟¨¬=0.7*Val(Form4.TextBox16.Text)*Val(Form7.TextBox25.Text)*1.1t烟¨¬=Val(TextBox11.Text)i烟¨¬1=Val(Form19.TextBox3.Text)-Val(Form4.TextBox14.Text)*Val(Form7.TextBox25.Text)*(Val(TextBox13.Text)-Val(TextBox12.Text))/(V烟¨¬*0.9)TextBox14.Text=i烟¨¬1Δ¡èt=((t烟¨¬-Val(Form3.TextBox5.Tex