公告：本站正式转型为非交互式静态网站！ 转型：本站将通过笔记和博客的形式继续为大家服务，关于 Mathematica 问答服务请移步至QQ群：365716997。 联系：如有问题请联系QQ群管理员，或发送邮件至：lixuan.xyz@qq.com。 感谢：最后非常感谢大家多年来的支持与帮助！ 参考：《互联网跟帖评论服务管理规定》《中华人民共和国网络安全法》《网络信息内容生态治理规定》《互联网用户账号信息管理规定》
—— 2022-11-27
欢迎来到 Mathematica 问答社区
● 提问时请贴上文本代码
● 语法高亮：在编辑器中点击
● 被禁止的话题：广告，破解
● 请阅读：《提问的智慧》
● 备用域名：mma.ooo
● 支持LaTex数学公式： 行内公式标识符：\$ 或“$\backslash ($”+“$\backslash )$”， 行间公式标识符：\$\$ 或 “$\backslash [$”+“$\backslash ]$”
● 社区建议QQ群：365716997
538 问题
531 回答
1.5k 留言
229 用户
RegionPlot3D[ y == 0 && (x^2 + y^2)/(4 0.3 2200) - 2 <= z <= (x^2 + y^2)/( 4 0.3 2200), {x, 200, 1100}, {y, -10, 10}, {z, 0, 800}]
换个方法吧，如果计算机给力，就再把 PlotPoints 设置得大一些。
ContourPlot3D[y == 0, {x, 200, 1100}, {y, -10, 10}, {z, 0, 800}, RegionFunction -> Function[{x, y, z, w}, (x^2 + y^2)/(4 0.3 2200) - 2 <= z <= (x^2 + y^2)/(4 0.3 2200)], PlotPoints -> 200]
RegionPlot和RegionPlot3D中的表达式是不能包含等式的，可以稍微变通一下，不过这个效果不如ContourPlot3D+RegionFunction效果好
RegionPlot3D[-0.2 <= y <= 0.2 && (x^2 + y^2)/(4 0.3 2200) - 2 <= z <= (x^2 + y^2)/(4 0.3 2200), {x, 200, 1100}, {y, -10, 10}, {z, 0, 800}, PlotPoints -> {180, 80, 180}]
