Gráficas de la función Seno en polares

Descargar como Notebook

Veamos las gráficas polares de la función Sen (n θ/d) donde n y d toman valores enteros entre 1 y 7, he hecho variar θ entre 0 y 16 π pero esto sólo es necesario para las gráficas de mayor complejidad, las primera no necesitan de tanto recorrido de θ.

TableForm[
 Table[PolarPlot[Sin[n θ/d], {θ, 0, 16 Pi}, 
   PlotRange -> 1, Ticks -> None, Axes -> False], {n, 1, 7, 1}, 
{d, 1,7, 1}], 
 TableHeadings -> {{"n=1", "n=2", "n=3", "n=4", "n=5", "n=6", 
    "n=7"}, {"d=1", "d=2", "d=3", "d=4", "d=5", "d=6", "d=7"}}]

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