mathematic软件画曲面交线

干饭人秦

已于 2024-05-05 17:04:36 修改

阅读量179

点赞数 2

分类专栏： mathematic 文章标签：图论几何学数学建模

于 2024-05-04 10:29:59 首次发布

本文链接：https://blog.csdn.net/qq_40072213/article/details/138436255

版权

mathematic 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

本文展示了如何在Mathematica中通过ParametricPlot3D和SliceContourPlot3D功能绘制三维空间中的曲面交线，提供了具体的代码示例来帮助读者理解并实践。

摘要由CSDN通过智能技术生成

mathematic软件画曲面交线

Show[Graphics3D[{Opacity[0.5], Ball[{0, 0, 0}, 2]}],
ParametricPlot3D[{4 + (3 + Cos[v]) Sin[u], (3 + Cos[v]) Cos[u],
Sin[v]}, {u, 0, 2 \[Pi]}, {v, -\[Pi], \[Pi]},
MeshFunctions -> Function[{x, y, z}, (z^2 + x^2 + y^2)],
Mesh -> {{{4, Directive[Thick, Red]}}}, PlotPoints -> 50],
Boxed -> False]

在这里插入图片描述

Show[SliceContourPlot3D[
x^2 + y^2, (1.7 x^2 + y/3 + 0.6 z^2) (1.7 (x - 2)^2 + y/3 +
0.6 z^2) == 6, {x, -2, 3}, {y, -2, 3}, {z, -2, 3},
Contours -> {1, 2}],
ContourPlot3D[{x^2 + y^2 == 1, x^2 + y^2 == 2}, {x, -2, 3}, {y, -2,
3}, {z, -2, 3}, ContourStyle -> Opacity[0.3], Mesh -> None,
BoundaryStyle -> None]]