#萧茂若老师的文章[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]l2101=扁平列表(序列({(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]l2202=扁平列表(序列({(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]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={l2101,l2202,l211,l212,l213,l214,l215,l216,l217,l218,l219,l2110,l2111,l2112}[br]
反思进阶：[br]ll2101=扁平列表(序列({(1,0),(0,1)*[color=#ff0000]sum([/color]1^序列(2k-1)[color=#ff0000])[/color],(-1,0)*[color=#ff0000]sum([/color]1^序列(2k-1)[color=#ff0000])[/color],(0,1),(1,0)*[color=#ff0000]sum([/color]1^序列(2k)[color=#ff0000])[/color],(0,-1)*[color=#ff0000]sum([/color]1^序列(2k)[color=#ff0000])[/color]},k,1,m))[br]l2202=扁平列表(序列({(0,1), (1,0)*sum(1^序列(2k-1)), (0,-1)*sum(1^序列(2k-1)), (1,0), (0,1)*sum(1^序列(2k)), (-1,0)*sum(1^序列(2k))}, k,1, m))[br]ll211=扁平列表(序列({(0,-1)*sum(1^序列(2k-1)),(1,0)*sum(1^序列(2k)),(0,1)*sum(1^序列(2k)),(-1,0)*sum(1^序列(2k+1))},k,1,m))[br]ll212=扁平列表(序列({(0,-1)*sum(1^序列(2k-1)),(-1,0)*sum(1^序列(2k)),(0,1)*sum(1^序列(2k)),(1,0)*sum(1^序列(2k+1))},k,1,m))[br]ll213=扁平列表(序列({(0,1)*sum(1^序列(2k-1)),(1,0)*sum(1^序列(2k)),(0,-1)*sum(1^序列(2k)),(-1,0)*sum(1^序列(2k+1))},k,1,m))[br]ll214=扁平列表(序列({(0,1)*sum(1^序列(2k-1)),(-1,0)*sum(1^序列(2k)),(0,-1)*sum(1^序列(2k)),(1,0)*sum(1^序列(2k+1))},k,1,m))[br]ll215=扁平列表(序列({(1,0),(0,1)*sum(1^序列(2k-1)),(1,0),(0,-1)*sum(1^序列(2k))},k,1,m))[br]ll216=扁平列表(序列({(-1,0),(0,1)*sum(1^序列(2k-1)),(-1,0),(0,-1)*sum(1^序列(2k))},k,1,m))[br]ll217=扁平列表(序列({(0,1),(1,0)*sum(1^序列(2k-1)),(0,1),(-1,0)*sum(1^序列(2k))},k,1,m))[br]ll218=扁平列表(序列({(0,-1),(1,0)*sum(1^序列(2k-1)),(0,-1),(-1,0)*sum(1^序列(2k))},k,1,m))[br]ll219=扁平列表(序列({(1,0),(0,1)*sum(1^序列(2k-1)),(1,1),(0,-1)*sum(1^序列(2k))},k,1,m))[br]ll2110=扁平列表(序列({(1,-1),(0,1)*sum(1^序列(4k-2)),(1,1),(0,-1)*sum(1^序列(4k))},k,1,m))[br]ll2111=扁平列表(序列({(1,1),(-1,0)*sum(1^序列(4k-2)),(-1,1),(1,0)*sum(1^序列(4k))},k,1,m))[br]ll2112=扁平列表(序列({(-1,-1)*sum(1^序列(2k-1)),(-1,1)*sum(1^序列(2k-1)),(1,1)*sum(1^序列(2k)),(1,-1)*sum(1^序列(2k))},k,1,m))[br][br]Op=滑动条(1,15,1)[br]赋值(Op,1)[br][br]Ops2={ll2101,l2201,ll211,ll212,ll213,ll214,ll215,ll216,ll217,ll218,ll219,ll2110,ll2111,ll2112}[br][br]l33 = 扁平列表(Ops2(Op))[br]l34 = 序列(A + 总和(l33, i), i, 1, n)[br]l35 = 追加(A, l34)[br]l36 = 序列(向量(l35(i), l35(i + 1)), i, 1, n)[br][br]设置显示条件(l35,Step==3)[br]设置显示条件(l36,Step==3)[br][br]