S +

S  -

M +

M  -

Punts

m = 1 (slider from 1 to n, step 1)
A = (8.271690895905548, -2.0158131486505706)
B = (14.55169089590556, 1.0641868513494295)
c = Circle(A, B)
C = Point(c)
n = 80 (slider from 1 to 100, step 1)
s = 1 (slider from 1 to n / 2, step 1)
ini = Sequence(Rotate[C, ((i * 360) * ° / n), A], i, 1, (n * m) + s)
text1: "S = " + s + ""
text2: "M = " + m + ""
CampEntradaSortida1 = Textfield(n)
mul = Sequence(Segment[Element[ini, j], Element[ini, (j * m)]], j, 1, n)
sum = Sequence(Segment[Element[ini, j], Element[ini, j + s]], j, 1, n)