Descartes'i logaritmiline spiraal

R = Intersect(xAxis, yAxis)
ring = Circle(R, 8)
A = Point(yAxis)
s = Sequence(Segment[Rotate[A, k°, R], R], k, 0, 360, 22.5)
pt = Sequence(Intersect[ring, s(k)], k, 1, Length[s])
a = Semicircle(R, pt(1))
B, X_{2} = Intersect(a, s(2))
b = Semicircle(R, B)
l1 = Sequence(Semicircle[R, pt(k)], k, 1, Length[pt])
C, X_{3} = Intersect(b, s(3))
c = Semicircle(R, C)
D, X_{4} = Intersect(c, s(4))
d = Semicircle(R, D)
E, X_{5} = Intersect(d, s(5))
e = Semicircle(R, E)
F, X_{6} = Intersect(e, s(6))
f = Semicircle(R, F)
G, X_{7} = Intersect(f, s(7))
g = Semicircle(R, G)
H, X_{8} = Intersect(g, s(8))
h = Semicircle(R, H)
I, X_{10} = Intersect(h, s(9))
i = Semicircle(R, I)
J, X_{9} = Intersect(i, s(10))
j = Semicircle(R, J)
K, X_{12} = Intersect(j, s(11))
k = Semicircle(R, K)
L, X_{11} = Intersect(k, s(12))
l = Semicircle(R, L)
M, X_{13} = Intersect(l, s(13))
m = Semicircle(R, M)
N, X_{14} = Intersect(m, s(14))
n = Semicircle(R, N)
O, X = Intersect(n, s(15))
o = Semicircle(R, O)
P, X_{15} = Intersect(o, s(16))
p = Semicircle(R, P)
Q, X_{1} = Intersect(p, s(17))
lk: {A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q} \ {(0, 0)}
r = PolyLine(lk)

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)