過圓上一點的切線
Author: 藍邦偉  老師

過圓上一點的切線

r=

r=

Q(

h=

,

k=

)

又切線L⊥\overline{PQ}

k = 4
h = 2
u = Vector((x(Corner[1]), 0), (x(Corner[3]), 0))
Q: (h, k)
v = Vector((0, y(Corner[1])), (0, y(Corner[3])))
r = 2 (slider from 1 to 5, step 0.1)
c = Circle(Q, r)
P = Point(c)
a = Segment(Q, P)
b = OrthogonalLine(P, a)
y_1: y(P) - y(Q)
x_1: x(P) - x(Q)
T_1 = Corner(1)
T_4 = Corner(4)
T_2: (7 * Corner[1] + 3 * Corner[2]) / 10
T_3: (7 * Corner[4] + 3 * Corner[3]) / 10
多邊形1, t_1, t_2, t_3, t_4 = Polygon(T_1, T_2, T_3, T_4)
n = 1 (slider from 1 to 6, step 1)
l = Line(Q, P)
inputBox1 = Textfield(r)
inputBox2 = Textfield(h)
inputBox3 = Textfield(k)
text5: "P" + (LaTeX[P]) + "點在圓上"
text7: "m_{\overline{PQ}}=\frac{" + (LaTeX[y(Q)]) + "-" + (LaTeX[y(P)]) + "}{" + (LaTeX[x(Q)]) + "-" + (LaTeX[x(P)]) + "}=" + (LaTeX[FractionText[Slope[l]]]) + ""
text8: "⇒m_L=" + (LaTeX[FractionText[Slope[b]]]) + ""
text9: "y" + (LaTeX[If[y(P) < 0, "+", "-"]]) + "" + (LaTeX[abs(y(P))]) + "=" + (LaTeX[FractionText[Slope[b]]]) + "(x" + (LaTeX[If[x(P) < 0, "+", "-"]]) + "" + (LaTeX[abs(x(P))]) + ")"