Date: 6 1 月 2013

$n=%v$

$ 三角函數表 $

$k=%v$

$ \;\;\;\;x\;\;\;\;\;\;\;\;\;\;sinx\;\;\;\;\;\;\;\;cosx\;\;\;\;\;\;\;tanx \;\;$
$89°00'\;\;\;\;\;0.9998\;\;\;\;\;0.0175\;\;\;\;\;57.290$
$$\;\;\;\;\;10'\;\;\;\;\;0.9999\;\;\;\;\;0.0145\;\;\;\;\;68.750$
$$\;\;\;\;\;20'\;\;\;\;\;0.9999\;\;\;\;\;0.0116\;\;\;\;\;85.940$
$$\;\;\;\;\;30'\;\;\;\;\;1.0000\;\;\;\;\;0.0087\;\;\;\;\;114.59$
$$\;\;\;\;\;40'\;\;\;\;\;1.0000\;\;\;\;\;0.0058\;\;\;\;\;171.89$
$$\;\;\;\;\;50'\;\;\;\;\;1.0000\;\;\;\;\;0.0029\;\;\;\;\;343.77$
$90°00'\;\;\;\;\;1.0000\;\;\;\;\;0.0000\;\;\;\;\;\;\;.....$
$\;$
$\;$
$\;$
$\;$
$\;$

$ \;\;\;\;x\;\;\;\;\;\;\;\;\;\;sinx\;\;\;\;\;\;\;\;cosx\;\;\;\;\;\;\;tanx \;\;$
$90°00'\;\;\;\;\;1.0000\;\;\;\;\;\;0.0000\;\;\;\;\;\;..... $
$\;$
$\;$
$\;$
$\;$
$\;$
$\;$
$\;$
$\;$
$\;$
$\;$
$\;$

n = 0 (slider from 0 to 90, step 1)
k = 0 (slider from 0 to 50, step 10)
a: n° + (1 / 6 * k)°
s0: sin(n°)
s1: sin((n + 1 / 6)°)
s2: sin((n + 2 / 6)°)
s3: sin((n + 3 / 6)°)
s4: sin((n + 4 / 6)°)
s5: sin((n + 5 / 6)°)
c1: cos((n + 1 / 6)°)
c2: cos((n + 2 / 6)°)
c3: cos((n + 3 / 6)°)
c4: cos((n + 4 / 6)°)
c5: cos((n + 5 / 6)°)
c0: cos(n°)
t0: tan(n°)
t1: tan((n + 1 / 6)°)
t2: tan((n + 2 / 6)°)
t3: tan((n + 3 / 6)°)
t4: tan((n + 4 / 6)°)
t5: tan((n + 5 / 6)°)
sa: sin((n + 1)°)
sf: sin((n + 1 + 5 / 6)°)
se: sin((n + 1 + 4 / 6)°)
sd: sin((n + 1 + 3 / 6)°)
sc: sin((n + 1 + 2 / 6)°)
sb: sin((n + 1 + 1 / 6)°)
cb: cos((n + 1 + 1 / 6)°)
cc: cos((n + 1 + 2 / 6)°)
cd: cos((n + 1 + 3 / 6)°)
ce: cos((n + 1 + 4 / 6)°)
cf: cos((n + 1 + 5 / 6)°)
ca: cos((n + 1)°)
ta: tan((n + 1)°)
tb: tan((n + 1 + 1 / 6)°)
tc: tan((n + 1 + 2 / 6)°)
td: tan((n + 1 + 3 / 6)°)
te: tan((n + 1 + 4 / 6)°)
tf: tan((n + 1 + 5 / 6)°)
text1: "$ \;\;\;\;x\;\;\;\;\;\;\;\;\;\;sinx\;\;\;\;\;\;\;\;cosx\;\;\;\;\;\;\;tanx \;\;$
$" + (LaTeX[If[n ≥ 10, "" + n, "\;\;" + n]]) + "°00'\;\;\;\;\;" + (LaTeX[floor(s0) + If[floor(10000 * s0) - 10000 * floor(s0) > 1000, "." + (floor(10000 * s0) - 10000 * floor(s0)), If[floor(10000 * s0) - 10000 * floor(s0) > 100, ".0" + (floor(10000 * s0) - 10000 * floor(s0)), If[floor(10000 * s0) - 10000 * floor(s0) > 10, ".00" + (floor(10000 * s0) - 10000 * floor(s0)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[floor(c0) + If[floor(10000 * c0) - 10000 * floor(c0) > 1000, "." + (floor(10000 * c0) - 10000 * floor(c0)), If[floor(10000 * c0) - 10000 * floor(c0) > 100, ".0" + (floor(10000 * c0) - 10000 * floor(c0)), If[floor(10000 * c0) - 10000 * floor(c0) > 10, ".00" + (floor(10000 * c0) - 10000 * floor(c0)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[If[lg(t0) ≥ 2, floor(t0) + "." + (floor(100 * t0 - 100 * floor(t0))), If[lg(t0) ≥ 1, floor(t0) + If[floor(1000 * t0 - 1000 * floor(t0)) > 100, "." + (floor(1000 * t0 - 1000 * floor(t0))), ".0" + (floor(1000 * t0 - 1000 * floor(t0)))], floor(t0) + If[floor(10000 * t0) - 10000 * floor(t0) > 1000, "." + (floor(10000 * t0) - 10000 * floor(t0)), If[floor(10000 * t0) - 10000 * floor(t0) > 100, ".0" + (floor(10000 * t0) - 10000 * floor(t0)), If[floor(10000 * t0) - 10000 * floor(t0) > 10, ".00" + (floor(10000 * t0) - 10000 * floor(t0)), If[floor(10000 * t0) - 10000 * floor(t0) > 0, ".000" + (floor(10000 * t0) - 10000 * floor(t0)), ".0000"]]]]]]]) + "$
$\;\;\;\;\;10'\;\;\;\;\;" + (LaTeX[floor(s1) + If[floor(10000 * s1) - 10000 * floor(s1) > 1000, "." + (floor(10000 * s1) - 10000 * floor(s1)), If[floor(10000 * s1) - 10000 * floor(s1) > 100, ".0" + (floor(10000 * s1) - 10000 * floor(s1)), If[floor(10000 * s1) - 10000 * floor(s1) > 10, ".00" + (floor(10000 * s1) - 10000 * floor(s1)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[floor(c1) + If[floor(10000 * c1) - 10000 * floor(c1) > 1000, "." + (floor(10000 * c1) - 10000 * floor(c1)), If[floor(10000 * c1) - 10000 * floor(c1) > 100, ".0" + (floor(10000 * c1) - 10000 * floor(c1)), If[floor(10000 * c1) - 10000 * floor(c1) > 10, ".00" + (floor(10000 * c1) - 10000 * floor(c1)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[If[lg(t1) ≥ 2, floor(t1) + "." + (floor(100 * t1 - 100 * floor(t1))), If[lg(t1) ≥ 1, floor(t1) + If[floor(1000 * t1 - 1000 * floor(t1)) > 100, "." + (floor(1000 * t1 - 1000 * floor(t1))), ".0" + (floor(1000 * t1 - 1000 * floor(t1)))], floor(t1) + If[floor(10000 * t1) - 10000 * floor(t1) > 1000, "." + (floor(10000 * t1) - 10000 * floor(t1)), If[floor(10000 * t1) - 10000 * floor(t1) > 100, ".0" + (floor(10000 * t1) - 10000 * floor(t1)), If[floor(10000 * t1) - 10000 * floor(t1) > 10, ".00" + (floor(10000 * t1) - 10000 * floor(t1)), If[floor(10000 * t1) - 10000 * floor(t1) > 0, ".000" + (floor(10000 * t1) - 10000 * floor(t1)), ".0000"]]]]]]]) + "$
$\;\;\;\;\;20'\;\;\;\;\;" + (LaTeX[floor(s2) + If[floor(10000 * s2) - 10000 * floor(s2) > 1000, "." + (floor(10000 * s2) - 10000 * floor(s2)), If[floor(10000 * s2) - 10000 * floor(s2) > 100, ".0" + (floor(10000 * s2) - 10000 * floor(s2)), If[floor(10000 * s2) - 10000 * floor(s2) > 10, ".00" + (floor(10000 * s2) - 10000 * floor(s2)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[floor(c2) + If[floor(10000 * c2) - 10000 * floor(c2) > 1000, "." + (floor(10000 * c2) - 10000 * floor(c2)), If[floor(10000 * c2) - 10000 * floor(c2) > 100, ".0" + (floor(10000 * c2) - 10000 * floor(c2)), If[floor(10000 * c2) - 10000 * floor(c2) > 10, ".00" + (floor(10000 * c2) - 10000 * floor(c2)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[If[lg(t2) ≥ 2, floor(t2) + "." + (floor(100 * t2 - 100 * floor(t2))), If[lg(t2) ≥ 1, floor(t2) + If[floor(1000 * t2 - 1000 * floor(t2)) > 100, "." + (floor(1000 * t2 - 1000 * floor(t2))), ".0" + (floor(1000 * t2 - 1000 * floor(t2)))], floor(t2) + If[floor(10000 * t2) - 10000 * floor(t2) > 1000, "." + (floor(10000 * t2) - 10000 * floor(t2)), If[floor(10000 * t2) - 10000 * floor(t2) > 100, ".0" + (floor(10000 * t2) - 10000 * floor(t2)), If[floor(10000 * t2) - 10000 * floor(t2) > 10, ".00" + (floor(10000 * t2) - 10000 * floor(t2)), If[floor(10000 * t2) - 10000 * floor(t2) > 0, ".000" + (floor(10000 * t2) - 10000 * floor(t2)), ".0000"]]]]]]]) + "$
$\;\;\;\;\;30'\;\;\;\;\;" + (LaTeX[floor(s3) + If[floor(10000 * s3) - 10000 * floor(s3) > 1000, "." + (floor(10000 * s3) - 10000 * floor(s3)), If[floor(10000 * s3) - 10000 * floor(s3) > 100, ".0" + (floor(10000 * s3) - 10000 * floor(s3)), If[floor(10000 * s3) - 10000 * floor(s3) > 10, ".00" + (floor(10000 * s3) - 10000 * floor(s3)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[floor(c3) + If[floor(10000 * c3) - 10000 * floor(c3) > 1000, "." + (floor(10000 * c3) - 10000 * floor(c3)), If[floor(10000 * c3) - 10000 * floor(c3) > 100, ".0" + (floor(10000 * c3) - 10000 * floor(c3)), If[floor(10000 * c3) - 10000 * floor(c3) > 10, ".00" + (floor(10000 * c3) - 10000 * floor(c3)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[If[lg(t3) ≥ 2, floor(t3) + "." + (floor(100 * t3 - 100 * floor(t3))), If[lg(t3) ≥ 1, floor(t3) + If[floor(1000 * t3 - 1000 * floor(t3)) > 100, "." + (floor(1000 * t3 - 1000 * floor(t3))), ".0" + (floor(1000 * t3 - 1000 * floor(t3)))], floor(t3) + If[floor(10000 * t3) - 10000 * floor(t3) > 1000, "." + (floor(10000 * t3) - 10000 * floor(t3)), If[floor(10000 * t3) - 10000 * floor(t3) > 100, ".0" + (floor(10000 * t3) - 10000 * floor(t3)), If[floor(10000 * t3) - 10000 * floor(t3) > 10, ".00" + (floor(10000 * t3) - 10000 * floor(t3)), If[floor(10000 * t3) - 10000 * floor(t3) > 0, ".000" + (floor(10000 * t3) - 10000 * floor(t3)), ".0000"]]]]]]]) + "$
$\;\;\;\;\;40'\;\;\;\;\;" + (LaTeX[floor(s4) + If[floor(10000 * s4) - 10000 * floor(s4) > 1000, "." + (floor(10000 * s4) - 10000 * floor(s4)), If[floor(10000 * s4) - 10000 * floor(s4) > 100, ".0" + (floor(10000 * s4) - 10000 * floor(s4)), If[floor(10000 * s4) - 10000 * floor(s4) > 10, ".00" + (floor(10000 * s4) - 10000 * floor(s4)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[floor(c4) + If[floor(10000 * c4) - 10000 * floor(c4) > 1000, "." + (floor(10000 * c4) - 10000 * floor(c4)), If[floor(10000 * c4) - 10000 * floor(c4) > 100, ".0" + (floor(10000 * c4) - 10000 * floor(c4)), If[floor(10000 * c4) - 10000 * floor(c4) > 10, ".00" + (floor(10000 * c4) - 10000 * floor(c4)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[If[lg(t4) ≥ 2, floor(t4) + "." + (floor(100 * t4 - 100 * floor(t4))), If[lg(t4) ≥ 1, floor(t4) + If[floor(1000 * t4 - 1000 * floor(t4)) > 100, "." + (floor(1000 * t4 - 1000 * floor(t4))), ".0" + (floor(1000 * t4 - 1000 * floor(t4)))], floor(t4) + If[floor(10000 * t4) - 10000 * floor(t4) > 1000, "." + (floor(10000 * t4) - 10000 * floor(t4)), If[floor(10000 * t4) - 10000 * floor(t4) > 100, ".0" + (floor(10000 * t4) - 10000 * floor(t4)), If[floor(10000 * t4) - 10000 * floor(t4) > 10, ".00" + (floor(10000 * t4) - 10000 * floor(t4)), If[floor(10000 * t4) - 10000 * floor(t4) > 0, ".000" + (floor(10000 * t4) - 10000 * floor(t4)), ".0000"]]]]]]]) + "$
$\;\;\;\;\;50'\;\;\;\;\;" + (LaTeX[floor(s5) + If[floor(10000 * s5) - 10000 * floor(s5) > 1000, "." + (floor(10000 * s5) - 10000 * floor(s5)), If[floor(10000 * s5) - 10000 * floor(s5) > 100, ".0" + (floor(10000 * s5) - 10000 * floor(s5)), If[floor(10000 * s5) - 10000 * floor(s5) > 10, ".00" + (floor(10000 * s5) - 10000 * floor(s5)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[floor(c5) + If[floor(10000 * c5) - 10000 * floor(c5) > 1000, "." + (floor(10000 * c5) - 10000 * floor(c5)), If[floor(10000 * c5) - 10000 * floor(c5) > 100, ".0" + (floor(10000 * c5) - 10000 * floor(c5)), If[floor(10000 * c5) - 10000 * floor(c5) > 10, ".00" + (floor(10000 * c5) - 10000 * floor(c5)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[If[lg(t5) ≥ 2, floor(t5) + "." + (floor(100 * t5 - 100 * floor(t5))), If[lg(t5) ≥ 1, floor(t5) + If[floor(1000 * t5 - 1000 * floor(t5)) > 100, "." + (floor(1000 * t5 - 1000 * floor(t5))), ".0" + (floor(1000 * t5 - 1000 * floor(t5)))], floor(t5) + If[floor(10000 * t5) - 10000 * floor(t5) > 1000, "." + (floor(10000 * t5) - 10000 * floor(t5)), If[floor(10000 * t5) - 10000 * floor(t5) > 100, ".0" + (floor(10000 * t5) - 10000 * floor(t5)), If[floor(10000 * t5) - 10000 * floor(t5) > 10, ".00" + (floor(10000 * t5) - 10000 * floor(t5)), If[floor(10000 * t5) - 10000 * floor(t5) > 0, ".000" + (floor(10000 * t5) - 10000 * floor(t5)), ".0000"]]]]]]]) + "$
$" + (LaTeX[If[n ≥ 9, "" + (n + 1), "\;\;" + (n + 1)]]) + "°00'\;\;\;\;\;" + (LaTeX[floor(sa) + If[floor(10000 * sa) - 10000 * floor(sa) > 1000, "." + (floor(10000 * sa) - 10000 * floor(sa)), If[floor(10000 * sa) - 10000 * floor(sa) > 100, ".0" + (floor(10000 * sa) - 10000 * floor(sa)), If[floor(10000 * sa) - 10000 * floor(sa) > 10, ".00" + (floor(10000 * sa) - 10000 * floor(sa)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[floor(ca) + If[floor(10000 * ca) - 10000 * floor(ca) > 1000, "." + (floor(10000 * ca) - 10000 * floor(ca)), If[floor(10000 * ca) - 10000 * floor(ca) > 100, ".0" + (floor(10000 * ca) - 10000 * floor(ca)), If[floor(10000 * ca) - 10000 * floor(ca) > 10, ".00" + (floor(10000 * ca) - 10000 * floor(ca)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[If[lg(ta) ≥ 2, floor(ta) + "." + (floor(100 * ta - 100 * floor(ta))), If[lg(ta) ≥ 1, floor(ta) + If[floor(1000 * ta - 1000 * floor(ta)) > 100, "." + (floor(1000 * ta - 1000 * floor(ta))), ".0" + (floor(1000 * ta - 1000 * floor(ta)))], floor(ta) + If[floor(10000 * ta) - 10000 * floor(ta) > 1000, "." + (floor(10000 * ta) - 10000 * floor(ta)), If[floor(10000 * ta) - 10000 * floor(ta) > 100, ".0" + (floor(10000 * ta) - 10000 * floor(ta)), If[floor(10000 * ta) - 10000 * floor(ta) > 10, ".00" + (floor(10000 * ta) - 10000 * floor(ta)), If[floor(10000 * ta) - 10000 * floor(ta) > 0, ".000" + (floor(10000 * ta) - 10000 * floor(ta)), ".0000"]]]]]]]) + "$
$\;\;\;\;\;10'\;\;\;\;\;" + (LaTeX[floor(sb) + If[floor(10000 * sb) - 10000 * floor(sb) > 1000, "." + (floor(10000 * sb) - 10000 * floor(sb)), If[floor(10000 * sb) - 10000 * floor(sb) > 100, ".0" + (floor(10000 * sb) - 10000 * floor(sb)), If[floor(10000 * sb) - 10000 * floor(sb) > 10, ".00" + (floor(10000 * sb) - 10000 * floor(sb)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[floor(cb) + If[floor(10000 * cb) - 10000 * floor(cb) > 1000, "." + (floor(10000 * cb) - 10000 * floor(cb)), If[floor(10000 * cb) - 10000 * floor(cb) > 100, ".0" + (floor(10000 * cb) - 10000 * floor(cb)), If[floor(10000 * cb) - 10000 * floor(cb) > 10, ".00" + (floor(10000 * cb) - 10000 * floor(cb)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[If[lg(tb) ≥ 2, floor(tb) + "." + (floor(100 * tb - 100 * floor(tb))), If[lg(tb) ≥ 1, floor(tb) + If[floor(1000 * tb - 1000 * floor(tb)) > 100, "." + (floor(1000 * tb - 1000 * floor(tb))), ".0" + (floor(1000 * tb - 1000 * floor(tb)))], floor(tb) + If[floor(10000 * tb) - 10000 * floor(tb) > 1000, "." + (floor(10000 * tb) - 10000 * floor(tb)), If[floor(10000 * tb) - 10000 * floor(tb) > 100, ".0" + (floor(10000 * tb) - 10000 * floor(tb)), If[floor(10000 * tb) - 10000 * floor(tb) > 10, ".00" + (floor(10000 * tb) - 10000 * floor(tb)), If[floor(10000 * tb) - 10000 * floor(tb) > 0, ".000" + (floor(10000 * tb) - 10000 * floor(tb)), ".0000"]]]]]]]) + "$
$\;\;\;\;\;20'\;\;\;\;\;" + (LaTeX[floor(sc) + If[floor(10000 * sc) - 10000 * floor(sc) > 1000, "." + (floor(10000 * sc) - 10000 * floor(sc)), If[floor(10000 * sc) - 10000 * floor(sc) > 100, ".0" + (floor(10000 * sc) - 10000 * floor(sc)), If[floor(10000 * sc) - 10000 * floor(sc) > 10, ".00" + (floor(10000 * sc) - 10000 * floor(sc)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[floor(cc) + If[floor(10000 * cc) - 10000 * floor(cc) > 1000, "." + (floor(10000 * cc) - 10000 * floor(cc)), If[floor(10000 * cc) - 10000 * floor(cc) > 100, ".0" + (floor(10000 * cc) - 10000 * floor(cc)), If[floor(10000 * cc) - 10000 * floor(cc) > 10, ".00" + (floor(10000 * cc) - 10000 * floor(cc)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[If[lg(tc) ≥ 2, floor(tc) + "." + (floor(100 * tc - 100 * floor(tc))), If[lg(tc) ≥ 1, floor(tc) + If[floor(1000 * tc - 1000 * floor(tc)) > 100, "." + (floor(1000 * tc - 1000 * floor(tc))), ".0" + (floor(1000 * tc - 1000 * floor(tc)))], floor(tc) + If[floor(10000 * tc) - 10000 * floor(tc) > 1000, "." + (floor(10000 * tc) - 10000 * floor(tc)), If[floor(10000 * tc) - 10000 * floor(tc) > 100, ".0" + (floor(10000 * tc) - 10000 * floor(tc)), If[floor(10000 * tc) - 10000 * floor(tc) > 10, ".00" + (floor(10000 * tc) - 10000 * floor(tc)), If[floor(10000 * tc) - 10000 * floor(tc) > 0, ".000" + (floor(10000 * tc) - 10000 * floor(tc)), ".0000"]]]]]]]) + "$
$\;\;\;\;\;30'\;\;\;\;\;" + (LaTeX[floor(sd) + If[floor(10000 * sd) - 10000 * floor(sd) > 1000, "." + (floor(10000 * sd) - 10000 * floor(sd)), If[floor(10000 * sd) - 10000 * floor(sd) > 100, ".0" + (floor(10000 * sd) - 10000 * floor(sd)), If[floor(10000 * sd) - 10000 * floor(sd) > 10, ".00" + (floor(10000 * sd) - 10000 * floor(sd)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[floor(cd) + If[floor(10000 * cd) - 10000 * floor(cd) > 1000, "." + (floor(10000 * cd) - 10000 * floor(cd)), If[floor(10000 * cd) - 10000 * floor(cd) > 100, ".0" + (floor(10000 * cd) - 10000 * floor(cd)), If[floor(10000 * cd) - 10000 * floor(cd) > 10, ".00" + (floor(10000 * cd) - 10000 * floor(cd)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[If[lg(td) ≥ 2, floor(td) + "." + (floor(100 * td - 100 * floor(td))), If[lg(td) ≥ 1, floor(td) + If[floor(1000 * td - 1000 * floor(td)) > 100, "." + (floor(1000 * td - 1000 * floor(td))), ".0" + (floor(1000 * td - 1000 * floor(td)))], floor(td) + If[floor(10000 * td) - 10000 * floor(td) > 1000, "." + (floor(10000 * td) - 10000 * floor(td)), If[floor(10000 * td) - 10000 * floor(td) > 100, ".0" + (floor(10000 * td) - 10000 * floor(td)), If[floor(10000 * td) - 10000 * floor(td) > 10, ".00" + (floor(10000 * td) - 10000 * floor(td)), If[floor(10000 * td) - 10000 * floor(td) > 0, ".000" + (floor(10000 * td) - 10000 * floor(td)), ".0000"]]]]]]]) + "$
$\;\;\;\;\;40'\;\;\;\;\;" + (LaTeX[floor(se) + If[floor(10000 * se) - 10000 * floor(se) > 1000, "." + (floor(10000 * se) - 10000 * floor(se)), If[floor(10000 * se) - 10000 * floor(se) > 100, ".0" + (floor(10000 * se) - 10000 * floor(se)), If[floor(10000 * se) - 10000 * floor(se) > 10, ".00" + (floor(10000 * se) - 10000 * floor(se)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[floor(ce) + If[floor(10000 * ce) - 10000 * floor(ce) > 1000, "." + (floor(10000 * ce) - 10000 * floor(ce)), If[floor(10000 * ce) - 10000 * floor(ce) > 100, ".0" + (floor(10000 * ce) - 10000 * floor(ce)), If[floor(10000 * ce) - 10000 * floor(ce) > 10, ".00" + (floor(10000 * ce) - 10000 * floor(ce)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[If[lg(te) ≥ 2, floor(te) + "." + (floor(100 * te - 100 * floor(te))), If[lg(te) ≥ 1, floor(te) + If[floor(1000 * te - 1000 * floor(te)) > 100, "." + (floor(1000 * te - 1000 * floor(te))), ".0" + (floor(1000 * te - 1000 * floor(te)))], floor(te) + If[floor(10000 * te) - 10000 * floor(te) > 1000, "." + (floor(10000 * te) - 10000 * floor(te)), If[floor(10000 * te) - 10000 * floor(te) > 100, ".0" + (floor(10000 * te) - 10000 * floor(te)), If[floor(10000 * te) - 10000 * floor(te) > 10, ".00" + (floor(10000 * te) - 10000 * floor(te)), If[floor(10000 * te) - 10000 * floor(te) > 0, ".000" + (floor(10000 * te) - 10000 * floor(te)), ".0000"]]]]]]]) + "$
$\;\;\;\;\;50'\;\;\;\;\;" + (LaTeX[floor(sf) + If[floor(10000 * sf) - 10000 * floor(sf) > 1000, "." + (floor(10000 * sf) - 10000 * floor(sf)), If[floor(10000 * sf) - 10000 * floor(sf) > 100, ".0" + (floor(10000 * sf) - 10000 * floor(sf)), If[floor(10000 * sf) - 10000 * floor(sf) > 10, ".00" + (floor(10000 * sf) - 10000 * floor(sf)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[floor(c0) + If[floor(10000 * c0) - 10000 * floor(c0) > 1000, "." + (floor(10000 * c0) - 10000 * floor(c0)), If[floor(10000 * c0) - 10000 * floor(c0) > 100, ".0" + (floor(10000 * c0) - 10000 * floor(c0)), If[floor(10000 * c0) - 10000 * floor(c0) > 10, ".00" + (floor(10000 * c0) - 10000 * floor(c0)), ".0000"]]]]) + "\;\;\;\;\;" + (LaTeX[If[lg(tf) ≥ 2, floor(tf) + "." + (floor(100 * tf - 100 * floor(tf))), If[lg(tf) ≥ 1, floor(tf) + If[floor(1000 * tf - 1000 * floor(tf)) > 100, "." + (floor(1000 * tf - 1000 * floor(tf))), ".0" + (floor(1000 * tf - 1000 * floor(tf)))], floor(tf) + If[floor(10000 * tf) - 10000 * floor(tf) > 1000, "." + (floor(10000 * tf) - 10000 * floor(tf)), If[floor(10000 * tf) - 10000 * floor(tf) > 100, ".0" + (floor(10000 * tf) - 10000 * floor(tf)), If[floor(10000 * tf) - 10000 * floor(tf) > 10, ".00" + (floor(10000 * tf) - 10000 * floor(tf)), If[floor(10000 * tf) - 10000 * floor(tf) > 0, ".000" + (floor(10000 * tf) - 10000 * floor(tf)), ".0000"]]]]]]]) + "$"
A = (5.02, 5.58)
a_0 = Segment(A - (1.7, 0), A + (6, 0))
a_1 = Segment(A + (0, 0.7), A - (0, 9.2))
a_2 = Segment(A + (-1.72, 0.7), A + (-1.72, -9.2))
a_3 = Segment(A + (6.05, 0.7), A + (6.05, -9.2))
a_4 = Segment(A + (-1.7, 0.7), A + (6, 0.7))
a_5 = Segment(A + (-1.7, -9.2), A + (6, -9.2))
D: A - (1.7, 0)
D_1: D + (7.7, 0)
D_2: D - (0, 0.55)
D_3: D_1 + D_2 - D
poly1, d, d_1, d_3, d_2 = Polygon(D, D_1, D_3, D_2)
E: D - (0, 0.8)
E_1: E + (7.7, 0)
E_2: E - (0, 0.5)
E_3: E_1 + E_2 - E
poly2, e, e_1, e_3, e_2 = Polygon(E, E_1, E_3, E_2)
F: E - (0, 0.75)
F_1: F + (7.7, 0)
F_2: F - (0, 0.5)
F_3: F_1 + F_2 - F
poly3, f, f_1, f_3, f_2 = Polygon(F, F_1, F_3, F_2)
G: F - (0, 0.8)
G_1: G + (7.7, 0)
G_2: G - (0, 0.5)
G_3: G_1 + G_2 - G
poly4, g, g_1, g_3, g_2 = Polygon(G, G_1, G_3, G_2)
H: G - (0, 0.75)
H_1: H + (7.7, 0)
H_2: H - (0, 0.5)
H_3: H_1 + H_2 - H
poly5, h, h_1, h_3, h_2 = Polygon(H, H_1, H_3, H_2)
P: H - (0, 0.75)
P_1: P + (7.7, 0)
P_2: P - (0, 0.5)
P_3: P_1 + P_2 - P
poly6, p, p_1, p_3, p_2 = Polygon(P, P_1, P_3, P_2)
text2: "$ 目前角度：\;" + (LaTeX[n]) + " °" + (LaTeX[If[k ≟ 0, "00", "" + k]]) + "'$
$sin\;" + (LaTeX[n]) + "°" + (LaTeX[If[k ≟ 0, "00", "" + k]]) + "'=" + (LaTeX[floor(sin(n° + (k / 60)°)) + If[floor(10000 * sin(n° + (k / 60)°)) - 10000 * floor(sin(n° + (k / 60)°)) > 1000, "." + (floor(10000 * sin(n° + (k / 60)°)) - 10000 * floor(sin(n° + (k / 60)°))), If[floor(10000 * sin(n° + (k / 60)°)) - 10000 * floor(sin(n° + (k / 60)°)) > 100, ".0" + (floor(10000 * sin(n° + (k / 60)°)) - 10000 * floor(sin(n° + (k / 60)°))), If[floor(10000 * sin(n° + (k / 60)°)) - 10000 * floor(sin(n° + (k / 60)°)) > 10, ".00" + (floor(10000 * sin(n° + (k / 60)°)) - 10000 * floor(sin(n° + (k / 60)°))), ".0000"]]]]) + "$
$cos\;" + (LaTeX[n]) + "°" + (LaTeX[If[k ≟ 0, "00", "" + k]]) + "'=" + (LaTeX[floor(cos(n° + (k / 60)°)) + If[floor(10000 * cos(n° + (k / 60)°)) - 10000 * floor(cos(n° + (k / 60)°)) > 1000, "." + (floor(10000 * cos(n° + (k / 60)°)) - 10000 * floor(cos(n° + (k / 60)°))), If[floor(10000 * cos(n° + (k / 60)°)) - 10000 * floor(cos(n° + (k / 60)°)) > 100, ".0" + (floor(10000 * cos(n° + (k / 60)°)) - 10000 * floor(cos(n° + (k / 60)°))), If[floor(10000 * cos(n° + (k / 60)°)) - 10000 * floor(cos(n° + (k / 60)°)) > 10, ".00" + (floor(10000 * cos(n° + (k / 60)°)) - 10000 * floor(cos(n° + (k / 60)°))), ".0000"]]]]) + "$
$tan\;" + (LaTeX[n]) + "°" + (LaTeX[If[k ≟ 0, "00", "" + k]]) + "'=" + (LaTeX[If[lg(tan(n° + (k / 60)°)) ≥ 2, floor(tan(n° + (k / 60)°)) + "." + (floor(100 * tan(n° + (k / 60)°) - 100 * floor(tan(n° + (k / 60)°)))), If[lg(tan(n° + (k / 60)°)) ≥ 1, floor(tan(n° + (k / 60)°)) + If[floor(1000 * tan(n° + (k / 60)°) - 1000 * floor(tan(n° + (k / 60)°))) > 100, "." + (floor(1000 * tan(n° + (k / 60)°) - 1000 * floor(tan(n° + (k / 60)°)))), ".0" + (floor(1000 * tan(n° + (k / 60)°) - 1000 * floor(tan(n° + (k / 60)°))))], floor(tan(n° + (k / 60)°)) + If[floor(10000 * tan(n° + (k / 60)°)) - 10000 * floor(tan(n° + (k / 60)°)) > 1000, "." + (floor(10000 * tan(n° + (k / 60)°)) - 10000 * floor(tan(n° + (k / 60)°))), If[floor(10000 * tan(n° + (k / 60)°)) - 10000 * floor(tan(n° + (k / 60)°)) > 100, ".0" + (floor(10000 * tan(n° + (k / 60)°)) - 10000 * floor(tan(n° + (k / 60)°))), If[floor(10000 * tan(n° + (k / 60)°)) - 10000 * floor(tan(n° + (k / 60)°)) > 10, ".00" + (floor(10000 * tan(n° + (k / 60)°)) - 10000 * floor(tan(n° + (k / 60)°))), If[floor(10000 * tan(n° + (k / 60)°)) - 10000 * floor(tan(n° + (k / 60)°)) > 0, ".000" + (floor(10000 * tan(n° + (k / 60)°)) - 10000 * floor(tan(n° + (k / 60)°))), ".0000"]]]]]]]) + "$"