用Mathematica画函数z=x^3/(x^2 + y^2)^2的3D图形，为什么图像就想被刀削平了呢？

我想把图上的数据（坐标）都导出来，有什么方法吗？

举报该文章

相关建议 2013-11-13

Plot3D[x^3/(x^2 + y^2)^2, {x, -1.7, 1.7}, {y, -3.16, 3.16},

PlotRange -> {-0.5, .5}, ClippingStyle -> None]

ClippingStyle就是控制曲面超出约束范围时的样式的~如图：

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f8qfmq884pq87q8pq2m.html

其他看法

第1个回答 2013-11-12

PlotRange->All追问

如果我想限定一个范围，应该怎么输入呢？比如从0到100

追答

自带帮助里面都说了的啊。PlotRange->{0,100}

追问

麻烦再帮我解答一下，怎么把数据导出，我的软件没有自带的帮助文件。。。谢谢啊！

抛开图形，也即是想把函数值都导出来，导出到xls文件，分成3列的形式
取值范围：例如：x 是-5到5，y是-5到5，z是0到1 ，的坐标

追答

你可以参考这里：

http://zhidao.baidu.com/question/1689479572993609628.html

————

算了，直接贴代码吧：

Cases[Plot3D[x^3/(x^2 + y^2)^2, {x, -5, 5}, {y, -5, 5}, PlotRange -> {0, 1}, ClippingStyle -> None], GraphicsComplex[a_, __] :> a, Infinity]
SystemOpen@Export["a.xls", %]
ListPointPlot3D[%%]

最后再强调一次，如果你也是准备把这些数据搞到Origin里去的人，那么我还是要说一句，Origin的画图跟Mathematica比没有什么优势，此外，就算你是要怎么做，也该把数据导出为TXT，而非Excel。

追问

太好了，非常感谢你的回答！
我想计算图上某些位置的性质。导为excl好操作。
等这段时间忙完了，我再好好学习mathematica了！

本回答被提问者采纳

相似回答

大家正在搜