A: (0.41, 4.01)
B: (0.41, 3.01)
a_1 = Line(A, B)
b_1 = OrthogonalLine(B, a_1)
c_1 = Circle(B, A)
C = Intersect(c_1, b_1, 2)
d_2 = OrthogonalLine(A, a_1)
e = OrthogonalLine(C, b_1)
D = Intersect(d_2, e)
P = (0.7321057154116009, 4.077329384436249)
Q = (0.8729879759495514, 3.0002617796783673)
a = Segment(A, P)
d = Segment(P, D)
b = Segment(B, Q)
c = Segment(Q, C)
p = Segment(P, Q)
A6 = Sum(A1:A5)
A1: a
A2: d
A3: p
A4: b
A5: c
text1: "AP+DP+PQ+QB+QC=" + (LaTeX[a]) + "+" + (LaTeX[d]) + "+" + (LaTeX[p]) + "+" + (LaTeX[b]) + "+" + (LaTeX[c]) + "=" + (LaTeX[A6]) + ""
distanceAB = Distance(A, B)
テキストAB: Name[A] + (Name[B]) + " = " + distanceAB