Gráficas de ecuaciones con sumas de senos y cosenos

 Descargar como Notebook

Representar las soluciones de las ecuaciones:

por ejemplo, para n = 5,

cos[x cos[0] + y sen[0]] + cos[x cos[\[Pi]/5] + y sen[\[Pi]/5]] + 

  cos[x cos[(2 \[Pi])/5] + y sen[(2 \[Pi])/5]] + 

  cos[x cos[(3 \[Pi])/5] + y sen[(3 \[Pi])/5]] + 

  cos[x cos[(4 \[Pi])/5] + y sen[(4 \[Pi])/5]] == 0.5

su gráfica es,

n = 5;

ContourPlot[

 Sum[Cos[x Cos[Pi k/n] + y Sin[Pi k/n]], {k, 0, n - 1}] == 

  0.5, {x, -50, 50}, {y, -50, 50}]

Para n=7,

n = 7;

ContourPlot[

 Sum[Cos[x Cos[Pi k/n] + y Sin[Pi k/n]], {k, 0, n - 1}] == 

  0.5, {x, -50, 50}, {y, -50, 50}]

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