柴油机工作过程计算..
柴油发动机的工作原理
柴油发动机的工作原理柴油发动机是一种内燃机，它利用柴油燃料来产生动力，驱动机动车辆或者发电机。
与汽油发动机相比，柴油发动机具有更高的热效率和更大的扭矩输出，因此在大型车辆和工业设备中得到广泛应用。
下面我们将详细介绍柴油发动机的工作原理。
首先，柴油发动机的工作原理可以分为四个基本步骤，进气、压缩、燃烧和排气。
在进气阶段，气缸内的活塞向下运动，使气缸内的空气通过进气阀进入。
在压缩阶段，活塞向上运动，将进入的空气压缩至高压状态。
接着是燃烧阶段，柴油燃料被喷射到高压空气中，由于高温高压的作用，柴油燃料自燃，产生爆炸力推动活塞向下运动。
最后是排气阶段，活塞再次向上运动，将燃烧后的废气排出气缸。
在柴油发动机中，燃烧过程是最关键的部分。
燃烧室内的高压空气能够使柴油燃料迅速燃烧，产生大量高温高压的燃气，从而推动活塞运动。
与汽油发动机不同的是，柴油发动机的燃烧是通过高温高压自燃实现的，因此不需要点火系统。
柴油发动机的工作原理还涉及到燃油喷射系统。
燃油喷射系统负责将柴油燃料以高压喷射到燃烧室内，确保燃料能够充分燃烧，提高燃烧效率。
常见的燃油喷射系统包括常压喷射系统和高压共轨喷射系统，它们都能够实现精准的燃油喷射控制，提高发动机的动力输出和燃油经济性。
此外，柴油发动机还需要润滑系统和冷却系统的支持。
润滑系统负责减少活塞与气缸壁的摩擦，保持发动机的正常运转；冷却系统则通过循环冷却剂来降低发动机的工作温度，防止发动机过热损坏。
总的来说，柴油发动机的工作原理是通过压缩高压空气和喷射柴油燃料实现的，它具有高效率、高扭矩输出和长寿命的特点。
通过合理的燃油喷射控制、润滑和冷却系统的支持，柴油发动机能够稳定可靠地工作，满足各种车辆和设备的动力需求。
柴油机结构及工作原理
柴油机概述
量热量，使气缸中的气体温度和压力急剧升高，最高 温度可达2000℃左右，最高爆发压力可达60一90 Kg.f/cm2 (随燃烧室的结构型式不同而有所差异，增压 及增压中冷柴油机此数值还要更高)。由于此时进气门 和排气门是关闭着的，所以高温高压气体便膨胀而推 动活塞内上止点迅速向下止点移动，并通过连杆的传 递而迫使曲轴旋转对外输出动力。这样，热能便转化 成了机械功。随着活塞的下移，气缸内的气体压力和 温度也随之逐渐降低，待活塞接近下止点时，做功行 程便告终了，此时缸内压力降到3—4 Kg.f/cm2。，而 温度降到800一900℃。
连杆小头与活塞销相连， 工作时小头与活塞销之 间相对转动，因此小头孔中一般压入减摩青铜衬套。 为了润滑活塞销与衬套，在连杆小头和衬套上均钻出 集油孔或铣出集油槽，用来收集发动机运转时被飞溅 上来的机油,以便润滑。装配连杆铜套时应当注意：青 铜衬套上的孔必须与连杆上端的油孔相通。
配气机构
配气机构的 功用是按照发动 机各缸工作次序 的要求， 在每 一工作循环中按 时开启和关闭各 气缸的进、 排 气门，以保证各 缸准时吸进清洁 空气，并及时排 出废气。
结构 涡轮
增压器主 要由压气 机和涡轮 两部分组 成。
进排气系统
工作原理：
利用发动机排气中的剩余能量来工作的空气泵。 柴油机排出的废气经过涡轮壳进入喷嘴，将废气的热 能及静压能变成动能，并以一定的方向流向涡轮叶轮， 从而使涡轮高速旋转，带动同轴上的压气机叶轮亦高 速旋转，新鲜空气经过空气滤清器被吸入高速旋转的 压气机叶轮，使气流速度增加，压力提高，再经过扩 压器与压气机壳，使气流的动能变成静压能，压力进 一步提高，增大密度的空气最后进入发动机的进气管， 以实现进气增压提高发动机功率的目的。
柴油发电机工作原理
柴油发电机工作原理柴油发电机是一种常见的发电设备，它通过燃烧柴油燃料来产生电能。
下面将详细介绍柴油发电机的工作原理。
1. 柴油发电机的组成柴油发电机主要由柴油机和发电机两部分组成。
其中，柴油机负责燃烧柴油燃料产生动力，发电机则将动力转化为电能输出。
2. 柴油发电机的工作原理（1）燃油供给系统柴油发电机的燃油供给系统主要包括燃油箱、燃油过滤器、燃油泵和喷油器等组件。
燃油从燃油箱经过过滤器进入燃油泵，燃油泵将燃油压力增加后送入喷油器。
喷油器将高压燃油喷入柴油机的燃烧室。
（2）柴油机的工作过程柴油机采用压燃式燃烧，其工作过程主要包括进气、压缩、燃烧和排气四个阶段。
首先，柴油机的活塞向下运动，气缸内形成负压，进气门打开，新鲜空气进入气缸。
然后，活塞向上运动，将进气气体压缩，使气体温度升高。
接着，喷油器喷入高压燃油，燃油在高温高压下迅速燃烧，产生爆发力推动活塞向下运动。
最后，排气门打开，排出燃烧产生的废气。
（3）发电机的工作原理柴油机通过曲轴带动发电机旋转，发电机内部的转子和定子之间产生磁场。
当转子旋转时，磁场会随之变化，从而在定子上诱导出电压。
这个电压经过整流器的处理后，输出为直流电。
然后，直流电再经过变压器变换为所需的交流电。
3. 柴油发电机的优势（1）高效节能：柴油发电机具有高热效率和燃料利用率，能够充分利用燃油能量，降低能源消耗。
（2）稳定可靠：柴油发电机运行稳定，启动快速，可在短时间内达到额定负荷，适用于应急电力供应。
（3）经济实用：柴油燃料相对较为廉价，柴油发电机的运行成本相对较低。
（4）适应性强：柴油发电机适应环境条件广泛，可在高温、高寒、高原等恶劣环境下正常运行。
总结：柴油发电机通过燃烧柴油燃料产生动力，经过发电机的转换，将动力转化为电能输出。
其工作原理主要包括燃油供给系统的燃油供给、柴油机的燃烧过程和发电机的电能转换。
柴油发电机具有高效节能、稳定可靠、经济实用和适应性强等优势，广泛应用于工业、农业、商业和家庭等领域。
四冲程柴油发动机工作原理
四冲程柴油发动机工作原理
四冲程柴油发动机是一种常见的内燃机，它通过四个工作行程完成燃油的燃烧
和能量转换，从而驱动汽车或机械设备运行。
下面将详细介绍四冲程柴油发动机的工作原理。
首先，四冲程柴油发动机的第一冲程是进气冲程。
在这一冲程中，活塞向下运动，气门打开，汽缸内的空气被吸入到汽缸内。
此时，柴油燃料喷入到气缸内，与空气混合，形成可燃混合气。
接着是第二冲程——压缩冲程。
在这一冲程中，活塞向上运动，气门关闭，将
混合气压缩，使其温度和压力升高，为后续的燃烧提供条件。
第三冲程是燃烧冲程。
在这一冲程中，柴油发动机的喷油泵向燃烧室喷射高压
柴油，柴油遇到高温高压的空气，瞬间燃烧，产生爆发力，推动活塞向下运动，从而驱动曲轴旋转。
最后是第四冲程——排气冲程。
在这一冲程中，活塞向上运动，将燃烧后的废
气排出汽缸外，气门打开。
同时，活塞的运动也推动曲轴旋转，完成一个工作循环。
通过这四个冲程的循环工作，柴油发动机就能够持续地产生动力，驱动汽车或
机械设备运行。
需要注意的是，四冲程柴油发动机的工作原理中涉及到很多细节和精密的部件，如喷油泵、气门、曲轴等，它们的精准配合和稳定运行对发动机的性能和效率都有着重要的影响。
总的来说，四冲程柴油发动机通过不同的工作冲程完成燃油的燃烧和能量转换，从而产生动力。
它的工作原理虽然复杂，但是通过合理的设计和精密的制造，能够高效可靠地驱动各种机械设备的运行。
6b燃机柴发工作过程
6b燃机柴发工作过程6B燃机柴发工作过程燃机柴发是一种常见的动力装置，广泛应用于船舶、发电厂等领域。
下面将以人类视角，生动地描述6B燃机柴发的工作过程。
一、引言6B燃机柴发是一种高效能的燃烧设备，通过燃烧柴油来产生机械能。
它由多个部件组成，如燃烧室、喷油器、发动机控制系统等，每个部件都扮演着重要角色。
二、点火当操作员启动6B燃机柴发时，首先进行点火操作。
点火器会向燃烧室喷洒细小的柴油颗粒，并通过电火花点燃。
这个过程需要一个精确的时间点和适当的燃油量。
三、燃烧一旦点火完成，柴油开始燃烧。
燃烧过程中，燃烧室内的空气与喷入的柴油混合，形成可燃气体。
这些可燃气体在高温的作用下膨胀，推动活塞向下运动。
四、动力输出活塞的向下运动产生机械能，通过连杆传递给曲轴。
曲轴将这种线性运动转化为旋转运动，从而驱动发电机或其他设备。
五、排放处理在燃烧过程中，除了产生机械能外，还会产生废气。
这些废气含有一些有害物质，需要通过排气系统进行处理，以减少对环境的影响。
常见的处理方法包括催化转化器和颗粒捕集器。
六、发动机控制为了确保6B燃机柴发的正常运行，需要有一个发动机控制系统。
这个系统监测并调整燃油供给、点火时间等参数，以保持发动机的稳定性和高效性。
七、维护保养6B燃机柴发的正常运行需要定期的维护保养。
这包括更换燃油滤清器、清洁冷却系统、检查和更换磨损的零部件等。
维护保养的目的是延长设备的使用寿命，并确保其高效可靠地工作。
八、结论通过以上描述，我们可以清晰地了解6B燃机柴发的工作过程。
从点火到燃烧，再到动力输出，每个步骤都扮演着重要的角色。
合理的控制系统和维护保养是保证设备正常运行的关键。
6B燃机柴发的应用范围广泛，它的高效性和可靠性使其成为现代工业中不可或缺的一部分。
柴油机原理及结构介绍
1.1 进气冲程：在配气机构的作用下，进气门在活塞处于上止点 前42º 20’曲轴转角时开启，新鲜空气通过增压并冷却后，经稳压箱 、进气支管、气缸盖进气道进入气缸内，当活塞运动到下止点后 42º 20’曲轴转角时，进气门关闭。 1.2 压缩冲程：当气门完全关闭时，活塞继续上行，压缩过程 开始，随着活塞上行，气缸内的空气不断被压缩，其压力和温度 不断升高，为柴油自燃创造了必要的条件。当活塞到达上止点前 21º 时，柴油以雾状喷入燃烧室，与气缸内的高压高温的空气混合 。 1.3 燃烧膨胀冲程：当喷入气缸内的柴油与高温高压空气混合后 迅速燃烧，开始了燃烧过程，燃烧压力急骤上升，燃气最高温度 可达1500℃。燃烧分四个阶段。 1.4 排气冲程：当活塞到达下止点前42º 20’曲轴转角，排气门开启 ，开始了排气过程，这时气缸内经过膨胀做功的燃气开始排出， 活塞经过下止点继续上行，直到活塞再次达到上止点后42º 20’曲轴 转角，排气门完全关闭为止。
a 柴油机部分工况负载能力高。与同等强化程度的定压增压柴油机 比部分工况功率提高10-15%。 b 柴油机部分工况排温低。由于部分工况扫气压比高，平均在1.11.2，进、排气压差大，柴油机扫气彻底。而定压柴油机部分工况扫气 压比接近1，甚至低于1。柴油机部分工况排温高，往往在750-850r/min 时的排温要高于标定工况。 c 柴油机部分工况燃油消耗率低。因部分工况压气机效率高，压比 、爆发压力均比定压增压柴油机高。燃油消耗率平均低5-7g/k.wh。 d 部分工况增压器跟随性好。由于脉冲增压不但能利用等压能量， 还能有效利用脉冲能量。在设计合理的情况下，脉冲能量中有40-50%可 以得到利用。所以增压器工作能力大，这在部分工况尤为突出。因此， 在同等增压器转子惯量的条件下，柴油机变工况时，脉冲增压，增压器 转子获得的能量多，过渡时间相对较短。
船舶柴油机的工作原理
船舶柴油机的工作原理引言概述：船舶柴油机是船舶主要动力装置之一，其工作原理是通过内燃机的方式将柴油燃烧产生的能量转化为机械能，驱动船舶前进。
了解船舶柴油机的工作原理对于船舶的运行和维护至关重要。
一、燃油供给系统1.1 燃油储存：船舶柴油机通常使用柴油作为燃料，燃油需要存储在燃油舱内，并通过管道输送至燃油供给系统。
1.2 燃油过滤：燃油在进入燃油供给系统之前需要经过过滤器进行过滤，以去除杂质和保护喷油嘴。
1.3 燃油喷射：燃油通过高压泵喷射到气缸内，与空气混合后被点燃，产生爆炸推动活塞运动。
二、气缸工作过程2.1 吸气阶段：活塞下行时，气缸内形成负压，进气门打开，外部空气进入气缸。
2.2 压缩阶段：进气门关闭，活塞上行，将空气压缩至高压，使空气温度升高。
2.3 爆燃推动：在活塞达到顶点时，喷油嘴喷射燃油，与高温高压空气混合爆炸，推动活塞下行，从而驱动曲轴旋转。
三、曲轴传动系统3.1 曲轴结构：曲轴是船舶柴油机的关键部件，将活塞运动转化为旋转运动，驱动船舶前进。
3.2 连杆机构：连杆将活塞的直线运动转化为曲轴的旋转运动，使发动机顺利运转。
3.3 曲轴平衡：曲轴需要平衡各个活塞的运动，减少振动和噪音，确保发动机稳定运行。
四、冷却系统4.1 冷却介质：船舶柴油机需要通过冷却系统将发动机产生的热量散发，通常使用海水或循环水作为冷却介质。
4.2 散热方式：冷却系统通过水泵将冷却介质循环流动，将发动机散热片散热，保持发动机工作温度。
4.3 温度控制：冷却系统需要根据发动机工作状态和环境温度进行调节，确保发动机在适宜的温度范围内运行。
五、排气系统5.1 排气阀门：船舶柴油机在燃烧完燃料后需要将废气排出，排气阀门负责控制废气的排放。
5.2 排气管道：废气通过排气管道排出船舶，通常需要经过消声器减少噪音。
5.3 排气处理：排气中可能含有有害物质，需要经过处理设备净化后排放，以保护环境。
总结：船舶柴油机的工作原理是一个复杂的系统工程，包括燃油供给、气缸工作过程、曲轴传动、冷却系统和排气系统等多个部分的协同作用。
发动机缸内工作过程计算
发动机工作过程数值计算作业缸内封闭过程数值计算学院：汽车学院专业：动力机械及工程******学号：****************二〇一三年五月气缸封闭过程的数值计算发动机缸内工作过程的数值计算，是以内燃机缸内各工作阶段的物理模型为基础，通过微分方程来对其各阶段工作过程进行数学描述，然后通过程序编写求解微分方程，得到缸内温度、压力等参数随曲轴转角的变化曲线。
一、基本热力学模型图1 发动机缸内热力系统在简化假设的基础上，取气缸为一个热力学系统，如图1所示。
这个热力系统包括了质量交换项，如排气 dmA ，进气 dmE，喷入气缸内瞬时燃料质量 dmB；与能量交换项，如焓变，功，燃烧放热等。
图中 T 、P 、V、 m 及 u 分别为缸内瞬时气体温度、压力、体积、燃料质量及比内能。
二、简化假设1.假定工质为理想混合气体；2.假定缸内各处温度、压力及混合气浓度均匀；3.用纯空气的气体常数代替混合气气体常数；4.假定扫气完全，即不考虑残余废气；5.不计漏气损失，并假定只有在燃烧始点才有燃油喷入气缸；6.按代用燃烧规律进行喷油，并认为着火延迟等于零；7.假定放热率为100%。
三、 基本方程1、气体状态方程 PV=mRT2、压缩期(VB ES ϕϕϕ<<) 能量方程：ϕd dT ＝v mc 1（ϕd dQ w －p ϕd dV） 质量方程：ϕd dm＝0 3、燃烧期(VE VB ϕϕϕ<<) 能量方程：ϕd dT ＝v mc 1（ϕd dQ B ＋ϕd dQ w －p ϕd dV －u ϕd dm －m λ∂∂u ϕλd d ） 质量方程：ϕϕd dm d dm B=＝ϕd dQ H B u ⋅1 4、膨胀期(AO VE ϕϕϕ<<) 能量方程：ϕd dT ＝v mc 1（ϕd dQ w －p ϕd dV） 质量方程：ϕd dm＝0 四、 其他计算公式1、气缸瞬时工作容积：)]sin 11(1cos 112[2)(22ϕλλϕεϕ⋅--+-+-=s sh V VS D V h 241π==)1(V -εεL式中：h V -气缸行程容积 V L -发动机排量ε-压缩比s λ-曲柄连杆比 S -活塞行程D -气缸直径2、气缸容积随曲轴转角变化率：]sin 1cos sin [sin 222ϕλϕϕλϕϕs s h V d dV -⋅+=3、单位曲轴转角的传热量：)(6131T T A n d dQ Wi i i w -∑==αϕ 式中：1=i -活塞2=i -气缸盖 3=i -气缸套i A -传热表面积2141D A π=；125.1A A =；DV A )(43ϕ=Wi T -传热表面平均温度K T W 5601=；K T W 5482=；K T W 5483=α-换热面平均的瞬时传热系数 利用Woschni 公式：8.00111212.00.853.0-)]([P T 130P P V P T V c c c D h m -+=-α 式中：h V -活塞行程容积1c -气体速度系数压缩、膨胀阶段 m uc c c 308.028.21+= 换气阶段 muc c c 417.018.61+=2c -燃烧室形状系数，直喷式燃烧室2c =3.24X10-3m c -活塞平均速度，计算得6.9m/s1P 、1V 、1T 分别为压缩始点的气缸压力、容积、温度。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Option ExplicitDim n, nn, pr, po As SingleDim tr, pa, s, d, vh, kkk As SingleDim pab, e, paa, pad, pac As SingleDim tt, T, yy, fa, X, Y, ta As SingleDim nv, n1, tc, jx, pc, fx As SingleDim l, vc, Va, gc, gh, g0 As SingleDim vcx, r, lo, A, mt, m1, m2, u0, u As SingleDim khu, cv1, cv2, tz, ccc, hu, qq, aaa, bbb As SingleDim l8, n2, pz, H, tb, pi1, pi, φx, φ, p As SingleDim fi, pm, nm, ni, gi, ne, pe, ge, nne, i, v, pb, pcx, vbx, pbx As DoubleDim aa(50), ylsgb As SinglePrivate Sub Command4_Click()Picture1.ClsPicture1.ForeColor = vbGreenPicture1.DrawWidth = 1.5Picture1.Scale (-0.1, 99)-(1, -10)Picture1.Line (0, 0)-(0, 95) 'y轴Picture1.Line (0, 0)-(0.95, 0) 'x轴Picture1.Line (0.93, 1)-(0.95, 0)Picture1.Line (0.93, -1)-(0.95, 0)Picture1.Line (0.015, 94)-(0, 95)Picture1.Line (-0.015, 94)-(0, 95)For i = 1 To 9 Step 1Picture1.Line (0, i * 10)-(0.015, i * 10)Picture1.Line (0.1 * i, 0)-(0.1 * i, -1)Picture1.CurrentX = -0.1: Picture1.CurrentY = 10 * i + 3: Picture1.Print i * 10Picture1.CurrentX = 0.1 * i - 0.04: Picture1.CurrentY = -3: Picture1.Print "0" & i * 0.1 Next iPicture1.CurrentX = 0: Picture1.CurrentY = 95: Picture1.Print " P （atm）"Picture1.CurrentX = 0.8: Picture1.CurrentY = 10: Picture1.Print "V （L）"'压缩过程曲线If vh = 0 ThenMsgBox "请先输入参数,并计算", 0, "提示": GoTo qEnd Ifvc = vh / eDim X As Single: Dim pcx, vcx As SinglePicture1.DrawWidth = 1.3Picture1.Line (vc, 10 * po)-(0.9, 10 * po)Picture1.Line (vc, po)-(vc, 88)Picture1.DrawWidth = 1.5Picture1.ForeColor = vbYellowFor X = v To vc Step -0.0001vcx = Xpcx = pa * (v / vcx) ^ n1Picture1.PSet (vcx, pcx)Next X'燃烧过程曲线Picture1.Line (vcx, pcx)-(vc, pz)'膨胀过程曲线Dim vbx, pbx As SinglePicture1.Line (vc, pz)-(vc * p, pz): vc = vc * pFor X = vc To v Step 0.0001vbx = Xpbx = pz * ((vc / vbx) ^ n2)Picture1.PSet (vbx, pbx)Next X'排气过程曲线Picture1.Line (vbx, pbx)-(v, pa)Picture1.DrawWidth = 1Picture1.ForeColor = vbRedPicture1.CurrentX = 0.1: Picture1.CurrentY = 8: Picture1.Print "po"Picture1.CurrentX = 0.02: Picture1.CurrentY = 20: Picture1.Print "vc"q:End SubPrivate Sub Command1_Click()s = Val(Text2.Text): d = Val(Text4.Text)n = Val(Text1.Text): po = Val(Text15.Text) / 10:e = Val(Text5.Text): tt = Val(Text17.Text): fa = Val(Text18.Text): r = Val(Text2.Text)l = Val(Text31.Text) / 3.14 / ((d / 2) ^ 2)gc = Val(Text11.Text): gh = Val(Text12.Text): g0 = Val(Text8.Text)A = Val(Text19.Text): mt = Val(Text20.Text): fi = Val(Text9.Text): i = Val(Text3.Text)n1 = Val(Text14.Text): n2 = Val(Text33.Text)'排气过程pr = Int(1000 * 10.8 * po) / 1000: tr = 350 / (1.2 / Log(n) * Log(10) + 0.005 * (e - 3) + 0.01 * (fa - 1)): hu = 42500 '柴油机暂时先赋的值'进气过程paa = n ^ 2 / 520000000pac = ((e - 0.5) ^ 2) / ((e - 1) ^ 2) '残余废气收缩系数暂时取的0.5T = 20 't 进气温升取的20pa = 0.9 * po * 10 '进气压力yy = (tt + T) * pr / tr / (e * pa - pr) ' 残余废气系数yyta = (tt + T + yy * tr) / (1 + yy) '进气温度nv = tt * pa * e * (e * pa - pr) / (tt + T) / (10 * po) / (e - 1) / e / pa '充气系数'压缩过程'平均压缩多变指数pc = Int(100 * (pa * e ^ (n1))) / 100 '压缩终点压力tc = Int(10 * ta * e ^ (n1 - 1)) / 10 '压缩终点温度'燃烧过程lo = 1 / 0.21 * (gc / 12 + gh / 4 - g0 / 32)m1 = A * lo: m2 = A * lo + gh / 4 + g0 / 32u0 = m2 / m1u = (u0 + yy) / (1 + yy) '实际分子变更系数'化学损失khu = 0cv1 = (4.815 + 0.000415 * tc) * 4.1868qq = Val(Text30.Text) '---------------------------qq 热量利用系数选取ccc = (qq * (hu - khu) / m1 / (1 + yy) + cv1 * tc) / uaaa = (3.3 / A + 3.7) * 4.1868 / 10000 '柴油机bbb = (4.8 + 2.2 / A) * 4.1868tz = Int((-bbb + (bbb ^ 2 + 4 * aaa * ccc) ^ 0.5) / 2 / aaa) '燃烧终点温度ylsgb = Val(Text29.Text)p = u * tz / ylsgb / tc '----柴油机预期膨胀比----pz = Int(100 * (ylsgb * pc)) / 100 '最高燃烧压力pb = Int(100 * (pz / (e ^ n2))) / 100 '膨胀终点压力tb = Int(tz / (e ^ (n2 - 1))) '膨胀终点温度pi1 = pc / (e - 1) * (ylsgb * p / (n2 - 1) * (1 - 1 / e ^ (n2 - 1)) - 1 / (n1 - 1) * (1 - 1 / e ^ (n1 - 1))) pi = fi * pi1 '平均指示压力pm = 0.1 * (Val(Text32.Text)) ^ 0.5 * (1 + n / 1000) '机械损失压力nm = 1 - pm / pi ' 机械效率ni = Int(10000 * 8.314 * m1 * tt * pi / hu / 10 / po / nv) / 10000 '指示热效率gi = 3600000 / hu / ni '指示燃油消耗率ne = nm * ni '有效热效率pe = pi * nm '平均有效压力ge = 3600000 / hu / ne '有效燃油消耗率vh = Int(10000 * 3.14 * (d / 2) ^ 2 * r / 10 ^ 6) / 10000v = Int(10000 * (vh / e + vh)) / 10000nne = i * v * pe * n / 1224Text7(1).Text = "0" & Int(10000 * ni) / 10000Text7(3).Text = Int(100 * gi) / 100Text7(4).Text = "0" & Int(10000 * ne) / 10000Text7(5).Text = Int(1000 * pe) / 1000Text7(6).Text = Int(100 * ge) / 100Text7(7).Text = Int(100 * nne) / 100Text10.Text = pr: Text13.Text = Int(10 * tr) / 10: Text21.Text = "0" & Int(100 * pa) / 100: Text22.Text = Int(ta * 10) / 10Text23.Text = pz: Text24.Text = tz: Text25.Text = tb: Text26.Text = pbText27.Text = pc: Text28.Text = tceee:End SubPrivate Sub Command5_Click()Picture1.ClsPicture1.Scale (-10, 120)-(780, -10)Picture1.Line (0, 0)-(725, 0)Picture1.Line (0, 0)-(0, 115)vc = vh / (e - 1)Picture1.Line (0, po)-(720, po), RGB(0, 220, 0)Picture1.CurrentX = 680: Picture1.CurrentY = 8: Picture1.Print "φ(°AC)"Picture1.CurrentX = 10: Picture1.CurrentY = 129: Picture1.Print "P (bar)"For Y = 10 To 110 Step 10#Picture1.Line (0, Y)-(7, Y)Picture1.CurrentX = -0.1: Picture1.CurrentY = Y: Picture1.Print YNext YPicture1.Line (0, 115)-(-5, 112)Picture1.Line (0, 115)-(5, 112)For X = 0 To 720 Step 60Picture1.Line (X, 0)-(X, 2)Picture1.CurrentX = X - 20: Picture1.CurrentY = -2: Picture1.Print X Next XPicture1.Line (725, 0)-(716, 2)Picture1.Line (725, 0)-(716, -2)If vh = 0 ThenMsgBox "请先输入参数,并计算", 0, "提示": GoTo qEnd IfVa = vh + vh / (e - 1)vc = vh / (e - 1)For φx = 3.14 To 6.28 Step 0.0001vcx = vh / 2 * ((1 - Cos(φx)) + (1 - Cos(2 * φx)) * r * l / 4) + vc '压缩过程pcx = pa * (Va / vcx) ^ n1φ = φx * 180 / 3.14Picture1.PSet (φ, pcx), RGB(0, 400, 200)Next φxVa = vh + vh / (e - 1)vc = vh / (e - 1)For φx = 9.42 To 6.28 Step -0.0001vbx = vh / 2 * ((1 - Cos(φx)) + (1 - Cos(2 * φx)) * r * l / 4) + vcpbx = pb * (Va / vbx) ^ n2φ = φx * 180 / 3.14If pbx <= pz ThenPicture1.PSet (φ + 20, pbx), RGB(400, 0, 220)Else: Picture1.Line (360, pz)-(φ, pz), RGB(400, 100, 0) '做功过程Picture1.Line (360, pc)-(360, pz), RGB(0, 0, 220)End IfNext φxPicture1.Line (540, 2.11)-(720, 2.11)Picture1.Line (360, 54.202)-(360, 86.72), RGB(100, 0, 220)Picture1.Line (360, 86.72)-(380, 86.72), RGB(0, 100, 220)q:End SubPrivate Sub Command6_Click()Dim T, ex, A, C, bx, ea, bPicture1.ClsPicture1.Scale (-60, 2600)-(780, -150)Picture1.Line (0, 0)-(740, 0)Picture1.Line (0, 0)-(0, 2500)vc = vh / (e - 1)Picture1.CurrentX = 680: Picture1.CurrentY = 120: Picture1.Print "φ(°AC)"Picture1.CurrentX = 10: Picture1.CurrentY = 2500: Picture1.Print "T(K)"For Y = 200 To 2200 Step 200#Picture1.Line (0, Y)-(7, Y)Picture1.CurrentX = -60: Picture1.CurrentY = Y + 30: Picture1.Print YNext YPicture1.Line (0, 2500)-(-5, 2400)Picture1.Line (0, 2500)-(5, 2400)For X = 0 To 720 Step 60Picture1.Line (X, 0)-(X, 40)Picture1.CurrentX = X - 20: Picture1.CurrentY = -30: Picture1.Print X Next XPicture1.Line (740, 0)-(733, 25)Picture1.Line (740, 0)-(733, -25)If vh = 0 ThenMsgBox "请先输入参数,并计算", 0, "提示": GoTo qEnd Ifb = Val(Text6.Text)For φx = 3.14 * 2 To 3.11 * 2.35 Step 0.0001A = 1 - Cos(φx) + 0.5 * 0.25 * Sin(φx) ^ 2C = 1 / (e - 1)ea = eex = 1 + A / (2 * C)bx = b - ((352 - φx * 180 / 3.14) / (352 - 400)) ^ 3 * (b - 1)T = (ta * ex * 10) / (pa * ea * bx)φ = φx * 180 / 3.14Picture1.PSet (φ - 120, T), RGB(220, 0, 0)Next φxFor φx = 3.14 To 2 * 3.14 Step 0.0001A = 1 - Cos(φx) + 0.5 * 0.25 * Sin(φx) ^ 2C = 1 / (e - 1)ea = eex = 1 + A / (2 * C)bx = b - ((352 - φx * 180 / 3.14) / (352 - 400)) ^ 3 * (b - 1)T = (ta * ex * 10) / (pa * ea * bx)φ = φx * 180 / 3.14Picture1.PSet (φ + 120, T), RGB(0, 0, 220)Next φxq:End SubPrivate Sub Command7_Click()Dim T, ex, A, Cm, bx, ea, b, Cu, C1, C2, C, h1, h2, H3Picture1.ClsPicture1.Scale (-60, 2000)-(780, -150)Picture1.Line (0, 0)-(740, 0)Picture1.Line (0, 0)-(0, 1900)vc = vh / (e - 1)Picture1.CurrentX = 680: Picture1.Curren tY = 120: Picture1.Print "φ(°AC)"Picture1.CurrentX = 10: Picture1.CurrentY = 1900: Picture1.Print "h：W/(m2.K)"For Y = 200 To 1800 Step 200#Picture1.Line (0, Y)-(7, Y)Picture1.CurrentX = -60: Picture1.CurrentY = Y + 30: Picture1.Print Y Next YPicture1.Line (0, 1900)-(-5, 1850)Picture1.Line (0, 1900)-(5, 1850)For X = 0 To 720 Step 60Picture1.Line (X, 0)-(X, 40)Picture1.CurrentX = X - 20: Picture1.CurrentY = -30: Picture1.Print X Next XPicture1.Line (740, 0)-(733, 25)Picture1.Line (740, 0)-(733, -25)If vh = 0 ThenMsgBox "请先输入参数,并计算", 0, "提示": GoTo qEnd IfC = Val(Text34.Text)Cm = s * 2 / 30: C1 = 2.28 + 0.308 * C: C2 = 3.2 * 10 ^ (-3)d = Val(Text4.Text)A = vh * ta / (pa * 0.03719)For φx = 3.14 To 6.28 Step 0.0001Va = vh + vh / (e - 1)vc = vh / (e - 1)vcx = vh / 2 * ((1 - Cos(φx)) + (1 - Cos(2 * φx)) * r * l / 4) + vcpcx = pa * (Va / vcx) ^ n1vc = vh / (e - 1)A = 1 - Cos(φx) + 0.5 * 0.25 * Sin(φx) ^ 2C = 1 / (e - 1)ea = eex = 1 + A / (2 * C)bx = 1.04 - ((352 - φx * 180 / 3.14) / (352 - 400)) ^ 3 * (1.04 - 1)T = (ta * ex * 10) / (pa * ea * bx)H = 130 * (d * 0.001) ^ (-0.2) * (p * 10) ^ (0.8) * T ^ (-0.53) * (C1 * Cm + C2 * A * (p - 1)) ^ 0.8φ = φx * 180 / 3.14Picture1.PSet (φ, H), RGB(220, 0, 0)H = H + 456.9Next φxh1 = H / 3.14For φx = 6.28 To 450 * 3.14 / 180 Step 0.0001Va = vh + vh / (e - 1)vc = vh / (e - 1)vcx = vh / 2 * ((1 - Cos(φx)) + (1 - Cos(2 * φx)) * r * l / 4) + vcpcx = pa * (Va / vcx) ^ n1Va = vh + vh / (e - 1)A = 1 - Cos(φx) + 0.5 * 0.25 * Sin(φx) ^ 2C = 1 / (e - 1)ea = eex = 1 + A / (2 * C)bx = 1.04 - ((352 - φx * 180 / 3.14) / (352 - 400)) ^ 3 * (1.04 - 1)T = (ta * ex * 10) / (pa * ea * bx)H = 130 * (d * 0.001) ^ (-0.2) * (p * 10) ^ (0.8) * T ^ (-0.53) * (C1 * Cm + C2 * A * (p - 1)) ^ 0.8φ = φx * 180 / 3.14Picture1.PSet (φ, H), RGB(0, 0, 220)H = H + 1302.56Next φxh2 = H / 1.07H3 = (h1 + h2) / 2Text35.Text = Int(H3)q:End SubPrivate Sub Command8_Click()Dim tmax, C1, C2, f1, t1, tmax1, ti, fx, fy, dyi, yi, xiPicture1.ClsPicture1.Scale (-10, 130)-(130, -10)Picture1.Line (0, 100)-(110, 100): Picture1.Line (52.5, 120)-(52.5, 20)Picture1.CurrentX = 110: Picture1.CurrentY = 105: Picture1.Print "+X"Picture1.CurrentX = 0: Picture1.CurrentY = 105: Picture1.Print "-X"Picture1.CurrentX = 55: Picture1.CurrentY = 120: Picture1.Print "-Y"Picture1.CurrentX = 55: Picture1.CurrentY = 20: Picture1.Print "+Y"Picture1.Line (110, 100)-(108, 98): Picture1.Line (110, 100)-(108, 102)Picture1.Line (52.5, 20)-(50.5, 22): Picture1.Line (52.5, 20)-(54.5, 22)'Picture1.Line (0, 0)-(110, 0)' Picture1.Line (0, 0)-(0, 110)' vc = vh / (e - 1)' Picture1.CurrentX = 680: Picture1.CurrentY = 120: Picture1.Print "φ(°AC)"' Picture1.CurrentX = 10: Picture1.CurrentY = 1900: Picture1.Print "h：W/(m2.K)"' 'For Y = 0 To 105 Step 5' Picture1.Line (0, Y)-(2, Y)'Picture1.CurrentX = -8: Picture1.CurrentY = Y: Picture1.Print Y' Next Y' Picture1.Line (0, 110)-(-2, 108)' Picture1.Line (0, 110)-(2, 108)' For X = 0 To 105 Step 5' Picture1.Line (X, 0)-(X, 2)' Picture1.CurrentX = X - 3: Picture1.CurrentY = -2: Picture1.Print X' Next X'Picture1.Line (110, 0)-(108, 2)' Picture1.Line (110, 0)-(108, -2)Picture1.ForeColor = vbYellowPicture1.DrawWidth = 1.5Picture1.Line (52.5, 100)-(100, 100): Picture1.Line (100, 100)-(100, 5): Picture1.Line (100, 5)-(88.6, 5): Picture1.Line (88.6, 5)-(88.6, 80)Picture1.Line (88.6, 80)-(52.5, 80): Picture1.Line (52.5, 80)-(52.5, 100)n = 2000: e = 20: pe = 0.6912: d = 95f1 = 0.2 * d * pe * 10 ^ (-3)t1 = 128 + 4.18 * n * 10 ^ (-2) + (747 + 0.245 * n - (13.6 + 0.45 * n * 10 ^ (-2)) * pe) * pe * 10 ^ (-2)tmax = 0.27 * (3 + e / 16) * Exp(-f1 * t1) * 5000tmax1 = 0.9 * tmaxFor xi = 0 To 47.5 Step 0.1For yi = 0 To 20 Step 1For dyi = 11.4 To 14.25 Step 0.01fx = -(xi * (3 * 95 - 2 * dyi)) / (16 * 95 * (95 - dyi))fy = -yi / (4 * (95 / 15) + 11.4)ti = Exp(fx) * Exp(fy) * tmaxNext dyiNext yiNext xiEnd SubPrivate Sub Command3_Click()Picture1.ClsEnd SubPrivate Sub Command2_Click()EndEnd Sub。