如何让自定义 3D 图形在 Mathematica 中正确显示？

发布于 2024-10-31 07:34:17 字数 516 浏览 1 评论 0原文

我需要将地球的 3D 模型合并到我在 Mathematica 中创建的卫星轨道拦截模拟中（我需要它与“Graphics3D[] 一起工作）。我已经下载了 Mathematica 声称支持的几种不同格式的模型，我什至在 Pro/E 中创建的那些实际导入到程序中的图像（使用“Import[]”）会丢失其表面图像，而我只剩下一个通用球体，如何才能将自定义 3D 图形正确导入到其中。 Mathematica 是否比其他格式更好？（我主要使用 CAD 模型）有地方可以下载更多（用户创建的）Mathematica 3D 图形吗？

我知道这是可能的，因为 Belisarius 在回答问题时这样做了这里：如何创建 2D Wolfram Mathematica 中的 (3D) 动画，相机跟随对象？就观点而言，这几乎正是我需要做的。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

猫瑾少女 2024-11-07 07:34:17

在此处输入图像描述

myEarth = 
 ParametricPlot3D[{Cos@u Sin@v, Sin@u Sin@v, Cos@v}, {u, 0, 2 Pi}, {v, 0, Pi}, 
   Mesh -> None, TextureCoordinateFunction -> ({#4, 1 - #5} &), 
   PlotStyle -> Texture[Show[map, ImageSize -> 1000]]];  

a = {-1, 1};
Animate[
 Show[
  Graphics3D[Sphere[{0, 0, 0}, .5], 
   ViewPoint -> 3.5 {Cos@t, Sin@t, 0}, SphericalRegion -> True, 
   PlotRange -> {a, a, a}, Axes -> False, Boxed -> False],
   myEarth], 
{t, 0, 2 Pi}]

在此处输入图像描述

编辑

我从借用一些代码的地方找到：http://reference.wolfram.com/mathematica/ref/Texture.html 在应用程序下，地球纹理

enter image description here

myEarth = 
 ParametricPlot3D[{Cos@u Sin@v, Sin@u Sin@v, Cos@v}, {u, 0, 2 Pi}, {v, 0, Pi}, 
   Mesh -> None, TextureCoordinateFunction -> ({#4, 1 - #5} &), 
   PlotStyle -> Texture[Show[map, ImageSize -> 1000]]];  

a = {-1, 1};
Animate[
 Show[
  Graphics3D[Sphere[{0, 0, 0}, .5], 
   ViewPoint -> 3.5 {Cos@t, Sin@t, 0}, SphericalRegion -> True, 
   PlotRange -> {a, a, a}, Axes -> False, Boxed -> False],
   myEarth], 
{t, 0, 2 Pi}]

enter image description here

Edit

I found from where I borrowed some code: http://reference.wolfram.com/mathematica/ref/Texture.html Under Applications, Earth Texture

回复收藏 0 原文

~没有更多了~