Len=滑动条(0, 10,0.01)[br]n=滑动条(3, 10,1)[br][br]r = 滑动条(0, 10,0.01)[br][br]R = 滑动条(0, 10,0.01)[br][br]赋值(n,3)[br]赋值(n,1)[br][br]#圆弧((0,0),(r,0),(r;2pi/n))[br][br]#圆弧((Len+r);pi/n),((Len+r),0),((Len+r);2pi/n))[br][br]#线段((r;pi/n),((Len+r);2pi/n))[br]#线段((r,0),((Len+r),0)[br][br]Base={圆弧((0,0),(r,0),(r;2pi/n)),圆弧(((Len+r);pi/n),((Len+r),0),((Len+r);2pi/n)),线段((r;2pi/n),((Len+r);2pi/n)),线段((r,0),((Len+r),0))}[br][br]Base2={圆弧(((Len+r);pi/n),((Len+r),0),((Len+r);2pi/n)),线段((r;2pi/n),((Len+r);2pi/n)),线段((r,0),((Len+r),0))}[br][br][br]m=滑动条(0, 10,1)[br][br][br][br]Ratio = 滑动条(-0.2, 1.5,0.01)[br][br]ShapeRT=序列(平移(旋转(Base, i 2pi/n, (0, 0)), 向量((0,0))),i,1,n)[br]#ShapeRT2=序列(序列(平移(位似(旋转(Base, i 2pi/n, (0, 0)), Ratio k,(0, 0)), 向量((0,0))),i,1,n),k,0,m)[br]#ShapeRT2=序列(序列(平移(位似(旋转(Base2,i*2*((π)/(n)),(0,0)),Ratio k,(0,0)),向量((0,0))),i,1,n),k,0,m)[br]ShapeRT2=序列(序列(平移(位似(旋转(Base2,i*2*((π)/(n)),(0,0)),(1+k Ratio),(0,0)),向量((0,0))),i,1,n),k,0,m)
研习：[br][br][br][url=https://www.geogebra.org/m/gawpzyuh]梅花 – GeoGebra[/url][br][url=https://www.geogebra.org/m/xkgrqapz]花 – GeoGebra[/url]