20260721[br][br][br]n = 滑动条(0, 20,1)[br][br]m = 滑动条(0, 7,1)[br][br]#随机矩阵代码[br]m1=序列(序列(区间随机数(0,3),i,1,n),j,1,n)[br][br]ListLines={线段((0.5, 0), (0, 0.5)), 线段((0.5, 1), (1, 0.5))}[br]ListArcs={圆弧((0, 0), (0.5, 0), (0, 0.5)), 圆弧((1, 1), (0.5, 1), (1, 0.5))}[br][br]ListPolys={多边形((0, 0), (1, 0), (1, 1)), 圆扇形((0, 0), (1, 0), (1, 1)), 圆扇形((0, 0), (1, 0), (0, 1)), 圆扇形((0, 0), (1;pi/6), (1;pi/3)),多边形((0, 0), (0.5, 0), (0, 0.5)),圆扇形((0, 0), (0.5, 0), (0, 0.5))}[br]ListPolysArcs={{多边形((0, 0), (0.5, 0), (0, 0.5)), 多边形((1, 1), (1, 0.5), (0.5, 1))}, {圆扇形((0, 0), (0.5, 0), (0, 0.5)),圆扇形((1, 1), (0.5, 1), (1, 0.5))},{多边形((0, 0), (0.5, 0), (0, 0.5)),圆扇形((1, 1), (0.5, 1), (1, 0.5)) }}[br][br]#生成图案。在原点生成三角形(基本图案)，并按矩阵代码旋转和平移[br]#m3=序列(序列(平移(旋转(多边形((0,0),(1,0),(1,1)),元素(m1,i,j)*90°,(0.5,0.5)),向量(i (1,0)+j (0,1))),i,1,n),j,1,n)[br]#序列(序列(平移(旋转(元素(l1, 1), 元素(m1, i, j) * 90°, (0.5, 0.5)), 向量((i, j))), i, 1, n), j, 1, n)[br][br][br]Lines1=序列(序列(平移(旋转(ListLines, 元素(m1, i, j) * 90°, (0.5, 0.5)), 向量((i, j))), i, 1, n), j, 1, n)[br]Lines2=序列(序列(平移(旋转(元素(ListLines, 2), 元素(m1, i, j) * 90°, (0.5, 0.5)), 向量((i, j))), i, 1, n), j, 1, n)[br][br]Arcs1=序列(序列(平移(旋转(ListArcs, 元素(m1, i, j) * 90°, (0.5, 0.5)), 向量((i, j))), i, 1, n), j, 1, n)[br]Arcs2=序列(序列(平移(旋转(元素(ListArcs, 2), 元素(m1, i, j) * 90°, (0.5, 0.5)), 向量((i, j))), i, 1, n), j, 1, n)[br][br]Polys1=序列(序列(平移(旋转(元素(ListPolys, 1), 元素(m1, i, j) * 90°, (0.5, 0.5)), 向量((i, j))), i, 1, n), j, 1, n)[br]Polys2=序列(序列(平移(旋转(元素(ListPolys, 2), 元素(m1, i, j) * 90°, (0.5, 0.5)), 向量((i, j))), i, 1, n), j, 1, n)[br]Polys3=序列(序列(平移(旋转(元素(ListPolys, 3), 元素(m1, i, j) * 90°, (0.5, 0.5)), 向量((i, j))), i, 1, n), j, 1, n)[br]Polys4=序列(序列(平移(旋转(元素(ListPolys, 4), 元素(m1, i, j) * 90°, (0.5, 0.5)), 向量((i, j))), i, 1, n), j, 1, n)[br]Polys5=序列(序列(平移(旋转(元素(ListPolys, 5), 元素(m1, i, j) * 90°, (0.5, 0.5)), 向量((i, j))), i, 1, n), j, 1, n)[br]Polys6=序列(序列(平移(旋转(元素(ListPolys, 6), 元素(m1, i, j) * 90°, (0.5, 0.5)), 向量((i, j))), i, 1, n), j, 1, n)[br][br]PolysArcs1=序列(序列(平移(旋转(元素(ListPolysArcs, 1), 元素(m1, i, j) * 90°, (0.5, 0.5)), 向量((i, j))), i, 1, n), j, 1, n)[br]PolysArcs2=序列(序列(平移(旋转(元素(ListPolysArcs, 2), 元素(m1, i, j) * 90°, (0.5, 0.5)), 向量((i, j))), i, 1, n), j, 1, n)[br][br]PolysArcs3=序列(序列(平移(旋转(元素(ListPolysArcs, 3), 元素(m1, i, j) * 90°, (0.5, 0.5)), 向量((i, j))), i, 1, n), j, 1, n)[br][br][br]Mtr={{1,0,1},{0,1,0},{0,0,1}}[br]Mtu={{1,0,0},{0,1,1},{0,0,1}}[br]Mr={{cos(1°),-sin(1°),0},{sin(1°),cos(1°),0},{0,0,1}}[br]Mr90={{0,-1,0},{1,0,0},{0,0,1}}[br][br]Arcs3=序列(序列(应用矩阵(Mtu^j Mtr^i Mr^(元素(m1, i, j) * 90), ListArcs), i, 1, n), j, 1, n)[br][br]Arcs4=序列(序列(应用矩阵(Mtu^j Mtr^i Mr90^(元素(m1, i, j)), ListArcs), i, 1, n), j, 1, n)[br][br][br][br][br]