隨機號碼表
Author: 藍邦偉  老師

$第%v行$

$第%v列$

更換主題

$ 隨機亂數表 $

list3: {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30}
d = 0 (slider from 0 to 1800, step n)
d_1 = NaN (slider from 1 to 30, step 1)
A = (0, 7)
k = Element(list3, 1 + Mod[d, 30])
D: A + (0, -6.7)
n_1 = NaN (slider from 1 to 4, step 1)
r = 0.1 (slider from 0 to 1, step 0.1)
list_1 = Sequence(Random[0, 9] + r * 0, k, 1, 1200)
B: A + (10, 0)
C: B + D - A
a_1 = Segment(A, B)
a_2 = Segment(C, B)
a_3 = Segment(C, D)
a_4 = Segment(A, D)
A_1: 1 / 6 * B + 5 / 6 * A
A_2: 2 / 6 * B + 4 / 6 * A
A_3: 3 / 6 * B + 3 / 6 * A
A_4: 4 / 6 * B + 2 / 6 * A
A_5: 5 / 6 * B + 1 / 6 * A
D_1: (x(A_1), y(D))
D_2: (x(A_2), y(D))
D_3: (x(A_3), y(D))
D_4: (x(A_4), y(D))
D_5: (x(A_5), y(D))
a_5 = Segment(A_1, D_1)
a_6 = Segment(A_2, D_2)
a_7 = Segment(A_3, D_3)
a_8 = Segment(A_4, D_4)
a_9 = Segment(A_5, D_5)
B_1: 1 / 4 * A + 3 / 4 * D
B_2: 2 / 4 * A + 2 / 4 * D
B_3: 3 / 4 * A + 1 / 4 * D
C_1: (x(B), y(B_1))
C_2: (x(B), y(B_2))
C_3: (x(B), y(B_3))
a_{10} = Segment(B_1, C_1)
a_{11} = Segment(B_2, C_2)
a_{12} = Segment(B_3, C_3)
list_2 = Sequence(Text[Element[list_1, i], A + (Mod[i - 1, 30] / 3 + 0.35, (-floor((i - 1) / 30)) / 3) - 0.25], i, 1, 600)
Remark: "$從第" + (LaTeX[k]) + "列第" + (LaTeX[d_1]) + "行$
$開始選取" + (LaTeX[n_1]) + "位數 $"
n = 2 (slider from 1 to 4, step 1)
P: A + (If[d ≟ 0, 0.33333, 1 / 3 * k] - 1 / 3, -Mod[floor(d / 30), 20] * 0.335)
Q: A + (If[k ≟ 30, 0, 1 / 3 * k], If[Mod[d, 30] ≟ 29, 0.335 * (-Mod[floor(d / 30), 20] - 1), 0.335 * (-Mod[floor(d / 30), 20])])
R: A + (If[k ≟ 29, 0, If[k ≟ 30, 0.33333, k / 3 + 1 / 3]], If[k ≥ 29, 0.335 * ((-Mod[d - Mod[d, 30], 600]) / 30 - 1), 0.335 * (-Mod[d - Mod[d, 30], 600]) / 30])
S: A + (If[Mod[d, 30] ≟ 27 / 3, -0.66667, If[Mod[d, 30] ≟ 28 / 3, -0.33333, If[Mod[d, 30] ≟ 29, 0, k / 3]]] + 2 / 3, If[k ≥ 28, 0.335 * ((-Mod[d - Mod[d, 30], 600]) / 30 - 1), 0.335 * (-Mod[d - Mod[d, 30], 600]) / 30])
poly_1, p, a, b, c = Polygon(P, P + (1 / 3, 0), P + (1 / 3, -0.335), P - (0, 0.335))
poly_2, q, e, f, g = Polygon(Q, Q + (1 / 3, 0), Q + (1 / 3, -0.335), Q - (0, 0.335))
poly_3, r_1, h, i, j = Polygon(R, R + (1 / 3, 0), R + (1 / 3, -0.335), R - (0, 0.335))
poly_4, s, l, m, t = Polygon(S, S + (1 / 3, 0), S + (1 / 3, -0.335), S - (0, 0.335))
poly_{21}, a_{13}, b_1, c_1, e_1 = Polygon(A, A + (1 / 3, 0), A + (1 / 3, -0.335), A - (0, 0.335))
poly_{22}, f_1, g_1, h_1, i_1 = Polygon(A + (1 / 3, 0), A + (2 / 3, 0), A + (2 / 3, -0.335), A + (1 / 3, -0.335))
poly_{23}, j_1, k_1, l_1, m_1 = Polygon(A + (2 / 3, 0), A + (1, 0), A + (1, -0.335), A + (2 / 3, -0.335))