2D 座標架
Author: 藍邦偉  老師

$ O $

$ 函數的極限 $
$鉛直漸近線的介紹$

$ f_2(x)=tanx $

u = Vector((x(Corner[1]), 0), (x(Corner[3]), 0))
v = Vector((0, y(Corner[1])), (0, y(Corner[3])))
O = (0, 0)
Q_2: 0.67 * Corner[1] + 0.33 * Corner[2]
Q_3: (x(Q_2), y(Corner[4]))
poly1, q_1, q_2, q_4, q_3 = Polygon(Corner[1], Q_2, Q_3, Corner[4])
n = 0 (slider from 0 to 6, step 1)
a = 1 (slider from -5 to 5, step 0.1)
b = 0 (slider from -5 to 5, step 0.1)
f_2(x) = tan(x)
text3: "$ f_3(x)=\frac{1}{x" + (LaTeX[If[a > 0, "-", If[a < 0, "+", ""]]]) + "" + (LaTeX[If[a ≠ 0, abs(a), ""]]) + "} $"
f_3(x) = 1 / (x - a)
text4: "$ f_4(x)=\frac{1}{  " + (LaTeX[If[a ≠ 0, "(", ""]]) + " x" + (LaTeX[If[a > 0, "-", If[a < 0, "+", ""]]]) + "" + (LaTeX[If[a ≠ 0, abs(a), ""]]) + " " + (LaTeX[If[a ≠ 0, ")", ""]]) + "^2} $"
f_4(x) = 1 / (x - a)^(2)
f_5(x) = -1 / (x - a)
text6: "$ f_6(x)=-\frac{1}{" + (LaTeX[If[a ≠ 0, "(", ""]]) + "x" + (LaTeX[If[a > 0, "-", If[a < 0, "+", ""]]]) + "" + (LaTeX[If[a ≠ 0, abs(a), ""]]) + "" + (LaTeX[If[a ≠ 0, ")^2", "^2"]]) + "} $"
text5: "$ f_5(x)=-\frac{1}{x" + (LaTeX[If[a > 0, "-", If[a < 0, "+", ""]]]) + "" + (LaTeX[If[a ≠ 0, abs(a), ""]]) + "} $"
f_6(x) = -1 / (x - a)^(2)
A = (-10.395179050456463, 2.409920953317681)
L_1: x = a
f_1(x) = (x - b) / (x - a)
text1: "$ f_1(x)= \frac{x" + (LaTeX[If[b > 0, "-", If[b < 0, "+", ""]]]) + "" + (LaTeX[If[b ≠ 0, abs(b), ""]]) + "}{x" + (LaTeX[If[a > 0, "-", If[a < 0, "+", ""]]]) + "" + (LaTeX[If[a ≠ 0, abs(a), ""]]) + "}$"
List = Sequence(x = (2 * n - 1) * π / 2, n, -2, 4)