Mesa con hoja plana

Mesa con hoja equidistante

XA = (0.003812380888555844, -3.2278299494577185)
XB = (14.763812380888545, -3.2878299494577186)
ω = Line(XA, XB)
A = (-2.7490909090909104, -1.7945454545454553)
B = (0.505454545454544, -2.467272727272728)
c, D = hline(A, B, ω)
C = Point(c)
E = Point(ω)
u = Vector(D, E)
C' = Translate(C, u)
d, F = h_perp(C, D, ω)
G = Point(d)
e, K = h_perp(G, F, ω)
C'_1 = Translate(C, u)
G' = Translate(G, u)
a' = Translate(ω, u)
p_1, D_1 = h_perp(C', E, ω)
H = Point(e)
f, I = h_perpnotinc(H, c, ω)
J = Intersect(c, f, 1.0)
L = h_refl(H, G, ω)
H' = Translate(H, u)
xx' = Translate(ω, u)
L' = Translate(L, u)
A' = Translate(A, u)
g, M = hline(A', C'_1, ω)
h = h_equidist(G', g, ω)
k = h_equidist(H', p_1, ω)
p = h_equidist(L', p_1, ω)
N = Intersect(h, k, 1.0)
O = Intersect(h, p, 1.0)
q = CircumcircleArc(O, G', N)
r = CircumcircleArc(L, G, H)
P = Intersect(e, r, 1.0)
Q = Intersect(e, r, 1.0)
R = Intersect(e, r, 1.0)
S = Point(r)
T = Point(r)
S' = Translate(S, u)
T' = Translate(T, u)
s = h_equidist(S', p_1, ω)
t = h_equidist(T', p_1, ω)
U, O_1 = Intersect(h, s)
V, P_1 = Intersect(h, t)
c_1, W = h_perp(S, K, ω)
d_1, Z = h_perp(T, K, ω)
A_1 = Point(c_1)
e_1, B_1 = hline(S, U, ω)
f_1 = h_equidist(A_1, e_1, ω)
h_1, F_1 = h_perpnotinc(U, g, ω)
k_1, G_1 = h_perpnotinc(V, g, ω)
q_1 = h_equidist(A_1, e, ω)
J_1 = Intersect(d_1, q_1, 1.0)
r_1, K_1 = hsegment(A_1, J_1, ω)
s_1, L_1 = hsegment(T, J_1, ω)
t_1, M_1 = hsegment(S, A_1, ω)
c_2, H_1 = h_perpnotinc(U, g, ω)
d_2, I_1 = h_perpnotinc(V, g, ω)
a = OrthogonalLine(K, ω)
b = OrthogonalLine(E, ω)
C_1, R_1 = Intersect(e, a)
N_1, S_1 = Intersect(h, b)
i = Line(C_1, N_1)
Q_1 = Intersect(i, ω)
T_1 = Intersect(q_1, a)
j = Line(T_1, Q_1)
U_1 = Intersect(b, j)
g_1 = h_equidist(U_1, g, ω)
V_1, D_2 = Intersect(g_1, c_2)
W_1, C_2 = Intersect(g_1, d_2)
e_2, Z_1 = hsegment(V_1, U, ω)
f_2, A_2 = hsegment(W_1, V, ω)
g_2, B_2 = hsegment(W_1, V_1, ω)
h_2, E_2 = h_perpnotinc(A_1, c, ω)
k_2, F_2 = hsegment(G, C, ω)
p_2, G_2 = hsegment(G', C'_1, ω)

Tool: h-line (command hline)
Select tow h-Points and then x
Input: A, B, χ
Output: d, C

a = LineBisector(A, B)
C = Intersect(χ, a)
c = Circle(C, B)
D, E = Intersect(c, χ)
d = CircumcircleArc(E, B, D)

Tool: inversion
elije un punto y una circunferencia
Input: C, c
Output: J'

E = Point(c)
F = Point(c)
G = Point(c)
a = LineBisector(F, E)
b = LineBisector(G, F)
H = Intersect(a, b)
d = Line(H, C)
e = OrthogonalLine(H, d)
I = Intersect(c, e, 2.0)
f = Line(I, C)
g = OrthogonalLine(I, f)
J = Intersect(d, g)
J' = Mirror(J, e)

Tool: h-refl-p-p (command h_refl)
Input: A, B, ω
Output: G

a = LineBisector(A, B)
E = Intersect(ω, a)
b = Line(E, B)
c = OrthogonalLine(B, b)
F = Intersect(ω, c)
d = Circle(F, B)
G = inversion(A, d)

Tool: inversion (command inversion1)
Select e Point and then a circle to invert
Input: C, c
Output: D

a = Polar(C, c)
b = OrthogonalLine(C, a)
D = Intersect(a, b)

Tool: h-perp-inc (command h_perp)
Select Point, then e-center of h-line, then xx
Input: B, C, a
Output: e, D

b = Line(C, B)
c = OrthogonalLine(B, b)
D = Intersect(a, c)
d = Circle(D, B)
E, F = Intersect(d, a)
e = CircumcircleArc(F, B, E)

Tool: h-perp-not-inc (command h_perpnotinc)
Select h-point, then h-line, then x
Input: D, c, a
Output: d, F

C = (3.7273217726396917, -2.4997045600513803)
E = inversion(D, c)
d, F = hline(E, D, a)

Tool: h-segment (command hsegment)
Select two h-Points and then x
Input: A, B, χ
Output: d, C

a = LineBisector(A, B)
C = Intersect(χ, a)
D = Midpoint(A, B)
b = Ray(C, D)
c = Circle(C, B)
E = Intersect(c, b, 1.0)
d = CircumcircleArc(B, E, A)

Tool: h-equidist (command h_equidist)
Select h-point, then h-line, then xx
Input: C, c, a
Output: d

D = (4.391025956568659, -2.5024025445388967)
E, F = Intersect(c, a)
d = CircumcircleArc(F, C, E)

Tool: h-mediatriz (command h_mediatriz)
Dos puntos y la recta w
Input: A, B, ω
Output: d

a = Line(A, B)
E = Intersect(ω, a)
A' = Mirror(A, E)
F = Midpoint(B, A')
c = Circle(F, B)
b = OrthogonalLine(E, a)
G = Intersect(c, b, 1.0)
d = Circle(E, G)