Oblate Ellipsoid
Author
Alejandro Latorre Chirot
Title
Oblate Ellipsoid
Description
This animation shows how a point moves on surface such the sum of the squares of their distances to the X and Y axis are 4.
Category
Working Material
Keywords
Ellipsoid, oblate, point, square, distances
URL
http://www.notebookarchive.org/2024-08-478q8mu/
DOI
https://notebookarchive.org/2024-08-478q8mu
Date Added
2024-08-09
Date Last Modified
2024-08-09
File Size
31.36 kilobytes
Supplements
Rights
Redistribution rights reserved



Oblate Ellipsoid
Oblate Ellipsoid
Alejandro Latorre Chirot
LugarGeometricoSuperficies8::usage="Hallar e identificar la ecuación del lugar geométrico de un punto que se mueve de tal manera que la suma de los cuadrados de sus distancias a los ejes X e Y es siempre igual a 4. Construir la superficie. Respuesta: + + 2 = 4. Referencia: Geometría Analítica, Charles H. Lehmann, Ed. Limusa (2003). Prob.- 8, pág.- 437.";
2
x
2
y
2
z
Aplicando la información:
In[]:=
Expand+-4
2
Norm[{1,0,0}{-x,-y,-z}]
Norm[{1,0,0}]
2
Norm[{0,1,0}{-x,-y,-z}]
Norm[{0,1,0}]
-4+++2;
2
Abs[x]
2
Abs[y]
2
Abs[z]
2
x
2
y
2
z
In[]:=
Manipulateli=-+];d2=N[+];w=Grid,,SUMA,{d1,d2,d1+d2},FrameAll,ItemStyle->12;Show[ContourPlot3D[++2==4,{x,-2,2},{y,-2,2},z,-)"},-2,2,0.1},Delimiter,{{y1,1,"Valor ()"},li,ls,0.1},Delimiter,{{w,2,"Distancia al cuadrado del punto P al eje X, Distancia al cuadrado del punto P al eje Y y la suma"}},ControlPlacementLeft,AutoAction->True
4-
;ls=2
x1
4-
;z1=2
x1
2--
;z11=-2
x1
2
2
y1
2
2--
;d1=N[2
x1
2
2
y1
2
2
y1
2
z1
2
x1
2
z1
2
(P-X)
2
(P-Y)
2
x
2
y
2
z
2
,2
,Mesh->None,ContourStyleDirective[Green,Opacity[0.3],Specularity[White,30]],PerformanceGoal"Quality"],Graphics3D[{Red,Ball[{x1,y1,z1},0.05]}],Graphics3D[{Red,Ball[{x1,y1,z11},0.05]}],Graphics3D[{Black,Ball[{x1,0,0},0.05]}],Graphics3D[{Black,Ball[{0,y1,0},0.05]}],Graphics3D[{Black,Dashed,Thick,Line[{{x1,y1,z1},{x1,0,0}}]}],Graphics3D[{Black,Dashed,Thick,Line[{{x1,y1,z11},{x1,0,0}}]}],Graphics3D[{Black,Dashed,Thick,Line[{{x1,y1,z1},{0,y1,0}}]}],Graphics3D[{Black,Dashed,Thick,Line[{{x1,y1,z11},{0,y1,0}}]}],AxesLabel->(Style[#,15,Blue]&/@{"X","Y","Z"}),AxesOrigin{0,0,0},AxesTrue,BoxedFalse,BoxRatiosAutomatic,PlotRangeAll,ImageSizeFull,ViewPoint{1.3,-2.4,2.}],Style["Lugar geométrico: esferoide oblato:",Bold,Medium],{{x1,1,"Valor (x
1
y
1
Out[]=
| |||||||||||||||||||||
|


Cite this as: Alejandro Latorre Chirot, "Oblate Ellipsoid" from the Notebook Archive (2024), https://notebookarchive.org/2024-08-478q8mu

Download

