MathPlotAI Logo MathPlotAI

Probability: Selecting Balls

Probability: Selecting Balls
Loading the math board and drawing, please wait…
2020-07-12 05:26
Coordinate GeometryProbability & StatisticsGeometric Construction
This example demonstrates probability and statistics concepts through the selection of balls. Core math concepts include probability calculation, random events, and set operations. GeoGebra commands and objects used in construction are Sequence, Shuffle, If, Point, and Segment, visualizing the ball selection process to enhance understanding of probability models. Suitable for high school probability statistics teaching and self-learning purposes.

GeoGebra Commands & Parameters

  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, 2, 3, 4, 5}
  6. Shuffle(RedList) → RedRandomList, {10, 8, 11, 7, 13, 12, 9}
  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