Date: 3 1 月 2013

$c=%v$

$b=%v$

$a=%v$

$ 常用對數表 $

$ y=log\;x $

k = 0 (slider from 0 to 9, step 1)
A = (0.6, 4.9)
C_9: A + (10.77, 0)
C_8: A + (9.63, 0)
C_7: A + (8.49, 0)
C_6: A + (7.35, 0)
C_5: A + (6.23, 0)
C_4: A + (4.8, 0)
C_3: A + (3.67, 0)
C_2: A + (2.52, 0)
C_1: A + (1.37, 0)
C_0: A + (0.25, 0)
B_0: A - (0, 7.2)
B_9: A - (0, 6.5)
B_8: A - (0, 5.86)
B_7: A - (0, 5.2)
B_6: A - (0, 4.5)
B_5: A - (0, 3.2)
B_4: A - (0, 2.55)
B_3: A - (0, 1.86)
B_2: A - (0, 1.2)
B_1: A - (0, 0.55)
j = 0 (slider from 0 to 9, step 1)
i = 1 (slider from 1 to 9, step 1)
list2 = Sequence(A + (-0.7, -3.9 - 0.63 * k), k, 1, 5)
list1 = Sequence(A + (-0.7, -0.635 * k), k, 1, 5)
list3 = Union(list1, list2)
n: 10 * i - 9
Q = Point(list3)
text1: "$\; x\;\;\;\; \;\;\;0\;\;\;\;\;\;1\;\;\;\;\;\;\;2\;\;\;\;\;\;3\;\;\;\;\;\;4\;\;\;\;\;\;\;\;\;5\;\;\;\;\;\;6\;\;\;\;\;\;7\;\;\;\;\;\;\;8\;\;\;\;\;\;9$
$" + (LaTeX[n + 9]) + "\;\;\;" + (LaTeX[If[n ≟ 1, "0000", If[n ≟ 2, "0414", If[n ≟ 3, "0792", "" + (round(10000 * lg((n + 9) / 10)))]]]]) + "\;" + (LaTeX[If[n ≟ 1, "0043", If[n ≟ 2, "0453", If[n ≟ 3, "0828", "" + (round(10000 * lg((n + 9.1) / 10)))]]]]) + "\;" + (LaTeX[If[n ≟ 1, "0086", If[n ≟ 2, "0492", If[n ≟ 3, "0864", "" + (round(10000 * lg((n + 9.2) / 10)))]]]]) + "\;" + (LaTeX[If[n ≟ 1, "0128", If[n ≟ 2, "0531", If[n ≟ 3, "0899", "" + (round(10000 * lg((n + 9.3) / 10)))]]]]) + "\;" + (LaTeX[If[n ≟ 1, "0170", If[n ≟ 2, "0569", If[n ≟ 3, "0934", "" + (round(10000 * lg((n + 9.4) / 10)))]]]]) + "\;\;\;" + (LaTeX[If[n ≟ 1, "0212", If[n ≟ 2, "0607", If[n ≟ 3, "0969", "" + (round(10000 * lg((n + 9.5) / 10)))]]]]) + "\;" + (LaTeX[If[n ≟ 1, "0253", If[n ≟ 2, "0645", "" + (round(10000 * lg((n + 9.6) / 10)))]]]) + "\;" + (LaTeX[If[n ≟ 1, "0294", If[n ≟ 2, "0682", "" + (round(10000 * lg((n + 9.7) / 10)))]]]) + "\;" + (LaTeX[If[n ≟ 1, "0334", If[n ≟ 2, "0719", "" + (round(10000 * lg((n + 9.8) / 10)))]]]) + "\;" + (LaTeX[If[n ≟ 1, "0374", If[n ≟ 2, "0755", "" + (round(10000 * lg((n + 9.9) / 10)))]]]) + "$
$" + (LaTeX[n + 10]) + "\;\;\;" + (LaTeX[If[n ≟ 1, "0414", If[n ≟ 2, "0792", "" + (round(10000 * lg((n + 10) / 10)))]]]) + "\;" + (LaTeX[If[n ≟ 1, "0453", If[n ≟ 2, "0828", "" + (round(10000 * lg((n + 10.1) / 10)))]]]) + "\;" + (LaTeX[If[n ≟ 1, "0492", If[n ≟ 2, "0864", "" + (round(10000 * lg((n + 10.2) / 10)))]]]) + "\;" + (LaTeX[If[n ≟ 1, "0531", If[n ≟ 2, "0899", "" + (round(10000 * lg((n + 10.3) / 10)))]]]) + "\;" + (LaTeX[If[n ≟ 1, "0569", If[n ≟ 2, "0934", "" + (round(10000 * lg((n + 10.4) / 10)))]]]) + "\;\;\;" + (LaTeX[If[n ≟ 1, "0607", If[n ≟ 2, "0969", "" + (round(10000 * lg((n + 10.5) / 10)))]]]) + "\;" + (LaTeX[If[n ≟ 1, "0645", "" + (round(10000 * lg((n + 10.6) / 10)))]]) + "\;" + (LaTeX[If[n ≟ 1, "0682", "" + (round(10000 * lg((n + 10.7) / 10)))]]) + "\;" + (LaTeX[If[n ≟ 1, "0719", "" + (round(10000 * lg((n + 10.8) / 10)))]]) + "\;" + (LaTeX[If[n ≟ 1, "0755", "" + (round(10000 * lg((n + 10.9) / 10)))]]) + "$
$" + (LaTeX[n + 11]) + "\;\;\;" + (LaTeX[If[n ≟ 1, "0792", "" + (round(10000 * lg((n + 11) / 10)))]]) + "\;" + (LaTeX[If[n ≟ 1, "0828", "" + (round(10000 * lg((n + 11.1) / 10)))]]) + "\;" + (LaTeX[If[n ≟ 1, "0864", "" + (round(10000 * lg((n + 11.2) / 10)))]]) + "\;" + (LaTeX[If[n ≟ 1, "0899", "" + (round(10000 * lg((n + 11.3) / 10)))]]) + "\;" + (LaTeX[If[n ≟ 1, "0934", "" + (round(10000 * lg((n + 11.4) / 10)))]]) + "\;\;\;" + (LaTeX[If[n ≟ 1, "0969", "" + (round(10000 * lg((n + 11.5) / 10)))]]) + "\;" + (LaTeX[round(10000 * lg((n + 11.6) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 11.7) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 11.8) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 11.9) / 10))]) + "$
$" + (LaTeX[n + 12]) + "\;\;\;" + (LaTeX[round(10000 * lg((n + 12) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 12.1) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 12.2) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 12.3) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 12.4) / 10))]) + "\;\;\;" + (LaTeX[round(10000 * lg((n + 12.5) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 12.6) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 12.7) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 12.8) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 12.9) / 10))]) + "$
$" + (LaTeX[n + 13]) + "\;\;\;" + (LaTeX[round(10000 * lg((n + 13) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 13.1) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 13.2) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 13.3) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 13.4) / 10))]) + "\;\;\;" + (LaTeX[round(10000 * lg((n + 13.5) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 13.6) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 13.7) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 13.8) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 13.9) / 10))]) + "$
$\;$
$" + (LaTeX[n + 14]) + "\;\;\;" + (LaTeX[round(10000 * lg((n + 14) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 14.1) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 14.2) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 14.3) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 14.4) / 10))]) + "\;\;\;" + (LaTeX[round(10000 * lg((n + 14.5) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 14.6) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 14.7) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 14.8) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 14.9) / 10))]) + "$
$" + (LaTeX[n + 15]) + "\;\;\;" + (LaTeX[round(10000 * lg((n + 15) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 15.1) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 15.2) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 15.3) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 15.4) / 10))]) + "\;\;\;" + (LaTeX[round(10000 * lg((n + 15.5) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 15.6) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 15.7) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 15.8) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 15.9) / 10))]) + "$
$" + (LaTeX[n + 16]) + "\;\;\;" + (LaTeX[round(10000 * lg((n + 16) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 16.1) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 16.2) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 16.3) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 16.4) / 10))]) + "\;\;\;" + (LaTeX[round(10000 * lg((n + 16.5) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 16.6) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 16.7) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 16.8) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 16.9) / 10))]) + "$
$" + (LaTeX[n + 17]) + "\;\;\;" + (LaTeX[round(10000 * lg((n + 17) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 17.1) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 17.2) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 17.3) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 17.4) / 10))]) + "\;\;\;" + (LaTeX[round(10000 * lg((n + 17.5) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 17.6) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 17.7) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 17.8) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 17.9) / 10))]) + "$
$" + (LaTeX[n + 18]) + "\;\;\;" + (LaTeX[round(10000 * lg((n + 18) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 18.1) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 18.2) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 18.3) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 18.4) / 10))]) + "\;\;\;" + (LaTeX[round(10000 * lg((n + 18.5) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 18.6) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 18.7) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 18.8) / 10))]) + "\;" + (LaTeX[round(10000 * lg((n + 18.9) / 10))]) + "$"
a = Segment(A - (0.7, 0), A + (11.9, 0))
e = Segment(A + (-0.7, 0.7), A + (11.9, 0.7))
c = Segment(A + (-0.7, 0.7), A + (-0.7, -7.2))
b = Segment(A + (0, 0.7), A - (0, 7.2))
d = Segment(A + (11.9, 0.7), A + (11.9, -7.2))
f = Segment(A + (-0.7, -7.2), A + (11.9, -7.2))
P_0: (If[k ≟ 0, x(C_0), If[k ≟ 1, x(C_1), If[k ≟ 2, x(C_2), If[k ≟ 3, x(C_3), If[k ≟ 4, x(C_4), If[k ≟ 5, x(C_5), If[k ≟ 6, x(C_6), If[k ≟ 7, x(C_7), If[k ≟ 8, x(C_8), x(C_9)]]]]]]]]], If[j ≟ 0, y(B_1), If[j ≟ 1, y(B_2), If[j ≟ 2, y(B_3), If[j ≟ 3, y(B_4), If[j ≟ 4, y(B_5), If[j ≟ 5, y(B_6), If[j ≟ 6, y(B_7), If[j ≟ 7, y(B_8), If[j ≟ 8, y(B_9), y(B_0)]]]]]]]]])
P_1: P_0 + (1.03, 0)
P_3: P_0 + (0, 0.45)
P_2: P_1 + P_3 - P_0
poly1, p_0, p_1, p_2, p_3 = Polygon(P_0, P_1, P_2, P_3)
lista = Sequence(A + (11.9, -0.63 * k), k, 1, 5)
listb = Sequence(A + (11.9, -4.05 - 0.638 * k), k, 1, 5)
listc = Union(lista, listb)
listA = Sequence(Segment[Element[list3, k], Element[listc, k]], k, 1, 10)
text3: "$ log\;\fgcolor{red}{" + (LaTeX[i]) + "." + (LaTeX[j]) + "" + (LaTeX[k]) + "}=\fgcolor{green}{" + (LaTeX[lg((100 * i + 10 * j + k) / 100)]) + "} $
$⇒10^\fgcolor{green}{{" + (LaTeX[lg((100 * i + 10 * j + k) / 100)]) + "}}=\fgcolor{red}{" + (LaTeX[i]) + "." + (LaTeX[j]) + "" + (LaTeX[k]) + "}$"
u = Vector(A, (x(A), If[j ≟ 0, y(B_1), If[j ≟ 1, y(B_2), If[j ≟ 2, y(B_3), If[j ≟ 3, y(B_4), If[j ≟ 4, y(B_5), If[j ≟ 5, y(B_6), If[j ≟ 6, y(B_7), If[j ≟ 7, y(B_8), If[j ≟ 8, y(B_9), y(B_0)]]]]]]]]] - 0.15))
v = Vector((x(A), -0.1 + If[j ≟ 0, y(B_1), If[j ≟ 1, y(B_2), If[j ≟ 2, y(B_3), If[j ≟ 3, y(B_4), If[j ≟ 4, y(B_5), If[j ≟ 5, y(B_6), If[j ≟ 6, y(B_7), If[j ≟ 7, y(B_8), If[j ≟ 8, y(B_9), y(B_0)]]]]]]]]]), P_0 + (0.5, -0.1))