Probability: Selecting Balls by Virginia Keith

Probability: Selecting Balls by Virginia Keith
Loading the math board and drawing, please wait…
2017-04-05 02:56
This example demonstrates probability calculations and visualization when randomly selecting balls from different colored sets. Core math concepts include probability, addition principles, definite integrals, and statistics. GeoGebra commands used are Sequence, Shuffle, If, Point, and Segment for constructing the model. Suitable for high school students learning probability & statistics and discrete mathematics, ideal for classroom demonstrations and interactive explorations.

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

AI Drawing Prompt Reference

Create a probability teaching diagram showing the process of randomly selecting balls from blue and red sets. Draw two groups of balls of different colors using circles of varying sizes. Shuffle the balls in each group randomly, then move the selected balls to designated positions based on the chosen color. Represent the selected balls with smaller circles and connect them with lines. Finally, display the number of remaining balls and use lines and points to draw statistical charts showing probability and statistics.
The prompt above was compiled from the original drawing commands and is for reference only.