Spirale auf dem DIN-A4-Blatt
Author: Prof. Dr. Dieter Riebesehl
Date: März 2011

Die Kreismittelpunkte sind blau.

Ob die Kreise wirklich knickfrei zusammenpassen?

Einstellungen
der Spirale

A = (-2.6, 2.52)
a = Line(A, yAxis)
B = Point(a)
Vieleck1, a_1, b, c, d, C, D = Polygon(A, B, 4.0)
e = Line(A, D)
f = Circle(A, C)
E, F = Intersect(f, e)
g = Line(B, C)
h = Line(F, a_1)
G = Intersect(h, g)
Vieleck2, a_2, f_1, g_1, b_1 = Polygon(A, F, G, B)
H = Midpoint(A, F)
I = Midpoint(B, G)
i = Segment(H, I)
J = Midpoint(H, I)
K = Midpoint(F, G)
j = Segment(J, K)
L = Midpoint(J, K)
M = Midpoint(I, G)
k = Segment(L, M)
N = Midpoint(J, I)
O = Midpoint(M, L)
l = Segment(O, N)
P = Midpoint(J, L)
Q = Midpoint(N, O)
m = Segment(P, Q)
Vieleck3, a_3, h_1, i_1, b_2 = Polygon(A, H, I, B)
Vieleck4, h_2, f_2, k_1, j_1 = Polygon(H, F, K, J)
Vieleck5, k_2, g_2, m_1, l_1 = Polygon(K, G, M, L)
Vieleck6, o, m_2, i_2, n = Polygon(O, M, I, N)
Vieleck7, n_1, j_2, p, q = Polygon(N, J, P, Q)
R = Midpoint(P, Q)
S = Midpoint(L, O)
T = Midpoint(R, S)
U = Midpoint(O, Q)
Vieleck9, t, s_1, o_1, u = Polygon(T, S, O, U)
V = Midpoint(R, Q)
W = Midpoint(T, U)
Vieleck10, v, w, u_1, q_1 = Polygon(V, W, U, Q)
c_1 = Segment(A, G)
d_1 = Segment(F, I)
Z = Intersect(c_1, d_1)
s = 8.3 (slider from -5 to 10, step 0.01)
min = -12 (slider from -12 to 5, step 0.1)
max = 2.6 (slider from -5 to 6, step 0.1)
r = CircleArc(P, G, F)
e_1 = CircleArc(S, I, G)
p_1 = CircleArc(U, J, I)
r_1 = CircleArc(V, L, J)
t_1 = CircleArc(N, F, A)
z = CurveCartesian(x(Z) + s * 2.0^(α / 3.141592653589793) * cos(α), y(Z) + s * 2.0^(α / 3.141592653589793) * sin(α), α, min, max)