Guest User

Untitled

a guest
Jan 17th, 2018
89
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.18 KB | None | 0 0
  1. R = 5; r = 4; d = 2;
  2. ParametricPlot[{(R - r) Cos[t] + d Cos[(R/r - 1) t], (R - r) Sin[t] -
  3. d Sin[(R/r - 1) t]}, {t, 0, 25}, PlotStyle -> {Red, Thick},
  4. GridLines -> Automatic]
Add Comment
Please, Sign In to add comment