Curvas sobre algunas Superficies

Descargar como Notebook

Estas curvas presentan mayor interés cuando los valores de p y q son primos relativos entre sí, en este caso el número de puntas es pq.

Sobre un cilindro

Curvas sobre el cilindro: x² + y² = 1

Lazo que termina en puntas

Manipulate[

 Show[ContourPlot3D[

   x^2 + y^2 == 1, {x, -1, 1}, {y, -1, 1}, {z, -2, 2}, 

   ContourStyle -> Opacity[0.3], Mesh -> 1], 

  ParametricPlot3D[{Cos[q t], Sin[q t], ArcSin[Cos[p t]]}, {t, 0, 

    2 Pi}, PlotStyle -> {Red, Thickness[0.01]}]], {p, 1, 10, 1}, {q, 

  1, 10, 1}]

Lazos con puntas redondeadas

Show[ContourPlot3D[x^2 + y^2 == 1, {x, -1, 1}, {y, -1, 1}, {z, -2, 2},

    ContourStyle -> Opacity[0.3], Mesh -> 1], 

  ParametricPlot3D[{Cos[q t], Sin[q t], Cos[p t]}, {t, 0, 2 Pi}, 

   PlotStyle -> {Red, Thickness[0.01]}]], {p, 1, 10, 1}, {q, 1, 10, 

  1}]

Sobre un elipsoide

Elipsoide de ecuación: x² + y² + (k z)² = 1

Manipulate[

 Show[ContourPlot3D[

   x^2 + y^2 + k^2 z^2 == 1, {x, -1, 1}, {y, -1, 1}, {z, -1, 1}, 

   ContourStyle -> Opacity[0.8], Mesh -> 1], 

  ParametricPlot3D[{Cos[q t]/Sqrt[1 + k^2 Sin[p t]^2], 

    Sin[q t]/Sqrt[1 + k^2 Sin[p t]^2],

    Sin[p t]/Sqrt[1 + k^2 Sin[p t]^2]}, {t, 0, 2 Pi}, 

   PlotStyle -> {Red, Thickness[0.01]}]], {p, 1, 10, 1}, {q, 1, 10, 

  1}, {k, 1, 5, 1}]

Sobre un hiperboloide de una hoja

Hiperboloide de ecuación: x² + y² - k² z²/(1 + k²) = 1/(1 + k²)

Manipulate[

 Show[ContourPlot3D[

   x^2 + y^2 - k^2/(1 + k^2) z^2 == 1/(1 + k^2), {x, -1.1, 

    1.1}, {y, -1.1, 1.1}, {z, -1.1, 1.1}, 

   ContourStyle -> Opacity[0.5], Mesh -> 1], 

  ParametricPlot3D[{Cos[q t]/Sqrt[1 + k^2 Sin[p t]^2], 

    Sin[q t]/Sqrt[1 + k^2 Sin[p t]^2],

    Cos[p t]/Sqrt[1 + k^2 Sin[p t]^2]}, {t, 0, 2 Pi}, 

   PlotStyle -> {Red, Thickness[0.01]}]], {p, 1, 10, 1}, {q, 1, 10, 

  1}, {k, 1, 5, 1}]

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

Frase Célebre de Richard Feynman

Uno no puede entender ... 
la universalidad de las leyes de la naturaleza,
la relación entre las cosas,
sin un entendimiento de las matemáticas.
No existe otro camino para esto.

Richard Feynman

Series de Fourier

 Descargar como Notebook

Conocemos las Series de Taylor que nos permiten aproximar por un polinomio una función, con la única condición de ser continuamente diferenciable en el punto donde se centra su región de convergencia. Pero con la restricción que la región de convergencia no se extiende más allá del punto de discontinuidad meas próximo al centro.

Ahora, las Series de Fourier sí se extienden más de los puntos de discontinuidad, y son sumas de constantes multiplicadas por funciones senos y/o cosenos de diferente frecuencia.

En general, dada una función f(x) integrable en un intervalo [ -L , L ], tenemos que:

donde,

y

la función f (x) tiene un período de 2L.

Ejemplo 1

Determinar la Serie de Fourier para f(x) = x para x \[Epsilon] [-\[Pi] , \[Pi] ].

Primero determinamos los coeficientes de Fourier an y bn,

0

0

Así, tenemos que :

cuyos primeros términos, son :

Plot[{x, 2 Sin[x] - Sin[2 x] + 2/3 Sin[3 x] - 1/2 Sin[4 x] + 

   2/5 Sin[5 x]}, {x, -10, 10}, PlotStyle -> {Red, Green}]

Ahora, si consideramos que la función f(x)=x es periódica y de periodo 2Pi, tenemos:

Hemos generado una aproximación continua para una función discontinua .

Ejemplo 2

Consideremos la función definida por trozos :

de periodo 6, es decir L = 3.

3/2

Así, tenemos que :

Graficando, queda:

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

Frase Célebre de Artur Ávila

La matemática debería ser considerada 
como cualquier otro movimiento cultural.

Artur Ávila