Amor y Amistad

Descargar como Notebook

Para terminar el mes de amor y amistad

color = Directive[RGBColor[1.`, 0.06`, 0.46`], AbsoluteThickness[5]];
Grid[{{Plot[1/x, {x, -1, 5}, PlotRange -> {0, 6}, PlotStyle -> color],
    ContourPlot[x^2 + y^2 == 1, {x, -1.5, 1.5}, {y, -1.5, 1.5}, 
    ContourStyle -> color], 
   Plot[Abs[2 x], {x, -2, 2}, PlotStyle -> color], 
   ContourPlot[x == -3 Abs[Sin[y]], {x, -3, 1}, {y, -3, 3}, 
    ContourStyle -> color]}}]

ContourPlot[x^2 + (y - (x^2)^(1/3))^2 == 1, {x, -1.5, 1.5}, {y, -1, 1.7}, ContourStyle -> color]