x

y

z

單位向量

座標軸

xy平面

L = 3 (slider from 1 to 10, step 1)
W = 3 (slider from 1 to 10, step 1)
O = (5.8881026266363055, 0.10038235056702893)
β = 1.9198621771937625 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
α = 2.443460952792061 rad (slider from 0 to 360*°, step 0.017453292519943295)
Y_{unit}: O + (-sin(α), cos(α) * cos(β))
v = Vector(O, Y_{unit})
X_{unit}: O + (cos(α), sin(α) * cos(β))
u = Vector(O, X_{unit})
Z_{unit}: O + (0, sin(β))
w = Vector(O, Z_{unit})
L_1 = 9 (slider from 1 to 10, step 1)
a = Vector(O - L_1 * u, O + L_1 * u)
b = Vector(O - L_1 * v, O + L_1 * v)
c = Vector(O - L_1 * w, O + L_1 * w)
poly1, d, e, f, g = Polygon(O + L_1 * u + L_1 * v, O - L_1 * u + L_1 * v, O - L_1 * u - L_1 * v, O + L_1 * u - L_1 * v)
h_1 = false
i = false
j = false
h = 6 (slider from 1 to 15, step 1)
list_1 = Sequence(O + L * u + v + i * w, i, 1, h)
list_3 = Sequence(O - u - W * v + i * w, i, 1, h)
list_4 = Sequence(O - u + v + i * w, i, 1, h)
list_2 = Sequence(O + L * u - W * v + i * w, i, 1, h)
list_5 = Sequence(Polygon[Element[list_1, i], Element[list_2, i], Element[list_3, i], Element[list_4, i]], i, 1, h)
A_1: O + v + L * u
A_4: O + v - u
list_9 = Sequence(Polygon[A_4, A_1, Element[list_1, i], Element[list_4, i]], i, 1, h)
A_2: O - W * v + L * u
A_3: O - W * v - u
list_8 = Sequence(Polygon[A_4, A_3, Element[list_3, i], Element[list_4, i]], i, 1, h)
list_7 = Sequence(Polygon[A_2, A_3, Element[list_3, i], Element[list_2, i]], i, 1, h)
list_6 = Sequence(Polygon[A_1, A_2, Element[list_2, i], Element[list_1, i]], i, 1, h)
p_1 = Segment(Element[list_1, h], A_1)
p_2 = Segment(Element[list_2, h], A_2)
p_3 = Segment(Element[list_3, h], A_3)
p_4 = Segment(Element[list_4, h], A_4)
p_8 = Segment(A_1, A_2)
p_9 = Segment(A_1, A_4)
p_10 = Segment(A_3, A_4)
p_11 = Segment(A_3, A_2)
p_16 = Segment(Element[list_3, h], Element[list_4, h])
p_17 = Segment(Element[list_3, h], Element[list_2, h])
p_18 = Segment(Element[list_1, h], Element[list_2, h])
p_19 = Segment(Element[list_1, h], Element[list_4, h])
list_10 = Sequence(Sequence[Polygon[A_1 - (j + 2 / 5) * v + (i - 4 / 5) * w, A_1 - (j - 2 / 5) * v + (i - 4 / 5) * w, A_1 + (i - 2 / 5) * w - (j - 2 / 5) * v, A_1 + (i - 2 / 5) * w - (j + 2 / 5) * v], i, 1, h], j, 1, W)
list_11 = Sequence(Sequence[Polygon[A_3 + (j + 2 / 5) * u + (i - 4 / 5) * w, A_3 + (j - 2 / 5) * u + (i - 4 / 5) * w, A_3 + (i - 2 / 5) * w + (j - 2 / 5) * u, A_3 + (i - 2 / 5) * w + (j + 2 / 5) * u], i, 1, h], j, 1, L)
list_13 = Sequence(Sequence[Polygon[A_4 + (j + 2 / 5) * u + (i - 4 / 5) * w, A_4 + (j - 2 / 5) * u + (i - 4 / 5) * w, A_4 + (i - 2 / 5) * w + (j - 2 / 5) * u, A_4 + (i - 2 / 5) * w + (j + 2 / 5) * u], i, 1, h], j, 1, L)
list_12 = Sequence(Sequence[Polygon[A_4 - (j - 2 / 5) * v + (i - 4 / 5) * w, A_4 - (j + 2 / 5) * v + (i - 4 / 5) * w, A_4 + (i - 2 / 5) * w - (j + 2 / 5) * v, A_4 + (i - 2 / 5) * w - (j - 2 / 5) * v], i, 1, h], j, 1, W)
p_20 = Segment(Element[list_1, h], A_1)
p_21 = Segment(A_3, A_4)
p_22 = Segment(A_3, A_2)
p_23 = Segment(Element[list_3, h], Element[list_4, h])
p_24 = Segment(Element[list_3, h], Element[list_2, h])
p_25 = Segment(Element[list_1, h], Element[list_2, h])
p_26 = Segment(Element[list_1, h], Element[list_4, h])
p_27 = Segment(Element[list_2, h], A_2)
p_28 = Segment(Element[list_3, h], A_3)
p_29 = Segment(Element[list_4, h], A_4)
p_30 = Segment(A_1, A_2)
p_31 = Segment(A_1, A_4)