 = m 

Activar Rastro

Desactivar Rastro

m = 1.4 (slider from -5 to 5, step 0.1)
d: (1, m)
P = (6, 3)
r = Line(P, d)
texto1 = Text(r)
F = (1.05, 10.53)
G = (1.05, 9.48)
excepcion = If(y(P) ≟ 0, "y = 0", y(P)  <  0, "y + " + ((-y(P))) + " = 0", "y - " + (y(P)) + " = 0")
texto3a = EcGeneral(r)
s: r
th1 = If(y(P) ≟ 0, "y", y(P)  <  0, "y + " + ((-y(P))), "y - " + (y(P)))
th3 = If(x(P) ≟ 0, "x", x(P)  <  0, "(x + " + ((-x(P))) + ")", "(x - " + (x(P)) + ")")
textohaz: "" + (th1 + th2 + th3) + ""
vr = false

Tool: EcGeneral
recta
Input: r
Output: gene

coefs: {x(r), y(r), z(r)}
mcd = If((floor(x(r)) ≠ x(r)) ∨ (floor(y(r)) ≠ y(r)) ∨ (floor(z(r)) ≠ z(r)), x(r), (sgn(x(r)) * GCD[coefs]))
a: x(r) / mcd
b: y(r) / mcd
c: z(r) / mcd
tx = If(a ≟ 1, "x", a + " x")
ty = If(b ≟ 1, " + y", b ≟ -1, " - y", b ≟ 0, "", b > 0, " + " + b + " y", b  <  0, " - " + ((-b)) + " y")
tz = If(c ≟ 0, " = 0", c > 0, " + " + c + " = 0", " - " + ((-c)) + " = 0")
gene: "" + (tx + ty + tz) + ""