MathPlotAI Logo MathPlotAI

Discrete Probability Distributions: Mean & Standard Deviation

Discrete Probability Distributions: Mean & Standard Deviation
Loading the math board and drawing, please wait…
2017-03-18 01:08
Probability & Statistics
This example demonstrates the mean and standard deviation of discrete probability distributions. Key mathematical concepts include probability distributions, means, and standard deviations. Using GeoGebra commands such as Element, Length, and Sequence, the example constructs a discrete probability distribution. Suitable for high school math education and students learning probability and statistics.

GeoGebra Commands & Parameters

  1. Element(XSqSq, DtSt) → XSq0
  2. Length(XSq0) → Cls
  3. Element(RtSq, DtSt) → Rt
  4. Element(GnSq, Nmbr2) → Gn
  5. Element(FrSqSq, DtSt) → FrSq0
  6. Sequence((Mod[Nmbr2 + (Gn * k), 10] * Rt), k, 1, Cls) → ErrSq, {50, 20, 90, 60, 30}
  7. Sequence(Element[FrSq0, k] + Element[ErrSq, k], k, 1, Cls) → FrSq, {60, 40, 130, 80, 40}
  8. Sum(FrSq) → FrTt
  9. Sequence(round((Element[FrSq, k] * 100 / FrTt)) / 100, k, 1, Cls - 1) → PrSq1, {0.17, 0.11, 0.37, 0.23}
  10. Append(PrSq1, LstPrb) → PXSq
  11. Sum(Sequence[(Element[XSq0, k] * Element[PXSq, k]), k, 1, Cls]) → PrMn1
  12. If(PrMn2 ≟ 1, "base", "bases") → BsTx
  13. Sequence(Mod[5 + (k * 11), 19], k, 1, 30) → OpSq
  14. Element(OpSq, Nmbr2 + 1) → Opt
  15. Mod(Opt, 5) → Rslt
  16. Sum(PrSq1) → PrSm1
  17. If(PrSm1 ≠ 1, Sz1 + 1, Sz1) → Sz2
  18. If(Rslt ≤ 1, 91, If[Rslt ≟ 2, 97, 107]) → MdNm
  19. Segment(TbLT, TbLB) → tblf
  20. Segment(TbLT, TbRT) → tbtp
  21. Segment(TbLB, TbRB) → tbbt
  22. Segment(TbMB, TbMT) → tbdl
  23. Segment(TbLM, TbRM) → tbhm
  24. Sum(Sequence[(Element[XSq0, k]^(2) * Element[PXSq, k]), k, 1, Cls]) → SmXsqPX
  25. Sum(PXSq) → PrSm2
  26. Sequence(Segment[(TbLf + LCW + (k * TbCW), TbTp - (2 * TbCH)), (TbLf + LCW + (k * TbCW), TbTp)], k, 1, Cls) → tbvlsq
  27. Sequence(Text[Element[XSq0, k], (TbLf + 0.15 + (TbCW * k), TbTp - TbCH + 0.1)], k, 1, Cls) → XSqTx
  28. Sequence(Text[Element[PXSq, k], (TbLf + 0.1 + (TbCW * k), TbTp - (2 * TbCH) + 0.1)], k, 1, Cls) → PXSqTx
  29. Element(StSq, DtSt) → Strt
  30. Element(AnBSq, DtSt) → AnB
  31. Element(PDSq, DtSt) → PD0