柴油机工作过程计算精要.docVIP

Option Explicit Dim n, nn, pr, po As Single Dim tr, pa, s, d, vh, kkk As Single Dim pab, e, paa, pad, pac As Single Dim tt, T, yy, fa, X, Y, ta As Single Dim nv, n1, tc, jx, pc, fx As Single Dim l, vc, Va, gc, gh, g0 As Single Dim vcx, r, lo, A, mt, m1, m2, u0, u As Single Dim khu, cv1, cv2, tz, ccc, hu, qq, aaa, bbb As Single Dim l8, n2, pz, H, tb, pi1, pi, φx, φ, p As Single Dim fi, pm, nm, ni, gi, ne, pe, ge, nne, i, v, pb, pcx, vbx, pbx As Double Dim aa(50), ylsgb As Single Private Sub Command4_Click() Picture1.Cls Picture1.ForeColor = vbGreen Picture1.DrawWidth = 1.5 Picture1.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 1 Picture1.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 * 10 Picture1.CurrentX = 0.1 * i - 0.04: Picture1.CurrentY = -3: Picture1.Print 0 i * 0.1 Next i Picture1.CurrentX = 0: Picture1.CurrentY = 95: Picture1.Print P （atm） Picture1.CurrentX = 0.8: Picture1.CurrentY = 10: Picture1.Print V （L） 压缩过程曲线 If vh = 0 Then MsgBox 请先输入参数,并计算, 0, 提示: GoTo q End If vc = vh / e Dim X As Single: Dim pcx, vcx As Single Picture1.DrawWidth = 1.3 Picture1.Line (vc, 10 * po)-(0.9, 10 * po) Picture1.Line (vc, po)-(vc, 88) Picture1.DrawWidth = 1.5 Picture1.ForeColor = vbYellow For X = v To vc Step -0.0001 vcx = X pcx = pa * (v / vcx) ^ n1 Picture1.PSet (vcx, pcx) Next X 燃烧过程曲线 Picture1.Line (vcx, pcx)-(vc, pz) 膨胀过程曲线 Dim vbx, pbx As Single Picture1.Line (vc, pz)-(vc * p, pz): vc = vc * p For X = vc To v