广义谢尔宾斯基三角形演示 iShow
移动滑块可以看到形状的变化
20260719 修改自：Zbynek Konecny — 2014年1月11日 - 上午9:25 的 Generalized Sierpinski triangle – GeoGebra
名称 定义 数值
d = 0.59
A = (-1.73, 0)
B = (0.87, 0)
C = (-0.43, 2.25)
list1 {{A, B, C}}
#取定比分点，每条边2个，从顶点向相邻的顶点，只在三个角
list2 合并(序列(映射(t d + 元素(t, k) (1 - d), t, list1), k, 1, 3))
a=2 - 3d
#取定比分点，每条边2个，从顶点向相邻的顶点，只在三个角，依次缩放
list3=合并(序列(映射(t d + 元素(t, k) (1 - d), t, list2), k, 1, 3))
list4=合并(序列(映射(t d + 元素(t, k) (1 - d), t, list3), k, 1, 3))
list5=合并(序列(映射(t d + 元素(t, k) (1 - d), t, list4), k, 1, 3))
list6=合并(序列(映射(t d + 元素(t, k) (1 - d), t, list5), k, 1, 3))
#内部所有的三角形，位似比为中心总和(t) / 3，位似比看不懂。当a=0.5时即为典型的
s=映射(多边形(位似(t, -a, 总和(t) / 3)), t, 合并({list1, list2, list3, list4, list5, list6}))
#底部原三角形
poly1=多边形(A, B, C)
c=线段(A, B, poly1)
a1=线段(B, C, poly1)
b=线段(C, A, poly1)
button1
button2
button1
button2
赋值[d,0.5]
赋值[d,(sqrt(5)-1)/2]