如果你有用Mathematica，那試試下面這個函數Needs["Graphics`ContourPlot3D`"]
ContourPlot3D[(x^2+(9/4)y^2+z^2-1)^3-x^2z^3-(9/80)y^2z^3,{x,-3,3},{y,-3,3},{z,-3,3},
PlotPoints->15,Boxed->False,ViewPoint->{-0.311,-3.091,1.342}]
Love in Mathematica
由 養花種魚數月亮賞星星 於 2008年12月19日星期五
上午2:50 發表
如果你有用Mathematica，那試試下面這個函數Needs["Graphics`ContourPlot3D`"]
ContourPlot3D[(x^2+(9/4)y^2+z^2-1)^3-x^2z^3-(9/80)y^2z^3,{x,-3,3},{y,-3,3},{z,-3,3},
PlotPoints->15,Boxed->False,ViewPoint->{-0.311,-3.091,1.342}]
讀者回應 ( 1 意見 )
訂閱發佈留言 (Atom)
very nice
發佈留言
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助，那請留個訊息給我～