谢尔宾斯基三角曲线（可修改）演示 iShow
20260720 修改自：Steve Phelps — 2017年10月20日 - 上午1:44 的 Sierpinski Triangle Curve (Modifiable) – GeoGebra
L_{1}={半圆(B,A),半圆(B,C),半圆(D,C)}
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)}
#位似比都是以底边为分母，旋转某边与底边的夹角，先绕A旋转，再平移到A、B、D三点，再分别绕这三点旋转
#{旋转(平移( 旋转(位似(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)}
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)}
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)}
#修改：
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)
l3=合并({{L_{1}},l1})
l3(m)