SHARE
TWEET

Cardioid

msollami Apr 6th, 2014 36 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Manipulate[
  2.  Graphics[{Table[
  3.     Line[{{Cos[r 3 \[Degree]],
  4.        Sin[r 3 \[Degree]]}, {Cos[2 r 3 \[Degree]],
  5.        Sin[2 r 3 \[Degree]]}}], {r, 0, n}]},
  6.   PlotRange -> {{-1, 1}, {-1, 1}}, ImageSize -> {500, 500}], {n, 1,
  7.   380}]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top