Rayon

Patron

O = (0, 0)
d = 10 (slider from 1 to 10, step 0.1)
α = 0.47123889803846897 rad (slider from 0.17453292519943295 to 1.0471975511965976, step 0.017453292519943295)
a, b = AngularBisector(xAxis, yAxis)
c = Circle(O, d)
A = Intersect(c, a, 1)
A' = Rotate(A, (-α), b)
e = Line(O, A')
f = OrthogonalLine(A, e, space)
B = Intersect(e, f)
r = Distance(A, B)
TexteAB: Name[A] + (Name[B]) + " = " + r
g, h, i = Cone(B, O, r)
β: ((2 * π) * r / d)
γ = 0.01 rad (slider from 0.01 to β, step 0.017453292519943295)
A'_1 = Rotate(A, γ, zAxis)
A'_2 = Rotate(A, γ / 2, zAxis)
k = CircumcircleSector(A, A'_2, A'_1)
p = CircumcircleArc(A, A'_2, A'_1)
distanceOA'1 = Distance(O, A'_1)
e' = Rotate(e, γ, zAxis)
h' = Rotate(h, γ, zAxis)
C = Rotate(A'_1, (-((γ * d / r))), e')
D = Intersect(e', h')
B' = Rotate(B, γ, zAxis)
E = Midpoint(C, A'_1)
j = Line(B', E)
F, G = Intersect(j, h')
q = CircleArc(B', A'_1, C)
s = CircumcircleArc(A'_1, G, C)
i' = Rotate(i, γ, zAxis)
l = Segment(O, C)
m = Segment(B', O)
n, t = Tangent(A'_1, h')
h'' = Rotate(h', ((π - acos(r / d)) * γ / β), t)
B'' = Rotate(B', ((π - acos(r / d)) * γ / β), t)