B_1 = (4.06653775789665, -1.4804186948198539)
l_1 = PerpendicularaLT(B_1)
B_2 = Point(l_1)
A_1 = (3.743629551025691, -2.126235108561771)
j = PerpendicularaLT(A_1)
A_2 = Point(j)
O = (11.017561790013614, 1.8676295553685092)
O_1: (7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0)
c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A_4 = Intersect(c, xAxis, 1)
B_3 = Intersect(c, xAxis, 2)
a = Ray(O, A_4)
b = Ray(O, B_3)
d = OrthogonalLine(O, xAxis)
C_3 = Intersect(c, d, 1)
e_2 = Ray(C_3, A_4)
f = Ray(C_3, B_3)
u' = UnitVector(e_2)
v' = UnitVector(f)
D: C_3 + u'
E: C_3 + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G_2 = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G_2)
u_1 = Length(u)
v_5 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_5^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
p: floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)
I_1: (1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), 0)
H_2: O + x(I_1) * u
J_2: O + x(I_1) * v
K_2: O + x(I_1) * w
L: H_2 + x(I_1) * w
N_1: J_2 + x(I_1) * u
i = Segment(O, H_2)
q = Segment(O, J_2)
r_4 = Segment(O, K_2)
P: (x(O) - x(O), x(O) - x(O))
Q_2: (x(O) - x(O), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
R_2: (0.1 * p^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
S: (1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
T: (1.4 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
U: (-1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), 0)
V_2: (-1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
W: (-1.4 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
s = Segment(P, I_1)
t = Segment(Q_2, R_2)
a_3 = Segment(T, S)
b_1 = Segment(U, I_1)
c_1 = Segment(V_2, W)
Z: (0, 1.3 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
A_5: (0, -1.3 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
d_2 = Segment(Z, A_5)
Q: O + 6 * v
e = Line(A_1, B_1)
k = Line(A_2, B_2)
A = Intersect(e, xAxis)
B = Intersect(k, xAxis)
l = OrthogonalLine(B, xAxis)
m = OrthogonalLine(A, xAxis)
C = Intersect(e, l)
G = Intersect(k, m)
n = Segment(C, B)
r = Segment(G, A)
H, I = ProyAxonométricadeAenPH(C, O)
J, K = ProyAxonométricadeAenPV(G, O)
a_1 = Segment(H, I)
d_1 = Segment(J, K)
M, N, R, V = ProyAxonométricaSimplificadadeA(A_1, A_2, O)
C_1, D_1, E_1, F_1 = ProyAxonométricaSimplificadadeA(B_1, B_2, O)
e_1 = Segment(A_1, B_1)
f_1 = Segment(A_2, B_2)
g_1 = Segment(M, C_1)
h_1 = Segment(N, D_1)
i_1 = Segment(R, E_1)
G_1 = (10.371745376271694, 0.5080160527539443)
j_1 = PerpendicularaLT(G_1)
H_1 = (12.938015862456684, 0.5420063903193084)
k_1 = PerpendicularaLT(H_1)
J_1 = Point(j_1)
K_1 = Point(k_1)
L_1, M_1, z_1, m_1, n_1, P_1, Q_1 = ProyDiédricadeA(J_1, G_1, O)
R_1, S_1, z_2, p_1, q_1, T_1, U_1 = ProyDiédricadeA(K_1, H_1, O)
r_1 = Segment(J_1, K_1)
s_1 = Segment(G_1, H_1)
t_1 = Segment(P_1, T_1)
a_2 = Segment(L_1, R_1)
b_2 = Segment(M_1, S_1)

Tool: Perpendicular a LT (command PerpendicularaLT)
Punto.
Input: B_1
Output: e_1

e_1 = OrthogonalLine(B_1, xAxis)

Tool: Espacio Diédrico (command EspacioDiédrico)
Seleccionar un punto renombrado a O.
Input: O
Output: s, t, a_1, i, q, r, c, polígono1, polígono2

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
u_1 = Length(u)
v_1 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_1^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
p: floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)
I: (1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), 0)
H: O + x(I) * u
J: O + x(I) * v
K: O + x(I) * w
M: J + x(I) * w
N: J + x(I) * u
polígono1, o, h_1, n, j = Polygon(O, H, N, J)
polígono2, o_1, j_1, m, k = Polygon(O, J, M, K)
i = Segment(O, H)
q = Segment(O, J)
r = Segment(O, K)
P: (x(O) - x(O), x(O) - x(O))
Q: (x(O) - x(O), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
R: (0.1 * p^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
S: (1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
T: (1.4 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
s = Segment(P, I)
t = Segment(Q, R)
a_1 = Segment(T, S)

Tool: Espacio Axonométrico (command EspacioAxonométrico)
Seleccionar un punto renombrado a O.
Input: O
Output: b_1, c_1, a_1, i, q, r, c, polígono1, polígono2, polígono3, d_1

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
u_1 = Length(u)
v_1 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_1^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
I: (1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), 0)
H: O + x(I) * u
J: O + x(I) * v
K: O + x(I) * w
L: H + x(I) * w
M: J + x(I) * w
N: J + x(I) * u
polígono1, o, h_1, n, j = Polygon(O, H, N, J)
polígono2, o_1, j_1, m, k = Polygon(O, J, M, K)
polígono3, o_2, k_1, l, h_2 = Polygon(O, K, L, H)
i = Segment(O, H)
q = Segment(O, J)
r = Segment(O, K)
S: (1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
T: (1.4 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
U: (-1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), 0)
V: (-1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
W: (-1.4 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), -0.04 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
a_1 = Segment(T, S)
b_1 = Segment(U, I)
c_1 = Segment(V, W)
Z: (0, 1.3 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
A_1: (0, -1.3 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
d_1 = Segment(Z, A_1)

Tool: Proy Axonométrica de A (command ProyAxonométricadeA)
A_1, A_2 y O
Input: A_1, A_2, O
Output: E_1, C_1, D_1, B_1, f_1, g_1, i_1, l_1

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
u_1 = Length(u)
v_1 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_1^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
e_1 = OrthogonalLine(A_1, xAxis)
B_1: O + x(A_1) * v
C_1: O + x(A_1) * v - y(A_1) * u
D_1: O + x(A_1) * v + y(A_2) * w
E_1: O + x(A_1) * v - y(A_1) * u + y(A_2) * w
f_1 = Segment(C_1, E_1)
g_1 = Segment(E_1, D_1)
i_1 = Segment(D_1, B_1)
l_1 = Segment(B_1, C_1)

Tool: Proy Axonométrica Simplificada de A (command ProyAxonométricaSimplificadadeA)
A_1, A_2 y O
Input: A_1, A_2, O
Output: E_1, C_1, D_1, B_1

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
u_1 = Length(u)
v_1 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_1^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
e_1 = OrthogonalLine(A_1, xAxis)
B_1: O + x(A_1) * v
C_1: O + x(A_1) * v - y(A_1) * u
D_1: O + x(A_1) * v + y(A_2) * w
E_1: O + x(A_1) * v - y(A_1) * u + y(A_2) * w

Tool: Proy Axonométrica de A en PH (command ProyAxonométricadeAenPH)
A_1 y O
Input: A_1, O
Output: C_1, B_1

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
B_1: O + x(A_1) * v
C_1: O + x(A_1) * v - y(A_1) * u

Tool: Proy Axonométrica de A en LT (command ProyAxonométricadeAenLT)
A_1=A_2 y O
Input: F_1, O
Output: G_1

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
B = Intersect(c, xAxis, 2)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
f = Ray(C, B)
v' = UnitVector(f)
E: C + v'
h = OrthogonalLine(E, xAxis)
G = Intersect(h, b)
v = Vector(O, G)
G_1: O + x(F_1) * v

Tool: Proy Axonométrica de A en PV (command ProyAxonométricadeAenPV)
A_2 y O
Input: H_1, O
Output: I_1, J_1

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
u_1 = Length(u)
v_1 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_1^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
I_1: O + x(H_1) * v + y(H_1) * w
J_1: O + x(H_1) * v

Tool: Proy Axonométrica  de A3 (command ProyAxonométricadeA3)
A_1, A_2 y O
Input: A_1, A_2, O
Output: E_1, C_1, D_1, M_1, K_1, B_1, L_1, f_1, g_1, i_1, l_1, m_1, p_1, a_2, n_1, r_1, q_1, s_1, t_1

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
u_1 = Length(u)
v_1 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_1^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
e_1 = OrthogonalLine(A_1, xAxis)
B_1: O + x(A_1) * v
C_1: O + x(A_1) * v - y(A_1) * u
D_1: O + x(A_1) * v + y(A_2) * w
E_1: O + x(A_1) * v - y(A_1) * u + y(A_2) * w
f_1 = Segment(C_1, E_1)
g_1 = Segment(E_1, D_1)
i_1 = Segment(D_1, B_1)
l_1 = Segment(B_1, C_1)
K_1: O - y(A_1) * u
L_1: O + y(A_2) * w
M_1: O + y(A_2) * w - y(A_1) * u
m_1 = Segment(E_1, M_1)
n_1 = Segment(C_1, K_1)
p_1 = Segment(D_1, L_1)
q_1 = Segment(L_1, M_1)
r_1 = Segment(M_1, K_1)
s_1 = Segment(O, L_1)
t_1 = Segment(O, K_1)
a_2 = Segment(O, B_1)

Tool: Proy Axonométrica  Simplificada de A3 (command ProyAxonométricaSimplificadadeA3)
A_1, A_2 y O
Input: A_1, A_2, O
Output: E_1, C_1, D_1, M_1, K_1, B_1, L_1

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
u_1 = Length(u)
v_1 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_1^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
e_1 = OrthogonalLine(A_1, xAxis)
B_1: O + x(A_1) * v
C_1: O + x(A_1) * v - y(A_1) * u
D_1: O + x(A_1) * v + y(A_2) * w
E_1: O + x(A_1) * v - y(A_1) * u + y(A_2) * w
K_1: O - y(A_1) * u
L_1: O + y(A_2) * w
M_1: O + y(A_2) * w - y(A_1) * u

Tool: Proy Diédrica de A (command ProyDiédricadeA)
A, A_1 y O
Input: A, A_1, O
Output: C_1, B_1, z_1, a_2, b_2, A_2, A_x

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A_4 = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A_4)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A_4)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
u_1 = Length(u)
v_1 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_1^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
I: (1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), 0)
H: O + x(I) * u
J: O + x(I) * v
K: O + x(I) * w
i = Segment(O, H)
q = Segment(O, J)
r = Segment(O, K)
e_1 = PerpendicularaLT(A_1)
f_1 = Line(A_1, i)
g_1 = Line(A, i)
A_x = Intersect(q, f_1)
i_1 = Line(A_x, r)
A_2 = Intersect(g_1, i_1)
l_1 = Line(A_2, q)
n_1 = Line(A_1, q)
A_y = Intersect(n_1, i)
A_z = Intersect(l_1, r)
z_y = Vector(O, A_y)
z_x = Vector(O, A_x)
z_z = Vector(O, A_z)
z_1: z_x / v
z_2: z_y / u
z_3 = Rotate(z_2, 270*°)
z_4: z_z / w
z_5 = Rotate(z_4, 90*°)
r_1 = OrthogonalLine(z_1, xAxis)
s_1 = Line(z_3, xAxis)
t_1 = Line(z_5, xAxis)
B_1 = Intersect(r_1, t_1)
C_1 = Intersect(r_1, s_1)
a_2 = Segment(z_1, C_1)
b_2 = Segment(z_1, B_1)

Tool: Proy Diédrica de A en PH (command ProyDiédricadeAenPH)
A = A_1 y O
Input: A_1, O
Output: C_1, z_1, a_2, A_x

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A_4 = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A_4)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A_4)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
I: (1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), 0)
H: O + x(I) * u
J: O + x(I) * v
i = Segment(O, H)
q = Segment(O, J)
f_1 = Line(A_1, i)
A_x = Intersect(q, f_1)
n_1 = Line(A_1, q)
A_y = Intersect(n_1, i)
z_y = Vector(O, A_y)
z_x = Vector(O, A_x)
z_1: z_x / v
z_2: z_y / u
z_3 = Rotate(z_2, 270*°)
r_1 = OrthogonalLine(z_1, xAxis)
s_1 = Line(z_3, xAxis)
C_1 = Intersect(r_1, s_1)
a_2 = Segment(z_1, C_1)

Tool: Proy Diédrica de A en LT (command ProyDiédricadeAenLT)
A = A_1=A_2 y O
Input: D_1, O
Output: z_6

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
B = Intersect(c, xAxis, 2)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
f = Ray(C, B)
v' = UnitVector(f)
E: C + v'
h = OrthogonalLine(E, xAxis)
G = Intersect(h, b)
v = Vector(O, G)
I: (1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), 0)
J: O + x(I) * v
q = Segment(O, J)
z = Vector(O, D_1)
z_6: z / v

Tool: Proy Diédrica de A en PV2 (command ProyDiédricadeAenPV2)
A=A_3 y O
Input: I_1, O
Output: z_{12}, z_{13}, P, m_2, l_2, J_1, R_1

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A_4 = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A_4)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A_4)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
u_1 = Length(u)
v_1 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_1^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
I: (1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), 0)
H: O + x(I) * u
K: O + x(I) * w
i = Segment(O, H)
r = Segment(O, K)
P: (x(O) - x(O), x(O) - x(O))
i_2 = Line(I_1, i)
j_2 = Line(I_1, r)
J_1 = Intersect(j_2, i)
R_1 = Intersect(i_2, r)
w_2 = Vector(O, J_1)
k_2 = Vector(O, R_1)
z_{10}: w_2 / u
z_{11}: k_2 / w
z_{12} = Rotate(z_{11}, 90*°)
z_{13} = Rotate(z_{10}, 270*°)
l_2 = Segment(P, z_{12})
m_2 = Segment(P, z_{13})

Tool: Proy Diédrica de A en PV (command ProyDiédricadeAenPV)
A=A_2 y O
Input: E_1, O
Output: H_1, z_7, g_2, F_1

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A_4 = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A_4)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A_4)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
u_1 = Length(u)
v_1 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_1^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
I: (1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), 0)
J: O + x(I) * v
K: O + x(I) * w
q = Segment(O, J)
r = Segment(O, K)
c_2 = Line(E_1, r)
d_2 = Line(E_1, q)
F_1 = Intersect(c_2, q)
G_1 = Intersect(d_2, r)
u_2 = Vector(O, F_1)
v_2 = Vector(O, G_1)
z_7: u_2 / v
z_8: v_2 / w
z_{9} = Rotate(z_8, 90*°)
e_2 = Line(z_{9}, xAxis)
f_2 = OrthogonalLine(z_7, xAxis)
H_1 = Intersect(e_2, f_2)
g_2 = Segment(H_1, z_7)

Tool: Segmento paralelo a X de longitud n. (command SegmentoparaleloaXdelongitudn)
Origen del segmento,  O y n.
Input: Z_5, O, z
Output: e_1, A_6

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
B = Intersect(c, xAxis, 2)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
f = Ray(C, B)
v' = UnitVector(f)
E: C + v'
h = OrthogonalLine(E, xAxis)
G = Intersect(h, b)
v = Vector(O, G)
A_6: Z_5 + z * v
e_1 = Segment(Z_5, A_6)

Tool: Segmento paralelo a Y de longitud n. (command SegmentoparaleloaYdelongitudn)
Origen del segmento,  O y n.
Input: Z_5, O, z
Output: f_1, B_6

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A_4 = Intersect(c, xAxis, 1)
a = Ray(O, A_4)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A_4)
u' = UnitVector(e)
D: C + u'
g = OrthogonalLine(D, xAxis)
F = Intersect(g, a)
u = Vector(O, F)
B_6: Z_5 + z * u
f_1 = Segment(Z_5, B_6)

Tool: Segmento paralelo a Z de longitud n. (command SegmentoparaleloaZdelongitudn)
Origen del segmento,  O y n.
Input: Z_5, O, z
Output: g_1, C_6

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A_4 = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A_4)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A_4)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
u_1 = Length(u)
v_1 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_1^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
C_6: Z_5 + z * w
g_1 = Segment(Z_5, C_6)

Tool: Malla Axonométrica (command MallaAxonométrica)
O.
Input: O
Output: A, A_1, B_1, C_1, D_1, E_1, O', A', F_1, G_1, H_1, I_1, J_1, O'', A'', K_1, L_1, M_1, N_1, P_1, O''', A''', Q_1, R_1, S_1, T_1, U_1, V_1, W_1, Z_1, A_2, B_2, C_2, D_2, E_2, F_2, G_2, H_2, I_2, J_2, K_2, L_2, M_2, N_2, O_2, P_2, Q_2, R_2, O'_1, O''_1, O'''_1, S_2, T_2, U_2, V_2, W_2, Z_2, A_3, B_3, C_3, D_3, E_3, F_3, G_3, H_3, I_3, J_3, K_3, L_3, M_3, N_3, O_3, P_3, Q_3, R_3, S_3, T_3, U_3, V_3, W_3, Z_3, B_4, C_4, D_4, E_4, F_4, G_4, H_4, I_4, J_4, K_4, L_4, M_4, N_4, O_4, P_4, Q_4, R_4, S_4, T_4, U_4, V_4, W_4, Z_4, B_5, C_5, D_5, E_5, F_5, G_5, H_5, I_5, J_5, K_5, L_5, M_5, N_5, O_5, P_5, Q_5, R_5, S_5, T_5, U_5, V_5, W_5

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A_4 = Intersect(c, xAxis, 1)
B = Intersect(c, xAxis, 2)
a = Ray(O, A_4)
b = Ray(O, B)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A_4)
f = Ray(C, B)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
u_1 = Length(u)
v_1 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_1^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
A: O + u
A_1: O + 2 * u
B_1: O + 3 * u
C_1: O + 4 * u
D_1: O + 5 * u
E_1: O + 6 * u
O' = Translate(O, v)
A' = Translate(A, v)
F_1 = Translate(A_1, v)
G_1 = Translate(B_1, v)
H_1 = Translate(C_1, v)
I_1 = Translate(D_1, v)
J_1 = Translate(E_1, v)
O'' = Translate(O', v)
A'' = Translate(A', v)
K_1 = Translate(F_1, v)
L_1 = Translate(G_1, v)
M_1 = Translate(H_1, v)
N_1 = Translate(I_1, v)
P_1 = Translate(J_1, v)
O''' = Translate(O'', v)
A''' = Translate(A'', v)
Q_1 = Translate(K_1, v)
R_1 = Translate(L_1, v)
S_1 = Translate(M_1, v)
T_1 = Translate(N_1, v)
U_1 = Translate(P_1, v)
V_1 = Translate(O''', v)
W_1 = Translate(A''', v)
Z_1 = Translate(Q_1, v)
A_2 = Translate(R_1, v)
B_2 = Translate(S_1, v)
C_2 = Translate(T_1, v)
D_2 = Translate(U_1, v)
E_2 = Translate(V_1, v)
F_2 = Translate(W_1, v)
G_2 = Translate(Z_1, v)
H_2 = Translate(A_2, v)
I_2 = Translate(B_2, v)
J_2 = Translate(C_2, v)
K_2 = Translate(D_2, v)
L_2 = Translate(E_2, v)
M_2 = Translate(F_2, v)
N_2 = Translate(G_2, v)
O_2 = Translate(H_2, v)
P_2 = Translate(I_2, v)
Q_2 = Translate(J_2, v)
R_2 = Translate(K_2, v)
O'_1 = Translate(O, w)
O''_1 = Translate(O', w)
O'''_1 = Translate(O'', w)
S_2 = Translate(O''', w)
T_2 = Translate(V_1, w)
U_2 = Translate(E_2, w)
V_2 = Translate(L_2, w)
W_2 = Translate(O'_1, w)
Z_2 = Translate(O''_1, w)
A_3 = Translate(O'''_1, w)
B_3 = Translate(S_2, w)
C_3 = Translate(T_2, w)
D_3 = Translate(U_2, w)
E_3 = Translate(V_2, w)
F_3 = Translate(W_2, w)
G_3 = Translate(Z_2, w)
H_3 = Translate(A_3, w)
I_3 = Translate(B_3, w)
J_3 = Translate(C_3, w)
K_3 = Translate(D_3, w)
L_3 = Translate(E_3, w)
M_3 = Translate(F_3, w)
N_3 = Translate(G_3, w)
O_3 = Translate(H_3, w)
P_3 = Translate(I_3, w)
Q_3 = Translate(J_3, w)
R_3 = Translate(K_3, w)
S_3 = Translate(L_3, w)
T_3 = Translate(M_3, w)
U_3 = Translate(N_3, w)
V_3 = Translate(O_3, w)
W_3 = Translate(P_3, w)
Z_3 = Translate(Q_3, w)
B_4 = Translate(R_3, w)
C_4 = Translate(S_3, w)
D_4 = Translate(T_3, w)
E_4 = Translate(U_3, w)
F_4 = Translate(V_3, w)
G_4 = Translate(W_3, w)
H_4 = Translate(Z_3, w)
I_4 = Translate(B_4, w)
J_4 = Translate(C_4, w)
K_4 = Translate(O'_1, u)
L_4 = Translate(W_2, u)
M_4 = Translate(F_3, u)
N_4 = Translate(M_3, u)
O_4 = Translate(T_3, u)
P_4 = Translate(D_4, u)
Q_4 = Translate(K_4, u)
R_4 = Translate(L_4, u)
S_4 = Translate(M_4, u)
T_4 = Translate(N_4, u)
U_4 = Translate(O_4, u)
V_4 = Translate(P_4, u)
W_4 = Translate(Q_4, u)
Z_4 = Translate(R_4, u)
B_5 = Translate(S_4, u)
C_5 = Translate(T_4, u)
D_5 = Translate(U_4, u)
E_5 = Translate(V_4, u)
F_5 = Translate(W_4, u)
G_5 = Translate(Z_4, u)
H_5 = Translate(B_5, u)
I_5 = Translate(C_5, u)
J_5 = Translate(D_5, u)
K_5 = Translate(E_5, u)
L_5 = Translate(F_5, u)
M_5 = Translate(G_5, u)
N_5 = Translate(H_5, u)
O_5 = Translate(I_5, u)
P_5 = Translate(J_5, u)
Q_5 = Translate(K_5, u)
R_5 = Translate(L_5, u)
S_5 = Translate(M_5, u)
T_5 = Translate(N_5, u)
U_5 = Translate(O_5, u)
V_5 = Translate(P_5, u)
W_5 = Translate(Q_5, u)

Tool: recta AB (command rectaAB)
ABO
Input: A_1, A_2, B_1, B_2, O
Output: r1, r2, r_1, r_2, g_1, a_1, a_2, p_1, p_2, h_1, h_2, v_1, v_2, v_3, v_4, A, B, H_r, H'_r, V_r, V'_r

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A_4 = Intersect(c, xAxis, 1)
B_3 = Intersect(c, xAxis, 2)
a = Ray(O, A_4)
b = Ray(O, B_3)
d = OrthogonalLine(O, xAxis)
C = Intersect(c, d, 1)
e = Ray(C, A_4)
f = Ray(C, B_3)
u' = UnitVector(e)
v' = UnitVector(f)
D: C + u'
E: C + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G)
u_1 = Length(u)
v_5 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_5^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
e_1 = PerpendicularaLT(B_1)
f_1 = PerpendicularaLT(A_1)
r1 = If(0 ≤ x ≤ 1.5floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)², (x * (y(B_1) - y(A_1)) - x(A_1) * y(B_1) + x(B_1) * y(A_1)) / (x(B_1) - x(A_1)))
r2 = If(0 ≤ x ≤ 1.5floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)², (x * (y(B_2) - y(A_2)) - x(A_2) * y(B_2) + x(B_2) * y(A_2)) / (x(B_2) - x(A_2)))
r_1 = If((r1(x) ≤ 0) ∧ (r2(x) ≥ 0), r1)
r_2 = If((r1(x) ≤ 0) ∧ (r2(x) ≥ 0), r2)
g_1 = OrthogonalLine(A_1, xAxis)
A_3 = Intersect(xAxis, g_1)
H'_r: (x(A_1), (y(A_1) * y(B_2) - y(A_2) * y(B_1)) / (y(B_2) - y(A_2)))
V'_r: (x(A_1), (y(A_1) * y(B_2) - y(A_2) * y(B_1)) / (y(A_1) - y(B_1)))
p_1 = Segment(H'_r, A_3)
p_2 = Segment(A_3, V'_r)
r'_1 = Line(A_1, B_1)
B = Intersect(r'_1, xAxis)
r'_2 = Line(A_2, B_2)
A = Intersect(r'_2, xAxis)
q_1 = OrthogonalLine(A, xAxis)
s_1 = OrthogonalLine(B, xAxis)
H_r = Intersect(q_1, r'_1)
V_r = Intersect(s_1, r'_2)
a_1 = Segment(H_r, A)
a_2 = Segment(B, V_r)
v_2 = Ray((x(A_1), 0), w)
v_1 = Ray((x(A_1), 0), Vector[-w])
v_4 = Ray((x(A_1), (y(A_1) * y(B_2) - y(A_2) * y(B_1)) / (y(A_1) - y(B_1))), w)
h_2 = Ray((x(A_1), 0), Vector[-w])
h_1 = Ray((x(A_1), (y(A_1) * y(B_2) - y(A_2) * y(B_1)) / (y(B_2) - y(A_2))), Vector[-w])
v_3 = Ray((x(A_1), 0), w)

Tool: Recta AB AXO (command RectaABAXO)
ABO
Input: A_1, A_2, B_1, B_2, O
Output: r, r', r_1, r'_1, r_2, r'_2, d_2, j_2, f_2, l_2, n_2, g_2, h_2, i_2, C, H, H_1, V, V_1

c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A_4 = Intersect(c, xAxis, 1)
B_3 = Intersect(c, xAxis, 2)
a = Ray(O, A_4)
b = Ray(O, B_3)
d = OrthogonalLine(O, xAxis)
C_2 = Intersect(c, d, 1)
e_2 = Ray(C_2, A_4)
f = Ray(C_2, B_3)
u' = UnitVector(e_2)
v' = UnitVector(f)
D: C_2 + u'
E: C_2 + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G_2 = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G_2)
u_1 = Length(u)
v_5 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_5^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
I_1: (1.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), 0)
H_2: O + x(I_1) * u
J_2: O + x(I_1) * v
i = Segment(O, H_2)
q = Segment(O, J_2)
e_1 = PerpendicularaLT(B_1)
f_1 = PerpendicularaLT(A_1)
Q: O + 6 * v
e = If(1.7floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)² < x < 4.5floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)², (x * (y(Q) - y(O)) - x(O) * y(Q) + x(Q) * y(O)) / (x(Q) - x(O)))
A, B_4, G, K_1 = ProyAxonométricaSimplificadadeA(A_1, A_2, O)
B, J, K, L_1 = ProyAxonométricaSimplificadadeA(B_1, B_2, O)
r'_1 = If(1.7floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)² < x < 4.5floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)², (x * (y(B_4) - y(J)) - x(J) * y(B_4) + x(B_4) * y(J)) / (x(B_4) - x(J)))
j = OrthogonalLine(A, xAxis)
l = Line(G, q)
N = Intersect(j, l)
n = OrthogonalLine(B, xAxis)
k_1 = Line(K, q)
R = Intersect(n, k_1)
r_3 = OrthogonalLine(K, xAxis)
t_1 = Line(J, q)
M = Intersect(r_3, t_1)
b_2 = OrthogonalLine(G, xAxis)
c_2 = Line(B_4, q)
I = Intersect(b_2, c_2)
ra_1(x) = (x * (y(N) - y(R)) - x(R) * y(N) + x(N) * y(R)) / (x(N) - x(R))
ra_2(x) = (x * (y(M) - y(I)) - x(I) * y(M) + x(M) * y(I)) / (x(M) - x(I))
r_1 = If(r'_1(x) ≤ e(x) ≤ ra_1(x), r'_1)
r'_2 = If(1.7floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)² < x < 4.5floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)², (x * (y(G) - y(K)) - x(K) * y(G) + x(G) * y(K)) / (x(G) - x(K)))
r_2 = If(ra_2(x) ≤ e(x) ≤ r'_2(x), r'_2)
r' = If(1.7floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)² < x < 4.5floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)², (x * (y(B) - y(A)) - x(A) * y(B) + x(B) * y(A)) / (x(B) - x(A)))
r = If(r'_1(x) ≤ e(x) ≤ ra_1(x), r')
d_2 = OrthogonalLine(K_1, xAxis)
H = Intersect(r', r'_1, 1.7 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), 4.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
g_2 = Ray(K_1, w)
i_2 = Ray(B_4, w)
j_2 = Line(A, B)
V = Intersect(r', r'_2, 1.7 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2), 4.5 * floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)^(2))
k_2 = OrthogonalLine(V, xAxis)
V_1 = Intersect(k_2, q)
l_2 = Segment(V_1, V)
m_2 = Line(H, i)
H_1 = Intersect(q, m_2)
n_2 = Segment(H_1, H)
C = Intersect(j_2, b_2)
h_2 = Ray((x(C), Max[y(C), y(K_1)]), w)
f_2 = Segment(C, K_1)

Tool: Plano ABC (command PlanoABC)
ABCO
Input: A_1, A_2, B_1, B_2, C_1, C_2, O
Output: f_1, f'_1, f_2, f'_2, g_1, g'_1, g_2, g'_2, h', e_1, l, r

n = PerpendicularaLT(C_1)
l_1 = PerpendicularaLT(B_1)
j = PerpendicularaLT(A_1)
f_2 = If(0 ≤ x ≤ 1.5floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)², ((x - x(A_1)) * (y(A_1) - y(B_1)) * (y(C_2) - y(A_2)) + y(A_1) * (y(B_2) - y(A_2)) * (x(C_1) - x(A_1)) - y(A_1) * (x(B_1) - x(A_1)) * (y(C_2) - y(A_2)) - (x - x(A_1)) * (y(B_2) - y(A_2)) * (y(A_1) - y(C_1))) / ((y(A_1) - y(B_1)) * (x(C_1) - x(A_1)) - (x(B_1) - x(A_1)) * (y(A_1) - y(C_1))) + y(A_2))
c = Circle((7 * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2) - 1) * cos(30°), 0), cos(30°) * 2^(floor(sqrt((97 * x(O) - x(O)^(2) - 277) / 28) / 2)))
A_4 = Intersect(c, xAxis, 1)
B_3 = Intersect(c, xAxis, 2)
a = Ray(O, A_4)
b = Ray(O, B_3)
d = OrthogonalLine(O, xAxis)
C_3 = Intersect(c, d, 1)
e_2 = Ray(C_3, A_4)
f = Ray(C_3, B_3)
u' = UnitVector(e_2)
v' = UnitVector(f)
D: C_3 + u'
E: C_3 + v'
g = OrthogonalLine(D, xAxis)
h = OrthogonalLine(E, xAxis)
F = Intersect(g, a)
G_2 = Intersect(h, b)
u = Vector(O, F)
v = Vector(O, G_2)
u_1 = Length(u)
v_5 = Length(v)
w_1: sqrt(2 - u_1^(2) - v_5^(2))
w' = UnitVector(d)
w = Vector(O, O + w' * w_1)
M_1, A = ProyAxonométricadeAenPV((6, f_2(6)), O)
Q: O + 6 * v
f_1 = If(0 ≤ x ≤ 1.5floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)², ((x - x(A_1)) * (-y(A_1) + y(B_1)) * (-y(C_2) + y(A_2)) + y(A_2) * (x(B_1) - x(A_1)) * (-y(A_1) + y(C_1)) - y(A_2) * (-y(A_1) + y(B_1)) * (x(C_1) - x(A_1)) - (x - x(A_1)) * (-y(B_2) + y(A_2)) * (-y(A_1) + y(C_1))) / ((x(B_1) - x(A_1)) * (-y(C_2) + y(A_2)) - (-y(B_2) + y(A_2)) * (x(C_1) - x(A_1))) + y(A_1))
f'_1 = If(f_1(x) ≤ 0, f_1)
f'_2 = If(f_2(x) ≥ 0, f_2)
e = If(1.7floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)² < x < 4.5floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)², (x * (y(Q) - y(O)) - x(O) * y(Q) + x(Q) * y(O)) / (x(Q) - x(O)))
K, B = ProyAxonométricadeAenPH((0, f_1(0)), O)
G_1, G_3 = ProyAxonométricadeAenPH((6, f_1(6)), O)
J_1, J_3 = ProyAxonométricadeAenPV((0, f_2(0)), O)
g_1 = If(1.6floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)² < x < 4.5floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)², (x * (y(K) - y(G_1)) - x(G_1) * y(K) + x(K) * y(G_1)) / (x(K) - x(G_1)))
g_2 = If(1.6floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)² < x < 4.5floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)², (x * (y(J_1) - y(M_1)) - x(M_1) * y(J_1) + x(J_1) * y(M_1)) / (x(J_1) - x(M_1)))
g'_1 = If(g_1(x) ≤ e(x), g_1)
g'_2 = If(g_2(x) ≥ e(x), g_2)
d_1 = Line(A_1, B_1)
C = Intersect(d_1, xAxis)
l = Ray(C, w)
P_1 = ProyAxonométricadeAenLT(C, O)
r = Ray(P_1, w)
a_1 = Line(A_2, B_2)
I = Intersect(a_1, xAxis)
e_1 = Ray(I, Vector[-w])
Q_1 = ProyAxonométricadeAenLT(I, O)
R_1 = Translate(Q_1, u)
h'' = If(1.6floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)² < x < 4.5floor(sqrt((97x(O) - x(O)² - 277) / 28) / 2)², (x * (y(R_1) - y(Q_1)) - x(Q_1) * y(R_1) + x(R_1) * y(Q_1)) / (x(R_1) - x(Q_1)))
h' = If(h''(x) ≤ e(x), h'')

Tool: Trazas recta AB (command TrazasrectaAB)
ABO
Input: A_1, A_2, B_1, B_2, O
Output: C, B, n, G, A, r, H, I, a_1, J, K, d_1

l_1 = PerpendicularaLT(B_1)
j = PerpendicularaLT(A_1)
e = Line(A_1, B_1)
k = Line(A_2, B_2)
A = Intersect(e, xAxis)
B = Intersect(k, xAxis)
l = OrthogonalLine(B, xAxis)
m = OrthogonalLine(A, xAxis)
C = Intersect(e, l)
G = Intersect(k, m)
n = Segment(C, B)
r = Segment(G, A)
H, I = ProyAxonométricadeAenPH(C, O)
J, K = ProyAxonométricadeAenPV(G, O)
a_1 = Segment(H, I)
d_1 = Segment(J, K)

Tool: Segmento AB (command SegmentoAB)
ABO
Input: A_1, A_2, B_1, B_2, O
Output: e_1, f_1, g_1, h_1, i_1, M, C_1, N, D_1, R, E_1

l_1 = PerpendicularaLT(B_1)
j = PerpendicularaLT(A_1)
M, N, R, V = ProyAxonométricaSimplificadadeA(A_1, A_2, O)
C_1, D_1, E_1, F_1 = ProyAxonométricaSimplificadadeA(B_1, B_2, O)
e_1 = Segment(A_1, B_1)
f_1 = Segment(A_2, B_2)
g_1 = Segment(M, C_1)
h_1 = Segment(N, D_1)
i_1 = Segment(R, E_1)

Tool: SegmentoAB AXO (command SegmentoABAXO)
A, A_1, B, B_1 y O.
Input: J_1, G_1, K_1, H_1, O
Output: r_1, s_1, t_1, P_1, T_1, a_2, b_2, L_1, M_1, R_1, S_1

j_1 = PerpendicularaLT(G_1)
k_1 = PerpendicularaLT(H_1)
L_1, M_1, z_1, m_1, n_1, P_1, Q_1 = ProyDiédricadeA(J_1, G_1, O)
R_1, S_1, z_2, p_1, q_1, T_1, U_1 = ProyDiédricadeA(K_1, H_1, O)
r_1 = Segment(J_1, K_1)
s_1 = Segment(G_1, H_1)
t_1 = Segment(P_1, T_1)
a_2 = Segment(L_1, R_1)
b_2 = Segment(M_1, S_1)