V带传动设计说明书

合集下载

V带传动的程序设计设计说明书

V带传动的程序设计成浩机自08-1班22080911 1、已知条件带传动设计的已知数据有：输入功率P，小带轮转速，传动比i，原动机种类，工作机载荷性质，中心距a，带传动每天工作时数。

设计题目：设计带式输送机的V带传动装置。

已知：原动机为Y型异步电动机，电动机额定功率，转速，，工作中有轻度冲击，单班制工作，要求中心距a为。

2、设计内容1）确定V带型号、基准长度及根数z，确定大小带轮基准直径，，实际中心距a，安装初拉力，压轴力Q。

2）选择合适的三维造型软件，建立大带轮的实体造型。

3、设计结果4、程序执行过程（截图）1、2、3、4、5、6、7、5、VB源程序：Private Sub Command1_Click() '导航窗口，开始新的计算Picture1.Visible = TrueEnd SubPrivate Sub Command10_Click()'计算功率Pc txt_pc.Text = CStr(Val(txt_ka) * Val(txt_p))End SubPrivate Sub Command11_Click()'调出工作情况系数表chaxun_ka.Visible = TrueEnd SubPrivate Sub Command12_Click() 'V带带轮最小基准直径和基准直径系列查询jizhunzhijing.Visible = TrueIf txt_xh.Text = "Z" Thentxt_jz.Text = "50, 56, 63, 71, 75, 80, 85, 90, 95, 100, 106, 112, 118, 125, 132, 140, 150, 160, 170, 180, 200, 212, 224, 236, 250, 265, 280, 300, 315, 355, 375, 400, 425, 450, 475, 500, 530, 560, 600, 630, 670, 710, 750, 800, 900, 1000"End IfIf txt_xh.Text = "A" Thentxt_jz.Text = "75, 80, 85, 90, 95, 100, 106, 112, 118, 125, 132, 140, 150, 160, 170, 180, 200, 212, 224, 236, 250, 265, 280, 300, 315, 355, 375, 400, 425, 450, 475, 500, 530, 560, 600, 630, 670, 710, 750, 800, 900, 1000"End IfIf txt_xh.Text = "B" Thentxt_jz.Text = "125, 132, 140, 150, 160, 170, 180, 200, 212, 224, 236, 250, 265, 280, 300, 315, 355, 375, 400, 425, 450, 475, 500, 530, 560, 600, 630, 670, 710, 750, 800, 900, 1000"End IfIf txt_xh.Text = "C" Thentxt_jz.Text = "200, 212, 224, 236, 250, 265, 280, 300, 315, 355, 375, 400, 425, 450, 475, 500, 530, 560, 600, 630, 670, 710, 750, 800, 900, 1000"End IfIf txt_xh.Text = "D" Thentxt_jz.Text = "355, 375, 400, 425, 450, 475, 500, 530, 560, 600, 630, 670, 710, 750, 800, 900, 1000"End IfIf txt_xh.Text = "E" Thentxt_jz.Text = "500, 530, 560, 600, 630, 670, 710, 750, 800, 900, 1000"End IfEnd SubPrivate Sub Command13_Click()'小带轮基准直径确定txt_d2j.Text = CStr(Format((Val(Text8.Text) * Val(txt_d1.T ext)), "#######.##"))'对小带轮转速n1进行圆整---------------------------------------------------------------------Dim i As IntegerDim n1 As Single, Y As Single, z As SingleDim n As VariantIf txt_xh.Text = "Z" Thenn = Array(400, 730, 800, 980, 1200, 1460, 1600, 2000, 2400, 2800, 3200)n1 = Val(txt_n1.Text)For i = 0 To 10If n1 <= n(i) ThenExit ForEnd IfNext iY = n(i)For i = 1 To 10If n1 <= n(i) ThenExit ForEnd IfNext iIf (n(i) - n1) <= (n1 - n(i - 1)) Thenz = n(i)Elsez = n(i - 1)End Iftxt_n1.Text = CStr(Y)ElseIf txt_xh.Text = "A" Thenn = Array(400, 730, 800, 980, 1200, 1460, 1600, 2000, 2400, 2800, 3200) n1 = Val(txt_n1.Text)For i = 0 To 10If n1 <= n(i) ThenExit ForEnd IfNext iY = n(i)For i = 1 To 10If n1 <= n(i) ThenExit ForEnd IfNext iIf (n(i) - n1) <= (n1 - n(i - 1)) Thenz = n(i)Elsez = n(i - 1)End Iftxt_n1.Text = CStr(Y)ElseIf txt_xh.Text = "B" Thenn = Array(400, 730, 800, 980, 1200, 1460, 1600, 2000, 2400, 2800, 3200)For i = 0 To 10If n1 <= n(i) ThenExit ForEnd IfNext iY = n(i)For i = 1 To 10If n1 <= n(i) ThenExit ForEnd IfNext iIf (n(i) - n1) <= (n1 - n(i - 1)) Thenz = n(i)Elsez = n(i - 1)End Iftxt_n1.Text = CStr(Y)ElseIf txt_xh.Text = "C" Thenn = Array(200, 300, 400, 500, 600, 730, 800, 980, 1200, 1460, 1600) n1 = Val(txt_n1.Text)For i = 0 To 10If n1 <= n(i) ThenExit ForEnd IfNext iY = n(i)For i = 1 To 10If n1 <= n(i) ThenExit ForEnd IfNext iIf (n(i) - n1) <= (n1 - n(i - 1)) Thenz = n(i)Elsez = n(i - 1)End IfElseIf txt_xh.Text = "D" Thenn = Array(200, 300, 400, 500, 600, 730, 800, 980, 1200, 1460, 1600) n1 = Val(txt_n1.Text)For i = 0 To 10If n1 <= n(i) ThenExit ForEnd IfNext iY = n(i)For i = 1 To 10If n1 <= n(i) ThenExit ForEnd IfNext iIf (n(i) - n1) <= (n1 - n(i - 1)) Thenz = n(i)Elsez = n(i - 1)End Iftxt_n1.Text = CStr(Y)ElseIf txt_xh.Text = "E" Thenn = Array(200, 300, 400, 500, 600, 730, 800, 980, 1200, 1460, 1600) n1 = Val(txt_n1.Text)For i = 0 To 10If n1 <= n(i) ThenExit ForEnd IfNext iY = n(i)For i = 1 To 10If n1 <= n(i) ThenExit ForEnd IfNext iIf (n(i) - n1) <= (n1 - n(i - 1)) Thenz = n(i)Elsez = n(i - 1)End Iftxt_n1.Text = CStr(Y)End IfEnd SubPrivate Sub Command14_Click()'圆整基准长度Ld Dim i As IntegerDim cd As Single, Y As Single, z As SingleDim n As Variantn = Array(400, 450, 500, 560, 630, 710, 800, 900, 1000, 1120, 1250, 1400, 1600, _1800, 2000, 2240, 2500, 2800, 3150, 3650, 4000, 4500, 5000, 5600, 6300, 7100, 8000, 9000, 10000)cd = Val(txt_lcd.Text)For i = 0 To 28If cd <= n(i) ThenExit ForEnd IfNext iY = n(i)For i = 1 To 28If cd <= n(i) ThenExit ForEnd IfNext iIf (n(i) - cd) <= (cd - n(i - 1)) Thenz = n(i)Elsez = n(i - 1)End Iftxt_ld.Text = CStr(Y)End SubPrivate Sub Command15_Click()'计算初定带长Dim pi As Doublepi = 3.1415926txt_lcd.Text = CStr(Format((2 * Val(txt_a0.Text) + (pi * (Val(txt_d1.Text) + Val(txt_d2.Text)) / 2) + ((Val(txt_d2.Text) - Val(txt_d1.Text)) ^ 2) / (4 * Val(txt_a0.Text))), "######.##"))End SubPrivate Sub Command16_Click()'计算实际中心距a txt_a.Text = CStr(Val(txt_a0.T ext) + (1 / 2) * (Val(txt_ld.Text) - Val(txt_lcd.Text)))End SubPrivate Sub Command17_Click()Picture5.Visible = FalsePicture10.Visible = TrueCommand5.Enabled = TrueEnd SubPrivate Sub Command19_Click()'计算带轮的包角α1 txt_bj.Text = CStr(Format((180 - (Val(txt_d2.Text) - Val(txt_d1.Text)) / Val(txt_a) * 57.3), "######.##"))End SubPrivate Sub Command2_Click()Picture2.Visible = FalsePicture5.Visible = FalsePicture10.Visible = FalsePicture12.Visible = FalsePicture1.Visible = FalseFrame1.Visible = TrueFrame12.Visible = FalseFrame25.Visible = FalseEnd SubPrivate Sub Command20_Click()'对小带轮包角α1进行圆整Dim i As IntegerDim cda As Single, w As Single, q As SingleDim n As Variantn = Array(70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180)cda = Val(txt_bj.Text)For i = 0 To 11If cda <= n(i) ThenExit ForEnd IfNext iw = n(i)For i = 1 To 11If cda <= n(i) ThenExit ForEnd IfNext iIf (n(i) - cda) <= (cda - n(i - 1)) Thenq = n(i)Elseq = n(i - 1)End Iftxt_bjdz.Text = CStr(q)End SubPrivate Sub Command21_Click()'确定包角系数If Val(txt_bjdz.Text) = 70 ThenText16.Text = "0.58"ElseIf Val(txt_bjdz.Text) = 80 ThenText16.Text = "0.64"ElseIf Val(txt_bjdz.Text) = 90 ThenText16.Text = "0.69"ElseIf Val(txt_bjdz.Text) = 100 ThenText16.Text = "0.74"ElseIf Val(txt_bjdz.Text) = 110 ThenText16.Text = "0.78"ElseIf Val(txt_bjdz.Text) = 120 ThenText16.Text = "0.82"ElseIf Val(txt_bjdz.Text) = 130 ThenText16.Text = "0.86"ElseIf Val(txt_bjdz.Text) = 140 ThenText16.Text = "0.89"ElseIf Val(txt_bjdz.Text) = 150 ThenText16.Text = "0.92"ElseIf Val(txt_bjdz.Text) = 160 ThenText16.Text = "0.95"ElseIf Val(txt_bjdz.Text) = 170 ThenText16.Text = "0.98"ElseIf Val(txt_bjdz.Text) = 180 ThenText16.Text = "1.00"End IfEnd SubPrivate Sub Command22_Click()'单根V带试验条件下许用功率Dim v As Integer, pi As Integer, d1 As Integer, p0 As Variantpi = 3.1415926v = pi * Val(txt_d1.Text) * Val(txt_n1.Text) / 60000d1 = Val(txt_d1.Text)If txt_xh.Text = "Z" Thenp0 = (0.246 * v ^ (-0.09) - 7.44 / d1 - 0.441 * ((10) ^ (-4)) * (v ^ 2)) * vElseIf txt_xh.Text = "A" Thenp0 = (0.449 * v ^ (-0.09) - 19.62 / d1 - 0.765 * ((10) ^ (-4)) * (v ^ 2)) * vElseIf txt_xh.Text = "B" Thenp0 = (0.794 * v ^ (-0.09) - 50.6 / d1 - 1.31 * ((10) ^ (-4)) * (v ^ 2)) * vElseIf txt_xh.Text = "C" Thenp0 = (1.48 * v ^ (-0.09) - 143.2 / d1 - 2.34 * ((10) ^ (-4)) * (v ^ 2)) * vElseIf txt_xh.Text = "D" Thenp0 = (3.15 * v ^ (-0.09) - 507.3 / d1 - 4.77 * ((10) ^ (-4)) * (v ^ 2)) * vElseIf txt_xh.Text = "E" Thenp0 = (4.57 * v ^ (-0.09) - 951.5 / d1 - 7.06 * ((10) ^ (-4)) * (v ^ 2)) * vEnd IfText17.Text = CStr(Format(p0, "######.##"))End SubPrivate Sub Command23_Click()'传递功率的增量值△P0 If txt_xh.Text = "Z" ThenIf Val(Text8.Text) >= 1.365 And Val(Text8.Text) <= 1.51 Then 'Z型号表第一行If Val(txt_n1.Text) = 400 Or 730 Or 800 ThenText18.Text = "0.01"ElseIf Val(txt_n1.Text) = 980 Or 1200 Or 1460 Or 1600 ThenText18.Text = "0.02"ElseIf Val(txt_n1.Text) = 2000 Or 2400 ThenText18.Text = "0.03"ElseIf Val(txt_n1.Text) = 2800 Or 3200 ThenText18.Text = "0.04"End IfEnd IfIf Val(Text8.T ext) >= 2 Then 'Z型号表第二行If Val(txt_n1.Text) = 400 ThenText18.Text = "0.01"ElseIf Val(txt_n1.Text) = 730 Or 800 Or 980 ThenText18.Text = "0.02"ElseIf Val(txt_n1.Text) = 1200 Or 1460 Or 1600 ThenText18.Text = "0.03"ElseIf Val(txt_n1.Text) = 2000 Or 2400 Or 2800 ThenText18.Text = "0.04"ElseIf Val(txt_n1.Text) = 3200 ThenText18.Text = "0.05"End IfEnd IfEnd IfIf txt_xh.Text = "A" ThenIf Val(Text8.Text) >= 1.35 And Val(Text8.Text) <= 1.51 Then 'A型号表第一行If Val(txt_n1.Text) = 400 ThenText18.Text = "0.04"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "0.07"ElseIf Val(txt_n1.Text) = 800 Or 980 ThenText18.Text = "0.08"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "0.11"ElseIf Val(txt_n1.Text) = 1460 ThenText18.Text = "0.13"ElseIf Val(txt_n1.Text) = 1600 ThenText18.Text = "0.15"ElseIf Val(txt_n1.Text) = 2000 ThenText18.Text = "0.19"ElseIf Val(txt_n1.Text) = 2400 ThenText18.Text = "0.23"ElseIf Val(txt_n1.Text) = 2800 ThenText18.Text = "0.26"ElseIf Val(txt_n1.Text) = 3200 ThenText18.Text = "0.30"End IfEnd IfIf Val(Text8.T ext) >= 2 Then 'A型号表第二行If Val(txt_n1.Text) = 400 ThenText18.Text = "0.05"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "0.09"ElseIf Val(txt_n1.Text) = 800 ThenText18.Text = "0.10"ElseIf Val(txt_n1.Text) = 980 ThenText18.Text = "0.11"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "0.15"ElseIf Val(txt_n1.Text) = 1460 ThenText18.Text = "0.17"ElseIf Val(txt_n1.Text) = 1600 ThenText18.Text = "0.19"ElseIf Val(txt_n1.Text) = 2000 ThenText18.Text = "0.24"ElseIf Val(txt_n1.Text) = 2400 ThenText18.Text = "0.29"ElseIf Val(txt_n1.Text) = 2800 ThenText18.Text = "0.34"ElseIf Val(txt_n1.Text) = 3200 ThenText18.Text = "0.39"End IfEnd IfEnd IfIf txt_xh.Text = "B" ThenIf Val(Text8.Text) >= 1.35 And Val(Text8.Text) <= 1.51 Then 'B型号表第一行If Val(txt_n1.Text) = 400 ThenText18.Text = "0.10"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "0.17"ElseIf Val(txt_n1.Text) = 800 ThenText18.Text = "0.20"ElseIf Val(txt_n1.Text) = 980 ThenText18.Text = "0.23"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "0.30"ElseIf Val(txt_n1.Text) = 1460 ThenText18.Text = "0.36"ElseIf Val(txt_n1.Text) = 1600 ThenText18.Text = "0.39"ElseIf Val(txt_n1.Text) = 2000 ThenText18.Text = "0.49"ElseIf Val(txt_n1.Text) = 2400 ThenText18.Text = "0.59"ElseIf Val(txt_n1.Text) = 2800 ThenText18.Text = "0.69"ElseIf Val(txt_n1.Text) = 3200 ThenText18.Text = "0.79"End IfEnd IfIf Val(Text8.T ext) >= 2 Then 'B型号表第二行If Val(txt_n1.Text) = 400 ThenText18.Text = "0.13"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "0.22"ElseIf Val(txt_n1.Text) = 800 ThenText18.Text = "0.25"ElseIf Val(txt_n1.Text) = 980 ThenText18.Text = "0.30"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "0.38"ElseIf Val(txt_n1.Text) = 1460 ThenText18.Text = "0.46"ElseIf Val(txt_n1.Text) = 1600 ThenText18.Text = "0.51"ElseIf Val(txt_n1.Text) = 2000 ThenText18.Text = "0.63"ElseIf Val(txt_n1.Text) = 2400 ThenText18.Text = "0.76"ElseIf Val(txt_n1.Text) = 2800 ThenText18.Text = "0.89"ElseIf Val(txt_n1.Text) = 3200 ThenText18.Text = "1.01"End IfEnd IfEnd IfIf txt_xh.Text = "C" ThenIf Val(Text8.Text) >= 1.354 And Val(Text8.Text) <= 1.51 Then 'C型号表第一行If Val(txt_n1.Text) = 200 ThenText18.Text = "0.14"ElseIf Val(txt_n1.Text) = 300 ThenText18.Text = "0.21"ElseIf Val(txt_n1.Text) = 400 ThenText18.Text = "0.27"ElseIf Val(txt_n1.Text) = 500 ThenText18.Text = "0.34"ElseIf Val(txt_n1.Text) = 600 ThenText18.Text = "0.41"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "0.48"ElseIf Val(txt_n1.Text) = 800 ThenText18.Text = "0.55"ElseIf Val(txt_n1.Text) = 980 ThenText18.Text = "0.65"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "0.82"ElseIf Val(txt_n1.Text) = 1460 ThenText18.Text = "0.99"ElseIf Val(txt_n1.Text) = 1600 ThenText18.Text = "1.10"End IfEnd IfIf Val(Text8.T ext) >= 2 Then 'C型号表第二行If Val(txt_n1.Text) = 200 ThenText18.Text = "0.18"ElseIf Val(txt_n1.Text) = 300 ThenText18.Text = "0.26"ElseIf Val(txt_n1.Text) = 400 ThenText18.Text = "0.35"ElseIf Val(txt_n1.Text) = 500 ThenText18.Text = "0.44"ElseIf Val(txt_n1.Text) = 600 ThenText18.Text = "0.53"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "0.62"ElseIf Val(txt_n1.Text) = 800 ThenText18.Text = "0.71"ElseIf Val(txt_n1.Text) = 980 ThenText18.Text = "0.83"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "1.06"Text18.Text = "1.27"ElseIf Val(txt_n1.Text) = 1600 ThenText18.Text = "1.41"End IfEnd IfEnd IfIf txt_xh.Text = "D" ThenIf Val(Text8.Text) >= 1.35 And Val(Text8.Text) <= 1.51 Then 'D型号表第一行If Val(txt_n1.Text) = 200 ThenText18.Text = "0.49"ElseIf Val(txt_n1.Text) = 300 ThenText18.Text = "0.73"ElseIf Val(txt_n1.Text) = 400 ThenText18.Text = "0.97"ElseIf Val(txt_n1.Text) = 500 ThenText18.Text = "1.22"ElseIf Val(txt_n1.Text) = 600 ThenText18.Text = "1.46"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "1.70"ElseIf Val(txt_n1.Text) = 800 ThenText18.Text = "1.95"ElseIf Val(txt_n1.Text) = 980 ThenText18.Text = "2.31"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "2.92"ElseIf Val(txt_n1.Text) = 1460 ThenText18.Text = "3.52"ElseIf Val(txt_n1.Text) = 1600 ThenText18.Text = "3.89"End IfEnd IfIf Val(Text8.T ext) >= 2 Then 'D型号表第二行If Val(txt_n1.Text) = 200 ThenText18.Text = "0.63"ElseIf Val(txt_n1.Text) = 300 ThenText18.Text = "0.94"ElseIf Val(txt_n1.Text) = 400 ThenText18.Text = "1.25"Text18.Text = "1.56"ElseIf Val(txt_n1.Text) = 600 ThenText18.Text = "1.88"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "2.19"ElseIf Val(txt_n1.Text) = 800 ThenText18.Text = "2.50"ElseIf Val(txt_n1.Text) = 980 ThenText18.Text = "2.97"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "3.75"ElseIf Val(txt_n1.Text) = 1460 ThenText18.Text = "4.53"ElseIf Val(txt_n1.Text) = 1600 ThenText18.Text = "5.00"End IfEnd IfEnd IfIf txt_xh.Text = "E" ThenIf Val(Text8.Text) >= 1.354 And Val(Text8.Text) <= 1.51 Then 'E型号表第一行If Val(txt_n1.Text) = 200 ThenText18.Text = "0.96"ElseIf Val(txt_n1.Text) = 300 ThenText18.Text = "1.45"ElseIf Val(txt_n1.Text) = 400 ThenText18.Text = "1.93"ElseIf Val(txt_n1.Text) = 500 ThenText18.Text = "2.41"ElseIf Val(txt_n1.Text) = 600 ThenText18.Text = "2.89"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "3.38"ElseIf Val(txt_n1.Text) = 800 ThenText18.Text = "3.86"ElseIf Val(txt_n1.Text) = 980 ThenText18.Text = "4.58"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "5.61"ElseIf Val(txt_n1.Text) = 1460 ThenText18.Text = "6.83"Text18.Text = "-"End IfEnd IfIf Val(Text8.T ext) >= 2 Then 'E型号表第二行If Val(txt_n1.Text) = 200 ThenText18.Text = "1.24"ElseIf Val(txt_n1.Text) = 300 ThenText18.Text = "1.86"ElseIf Val(txt_n1.Text) = 400 ThenText18.Text = "2.48"ElseIf Val(txt_n1.Text) = 500 ThenText18.Text = "3.10"ElseIf Val(txt_n1.Text) = 600 ThenText18.Text = "3.72"ElseIf Val(txt_n1.Text) = 730 ThenText18.Text = "4.34"ElseIf Val(txt_n1.Text) = 800 ThenText18.Text = "4.96"ElseIf Val(txt_n1.Text) = 980 ThenText18.Text = "5.89"ElseIf Val(txt_n1.Text) = 1200 ThenText18.Text = "7.21"ElseIf Val(txt_n1.Text) = 1460 ThenText18.Text = "8.78"ElseIf Val(txt_n1.Text) = 1600 ThenText18.Text = "-"End IfEnd IfEnd IfEnd SubPrivate Sub Command24_Click()Picture10.Visible = FalsePicture12.Visible = TrueCommand36.Enabled = TrueEnd SubPrivate Sub Command26_Click() '确定长度系数KL If txt_xh.Text = "Z" ThenIf Val(txt_ld.Text) = 400 Then 'Z型号表Text19.Text = "+0.87"ElseIf Val(txt_ld.Text) = 450 ThenText19.Text = "+0.89"ElseIf Val(txt_ld.Text) = 500 ThenText19.Text = "+0.91"ElseIf Val(txt_ld.Text) = 630 ThenText19.Text = "+0.96"ElseIf Val(txt_ld.Text) = 710 ThenText19.Text = "+0.99"ElseIf Val(txt_ld.Text) = 800 ThenText19.Text = "+1.00"ElseIf Val(txt_ld.Text) = 900 ThenText19.Text = "+1.03"ElseIf Val(txt_ld.Text) = 1120 ThenText19.Text = "+1.08"ElseIf Val(txt_ld.Text) = 1250 ThenText19.Text = "+1.11"ElseIf Val(txt_ld.Text) = 1400 ThenText19.Text = "+1.14"ElseIf Val(txt_ld.Text) = 1600 ThenText19.Text = "+1.16"ElseIf Val(txt_ld.Text) = 1800 ThenText19.Text = "+1.18"End IfElseIf txt_xh.Text = "A" ThenIf Val(txt_ld.Text) = 630 Then 'A型号表Text19.Text = "+0.81"ElseIf Val(txt_ld.Text) = 710 ThenText19.Text = "+0.83"ElseIf Val(txt_ld.Text) = 800 ThenText19.Text = "+0.85"ElseIf Val(txt_ld.Text) = 900 ThenText19.Text = "+0.87"ElseIf Val(txt_ld.Text) = 1000 ThenText19.Text = "+0.89"ElseIf Val(txt_ld.Text) = 1120 ThenText19.Text = "+1.00"ElseIf Val(txt_ld.Text) = 1250 ThenText19.Text = "+0.93"ElseIf Val(txt_ld.Text) = 1400 ThenText19.Text = "+0.96"ElseIf Val(txt_ld.Text) = 1600 ThenText19.Text = "+0.99"ElseIf Val(txt_ld.Text) = 1800 ThenText19.Text = "+1.01"ElseIf Val(txt_ld.Text) = 2000 ThenText19.Text = "+1.03"ElseIf Val(txt_ld.Text) = 2240 ThenText19.Text = "+1.06"ElseIf Val(txt_ld.Text) = 2500 ThenText19.Text = "+1.09"ElseIf Val(txt_ld.Text) = 2800 ThenText19.Text = "+1.11"ElseIf Val(txt_ld.Text) = 3150 ThenText19.Text = "+1.13"ElseIf Val(txt_ld.Text) = 3650 ThenText19.Text = "+1.17"ElseIf Val(txt_ld.Text) = 4000 ThenText19.Text = "+1.19"End IfElseIf txt_xh.Text = "B" Then 'B型号表If Val(txt_ld.Text) = 900 ThenText19.Text = "+0.82"ElseIf Val(txt_ld.Text) = 1000 ThenText19.Text = "+0.84"ElseIf Val(txt_ld.Text) = 1120 ThenText19.Text = "+0.86"ElseIf Val(txt_ld.Text) = 1250 ThenText19.Text = "+0.88"ElseIf Val(txt_ld.Text) = 1400 ThenText19.Text = "+0.90"ElseIf Val(txt_ld.Text) = 1600 ThenText19.Text = "+0.92"ElseIf Val(txt_ld.Text) = 1800 ThenText19.Text = "+0.95"ElseIf Val(txt_ld.Text) = 2000 ThenText19.Text = "+0.98"ElseIf Val(txt_ld.Text) = 2240 ThenText19.Text = "+1.00"ElseIf Val(txt_ld.Text) = 2500 ThenText19.Text = "+1.03"ElseIf Val(txt_ld.Text) = 2800 ThenText19.Text = "+1.05"ElseIf Val(txt_ld.Text) = 3150 ThenText19.Text = "+1.07"ElseIf Val(txt_ld.Text) = 3650 ThenText19.Text = "+1.09"ElseIf Val(txt_ld.Text) = 4000 ThenText19.Text = "+1.13"ElseIf Val(txt_ld.Text) = 4500 ThenText19.Text = "+1.15"ElseIf Val(txt_ld.Text) = 5000 ThenText19.Text = "+1.18"End IfElseIf txt_xh.Text = "C" Then 'C型号表If Val(txt_ld.Text) = 1600 ThenText19.Text = "+0.83"ElseIf Val(txt_ld.Text) = 1800 ThenText19.Text = "+0.86"ElseIf Val(txt_ld.Text) = 2000 ThenText19.Text = "+0.88"ElseIf Val(txt_ld.Text) = 2240 ThenText19.Text = "+0.91"ElseIf Val(txt_ld.Text) = 2500 ThenText19.Text = "+0.93"ElseIf Val(txt_ld.Text) = 2800 ThenText19.Text = "+0.95"ElseIf Val(txt_ld.Text) = 3150 ThenText19.Text = "+0.97"ElseIf Val(txt_ld.Text) = 3650 ThenText19.Text = "+0.99"ElseIf Val(txt_ld.Text) = 4000 ThenText19.Text = "+1.02"ElseIf Val(txt_ld.Text) = 4500 ThenText19.Text = "+1.04"ElseIf Val(txt_ld.Text) = 5000 ThenText19.Text = "+1.07"ElseIf Val(txt_ld.Text) = 5600 ThenText19.Text = "+1.09"ElseIf Val(txt_ld.Text) = 6300 ThenText19.Text = "+1.12"ElseIf Val(txt_ld.Text) = 7100 ThenText19.Text = "+1.15"ElseIf Val(txt_ld.Text) = 8000 ThenText19.Text = "+1.18"ElseIf Val(txt_ld.Text) = 9000 ThenText19.Text = "+1.21"ElseIf Val(txt_ld.Text) = 10000 ThenText19.Text = "+1.23"End IfElseIf txt_xh.Text = "D" Then 'D型号表If Val(txt_ld.Text) = 2800 ThenText19.Text = "+0.83"ElseIf Val(txt_ld.Text) = 3150 ThenText19.Text = "+0.86"ElseIf Val(txt_ld.Text) = 3650 ThenText19.Text = "+0.89"ElseIf Val(txt_ld.Text) = 4000 ThenText19.Text = "+0.91"ElseIf Val(txt_ld.Text) = 4500 ThenText19.Text = "+0.93"ElseIf Val(txt_ld.Text) = 5000 ThenText19.Text = "+0.96"ElseIf Val(txt_ld.Text) = 5600 ThenText19.Text = "+0.98"ElseIf Val(txt_ld.Text) = 6300 ThenText19.Text = "+1.00"ElseIf Val(txt_ld.Text) = 7100 ThenText19.Text = "+1.03"ElseIf Val(txt_ld.Text) = 8000 ThenText19.Text = "+1.06"ElseIf Val(txt_ld.Text) = 9000 ThenText19.Text = "+1.08"ElseIf Val(txt_ld.Text) = 10000 ThenText19.Text = "+1.11"End IfElseIf txt_xh.Text = "E" Then 'E型号表If Val(txt_ld.Text) = 4500 ThenText19.Text = "+0.90"ElseIf Val(txt_ld.Text) = 5000 ThenText19.Text = "+0.92"ElseIf Val(txt_ld.Text) = 5600 ThenText19.Text = "+0.95"ElseIf Val(txt_ld.Text) = 6300 ThenText19.Text = "+0.97"ElseIf Val(txt_ld.Text) = 7100 ThenText19.Text = "+1.00"ElseIf Val(txt_ld.Text) = 8000 ThenText19.Text = "+1.02"ElseIf Val(txt_ld.Text) = 9000 ThenText19.Text = "+1.05"ElseIf Val(txt_ld.Text) = 10000 ThenText19.Text = "+1.07"End IfEnd IfEnd SubPrivate Sub Command27_Click()'计算V带根数txt_zcd.Text = CStr(Format(Val(txt_pc.Text) / ((Val(Text17.Text) + Val(Text18.Text)) * Val(Text16.Text) * Val(Text19.T ext)), "######.##"))End SubPrivate Sub Command28_Click()'对V带根数进行圆整txt_zyz.T ext = CStr(Int(Val(txt_zcd.Text)) + 1)End SubPrivate Sub Command29_Click()'载入课程说明中原始数据txt_p.Text = "7.5"txt_n1.Text = "1450"txt_n2.Text = "630"txt_ka.Text = "1.1"If Text8.Text = "" ThenText8.Text = CStr(Val(txt_n1.Text) / Val(txt_n2.Text))Elsetxt_n2.Text = CStr(Val(txt_n1.Text) / Val(Text8.Text))End IfEnd SubPrivate Sub Command3_Click()Picture2.Visible = TruePicture5.Visible = FalsePicture10.Visible = FalsePicture12.Visible = FalsePicture1.Visible = FalseFrame1.Visible = FalseFrame12.Visible = FalseFrame25.Visible = FalseEnd SubPrivate Sub Command30_Click()chaxun_ka.Visible = FalseEnd SubPrivate Sub Command31_Click()jizhunzhijing.Visible = FalseEnd SubPrivate Sub Command32_Click()'查询每米带质量q If txt_xh.Text = "Z" Thentxt_q.Text = "0.06"ElseIf txt_xh.Text = "A" Thentxt_q.Text = "0.10"ElseIf txt_xh.Text = "B" Thentxt_q.Text = "0.17"ElseIf txt_xh.Text = "C" Thentxt_q.Text = "0.30"ElseIf txt_xh.Text = "D" Thentxt_q.Text = "0.62"ElseIf txt_xh.Text = "E" Thentxt_q.Text = "0.90"End IfEnd SubPrivate Sub Command33_Click()'计算初拉力F0 txt_f0.Text = CStr(Format(500 * Val(txt_pc.Text) / (Val(txt_zyz.Text) * Val(txt_v.Text)) * (2.5 / Val(Text16.Text) - 1) + Val(txt_q.Text) * (Val(txt_v.Text)) ^ 2, "######.##"))End SubPrivate Sub Command34_Click()'计算压轴力Q Text1.Text = CStr(Format(2 * Val(txt_zyz.T ext) * Val(txt_f0.Text) * Sin(Val(txt_bj.Text) / (4 * 180) * 3.1415926), "######.##"))End SubPrivate Sub Command35_Click()'对实验所得数据进行汇总Picture12.Visible = FalseFrame25.Visible = TrueText5.Text = txt_xh.TextText6.Text = txt_d1.TextText7.Text = txt_d2.TextText9.Text = Text2.TextText10.Text = txt_ld.TextText11.Text = txt_a.T extText12.Text = txt_bj.T extText13.Text = txt_zyz.TextText14.Text = txt_f0.TextText15.Text = Text1.T extEnd SubPrivate Sub Command36_Click()Picture2.Visible = FalsePicture5.Visible = FalsePicture10.Visible = FalsePicture12.Visible = TruePicture1.Visible = FalseFrame1.Visible = FalseFrame12.Visible = FalseFrame25.Visible = FalseEnd SubPrivate Sub Command37_Click()'结束程序EndEnd SubPrivate Sub Command38_Click()Picture2.Visible = FalsePicture5.Visible = FalsePicture10.Visible = FalsePicture12.Visible = FalsePicture1.Visible = FalseFrame1.Visible = FalseFrame12.Visible = TrueEnd SubPrivate Sub Command4_Click()Picture2.Visible = FalsePicture5.Visible = TruePicture10.Visible = FalsePicture12.Visible = FalsePicture1.Visible = FalseFrame1.Visible = False。

V带传动设计说明书(含C语言源程序)

while(dd1<d[0]||dd1>d[1]) { printf("dd1应在%lf和%lf之间,请重新输入：",d[0],d[1]); scanf("%lf",&dd1); } v1=PI*dd1*n1/(60*1000); if(v1<5||v1>30) { printf("带速v=%lf，不在允许范围内，请选择是否重新选择带型，y或者n：",v1); b=getchar(); while(b!='y'&&b!='n') { printf("请输入y或者n："); b=getchar(); db=getchar(); } if(b=='y') { L2: printf("输入所选带型(大写)："); scanf("%c",&daixing); switch(daixing) { case 'E':q=0.970;break; case 'D':q=0.630;break; case 'C':q=0.300;break; case 'B':q=0.170;break; case 'A':q=0.105;break; case 'Z':q=0.060;break; default :printf("未知错误！\n");goto L2; } printf("输入小带轮最小直径："); scanf("%lf",&d[0]); printf("输入小带轮最大直径："); scanf("%lf",&d[1]); }

普通V带传动设计

Pｃ= KA· P
载荷性质原动机类型查表 Nhomakorabea计算
工作机类型
工作时长
普通V带传动设计
工况系数KA
普通V带传动设计
（2）选取V带型号
普通V带传动设计
（3）确定带轮基准直径dd1、dd2 取小带轮直径 dd1 ≥ddmin 大带轮直径
dd2
=nn12dd1(圆整为标准值）
表6-2 V带轮最小基准直径ddmin及基准直径系列
普通V带传动设计
（6）验算小带轮包角α1
α1=180º（dd22- dd1）X 57.3º
对于V带，一般要求小轮包角≥120º。
若不满足此条
件，可采用适当增大中心距、减小两带轮的直径差或者在带轮外
侧加张紧轮等措施
（7）确定带的根数z
z
≥
Pc (P0+Δ
P0 ——单根V带基本额定功率;
ΔP0 ——单根V带基本额定功率的增量; Kα ——包角修正系数；
（5）确定中心距a和带长
①初选中心距a0
故初选a0=500mm
②确定带的基准长度Ld
Ld0
=
2a0+π（dd21+
dd2）
+
（dd1+ dd22）（ 4 a0
1836.6mm
）
根据Ld0和带的型号，查表选取相近的基准长度L（d 1800mm）
③实际中心距a
a = a0+（Ld2- Ld0）（ 481.7mm ）
普通V带传动设计
普通V带传动设计
1.已知条件和设计内容：
传动有用途和工作情况
传递的功率P 主、从动轮转速n1、n2（或传动比）传动位置要求和外廓要求原动机的类型等

哈工大机械设计大作业V带传动设计说明书完美版

机械设计作业任务书题目：液体搅拌机中的V带传动结构简图见下图:方案P (KW) n m(r/mi n) n w(r / min) i1 轴承座中心高H（ mm）最短工作年限L工作环境5.2.3 4 720 80 2.5 200 3年3班室内潮湿确定设计功率F d设计功率是根据需要传递的名义功率、载荷性质、原动机类型和每天连续工作的时间长短等因素共同确定的，表达式如下：Pd = K A U P式中P ――需要传递的名义功率K A――工作情况系数，按表2工作情况系数K A选取K A=1.2；选择带型所以P d =K A L P =1.2x4 =4.8kW根据F d、n1，查看图5.71可选取B型带。

确定带轮的基准直径d d 1和d d 2d dmin知B型带d dmin =125mm,在优选直径系列选取小带轮基准直径: d dj =140mm ；大带轮基准直径: d d2 =i1L d d1 =2.5x140 = 350mm查表优先选取大带轮基准直径d d2 = 355mm ；其传动比误差心=3552.5-—1402.5咒100%=1.43%<5%，故可用。

验算带的速度兀Ld d1L n1 兀X140X720 ,V = ------ = ----------- = 5.3m /s60 咒1000 60^1000式中n1——电动机转速；d d1—小带轮基准直径;即v=5.3m/s< V max=25m/s,符合要求。

确定中心距a和V带基准长度L i根据：0.7(d d1 +d d2)兰a o <2(d d1 +d d2)初步确定中心距0.7（140+355）=346.5 < <2（140+355）=990考虑到应使结构紧凑，选取中心距a0=400mm初算带的基准长度L d':2 2-=2X400+ 王x（140+355）+（355-140）=1606.0mm2 4x400式中L d 带的标准基准长度;L d 带的初算基准长度;V带带轮最小基准直径a 。

机械零件CAD设计之普通V带传动设计说明

机械零件CAD设计之普通V带传动设计-----------------------作者：-----------------------日期：机械零件CAD设计说明书普通V带传动设计学院: 航空制造工程学院专业:材料成型及控制工程学号：09033507:饶祥指导老师:绪坤2011年11月16日目录一、设计容 (3)二、V带传动总体设计 (3)三、各带轮的设计 (5)1、结构尺寸设计 (5)2、材料的选择,结构形式设计 (6)3、3D软件设计零件 (6)四、轴的设计 (6)五、机架的设计 (6)六、零件的装配 (7)七、参考资料 (8)八、设计小结 (9)1、设计过程总结 (9)2、设计方法 (9)3、设计心得与收获 (9)一、设计容。

1.已知条件：电机功率W=4Kw，小带轮转速n1=1440 r/min, 传动比i=3，传动比允许误差≤5%±轻度冲击；两班制。

2.设计容和要求。

1）V带传动的设计计算。

2）轴径设计。

取45号刚时，按下式估算：min 1.03d≥，并圆整；3）V带轮的结构设计。

选择带轮的材料、结构形式、计算基本结构尺寸；4）用3D软件设计零件及装配图，并标注主要的特征尺寸；5）生成大带轮零件图（工程图），并标注尺寸、粗糙度等。

二、V带传动总体设计1. 确定计算功率ca P。

由表8-7查得工作情况系数A K=1.2，故1.2×4=4.8kw2. 选择V带的带型。

根据ca P、n1由图8-10选用A型。

3. 确定带轮的基准直径d d，并验算带速v 。

1)初选小带轮的基准直径1d d 。

由表8-6和表8-8，取小带轮的基准直径1d d ＝90mm 。

2)验算带速v 。

按式（8-13）验算带的速度。

6.78m/s因为5/30/m s v m s <<，故带速合适。

3)计算大带轮的基准直径.根据式（8-15a ），计算大带轮的基准直径2d d 。

3.0×90=270mm 圆整为2d d ＝280mm 。

机械设计课程设计V带传动

2 Y112M-4
750
பைடு நூலகம்
16
设计要求和内容：
（1）绘制小带轮装配图一张
（2）编写设计计算说明书一份
设计指导：
1）V 带传动的设计计算
参考教材中的 V 带传动设计方案与步骤进行计算，确定带的型号、根
数、长度，带轮尺寸，带传动中心距，作用在轴上的压力等。
2）V 带轮的结构设计
选择带轮的材料、结构型式，计算基本结构尺寸。注意小带轮的轴孔直
[3]材料力学（第二版）
同济大学出版社
6
径及键槽尺寸应根据电动机的外伸轴结构尺寸确定。
3）完成小带轮装配图设计
二、电动机的选择
由原始数据要求，查参考文献[1]表 20-1 和表 20-2，得，Y 系列三相异步电动机技术数据选择 Y112M-4 电动机，其额定功率为 4kW，满载转速 1440r/min，电机轴直径 d=28mm。
P=4kw n1=1440 r/min d=28mm
查参考文献[3]式(4-1)，得
查参考文献[2]式(6-1)、(6-2)，得
挡圈
` 查参考文献[1]表13-19，挡圈查参考文献[1]表 13-19，垫圈查参考文献[1]表 13-19，螺栓
垫圈螺栓
六.小带轮装配图
见附图
七.设计小结
通过这次设计，我基本掌握了 V 带轮各个参数的查询和计算方法，学
四.V 带轮的结构设计 ·············································4
1.V 带轮的材料 ·······················································4 2.V 带轮的结构形式 ···················································4 3.带轮的基本结构尺寸···················································4

V带传动设计计算说明书

设计任务:设计带式运输机中的V带传动带式运输机的传动方案见下图，机器工作平稳、单向回转、成批生产。

原始数据如下：一、确定设计功率查参考文献[1]表5.7得工作情况系数K A=1.2，则P d=K A P=1.2×2.2kW=2.64kW。

二、选择带的型号V带型号根据设计功率P d和小带轮转速n1确定，查参考文献【1】图5.17可选取A型带。

三、确定带轮的基准直径和查参考文献【1】表5.4 V带带轮最小基准直径，知A型带=75mm,选取小带轮基准直径：=100mm；因此，大带轮基准直径：==2.1×100mm=210mm。

查参考文献【1】表5.4选取大带轮基准直径=200mm。

其传动比误差为4.7%<5%,,故可用。

四、验算带的速度由带的速度公式：式中n1为电动机转速；d d1为小带轮基准直径。

v=25m/s,符合要求。

即v=4.92m/s<max五、确定中心距a 和V 带基准长度L d根据0.7（d d1+d d2）≦a 0≦2（d d1+d d2）初步确定中心距 0.7（100+200）=210mm ≤ a 0≤2（100+200）=600mm 要求工作平稳，选取中心距a 0=300mm 。

初算带的基准长度L d ：式中 L d 为带的标准基准长度；L d ’为带的初算基准长度；a 0为初选中心距。

查教材表5.2普通带基准长度L d 及长度系数K L ，确定带的基准长度L d =1120mm 。

计算实际中心距a ，由六、计算小轮包角小带轮包角：七、确定V 带根数Z根据确定带的根数。

式中为包角修正系数，考虑包角180α≠︒对传动能力的影响，由参考文献【1】表5.9查得；为带长修正系数，考虑带长不为特定带长时对使用寿命的影响，由参考文献【1】表5.2查得；为V 带基本额定功率。

由教材表5.4查取单根V 带所能传递的功率为=0.95kW ；由式计算功率增量。

V带传动计算说明书

实用文档
机械设计课程设计
计算说明书
设计题目 V带传动设计
机械工程学院机械电子研究所专业机械电子学号
设计人邵谣夏
指导教师乐韵斐
完成日期 2016 年 4 月 6 日
目录
一、设计任务书 (2)
二、传动方案的拟定及说明 (3)
三、电动机的选择计算 (3)
四、计算传动装置的运动和动力参数 (3)
五、V带传动的设计计算 (3)
六、V带轮的结构设计 (5)
七、设计小结 (6)
八、参考文献 (6)
设计计算及说明主要结果
一、设计任务书
设计一由电动机驱动鼓风机的V带传动。

主动带轮1装在电动机轴上，从动带轮2装在
鼓风机轴上，两带轮中心的水平距离a约等于大带
轮直径的2倍。

1. V带传动机构简图
2．设计原始数据
电动机型号Y160M-4
鼓风机轴转速（r/min）600
一天工作时间/h 16
3．设计内容
1)确定带的型号、长度、根数
2)确定带轮直径
3)确定带传动中心距
4)确定作用在轴上的压力
4．设计任务
1)完成V带轮结构设计
2)主动带轮装配图一张（A4）
3)设计计算说明书一份
由于是鼓风机，每天工作16小时，查
°
编著。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

V带传动设计说明书
机械设计课程设计
计算说明书
设计题目：设计由电动机驱动鼓风机的V带传汽车学院院车辆工程系
专业车辆工程学号1551956 设计人_________________ 郭梓恒
指导教师奚鹰
数据设计计算及说明同济大学
主要
结果
目录
一. 设计任务书 3
二. 传动方案的拟定及说明3
三. 电动机的选择计算 4
四. V带传动的设计计算 4
五. V带轮的结构设计7
六. 主要设计结论8
七. 参考资料8
设计任务书
给定电动机型号、鼓风机轴转速和一天工作时间，要求设计合适的
V带传动装置，完成电动机功率向鼓风机的传递。

主要设计计算内容有：确定带的型号、长度、根数，带轮直径，带传动中心距，作用在轴上的压力等；结构设计内容有：V带轮的材料、结构形式、基本尺寸等。

二. 传动方案的拟定及说明
主动带轮1装在电动机轴上，从动带轮2装在鼓风机轴上，两带轮中心的水平距离a约等于大带轮直径d2的2倍。

三. 电动机的选择计算
(1) 初选小带轮的基准直径d dl ：查参考文献［2］表8-6和表8-8 取小带轮的基准直径d di =100mm (2) 验算带速v :
按照参考文献［2］式8-13，计算带速v=6：豐0 =
3.14 100 1420
=7.43m/s
60x1000 60 1000
验算，5m/s<v<25m/s,带速合适 (3) 计算大带轮的基准直径d d2：
根据已给条件n 2=800r/min,传动比i=^二竺 =1.775 ,
n 2 800
d d2=id d1=1.775x100=177.5 mm
对照参考文献［2］表8-8，圆整后取d d2=180mm
4.确定V 带的中心距a 和基准长度L d
(1) 根据参考文献［2］式 8-20 : 0.7 d d1+ d d2 < a 0 < 2(d d1+ d d2)
250mm
< a 。

< 560mm
初始条件：a ~2d2=360mm
T 两轮的中心不是水平的••• a 0>a 〜360 mm
因此取V 带的中心距a °=500mm (2) 计算相应的带长L d0：
2 n (d d2-d d1
)
L d0~ 2a 0+ ' (d d1+d d2)+
2 ' ‘ 4a °
对照参考文献［2］表8-2
=[2x500+ 3
^ x(100+180)+ 2
(180 100),
------- ]mm^ 1443 mm,
选取带的基准长度为L d =1430 mm
(3)计算实际中心距a 及其变动范围:
(
500
+
14302
1443
) mm =
494 mm
L d -L d0
如1.1
F Ca =3.3 kW
d d1 = 100 mm
v=7.43 m/s
线于是
P r=(P°+ △ R)K a K L=(1.30+0.15)X0.982X0.96=1.37 kW d d2=180 mm
得压轴力的最小值(F p )min =2x3x121xsin 171
724 N
2
五. V 带轮的结构设计
1.带轮的材料
已知转速较低，电机功率较小所以采用灰口铸铁：
HT150
2.带轮的结构形式
(2)计算V 带的根数z z 二学==2.41,取 z=3 根 R 1.37
7.计算单根V 带的最小初拉力(F 0) min
查参考文献［2］表8-3，得A 型V 带单位长度的质量是
q=0.105
kg/m 又知带速v=7.43m/s ，由参考文献［2］式8-27，得
(F 0) min =500(2.5-K a )Ra +qv 2=500x (2.5 0.982) 3.3
+0.105x7.43 2=120.23N
i 0.982 3 7.43
K a
ZV
应使带的实际初拉力 F °>(F °)min
8.计算压轴力F p
a 1
由参考文献［2］式 8-31 : (F p )min =2z(F 0) min sin
L d = 1430 mm a=494 mm 已查得电动机轴直径: D=28 mm
a 1 = 171
(1)对小带轮(主动带轮)：d di=l00 mm
d d1
D 〜3.57>2.5 且d di<300 mm
R =
1.15 kW z=3
(F 0) min 〜121 N
线
七•参考资料
(1)《机械设计课程设计》(李兴华编，清华大学出版社)
(2)《机械设计》(第九版，高等教育出版社)
(3)《机械制图》(第六版，高等教育出版社)
图7 *6带轮槽的结构材料：HT150 〜724N。