Skip to main content
Mathematica

Return to Answer

added 233 characters in body
Source Link
user36273
user36273 
ListContourPlot3D[normplotP1, Contours -> 1, MaxPlotPoints -> 100, ColorFunction -> "Rainbow"]

enter image description here

ListContourPlot3D[normplotP1, Contours -> 1, MaxPlotPoints -> 100, 
 Mesh -> None, ColorFunction -> "Rainbow", ViewPoint -> {1, 1.5, 1}]

enter image description here

ListContourPlot3D[normplotP1, Contours -> 1, MaxPlotPoints -> 100, ColorFunction -> "Rainbow"]

enter image description here

ListContourPlot3D[normplotP1, Contours -> 1, MaxPlotPoints -> 100, ColorFunction -> "Rainbow"]

enter image description here

ListContourPlot3D[normplotP1, Contours -> 1, MaxPlotPoints -> 100, 
 Mesh -> None, ColorFunction -> "Rainbow", ViewPoint -> {1, 1.5, 1}]

enter image description here

Source Link
user36273
user36273 

ListContourPlot3D[normplotP1, Contours -> 1, MaxPlotPoints -> 100, ColorFunction -> "Rainbow"]

enter image description here