Árbol de Steiner:
minimiza la suma 
de las distancias 
a los vértices

PROCESO TERMINADO

Inicio

Distancia taxista

A: (-3, 0, 6)
C: (-2, 0, 0)
anima = 0.56 (slider from 0 to 1, step 0.01)
F0 = (0, 0, 5.0000000000000036)
inc = 0.1 (slider from 0 to 0.1, step 0.01)
dif0 = 20
D: (3, 0, 0)
B: (4, 0, 5)
F: (0, 0, 6)
G: (0, 0, 0)
G0 = (0, 0, 0)
A1 = (-2.3333333333333335, 0, 2)
A2 = (-2.6666666666666665, 0, 4)
A3 = (-0.6666666666666666, 0, 5.666666666666667)
A5 = (3.6666666666666665, 0, 3.3333333333333335)
A6 = (3.3333333333333335, 0, 1.6666666666666667)
A8 = (-0.3333333333333333, 0, 0)
k = 0.1
v: (0, 4, 0)
A': A + v
B': B + v
C': C + v
D': D + v
A1': A1 + v
A2': A2 + v
A3': A3 + v
A5': A5 + v
A6': A6 + v
A8': A8 + v
varillas: {Segment[A, A'], Segment[B, B'], Segment[C, C'], Segment[D, D']}
A7 = (1.3333333333333333, 0, 0)
A4 = (1.6666666666666667, 0, 5.333333333333333)
A4': A4 + v
A7': A7 + v
láminas: {Polygon[A, A3, A3', A'], Polygon[A, A2, A2', A'], Polygon[A1, A2, A2', A1'], Polygon[A1, C, C', A1'], Polygon[A8, C, C', A8'], Polygon[A8, A7, A7', A8'], Polygon[D, A7, A7', D'], Polygon[A6, D, D', A6'], Polygon[A6, A5, A5', A6'], Polygon[B, A5, A5', B'], Polygon[A4, A3, A3', A4'], Polygon[A4, B, B', A4']}
αF = Angle(B + v / 2, F + v / 2, A + v / 2, xOyPlane)
αG = Angle(C + v / 2, G + v / 2, D + v / 2, xOyPlane)
γG = Angle(D + v / 2, G + v / 2, F + v / 2, xOyPlane)
βG = Angle(F + v / 2, G + v / 2, C + v / 2, xOyPlane)
βF = Angle(A + v / 2, F + v / 2, G + v / 2, xOyPlane)
γF = Angle(G + v / 2, F + v / 2, B + v / 2, xOyPlane)
dF(x, y, z) = abs(x - x(F)) + abs(y - y(F)) + abs(z - z(F))
dG(x, y, z) = abs(x - x(G)) + abs(y - y(G)) + abs(z - z(G))
t = false
dif = If(t, dF(A) + dF(B) + dF(G) + dG(C) + dG(D), abs(F - A) + abs(F - B) + abs(F - G) + abs(G - C) + abs(G - D))