test=ContourPlot3D[(x^2+(9/4)y^2+z^2-1)^3-x^2z^3-(9/80)y^2z^3==0,
{x,-1.5,1.5},{y,-1.5,1.5},{z,-1.5,1.5},
MeshStyle->{Red,Blue},ContourStyle->Opacity[0],Mesh->5]
取出等高線座標mypoint=test[[1,1]][[#]]&/@Flatten[{test[[1,2,2,3,2;;-1]][[All,1]],test[[1,2,2,4,2;;-1]][[All,1]]}]
畫圖
Graphics3D[Point[mypoint]]
讀者回應 ( 0 意見 )
訂閱發佈留言 (Atom)
發佈留言
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助，那請留個訊息給我～