机械原理课程设计(牛头刨床机构)diln.docx
机械原理理课程设设计说明明书牛头头刨床传传动机构构的设计计及其运运动分析析设 计 者：班 级：学 号：指导教师师：日期：220100年6月月28日日机构示意意图：附1：齿齿轮机构构的点算算源程序序及运行行结果1、源程程序：Optiion ExppliccitPrivvatee Coonstt pii = 3.1141559Dim z1, z22, mm, tt, hhax, cxx Ass SiinglleDim alppha, allp, alppa1, allpa22 Ass SiinglleDim d1, d22, xx1, x2, haa1, ha22, hhf1, hff2, h1, h22 Ass SiinglleDim db11, ddb2, daa1, da22, ddf1, dff2, a, e, s1, s22, ssa1, saa2 AAs SSingglePrivvatee Suub ccommmandd1_cclicck() '清清零z1 = 0z2 = 0m = 0alphha = 0hax = 00cx = 0Textt1.TTextt = " ""Textt2.TTextt = " ""Textt3.TTextt = " ""Textt4.TTextt = " ""Textt5.TTextt = " ""Textt6.TTextt = " ""Textt7.TTextt = " ""Textt8.TTextt = " ""Textt9.TTextt = " ""Textt10.Texxt = " "Textt11.Texxt = " "Textt12.Texxt = " "Textt13.Texxt = " "Textt14.Texxt = " "Textt15.Texxt = " "Textt16.Texxt = " "Textt17.Texxt = " "Textt18.Texxt = " "Textt19.Texxt = " "Textt20.Texxt = " "Textt21.Texxt = " "Textt22.Texxt = " "End SubbPrivvatee Suub ccommmandd2_cclicck()z1 = Vaal(IInpuutBoox(""请输入入第一个个齿轮的的齿数"")z2 = Vaal(IInpuutBoox(""请输入入第二个个齿轮的的齿数"")m = Vall(InnputtBoxx("请请输入齿齿轮的模模数")alphha = Vaal(IInpuutBoox(""请输入入齿轮的的压力角角")hax = VVal(InpputBBox("请输输入齿轮轮的齿顶顶高系数数")cx = Vaal(IInpuutBoox(""请输入入齿轮的的顶隙系系数")t = 1800# / piialp = aalphha / t '角度度转化成成弧度End SubbPrivvatee Suub CCommmandd3_CClicck()d1 = m * zz1d2 = m * zz2x1 = (117 - z11) / 177x2 = 0 - xx1ha1 = (haxx + x1) * mha2 = (haxx + x2) * mhf1 = (haxx + cx - xx1) * mmhf2 = (haxx + cx - xx2) * mmh1 = (22 * haxx + cx) * mh2 = (22 * haxx + cx) * mda1 = dd1 + 2 * hha1da2 = dd2 + 2 * hha2df1 = dd1 - 2 * hhf1df2 = dd2 - 2 * hhf2a = 0.55 * m * (zz1 + z22)db1 = dd1 * Coos(aalp)db2 = dd2 * Coos(aalp)alpaa1 = Attn(SSqr(daa1 / 2) 2 - (ddb1 / 22) 2) / (dbb1 / 2) '计算算齿顶11的圆压压力角alpaa2 = Attn(SSqr(daa2 / 2) 2 - (ddb2 / 22) 2) / (dbb2 / 2) '计算算齿顶22的圆压压力角e = (z11 * (Taan(aalpaa1) - TTan(alpp) + zz2 * (TTan(alppa2) - Tann(allp) / (22 * pi) '计计算重合合度s1 = pii * m / 2 + 22 * x1 * mm * Tann(allp)s2 = pii * m / 2 + 22 * x2 * mm * Tann(allp)sa1 = ss1 * daa1 / d11 - 2 * daa1 / 2 * (Tann(allpa11) - allpa11 - Tann(allp) + aalp)sa2 = ss2 * daa2 / d22 - 2 * daa2 / 2 * (Tann(allpa22) - allpa22 - Tann(allp) + aalp)Textt1.TTextt = d1Textt2.TTextt = d2Textt3.TTextt = x1Textt4.TTextt = x2Textt5.TTextt = ha11Textt6.TTextt = ha22Textt7.TTextt = hf11Textt8.TTextt = hf22Textt9.TTextt = h1Textt10.Texxt = h22Textt11.Texxt = daa1Textt12.Texxt = daa2Textt13.Texxt = dff1Textt14.Texxt = dff2Textt15.Texxt = aTextt16.Texxt = aTextt17.Texxt = eTextt18.Texxt = eTextt19.Texxt = s11Textt20.Texxt = s22Textt21.Texxt = saa1Textt22.Texxt = saa2End SubbPrivvatee Suub CCommmandd4_CClicck()If ssa1 >= 0.55 * m AAnd sa22 >= 0.5 * m Andd e >= 1.22 ThhenMsgBBox "此对对齿轮的的平稳性性及齿顶顶强度均均符合要要求", , "齿轮轮校核""MsgBBox "请记记录数据据"ElseeMsgBBox "请重重新设计计齿轮参参数", , "齿轮轮校核""z1 = 0z2 = 0m = 0alphha = 0hax = 00cx = 0Textt1.TTextt = " ""Textt2.TTextt = " ""Textt3.TTextt = " ""Textt4.TTextt = " ""Textt5.TTextt = " ""Textt6.TTextt = " ""Textt7.TTextt = " ""Textt8.TTextt = " ""Textt9.TTextt = " ""Textt10.Texxt = " "Textt11.Texxt = " "Textt12.Texxt = " "Textt13.Texxt = " "Textt14.Texxt = " "Textt15.Texxt = " "Textt16.Texxt = " "Textt17.Texxt = " "Textt18.Texxt = " "Textt19.Texxt = " "Textt20.Texxt = " "Textt21.Texxt = " "Textt22.Texxt = " "End IfEnd SubbPrivvatee Suub CCommmandd5_CClicck()Unlooad MeEnd SubbPrivvatee Suub FFormm_Looad()formm1.SShowwCommmandd1.SSetFFocuusEnd Subb2、运行行结果：附2：导导杆机构构设计的的源程序序及运行行结果1、源程程序：% 导导杆的运运动分析析fi1=0:00.0001:22*pii; %曲柄的的角位移移l6=3350; %机架长长度l1=ll6*ssin(18*pi/1800); %曲曲柄长度度l3=4450/(2*sinn(188*pii/1880); %导杆杆的长度度n1=2260; z1=114;z2=556;n2=zz1*nn1/zz2;w1=nn2*ppi/660; %曲柄柄的角速速度holdd onnaxiss eqquallaxiss auutofor fi11=0:0.0001:pi/2;fi3=(attan(l66+l11*siin(ffi1)./(l66*coos(ffi1); %导导杆的角角位移s3=(l1*coss(fii1)./ccos(fi33); %滑滑块A的的位移w3=ll1.*coss(fii1-ffi3)./ss3; %导杆杆的角速速度v=-ll1*ww1.*sinn(fii1-ffi3); %滑滑块A的的速度e3=(l1*w1.2.*siin(ffi3-fi11)-22*w33.*vv)./(s33); %导杆杆的角加加速度ad=ll3*ee3.*sinn(fii3)+l3*w3.2.*coos(ffi3); %刨刀的的加速度度plott(fii1,fi33;w33;e33,''linnewiidthh',11) %绘制导导杆的（角角）位移移、速度度及加速速度与时时间的关关系endholdd onnfor fi11=pii/2:0.0001:3*ppi/22;fi3=(attan(l66+l11*siin(ffi1)./(l66*coos(ffi1);s3=(l1*coss(fii1)./ccos(fi33);w3=ll1.*coss(fii1-ffi3)./ss3;v=-ll1*ww1.*sinn(fii1-ffi3);e3=(l1*w1.2.*siin(ffi3-fi11)-22*w33.*vv)./(s33);plott(fii1,fi33;w33;e33,''linnewiidthh',11) %绘制导导杆的（角角）位移移、速度度及加速速度与时时间的关关系 endfor phaa1=33*pii/2:0.000011:2*pifi3=(attan(l66+l11*siin(ffi1)./(l66*coos(ffi1);s3=(l1*coss(fii1)./ccos(fi33);w3=ll1.*coss(fii1-ffi3)./ss3;v=-ll1*ww1.*sinn(fii1-ffi3);e3=(l1*w1.2.*siin(ffi3-fi11)-22*w33.*vv)./(s33);plott(fii1,fi33;w33;e33,''linnewiidthh',11) %绘制导导杆的（角角）位移移、速度度及加速速度与时时间的关关系endlegeend('3','3','3')xlabbel('1')ylabbel('3 3 3 ')2、运行行结果附3：导导杆机构构设计的的源程序序及运行行结果1、源程程序% 刨刨头的运运动分析析fi1=0:00.0001:22*pii; %曲柄的的角位移移l6=3350; %机架长长度l1=ll6*ssin(18*pi/1800); %曲曲柄长度度l3=4450/(2*sinn(188*pii/1880); %导杆杆的长度度n1=2260; z1=114;z2=556;n2=zz1*nn1/zz2;w1=nn2*ppi/660; %曲柄柄的角速速度holdd onnaxiss auutofor fi11=0:0.0001:pi/2;fi3=(attan(l66+l11*siin(ffi1)./(l66*coos(ffi1); %导导杆的角角位移s3=(l1*coss(fii1)./ccos(fi33); %滑滑块A的的位移w3=ll1.*coss(fii1-ffi3)./ss3; %导杆杆的角速速度v=-ll1*ww1.*sinn(fii1-ffi3); %滑滑块A的的速度e3=(l1*w1.2.*siin(ffi3-fi11)-22*w33.*vv)./(s33); %导杆杆的角加加速度v5=ll3.*w3; sd=ll3.*sinn(fii3); %刨刨刀的位位移vd=vv5.*sinn(fii3);%刨刀刀的速度度ad=ll3*ee3.*sinn(fii3)+l3*w3.2.*coos(ffi3); %刨刀的的加速度度plott(fii1,ssd,''linnewiidthh',11);holdd onnplott(fii1,vvd,''r-','liinewwidtth',2);holdd onnplott(fii1,aad,''b.-','liinewwidtth',3);endholdd onnfor fi11=pii/2:0.0001:3*ppi/22;fi3=(attan(l66+l11*siin(ffi1)./(l66*coos(ffi1);s3=(l1*coss(fii1)./ccos(fi33);w3=ll1.*coss(fii1-ffi3)./ss3;v=-ll1*ww1.*sinn(fii1-ffi3);e3=(l1*w1.2.*siin(ffi3-fi11)-22*w33.*vv)./(s33);v5=ll3.*w3; sd=ll3.*sinn(fii3); %刨刨刀的位位移vd=vv5.*sinn(fii3);%刨刀刀的速度度ad=ll3*ee3.*sinn(fii3)+l3*w3.2.*coos(ffi3); %刨刀的的加速度度plott(fii1,ssd,''linnewiidthh',11);holdd onnplott(fii1,vvd,''r-','liinewwidtth',2);holdd onnplott(fii1,aad,''b.-','liinewwidtth',3);endfor phaa1=33*pii/2:0.0001:2*ppifi3=(attan(l66+l11*siin(ffi1)./(l66*coos(ffi1);s3=(l1*coss(fii1)./ccos(fi33);w3=ll1.*coss(fii1-ffi3)./ss3;v=-ll1*ww1.*sinn(fii1-ffi3);e3=(l1*w1.2.*siin(ffi3-fi11)-22*w33.*vv)./(s33);v5=ll3.*w3; sd=ll3*ssin(fi33); %刨刀刀的位移移vd=vv5.*sinn(fii3);%刨刀刀的速度度ad=ll3*ee3.*sinn(fii3)+l3*w3.2.*coos(ffi3); %刨刀的的加速度度plott(fii1,ssd,''linnewiidthh',11);holdd onnplott(fii1,vvd,''r-','liinewwidtth',2);holdd onnplott(fii1,aad,''b.-','liinewwidtth',3);endlegeend('位移移','速度度','加速速度')xlabbel('1')ylabbel('Sdd Vd AAd ')2、运行行结果
