积极 AI Logo 积极 AI

随机选球概率：洗牌与颜色组合的演示

随机选球概率：洗牌与颜色组合的演示
几何画板及绘图内容加载中，请稍等……
2021-01-15 10:06
圆数列概率统计几何作图
该范例演示在“从若干彩色球中随机抽取”这一情境下，如何用图形与交互按钮直观看到选中结果的概率分布与组合规律。核心数学概念包括概率（随机性与等可能性）、组合数（从集合中选择）、以及坐标/圆形图形的可视化表达。构造要点：利用 GeoGebra 的 Sequence 生成编号序列，Shuffle 对球的顺序进行随机洗牌；配合 If 根据条件决定某个编号是否被选中；用 Point、Segment 标记球体位置与连线/边界效果，并通过对象集合 BallBlueList01、BallRedList01 以及对应随机列表 BlueRandomList、RedRandomList 来完成颜色球的随机选择与统计。辅助对象如 SelectedColourNoList、SelectNoList、NoB、NoS 等用于记录总球数、选择数量与最终选中集合，同时用按钮按钮 button1 驱动过程更新。适合中学高年级到大学入门的概率统计课堂演示，也适用于教学中引导学生理解“随机实验—样本空间—结果统计”的思想。

GeoGebra 命令及参数

  1. Sequence(Circle[Element[Centre00, i], BallRadius], i, 2, NoB + 1) → BallBlueList01
  2. Sequence(Circle[Element[Centre00, i], BallRadius], i, NoB + 2, nb + 1) → BallRedList01
  3. Sequence(i, i, 2, NoB + 1) → BlueList
  4. Sequence(i, i, NoB + 2, nb + 1) → RedList
  5. Shuffle(BlueList) → BlueRandomList
  6. Shuffle(RedList) → RedRandomList
  7. Sequence(If[Element[SelectedColourNoList, i] ≟ 1, Element[BlueRandomList, i], Element[RedRandomList, i]], i, 1, NoS) → SelectNoList
  8. Sequence(Circle[Element[Centre001, i], BallRadiusSmall], i, 2, NoB + 1) → BallBlueList001
  9. Sequence(Circle[Element[Centre001, i], BallRadiusSmall], i, NoB + 2, nb + 1) → BallRedList001
  10. Sequence(Element[Centre00, Element[SelectNoList, i]], i, 1, NoS) → MoveStart
  11. If(a < 5, Element[MoveStart, 1], If[a > 15, C01, (FindCor(a, 5, 15, x(Element[MoveStart, 1]), x(C01)), FindCor(a, 5, 15, y(Element[MoveStart, 1]), y(C01)))]) → C01Move
  12. If(a < 25, Element[MoveStart, 2], If[a > 35, C02, (FindCor(a, 25, 35, x(Element[MoveStart, 2]), x(C02)), FindCor(a, 25, 35, y(Element[MoveStart, 2]), y(C02)))]) → C02Move
  13. If(a < 45, Element[MoveStart, 3], If[a > 55, C03, (FindCor(a, 45, 55, x(Element[MoveStart, 3]), x(C03)), FindCor(a, 45, 55, y(Element[MoveStart, 3]), y(C03)))]) → C03Move
  14. If(a < 65, Element[MoveStart, 4], If[a > 75, C04, (FindCor(a, 65, 75, x(Element[MoveStart, 4]), x(C04)), FindCor(a, 65, 75, y(Element[MoveStart, 4]), y(C04)))]) → C04Move
  15. Sequence(If[Element[SelectedColourNoList, i] ≟ 1, Circle[Element[MoveCentre, i], BallRadius]], i, 1, NoS) → BallBlueSelectedList
  16. Sequence(If[Element[SelectedColourNoList, i] ≟ 2, Circle[Element[MoveCentre, i], BallRadius]], i, 1, NoS) → BallRedSelectedList
  17. Sequence(Circle[Element[MoveStart, i], (Lfactor * BallRadius)], i, 1, NoS) → WhiteCircleList
  18. If(Ball01 ≟ 1, NoOfBlue00 - 1, NoOfBlue00) → NoOfBlue01
  19. If(Ball02 ≟ 1, NoOfBlue01 - 1, NoOfBlue01) → NoOfBlue02
  20. If(Ball03 ≟ 1, NoOfBlue02 - 1, NoOfBlue02) → NoOfBlue03
  21. If(Ball04 ≟ 1, NoOfBlue03 - 1, NoOfBlue03) → NoOfBlue04
  22. If(Ball01 ≟ 2, NoOfRed00 - 1, NoOfRed00) → NoOfRed01
  23. If(Ball02 ≟ 2, NoOfRed01 - 1, NoOfRed01) → NoOfRed02
  24. If(Ball03 ≟ 2, NoOfRed02 - 1, NoOfRed02) → NoOfRed03
  25. If(Ball04 ≟ 2, NoOfRed03 - 1, NoOfRed03) → NoOfRed04
  26. Sequence(If[Element[SelectedColourNoList, i] ≟ 1, Element[NoOfBlue, i], Element[NoOfRed, i]], i, 1, NoS + 1) → NoOfBallNumerator
  27. Point(d) → Z06
  28. Point(c) → Z05
  29. Segment(Z05, Y05) → m
  30. Segment(Z06, Y06) → k
  31. Point(d) → Z07
  32. Point(d) → Z08
  33. Point(d) → Z09
  34. Segment(Z07, Y07) → n
  35. Segment(Z08, Y08) → p
  36. Segment(Z09, Y09) → q

AI 绘图提示语参考

绘制一个概率实验的可视化图形：在一个圆形区域周围均匀排列若干蓝色和红色小球，通过随机洗牌选择其中几个球，并将选中的球移动到另一组圆形位置，同时用白色小圆标记被选中的球。图形包含两组圆环（大圆和小圆），分别表示初始位置和移动后的位置，并用线段连接相关点以展示选择过程。还需显示选中球的数量和颜色统计，以及一个控制动画的滑块，用于逐步展示球的移动和颜色变化。
以上提示语为根据原始绘图命令整理而来，仅供参考。