机械工程
设有一对外啮合齿轮的齿数z1=30、z2=40，模数m=20mm，压力角α=20o，齿顶高系数h*a=1。试求当中心距a’=725mm时，两轮的啮合角α’。又当α’=22o30’时，试求其中心距a’。
题目
设有一对外啮合齿轮的齿数z1=30、z2=40，模数m=20mm，压力角α=20o，齿顶高系数h*a=1。试求当中心距a’=725mm时，两轮的啮合角α’。又当α’=22o30’时，试求其中心距a’。
参考答案和解析
由a’cosα’=acosα得
α’=arccos（acosα/a’）=arccos（700×cos20º/725）=24.87º
当α’=22º30’时，a’=acosα/cosα’=700×cos20º/cos22.5º=711.98mm
相似问题和答案
第1题：
有如下事件过程： Sub ABD(x％，y％，z％) z％=X％ +y％ End Sub Private Sub Command1 _ Click( ) a％=30：b％=40 Call ABD(a％，b％，c％) Print c％ End Sub 运行上面的程序，单击命令按钮，输出结果为
A．70
B．70．0
C．7.0E+1
D．显示错误信息
解析：在此题中，定义了一个求和函数，有三个形参，第三个形参的值是前两个形参的和，语句z％=x％+y％就是实现的这个功能；在主调过程中，定义了两个变量并赋给初值a％=30:b％=40，然后用Call关键字调用函数过程CallABD(a％，b％，c％)，然后输出c％的值，输出结果70。
第2题：
在窗体上面画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下代码： Sub S(X As Integer，y As Integer) Static z As Integer y=x*x+Z z=y End Sub Private Sub Command1 Click（ ） Dim i As Integer．z As Integer m=0 z=0 For i=1 T0 3 S i，Z m=m+z Next i Label1．Caption=Str(m) 程序运行后，单击命令按钮，在标签中显示的内容是（ ）。
A.50
B.20
C.14
D.7
B。【解析】本题中有Sub过程，此过程中s函数使用的参数传递为地址传递，并且z变量为静态变量，所以变量2将会保存上=次计算的值，而z=Y是为静态变量进行赋值。在Click事件中的2和Sub过程中的z只是同名，没有其他的关系，所以当i=1时调用s函数，此时的y=1*1+0=1，z=y=1，当i=2时，y=2*2+1=5，z=y=5，当i=3时，y=3*3+5=14，z=14，此时m=m+z，所以m=0+1+5+14=20，所以答案选择B。
第3题：
下面程序： Private Sub Form. _Click () Dim x, y, z As Integer x=5 y=7 z=0 Call P1(x, y, z) Print Str (z) End Sub Sub P1 (ByVal a As Integer, ByVal b As Integer , c As Integer) c= a+b End Sub 运行后的输出结果为______。
A．0
B．12
C．Str(z)
D．显示错误信息
解析：在本题中，用Call过程名的方法调用过程P1，在P1中，将参数C的值改变为12。因为参数C是按地址传送(默认为按地址传送，即ByRef)，故z的值变为12了，所以输出值为12。
第4题：
已知一对外啮合渐开线标准直齿圆柱齿轮的标准中心距a=200mm，齿数Z1=20，Z2=80，齿顶高系数ha*=1，压力角=20°。试求这对齿轮的模数m，传动比i12，节圆直径及啮合角。
略
第5题：
已知一正常标准直齿圆柱齿轮，齿数Z1=36，齿顶圆直径dal=105mm，配制与其啮合的齿轮，要求中心距a=116.25mm，试求这对齿轮的分度圆d1、d2直径和齿数z2。注：Dal=m(Z1 +2)
【解】Dal=m(Z1+2)
m=2.8(mm)取标准值m=3mm
d1=mZ1=3×36=108mm∵a=1/2(d1+d2)
∴d2=2a-d1=232.5-108=124.5mmd2=mZ2
Z2=d2/m=124.5/3=41.5个，取整数为42个齿
答：这对齿轮的分度圆直径分别为108mm和124.5mm，齿数为42个。
第6题：
已知相啮合的二齿轮模数为m=6mm，齿数Z1=16，Z2=48，求中心距A
第7题：
设有如下程序： char sub(char * q) {while(* q，＝'\0') {if(*q＞='A'&&*q＜＝'Z')*q＝* q+32; else if(*q＞＝'a' &&*q＜＝'z')*q=*q-32； printf("%c"，*q)； q++；} } main() {char *s="abcABC"； sub(s)； } 则程序运行后的输出结果是( )
A．ABCabc
B．abcABC
C．abcabc
D．ABCABC
第8题：
单击一次窗体之后，下列程序代码的执行结果为______。 Private Sub Command1_ Click() Dim x As Integer, y As Integer, z As Integer x = 1: y = 2: z = 3 Call fun1 (x, y, z) Print x; y; z Call fun2(x, y, z) Print x; y; z End Sub Private Sub fun1(x As Integer, y As Integer, z As Integer) x = 10 * z y=z*z+ x z=x+ y+ z End Sub Private Sub fun2 (ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) x=10*z y=z*z+ x z=x+ y +z End Sub
A．1 2 3 30 39 72
B．1 2 3 1 2 3
C．30 39 72 1 2 3
D．30 39 72 30 39 72
第9题：
一对外啮合标准直齿轮传动中，已知两轮的齿数z1=20、z2=40，模数m=3mm，压力角α=20°，标准安装。 根据已知，回答下列问题。 计算齿顶圆半径ra1。
略
第10题：
一对外啮合标准直齿轮传动中，已知两轮的齿数z1=20、z2=40，模数m=3mm，压力角α=20°，标准安装。 根据已知，回答下列问题。 计算法向齿距Pn。
略