Solution

\multiply

\multiply

=

x

b = 2 (slider from 0 to 9, step 1)
B = (10, -10)
A = (0, 0)
poly1, a_1, b_1, c_1, d_1, C, D = Polygon(A, B, 4.0)
J = Point(b_1)
a = 5 (slider from 0 to 9, step 1)
c = 2 (slider from 0 to 9, step 1)
d = 6 (slider from 0 to 9, step 1)
E = Point(d_1)
F = Point(b_1)
G = Point(c_1)
H = Point(a_1)
list1 = Sequence(A + t * (E - A), t, 1.0 / a, 1.0, 1.0 / a)
I = Point(d_1)
list2 = Sequence(I + t * (D - I), t, 0.0, 1.0 - 1.0 / b, 1.0 / b)
list3 = Sequence(B + t * (F - B), t, 1.0 / a, 1.0, 1.0 / a)
L1 = 0
list5 = Sequence(J + t * (C - J), t, 0.0, 1.0 - 1.0 / b, 1.0 / b)
K = Point(a_1)
L = Point(c_1)
list7 = Sequence(A + t * (H - A), t, 1.0 / c, 1.0, 1.0 / c)
list8 = Sequence(D + t * (G - D), t, 1.0 / c, 1.0, 1.0 / c)
list9 = Sequence(L + t * (C - L), t, 0.0, 1.0 - 1.0 / d, 1.0 / d)
list10 = Sequence(K + t * (B - K), t, 0.0, 1.0 - 1.0 / d, 1.0 / d)
list4 = Sequence(Segment[Element[list1, k], Element[list3, k]], k, 1.0, a)
list6 = Sequence(Segment[Element[list2, k], Element[list5, k]], k, 1.0, b)
list11 = Sequence(Segment[Element[list7, k], Element[list8, k]], k, 1.0, c)
list12 = Sequence(Segment[Element[list9, k], Element[list10, k]], k, 1.0, d)
e = true
M = (4.358461215182287, 6.5755511790763075)
N = (7.342152086749606, -0.11602737754554467)
O = (2.243806519799624, -6.34411997353558)
f = CircumcircleArc(M, N, O)
P = (16.409096191609517, 6.9521335220896585)
Q = (12.78811212417345, 0.14468347530985215)
R = (18, -7)
g = CircumcircleArc(P, Q, R)
h: a * d
text2 = Text(b * d, true)
text5 = Text(a, true)
text6 = Text(b, true)
text7 = Text(c, true)
text8 = Text(d, true)
text9 = Text((10.0 * a + b) * (10.0 * c + d), true)
text3 = Text(100.0 * a * c, true)
text1 = Text(10.0 * b * c, true)
text4 = Text(10.0 * a * d, true)