Suure ringi raadius

Väikse ringi raadius

cr = 0.6 (slider from 0.1 to 5, step 0.1)
C = Intersect(xAxis, yAxis)
B: (cr, 0)
n = 15 (slider from 1 to 36, step 1)
c = Circle(C, cr)
s = Sequence(Segment[Rotate[B, k°, C], C], k, 0, 360, 360 / n)
pts = Sequence(Intersect[c, s(k)], k, 1, Length[s])
ir = 0.3 (slider from 0 to 5, step 0.1)
rs = Sequence(Circle[pts(k), ir], k, 1, Length[pts])
rsd: rs
cd = Circle(C, cr - ir / 4)
cdd: cd

Tool: Jaota kolmeks (command Jaotakolmeks)
Vali 2 punkti.
Input: A, B
Output: C, D

C: (((2 * x(A)) + x(B)) / 3, ((2 * y(A)) + y(B)) / 3)
D: ((x(A) + (2 * x(B))) / 3, (y(A) + (2 * y(B))) / 3)