两直线方程比较

GeoGebra 命令及参数

1. Angle(L_2, L_1) → α
2. Intersect(L_1, L_2) → C
3. Join({{Intersect[L_1, xAxis], Intersect[L_1, yAxis]}, If[showL1 ∧ showL2 ∧ Defined[C], {C}, {}]}) → list1
4. Join({{Intersect[L_2, xAxis], Intersect[L_2, yAxis]}, If[showL1 ∧ showL2 ∧ Defined[C], {C}, {}]}) → list2
5. Point(L_1) → A'
6. Point(L_2) → B'
7. ClosestPoint(list1, A') → Q_1
8. ClosestPoint(list2, B') → Q_2
9. DynamicCoordinates(A', If[Distance[A', Q_1] < d, x(Q_1), x(A')], If[Distance[A', Q_1] < d, y(Q_1), y(A')]) → A
10. DynamicCoordinates(B', If[Distance[B', Q_2] < d, x(Q_2), x(B')], If[Distance[B', Q_2] < d, y(Q_2), y(B')]) → B
11. Slope(L_1) → m_3
12. Slope(L_2) → m_4