第二组立体几何展开图

GeoGebra 命令及参数

1. Point(Ray[(1, 0), (3, 0)]) → A
2. Point(Ray[A + (1, 0), A + (2, 0)]) → C
3. Point(Ray[A + (0, 1), A + (0, 2)]) → B
4. Polygon({(0, 0), A, B, (0, y(B))}) → q1
5. Polygon({A, C, (x(C), y(B)), B}) → q2
6. Polygon({B, B + (0, h), B + ((-l), h), B + ((-l), 0)}) → q4
7. Polygon({C, C + (l, 0), C + (l, w), C + (0, w)}) → q5
8. Polygon({C + (l, 0), C + (l + h, 0), C + (l + h, w), C + (l, w)}) → q6
9. Rotate(q4, (90° * t), Line[(0, w), B]) → q4'
10. Rotate(q2, (90° * t), Line[B, A]) → q2'
11. Rotate(Rotate[q5, (90° * t), Line[C + (0, w), C]], (90° * t), Line[B, A]) → q5'
12. Rotate(Rotate[Rotate[q6, (90° * t), Line[C + (l, w), C + (l, 0)]], (90° * t), Line[C + (0, w), C]], (90° * t), Line[B, A]) → q6'_{1}
13. Polygon({A, C, C + (0, (-l)), A + (0, (-l))}) → q3
14. Rotate(Rotate[q3, (90° * t), Line[C, A]], (90° * t), Line[B, A]) → q3'