Some interesting Mathematica plots

Copy paste all into a Mathematica notebook and evaluate.

---

ParametricPlot[{t*E^Sin[t], t*E^Cos[t]}, {t, -100, 100}]

ParametricPlot[{t*Sin[t], Sin[t]}, {t, -10, 10}]

ParametricPlot[{(t*Sin[t]), (t*Cos[t])}, {t, -100, 100}]

ParametricPlot[{Sin[t] + Sin[2 t], Sin[2 t] + Sin[3 t]}, {t, -10, 10}]

ParametricPlot[{Sin[4 t], Sin[5 t]}, {t, -10, 10}]

ParametricPlot[{Sin[8 t] + Sin[9 t], Sin[9 t] + Sin[10 t]}, {t, -10,
  10}]

ParametricPlot[{t*Sin[t], t*Sin[t] + Sin[20 t]}, {t, -10, 10}]

ParametricPlot[{(Sin[
     t]*(E^Cos[t] - 2 Cos[4 t] - (Sin[t/12])^5)), (Cos[
     t]*(E^Cos[t] - 2 Cos[4 t] - (Sin[t/12])^5))}, {t, -150, 150}]

ParametricPlot[{Sin[t]*Cos[t] Log[Abs[t]],
  Sqrt[Abs[t]] (Cos[t])}, {t, -100, 100}]

ParametricPlot[{Sin[t]*Cos[t] Log[Abs[t]],
  Sqrt[Abs[t]] (Cos[t])}, {t, -1, 1}]

ParametricPlot[{Sin[t]*Cos[t] Log[Abs[t]],
  Sqrt[Abs[t]] (Cos[t])^3}, {t, -100, 100}]

ParametricPlot[{Sin[t]*Cos[t] Log[Abs[t]],
  Sqrt[Abs[t]] (Cos[t])^E}, {t, -100, 100}]

ParametricPlot[{t*Abs[Sin[t]], t*Abs[(Cos[t])]}, {t, -50, 50}]

PolarPlot[Sin[5 t], {t, 0, 2 Pi}]

PolarPlot[t, {t, 0, 5 Pi}]

PolarPlot[1 + 1/10 Sin[25 t], {t, 0, 2 Pi}]

PolarPlot[Sin[100 t] + Sin[3 t], {t, 0, 5 Pi}]

PolarPlot[Sin[100 t] + Sin[25 t], {t, 0, 5 Pi}]

PolarPlot[t^2, {t, 0, 100 Pi}]

---