斜率(1)
Author: 藍邦偉  老師

斜率(1)

.

,

$ 過兩點的直線斜率 $

斜角

斜率不存在(鉛直)

u = Vector((x(Corner[1]), 0), (x(Corner[3]), 0))
v = Vector((0, y(Corner[1])), (0, y(Corner[3])))
b = true
α = 1.221730476396031 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
k = 1 (slider from -5 to 5, step 0.1)
L_2: y = tan(α) * x + k
c = false
text2: "y=" + (tan(α)) + "x" + (If[k < 0, "-", "+"]) + (abs(k))
text3: "m=tan" + (LaTeX[α]) + "≈" + (LaTeX[tan(α)]) + ""
Q_2: 0.78 * Corner[1] + 0.22 * Corner[2]
Q_3: (x(Q_2), y(Corner[3]))
poly1, a, q_2, q_3, d = Polygon(Corner[1], Q_2, Q_3, Corner[4])
C = (-1.2900020113516106, 2.2410732780971014)
D = (3.1227382093126064, -1.4129152304167074)
A = DynamicCoordinates(C, floor(x(C)), floor(y(C)))
B = DynamicCoordinates(D, floor(x(D)), floor(y(D)))
L_1 = Line(A, B)
t_{m1}: "m_{\overline{AB}}=\frac{" + (LaTeX[y(B)]) + "" + (LaTeX[If[y(A) < 0, "+", "-"]]) + "" + (LaTeX[abs(y(A))]) + "}{" + (LaTeX[x(B)]) + "" + (LaTeX[If[x(A) < 0, "+", "-"]]) + "" + (LaTeX[abs(x(A))]) + "}=" + (LaTeX[FractionText[(y(B) - y(A)) / (x(B) - x(A))]]) + ""