Preparado

Inicio

D = (1, 0, 1)
B = (0, 1, 1)
A = (0, 0, 1)
O: (0, 0, 0)
U = (0, 1, 0)
E: (1, 0, 0)
F: (1, 1, 0)
J = (1, 1, 1)
t1: {Polygon[E, U, O]}
t2: {Polygon[E, U, F]}
t3: {Polygon[A, D, B]}
t4: {Polygon[J, D, B]}
aristas: {Segment[O, U], Segment[O, E], Segment[U, F], Segment[E, F], Segment[O, A], Segment[U, B], Segment[E, D], Segment[F, J], Segment[A, B], Segment[A, D], Segment[B, J], Segment[D, J]}
silencio = false
P1 = (1, -1.6653345369377348E-16, -1.6653345369377348E-16)
P2 = (0, -1.1102230246251565E-16, -1.1102230246251565E-16)
P3 = (1, -1.1102230246251565E-16, 1)
P' = (0.9106836025229588, 0.08931639747704123, 0.08931639747704057)
r = 0.8164965809277263
guionA: false
guionB: false
guionD: false
guionE: false
guionF: false
guionJ: false
guionO: false
guionU: false
guion: false
V1: (0, 1, 1)
V2 = (1, 1, 1)
V3 = (0, 1, 0)
V4 = (0, 0, 1)
V5 = (1, 1, -1.1102230246251565E-16)
V6 = (0, -1.1102230246251565E-16, -1.1102230246251565E-16)
V7 = (1, -1.1102230246251565E-16, 1)
V8 = (0.9999999999999999, -1.1102230246251565E-16, -1.6653345369377348E-16)
A' = false
B' = false
O' = false
D' = false
E' = false
U' = false
J' = false
F' = false
Q1 = (0.49999999999999994, 0.4999999999999999, -1.1102230246251565E-16)
Q2 = (0.3333333333333333, 0.6666666666666665, 0.6666666666666664)
pc: {(0.9999999999999999, (-1.1102230246251565E-16), (-1.6653345369377348E-16)), (0.3333333333333333, 0.6666666666666665, 0.6666666666666664)}
C = (0.5, 0.49999999999999994, -1.1102230246251565E-16)
v23 = Vector(V2 - V3)
v34 = Vector(V3 - V4)
v42 = Vector(V4 - V2)
v56 = Vector(V5 - V6)
v57 = Vector(V5 - V7)
medidas: "OU = " + (aristas(1)) + "
OE = " + (aristas(2)) + "
UF = " + (aristas(3)) + "
EF = " + (aristas(4)) + "
OA = " + (aristas(5)) + "
UB = " + (aristas(6)) + "
ED = " + (aristas(7)) + "
FJ = " + (aristas(8)) + "
AB = " + (aristas(9)) + "
AD = " + (aristas(10)) + "
BJ = " + (aristas(11)) + "
DJ = " + (aristas(12)) + ""
v = (-1, 1, 1)