$\overline{AD}=2,\overline{AB_1}=1$
$\overline{B_1D}=\overline{BB_1}=\sqrt5$
$\overline{AB}=\sqrt5+1$

A = (-1.24, 0.38)
b: y = y(A)
P = (-3.5, -2.18)
Q = Point(Ray[P + (0.2, 0), P + (1, 0)])
a = Segment(P, Q)
D: A + (0, 2 * a)
B_1: A + (a, 0)
c = Circle(B_1, D)
B = Intersect(c, b, 2)
C: B + D - A
poly1, d, e, f, g = Polygon(A, B, C, D)
h = Segment(B_1, D)
Q' = Rotate(Q, 270*°, D)
D' = Rotate(D, 270*°, A)
D_1: (x(D'), y(C))
i = Segment(D', D_1)
text2: "$\frac{\overline{AB}}{\overline{BC}}=\frac{" + (LaTeX[f]) + "}{" + (LaTeX[e]) + "}=" + (LaTeX[f / e]) + "=\frac{\sqrt5+1}{2}$
$\frac{\overline{BC}}{\overline{BD'}}=\frac{" + (LaTeX[e]) + "}{" + (LaTeX[Distance[C, D_1]]) + "}=" + (LaTeX[e / Distance[C, D_1]]) + "=\frac{\sqrt5+1}{2}$"