WOLFRAM NOTEBOOK

WOLFRAM|DEMONSTRATIONS PROJECT

Maximum Size of Involute Gear Teeth

grow involute surface

number of pairs

width

show polygon

show left

Lighter

:Darker[ColorData[97][2],0.7] should be a valid color directive, an image, or a list of them.

Lighter

:Darker[ColorData[97][1],0.58] should be a valid color directive, an image, or a list of them.

Lighter

:Darker[ColorData[97][3],0.75] should be a valid color directive, an image, or a list of them.

General

:Further output of Lighter::arg will be suppressed during this calculation.

MapThread

:Object ColorData[97,ColorList]〚{2,1,3,4,5,6,7,8,9,10}〛 at position {2, 2} in MapThread[{Specularity[White,#1],#2,Lighting#3}&,{{3,3,3,6,6,6,6,3,6,6},1,{{{Ambient,Lighter[Darker[ColorData[1][1],0.7],0.05]},{Directional,Darker[ColorData[97][2],0.7],ImageScaled[{0,2,2}]},{1},{Directional,Darker[ColorData[97][2],0.7],ImageScaled[{2,0,2}]}},9}}] has only 0 of required 1 dimensions.

Pairs of surfaces with the involutes of a circle as cross sections are plotted from the vertices of regular polygons. The diameter of the circle where the surfaces meet determines the maximum theoretically possible involute gear tooth size.

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.

I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.