1、機械原理課程設計說明書牛頭刨床傳動機構的設計及其運動分析設計者：班級：學號：指導教師：日期：2010年6月28日機構示意圖:附1:齒輪機構的點算源程序及運行結果1、源程序：OptionExplicitPrivateConstpi=3.14159Dimz1,z2,m,t,hax,cxAsSingleDimalpha,alp,alpa1,alpa2AsSingleDimd1,d2,x1,x2,ha1,ha2,hf1,hf2,h1,h2AsSingleDimdb1,db2,da1,da2,df1,df2,a,e,s1,s2,sa1,sa2AsSinglePrivateSubcommand1_clic

2、k()z1=0z2=0m=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=""Text12.Text=&qu

3、ot;"Text13.Text=""Text14.Text=""Text15.Text=""Text16.Text=""Text17.Text=Text18.Text=""Text19.Text=""Text20.Text=""Text21.Text=""Text22.Text=""EndSubPrivateSubcommand2_click()z1=Val(InputBox("請輸入第一個齒輪的

4、齒數")z2=Val(InputBox("請輸入第二個齒輪的齒數")m=Val(InputBox("請輸入齒輪的模數")alpha=Val(InputBox("請輸入齒輪的壓力角")hax=Val(InputBox("請輸入齒輪的齒頂高系數")cx=Val(InputBox("請輸入齒輪的頂隙系數")角度轉化成弧t=180#/pialp=alpha/t度EndSubPrivateSubCommand3_Click()d1=m*z1d2=m*z2x1=(17-z1)/17x2=0-x1h

5、a1=(hax+x1)*mha2=(hax+x2)*mhf1=(hax+cx-x1)*mhf2=(hax+cx-x2)*mh1=(2*hax+cx)*mh2=(2*hax+cx)*mda1=d1+2*ha1da2=d2+2*ha2df1=d1-2*hf1df2=d2-2*hf2a=0.5*m*億1+z2)'計算齒頂1的db1=d1*Cos(alp)db2=d2*Cos(alp)alpa1=Atn(Sqr(da1/2)A2-(db1/2)A2)/(db1/2)'計算齒頂2的圓壓力角alpa2=Atn(Sqr(da2/2)A2-(db2/2)A2)/(db2/2)圓壓力角'

6、計算e=億1*(Tan(alpal)-Tan(alp)+z2*(Tan(alpa2)-Tan(alp)/(2*pi)重合度si=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)+alp)Textl.Text=diText2.Text=d2Text3.Text=x1Text4.Text=x2Text5.Text=halText6.Text=ha2Tex

7、t7.Text=hflText8.Text=hf2Text9.Text=hiTextIO.Text=h2Textll.Text=dalText12.Text=da2Text13.Text=df1Text14.Text=df2Text15.Text=aText16.Text=aText17.Text=eText18.Text=eText19.Text=s1Text20.Text=s2Text21.Text=sa1Text22.Text=sa2EndSubPrivateSubCommand4_Click()Ifsa1>=0.5*mAndsa2>=0.5*mAnde>=1.2The

8、nMsgBox"此對齒輪的平穩性及齒頂強度均符合要求""齒輪校核"MsgBox"請記錄數據"ElseMsgBox"請重新設計齒輪參數""齒輪校核"z1=0z2=0m=0alpha=0hax=0cx=0Textl.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=&

9、quot;"Text8.Text=""Text9.Text=""Text10.Text=""Text11.Text=""Text12.Text=""Text13.Text=""Text14.Text=""Text15.Text=""Text16.Text=""Text17.Text=""Text18.Text=""Text19.Text=""Tex

10、t20.Text=""Text21.Text=""Text22.Text=""EndIfEndSubPrivateSubCommand5_Click()UnloadMeEndSubPrivateSubForm_Load()form1.ShowCommandl.SetFocusEndSub2、運行結果:Si.齒輪機構的設計清零獲取原始數據計苴齒輪1吉輪29411T647O5576751803&18.65401021。佻.1T647058823S8.55882352941ha*|7.05882352941145.882352941

11、18.88235294544117B470Kda98.11784705K71.117647058J21010.195529789(3.33023T84.831301附2:導桿機構設計的源程序及運行結果1、源程序：%導桿的運動分析fi1=0:0.001:2*pi;%曲柄的角位移16=350;%機架長度11=16*sin(18*pi/180);%曲柄長度13=450/(2*sin(18*pi/180);%導桿的長度n1=260;z1=14;z2=56;n2=z1*n1/z2;w1=n2*pi/60;%曲柄的角速度holdonaxisequalaxisautoforfi1=0:0.001:pi/2;

12、fi3=(atan(l6+l1*sin(fi1)./(l6*cos(fi1);%導桿的角位移s3=(l1*cos(fi1)./cos(fi3);%滑塊A的位移w3=l1.*cos(fi1-fi3)./s3;%導桿的角速度v=-l1*w1.*sin(fi1-fi3);%滑塊A的速度e3=(l1*w1.A2.*sin(fi3-fi1)-2*w3.*v)./(s3);%導桿的角加速度ad=l3*e3.*sin(fi3)+l3*w3A2.*cos(fi3);%刨刀的加速度plot(fi1,fi3;w3;e3,'linewidth',1)%繪制導桿的(角)位移、速度及加速度與時間的關系e

13、ndholdonforfi1=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);plot(fi1,fi3;w3;e3,'linewidth',1)%繪制導桿的(角)位移、速度及加速度與時間的關系endforpha1=3*pi/2:0.0001:2*pifi3=(atan(l6+l1*sin

14、(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)%繪制導桿的(角)位移、速度及加速度與時間的關系endlegend('科'，'33','3)xlabel('"')ylabel('(j)3«3s3')2、運

15、行結果尋開機桶的運動行祈圈附3:導桿機構設計的源程序及運行結果1、源程序%刨頭的運動分析fi1=0:0.001:2*pi;%曲柄的角位移16=350;%機架長度11=16*sin(18*pi/180);%曲柄長度13=450/(2*sin(18*pi/180);%導桿的長度n1=260;z1=14;z2=56;n2=z1*n1/z2;w1=n2*pi/60;%曲柄的角速度holdonaxisautoforfi1=0:0.001:pi/2;fi3=(atan(l6+l1*sin(fi1)./(l6*cos(fi1);%導桿的角位移s3=(l1*cos(fi1)./cos(fi3);%滑塊A的位移

16、w3=l1.*cos(fi1-fi3)./s3;%導桿的角速度v=-l1*w1.*sin(fi1-fi3);%滑塊A的速度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*w3A2.*cos(fi3);%刨刀的加速度plot(fi1,sd,'linewidth',1);holdonplot(fi1,vd,'r-','linewidth',2);ho

17、ldonplot(fi1,ad,'b.-','linewidth',3);endholdonforfi1=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

18、*e3.*sin(fi3)+l3*w3A2.*cos(fi3);%刨刀的加速度plot(fi1,sd,'linewidth',1);holdonplot(fi1,vd,'r-','linewidth',2);holdonplot(fi1,ad,'b.-','linewidth',3);endforpha1=3*pi/2:0.001:2*pifi3=(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