首页 > 其他 > 详细

Mathematica绘制曲面交线方法(方法二)

时间:2017-07-05 20:28:34      阅读:376      评论:0      收藏:0      [点我收藏+]

MeshFunction方式

 

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]

 

技术分享

Mathematica绘制曲面交线方法(方法二)

原文:http://www.cnblogs.com/dabaopku/p/7123061.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!