Mathematica绘制曲面交线方法

新引入的SliceContourPlot不错

 

SliceContourPlot3D[y, (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 -> {0, 1, 2}, PlotPoints -> 100]

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]]

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值