A = (-28, -20)
a = 30 (slider from 1 to 30, step 0.1)
B = Point(Circle[A, a])
b = Segment(A, B)
tr, c, a_1, b_1, C = Polygon(A, B, 3)
D = Midpoint(c)
E = Midpoint(a_1)
F = Midpoint(b_1)
d = CircleArc(A, D, F)
e = CircleArc(B, E, D)
f = CircleArc(C, F, E)
α = Angle(B, A, C)
β = Angle(A, C, B)
γ = Angle(C, B, A)
G = (-6, 6)
H = Point(Circle[G, a])
g = Segment(G, H)
I = Midpoint(g)
h = Semicircle(H, G)
G' = Rotate(G, 60°, I)
α' = Angle(G, I, G')
G'' = Rotate(G', 60°, I)
β' = Angle(G', I, G'')
G''' = Rotate(G'', 60°, I)
γ' = Angle(G'', I, G''')
i = Segment(I, G')
j = Segment(I, G'')
k = CircleSector(A, D, F)
p = CircleSector(B, E, D)
q = CircleSector(C, F, E)
ar: tr - (3 * k)
arr: tr - h
J = (64.92707451047866, -15.522725542197353)
circ = Circle(J, a / 2)
árear = Area(circ)
l = Segment(C, D)
áreacirc = Area(circ)
texto3: "$A_3= Área_{triang}=" + (LaTeX[tr]) + " $"
texto2: "$A_2= Área_{semicirc}=" + (LaTeX[áreacirc / 2]) + " $"
texto4: "$ A_1=Área_{setorcirc}=" + (LaTeX[k]) + " $"
texto1: "$ Área{final}=A_3-A_2=" + (LaTeX[ar]) + " \, ua$"