Skip to main content

You are not logged in. Your edit will be placed in a queue until it is peer reviewed.

We welcome edits that make the post easier to understand and more valuable for readers. Because community members review edits, please try to make the post substantially better than how you found it, for example, by fixing grammar or adding additional resources and hyperlinks.

Required fields*

5
  • $\begingroup$ Great start - looking froward to the finish line :-) $\endgroup$ Commented 23 hours ago
  • $\begingroup$ Excellent! Thank you. $\endgroup$ Commented 21 hours ago
  • $\begingroup$ @VitaliyKaurov Thanks! I think we could generalize the method to other cases besides of the ratio 6:3. $\endgroup$ Commented 20 hours ago
  • $\begingroup$ I wonder if this is more compact version of your code: f[p_, s_] := MapIndexed[Cuboid[#, {#[[1]] + 1, #[[2]] + 1, 3 + s (#2[[1]] - 1) 3/14}] &, p]; Graphics3D[{ {f[{{0, 0, 0}, {0, 1, 0}, {0, 2, 0}, {-1, 2, 0}}, 1], Opacity[.1]}, {f[{{0, 0, 0}, {-1, 0, 0}, {-2, 0, 0}, {-3, 0, 0}, {-4, 0, 0}, {-5, 0, 0}, {-5, 1, 0}, {-5, 2, 0}, {-5, 3, -1}, {-5, 4, -1}, {-5, 5, -2}}, -1]} }, Boxed -> False, ViewProjection -> "Orthographic", ViewPoint -> {1, -1, 1} ] $\endgroup$ Commented 20 hours ago
  • $\begingroup$ @VitaliyKaurov Yes, you are right. $\endgroup$ Commented 20 hours ago