Wyświetlanie wielu wykresów 2D w 3D za pomocą grafiki w programie Mathematica?

Question

Biorąc pod uwagę następujące elementy:

lalist = {{{{1, 1}, 1}, {{3, 3}, 1}, {{5, 5}, 1}}, 
      {{{1, 5}, 1}, {{3, 3}, 1}, {{5, 1}, 1}}} 

Row[{ 
    Graphics[{ 
      Opacity[0.5],Red, 
      Disk @@@ lalist[[1]]}, 
      Frame -> True], 
    Graphics[{ 
      Opacity[0.5],Blue, 
      Disk @@@ lalist[[2]]}, 
      Frame -> True]} 
    ] 

• Czy to możliwe, że działki bluesa Tarcze "za" czerwonych w 3 D działki ?

poniżej nie jest to, czego potrzebuję:

Answer 1

Jak to?

Graphics3D[{{Texture[ 
Graphics[{Opacity[0.5], Blue, Disk @@@ lalist[[2]]}, 
    Frame -> True]], 
Polygon[{{-1, -1, -1}, {1, -1, -1}, {1, 1, -1}, {-1, 1, -1}}, 
VertexTextureCoordinates \[Rule] {{0, 0}, {1, 0}, {1, 1}, {0, 
    1}}]}, {Texture[ 
Graphics[{Opacity[0.5], Red, Disk @@@ lalist[[1]]}, 
    Frame -> True]], 
Polygon[{{-1, -1, 1}, {1, -1, 1}, {1, 1, 1}, {-1, 1, 1}}, 
VertexTextureCoordinates \[Rule] {{0, 0}, {1, 0}, {1, 1}, {0, 
    1}}]}}, Lighting \[Rule] "Neutral"] 

Wiele z nich z kryciem .2:

tab = Table[{Opacity \[Rule] .2, 
Texture[Graphics[{Opacity[0.5], Blue, Disk @@@ lalist[[2]]}, 
    Frame -> True]], 
Polygon[{{-1, -1, z}, {1, -1, z}, {1, 1, z}, {-1, 1, z}}, 
VertexTextureCoordinates \[Rule] {{0, 0}, {1, 0}, {1, 1}, {0, 
    1}}]}, {z, -2, 2, 1}]; 
plt = Graphics3D[{tab}, Lighting \[Rule] "Neutral"] 

i 400 nie wydają się być wielkim problemem, jeśli chodzi o szybkość (ci można łatwo modyfikować powyższy kod, aby go zobaczyć).

EDIT: OK, po prostu głupie, spróbuj tego

Dynamic[Graphics3D[{{Texture[#], 
    Polygon[{{-1, -1, -1}, {1, -1, -1}, {1, 1, -1}, {-1, 1, -1}}, 
    VertexTextureCoordinates \[Rule] {{0, 0}, {1, 0}, {1, 1}, {0, 
     1}}]}, {Texture[Rotate[#, \[Pi]/2]], 
    Polygon[{{-1, -1, 1}, {1, -1, 1}, {1, 1, 1}, {-1, 1, 1}}, 
    VertexTextureCoordinates \[Rule] {{0, 0}, {1, 0}, {1, 1}, {0, 
     1}}]}}, Lighting \[Rule] "Neutral"] &@Binarize[CurrentImage[]]] 

co daje

(czy coś takiego), obrotowe, aktualizowane w czasie rzeczywistym itp

Answer 2

Zobacz rozwiązanie przedstawione w artykule "Lunchtime Playground: Fun with Mathematica" here: http://mathgis.blogspot.com/2009/02/howto-display-2d-plot-in-3d.html

Answer 3

Używanie przezroczystych tekstur do renderowania tych okręgów w warstwach as ACL does jest dobrym rozwiązaniem, chyba że chce się współdziałać z powstałym obiektem 3D. Rendering of 3D objects that contain transparent elements is done in software whereas otherwise it would have been done in hardware:

renderujący 3D wykorzystuje dwa różne metody sortowania wielokątów. W przypadku scen graficznych, które nie zawierają przezroczystości , używany jest przyspieszony sprzętowo bufor głębiowy . W przeciwnym razie renderer używa drzewa binarnego o podziale przestrzeni do podziału i sortowania wielokątów z dowolnego punktu widzenia. Drzewo BSP jest wolniejsze , aby utworzyć i nie jest sprzętowo przyspieszane, ale zapewnia największą ogólną zdolność obsługi wielokątów.

Na moim laptopie interakcja z grafiką 3D jest niesamowicie powolna, gdy tylko zaczną pojawiać się przezroczyste obiekty.

Rozwiązaniem byłoby użycie dysków 3D zamiast półprzezroczystych płaszczyzn z dyskami 2D w nich. Ponieważ MMA nie ma 3D Disk s lub Circle s, jeśli chcesz zrobić coś takiego, musisz rzucić własną. Wersja goły byłoby coś jak:

myDisk[{x_, y_, z_}, r_] := 
Polygon@Table[ 
       {x, y, z} + r {Cos[\[Phi]], Sin[\[Phi]], 0} // N, 
       {\[Phi], 0, 2 \[Pi], 2 \[Pi]/200} 
       ] 

Twoje warstwy byłyby następnie generowany następująco:

Graphics3D[ 
{ 
    EdgeForm[], 
    { 
    Red, 
    myDisk[{1, 1, 0.5}, 0.5], 
    myDisk[{0, 0, 0.5}, 0.5], 
    myDisk[{-1, -1, 0.5}, 0.5] 
    }, 
    { 
    Blue, 
    myDisk[{1, -1, -0.5}, 0.5], 
    myDisk[{0, 0, -0.5}, -0.5], 
    myDisk[{-1, 1, -0.5}, 0.5]} 
    } 
]