20260720 修改自：[url=https://www.geogebra.org/u/stevephelps]Steve Phelps[/url] — 2017年10月20日 - 上午1:44 的 [url=https://www.geogebra.org/m/bXzgGkRS]Sierpinski Triangle Curve (Modifiable) – GeoGebra[/url][br]

[br][br][br]L_{1}={半圆(B,A),半圆(B,C),半圆(D,C)}[br][br][br]L_{2}={旋转(平移(旋转(位似(L_{1},((f)/(i)),A),角度(i,f),A),A-B),π,A),旋转(平移(位似(L_{1},((g)/(i)),A),B-A),角度(i,g),B),旋转(平移(位似(L_{1},((h)/(i)),A),D-A),π-角度(h,i),D)}[br][br]#位似比都是以底边为分母，旋转某边与底边的夹角，先绕A旋转，再平移到A、B、D三点，再分别绕这三点旋转[br]#{旋转(平移( 旋转(位似(L_{1},((f)/(i)),A),角度(i,f),A),A-B),π,A),[br]#旋转(平移(位似(L_{1},((g)/(i)),A),B-A),角度(i,g),B),[br]#旋转(平移(位似(L_{1},((h)/(i)),A),D-A),π-角度(h,i),D)}[br][br][br][br]L_{3}={旋转(平移(旋转(位似(L_{2},((f)/(i)),A),角度(i,f),A),A-B),π,A),旋转(平移(位似(L_{2},((g)/(i)),A),B-A),角度(i,g),B),旋转(平移(位似(L_{2},((h)/(i)),A),D-A),π-角度(h,i),D)}[br][br][br]L_{8}={旋转(平移(旋转(位似(L_{7},((f)/(i)),A),角度(i,f),A),A-B),π,A),旋转(平移(位似(L_{7},((g)/(i)),A),B-A),角度(i,g),B),旋转(平移(位似(L_{7},((h)/(i)),A),D-A),π-角度(h,i),D)}[br][br][br][br]#修改：[br][br]l1=迭代(扁平列表(映射({旋转(平移(旋转(位似(p,((f)/(i)),A),角度(i,f),A),A-B),π,A),旋转(平移(位似(p,((g)/(i)),A),B-A),角度(i,g),B),旋转(平移(位似(p,((h)/(i)),A),D-A),π-角度(h,i),D)}, p, p0)), p0, {L_{1}}, n)[br][br]l3=合并({{L_{1}},l1})[br][br][br]l3(m)[br][br]