直線的參數式(2)
Author: 藍邦偉  老師
Date: 15 1 月 2013

移動A點決定直線上一點，B點決定直線的方向向量

$A%v$

$ 直線的參數式(2) $

D = (3, 2)
list = Sequence((cos(π * k / 12), sin(π * k / 12)), k, 0, 24)
K_1: (x(Corner[1]), 0)
K_2: (x(Corner[2]), 0)
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)
c = Segment(T_2, T_3)
A = DynamicCoordinates(D, floor(x(D)), floor(y(D)))
B = Point(list)
O = (0, 0)
w = Vector(O, B)
t = 0 (slider from 0 to 10, step 0.05)
P: A + t * w
P_1: A - t * w
u_1 = Vector(A, P)
u_2 = Vector(A, P_1)
h: x(A)
k: y(A)
a: x(B)
b: y(B)
text2: "$ 通過A" + (LaTeX[A]) + "且方向向量為 $
$\vec{L}=(\;" + (LaTeX[SurdText[x(B)]]) + "," + (LaTeX[SurdText[y(B)]]) + "\;)$
$的直線方程式為\;L:$
$\left\lbrace\begin{array}{ll} x=" + (LaTeX[If[h ≟ 0, "", "" + h]]) + " " + (LaTeX[If[a ≟ 0, "", If[a ≟ 1, "+t", If[a ≟ -1, "-t", If[a > 0, "+" + (SurdText[a]) + "\;t", If[a < 0, "-" + (SurdText[-a]) + "\;t"]]]]]]) + "  \\ y=" + (LaTeX[If[k ≟ 0, "", "" + k]]) + "  " + (LaTeX[If[b ≟ 0, "", If[b ≟ 1, "+t", If[b ≟ -1, "-t", If[b > 0, "+" + (SurdText[b]) + "\;t", If[b < 0, "-" + (SurdText[-b]) + "\;t"]]]]]]) + " \\ \end{array}   \right.\ ,t∈\mathbb{R}$"