$\Large转动\textcolor{red}{%v}次$

$\Large\textcolor{red}{%v}个区域$

$\Large\bf拖我$

$\Large转动速度:%v$

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

转动

结果为

复位

自动转动10次

转动

D: (-0.22, 0.22)
k = 0 (slider from 0 to 1, step 0.001)
d = Circle((-0.22, 0.22), 2.5)
m = 0 (slider from 0 to 1000, step 1)
O: (0, 0)
c = Circle(O, 3)
A0 = Point(c, 0)
B0 = If(m < 2, A0, (2.145633783544726, 2.0967249859987707))
n = 3 (slider from 3 to 20, step 1)
l1 = Sequence(k, k, 0, 1, 1 / n)
l2 = Sequence(RandomUniform[Element[l1, k] + 0.01, Element[l1, k + 1] - 0.01], k, 1, Length[l1] - 1)
B = Point(c, RandomElement[l2])
C = Rotate(B0, (k * (360° + Angle[B0, O, B])))
b = PathParameter(B)
C' = Rotate(Intersect[d, Segment[O, C]], ((360°) / n * If[m ≟ 0, 1 / 3, 0.39 < b < 0.89, 2 / 3, 1 / 3]), D)
A = Point(c)
v = 5 (slider from 5 to 20, step 1)
l3 = Sequence(Rotate[C, k], k, 0°, 360°, (360°) / n)
A1: {"红色", "绿色", "蓝色", "黄色", "黑色"}
A2: {"红色", "绿色", "蓝色", "黄色", "黑色"}
A3: {"红色", "绿色", "蓝色", "黄色", "黑色"}
A4: {"红色", "绿色", "蓝色", "黄色", "黑色"}
A5: {"红色", "绿色", "蓝色", "黄色", "黑色"}
A6: {"红色", "绿色", "蓝色", "黄色", "黑色"}
A7: {"红色", "绿色", "蓝色", "黄色", "黑色"}
A8: {"红色", "绿色", "蓝色", "黄色", "黑色"}
A9: {"红色", "绿色", "蓝色", "黄色", "黑色"}
A10: {"红色", "绿色", "蓝色", "黄色", "黑色"}
A11: {"红色", "绿色", "蓝色", "黄色", "黑色"}
A12: {"红色", "绿色", "蓝色", "黄色", "黑色"}
A13: {"红色", "绿色", "蓝色", "黄色", "黑色"}
A14: {"红色", "绿色", "蓝色", "黄色", "黑色"}
A15: {"红色", "绿色", "蓝色", "黄色", "黑色"}
A16: {"红色", "绿色", "蓝色", "黄色", "黑色"}
A17: {"红色", "绿色", "蓝色", "黄色", "黑色"}
A18: {"红色", "绿色", "蓝色", "黄色", "黑色"}
A19: {"红色", "绿色", "蓝色", "黄色", "黑色"}
A20: {"红色", "绿色", "蓝色", "黄色", "黑色"}
l4 = RemoveUndefined(Sequence[If[b + k / n < PathParameter[A] < b + (k + 1) / n ∨ b + k / n - 1 < PathParameter[A] < b + (k + 1) / n - 1, k + 1], k, 0, n - 1])
a = Element(l4, 1)
m0: {}
t1 = CountIf(x ≟ "红色", m0)
t2 = CountIf(x ≟ "绿色", m0)
t3 = CountIf(x ≟ "蓝色", m0)
t4 = CountIf(x ≟ "黄色", m0)
t5 = CountIf(x ≟ "黑色", m0)
m' = If(k ≟ 1, m, m - 1)
m1: {"颜色", "红色", "绿色", "蓝色", "黄色", "黑色"}
m2: {"频数", t1, t2, t3, t4, t5}
m3 = Append("频率", {t1, t2, t3, t4, t5} / m')
text = TableText(m1, m2, m3, "vc_|")
t = 1 (slider from 1 to 10, step 1)
l5 = Sequence(Rotate[C', k, D], k, 0°, 360°, (360°) / n)
l6 = Sequence(Text[k, Element[l5, k], true, true], k, 1, n)
u = Vector(A)
d1 = Sector(c, Element[l3, 1], Element[l3, 2])
d2 = Sector(c, Element[l3, 2], Element[l3, 3])
d3 = Sector(c, Element[l3, 3], Element[l3, 4])
E = (5.136819437873523, -3.496488742054496)
F = (7.986848187878786, -3.496488742054496)

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)