Ellipsoid
范例
打开所有单元 关闭所有单元基本范例 (2)
Graphics3D[Ellipsoid[{0, 0, 0}, {4, 3, 2}]]Graphics[Ellipsoid[{0, 0}, {3, 2}]]RegionMeasure[Ellipsoid[{Subscript[c, 1], Subscript[c, 2], Subscript[c, 3]}, {Subscript[r, 1], Subscript[r, 2], Subscript[r, 3]}]]RegionCentroid[Ellipsoid[{Subscript[c, 1], Subscript[c, 2], Subscript[c, 3]}, {Subscript[r, 1], Subscript[r, 2], Subscript[r, 3]}]]范围 (20)
图形 (10)
指定 (4)
Graphics3D[Ellipsoid[{0, 0, 0}, {4, 3, 2}]]Graphics[Ellipsoid[{0, 0}, {3, 2}]]Graphics3D[Ellipsoid[{0, 0, 0}, {{5, 2, 3}, {2, 3, 2}, {3, 2, 5}}]]Graphics[Ellipsoid[{0, 0}, {{5, 2}, {2, 5}}]]样式化 (4)
ℛ = Ellipsoid[{0, 0, 0}, {4, 3, 2}];Table[Graphics3D[{Orange, Specularity[White, n], ℛ}], {n, {5, 20, 100}}]ℛ = Ellipsoid[{0, 0, 0}, {4, 3, 2}];Graphics3D[{Glow[Red], Black, ℛ}]Opacity 指定面不透明度:
ℛ = Ellipsoid[{0, 0, 0}, {4, 3, 2}];Table[Graphics3D[{Opacity[o], ℛ}], {o, {0.3, 0.5, 0.9}}]ℛ = Ellipsoid[{0, 0}, {3, 2}];Graphics[{EdgeForm[{Thick, Dashed, Blue}], Brown, ℛ}]坐标 (2)
Subscript[ℛ, 1] = Ellipsoid[Scaled[{0.5, 0.75}], {3, 2}];Graphics[Subscript[ℛ, 1], PlotRange -> {{0, 8}, {0, 8}}, Frame -> True]Graphics[Ellipsoid[ Scaled[{0.5, 0.25}, {0, 0}], {4, 2}], Frame -> True]区域 (10)
RegionEmbeddingDimension[Ellipsoid[{Subscript[c, 1], Subscript[c, 2], Subscript[c, 3]}, {Subscript[r, 1], Subscript[r, 2], Subscript[r, 3]}]]RegionDimension[Ellipsoid[{Subscript[c, 1], Subscript[c, 2], Subscript[c, 3]}, {Subscript[r, 1], Subscript[r, 2], Subscript[r, 3]}]]ℛ = Ellipsoid[{0, 0, 0}, {4, 3, 2}];{RegionMember[ℛ, {(1/3), (1/3), (1/3)}], RegionMember[ℛ, {5, 5, 5}]}RegionMember[ℛ, {x, y, z}]ℛ = Ellipsoid[{0, 0, 0}, {4, 3, 2}];{Volume[ℛ], RegionMeasure[ℛ]}c = RegionCentroid[ℛ]Graphics3D[{{Opacity[0.5], LightBlue, ℛ}, {PointSize[Large], Red, Point[c]}}]ℛ = Ellipsoid[{0, 0, 0}, {1, 2, 3}];{RegionDistance[ℛ, {0, 0, 0}], RegionDistance[ℛ, {0, 2, 2}]}Plot3D[RegionDistance[Ellipsoid[{0, 0}, {1, 2}], {x, y}], {x, -3, 3}, {y, -3, 3}, MeshFunctions -> {#3&}, Mesh -> 5, Exclusions -> {x^2 + (y^2/4) == 1}]ℛ = Ellipsoid[{0, 0, 0}, {1, 2, 3}];{SignedRegionDistance[ℛ, {0, 2, 2}], SignedRegionDistance[ℛ, {0, 1 / 2, 0}]}Plot3D[SignedRegionDistance[Ellipsoid[{0, 0}, {1, 2}], {x, y}], {x, -3, 3}, {y, -3, 3}, MeshFunctions -> {#3&}, Mesh -> {{0}}, MeshShading -> {Red, Green}]ℛ = Ellipsoid[{0, 0, 0}, {1, 2, 3}];{RegionNearest[ℛ, {3., 3, 3}], RegionNearest[ℛ, {1 / 2, 1 / 2, 1 / 2}]}spherePoints[{n_, m_}, c_, r_] :=
Flatten[Table[c + r{Cos[k 2π / n]Sin[l π / m], Sin[k 2π / n]Sin[l π / m], Cos[l π / m]}, {k, 0., n - 1}, {l, 0., m - 1}], 1];pl = spherePoints[{16, 8}, RegionCentroid[ℛ], 4];
npl = Table[RegionNearest[ℛ, p], {p, pl}];Legended[Graphics3D[{ℛ, {Thin, Gray, Line[Transpose[{pl, npl}]]}, {Red, Point[pl]}, {PointSize[Medium], Blue, Point[npl]}}, Lighting -> "Neutral", Boxed -> False], PointLegend[{Red, Blue}, {"start", "nearest"}]]ℛ = Ellipsoid[{0, 0, 0}, {4, 3, 2}];BoundedRegionQ[ℛ]r = RegionBounds[ℛ]Graphics3D[{{EdgeForm[White], Opacity[0.2, Yellow], Cuboid@@Transpose[r]}, ℛ}, Boxed -> False]ℛ = Ellipsoid[{Subscript[c, 1], Subscript[c, 2], Subscript[c, 3]}, {Subscript[r, 1], Subscript[r, 2], Subscript[r, 3]}];Integrate[x y z, {x, y, z}∈ℛ]ℛ = Ellipsoid[{1, 2, 3}, {4, 5, 6}];MinValue[{x y z - x y, {x, y, z}∈ℛ}, {x, y, z}]//RootReduceℛ = Ellipsoid[{1, 2, 3}, {2, 3, 4}];Reduce[x^2 + y^2 + z^2 == 1 && x - y - z == -(1/2) && z^2 == x y + (1/4) && {x, y, z}∈ℛ, {x, y, z}]应用 (4)
ℛ = Ellipsoid[{0, 0, 0}, {a, a, c}]Volume[ℛ]ℛ = Ellipsoid[{a, b, c}, {Subscript[r, 1], Subscript[r, 2], Subscript[r, 3]}];Integrate[x y z, {x, y, z}∈ℛ, Assumptions -> Subscript[r, 1] > 0 && Subscript[r, 2] > 0 && Subscript[r, 3] > 0 && (a | b | c)∈Reals]求 Ellipsoid 中的甲醇质量:
ℛ = Ellipsoid[{0, 0, 0}, Quantity[{4, 3, 2}, "Centimeters"]];d = ChemicalData["Methanol", "Density"]v = Volume[ℛ]FormulaData["MassDensity", {"ρ" -> d, "V" -> v}]求区域边界框的有界 Ellipsoid:
ℛ = Cone[{{0, 0, 0}, {0, 0, 3}}, 1];bounds = RegionBounds[ℛ];boundingBox = Cuboid@@Transpose[bounds];r = (Sqrt[3]/2) EuclideanDistance@@@bounds;boundingEllipsoid = Ellipsoid[RegionCentroid[boundingBox], r];计算边界实体的 Volume 的差:
Volume[boundingEllipsoid] - Volume[boundingBox]Show[Graphics3D[{ℛ, EdgeForm[White], Opacity[0.2, Yellow], boundingBox, boundingEllipsoid}], Boxed -> False]属性和关系 (4)
RegionMember[Disk[{0, 0}, {1, 2}], {x, y}]RegionMember[Ellipsoid[{0, 0}, {1, 2}], {x, y}]RegionMember[Ball[{0, 0, 0}, 1], {x, y, z}]RegionMember[Ellipsoid[{0, 0, 0}, {1, 1, 1}], {x, y, z}]Subscript[ℛ, 1] = Ellipsoid[{Subscript[c, 1], Subscript[c, 2], Subscript[c, 3], Subscript[c, 4]}, {1, 1, 1, 1}];
Subscript[ℛ, 2] = Ball[{Subscript[c, 1], Subscript[c, 2], Subscript[c, 3], Subscript[c, 4]}, 1];RegionEqual[Subscript[ℛ, 1], Subscript[ℛ, 2]]ImplicitRegion 可以表示任何 Ellipsoid:
Subscript[ℛ, 1] = ImplicitRegion[(Subscript[t, 1] - Subscript[c, 1])^2 + (1/4) (Subscript[t, 2] - Subscript[c, 2])^2 + (1/9) (Subscript[t, 3] - Subscript[c, 3])^2 + (1/16) (Subscript[t, 4] - Subscript[c, 4])^2 ≤ 1, {Subscript[t, 1], Subscript[t, 2], Subscript[t, 3], Subscript[t, 4]}];
Subscript[ℛ, 2] = Ellipsoid[{Subscript[c, 1], Subscript[c, 2], Subscript[c, 3], Subscript[c, 4]}, {1, 2, 3, 4}];RegionEqual[Subscript[ℛ, 1], Subscript[ℛ, 2]]巧妙范例 (2)
Graphics3D[Table[{Hue[RandomReal[]], Ellipsoid[RandomReal[50, {3}], RandomReal[{1, 5}, 3]]}, {100}]]ℛ = Ellipsoid[{0, 0, 0}, {4, 3, 2}];Graphics3D[{Opacity[0.3], EdgeForm[], Table[{ColorData["Rainbow"][Rescale[c, {0, 2Pi}]], GeometricTransformation[ℛ, RotationTransform[c, {1, -2, 3}, {5, 0, 0}]]}, {c, 0, 2Pi, 2Pi / 16}]}]参见
Disk Ball Sphere ImplicitRegion BoundingRegion PositiveDefiniteMatrixQ
Function Repository: MinimumVolumeEllipsoid
相关指南
-
▪
- 图形对象 ▪
- 基本几何区域 ▪
- Graphics Primitives Gallery ▪
- 3D 打印
文本
Wolfram Research (2014),Ellipsoid,Wolfram 语言函数,https://reference.wolfram.com/language/ref/Ellipsoid.html.
CMS
Wolfram 语言. 2014. "Ellipsoid." Wolfram 语言与系统参考资料中心. Wolfram Research. https://reference.wolfram.com/language/ref/Ellipsoid.html.
APA
Wolfram 语言. (2014). Ellipsoid. Wolfram 语言与系统参考资料中心. 追溯自 https://reference.wolfram.com/language/ref/Ellipsoid.html 年
BibTeX
@misc{reference.wolfram_2026_ellipsoid, author="Wolfram Research", title="{Ellipsoid}", year="2014", howpublished="\url{https://reference.wolfram.com/language/ref/Ellipsoid.html}", note=[Accessed: 16-September-2026]}
BibLaTeX
@online{reference.wolfram_2026_ellipsoid, organization={Wolfram Research}, title={Ellipsoid}, year={2014}, url={https://reference.wolfram.com/language/ref/Ellipsoid.html}, note=[Accessed: 16-September-2026]}