Gráficas en Coordenadas Polares

Descargar como Notebook

El comando básico es PolarPlot

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

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

PolarPlot[{Sin[t], Cos[t]}, {t, 0, Pi}]

Opciones sobre los ejes

Manipulate[
 PolarPlot[Sin[3 t], {t, 0, Pi}, PolarGridLines -> lines, 
  PolarAxes -> axes], {{lines, True, "Líneas"}, {True, False, 
   Automatic}}, {{axes, True, "Eje"}, {True, False, Automatic}}]

Construcciones

Principales gráficas en polares

Manipulate[
 PolarPlot[{r, 2}, {t, 0, a}, PolarAxes -> True, PlotRange -> 4, 
  PolarGridLines -> {True, {1, 2, 3}}, 
  PolarTicks -> {Table[n Pi/6, {n, 0, 12}], {1, 2}}, 
  PlotStyle -> {Red, LightGray}], {{a, 2 \[Pi]}, 0.00001, 
  2 \[Pi]}, {{r, 3 Sin[t], "Función r"}, {3 Sin[t] -> "3 Sen(t)", 
   3 Cos[t] -> "3 Cos(t)", 1.5 - 1.5 Sin[t] -> "3/2(1-Sen(t))", 
   1.5 + 1.5 Sin[t] -> "3/2(1+Sen(t))", 
   1.5 - 1.5 Cos[t] -> "3/2(1-Cos(t))", 
   1.5 + 1.5 Cos[t] -> "3/2(1+Cos(t))", 1 + 2 Sin[t] -> "1+2Sen(t)", 
   3 Sin[2 t] -> "3 Sen(2t)", 3 Cos[3 t] -> "3 Cos(3t)"}}]

Rosas

Manipulate[
 PolarPlot[Sin[n t], {t, 0, a}, PolarGridLines -> Automatic, 
  PolarAxes -> True, PlotRange -> 2, PlotStyle -> Red], {{a, Pi}, 
  Pi/2, 2 \[Pi]}, {n, 1, 12, 1}]

Otros gráficos

ListPolarPlot[Table[Sin[2 t] Cos[2 t], {t, 0, 2 Pi, 0.01}], 
 PolarAxes -> Automatic, 
 PolarGridLines -> {{{Pi/6, Blue}, {Pi/3, Red}, 
    3 Pi/2, {Pi, Dashed}}, {{0.2, Red}, {0.4, Cyan}, {0.6, Red}, 
    0.8}}, PolarTicks -> {"Degrees", Automatic}]

PolarPlot[Sin[3 t] Cos[5 t], {t, 0, 2 Pi}, 
 PolarGridLines -> Automatic, PolarAxes -> True, 
 GridLinesStyle -> Directive[Dotted, Orange], PlotRange -> 1.5]

Para aprender más sobre Mathematica ingrese aquí sitio de aprendizaje de Wolfram o en mi website ustamathematica.wixsite.com/basicas