' Calculate involute angle at pin center ' inv(alpha_m) = inv(alpha_D) + D_M / (d_b) - (s / d_b) ' Assuming tooth thickness s = m * pi / 2 (Basic) Dim s As Double s = m * WorksheetFunction.Pi() / 2
The calculator outputs specific dimensions for both the shaft (external spline) and the hub (internal spline): and Root Diameter ( df1d sub f 1 end-sub ) Hub Tip Diameter ( da2d sub a 2 end-sub ) and Root Diameter ( df2d sub f 2 end-sub ) 3. Inspection and Measurement Data din 5480 spline calculator excel new
' --- 1. Read Inputs --- Dim m As Double, z As Long, alphaD As Double Dim toleranceClass As String ' Calculate involute angle at pin center '
Tip Diameter (da1)=m×(z+1)Tip Diameter open paren d sub a 1 end-sub close paren equals m cross open paren z plus 1 close paren z As Long