L_1 = Sequence(Sequence[(j, k), k, -1, 1, 0.05], j, -1, 1, 0.05)
B = Point(L_1)
C = Point(L_1)
D = Point(L_1)
A = Point(L_1)
t1, c, a, b = Polygon(A, B, C)
d = Distance(D, c)
e = Distance(D, a)
f = Distance(D, b)
E: (x(D), y(D), d + e + f)
L_2 = Flatten(L_1)
L_3 = Sequence((x(L_2(k)), y(L_2(k)), Distance[L_2(k), a] + Distance[L_2(k), b] + Distance[L_2(k), c]), k, 1, Length[L_2])
L_4 = Sequence(z(L_3(k)), k, 1, Length[L_3])
g = Min(L_4)
h = IndexOf(g, L_4)
F: L_3(h)
G: (x(F), y(F))
i = Segment(F, G)
j = OrthogonalLine(B, xOyPlane)
k = OrthogonalLine(A, xOyPlane)
l = OrthogonalLine(C, xOyPlane)