Hiển thị nhiều ô 2D trong 3D bằng Đồ họa trong Mathematica?

Question

Xét sau:

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]} 
    ] 

• Có thể rằng tôi âm mưu The Blues Đĩa "đằng sau" những cái màu đỏ trong 3 D cốt truyện ?

Dưới đây không phải là những gì tôi cần:

Answer 1

Giống như này?

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"] 

Rất nhiều trong số họ với opacity .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"] 

và 400 dường như không có nhiều của một vấn đề về tốc độ (bạn có thể dễ dàng sửa đổi mã ở trên để xem nó).

EDIT: OK, chỉ để được ngớ ngẩn, hãy thử này

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[]]] 

mang đến cho

(hoặc một cái gì đó như thế), xoay, được cập nhật theo thời gian thực, vv

Answer 2

Xem giải pháp được trình bày trên "Sân chơi ăn trưa: Vui chơi với Mathematica" tại đây: http://mathgis.blogspot.com/2009/02/howto-display-2d-plot-in-3d.html

Answer 3

Sử dụng các họa tiết trong suốt để hiển thị các vòng tròn này trong các lớp as ACL does là một giải pháp tốt, trừ khi người ta muốn tương tác với đối tượng 3D kết quả. Rendering of 3D objects that contain transparent elements is done in software whereas otherwise it would have been done in hardware:

Trình kết xuất 3D sử dụng hai phương pháp phân loại đa giác khác nhau . Đối với các cảnh đồ họa không bao gồm độ trong suốt , bộ đệm độ sâu được tăng tốc phần cứng được sử dụng. Nếu không, trình kết xuất sử dụng phân vùng không gian nhị phân cây để tách và sắp xếp các đa giác từ bất kỳ quan điểm nào. Cây BSP chậm hơn để tạo và không phải là phần cứng được tăng tốc, nhưng nó cung cấp khả năng chung nhất để hỗ trợ đa giác .

Trên máy tính xách tay của tôi, tương tác với đồ họa 3D cực kỳ chậm ngay khi các đối tượng trong suốt bắt đầu xuất hiện.

Giải pháp sẽ là sử dụng đĩa 3D thay vì máy bay bán trong suốt với đĩa 2D trong đó. Vì MMA không có 3D Disk s hoặc Circle s nếu bạn muốn làm một cái gì đó như thế, bạn phải cuộn của riêng bạn. Một phiên bản xương trần sẽ là một cái gì đó như:

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

lớp của bạn sau đó sẽ được tạo ra như sau:

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]} 
    } 
]