工程热力学上机报告vb.docxVIP

工程热力学上机实验报告实验目的：在工程热力学课程中引入计算机实习的目的是使学生初步掌握用计算机这一现代化计算工具解决工程实际问题的能力。在热能转换和利用系统的分析研究中，经常会提出大量工程计算任务，例如，各种热能动力系统的热力计算、变工况计算、系统动态分析、优化设计等等，这些计算有许多可以用计算机完成，而且在某些情况下，只有用计算机才能完成。本上机实验重点介绍通过计算机变成进行蒸汽动力循环的热力计算，即工质热力参数的计算和系统循环热效率的计算，要求在掌握系统热力学计算的基本概念和计算方法的基础上，采用编程语言编写计算机程序。本实验报告采用VB语言。一、朗肯循环对蒸汽动力循环的基本循环——朗肯循环，其工作原理是，从锅炉出来的高温T1，高压p1的过热水蒸气经汽轮机绝热膨胀做工至低压p2的乏汽，在冷凝器中凝结成饱和液体，经水泵升压至p1下的未饱和过冷液体，进入锅炉加热至过热蒸汽，再进入汽轮机绝热膨胀做功，周而复始的将热能转换为机械能，图1为理想朗肯循环工作过程的水蒸气T—S图。循环中：工质在锅炉中的加热量：q1=h1-h4图一在冷凝器中的放热量：q2=h2-h3在汽轮机中的做功量：w1=h1-h2在水泵中的耗功量：w2=h4-h3循环热效率：n=(q1-q2)/q1=1-(h2-h3)/(h1-h4)如忽略泵功，h3=h4则循环效率：n=(h1-h2)/(h1-h3)=1-(h2-h3)/(h1-h3)实验初始参数：P1=4Mpa,t1=450摄氏度，p2=6kpa函数拟合SX(P2),SY(P2),Hx(P2),Hy(p2)饱和水sx--P2拟合公式一、sx= 71201*(p2)3 - 3433.1*(p2)2 + 73.062*(p2) + 0.1911 饱和蒸汽 sy—p2拟合公式二、sy=-2*10^(-7)*(t1)^3+0.0001*(t1)^2+9.1454饱和水hx—p拟合公式三、hx = 2*10^7*(p2)3–1*10^6*(p2)2 + 22056*(p2) + 50.845 饱和蒸汽sy-p拟合公式四、hy = 9*10^6*(p1)3 - 435986*(p1)2 + 9535.8*(p1) + 2523.1初始界面4、运行界面5、朗肯循环代码Imports System.MathPublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim t1, p1, h1, s1, sy, sx, hy, hx, t2, s2, h2, h3, x, n, p2 As Double p1 = 4 p2 = 0.006sx = -5 * 10 ^ 6 * (p2) ^ 4 + 285518 * (p2) ^ 3 - 6788.7 * (p2) ^ 2 + 95.586 * (p2) + 0.1365sy = 8 * 10 ^ 6 * (p2) ^ 4 - 467133 * (p2) ^ 3 + 10898 * (p2) ^ 2 - 145.7 * (p2) + 8.9003hx = -1 * (10 ^ 9) * (p2) ^ 4 + 8 * (10 ^ 7) * (p2) ^ 3 - 2 * (10 ^ 6) * (p2) ^ 2 + 28629 * (p2) + 34.916hy = -6 * 10 ^ 8 * (p2) ^ 4 + 4 * 10 ^ 7 * (p2) ^ 3 - 864157 * (p2) ^ 2 + 12410 * (p2) + 2516.1 t1 = 450 t1 = t1 + 273.15 p1 = p1 * 10 p2 = p2 * 10 h1 = 2018.24 + 1.693 * t1 + 0.0002721 * t1 * t1 + (3.643 - 594.5 * p1) * Pow(t1 / 100, -3.1) + (0.6156 - 2.696 * Pow(10, 6) * Pow(p1, 3)) * Pow(t1 / 100, -13.5) s1 = 1.693 * Log(t1) - 0.4795 * Log(p1) - 2.9347 + 0.0005442 * t1 + (0.02747 - 4.495 * p1) * Pow(t1 / 100, -4.1) + (0.005731 - 2.51 * 10000 * Pow(p1, 3)) *