Cube in Perspective

GeoGebra Commands & Parameters

1. Sequence(Mat * Element[cube, k], k, 1, 8) → cube'
2. Sequence(I + (Element[cube', k, 1, 1], Element[cube', k, 2, 1]), k, 1, 8) → listepoints
3. Element(listepoints, 7) → F
4. Element(listepoints, 6) → B_3
5. Element(listepoints, 1) → E
6. Element(listepoints, 2) → A
7. Element(Element[AE, 3], 1) → droite
8. Element(listepoints, 4) → C_1
9. Element(listepoints, 3) → D
10. Polygon(A, E, C_1, D) → poly1, a_1, b, c_1, d
11. Element(listepoints, 8) → G
12. Element(listepoints, 5) → H
13. Polygon(B_3, F, G, H) → poly2, e, f, g, h
14. Element(listepoints, 3) → C
15. Polygon(F, C, A, B_3) → poly3, f_1, i, a_2, b_1
16. Element(AB, 3, 1) → avant
17. Polygon(C_1, G, H, E) → poly4, c_2, g_1, h_1, e_1
18. Element(AC, 3, 1) → dessus
19. Polygon(F, C, C_1, G) → poly5, f_2, c_3, c_4, g_2
20. Polygon(A, B_3, H, E) → poly6, a_3, b_2, h_2, e_2
21. Segment(E, A) → c
22. Segment(A, C) → j
23. Segment(A, B_3) → k
24. Segment(C, C_1) → l
25. Segment(C_1, E) → m
26. Segment(A, B_3) → p
27. Segment(B_3, H) → q
28. Segment(H, E) → r
29. Segment(H, G) → s
30. Segment(B_3, F) → t
31. Segment(G, C_1) → d_1
32. Segment(F, G) → i_1
33. Segment(F, C) → j_1
34. Polygon(A, B_3, F', D') → poly7, a_4, b_3, f', d'
35. Polygon(E, A, D'', C') → poly8, e_3, a_5, d'', c'
36. Polygon(B_3, F'', G', H) → poly9, b_4, f'', g', h_3
37. Sequence(E + (A - E) * k / m_1, k, 0, m_1) → l_2
38. Sequence(A + (B_3 - A) * k / k_1, k, 0, k_1) → l_1
39. Sequence(H + (E - H) * k / k_1, k, 0, k_1) → l_4
40. Sequence(B_3 + (H - B_3) * k / m_1, k, 0, m_1) → l_5
41. Sequence(Segment[Element[l_1, k], Element[l_4, k_1 - k + 2]], k, 0, k_1) → s_1
42. Sequence(G + (C_1 - G) * k / k_1, k, 0, k_1) → l_6
43. Sequence(H + (G - H) * k / n_1, k, 0, n_1) → l_7
44. Sequence(E + (C_1 - E) * k / n_1, k, 0, n_1) → l_8
45. Sequence(Segment[Element[l_4, k], Element[l_6, k]], k, 0, k_1) → s_4
46. Sequence(D + (C_1 - D) * k / m_1, k, 0, m_1) → l_9
47. Sequence(D + (A - D) * k / n_1, k, 0, n_1) → l_{10}
48. Sequence(B_3 + (F - B_3) * k / n_1, k, 0, n_1) → l_{12}
49. Sequence(D + (F - D) * k / k_1, k, 0, k_1) → l_{11}
50. Sequence(Segment[Element[l_{11}, k], Element[l_6, k_1 - k + 2]], k, 0, k_1) → s_7
51. Sequence(Segment[Element[l_{11}, k], Element[l_1, k]], k, 0, k_1) → s_8
52. Sequence(G + (F - G) * k / m_1, k, 0, m_1) → l_{13}
53. Sequence(Segment[Element[l_2, k], Element[l_5, m_1 - k + 2]], k, 0, m_1) → s_2
54. Sequence(Segment[Element[l_9, k], Element[l_2, m_1 - k + 2]], k, 0, m_1) → s_6
55. Sequence(Segment[Element[l_{13}, k], Element[l_9, m_1 - k + 2]], k, 0, m_1) → s_{12}
56. Sequence(Segment[Element[l_{13}, k], Element[l_5, m_1 - k + 2]], k, 0, m_1) → s_{11}
57. Sequence(Segment[Element[l_{12}, k], Element[l_{10}, n_1 - k + 2]], k, 0, n_1) → s_9
58. Sequence(Segment[Element[l_{12}, k], Element[l_7, k]], k, 0, n_1) → s_{10}
59. Sequence(Segment[Element[l_7, k], Element[l_8, k]], k, 0, n_1) → s_3
60. Sequence(Segment[Element[l_8, k], Element[l_{10}, n_1 - k + 2]], k, 0, n_1) → s_5
61. Translate(A, Vector[A, J]) → U_A
62. Translate(U_A, Vector[1 / n_1 * Vector[A, C]]) → U_C
63. Translate(U_A, Vector[1 / k_1 * Vector[A, B_3]]) → U_B
64. Translate(U_B, Vector[1 / n_1 * Vector[A, C]]) → U_F
65. Translate(U_A, Vector[1 / m_1 * Vector[A, E]]) → U_E
66. Translate(U_E, Vector[1 / n_1 * Vector[E, C_1]]) → U_C1
67. Translate(U_C1, Vector[1 / k_1 * Vector[C_1, G]]) → U_G
68. Translate(U_E, Vector[1 / k_1 * Vector[E, H]]) → U_H
69. Point(s_9) → B
70. Point(s_9) → K
71. Point(s_9) → L
72. Point(s_9) → M
73. Point(s_9) → N
74. Point(s_9) → O
75. Point(s_9) → Q
76. Point(s_9) → R
77. Point(s_8) → S
78. Point(s_9) → V
79. Point(s_9) → T
80. Point(s_{10}) → W
81. Point(s_8) → U
82. Point(s_9) → Z
83. Point(s_9) → D_1
84. Point(s_9) → E_1
85. Polygon(B, K, S, R, Z, Q, O, E_1, L, M, N, D_1, T, W, V, U) → poly18, b_6, u_{15}, s_{13}, r_1, z_1, q_1, o_1, e_5, k_2, l_3, m_2, n_2, d_2, t_1, w_1, v_1