\Leftrightarrow

El valor de x que cumple esa igualdad es:

(si el resultado es fracción, usa la barra /, por ejemplo, 2/3)

T = (-2.84, -1.84)
es = 1 (slider from -5 to 5, step 0.1)
c_1: 6.0 * es
A = Point(Line[(5.58, 0.0), (5.58, 1.0)])
a_1: 2.0 * es
b_1: es
D: A - (a_1, b_1)
H: D - (c_1, 0.0)
I: D - (c_1, 2.0 * b_1)
f = Segment(H, I)
C: A + (a_1, -(b_1))
B: A + (a_1, b_1)
i = Line(B, C)
e = Line(T, T + (1.0, 0.0))
L_2: T - (0.0, 0.82)
n = Line(L_2, e)
M_2 = Intersect(n, f)
N_2 = Intersect(n, i)
P_2 = Point(n)
s = Vector(M_2, P_2)
Q_2: N_2 + s
H_2 = Point(n)
r = Vector(M_2, H_2)
O_2: N_2 + r
β = 2.6179938779914944 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
f_1 = CircleArc(O_2, Rotate[O_2 + (0.0, 0.5), -(β), O_2], O_2 + (0.0, 0.5))
K_2 = Point(f_1)
α3 = Angle(K_2, O_2, O_2 + (0.0, 0.5))
nx3: round(α3 / (β / 9.0))
g_1 = CircleArc(Q_2, Rotate[Q_2 + (0.0, 0.5), -(β), Q_2], Q_2 + (0.0, 0.5))
R_2 = Point(g_1)
α4 = Angle(R_2, Q_2, Q_2 + (0.0, 0.5))
nx4: round(α4 / (β / 9.0))
d0 = Random(0.0, 9.0)
b = Random(1.0, 8.0)
a = Random(0.0, 9.0)
c0 = Random(0.0, 9.0)
c = If(c0 ≟ a, If[c0 > 0.0, c0 - 1.0, c0 + 1.0], c0)
d = If(a > c ∧ d0 < b, b + Random[1.0, 9.0 - b], If[a < c ∧ d0 > b, b - Random[1.0, b], d0])
sol: (d - b) / (a - c)
q = CircleArc(H_2, Rotate[H_2 + (0.0, 0.5), -(β), H_2], H_2 + (0.0, 0.5))
I_2 = Point(q)
α1 = Angle(I_2, H_2, H_2 + (0.0, 0.5))
nx1: round(α1 / (β / 9.0))
e_1 = CircleArc(P_2, Rotate[P_2 + (0.0, 0.5), -(β), P_2], P_2 + (0.0, 0.5))
J_2 = Point(e_1)
α2 = Angle(J_2, P_2, P_2 + (0.0, 0.5))
nx2: round(α2 / (β / 9.0))
arriba = 0.85
abajo = 4
hp = 0.2
rb = 0.1
d_1: 0.4 * c_1
J = Midpoint(H, D)
M: J - (rb, 0.0)
L: J + (rb, 0.0)
F: C + (c_1, 0.0)
K = Midpoint(C, F)
O: K - (rb, 0.0)
N: K + (rb, 0.0)
ht: 2.0 * b_1
pD: nx3 * sol + nx4
pI: nx1 * sol + nx2
hd = If(pD ≟ pI, b_1, If[pD > pI, 0.2 * b_1, 1.8 * b_1])
P: O + (0.0, hd)
Z: P - (d_1, 0.0)
A_1: Z + (0.0, hp)
W_1 = Midpoint(A_1, Z)
Q: N + (0.0, hd)
W: Q + (d_1, 0.0)
B_1: W + (0.0, hp)
Z_1 = Midpoint(B_1, W)
A_2 = Midpoint(W_1, Z_1)
hi: ht - hd
R: M + (0.0, hi)
V: R - (d_1, 0.0)
C_1: V + (0.0, hp)
R_1 = Midpoint(C_1, V)
S: L + (0.0, hi)
U: S + (d_1, 0.0)
D_1: U + (0.0, hp)
S_1 = Midpoint(D_1, U)
T_1 = Midpoint(R_1, S_1)
m = Segment(R_1, T_1)
V_1 = Point(m)
z = Vector(R_1, V_1)
G_2: A_2 + z
U_1 = Point(m)
w = Vector(R_1, U_1)
F_2: A_2 + w
C_2: W_1 + z
B_2: W_1 + w
E_2: T_1 + z
D_2: T_1 + w
E: A + (-(a_1), b_1)
G: C + (c_1, -(2.0 * b_1))
polígono1: {Polygon[C_1, V, U, D_1]}
polígono2: {Polygon[S, L, M, R]}
polígono3: {Polygon[H, I, G, F]}
polígono4: {Polygon[D, E, B, C]}
polígono5: {Polygon[O, P, Q, N]}
polígono6: {Polygon[A_1, Z, W, B_1]}
F_1: A + (0.0, 3.8 * es)
G_1 = Rotate(F_1, 30.0*°, A)
H_1 = Rotate(F_1, 330.0*°, A)
Fiel = If(pD ≟ pI, F_1, If[pD > pI, H_1, G_1])
c1 = Circle(A, 0.4 * es)
g = Segment(A, Fiel)
I_1 = Intersect(c1, g, 1.0)
h = Segment(I_1, Fiel)
c2 = Circle(A, 3.8 * es)
E_1 = Point(e)
J_1 = Intersect(e, f)
u = Vector(J_1, E_1)
K_1 = Intersect(e, i)
L_1: K_1 + u
j = OrthogonalLine(A, e)
sI = If(nx2 ≟ 0.0, "", If[nx2 > 0.0, "+", "-"])
sD = If(nx4 ≟ 0.0, "", If[nx4 > 0.0, "+", "-"])
M_1 = Intersect(e, j)
k = OrthogonalLine(J, e)
l = OrthogonalLine(K, e)
N_1 = Intersect(e, k)
O_1 = Intersect(e, l)
P_1 = Point(e)
v = Vector(N_1, P_1)
Q_1: O_1 + v
texto6 = If(pI ≟ pD, "=", If[pI > pD, ">", "<"])
coef1 = If(a ≟ 1.0, "", "" + a)
coef2 = If(c ≟ 1.0, "", "" + c)
Ww1: U_1 + (0.0, arriba - 0.45)
Ww2: U_1 + (0.0, 2.0 * arriba - 0.45)
Ww9: V_1 + (0.0, 4.0 * arriba - 0.45)
Ww3: U_1 + (0.0, 3.0 * arriba - 0.45)
Ww4: U_1 + (0.0, 4.0 * arriba - 0.45)
Ww5: U_1 + (0.0, 5.0 * arriba - 0.45)
Ww6: V_1 + (0.0, arriba - 0.45)
Ww7: V_1 + (0.0, 2.0 * arriba - 0.45)
Wy1: D_2 + (0.0, arriba - 0.45)
Ww8: V_1 + (0.0, 3.0 * arriba - 0.45)
Wy2: D_2 + (0.0, 2.0 * arriba - 0.45)
Wy3: D_2 + (0.0, 3.0 * arriba - 0.45)
Wy4: D_2 + (0.0, 4.0 * arriba - 0.45)
Wy6: E_2 + (0.0, arriba - 0.45)
Wy5: D_2 + (0.0, 5.0 * arriba - 0.45)
Wy7: E_2 + (0.0, 2.0 * arriba - 0.45)
Wy8: E_2 + (0.0, 3.0 * arriba - 0.45)
Wy9: E_2 + (0.0, 4.0 * arriba - 0.45)
Wx1: F_2 + (0.0, arriba - 0.45)
Wz5: B_2 + (0.0, 5.0 * arriba - 0.45)
Wz2: B_2 + (0.0, 2.0 * arriba - 0.45)
Wz6: C_2 + (0.0, arriba - 0.45)
Wz3: B_2 + (0.0, 3.0 * arriba - 0.45)
Wz7: C_2 + (0.0, 2.0 * arriba - 0.45)
Wz8: C_2 + (0.0, 3.0 * arriba - 0.45)
Wz9: C_2 + (0.0, 4.0 * arriba - 0.45)
Wz1: B_2 + (0.0, arriba - 0.45)
Wz4: B_2 + (0.0, 4.0 * arriba - 0.45)
Wx2: F_2 + (0.0, 2.0 * arriba - 0.45)
Wx3: F_2 + (0.0, 3.0 * arriba - 0.45)
Wx4: F_2 + (0.0, 4.0 * arriba - 0.45)
Wx6: G_2 + (0.0, arriba - 0.45)
Wx5: F_2 + (0.0, 5.0 * arriba - 0.45)
Wx7: G_2 + (0.0, 2.0 * arriba - 0.45)
Wx8: G_2 + (0.0, 3.0 * arriba - 0.45)
Wx9: G_2 + (0.0, 4.0 * arriba - 0.45)
p = Circle(H_2, 0.5)
t = Circle(A, 0.37)
texto1: "" + (If[nx1 ≟ 1.0, "", "" + nx1]) + " x"
texto4: "" + (abs(nx2))
h_1 = Circle(P_2, J_2)
k_1 = Circle(O_2, K_2)
p_1 = Circle(Q_2, R_2)
i_1 = Segment(H_2, I_2)
j_1 = Segment(P_2, J_2)
l_1 = Segment(O_2, K_2)
m_1 = Segment(Q_2, R_2)
texto2: "" + (If[nx3 ≟ 1.0, "", "" + nx3]) + " x"
texto5: "" + (abs(nx4))
q_1 = Circle(H_2, 0.15)
r_1 = Circle(H_2, 0.15)
s_1 = Circle(P_2, 0.15)
t_1 = Circle(O_2, 0.15)
c_2 = Circle(Q_2, 0.15)
d_2 = Circle(P_2, 0.15)
e_2 = Circle(O_2, 0.15)
f_2 = Circle(Q_2, 0.15)
n_1 = Segment(D, H)
a_2 = Segment(E, D)
b_2 = Segment(E, B)
g_2 = Segment(B, C)
h_2 = Segment(C, F)
i_2 = Segment(F, G)
j_2 = Segment(G, I)
texto8: "" + (If[nx1 ≟ 1.0 ∨ nx1 ≟ 0.0, "", "" + nx1]) + (If[nx1 ≟ 0.0, "", "\;x\;"]) + (If[(nx2 ≠ 0.0) ∧ (nx1 ≠ 0.0 ∨ nx2 < 0.0), If[nx2 > 0.0, "+", "-"], If[nx1 ≟ 0.0 ∧ nx2 ≟ 0.0, "0", ""]]) + (If[nx2 ≠ 0.0, "" + "\;" + (abs(nx2)), ""]) + "\;=\;" + (If[nx3 ≟ 1.0 ∨ nx3 ≟ 0.0, "", "" + nx3]) + (If[nx3 ≟ 0.0, "", "\;x\;"]) + (If[(nx4 ≠ 0.0) ∧ (nx3 ≠ 0.0 ∨ nx4 < 0.0), If[nx4 > 0.0, "+", "-"], If[nx3 ≟ 0.0 ∧ nx4 ≟ 0.0, "0", ""]]) + (If[nx4 ≠ 0.0, "" + "\;" + (abs(nx4)), ""])
B1 = NaN
D1 = If(B1 ≟ sol, "MUY BIEN, ese es el valor correcto", "?")
k_2 = Circle(H_2, 0.5)
p_2 = Circle(P_2, J_2)
q_2 = Circle(O_2, K_2)
r_2 = Circle(Q_2, R_2)
texto7: "" + (If[a ≟ 1.0 ∨ a ≟ 0.0, "", "" + a]) + (If[a ≟ 0.0, "", "\;x\;"]) + (If[(b ≠ 0.0) ∧ (a ≠ 0.0 ∨ b < 0.0), If[b ≟ 0.0, "", If[b > 0.0, "+", "-"]], ""]) + (If[b ≠ 0.0, "" + "\;" + (abs(b)), ""]) + "\;=\;" + (If[c ≟ 1.0 ∨ c ≟ 0.0, "", "" + c]) + (If[c ≟ 0.0, "", "\;x\;"]) + (If[(d ≠ 0.0) ∧ (c ≠ 0.0 ∨ d < 0.0), If[d ≟ 0.0, "", If[d > 0.0, "+", "-"]], ""]) + (If[d ≠ 0.0, "" + "\;" + (abs(d)), ""]) + "\;\;" + (If[(nx1 ≠ nx3) ∧ (nx1 ≠ a ∨ nx2 ≠ b ∨ nx3 ≠ c ∨ nx4 ≠ d) ∧ pI ≟ pD, texto3 + "\;\;" + texto8, ""]) + "\;\;" + (If[B1 ≟ sol ∧ (nx1 ≠ 1.0 ∨ nx2 ≠ 0.0), texto3 + "\;\;x\;=\;" + (FractionText[B1]), ""])