Diameter

Diameter

Diameter

Diameter

Diameter

Diameter

Start Animation!

Pause

Reset

Missing fraction of diameter 

Show fraction

radius = 3.5 (slider from 2 to 5, step 0.1)
c: x^(2) + y^(2) = radius^(2)
A = Center(c)
B: (radius, 0)
C: ((-radius), 0)
b = Segment(C, B)
B' = Rotate(B, 114.59155902616465°, A)
α = Angle(B, A, B')
B'' = Rotate(B', 114.59155902616465°, A)
β = Angle(B', A, B'')
B''' = Rotate(B'', 114.59155902616465°, A)
γ = Angle(B'', A, B''')
d = 0 (slider from 0 to 6, step 0.01)
B'_1 = Rotate(B, If[0 < d < 1, (d * α), α], A)
e = CircleArc(A, B, B'_1)
C' = Dilate(C, If[0 < d < 1, 1 - d, 0], B)
f = Segment(C', B)
g = Segment(C', C)
e' = Rotate(e, If[1.2 ≤ d ≤ 2.2, ((d - 1.2) * α), α], A)
C'_1 = Dilate(C, If[1.2 < d < 2.2, 2.2 - d, 0], B)
h = Segment(C'_1, B)
i = Segment(C, C'_1)
B'_2 = Rotate(B, If[1.2 < d < 2.2, ((d - 1.2) * α), α], A)
k = CircleArc(A, B, B'_2)
C'_2 = Dilate(C, If[2.4 < d < 3.4, 3.4 - d, 0], B)
j = Segment(C'_2, B)
l = Segment(C, C'_2)
B'_3 = Rotate(B, If[2.4 < d < 3.4, ((d - 2.4) * α), α], A)
p = CircleArc(A, B, B'_3)
e'' = Rotate(e', If[2.4 ≤ d ≤ 3.4, ((d - 2.4) * α), α], A)
k' = Rotate(k, If[2.4 ≤ d ≤ 3.4, ((d - 2.4) * α), α], A)
q = CircleArc(A, B, B')
r = CircleArc(A, B''', B)
m: r / l
s = CircleArc(A, B, B')
t = CircleArc(A, B', B'')
c_1 = CircleArc(A, B'', B''')
d_1 = CircleArc(A, B''', B)
diam: (2 * radius)
text2: "Diameter = " + diam + ""
text3: "= \frac{" + (LaTeX[r]) + " }{ " + (LaTeX[l]) + "}≈ " + (LaTeX[m]) + ""
a = false
n = false
Circ: ((2 * π) * radius)
text4: "Circumference = " + Circ + ""