Posted By

gatewksbury on 06/11/15


Tagged

graphics curves Mathematica


Versions (?)

The Heart Curve


 / Published in: Other
 

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

This will create a graphic that has six versions of the curve in one

  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. [email protected][{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. ]

Report this snippet  

You need to login to post a comment.