Involute Gears

Involute GearsThe ideal profile for a gear tooth is the involute of a circle. Here is some Mathematica code:
IR = 0.875; OR = 1.125; tmax = Sqrt[OR^2/IR^2 - 1]; theta := Abs[tmax - Mod[t, 2tmax]]; sign := 2Floor[Mod[t/tmax, 2]] - 1;
Rotate[{x_, y_}, theta_] := {x Cos[theta] - y Sin[theta], x Sin[theta] + y Cos[theta]};
ParametricPlot[IR Rotate[{Cos[theta] + theta Sin[theta], sign(Sin[theta] - theta Cos[theta])}, Floor[t/(2tmax)]Pi/5 + 0.109152sign], {t, 0, 20.001tmax}, AspectRatio -> 1];

See also my gear orbit trap.



0 Responses to “Involute Gears”

  1. Leave a Comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Welcome !

You will find here some of my favorite hobbies and interests, especially science and art.

I hope you enjoy it!

Subscribe to the RSS feed to stay informed when I publish something new here.

I would love to hear from you! Please feel free to send me an email : bugman123-at-gmail-dot-com


Blog Stats

  • 553,072 hits

%d bloggers like this: