20260719 修改自：[url=https://www.geogebra.org/u/goldenj]John Golden[/url] — 2025年6月10日 - 上午12:41 的 [url=https://www.geogebra.org/m/gujfsphk]Kolam Grid – GeoGebra[/url]

#基本元素[br]f=线段((0,1),(1,0))[br]g=线段((0,1),(1,2))[br]h=线段((2,1),(1,2))[br]l=线段((2,1),(1,0))[br][br]c: 圆弧((1,1),(0,1),(1,0))[br]d: 圆弧((1,1),(1,2),(0,1))[br]e: 圆弧((1,1),(2,1),(1,2))[br]k: 圆弧((1,1),(1,0),(2,1))[br][br]n=9[br][br][br]m1=序列(序列(区间随机数(1,2),i,1,n),j,1,n)[br][br]l1={c,f}[br][br]#平移左下角图案-圆弧，2，，以下两个等价[br]m2=序列(序列(平移(元素(l1,元素(m1,i,j)),(2 (i-1),2 (j-1))),i,1,n),j,1,n)[br]m3=序列(序列(平移(如果(元素(m1,i,j)-1≟0,c),(2 (i-1),2 (j-1))),i,1,n),j,1,n)[br][br]#随机矩阵[br]m4=序列(序列(区间随机数(1,2),i,1,n),j,1,n)[br]m5=序列(序列(区间随机数(1,2),i,1,n),j,1,n)[br]m6=序列(序列(区间随机数(1,2),i,1,n),j,1,n)[br][br]#m7左上角、m8#右上角、m9#右下角 圆弧[br]m7=序列(序列(平移(如果(元素(m4,i,j)≟1,d),(2 (i-1),2 (j-1))),i,1,n),j,1,n)[br]m8=序列(序列(平移(如果(元素(m5,i,j)≟1,e),(2 (i-1),2 (j-1))),i,1,n),j,1,n)[br]m9=序列(序列(平移(如果(元素(m6,i,j)≟1,k),(2 (i-1),2 (j-1))),i,1,n),j,1,n)[br][br]#左下角斜线、#m7左上角、m8#右上角、m9#右下角 圆弧[br]m10=序列(序列(平移(如果(元素(m1,i,j)≟2,f),(2 (i-1),2 (j-1))),i,1,n),j,1,n)[br]m11=序列(序列(平移(如果(元素(m4,i,j)≟2,g),(2 (i-1),2 (j-1))),i,1,n),j,1,n)[br]m12=序列(序列(平移(如果(元素(m5,i,j)≟2,h),(2 (i-1),2 (j-1))),i,1,n),j,1,n)[br]m13=序列(序列(平移(如果(元素(m6,i,j)≟2,l),(2 (i-1),2 (j-1))),i,1,n),j,1,n)[br][br][br]#中间的图案，m15方形点列表，m16圆形点列表[br]m14=序列(序列(区间随机数(1,2),i,1,n),j,1,n)[br]m15=序列(序列(如果(元素(m14,i,j)≟1,(2 i-1,2 j-1)),i,1,n),j,1,n)[br]m16=序列(序列(如果(元素(m14,i,j)≟2,(2 i-1,2 j-1)),i,1,n),j,1,n)[br][br]aspect=((x(角点(5)))/(y(角点(5))))[br]元素(M,1,1,1)[br]button1[br][br]更新作图()

进阶改进[br]#将基本图案放进矩阵，不知道为什么不能一条指令就搞定[br]S={{c,d,e,k},{f,g,h,l}}[br]M={m1,m4,m5,m6}[br]l21=序列(序列(序列(平移(如果(元素(M(k),i,j)≟1,元素(S,1,k),元素(S,2,k)),(2 (i-1),2 (j-1))),i,1,n),j,1,n),k,1,4)[br]l22=序列(序列(序列(平移(如果(元素(M(k),i,j)≟2,元素(S,2,k),元素(S,1,k)),(2 (i-1),2 (j-1))),i,1,n),j,1,n),k,1,4)[br][br]#再加上中间的图案，m15方形点列表，m16圆形点列表，即可组成图案