#萧茂若老师的文章[br]n=滑动条(5,100,1)[br]赋值(n,30)[br]m=滑动条(1,10,1)[br]赋值(m,3)[br][br]#l1=序列({(-1,-1)*1^序列(2k-1),(-1, 1)*1^序列(2k-1),(2,2)*1^序列(k), (2,-2)*1^序列(k)}, k, 1, m)[br][br]l1 = 序列({1, 0*1^序列(2t - 1), 3 * 1^序列(2t - 1), 0, 1^序列(2t), 2 * 1^序列(2t)}, t, 1, m)[br]l2 = 扁平列表(l1)[br]l3 = 映射(向量((cos(p π / 2), sin(p π / 2))), p, l2)[br]A = (0, 0)[br]l4 = 序列(A + 总和(l3, i), i, 1, n)[br]l5 = 追加(A, l4)[br]l6 = 序列(向量(l5(i), l5(i + 1)), i, 1, n)[br]l7=文本("P_{" + n + "}:" + (l4(n)))[br][br][br]l21=扁平列表(序列({(1,0),(0,1)*1^序列(2k-1),(-1,0)*1^序列(2k-1),(0,1),(1,0)*1^序列(2k),(0,-1)*1^序列(2k)},k,1,m))[br]l22=扁平列表(序列({(0, 1), (1, 0) * 1^序列(2k - 1), (0, -1) * 1^序列(2k - 1), (1, 0), (0, 1) * 1^序列(2k), (-1, 0) * 1^序列(2k)}, k, 1, m))[br]Op=滑动条(1,15,1)[br]赋值(Op,1)[br][br]Ops={l21,l22,l211,l212,,l213,l214,l215,l216,l217,l218,l219,l2110}[br][br]l23 = 扁平列表(Ops(Op))[br]l24 = 序列(A + 总和(l23, i), i, 1, n)[br]l25 = 追加(A, l24)[br]l26 = 序列(向量(l25(i), l25(i + 1)), i, 1, n)[br][br]l211=扁平列表(序列({(0,-1)*1^序列(2k-1),(1,0)*1^序列(2k),(0,1)*1^序列(2k),(-1,0)*1^序列(2k+1)},k,1,m))[br]l212=扁平列表(序列({(0,-1)*1^序列(2k-1),(-1,0)*1^序列(2k),(0,1)*1^序列(2k),(1,0)*1^序列(2k+1)},k,1,m))[br]l213=扁平列表(序列({(0,1)*1^序列(2k-1),(1,0)*1^序列(2k),(0,-1)*1^序列(2k),(-1,0)*1^序列(2k+1)},k,1,m))[br]l214=扁平列表(序列({(0,1)*1^序列(2k-1),(-1,0)*1^序列(2k),(0,-1)*1^序列(2k),(1,0)*1^序列(2k+1)},k,1,m))[br]l215=扁平列表(序列({(1,0),(0,1)*1^序列(2k-1),(1,0),(0,-1)*1^序列(2k)},k,1,m))[br]l216=扁平列表(序列({(-1,0),(0,1)*1^序列(2k-1),(-1,0),(0,-1)*1^序列(2k)},k,1,m))[br]l217=扁平列表(序列({(0,1),(1,0)*1^序列(2k-1),(0,1),(-1,0)*1^序列(2k)},k,1,m))[br]l218=扁平列表(序列({(0,-1),(1,0)*1^序列(2k-1),(0,-1),(-1,0)*1^序列(2k)},k,1,m))[br]l219=扁平列表(序列({(1,0),(0,1)*1^序列(2k-1),(1,1),(0,-1)*1^序列(2k)},k,1,m))[br]l2110=扁平列表(序列({(1,-1),(0,1)*1^序列(4k-2),(1,1),(0,-1)*1^序列(4k)},k,1,m))[br]l2111=扁平列表(序列({(1,1),(-1,0)*1^序列(4k-2),(-1,1),(1,0)*1^序列(4k)},k,1,m))[br]l2112=扁平列表(序列({(-1,-1)*1^序列(2k-1),(-1,1)*1^序列(2k-1),(1,1)*1^序列(2k),(1,-1)*1^序列(2k)},k,1,m))[br][br]Op=滑动条(1,15,1)[br]赋值(Op,1)[br][br]Ops={l21,l22,l211,l212,l213,l214,l215,l216,l217,l218,l219,l2110,l2111,l2112}[br]