\text{Área}=2  

\sqrt{2}

a: sqrt(2)
B: (a, 0)
O = (0, 0)
pol1, f, g, h, i, A, E = Polygon(O, B, 4)
b = 1.4 (slider from 1.4 to 1.5, step 0.01)
B': (b, 0)
pol2, j, k, l, m, C, D = Polygon(O, B', 4)
r = Area(pol2)
texto1_{1}: "\text{Área}=" + (LaTeX[r]) + " "
texto2: "" + (LaTeX[b]) + ""
n = Line(A, B)
p = Line(O, E)
q = Line(B', C)
F = Point(n)
G = Point(q)
s = OrthogonalLine(F, p)
t = OrthogonalLine(G, p)
H = Intersect(p, t)
I = Intersect(s, p)
c = Segment(B', G)
d = Segment(O, H)
e = Segment(H, G)
f_1 = Segment(B, F)
g_1 = Segment(O, I)
h_1 = Segment(I, F)