直线斜率

GeoGebra 命令及参数

1. Line(A, B) → f
2. Sequence(Vector[A + (sgn(x(B) - x(A)) * (i, 0)), A + (sgn(x(B) - x(A)) * (i + 1, 0))], i, 0, abs(x(B) - x(A)) - 1) → l1
3. Sequence(Vector[(x(B), y(A)) + (sgn(y(B) - y(A)) * (0, i)), (x(B), y(A)) + (sgn(y(B) - y(A)) * (0, i + 1))], i, 0, abs(y(B) - y(A)) - 1) → l2
4. Sequence(Vector[B + (sgn(x(A) - x(B)) * (i, 0)), B + (sgn(x(A) - x(B)) * (i + 1, 0))], i, 0, abs(x(B) - x(A)) - 1) → l3
5. Sequence(Vector[(x(A), y(B)) + (sgn(y(A) - y(B)) * (0, i)), (x(A), y(B)) + (sgn(y(A) - y(B)) * (0, i + 1))], i, 0, abs(y(B) - y(A)) - 1) → l4
6. If(¬b', x(Corner[text4, 2] - Corner[text4, 1]), x(Corner[text1, 2] - Corner[text1, 1])) → length2
7. If(step1 ∧ b ∧ (GCD[run, rise] ≠ 1 ∨ AtoB ∧ (run < 0 ∨ rise < 0) ∨ BtoA ∧ (run' < 0 ∨ rise' < 0) ∨ abs(run) ≟ 1), true, false) → showstep2