MathPlotAI Logo MathPlotAI

Probability of Drawing Balls from a Bag

Probability of Drawing Balls from a Bag
Loading the math board and drawing, please wait…
2016-05-06 01:15
FunctionSequenceProbability & Statistics
This example demonstrates the probability of drawing balls of different colors from a bag. The core mathematical concepts involved are probability and statistics. Using GeoGebra commands such as Sequence, Shuffle, and If, the process of randomly drawing balls is constructed. Suitable for students at the junior high school level and above to learn about probability and statistics.

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. 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