$\Large 速度:%v$

$\Large 次数:%v$

掷骰子

自动掷20次

掷骰子

复位

l1: {Cube[(0, 0, 0), (2, 0, 0), (2, 2, 0)]}
p: z = -1
g = Line((1, 1, 1), yAxis)
f = Line((1, 1, 1), xAxis)
c2 = Zip(Circle[(a, b, 2), 0.2, zAxis], a, {1, 1}, b, {0.5, 1.5})
d2 = Rotate(c2, (-(90°)), g)
c3 = Zip(Circle[(a, b, 2), 0.2, zAxis], a, {0.5, 1, 1.5}, b, {1.5, 1, 0.5})
c4 = Zip(Circle[(a, b, 2), 0.2, zAxis], a, {0.5, 0.5, 1.5, 1.5}, b, {0.5, 1.5, 0.5, 1.5})
c5 = Zip(Circle[(a, b, 2), 0.2, zAxis], a, {0.5, 0.5, 1.5, 1.5, 1}, b, {0.5, 1.5, 0.5, 1.5, 1})
d1: {Circle[(1, 1, 2), 0.2, zAxis]}
d3 = Rotate(c3, (-(90°)), f)
d4 = Rotate(c4, 90°, f)
d5 = Rotate(c5, 90°, g)
d6 = Zip(Circle[(a, b, 0), 0.2, zAxis], a, {0.5, 0.5, 0.5, 1.5, 1.5, 1.5}, b, {0.4, 1, 1.6, 0.4, 1, 1.6})
k = 0 (slider from 0 to 1, step 0.01)
h = RandomElement(Sequence[Line[(j, 1, 1), zAxis], j, -1, 1, 0.1])
l2 = Remove(Sequence[j, j, (-(360°)), 360°, 90°], {0°})
a1 = RandomElement(l2)
a3 = RandomElement(Remove[Sequence[j, j, (-(360°)), 360°], {0°}])
a2 = RandomElement(l2)
k' = 0 (slider from 0 to 1, step 0.01)
e1 = Rotate(Rotate[Rotate[d1, ((sgn(a1) * 720°) * k') + (a1 * k), f], ((sgn(a2) * 720°) * k') + (a2 * k), g], ((sgn(a3) * 720°) * k') + (a3 * k), h)
e2 = Rotate(Rotate[Rotate[d2, ((sgn(a1) * 720°) * k') + (a1 * k), f], ((sgn(a2) * 720°) * k') + (a2 * k), g], ((sgn(a3) * 720°) * k') + (a3 * k), h)
e3 = Rotate(Rotate[Rotate[d3, ((sgn(a1) * 720°) * k') + (a1 * k), f], ((sgn(a2) * 720°) * k') + (a2 * k), g], ((sgn(a3) * 720°) * k') + (a3 * k), h)
e4 = Rotate(Rotate[Rotate[d4, ((sgn(a1) * 720°) * k') + (a1 * k), f], ((sgn(a2) * 720°) * k') + (a2 * k), g], ((sgn(a3) * 720°) * k') + (a3 * k), h)
e5 = Rotate(Rotate[Rotate[d5, ((sgn(a1) * 720°) * k') + (a1 * k), f], ((sgn(a2) * 720°) * k') + (a2 * k), g], ((sgn(a3) * 720°) * k') + (a3 * k), h)
e6 = Rotate(Rotate[Rotate[d6, ((sgn(a1) * 720°) * k') + (a1 * k), f], ((sgn(a2) * 720°) * k') + (a2 * k), g], ((sgn(a3) * 720°) * k') + (a3 * k), h)
l3 = Rotate(Rotate[Rotate[l1, ((sgn(a1) * 720°) * k') + (a1 * k), f], ((sgn(a2) * 720°) * k') + (a2 * k), g], ((sgn(a3) * 720°) * k') + (a3 * k), h)
v = 40 (slider from 40 to 80, step 5)
v' = 1 (slider from 1 to v, step 0.1)
n = 0 (slider from 0 to 1000, step 1)
f1 = Rotate(Rotate[Rotate[d1, (sgn(a1) * 720°) + a1, f], (sgn(a2) * 720°) + a2, g], (sgn(a3) * 720°) + a3, h)
f2 = Rotate(Rotate[Rotate[d2, (sgn(a1) * 720°) + a1, f], (sgn(a2) * 720°) + a2, g], (sgn(a3) * 720°) + a3, h)
f3 = Rotate(Rotate[Rotate[d3, (sgn(a1) * 720°) + a1, f], (sgn(a2) * 720°) + a2, g], (sgn(a3) * 720°) + a3, h)
f4 = Rotate(Rotate[Rotate[d4, (sgn(a1) * 720°) + a1, f], (sgn(a2) * 720°) + a2, g], (sgn(a3) * 720°) + a3, h)
f5 = Rotate(Rotate[Rotate[d5, (sgn(a1) * 720°) + a1, f], (sgn(a2) * 720°) + a2, g], (sgn(a3) * 720°) + a3, h)
f6 = Rotate(Rotate[Rotate[d6, (sgn(a1) * 720°) + a1, f], (sgn(a2) * 720°) + a2, g], (sgn(a3) * 720°) + a3, h)
l4 = Flatten({f1, f2, f3, f4, f5, f6})
a = CountIf(z(Center[P]) ≟ 2, P, l4)
m = 1 (slider from 1 to 20, step 1)
l5: {}
t1 = CountIf(x ≟ 1, l5)
t2 = CountIf(x ≟ 2, l5)
t3 = CountIf(x ≟ 3, l5)
t4 = CountIf(x ≟ 4, l5)
t5 = CountIf(x ≟ 5, l5)
t6 = CountIf(x ≟ 6, l5)
m1 = Append("点数", 1…6)
m2 = Append("频数", {t1, t2, t3, t4, t5, t6})
m3 = Append("频率", {t1, t2, t3, t4, t5, t6} / n)
text2 = TableText(m1, m2, m3, "vc_|")
b = Element(l5, Length[l5])
text1 = LaTeX("投掷点数:\textcolor{red}{" + b + "}")
A = (1.2520011031490086, 2.618979153464836)
B = (3.360440570852985, 2.618979153464836)

Tool: 坐标系
x最小、最大，y最小、最大，0.23
Input: m, n, q, p, a
Output: A, B, O, l1, l2, list3, list4, list5, list6, u, v

$\huge\textcolor{}{x}$

$\huge\textcolor{}{y}$

$\Large{O}$

u = Vector((m - 1, 0), (n + 1, 0))
l1 = Sequence(Segment[(k, 0), (k, a)], k, m, n)
A: (n + 1, 0)
list4 = Sequence(Text[k, Element[Sequence[(t - 0.15, 0), t, 1, n], k], true, true], k, 1, n)
list3 = Sequence(Text[k, Element[Sequence[(t - 0.5, 0), t, m, -1], k + abs(m) + 1], true, true], k, m, -1)
l2 = Sequence(Segment[(0, k), (a, k)], k, q, p)
list5 = Sequence(Text[k, Element[Sequence[(-0.9, t + 0.2), t, q, -1], k + abs(q) + 1], true, true], k, q, -1)
v = Vector((0, q - 1), (0, p + 1))
B: (0, p + 1)
list6 = Sequence(Text[k, Element[Sequence[(-0.6, t + 0.2), t, 1, p], k], true, true], k, 1, p)
O: B - (0, p + 1)