$\Large隐藏无关对象$

主视图

左视图

俯视图

原视图

初始化

$\Large \textcolor{red}{涂}\textcolor{blue}{色}$

l1 = Flatten(Sequence[Sequence[Polygon[(u, v), (u + 1, v), 4], u, 0, 4], v, 0, 4])
A1: 1
A2: 2
A3 = 3
A4 = 4
A5 = 5
A6 = 6
A7 = 7
A8 = 8
A9 = 9
A10 = 10
A11 = 11
A12 = 12
A13 = 13
A14 = 14
A15 = 15
A16 = 16
A17 = 17
A18 = 18
A19 = 19
A20 = 20
A21 = 21
A22 = 22
A23 = 23
A24 = 24
A25 = 25
B1 = Element(l1, A1)
n1: -1
n2: -1
n3: -1
n4: -1
n5: -1
n6: -1
n7: -1
n8: -1
n9: -1
n10: -1
n11: -1
n12: -1
n13: -1
n14: -1
n15: -1
n16: -1
n17: -1
n18: -1
n19: -1
n20: -1
n21: -1
n22: -1
n23: -1
n24: -1
n25: -1
B2 = Element(l1, A2)
B3 = Element(l1, A3)
B4 = Element(l1, A4)
B5 = Element(l1, A5)
B6 = Element(l1, A6)
B7 = Element(l1, A7)
B8 = Element(l1, A8)
B9 = Element(l1, A9)
B10 = Element(l1, A10)
B11 = Element(l1, A11)
B12 = Element(l1, A12)
B13 = Element(l1, A13)
B14 = Element(l1, A14)
B15 = Element(l1, A15)
B16 = Element(l1, A16)
B17 = Element(l1, A17)
B18 = Element(l1, A18)
B19 = Element(l1, A19)
B20 = Element(l1, A20)
B21 = Element(l1, A21)
B22 = Element(l1, A22)
B23 = Element(l1, A23)
B24 = Element(l1, A24)
B25 = Element(l1, A25)
c1 = Sequence(Cube[Translate[B1, Vector[(0, 0, v)]], true], v, 0, n1)
c2 = Sequence(Cube[Translate[B2, Vector[(0, 0, v)]], true], v, 0, n2)
c3 = Sequence(Cube[Translate[B3, Vector[(0, 0, v)]], true], v, 0, n3)
c4 = Sequence(Cube[Translate[B4, Vector[(0, 0, v)]], true], v, 0, n4)
c5 = Sequence(Cube[Translate[B5, Vector[(0, 0, v)]], true], v, 0, n5)
c6 = Sequence(Cube[Translate[B6, Vector[(0, 0, v)]], true], v, 0, n6)
c7 = Sequence(Cube[Translate[B7, Vector[(0, 0, v)]], true], v, 0, n7)
c8 = Sequence(Cube[Translate[B8, Vector[(0, 0, v)]], true], v, 0, n8)
c9 = Sequence(Cube[Translate[B9, Vector[(0, 0, v)]], true], v, 0, n9)
c10 = Sequence(Cube[Translate[B10, Vector[(0, 0, v)]], true], v, 0, n10)
c11 = Sequence(Cube[Translate[B11, Vector[(0, 0, v)]], true], v, 0, n11)
c12 = Sequence(Cube[Translate[B12, Vector[(0, 0, v)]], true], v, 0, n12)
c13 = Sequence(Cube[Translate[B13, Vector[(0, 0, v)]], true], v, 0, n13)
c14 = Sequence(Cube[Translate[B14, Vector[(0, 0, v)]], true], v, 0, n14)
c15 = Sequence(Cube[Translate[B15, Vector[(0, 0, v)]], true], v, 0, n15)
c16 = Sequence(Cube[Translate[B16, Vector[(0, 0, v)]], true], v, 0, n16)
c17 = Sequence(Cube[Translate[B17, Vector[(0, 0, v)]], true], v, 0, n17)
c18 = Sequence(Cube[Translate[B18, Vector[(0, 0, v)]], true], v, 0, n18)
c19 = Sequence(Cube[Translate[B19, Vector[(0, 0, v)]], true], v, 0, n19)
c20 = Sequence(Cube[Translate[B20, Vector[(0, 0, v)]], true], v, 0, n20)
c21 = Sequence(Cube[Translate[B21, Vector[(0, 0, v)]], true], v, 0, n21)
c22 = Sequence(Cube[Translate[B22, Vector[(0, 0, v)]], true], v, 0, n22)
c23 = Sequence(Cube[Translate[B23, Vector[(0, 0, v)]], true], v, 0, n23)
c24 = Sequence(Cube[Translate[B24, Vector[(0, 0, v)]], true], v, 0, n24)
c25 = Sequence(Cube[Translate[B25, Vector[(0, 0, v)]], true], v, 0, n25)
text1 = Text(n1 + 1, Centroid[B1] + (-0.12, -0.21))
text2 = Text(n2 + 1, Centroid[B2] + (-0.12, -0.21))
text3 = Text(n3 + 1, Centroid[B3] + (-0.12, -0.21))
text4 = Text(n4 + 1, Centroid[B4] + (-0.12, -0.21))
text5 = Text(n5 + 1, Centroid[B5] + (-0.12, -0.21))
text6 = Text(n6 + 1, Centroid[B6] + (-0.12, -0.21))
text7 = Text(n7 + 1, Centroid[B7] + (-0.12, -0.21))
text8 = Text(n8 + 1, Centroid[B8] + (-0.12, -0.21))
text9 = Text(n9 + 1, Centroid[B9] + (-0.12, -0.21))
text10 = Text(n10 + 1, Centroid[B10] + (-0.12, -0.21))
text11 = Text(n11 + 1, Centroid[B11] + (-0.12, -0.21))
text12 = Text(n12 + 1, Centroid[B12] + (-0.12, -0.21))
text13 = Text(n13 + 1, Centroid[B13] + (-0.12, -0.21))
text14 = Text(n14 + 1, Centroid[B14] + (-0.12, -0.21))
text15 = Text(n15 + 1, Centroid[B15] + (-0.12, -0.21))
text16 = Text(n16 + 1, Centroid[B16] + (-0.12, -0.21))
text17 = Text(n17 + 1, Centroid[B17] + (-0.12, -0.21))
text18 = Text(n18 + 1, Centroid[B18] + (-0.12, -0.21))
text19 = Text(n19 + 1, Centroid[B19] + (-0.12, -0.21))
text20 = Text(n20 + 1, Centroid[B20] + (-0.12, -0.21))
text21 = Text(n21 + 1, Centroid[B21] + (-0.12, -0.21))
text22 = Text(n22 + 1, Centroid[B22] + (-0.12, -0.21))
text23 = Text(n23 + 1, Centroid[B23] + (-0.12, -0.21))
text24 = Text(n24 + 1, Centroid[B24] + (-0.12, -0.21))
text25 = Text(n25 + 1, Centroid[B25] + (-0.12, -0.21))
a: false
b: true
text26 = LaTeX("请点击小格子,\textcolor{red}{" + (If[b, "增加", "减少"]) + "}小立方体")
X1 = If(n1 ≠ -1, B1)
X2 = If(n2 ≠ -1, B2)
X3 = If(n3 ≠ -1, B3)
X4 = If(n4 ≠ -1, B4)
X5 = If(n5 ≠ -1, B5)
X6 = If(n6 ≠ -1, B6)
X7 = If(n7 ≠ -1, B7)
X8 = If(n8 ≠ -1, B8)
X9 = If(n9 ≠ -1, B9)
X10 = If(n10 ≠ -1, B10)
X11 = If(n11 ≠ -1, B11)
X12 = If(n12 ≠ -1, B12)
X13 = If(n13 ≠ -1, B13)
X14 = If(n14 ≠ -1, B14)
X15 = If(n15 ≠ -1, B15)
X16 = If(n16 ≠ -1, B16)
X17 = If(n17 ≠ -1, B17)
X18 = If(n18 ≠ -1, B18)
X19 = If(n19 ≠ -1, B19)
X20 = If(n20 ≠ -1, B20)
X21 = If(n21 ≠ -1, B21)
X22 = If(n22 ≠ -1, B22)
X23 = If(n23 ≠ -1, B23)
X24 = If(n24 ≠ -1, B24)
X25 = If(n25 ≠ -1, B25)
S1 = If(n1 ≠ -1, Translate[B1, Vector[(0, 0, n1 + 1)]])
S2 = If(n2 ≠ -1, Translate[B2, Vector[(0, 0, n2 + 1)]])
S3 = If(n3 ≠ -1, Translate[B3, Vector[(0, 0, n3 + 1)]])
S4 = If(n4 ≠ -1, Translate[B4, Vector[(0, 0, n4 + 1)]])
S5 = If(n5 ≠ -1, Translate[B5, Vector[(0, 0, n5 + 1)]])
S6 = If(n6 ≠ -1, Translate[B6, Vector[(0, 0, n6 + 1)]])
S7 = If(n7 ≠ -1, Translate[B7, Vector[(0, 0, n7 + 1)]])
S8 = If(n8 ≠ -1, Translate[B8, Vector[(0, 0, n8 + 1)]])
S9 = If(n9 ≠ -1, Translate[B9, Vector[(0, 0, n9 + 1)]])
S10 = If(n10 ≠ -1, Translate[B10, Vector[(0, 0, n10 + 1)]])
S11 = If(n11 ≠ -1, Translate[B11, Vector[(0, 0, n11 + 1)]])
S12 = If(n12 ≠ -1, Translate[B12, Vector[(0, 0, n12 + 1)]])
S13 = If(n13 ≠ -1, Translate[B13, Vector[(0, 0, n13 + 1)]])
S14 = If(n14 ≠ -1, Translate[B14, Vector[(0, 0, n14 + 1)]])
S15 = If(n15 ≠ -1, Translate[B15, Vector[(0, 0, n15 + 1)]])
S16 = If(n16 ≠ -1, Translate[B16, Vector[(0, 0, n16 + 1)]])
S17 = If(n17 ≠ -1, Translate[B17, Vector[(0, 0, n17 + 1)]])
S18 = If(n18 ≠ -1, Translate[B18, Vector[(0, 0, n18 + 1)]])
S19 = If(n19 ≠ -1, Translate[B19, Vector[(0, 0, n19 + 1)]])
S20 = If(n20 ≠ -1, Translate[B20, Vector[(0, 0, n20 + 1)]])
S21 = If(n21 ≠ -1, Translate[B21, Vector[(0, 0, n21 + 1)]])
S22 = If(n22 ≠ -1, Translate[B22, Vector[(0, 0, n22 + 1)]])
S23 = If(n23 ≠ -1, Translate[B23, Vector[(0, 0, n23 + 1)]])
S24 = If(n24 ≠ -1, Translate[B24, Vector[(0, 0, n24 + 1)]])
S25 = If(n25 ≠ -1, Translate[B25, Vector[(0, 0, n25 + 1)]])
Z1 = Sequence(Translate[Rotate[B1, (-(90°)), Line[(Mod[0, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n1)
Z2 = Sequence(Translate[Rotate[B2, (-(90°)), Line[(Mod[1, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n2)
Z3 = Sequence(Translate[Rotate[B3, (-(90°)), Line[(Mod[2, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n3)
Z4 = Sequence(Translate[Rotate[B4, (-(90°)), Line[(Mod[3, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n4)
Z5 = Sequence(Translate[Rotate[B5, (-(90°)), Line[(Mod[4, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n5)
Z6 = Sequence(Translate[Rotate[B6, (-(90°)), Line[(Mod[5, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n6)
Z7 = Sequence(Translate[Rotate[B7, (-(90°)), Line[(Mod[6, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n7)
Z8 = Sequence(Translate[Rotate[B8, (-(90°)), Line[(Mod[7, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n8)
Z9 = Sequence(Translate[Rotate[B9, (-(90°)), Line[(Mod[8, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n9)
Z10 = Sequence(Translate[Rotate[B10, (-(90°)), Line[(Mod[9, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n10)
Z11 = Sequence(Translate[Rotate[B11, (-(90°)), Line[(Mod[10, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n11)
Z12 = Sequence(Translate[Rotate[B12, (-(90°)), Line[(Mod[11, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n12)
Z13 = Sequence(Translate[Rotate[B13, (-(90°)), Line[(Mod[12, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n13)
Z14 = Sequence(Translate[Rotate[B14, (-(90°)), Line[(Mod[13, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n14)
Z15 = Sequence(Translate[Rotate[B15, (-(90°)), Line[(Mod[14, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n15)
Z16 = Sequence(Translate[Rotate[B16, (-(90°)), Line[(Mod[15, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n16)
Z17 = Sequence(Translate[Rotate[B17, (-(90°)), Line[(Mod[16, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n17)
Z18 = Sequence(Translate[Rotate[B18, (-(90°)), Line[(Mod[17, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n18)
Z19 = Sequence(Translate[Rotate[B19, (-(90°)), Line[(Mod[18, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n19)
Z20 = Sequence(Translate[Rotate[B20, (-(90°)), Line[(Mod[19, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n20)
Z21 = Sequence(Translate[Rotate[B21, (-(90°)), Line[(Mod[20, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n21)
Z22 = Sequence(Translate[Rotate[B22, (-(90°)), Line[(Mod[21, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n22)
Z23 = Sequence(Translate[Rotate[B23, (-(90°)), Line[(Mod[22, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n23)
Z24 = Sequence(Translate[Rotate[B24, (-(90°)), Line[(Mod[23, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n24)
Z25 = Sequence(Translate[Rotate[B25, (-(90°)), Line[(Mod[24, 5], 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n25)
Y1 = Sequence(Translate[Rotate[B1, 90°, Line[(Mod[0, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n1)
Y2 = Sequence(Translate[Rotate[B2, 90°, Line[(Mod[1, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n2)
Y3 = Sequence(Translate[Rotate[B3, 90°, Line[(Mod[2, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n3)
Y4 = Sequence(Translate[Rotate[B4, 90°, Line[(Mod[3, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n4)
Y5 = Sequence(Translate[Rotate[B5, 90°, Line[(Mod[4, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n5)
Y6 = Sequence(Translate[Rotate[B6, 90°, Line[(Mod[5, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n6)
Y7 = Sequence(Translate[Rotate[B7, 90°, Line[(Mod[6, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n7)
Y8 = Sequence(Translate[Rotate[B8, 90°, Line[(Mod[7, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n8)
Y9 = Sequence(Translate[Rotate[B9, 90°, Line[(Mod[8, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n9)
Y10 = Sequence(Translate[Rotate[B10, 90°, Line[(Mod[9, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n10)
Y11 = Sequence(Translate[Rotate[B11, 90°, Line[(Mod[10, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n11)
Y12 = Sequence(Translate[Rotate[B12, 90°, Line[(Mod[11, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n12)
Y13 = Sequence(Translate[Rotate[B13, 90°, Line[(Mod[12, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n13)
Y14 = Sequence(Translate[Rotate[B14, 90°, Line[(Mod[13, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n14)
Y15 = Sequence(Translate[Rotate[B15, 90°, Line[(Mod[14, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n15)
Y16 = Sequence(Translate[Rotate[B16, 90°, Line[(Mod[15, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n16)
Y17 = Sequence(Translate[Rotate[B17, 90°, Line[(Mod[16, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n17)
Y18 = Sequence(Translate[Rotate[B18, 90°, Line[(Mod[17, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n18)
Y19 = Sequence(Translate[Rotate[B19, 90°, Line[(Mod[18, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n19)
Y20 = Sequence(Translate[Rotate[B20, 90°, Line[(Mod[19, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n20)
Y21 = Sequence(Translate[Rotate[B21, 90°, Line[(Mod[20, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n21)
Y22 = Sequence(Translate[Rotate[B22, 90°, Line[(Mod[21, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n22)
Y23 = Sequence(Translate[Rotate[B23, 90°, Line[(Mod[22, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n23)
Y24 = Sequence(Translate[Rotate[B24, 90°, Line[(Mod[23, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n24)
Y25 = Sequence(Translate[Rotate[B25, 90°, Line[(Mod[24, 5] + 1, 0, 0), yAxis]], Vector[(0, 0, v)]], v, 0, n25)
Q1 = Sequence(Translate[Rotate[B1, 90°, Line[(0, Div[0, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n1)
Q2 = Sequence(Translate[Rotate[B2, 90°, Line[(0, Div[1, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n2)
Q3 = Sequence(Translate[Rotate[B3, 90°, Line[(0, Div[2, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n3)
Q4 = Sequence(Translate[Rotate[B4, 90°, Line[(0, Div[3, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n4)
Q5 = Sequence(Translate[Rotate[B5, 90°, Line[(0, Div[4, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n5)
Q6 = Sequence(Translate[Rotate[B6, 90°, Line[(0, Div[5, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n6)
Q7 = Sequence(Translate[Rotate[B7, 90°, Line[(0, Div[6, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n7)
Q8 = Sequence(Translate[Rotate[B8, 90°, Line[(0, Div[7, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n8)
Q9 = Sequence(Translate[Rotate[B9, 90°, Line[(0, Div[8, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n9)
Q11 = Sequence(Translate[Rotate[B11, 90°, Line[(0, Div[10, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n11)
Q12 = Sequence(Translate[Rotate[B12, 90°, Line[(0, Div[11, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n12)
Q13 = Sequence(Translate[Rotate[B13, 90°, Line[(0, Div[12, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n13)
Q14 = Sequence(Translate[Rotate[B14, 90°, Line[(0, Div[13, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n14)
Q15 = Sequence(Translate[Rotate[B15, 90°, Line[(0, Div[14, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n15)
Q16 = Sequence(Translate[Rotate[B16, 90°, Line[(0, Div[15, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n16)
Q17 = Sequence(Translate[Rotate[B17, 90°, Line[(0, Div[16, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n17)
Q18 = Sequence(Translate[Rotate[B18, 90°, Line[(0, Div[17, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n18)
Q19 = Sequence(Translate[Rotate[B19, 90°, Line[(0, Div[18, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n19)
Q20 = Sequence(Translate[Rotate[B20, 90°, Line[(0, Div[19, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n20)
Q21 = Sequence(Translate[Rotate[B21, 90°, Line[(0, Div[20, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n21)
Q22 = Sequence(Translate[Rotate[B22, 90°, Line[(0, Div[21, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n22)
Q23 = Sequence(Translate[Rotate[B23, 90°, Line[(0, Div[22, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n23)
Q24 = Sequence(Translate[Rotate[B24, 90°, Line[(0, Div[23, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n24)
Q25 = Sequence(Translate[Rotate[B25, 90°, Line[(0, Div[24, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n25)
H1 = Sequence(Translate[Rotate[B1, (-(90°)), Line[(0, Div[0, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n1)
H2 = Sequence(Translate[Rotate[B2, (-(90°)), Line[(0, Div[1, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n2)
H3 = Sequence(Translate[Rotate[B3, (-(90°)), Line[(0, Div[2, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n3)
H4 = Sequence(Translate[Rotate[B4, (-(90°)), Line[(0, Div[3, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n4)
H5 = Sequence(Translate[Rotate[B5, (-(90°)), Line[(0, Div[4, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n5)
H6 = Sequence(Translate[Rotate[B6, (-(90°)), Line[(0, Div[5, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n6)
H7 = Sequence(Translate[Rotate[B7, (-(90°)), Line[(0, Div[6, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n7)
H8 = Sequence(Translate[Rotate[B8, (-(90°)), Line[(0, Div[7, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n8)
H9 = Sequence(Translate[Rotate[B9, (-(90°)), Line[(0, Div[8, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n9)
H10 = Sequence(Translate[Rotate[B10, (-(90°)), Line[(0, Div[9, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n10)
H11 = Sequence(Translate[Rotate[B11, (-(90°)), Line[(0, Div[10, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n11)
H12 = Sequence(Translate[Rotate[B12, (-(90°)), Line[(0, Div[11, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n12)
H13 = Sequence(Translate[Rotate[B13, (-(90°)), Line[(0, Div[12, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n13)
H14 = Sequence(Translate[Rotate[B14, (-(90°)), Line[(0, Div[13, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n14)
H15 = Sequence(Translate[Rotate[B15, (-(90°)), Line[(0, Div[14, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n15)
H16 = Sequence(Translate[Rotate[B16, (-(90°)), Line[(0, Div[15, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n16)
H17 = Sequence(Translate[Rotate[B17, (-(90°)), Line[(0, Div[16, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n17)
H18 = Sequence(Translate[Rotate[B18, (-(90°)), Line[(0, Div[17, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n18)
H19 = Sequence(Translate[Rotate[B19, (-(90°)), Line[(0, Div[18, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n19)
H20 = Sequence(Translate[Rotate[B20, (-(90°)), Line[(0, Div[19, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n20)
H21 = Sequence(Translate[Rotate[B21, (-(90°)), Line[(0, Div[20, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n21)
H22 = Sequence(Translate[Rotate[B22, (-(90°)), Line[(0, Div[21, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n22)
H23 = Sequence(Translate[Rotate[B23, (-(90°)), Line[(0, Div[22, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n23)
H24 = Sequence(Translate[Rotate[B24, (-(90°)), Line[(0, Div[23, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n24)
H25 = Sequence(Translate[Rotate[B25, (-(90°)), Line[(0, Div[24, 5] + 1, 0), xAxis]], Vector[(0, 0, v)]], v, 0, n25)
Q10 = Sequence(Translate[Rotate[B10, 90°, Line[(0, Div[9, 5], 0), xAxis]], Vector[(0, 0, v)]], v, 0, n10)
c = true
n0: -1
A = (5.020134166788291, -0.482028970053392)
B = (7.400227650308643, -0.482028970053392)

Tool: 坐标系
x最小、最大，y最小、最大，0.23
Input: m, n, q, p, a
Output: A, B, O, l1, l2, list3, list4, list5, list6, u, v

$\huge\textcolor{}{x}$

$\huge\textcolor{}{y}$

$\Large{O}$

u = Vector((m - 1, 0), (n + 1, 0))
l1 = Sequence(Segment[(k, 0), (k, a)], k, m, n)
A: (n + 1, 0)
list4 = Sequence(Text[k, Element[Sequence[(t - 0.15, 0), t, 1, n], k], true, true], k, 1, n)
list3 = Sequence(Text[k, Element[Sequence[(t - 0.5, 0), t, m, -1], k + abs(m) + 1], true, true], k, m, -1)
l2 = Sequence(Segment[(0, k), (a, k)], k, q, p)
list5 = Sequence(Text[k, Element[Sequence[(-0.9, t + 0.2), t, q, -1], k + abs(q) + 1], true, true], k, q, -1)
v = Vector((0, q - 1), (0, p + 1))
B: (0, p + 1)
list6 = Sequence(Text[k, Element[Sequence[(-0.6, t + 0.2), t, 1, p], k], true, true], k, 1, p)
O: B - (0, p + 1)