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

A = (2.041380833118548, 0.6398560448333995)
B = (11.445658122120841, 3.226032299309025)
c = Line(A, B)
k = 5 (slider from 3 to 28, step 1)
β = 6.283185307179586 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
γ: (360 * ° / k)
C = (12.052813931419207, 1.6857466485449124)
списък4 = Sequence(Rotate[Circle[B, C], (i * γ), A], i, 1, k)
B' = Rotate(B, γ, A)
α = Angle(B, A, B')
b = Segment(A, B)
e = Segment(A, B')
f = true