Message Boards Message Boards

GROUPS:

[✓] Combine plots made in a Do loop?

Posted 1 year ago
625 Views
|
2 Replies
|
3 Total Likes
|

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

Attachments:
2 Replies

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 1 year ago

Many thanks!

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract