機(jī)械原理課程設(shè)計(jì)(牛頭刨床機(jī)構(gòu))

1、機(jī)械原理課程設(shè)計(jì)說明書牛頭刨床傳動(dòng)機(jī)構(gòu)的設(shè)計(jì)及其運(yùn)動(dòng)分析設(shè)計(jì)者：班 級(jí)：學(xué) 號(hào)：指導(dǎo)教師：日期：2010年6月28日機(jī)構(gòu)示意圖:附 1 ：齒輪機(jī)構(gòu)的點(diǎn)算源程序及運(yùn)行結(jié)果1 、源程序：Option ExplicitPrivate Const pi = 3.14159Dim z1, z2, m, t, hax, cx As SingleDim alpha, alp, alpa1, alpa2 As SingleDim d1, d2, x1, x2, ha1, ha2, hf1, hf2, h1, h2 As SingleDim db1, db2, da1, da2, df1, df2, a, e,

2、 s1, s2, sa1, sa2 As Single' 清零Private Sub command1_click()z1 = 0z2 = 0m = 0alpha = 0hax = 0cx = 0Text1.Text = " "Text2.Text = " "Text3.Text = " "Text4.Text = " "Text5.Text = " "Text6.Text = " "Text7.Text = " "Text8.Text = &qu

3、ot; "Text9.Text = " "Text10.Text = " "Text11.Text = " "Text12.Text = " "Text13.Text = " "Text14.Text = " "Text15.Text = " "Text16.Text = " "Text17.Text =Text18.Text = " "Text19.Text = " "Text20.T

4、ext = " "Text21.Text = " "Text22.Text = " "End SubPrivate Sub command2_click()z1 = Val(InputBox("請(qǐng)輸入第一個(gè)齒輪的齒數(shù)")z2 = Val(InputBox("請(qǐng)輸入第二個(gè)齒輪的齒數(shù)")m = Val(InputBox(" 請(qǐng)輸入齒輪的模數(shù)")alpha = Val(InputBox(" 請(qǐng)輸入齒輪的壓力角")hax = Val(InputBox("

5、 請(qǐng)輸入齒輪的齒頂高系數(shù)")cx = Val(InputBox(" 請(qǐng)輸入齒輪的頂隙系數(shù)")t = 180# / pi' 角度轉(zhuǎn)化成弧alp = alpha / t度End SubPrivate Sub Command3_Click()d1 = m * z1d2 = m * z2x1 = (17 - z1) / 17x2 = 0 - x1ha1 = (hax + x1) * mha2 = (hax + x2) * mhf1 = (hax + cx - x1) * mhf2 = (hax + cx - x2) * mh1 = (2 * hax + cx) *

6、 mh2 = (2 * hax + cx) * mda1 = d1 + 2 * ha1da2 = d2 + 2 * ha2df1 = d1 - 2 * hf1df2 = d2 - 2 * hf2a = 0.5 * m * (z1 + z2)db1 = d1 * Cos(alp)db2 = d2 * Cos(alp)' 計(jì)算齒頂1 的alpal = Atn(Sqr(da1 / 2) A 2 - (db1 / 2) A 2) / (db1 / 2)圓壓力角' 計(jì)算齒頂2 的alpa2 = Atn(Sqr(da2 / 2) A 2 - (db2 / 2) A 2) / (db2 /

7、2)圓壓力角' 計(jì)算e = (z1 * (Tan(alpa1) - Tan(alp) + z2 * (Tan(alpa2) - Tan(alp) / (2 * pi)重合度s1 = pi * m / 2 + 2 * x1 * m *Tan(alp)s2 = pi * m / 2 + 2 * x2 * m *Tan(alp)sa1 = s1 * da1 / d1 - 2 * da1/ 2 * (Tan(alpa1) -alpa1- Tan(alp)+alp)sa2 = s2 * da2 / d2 - 2 * da2/ 2 * (Tan(alpa2) -alpa2- Tan(alp)+al

8、p)Text1.Text = d1Text2.Text = d2Text3.Text = x1Text4.Text = x2Text5.Text = ha1Text6.Text = ha2Text7.Text = hf1Text8.Text = hf2Text9.Text = h1Text10.Text = h2Text11.Text = da1Text12.Text = da2Text13.Text = df1Text14.Text = df2Text15.Text = aText16.Text = aText17.Text = eText18.Text = eText19.Text = s

9、1Text20.Text = s2Text21.Text = sa1Text22.Text = sa2End SubPrivate Sub Command4_Click()If sa1 >= 0.5 * m And sa2 >= 0.5 * m And e >= 1.2 ThenMsgBox " 此對(duì)齒輪的平穩(wěn)性及齒頂強(qiáng)度均符合要求", , " 齒輪校核"MsgBox " 請(qǐng)記錄數(shù)據(jù)"ElseMsgBox " 請(qǐng)重新設(shè)計(jì)齒輪參數(shù)", , " 齒輪校核"z1 = 0z2 = 0m

10、 = 0alpha = 0hax = 0cx = 0Text1.Text = " "Text2.Text = " "Text3.Text = " "Text4.Text = " "Text5.Text = " "Text6.Text = " "Text7.Text = " "Text8.Text = " "Text9.Text = " "Text10.Text = " "Text11.Text =

11、 " "Text12.Text = " "Text13.Text = " "Text14.Text = " "Text15.Text = " "Text16.Text = " "Text17.Text = " "Text18.Text = " "Text19.Text = " "Text20.Text = " "Text21.Text = " "Text22.Text = &q

12、uot; "End IfEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub Form_Load()form1.ShowCommandl.SetFocusEnd Sub2、運(yùn)行結(jié)果:Si.齒輪機(jī)構(gòu)的設(shè)計(jì)清零計(jì)苴9411T647O5576751803&1齒輪1吉輪28.65401021。佻.1T647058823S8. 55882352941ha *|7. 05882352941145.882352941獲取原始數(shù)據(jù)18.882352945 44117B470Kda98.11784705K71. 11764

13、7 058J21010.195529789(3.33023T84. 8313012：導(dǎo)桿機(jī)構(gòu)設(shè)計(jì)的源程序及運(yùn)行結(jié)果1 、源程序：% 導(dǎo)桿的運(yùn)動(dòng)分析fi1=0:0.001:2*pi;%曲柄的角位移l6=350;%機(jī)架長度l1=l6*sin(18*pi/180);%曲柄長度l3=450/(2*sin(18*pi/180);%導(dǎo)桿的長度n1=260;z1=14;z2=56;n2=z1*n1/z2;w1=n2*pi/60;%曲柄的角速度hold onaxis equalaxis autofor fi1=0:0.001:pi/2;fi3=(atan(l6+l1*sin(fi1)./(l6*cos(fi1

14、);%導(dǎo)桿的角位移s3=(l1*cos(fi1)./cos(fi3);% 滑塊 A 的位移w3=l1.*cos(fi1-fi3)./s3;%導(dǎo)桿的角速度v=-l1*w1.*sin(fi1-fi3);% 滑塊 A 的速度e3=(l1*w1.A2.*sin(fi3-fi1)-2*w3.*v)./(s3);%導(dǎo)桿的角加速度ad=l3*e3.*sin(fi3)+l3*w3 A2.*cos(fi3);% 刨刀的加速度plot(fi1,fi3;w3;e3, 'linewidth' ,1) %繪制導(dǎo)桿的(角)位移、速度及加速度與時(shí)間的關(guān)系endhold onfor fi1=pi/2:0.00

15、1:3*pi/2;fi3=(atan(l6+l1*sin(fi1)./(l6*cos(fi1);s3=(l1*cos(fi1)./cos(fi3);w3=l1.*cos(fi1-fi3)./s3;v=-l1*w1.*sin(fi1-fi3);e3=(l1*w1.A2.*sin(fi3-fi1)-2*w3.*v)./(s3);plot(fi1,fi3;w3;e3, 'linewidth' ,1) %繪制導(dǎo)桿的(角)位移、速度及加速度與時(shí)間的關(guān)系endfor pha1=3*pi/2:0.0001:2*pi fi3=(atan(l6+l1*sin(fi1)./(l6*cos(fi1)

16、;s3=(l1*cos(fi1)./cos(fi3);w3=l1.*cos(fi1-fi3)./s3;v=-l1*w1.*sin(fi1-fi3);e3=(l1*w1.A2.*sin(fi3-fi1)-2*w3.*v)./(s3);plot(fi1,fi3;w3;e3, 'linewidth' ,1) %繪制導(dǎo)桿的(角)位移、速度及加速度與時(shí)間的關(guān)系endlegend('科'，'33',' 3)xlabel('"')ylabel('小3«3s3')2、運(yùn)行結(jié)果尋開機(jī)桶的運(yùn)動(dòng)行祈圈附 3

17、：導(dǎo)桿機(jī)構(gòu)設(shè)計(jì)的源程序及運(yùn)行結(jié)果1 、源程序% 刨頭的運(yùn)動(dòng)分析fi1=0:0.001:2*pi;%曲柄的角位移l6=350;%機(jī)架長度l1=l6*sin(18*pi/180);%曲柄長度l3=450/(2*sin(18*pi/180);%導(dǎo)桿的長度n1=260;z1=14;z2=56;n2=z1*n1/z2;w1=n2*pi/60;%曲柄的角速度hold onaxis autofor fi1=0:0.001:pi/2;fi3=(atan(l6+l1*sin(fi1)./(l6*cos(fi1);%導(dǎo)桿的角位移s3=(l1*cos(fi1)./cos(fi3);% 滑塊 A 的位移w3=l1.*

18、cos(fi1-fi3)./s3;%導(dǎo)桿的角速度v=-l1*w1.*sin(fi1-fi3);% 滑塊 A 的速度e3=(l1*w1.A2.*sin(fi3-fi1)-2*w3.*v)./(s3);%導(dǎo)桿的角加速度v5=l3.*w3;sd=l3.*sin(fi3);%刨刀的位移vd=v5.*sin(fi3); %刨刀的速度ad=l3*e3.*sin(fi3)+l3*w3 A2.*cos(fi3);% 刨刀的加速度plot(fi1,sd, 'linewidth' ,1);hold onplot(fi1,vd, 'r-' ,'linewidth' ,

19、2);hold onplot(fi1,ad, 'b.-' , 'linewidth' ,3);end hold onfor fi1=pi/2:0.001:3*pi/2;fi3=(atan(l6+l1*sin(fi1)./(l6*cos(fi1);s3=(l1*cos(fi1)./cos(fi3);w3=l1.*cos(fi1-fi3)./s3;v=-l1*w1.*sin(fi1-fi3);e3=(l1*w1.A2.*sin(fi3-fi1)-2*w3.*v)./(s3);v5=l3.*w3;sd=l3.*sin(fi3);%刨刀的位移vd=v5.*sin(fi3);%刨刀的速度ad=l3*e3.*sin(fi3)+l3*w3 A2.*cos(fi3);% 刨刀的加速度plot(fi1,sd, 'linewidth' ,1);hold onplot(fi1,vd,