机械原理课程设计(牛头刨床机构).pdfVIP

机械原理课程设计说明书

——牛头刨床传动机构的设计及其运动分析

设计者：

班级：

学号：

指导教师：

日期：2010年6月28日

1/13

机构示意图：

2/13

附1：齿轮机构的点算源程序及运行结果

1、源程序：

OptionExplicit

PrivateConstpi=3.14159

Dimz1,z2,m,t,hax,cxAsSingle

Dimalpha,alp,alpa1,alpa2AsSingle

Dimd1,d2,x1,x2,ha1,ha2,hf1,hf2,h1,h2AsSingle

Dimdb1,db2,da1,da2,df1,df2,a,e,s1,s2,sa1,sa2AsSingle

PrivateSubmand1_click()清零

z1=0

z2=0

m=0

alpha=0

hax=0

cx=0cx=0cx=0cx=0cx=0cx=0cx=0cx=0cx=0cx=0cx=0cx=0cx=0cx=0cx=0cx=0cx=0

3/13

EndSub

PrivateSubmand2_click()PrivateSubmand2_click()

请输入第一个齿轮的齿数请输入第一个齿轮的齿数请输入第一个齿轮的齿数

请输入第二个齿轮的齿数请输入第二个齿轮的齿数请输入第二个齿轮的齿数

请输入齿轮的模数请输入齿轮的模数请输入齿轮的模数

请输入齿轮的压力角请输入齿轮的压力角请输入齿轮的压力角

请输入齿轮的齿顶高系数请输入齿轮的齿顶高系数请输入齿轮的齿顶高系数

请输入齿轮的顶隙系数请输入齿轮的顶隙系数

t=180#/pi

alp=alpha/t角度转化成弧度

EndSub

PrivateSubmand3_Click()

d1=m*z1

d2=m*z2

x1=(17-z1)/17

x2=0-x1

ha1=(hax+x1)*m

ha2=(hax+x2)*m

hf1=(hax+cx-x1)*m

hf2=(hax+cx-x2)*m

h1=(2*hax+cx)*m

h2=(2*hax+cx)*m

da1=d1+2*ha1

da2=d2+2*ha2

df1=d1-2*hf1

df2=d2-2*hf2

a=0.5*m*(z1+z2)

db1=d1*Cos(alp)

db2=d2*Cos(alp)

alpa1=Atn(Sqr((da1/2)^2-(db1/2)