A = (-4, -3)
b = 20 (slider from 0 to 20, step 0.1)
B = Point(Circle[A, b])
c = Segment(A, B)
d = OrthogonalLine(A, c)
a = 8.4 (slider from 0 to 10, step 0.1)
e = Circle(A, a)
C = Intersect(e, d, 2)
f = OrthogonalLine(C, d)
D = Point(f)
g = Segment(D, A)
h = Line(B, g)
E = Intersect(f, h)
poly1, a_1, b_1, e_1, d_1 = Polygon(A, B, E, D)
i = OrthogonalLine(D, a_1)
F = Intersect(i, a_1)
AD: sqrt(Distance[D, F]^(2) + Distance[A, F]^(2))
text2: "Área = b · a = " + b + " · " + a + " = " + ((b * a))
polígono1, f_1, a_2, d_2 = Polygon(A, D, F)
polígono2, f_2, b_2, e_2, d_3 = Polygon(F, B, E, D)
u = Vector(A, B)
move = 1 (slider from 0 to 1, step 0.01)
v: (move * u)
A' = Translate(A, v)
D' = Translate(D, v)
F' = Translate(F, v)
polígono1', f', a', d' = Polygon(A', D', F')
text1: "Perímetro = 2 · " + AD + " + 2 · " + b + " = " + ((2 * AD) + (2 * b)) + ""