Murciélago Complejo

Descargar como Notebook

Dadas las funciones

A[t] = 3 Sin³[t] - 3 I/4 Cos[4 t] y B[t] = 3/2 Sin⁵[t] - I/2 Cos[3 t]

graficando la parte real y la parte imaginaria del segmento que las une, podemos encontrar una gráfica que se asemeja a un murciélago.

A[t_] := 3. Sin[t]^3 - 3 I/4 Cos[4 t]
B[t_] := 3./2 Sin[t]^5 - I/2 Cos[3 t]
ParametricPlot[
 ReIm[λ A[t] + (1 -λ) B[t]], {λ, -1, 1}, {t,  0, 2 Pi}]

Podemos generar otro tipo de figuras variando el intervalo de Lambda.

Manipulate[
 ParametricPlot[
  ReIm[λ A[t] + (1 - λ) B[t]], {λ, -a, a}, {t,0, 2 Pi}], {a, 0.0001, 5}]

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