líneas superpuesta de malla en ContourPlot3D

que tienen un problema con la representación de Mesh líneas sobre una superficie 3D producida por ContourPlot3D en Mathematica 7.0.1:líneas superpuesta de malla en ContourPlot3D

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], 
          {[email protected]{1,0,1},[email protected]{0,0,0}}}}]; 
p=Graphics[Inset[p,{0,0},Center,{1,1}], 
         PlotRange->{{-.5,.5},{-.5,.5}},Frame->True]

screenshot1

vistazo más de cerca en ellos:

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

screenshot2

Verá que las líneas grises Mesh están superpuestas por triángulos formadores de superficie en muchos lugares e incluso parecen discontinuas. Hay alguna manera de evitar esto?

Fuente

2011-08-28 Alexey Popkov

Gracias por preguntar y responder a esto. +2 –

John Fultz has answered mi pregunta en el grupo de noticias oficial. La solución para Mathematica 7 usuarios (y probablemente para la versión 8 usuarios que tienen una tarjeta gráfica sin soporte para DepthPeeling método de representación) es el uso de una forma no documentada de MeshStyle opción:

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

Para tener Mesh líneas aparecer como objetos planos uno puede utilizar Glow:

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

Ahora malla se vuelve muy bien:

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], {[email protected]{1, 0, 1}, 
     [email protected]{0, 0, 0}}}}]; 
p = Graphics[Inset[p1, {0, 0}, Center, {1, 1}], 
    PlotRange -> {{-.5, .5}, {-.5, .5}}, Frame -> True, 
    GridLines -> Automatic]

screenshot

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

screenshot

Fuente

2011-08-30 08:32:22

Por lo que vale la pena, no veo este problema en M8.0.1 en Mac OS 10.7.1:

enter image description here

Fuente

2011-08-28 13:20:49 Cassini

Agradable escuchar. Gracias por la captura de pantalla. –

Mi placer. De hecho, si necesita una versión de la figura de M8, me complace poder enviársela. – Cassini

Esta figura es solo un ejemplo. Creo que tendré acceso a M8 para exportar mi figura en un tiempo razonable. Pero gracias por la sugerencia. –

líneas superpuesta de malla en ContourPlot3D

Respuesta

Cuestiones relacionadas