BalanceamentoSemFase

a = 4 (slider from 0 to 10)
b = 3 (slider from 0 to 10)
c = 6 (slider from 0 to 10)
O = Intersect(xAxis, yAxis)
d = Circle(O, a)
e = Circle(O, b)
f = Circle(O, c)
D = Point(Circle[O, (2 * a)])
g = Segment(O, D)
h = Circle(D, b)
k = Circle(D, c)
A = Intersect(d, g)
u_{0} = Vector(O, A)
B, B' = Intersect(e, k)
C', C = Intersect(f, h)
u_{1} = Vector(O, B)
u_{2} = Vector(O, C)
v_{2} = Vector(A, C)
v_1 = Vector(A, B)
j = Segment(B, D)
l = Segment(C, D)
α = Angle(D, A, B)
m = Segment(D, C')
n = Segment(C', O)
p = Segment(O, B')
q = Segment(B', D)
r = Circle(A, B)
s = OrthogonalLine(A, v_1)
E, F = Intersect(r, s)
v_3 = Vector(A, E)
c_1 = Circle(O, E)
u_{3} = Vector(O, E)
q1, o, c_2, d_1, b_1 = Polygon(O, C, D, B)
q2, d_2, c', o_1, b' = Polygon(D, C', O, B')
distânciaOE = Distance(O, E)
Midpoint(O, E)
TextoOE: Name[O] + (Name[E]) + " = " + distânciaOE
β = Angle(A, O, B)
distânciaAB = Distance(A, B)
Midpoint(A, B)
TextoAB: Name[A] + (Name[B]) + " = " + distânciaAB
γ = Angle(A, D, B)