Date: 3 1 月 2013

$c=%v$

$b=%v$

$a=%v$

$ 常用對數表 $

$ y=log\;x $

A = (-2.4, 3.34)
D: A + (1.4, (-1.2))
k = 0 (slider from 0 to 9, step 1)
C_9: D + (30.4, 0)
C_8: D + (27.3, 0)
C_7: D + (24.3, 0)
C_6: D + (21.2, 0)
C_5: D + (18.1, 0)
C_4: D + (14.3, 0)
C_3: D + (11.2, 0)
C_2: D + (8.2, 0)
C_1: D + (5.1, 0)
B_0: D - (0, 21)
C_0: D + (2, 0)
B_9: D - (0, 19)
B_8: D - (0, 17)
B_7: D - (0, 15)
B_6: D - (0, 13)
B_5: D - (0, 9.5)
B_4: D - (0, 7.5)
B_3: D - (0, 5.5)
B_2: D - (0, 3.5)
B_1: D - (0, 1.5)
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)))]) + "$"
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.25, 0)
P_3: P_0 + ((-1.5), 1)
P_2: P_1 + P_3 - P_0
poly1, g, h, l, m = Polygon(P_0 - (1.5, 0), P_1, P_2 + (1.5, 0), 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)
e = Segment(A + ((-0.7), 0.7), A + (33.5, 0.7))
f = Segment(A + ((-0.7), (-22.5)), A + (33.5, (-22.5)))
a = Segment(A - (0.7, 1.2), A + (33.5, (-1.2)))
c = Segment(A + ((-0.7), 0.7), A + ((-0.7), (-22.5)))
d = Segment(A + (33.5, 0.7), A + (33.5, (-22.5)))
b = Segment(A + (1.4, 0.7), A - ((-1.4), 22.5))
u = Vector(D, (x(D), 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(D), (-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)))