你或许还记得爱的方程式是什么。
今天我看到了一个加强版，(x^2 + (9/4)y^2 + z^2 – 1)^3 – x^2z^3 – (9/80)y^2z^3 == 0。
下面是本人亲自用Mathematica绘的图，发出来给大家看看。
图片为Matrix67原创
转贴请注明出处
你或许还记得爱的方程式是什么。
今天我看到了一个加强版，(x^2 + (9/4)y^2 + z^2 – 1)^3 – x^2z^3 – (9/80)y^2z^3 == 0。
下面是本人亲自用Mathematica绘的图，发出来给大家看看。
图片为Matrix67原创
转贴请注明出处
强啊
回复：每次dd留评论后我的访问量就要上升~~~~
太牛了这个….
这个…太强了哈
请问，那个你版头那张“演算图片”是用PS做的，还是“写在玻璃上然后照的”？[lol]
回复：PS做的，素材是自己拍的草稿纸
太强了！从哪看的？
回复：http://www.mathematische-basteleien.de/heart.htm
看来访问量是又涨了……
回复：连续半个月的日IP上150
it's not working!!!!!><
matrix67 大牛应该也不是用正版的mathematica 吧，为什么我下载了一个破解版的，
老是不能用，输入公式后，居然不肯计算。咋回事？
同地幔评论……为什么不能计算？……
还没注册吧 得来回捣腾好几下才能注册好 在百度知道里查一下怎么注册就行啦
我照着你的图片里的数据输进去了为什么画不出来？
我使用Mathematica 6.0, 出现以下问题:
1.开头的<< Graphics `ContourPlot3D`,输了出错,提示<<Graphics`ContourPlot3D`” is incomplete; more input is needed.
2.不用开头的那个, 出来的图片好怪的．
为什么我写的代码跟你一样，但是显示不了心形？能告诉我吗？谢谢！
ContourPlot3D::ppts: “!(*
StyleBox[“\”Value of option PlotPoints -> \””, “MT”])!(* StyleBox[ RowBox[{“{“, RowBox[{“11”, “,”, “11”}], “}”}], “MT”])!(* StyleBox[“””, “MT”]) is not an integer >= 2 or a list of 3 integers {nx, ny, nz}.显示这个，为什么？
ContourPlot3D[(x^2 + 9/4 y^2 + z^2 – 1)^3 – x^2 z^3 – 9/80 y^2 z^3 ==
0, {x, -1.5, 1.5}, {y, -2, 2}, {z, -1.5, 1.5},
PlotPoints -> {3, 3, 3}, Axes -> True,
ContourStyle -> {RGBColor[1, 0.4, 0.7]}]
用6.0以上的不用装载这个函数。输入上面的程式看看！
用6.0以上的不用装载这个函数。输入下面的程式看看！
ContourPlot3D[(x^2 + 9/4 y^2 + z^2 – 1)^3 – x^2 z^3 – 9/80 y^2 z^3 ==
0, {x, -1.5, 1.5}, {y, -2, 2}, {z, -1.5, 1.5},
PlotPoints -> {3, 3, 3}, Axes -> True,
ContourStyle -> {RGBColor[1, 0.4, 0.7]}]
M火星还真少见
一年前百度贴吧上就出现了加强版的4d心形函数
太强了吧，博主，我耐死你了
真的是牛人啊
牛死我了
好棒好棒啊。。可否要下你的QQ呢？
有必要弄的这么复杂吗，r=a(1-sinθ)不行吗?
强悍
大牛！！！！！
niu
Like heart.
ps做的 太牛了吧 请教下可以吗