Advanced Search

The Heart Curve

/ Published in: Other
Save to your folder(s)
This will create a graphic that has six versions of the curve in one

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  1. With[{style = 9}, GraphicsGrid[Partition[{
  2.     PolarPlot[1 - Sin[t], {t, 0, 2 \[Pi]}, Ticks -> None, 
  3.      PlotStyle -> Red,
  4.      PlotLabel -> r == 1 - Sin[\[Theta]], 
  5.      BaseStyle -> {style, FontSize -> 18}],
  6.     ContourPlot[-x^2 z^3 + (-1 + x^2 + z^2)^3, {x, -1.2, 1.2}, {z, -1,
  7.        1.3}, Contours -> {0}, ContourShading -> False, Frame -> False,
  8.       PlotLabel -> -x^2 y^3 + (-1 + x^2 + y^2)^3 == 0, 
  9.      ContourStyle -> Red, Axes -> True, Ticks -> None, 
  10.      BaseStyle -> {style, FontSize -> 18}],
  11.     ParametricPlot[{Log[Abs[t]] Sin[t] Cos[t], 
  12.       Abs[t]^.3 Sqrt[Cos[t]]}, {t, -1, 1},
  13.      AspectRatio -> Automatic, BaseStyle -> {style, FontSize -> 18},
  14.      PlotPoints -> 100, PlotStyle -> Red, PlotRange -> All, 
  15.      Ticks -> False, 
  16.      PlotLabel -> 
  17.       Column@Thread[{x, y} == {Log[Abs[t]] Sin[t] Cos[t], 
  18.           Abs[t]^.3 Sqrt[Cos[t]]}]],
  19.     Plot[2/
  20.           3 ((x^2 + Abs[x] - 6)/(x^2 + Abs[x] + 2)) + # (36 - x^2)^(1/
  21.             2) & /@ {-1, 1}, {x, -6, 6}, PlotStyle -> Red, 
  22.      BaseStyle -> {style, FontSize -> 18}, AspectRatio -> Automatic, 
  23.      Ticks -> False, 
  24.      PlotLabel -> (y - (2/
  25.               3 ((x^2 + Abs[x] - 6)/(x^2 + Abs[x] + 2))))^2 + x^2 == 
  26.        36],
  27.     PolarPlot[
  28.      2 - 2 Sin[t] + Sin[t] Sqrt[Abs[Cos[t]]]/(Sin[t] + 7/5), {t, 0, 
  29.       2 \[Pi]}, PlotStyle -> Red, Ticks -> False, 
  30.      PlotLabel -> 
  31.       r == 2 - 2 Sin[t] + Sin[t] Sqrt[Abs[Cos[t]]]/(Sin[t] + 7/5), 
  32.      BaseStyle -> {style, FontSize -> 18}],
  33.     ParametricPlot[
  34.      par = {16 Sin[t]^3, 
  35.        13 Cos[t] - 5 Cos[2 t] - 2 Cos[3 t] - 
  36.         Cos[4 t]}, {t, -\[Pi], \[Pi]},
  37.      AspectRatio -> Automatic, BaseStyle -> {style, FontSize -> 18},
  38.      PlotPoints -> 100, PlotStyle -> Red, PlotRange -> All, 
  39.      Ticks -> False, 
  40.      PlotLabel -> 
  41.       TextCell[
  42.        Column[Thread[{x, y} == {16 Sin[t]^3, 
  43.            13 Cos[t] - 5 Cos[2 t] - 2 Cos[3 t] - Cos[4 t]}], 
  44.         Alignment -> Left], PageWidth -> 500/3]]
  45.     }, 3, 3, {1, 1}, {}], ImageSize -> 1920]
  46.  ]

URL: http://mathworld.wolfram.com/HeartCurve.html

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.