daily pastebin goal
6%
SHARE
TWEET

Untitled

a guest Dec 17th, 2018 65 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. f1[t_, a_] := {Sin[3*t + a], Tan[t + a]}
  2. f2[t_, a_] := {Sin[Exp[1.3*Sin[t - a]]] - Pi, Tan[t]}
  3. f3[t_, a_] := {-Sin[Exp[1.3*Sin[t - a]]] + Pi, Tan[t]}
  4. f4[t_, a_] := {Sin[2*t - a] + 1.75*Pi, Tan[t] + 1.2*Sin[t]}
  5. f5[t_, a_] := {-Sin[2*t - a] - 1.75*Pi, Tan[t] + 1.2*Sin[t]}
  6. g[a_] := ParametricPlot[{f1[t, a], f2[t, a], f3[t, a], f4[t, a],
  7.    f5[t, a]}, {t, 0, 2 Pi},
  8.   PlotRange -> {{-3 Pi, 3 Pi}, {-1.5 Pi, 1.5 Pi}}, Axes -> False,
  9.   PlotStyle -> {{Blue, Thickness[0.01]}}]
  10. duration := 600
  11. For[i = 0, i <= duration, i++,
  12.  Export["out" <> ToString[i] <> ".eps", g[E + 2 Pi*i/duration],
  13.   ImageResolution -> 600]]
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
 
Top