回帖0
精华
阅读权限70
在线时间 小时
听众
收听
好友
|
发表于 2017-10-11 08:38:18
|
显示全部楼层
我再想想
- ContourPlot3D[
- x^2/3^2 + y^2/4^2 - z^2/8 == 1, {x, -30, 30}, {y, -30, 30}, {z, -20,
- 20}, RegionFunction ->
- Function[{x, y, z}, x^2/3^2 + y^2/4^2 <= 30 ], Axes -> False,
- Boxed -> False, PlotPoints -> 30]
复制代码
下面代码也可以画
- region := ImplicitRegion[x^2/3^2 + y^2/4^2 - z^2/8 <= 1 , {x, y, z}]
- RegionPlot3D[region, PlotRange -> {{-20, 20}, {-20, 20}, {-10, 10}},
- PlotPoints -> 40, Boxed -> False]
复制代码
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?邀请
×
|