Entrada destacada

Distancia media de dos puntos en un cuadrado unitario

martes, 7 de mayo de 2019

Trazas de las Superficies Cuadráticas


Las superficies cuadráticas corresponden a los conjuntos en el espacio de la forma:



donde  A, B, C, D, E, F, G, H, I y J son números reales, para facilitar su estudio eliminamos los términos con los productos entre las variables x, y, z, obteniendo:


los términos que eliminamos causan es rotaciones en las figuras. Así, obtenemos seis formas cuadráticas que corresponden: Paraboloide Elíptico, Paraboloide Hiperbólico, Cono, Elipsoide y los Hiperboloides de una y dos hojas.

Las trazas de una superficie corresponden a las figuras planas que se obtienen al ser cortadas por un plano, aquí consideraremos los planos: z = c, x = c, y = c.

En el siguiente aplicativo se muestra el comportamiento de estos cortes.

xy = {{1, 0, 0}, {0, 1, 0}, {0, 0, 1}};
xz = {xy[[1]], xy[[3]], xy[[2]]};
yz = {xy[[3]], xy[[2]], xy[[1]]};
lista = {{0, 0, -1, 0}, {1, 0, -1, 0}, {0, 1, 0, -4}, {0, -1, 0, 
    0}, {0, -1, 0, -1}, {0, -1, 0, 1}};
Manipulate[{n, c, d, e} = lista[[m]];
 Grid[{{Show[{ContourPlot3D[
       a x^2 + (-1)^n b y^2 + c z^2 + d z + e == 0, {x, -4, 
        4}, {y, -4, 4}, {z, -4, 4}, Mesh -> 3, BoxRatios -> Automatic,
        AxesLabel -> Automatic], 
      ParametricPlot3D[
       u plano[[1]] + v plano[[2]] + l plano[[3]], {u, -4, 4}, {v, -4, 4}, Mesh -> 3, BoundaryStyle -> Black, 
       PlotStyle -> FaceForm[Red, Yellow]]}], 
    Which[plano[[3]] == {0, 0, 1}, 
     ContourPlot[
      a x^2 + (-1)^n b y^2 + c l^2 + d l + e == 0, {x, -4, 4}, {y, -4, 4}, Axes -> True, FrameLabel -> Automatic, 
      PerformanceGoal -> "Quality"], plano[[3]] == {0, 1, 0}, 
     ContourPlot[
      a x^2 + (-1)^n b l^2 + c z^2 + d z + e == 0, {x, -4, 4}, {z, -4, 4}, Axes -> True, FrameLabel -> Automatic, 
      PerformanceGoal -> "Quality"], plano[[3]] == {1, 0, 0}, 
     ContourPlot[
      a l^2 + (-1)^n b y^2 + c z^2 + d z + e == 0, {y, -4, 4}, {z, -4, 4}, Axes -> True, FrameLabel -> Automatic, 
      PerformanceGoal -> "Quality"]]}}, 
  Frame -> All], {{l, 0, "Movimiento del plano (c)"}, -4, 
  4}, {{plano, xy, "Plano de Corte"}, {xy -> "   z=c   ", 
   xz -> "   y=c   ", yz -> "   x=c   "}}, {{a, 0.3}, 0.3, 
  2}, {{b, 1}, 0.3, 
  2}, {{m, 1, "Superficie"}, {1 -> "Paraboloide", 
   2 -> "Paraboloide Hiperbólico", 3 -> "Elipsoide", 4 -> "Cono", 
   5 -> "Hiperboloide de una hoja", 
   6 -> "Hiperboloide de dos hojas"}}, SaveDefinitions -> True]



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

No hay comentarios.:

Publicar un comentario