log table
Author: BlueLan

$x=%v$

開始查表

$ 對數表 $

$ x $

n = 12 (slider from 5 to 20, step 1)
d = 0.6 (slider from 0.1 to 1, step 0.1)
A = (4.4482386750803675, -2.252832273046169)
w = 1.5 (slider from 1 to 2, step 0.1)
a = 4 (slider from 1 to 9, step 1)
b = 5 (slider from 0 to 9, step 1)
c = 6 (slider from 0 to 9, step 1)
list2 = Sequence(A + (i * w, 0), i, 1, 10)
k = 4.2 (slider from 1 to 9, step 0.1)
B: A + (0, -(n + 1) * d)
C: A + (11 * w, 0)
C' = Translate(C, Vector[A, B])
P: A + ((c + 1) * w, -(10 * (a - k) + b + 1) * d)
Poly1, j, l, m, p = Polygon(P + (-0.4 * w, -0.3 * d), P + (-0.4 * w, 0.5 * d), P + (0.4 * w, 0.5 * d), P + (0.4 * w, -0.3 * d))
list3 = Sequence(Text["" + (i - 1), A + (i * w - 0.1, 0.2)], i, 1, 10)
list4 = Sequence(A + (0, -(i - 10 * k + 1) * d), i, 10 * k, Min[10 * k + n - 1, 99])
list5 = Sequence(Text[10 * k + i - 1, A + (-0.5 * w, -i * d - 0.1)], i, 1, Min[100 - 10 * k, n])
q = Segment(P + (0, 0.5 * d), A + (w * (c + 1), 0))
o = true
list1 = Sequence(Sequence[Text[If[round(10000 * lg(0.1 * i + 0.01 * (j - 1))) < 10, "000" + (round(10000 * lg(0.1 * i + 0.01 * (j - 1)))), If[round(10000 * lg(0.1 * i + 0.01 * (j - 1))) < 100, "00" + (round(10000 * lg(0.1 * i + 0.01 * (j - 1)))), If[round(10000 * lg(0.1 * i + 0.01 * (j - 1))) < 1000, "0" + (round(10000 * lg(0.1 * i + 0.01 * (j - 1)))), "" + (round(10000 * lg(0.1 * i + 0.01 * (j - 1))))]]], A + (j * w - 0.43, -(i - 10 * k + 1) * d - 0.1)], i, 10 * k, Min[10 * k + n - 1, 99]], j, 1, 10)
e = Segment(P + (-0.4 * w, 0), A + (0, -d * (10 * a + b + 1 - 10 * k)))
f = Segment(A + (0, d), B)
i = Segment(C', C + (0, d))
g = Segment(A + (-0.7 * w, 0), C)
r = Segment(A + (-0.7 * w, d), C + (0, d))
h = Segment(B + (-0.7 * w, 0), C')
s = Segment(A + (-0.7 * w, d), B + (-0.7 * w, 0))
n_0: lg(a + o * 0.1 * b + 0.01 * c)
text1: "$\;\;\;\;\; x=" + (LaTeX[a]) + "." + (LaTeX[b]) + "" + (LaTeX[c]) + " $
$⇒log(" + (LaTeX[a]) + "." + (LaTeX[b]) + "" + (LaTeX[c]) + ")=" + (LaTeX[lg(a + 0.1 * b + 0.01 * c)]) + "$
$⇒10^{" + (LaTeX[lg(a + 0.1 * b + 0.01 * c)]) + "}=" + (LaTeX[a]) + "." + (LaTeX[b]) + "" + (LaTeX[c]) + "$"