Delisches Problem VersionD

Delisches Problem Version BK

r = 2 (slider from -5 to 5, step 0.1)
M: (r, 0)
O = (0, 0)
c = Circle(M, O)
Q = Point(c)
a = OrthogonalLine(Q, yAxis)
A, D = Intersect(c, a)
d = Line(O, Q)
e = OrthogonalLine(D, xAxis)
P = Intersect(d, e)
Ortslinie1 = Locus(P, Q)
B: ((2 * r), 0)
f = OrthogonalLine(B, xAxis)
g = Segment(D, Q)
h = Segment(D, P)
H: (0, (4 * r))
b = Segment(H, B)
E = Intersect(d, f)
i = Segment(E, B)
j = false
Text1: " i^3 =" + (LaTeX[i^(3)]) + "≈ " + (LaTeX[(2 * ((2 * r))^(3))]) + "=2 (2r)^3"
Text2: "Alter Altar Kante " + ((2 * r)) + "
Doppelter Altar 
Kante etwa " + i + ""
N: (r, r)
L = Midpoint(N, M)
k = Ray(B, L)
u = Vector(B, L)
C = Intersect(e, xAxis)
s = Segment(O, C)
t = Segment(C, B)
w = Segment(D, C)
l = false