渐开线外花键跨棒距的计算
din5480花键跨棒距公差计算
din5480花键跨棒距公差计算
DIN 5480是一种德国国家标准，用于定义花键和轴承中心的
跨棒距公差。
花键跨棒距公差的计算主要涉及两个参数：花键宽度（b）和
轴承中心距（BCD）。
公差计算公式如下：
公差=K1*（b/BCD）^K2
其中，K1和K2是由DIN 5480标准给出的常数，其数值取决
于花键的类型和尺寸等。
具体的公差数值可以参考DIN 5480标准的相关表格或者公式
进行计算。
在实际应用中，可以根据所需的公差等级和具体的花键尺寸参数，选择合适的公差数值。
需要注意的是，花键跨棒距公差的计算只是其中一项工艺要求，还需要考虑其他因素如材料的热胀冷缩、制造工艺等。
因此，在实际应用中还应综合考虑这些因素，以确保花键和轴承的匹配和工作性能。
外渐开线跨棒距及接触圆直径等参数的互相计算及VB代码
外渐开线跨棒距及接触圆直径等参数的互相计算及VB代码一、已知接触点在dx圆处的量棒直径为dlx和dx圆处刀具弧齿厚Sx, 计算测量值M及相关参数的过程；1、分度圆直径：d=m*z2、拉刀基圆直径：d0=d*cos(ap) ap为拉刀压力角3、拉刀渐开线函数：inva=Tan(ap1) - ap14、5、分度圆处齿厚：sf = pi * m / 2 pi=3.1415926546、7、量棒dx中心处渐开线函数invae = s x/ d + inva + dlx / d0 - pi / z由下面公式带入得：8、中心角函数的算法：ae = Atn(1.442252453 * invae ^ (1 / 3) + 0.599931525 * invae +0.1093716057 * invae ^ 1.67 - 0.01932924212 * invae ^ 2.26)9、量棒与齿形的接触点通过的任意圆直径: dx = Sqr((d0 * Tan(ae) - dlx) ^ 2 + d0 ^ 2)其中中心角ae=(wx+ax) tan(ae)=O1B/r0 推导出：O1B=r0*tan(ae)在直角三角形OPB中dx=SQR（PB^2+r0^2）推导出：dx = Sqr((d0 * Tan(ae) - dlx) ^ 2 + d0 ^ 2)10、M值的计算见上VB的form窗口设置及计算结果如下：VB代码如下：Public Function 弧转角(temp As Double) As DoubleDim pi As Doublepi = 4 * Atn(1#)弧转角= temp * 180 / piEnd FunctionPublic Function 精度限制(k2 As Double, k1 As Double) As Integer Dim temp As Doubletemp = Abs(k2 - k1) / (1 + Abs(k2)) - 0.00000001If temp < 0 Then精度限制= 1Else精度限制= 0End If'Public Function getarf(myarf As Double) As Double' Dim a As Double' a = Val(Text1)' getarf = myarf - (Tan(myarf) - myarf - a) / (Tan(myarf) * Tan(myarf)) 'End FunctionPublic Function 开3次方(temp As Double) As DoubleDim pi As Double开3次方= Exp(Log(temp) / 3)End FunctionPrivate Sub Command1_Click()Dim pi As DoubleDim m As DoubleDim z As IntegerDim ap As DoubleDim ap1 As DoubleDim s As DoubleDim dlx As DoubleDim dlx1 As DoubleDim d As DoubleDim d0 As DoubleDim inva As DoubleDim invae As DoubleDim ae As DoubleDim ae1 As DoubleDim dx As DoubleDim mo As DoubleDim mj As DoubleDim sg As DoubleDim xg As DoubleDim dl As DoubleDim wf As DoubleDim tf As DoubleDim sf As DoubleDim a1 As DoubleDim b As DoubleDim b1 As DoubleDim invae1 As DoubleDim w As DoubleDim mre As DoubleDim oo1 As DoubleDim smax As DoubleDim n As IntegerDim arf0 As DoubleDim arf1 As DoubleDim arf2 As DoubleDim a As Doublepi = 3.141592654m = Val(Text1)z = Val(Text2)ap = Val(Text3)mre = Val(Text4)dlx = Val(Text7)dlx1 = Val(Text30)If m <> 0 ThenIf z <> 0 ThenIf ap <> 0 ThenIf mre <> 0 ThenIf dlx <> 0 Thend = m * zap1 = pi / 180 * apd0 = d * Cos(ap1)inva = Tan(ap1) - ap1tf = pi * msf = pi * m / 2wf = 57.29578 * ((tf - sf) / d)dl = d * Sin(wf * pi / 180) / Cos(ap1 + wf * pi / 180)If z Mod 2 = 0 Thenoo1 = (d0 / 2) * (mre - dlx) / d0Elseoo1 = (d0 / 2) * (mre - dlx) / (d0 * Cos(90 / z * pi / 180))End Ifae = Atn((Sqr(oo1 ^ 2 - (d0 / 2) ^ 2)) / (d0 / 2))invae = Tan(ae) - aesmax = d * (invae - inva - dlx / d0 + pi / z)If dlx1 = 0 Then'invae = s / d + inva + dlx / d0 - pi / z'ae = Atn(1.442252453 * invae ^ (1 / 3) + 0.599931525 * invae + 0.1093716057 * invae ^ 1.67 - 0.01932924212 * invae ^ 2.26)'a = invae'arf0 = 开3次方(a * 3)'arf2 = arf0 - (Tan(arf0) - arf0 - a) / (Tan(arf0) * Tan(arf0))'Do' arf1 = arf2' arf2 = arf2 - (Tan(arf2) - arf2 - a) / (Tan(arf2) * Tan(arf2)) 'Loop Until 精度限制(arf2, arf1) = 1' ae = arf2ae1 = ae * 180 / pidx = Sqr((d0 * Tan(ae) - dlx) ^ 2 + d0 ^ 2)If z Mod 2 = 0 Thenmo = d0 / Cos(ae) + dlxText8 = ""Text9 = ""Text0 = ""Text11 = ""Text12 = ""Text13 = ""Text14 = ""Text15 = ""Text14 = Format(mo, "0.00000")Elsemj = (d0 / Cos(ae)) * Cos((90 / z) * pi / 180) + dlxText8 = ""Text9 = ""Text0 = ""Text11 = ""Text12 = ""Text13 = ""Text14 = ""Text15 = ""Text15 = Format(mj, "0.00000")End IfText8 = Format(d, "0.000000000000")Text9 = Format(d0, "0.000000000000")Text10 = Format(inva, "0.000000000000")Text11 = Format(invae, "0.000000000000")Text12 = Format(ae1, "0.000000000000")Text5 = Format(smax, "0.000000000000")Text13 = Format(dx, "0.000000000000")Elseinvae1 = smax / d + inva + dlx1 / d0 - pi / z'ae1 = Atn(1.442252453 * invae1 ^ (1 / 3) + 0.599931525 * invae1 + 0.1093716057 * invae1 ^ 1.67 - 0.01932924212 * invae1 ^ 2.26)a = invae1arf0 = 开3次方(a * 3)arf2 = arf0 - (Tan(arf0) - arf0 - a) / (Tan(arf0) * Tan(arf0))Doarf1 = arf2arf2 = arf2 - (Tan(arf2) - arf2 - a) / (Tan(arf2) * Tan(arf2))Loop Until 精度限制(arf2, arf1) = 1ae1 = arf2dx = Sqr((d0 * Tan(ae1) - dlx1) ^ 2 + d0 ^ 2)If z Mod 2 = 0 Thenmo = d0 / Cos(ae1) + dlx1Text8 = ""Text9 = ""Text0 = ""Text11 = ""Text12 = ""Text13 = ""Text14 = ""Text15 = ""Text14 = Format(mo, "0.00000")Elsemj = (d0 / Cos(ae1)) * Cos((90 / z) * pi / 180) + dlx1Text8 = ""Text9 = ""Text0 = ""Text11 = ""Text12 = ""Text13 = ""Text14 = ""Text15 = ""Text15 = Format(mj, "0.00000")End IfText8 = Format(d, "0.000000000000")Text9 = Format(d0, "0.000000000000")Text10 = Format(inva, "0.000000000000")Text11 = Format(invae1, "0.000000000000")Text12 = Format(ae1, "0.000000000000")Text5 = Format(smax, "0.000000000000")Text13 = Format(dx, "0.000000000000")End If'a = invae'arf0 = 开3次方(a * 3)'arf2 = arf0 - (Tan(arf0) - arf0 - a) / (Tan(arf0) * Tan(arf0))'Do' arf1 = arf2' arf2 = arf2 - (Tan(arf2) - arf2 - a) / (Tan(arf2) * Tan(arf2))'Loop Until 精度限制(arf2, arf1) = 1' ae = arf2ElseMsgBox "请输入量棒直径dlx数据并保证输入正确", vbInformation, "信息"End IfElseMsgBox "请输入跨棒距MREmax数据并保证输入正确", vbInformation, "信息"End IfElseMsgBox "请输入标准压力角ap数据并保证输入正确", vbInformation, "信息"End IfElseMsgBox "请输入齿数z数据并保证输入正确", vbInformation, "信息"End IfElseMsgBox "请输入模数m数据并保证输入正确", vbInformation, "信息"End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Command3_Click()Dim pi As DoubleDim m As DoubleDim z As IntegerDim ap As DoubleDim ap1 As DoubleDim sx As Double Dim dlx As Double Dim dlx1 As Double Dim d As DoubleDim d0 As Double Dim inva As Double Dim invae As Double Dim ae As Double Dim ae1 As Double Dim dx As Double Dim mo As Double Dim mj As Double Dim sg As Double Dim xg As Double Dim dl As DoubleDim wf As Double Dim tf As DoubleDim sf As DoubleDim a1 As Double Dim b As DoubleDim b1 As Double Dim invae1 As Double Dim w As DoubleDim mre As Double Dim oo1 As Double Dim smax As DoubleDim i As IntegerDim n As IntegerDim arf0 As DoubleDim arf1 As DoubleDim arf2 As DoubleDim a As Doublepi = 3.141592654m = Val(Text16)z = Val(Text17)ap = Val(Text18)mre = Val(Text6)dlx = Val(Text29)dx = Val(Text19)If m <> 0 ThenIf z <> 0 ThenIf ap <> 0 ThenIf mre <> 0 ThenIf dlx <> 0 Thend = m * zap1 = pi / 180 * apd0 = d * Cos(ap1)inva = Tan(ap1) - ap1tf = pi * msf = pi * m / 2wf = 57.29578 * ((tf - sf) / d)dl = d * Sin(wf * pi / 180) / Cos(ap1 + wf * pi / 180)If z Mod 2 = 0 Thenoo1 = (d0 / 2) * (mre - dlx) / d0Elseoo1 = (d0 / 2) * (mre - dlx) / (d0 * Cos(90 / z * pi / 180))End Ifae = Atn((Sqr(oo1 ^ 2 - (d0 / 2) ^ 2)) / (d0 / 2))invae = Tan(ae) - aesmax = d * (invae - inva - dlx / d0 + pi / z)ax = Atn(Sqr(dx ^ 2 - d0 ^ 2) / d0)invax = Tan(ax) - axsx = dx * (smax / d + inva - invax)wx = pi / z - sx / dxdlx1 = dx * Sin(wx) / Cos(ax + wx)'invae = s / d + inva + dlx / d0 - pi / z'ae = Atn(1.442252453 * invae ^ (1 / 3) + 0.599931525 * invae + 0.1093716057 * invae ^ 1.67 - 0.01932924212 * invae ^ 2.26)'a = invae' arf0 = 开3次方(a * 3)'arf2 = arf0 - (Tan(arf0) - arf0 - a) / (Tan(arf0) * Tan(arf0))' Do' arf1 = arf2' arf2 = arf2 - (Tan(arf2) - arf2 - a) / (Tan(arf2) * Tan(arf2))' Loop Until 精度限制(arf2, arf1) = 1' ae = arf2ae1 = ae * 180 / piIf z Mod 2 = 0 Thenmo = d0 / Cos(ax + wx) + dlx1Text20 = ""Text21 = ""Text22 = ""Text23 = ""Text24 = ""Text25 = ""Text26 = ""Text27 = ""Text28 = ""Text27 = Format(mo, "0.0000")Elsemj = (d0 / Cos(ax + wx)) * Cos((90 / z) * pi / 180) + dlx1Text20 = ""Text21 = ""Text22 = ""Text23 = ""Text24 = ""Text25 = ""Text26 = ""Text27 = ""Text28 = ""Text28 = Format(mj, "0.0000")End IfText20 = Format(d, "0.000000000000")Text21 = Format(d0, "0.000000000000")Text22 = Format(inva, "0.000000000000")Text23 = Format(ax * 180 / pi, "0.000000000000")Text24 = Format(sx, "0.000000000000")Text25 = Format(wx * 180 / pi, "0.000000000000")Text26 = Format(dlx1, "0.0000")ElseMsgBox "请输入量棒直径dlx数据并保证输入正确", vbInformation, "信息"End IfElseMsgBox "请输入跨棒距MREmax数据并保证输入正确", vbInformation, "信息"End IfElseMsgBox "请输入标准压力角ap数据并保证输入正确", vbInformation, "信息"End IfElseMsgBox "请输入齿数z数据并保证输入正确", vbInformation, "信息" End IfElseMsgBox "请输入模数m数据并保证输入正确", vbInformation, "信息" End IfEnd Sub。
DIN5480渐开线花键跨棒距、棒间距
DIN5480德标花键检测、测量、量棒、跨棒距、棒间距计算公式
DIN5480花键标准是德国于1986年颁布实施的米制模数变位制花键标准；该标准于2005年及2006年做了修订，标准号为DIN5480-1及DIN5480-2,这两个新标准各包含不同的内容，共同构成新的标准。
自80年代以来，我国大规模引进了德国汽车及液压产品技术，DIN5480花键在我国已被广泛使用，除了采用定型刀具（主要是拉刀）大批量生产定型产品外，采用通用加工手段少量配制DIN花键的情况也日益增多。
DIN花键检测方法是用量棒来测定跨棒距或棒间距，但是DIN花键计算公式繁琐，一般加工单位无法掌握。
我司对花键的加工和检测有丰富的检验，常年为上海、苏州、无锡等地的外资企业生产DIN花键，对跨棒距或棒间距的计算方法非常熟悉，因此欢迎有需要的厂家、工厂技术人员洽谈合作，为你们提供棒间距和跨棒距的计算服务，也可以探讨技术问题。
微信号：ydc8789
收费标准：不论花键大小，一律30元。
DIN5480 花键棒间距、跨棒距速查手册
苏州某企业齿轮内花键DIN5480 N55X3X30X17X7H 量棒直径5.25 棒间距43.836~43.885
无锡某企业齿轮外花键DIN5480 W200X5X30X38X8g 量棒直径10 棒间距210.025~210.094
滚齿机
数控插齿机。
渐开线外花键跨棒距的计算
渐开线外花键跨棒距的计算首先，为了计算外花键跨棒距，我们需要知道以下几个参数：1.渐开线轮副的模数（m）：模数是渐开线轮副的一个基本尺寸参数，代表每个花键上的齿数。
2.渐开线轮副的压力角（α）：压力角是花键与圆周的切线之间的夹角，通常用角度（度）或弧度表示。
3.渐开线轮副花键的齿顶高（h）：齿顶高是花键与圆周的最高点之间的距离。
4.渐开线轮副花键的齿顶宽（b）：齿顶宽是花键的宽度。
5.渐开线轮副花键的侧面角（θ）：侧面角是花键侧面与圆周的夹角。
在渐开线轮副中，外花键跨棒距的计算可以通过以下公式得出：跨棒距= π * m / sin(α)在实际应用中，通常可以事先给定花键齿顶高（h）、齿顶宽（b）和侧面角（θ），然后根据所需的外花键跨棒距来计算模数（m）和压力角（α）。
1.模数的计算公式如下：m = (2 * h * tan(θ)) / b2.压力角的计算公式如下：α = arcsin((π * m) / 跨棒距)通过这些公式，可以根据给定的花键参数和所需的跨棒距来计算出适当的模数和压力角。
需要注意的是，渐开线外花键跨棒距的计算仅适用于标准的渐开线花键形状。
对于特殊形状的花键，可能需要使用不同的计算方法。
在工程设计中，渐开线轮副被广泛应用于各种机械传动装置中，特别是在高精度、高扭矩和高转速的应用中。
准确计算渐开线外花键跨棒距对于确保渐开线轮副的正常运行和性能非常重要。
总之，渐开线外花键跨棒距的计算是通过花键的几何参数和所需的跨棒距来确定的。
这些参数可以根据给定的条件使用相关的公式进行计算。
在设计和应用渐开线轮副时，正确计算外花键跨棒距可以确保轮副的正确配合和优良的性能。
双径节渐开线花键检测尺寸的计算及控制
双径节渐开线花键检测尺寸的计算及控制太原重工挖掘焦化设备分公司 (山西 030024) 张力【摘要】渐开线花键为短齿，啮合中内外花键可以方便地拆卸、滑动及同定联接，既能传递转矩，又有必要的对中性。
由于制造精度容易达到，所以，目前重型矿山设备中大量采用渐开线花键代替矩形花键。
【期刊名称】金属加工：冷加工【年(卷),期】2011(000)020【总页数】3【关键词】渐开线花键;控制;计算;尺寸;检测;传递转矩;制造精度;矩形花键渐开线花键为短齿，啮合中内外花键可以方便地拆卸、滑动及固定联接，既能传递转矩，又有必要的对中性。
由于制造精度容易达到，所以，目前重型矿山设备中大量采用渐开线花键代替矩形花键。
我公司生产的大型矿用挖掘机中，采用双径节渐开线花键的联接件较多。
核算尺寸以及生产备件时必须深入了解和掌握双径节渐开线花键的内容，本文将着重介绍双径节渐开线花键检测尺寸的计算和控制。
1.中、美渐开线花键标准的主要区别美国渐开线花键标准(以下简称美标)与我国渐开线花键标准(以下简称国标)虽不相同，但是均采用渐开线，且压力角大多采用30°。
现将主要相同与不同点简要介绍如下:(1)国标采用模数制，尺寸系列为米制;美标采用双径节制，尺寸系列为英寸制。
双径节的含义如图1所示。
由图可知，DP表示径节，齿厚由双径节的分子决定，齿顶高由双径节的分母决定。
例如:径节为，表示花键的齿厚为=0.1963in，齿顶高为=0.0625in(1in=25.4mm)。
(2)国标和美标渐开线花键均不变位。
(3)国标和美标花键的齿顶高系数相同，均是0.5;齿根高系数及顶隙系数均不相同，因而不能用国标花键刀具加工美标渐开线花键。
(4)美标规定花键齿数从8到50，国标GB3478.1-1983规定齿数从10到100。
由于内齿一般采用插齿加工，齿数不宜太少，故常用齿数为20到50。
(5)美标采用齿形定心，国标亦有齿形定心。
其特点是具有自动定心作用，有利于各齿均匀承载，推荐优先采用。
渐开线花键计算公式及参数标注方法
渐开线花键计算公式及参数标注方法一、渐开线花键的几何参数1. 花键尺寸（Keyway Size）：指的是渐开线花键的宽度，通常用顶孔（Recess）和底孔（Sockets）直径来表示。
2. 螺纹角（Helix Angle）：指的是渐开线花键的螺纹线的倾斜角度。
3. 螺纹高度（Helix Height）：指的是渐开线花键的螺纹线的高度，通常用顶孔和底孔之间的距离来表示。
二、渐开线花键的计算公式1.花键尺寸计算公式-花键尺寸公式由ISO2790标准规定，根据轴的直径（d）可以计算出花键尺寸。
- 花键顶孔直径（D）= 轴的直径（d）+ 0.15mm- 花键底孔直径（d1）= 轴的直径（d）+ 0.25mm2.螺纹角计算公式-螺纹角一般由图纸给出，也可以通过以下公式计算：- 螺纹角（α）= arctan（H / (π * d)）其中，H为螺纹高度。
在制作渐开线花键图纸时，需要对相关参数进行标注，以便于加工和使用。
1.标注花键尺寸-在图纸上标注花键尺寸时，可以使用简化的标注方法，如在顶孔和底孔的直径符号上加上对应的数值。
2.标注螺纹角和螺纹高度-在图纸上标注螺纹角和螺纹高度时，可以使用直线段和字母表示，如在花键尺寸标注旁边加上α和H的符号，并注明对应的数值。
3.标注公差要求-在图纸上标注公差要求时，可以使用ISO系统的标准符号，如使用T字号来表示公差要求，并在标注下方注明对应的公差范围。
四、常见问题与解决方法在渐开线花键的设计和标注过程中，可能会遇到一些常见问题，下面列举几个常见问题并给出解决方法：1.如何选择合适的渐开线花键尺寸？-渐开线花键尺寸的选择需要考虑轴的直径和应力情况，一般建议按照ISO标准进行选择。
2.如何计算渐开线花键的扭矩传递能力？-渐开线花键的扭矩传递能力可以通过以下公式计算：T=(π/16)*τ*h*d，其中T为扭矩传递能力，τ为材料的抗扭转应力，h为花键的高度，d为轴的直径。
3.如何在CAD软件中绘制渐开线花键图纸？-在CAD软件中，可以使用线段和圆弧工具来绘制渐开线花键的轮廓，然后使用文字工具来标注相关参数。
din5480渐开线花键跨棒距、棒间距
din5480渐开线花键跨棒距、棒间距DIN5480德标花键检测、测量、量棒、跨棒距、棒间距计算公式
DIN5480花键标准是德国于1986年颁布实施的米制模数变位制花键标准;该标准于2005年及2006年做了修订，标准号为DIN5480-1及DIN5480-2,这两个新标准各包含不同的内容，共同构成新的标准。
自80年代以来，我国大规模引进了德国汽车及液压产品技术，DIN5480花键在我国已被广泛使用，除了采用定型刀具(主要是拉刀)大批量生产定型产品外，采用通用加工手段少量配制DIN花键的情况也日益增多。
DIN花键检测方法是用量棒来测定跨棒距或棒间距，但是DIN花键计算公式繁琐，一般加工单位无法掌握。
我司对花键的加工和检测有丰富的检验，常年为上海、苏州、无锡等地的外资企业生产DIN花键，对跨棒距或棒间距的计算方法非常熟悉，因此欢迎有需要的厂家、工厂技术人员洽谈合作，为你们提供棒间距和跨棒距的计算服务，也可以探讨技术问题。
微信号:ydc8789
收费标准:不论花键大小，一律30元。
DIN5480 花键棒间距、跨棒距速查手册
苏州某企业齿轮内花键DIN5480 N55X3X30X17X7H 量棒直径5.25 棒间距43.836~43.885
无锡某企业齿轮外花键DIN5480 W200X5X30X38X8g 量棒直径10 棒间距210.025~210.094
滚齿机
数控插齿机。
外花键量棒测量距离计算
