n = 8 (slider from 3 to 8, step 1)
k = 0 (slider from 0 to 1)
h = 4.5 (slider from 3 to 8)
a, A, B, C, D, E, F, G, H, face1, face3, face2, face4, face5, face6, face7, face8, faceABC, edge1, edge2, edge3, edge4, edge6, edge8, edge10, edge12, edgeAB, edgeBC, edgeAC, edge5, edge7, edge9, edge11, edge13 = Prism(Polygon[(-1, 0, 0), (1, 0, 0), n, xOyPlane], h)
b, I, J, K, S, W, C_1, G_1, K_1, L, M, N, O, P, Q, U, V, A_1, B_1, E_1, F_1, I_1, J_1, M_1, N_1, R, T, Z, D_1, H_1, L_1, faceIJK, faceIJML, faceJKON, faceIKPQ, face9, face10, face11, face12, face13, faceLMR, edgeIJ, edgeJK, edgeIK, edge15, edge20, edge25, edge30, edge35, edgeIL, edgeLM, edgeJM, edgeJN, edgeNO, edgeKO, edgeKP, edgePQ, edgeIQ, edge16, edge17, edge18, edge21, edge22, edge23, edge26, edge27, edge28, edge31, edge32, edge33, edge36, edge37, edge38, edgeMR, edgeLR, edge14, edge19, edge24, edge29, edge34 = Net(a, k)

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)