dòng Overlapped Lưới trong ContourPlot3D

Question

Tôi có một vấn đề với rendering của Mesh dòng trên một bề mặt 3D được sản xuất bởi ContourPlot3D trong Mathematica 7.0.1:

p=ContourPlot3D[x^4+y^4+z^4-(x^2+y^2+z^2)^2+3(x^2+y^2+z^2)==3, 
     {x, -2,2}, {y, -2, 2}, {z,-2,2}, 
    BoundaryStyle->Directive[Black,Thickness[.003]], 
    ContourStyle->Directive[Orange,Opacity[0.5],Specularity[White,300]], 
    PlotPoints->90,Ticks->None, 
    MeshStyle->Directive[GrayLevel[.7],Thickness[.001]], 
    Lighting->{{"Directional",RGBColor[1,1,1], 
          {ImageScaled@{1,0,1},ImageScaled@{0,0,0}}}}]; 
p=Graphics[Inset[p,{0,0},Center,{1,1}], 
         PlotRange->{{-.5,.5},{-.5,.5}},Frame->True] 

Nhìn gần hơn về họ:

Show[p, PlotRange -> {{-.16, -.05}, {0, .1}}] 

Bạn thấy rằng các đường màu xám Mesh bị chồng lên nhau bởi các hình tam giác tạo hình bề mặt ở nhiều nơi và thậm chí trông có vẻ đứt quãng. Có cách nào để tránh điều này không?

Answer 1

John Fultz has answered câu hỏi của tôi trong nhóm tin chính thức. Các giải pháp cho Mathematica 7 người sử dụng (và có lẽ cho phiên bản 8 người dùng có một card đồ họa mà không cần sự hỗ trợ cho DepthPeeling phương pháp vẽ) là sử dụng một hình thức không có giấy tờ của MeshStyle tùy chọn:

MeshStyle -> {{GrayLevel[.7], Tube[0.01]}} 

Đối với có Mesh dòng xuất hiện như đối tượng phẳng người ta có thể sử dụng Glow:

MeshStyle -> {{Glow[GrayLevel[.7]], Black, Tube[0.005]}} 

Bây giờ lưới được trả lại độc đáo:

p1 = ContourPlot3D[ 
    x^4 + y^4 + z^4 - (x^2 + y^2 + z^2)^2 + 3 (x^2 + y^2 + z^2) == 
    3, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
    BoundaryStyle -> Directive[Black, Thickness[.003]], 
    ContourStyle -> 
    Directive[Orange, Opacity[0.5], Specularity[White, 300]], 
    Ticks -> None, PlotPoints -> 40, 
    MeshStyle -> {{Glow[GrayLevel[.7]], Black, Tube[0.005]}}, 
    Lighting -> {{"Directional", 
     RGBColor[1, 1, 1], {ImageScaled@{1, 0, 1}, 
     ImageScaled@{0, 0, 0}}}}]; 
p = Graphics[Inset[p1, {0, 0}, Center, {1, 1}], 
    PlotRange -> {{-.5, .5}, {-.5, .5}}, Frame -> True, 
    GridLines -> Automatic] 

Show[p, PlotRange -> {{-.16, -.05}, {0, .1}}] 

Answer 2

Đối với những gì nó có giá trị, tôi không thấy vấn đề này trong M8.0.1 trên Mac OS 10.7.1: