Ротационна симетрия
Author: Toni Chehlarova
Date: 2013

A = (-14.588899799388674, 6.717151015454765)
P7 = (-12.97576062883997, 7.141285997648437)
c = Line(A, P7)
k = 7 (slider from 3 to 28, step 1)
D = (-10.527428885456484, 7.391115767381446)
P10 = Mirror(D, c)
β = 6.283185307179586 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
B = Point(c)
γ: (360 * ° / k)
D_1 = (-28, -6)
E = (0, -6)
C = (-8.678688589432218, 6.69159241212902)
C' = Mirror(C, c)
списък3 = Sequence({Polygon[Rotate[P7, (i * γ), A], Rotate[D, (i * γ), A], Rotate[C, (i * γ), A], Rotate[B, (i * γ), A], Rotate[C', (i * γ), A], Rotate[P10, (i * γ), A]]}, i, 1, k)