Message Boards Message Boards

[✓] Combine plots made in a Do loop?

GROUPS:

Is there a way to use Show, e.g. Show[ Do[Graphics3D[ .. ],{i,1,n}]]?

Attachments:
POSTED BY: David Torney
Answer
23 days ago

Write Table instead of Do:

Show[Table[
  Graphics3D[Polygon[{{0, 0, 0}, {1, 0, 0}, {1, 1, i}}]], {i, 0, 1}]]

or, even shorter, move Table inside Graphics3D and forget about Show:

Graphics3D[
 Table[Polygon[{{0, 0, 0}, {1, 0, 0}, {1, 1, i}}], {i, 0, 1}]]
POSTED BY: Gianluca Gorni
Answer
23 days ago

Many thanks!

POSTED BY: David Torney
Answer
22 days ago

Group Abstract Group Abstract