H?f1?f2?f3?f4?f5?f61473??6.1375mm
L2402.3、求出下列各单元的面积
f1? =-732；f2?=301；f3?=-1380；f4?=2279；f5?=-890；f6?=437；f7?=-3
在阻抗力矩曲线之上的面积表示盈功，在阻抗力矩曲线之下的面积表示亏功。盈功为正，亏功为负值。
2.4、根据上面各单元的面积求相应的功
W1?f1???Mb?????957.7；W2?f2???Mb????393.81；W3?f3???Mb?????1805.5； W4?f4???Mb????2981.69；W5?f5???Mb?????1168.34；W6?f6???Mb????571.74； W7?f7???Mb?????3.925
2.5、求出各个位置上功的累计变化量?W
?Wa??957.7?N?m?；?Wb??563.89?N?m?；?Wc??2369.39?N?m?；
?Wd?612.30?N?m?；?We??556.04?N?m?；?Wf?15.7?N?m?；?Wg?11.775?N?m? 根据上面各值找出：
Wmax?612.30?Nm? Wmin?2369.39?Nm? 2.6、求出最大盈亏功
?Wmax?Wmax?Wmin?2981.69?Nm?
2.7、根据许用不均匀系数???，求出等效构件上所需的等效转动惯量
Je?
?m2???2?n1)60?Wmax?2981.69?902?59.74kg?m??67.022
(?m?2.8、确定飞轮的转动惯量
Je?JF?JC
按题意：不考虑各构件的质量和转动惯量。
?JC可忽略不计
?JF?Je?59.74kg?m2
??七、计算发动机功率
16
N?Mr?L??Mb???2?n11?607506.1375?240?25? ??60?640?1
607502?13.70(HP)八、对曲柄滑块进行机构部分平衡
1、把连杆的质量代换到A、B点
m2?m2A?m2B ①
m2A?lAC2?m2B?lAB?lAC2? ② 联立①②可求得m2A和m2B
m2B=4.466kg m2A=8.294kg ??m3?m2B mBm?A?m1?m2A
?=15.944kg m? 可求得mBA=22.074kg
图12
2、把曲柄A点的质量用距O为a=0.5r的平衡质量mb平衡。
17
mb?a?m?A?r mb?0.5r?m?A?r
?mb?2?m?A
可求得mb=44.148kg
九、排气凸轮（凸轮Ⅱ）的轮廓设计
1、凸轮II轮廓设计要求
1.1、升程角为60度，回程角为60度，远停程角为10度。 1.2、选择升程和回程的运动规律。
1.3、用解析法设计凸轮的轮廓曲线，打印出s??曲线以及凸轮的轮廓曲线。 2、凸轮轮廓的数学模型
为减少凸轮在运作过程中的损耗，选用正弦运动规律，以消除刚性冲击和柔性冲击。
s?h2?(?/?0)?sin(2??/?0)/(2?)????0~60?推程时：
''s?h2??1?(?/?0)?sin(2??/?0)/(2?)?????70~130? 回程时：
?6mm?式中，h2 ，0130
?3、解析法设计凸轮Ⅱ的实际轮廓曲线代码： Private Sub Form_Load() Width = Screen.Width
Height = Screen.Height * 0.9
Left = (Screen.Width - Width) / 100 Top = (Screen.Height - Height) / 100 End Sub
———————————————————————————————————————
Private Sub Command1_Click() Dim l1, l2, l3 As Single
Form2.Picture2.Scale (-0.1, 1200)-(7, -1200)
l1 = -Abs(Form2.Picture1.ScaleHeight / Form2.Picture1.ScaleWidth) l3 = -Abs(Form2.Picture3.ScaleHeight / Form2.Picture3.ScaleWidth) Form2.Picture1.ScaleWidth = 9.5 Form2.Picture3.ScaleWidth = 150
Form2.Picture1.ScaleHeight = l1 * Form2.Picture1.ScaleWidth Form2.Picture3.ScaleHeight = l3 * Form2.Picture3.ScaleWidth Form2.Picture1.ScaleLeft = -0.1 Form2.Picture3.ScaleLeft = -70 Form2.Picture1.ScaleTop = 11 Form2.Picture3.ScaleTop = 70
Dim dt1, dt2, dt3, dt4, dt5, s1, v1, s2, v2, k1, s0, r0 As Single Dim n, m As Integer
18
Dim h, e As Integer
Dim dt6, dt7, dt8, dt9, dt10, dt11, x1, y1, x2, y2, r As Single Dim x3, y3, x4, y4, rg Const pi = 3.1415926
h = Form2.Text3 e = Form2.Text2 k1 = Form2.Text5 r0 = Form2.Text1 rg = Form2.Text4
n = 10000 dt11 = 0 dt1 = pi / 3 dt2 = pi / 3
dt3 = pi / 2 / n dt4 = 0
dt6 = pi / 18
Form2.Picture3.Line (-70, 0)-(70, 0) Form2.Picture3.Line (0, 70)-(0, -70) Form2.Picture1.Line (0, 0)-(7, 0) Form2.Picture1.Line (0, 20)-(0, 0) Form2.Picture2.Line (0, 0)-(20, 0)
Form2.Picture2.Line (0, 390)-(0, -390)
Form2.Picture3.Circle (0, 0), r0, RGB(255, 0, 0) s0 = Sqr((r0 * r0) - e ^ 2)
s1 = h * ((dt4 / dt1) - Sin(2 * pi * dt4 / dt1) / (2 * pi)) v1 = h * k1 * (1 - Cos(2 * pi * dt4 / dt1)) / dt1 x1 = (s0 + s1) * Sin(dt4) + e * Cos(dt4) y1 = (s0 + s1) * Cos(dt4) - e * Sin(dt4)
x3 = (s0 + s1 - rg) * Sin(dt4) + e * Cos(dt4) y3 = (s0 + s1 - rg) * Cos(dt4) - e * Sin(dt4) While dt4 < dt1 dt5 = dt4 + dt3
s2 = h * ((dt5 / dt1) - Sin(2 * pi * dt5 / dt1) / (2 * pi)) v2 = h * k1 * (1 - Cos(2 * pi * dt5 / dt1)) / dt1 x2 = (s0 + s2) * Sin(dt5) + e * Cos(dt5) y2 = (s0 + s2) * Cos(dt5) - e * Sin(dt5)
x4 = (s0 + s2 - rg) * Sin(dt5) + e * Cos(dt5) y4 = (s0 + s2 - rg) * Cos(dt5) - e * Sin(dt5) Form2.Picture1.Line (dt4, s1)-(dt5, s2) Form2.Picture2.Line (dt4, v1)-(dt5, v2) Form2.Picture3.Line (x1, y1)-(x2, y2) DrawWidth = 20
19
Form2.Picture3.Line (x3, y3)-(x4, y4), RGB(0, 0, 255) dt4 = dt5 s1 = s2 v1 = v2 x1 = x2 y1 = y2 x3 = x4 y3 = y4 Wend dt11 = dt4
While dt11 >= dt1 And dt11 < dt1 + dt6 dt11 = dt11 + dt3
x2 = (s0 + s2) * Sin(dt11) + e * Cos(dt11) y2 = (s0 + s2) * Cos(dt11) - e * Sin(dt11)
x4 = (s0 + s2 - rg) * Sin(dt11) + e * Cos(dt11) y4 = (s0 + s2 - rg) * Cos(dt11) - e * Sin(dt11) DrawWidth = 1
Form2.Picture3.Line (x1, y1)-(x2, y2) DrawWidth = 20
Form2.Picture3.Line (x3, y3)-(x4, y4), RGB(0, 0, 255) x1 = x2 y1 = y2 x3 = x4 y3 = y4 Wend
dt4 = dt4 + dt6
Form2.Picture1.Line (dt1, s1)-(dt4, s1) Form2.Picture2.Line (dt1, v1)-(dt4, v1)
While dt4 >= dt1 + dt6 And dt4 < dt1 + dt6 + dt2 dt8 = dt4 - dt1 - dt6
s2 = h * (1 - (dt8 / dt2) + Sin(2 * pi * dt8 / dt2) / (2 * pi)) v2 = h * k1 * (Cos(2 * pi * dt8 / dt2) - 1) / dt2 x2 = (s0 + s2) * Sin(dt4) + e * Cos(dt4) y2 = (s0 + s2) * Cos(dt4) - e * Sin(dt4)
x4 = (s0 + s2 - rg) * Sin(dt4) + e * Cos(dt4) y4 = (s0 + s2 - rg) * Cos(dt4) - e * Sin(dt4) dt5 = dt4 + dt3 DrawWidth = 1
Form2.Picture1.Line (dt4, s1)-(dt5, s2) Form2.Picture2.Line (dt4, v1)-(dt5, v2) Form2.Picture3.Line (x1, y1)-(x2, y2) DrawWidth = 20
Form2.Picture3.Line (x3, y3)-(x4, y4), RGB(0, 0, 255) dt4 = dt5 x1 = x2
20