预览加载中，请您耐心等待几秒...
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10
亲，该文档总共15页，到这已经超出免费预览范围，如果喜欢就直接下载吧～
如果您无法下载资料，请参考说明：
1、部分资料下载需要金币，请确保您的账户上有足够的金币
2、已购买过的文档，再次下载不重复扣费
3、资料包下载后请先用软件解压，在使用对应软件打开
编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第PAGE15页共NUMPAGES15页第PAGE\*MERGEFORMAT15页共NUMPAGES\*MERGEFORMAT15页机械原理课程设计说明书——牛头刨床传动机构的设计及其运动分析设计者：班级：学号：指导教师：日期：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_click()'清零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=""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("请输入第一个齿轮的齿数"))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-x1ha1=(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*(z1+z2)db1=d1*Cos(alp)db2=d2*Cos(alp)alpa1=Atn(Sqr((da1/2)^2-(db1/2)^2)/(db1/2))'计算齿顶1的圆压力角alpa2=Atn(Sqr((da2/2)^2-(db2/2)^2)/(db2/2))'计算齿顶2的圆压力角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)+alp)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=s1Text20.Text=s2Text21.Text=sa1Text22.
