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

內插法求正切函數的近似值

$Step=%v$

$%v$

$%v'$

x

Q_2: 0.6 * Corner[1] + 0.4 * 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])
s = 0 (slider from 0 to 3, step 1)
α = 0.296705972839036 rad (slider from 0 to 89*°, step 0.017453292519943295)
n = 33 (slider from 1 to 59, step 1)
A = (4.272154058973239, -1.600678275592357)
B: A + (3, 0)
D: A + (0, 6)
C: B + D - A
a = PolyLine(A, B, C, D, A)
P: A + (0, 0.6 * Mod[n, 10])
q: floor(n / 10)
textb: "" + (LaTeX[round(10000 * tan(α + (q / 6)°)) / 10000]) + ""
texta: "" + (LaTeX[α]) + "" + (LaTeX[If[q ≟ 0, "", "" + (10 * q) + "'"]]) + ""
textd: "" + (LaTeX[If[n ≥ 50, α + °, α]]) + "" + (LaTeX[If[n ≥ 50, "", "" + (10 * q + 10) + "'"]]) + ""
R: (x(B), y(P))
poly2, a_1, b, r, p = Polygon(A, B, R, P)
c = Segment(P, R)
textp: "" + (LaTeX[α]) + "" + (LaTeX[If[n ≟ 0, "", "" + n + "'"]]) + ""
textc: "" + (LaTeX[round(10000 * tan(α + ((q + 1) / 6)°)) / 10000]) + ""
text3: "⇒tan" + (LaTeX[α]) + "" + (LaTeX[If[n ≟ 0, "", n + "\;'"]]) + "=" + (LaTeX[tan(α + (q / 6)°) + (n - 10 * q) / 10 * (tan(α + ((q + 1) / 6)°) - tan(α + (q / 6)°))]) + ""
text0: "$已知：\;tan" + (LaTeX[α]) + "" + (LaTeX[If[q ≟ 0, "", "" + (10 * q) + "'"]]) + "=" + (LaTeX[tan(α + (q / 6)°)]) + "，$
$tan" + (LaTeX[If[n ≥ 50, α + °, α]]) + "" + (LaTeX[If[n ≥ 50, "", "" + (10 * q + 10) + "'"]]) + "=" + (LaTeX[tan(α + ((q + 1) / 6)°)]) + "，$
$試求：\;tan" + (LaTeX[α]) + "" + (LaTeX[If[n ≟ 0, "", n + "\;'"]]) + "之值$"
d = LineBisector(P, A)
e = LineBisector(D, A)
E, F = Intersect(e, a)
G, H = Intersect(d, a)
f = CircleArc(F, D, A)
g = CircleArc(E, B, C)
h = CircleArc(H, P, A)
k = CircleArc(G, B, R)
text1: "\frac{x-\fgcolor{red}{" + (LaTeX[textb]) + "}}\fgcolor{blue}{{" + (LaTeX[textc]) + "-" + (LaTeX[textb]) + "}}=\fgcolor{green}{\frac{" + (LaTeX[textp]) + "-" + (LaTeX[texta]) + "}{" + (LaTeX[textd]) + "-" + (LaTeX[texta]) + "}}"
text2: "⇒x=\fgcolor{red}{" + (LaTeX[textb]) + "}+\fgcolor{green}{\frac{" + (LaTeX[n - 10 * q]) + "}{10}}×\fgcolor{blue}{" + (LaTeX[tan(α + ((q + 1) / 6)°) - tan(α + (q / 6)°)]) + "}"