Confidence Interval Dynamic Demonstration (Normal & Binomial)

Confidence Interval Dynamic Demonstration (Normal & Binomial)
Loading the math board and drawing, please wait…
2019-09-14 14:43
① This GeoGebra example interactively demonstrates the construction and visualization of confidence intervals in statistics, allowing users to adjust parameters such as sample size, mean, and standard deviation to observe how the interval coverage changes under the normal distribution curve. ② Core mathematical concepts include confidence intervals, normal distribution, binomial distribution, standard error, significance level α, and the central limit theorem, focusing on interval estimation in probability and statistics. ③ Construction highlights: uses commands like If, Textfield, SelectedElement to create input controls; Normal and InverseNormal for critical values; Integral and IntegralBetween for probability areas; Segment, Sequence, Vector for drawing intervals and sampling distributions; Translate for shifting graphics; and multiple text objects (teksti1~teksti12) to dynamically display numerical results. ④ Suitable for high school to university-level statistics teaching, especially for classroom demonstrations or student exploration of the relationship between confidence level, margin of error, and sample size.

GeoGebra Commands & Parameters

  1. If(lg(sx) > 0, 1, ceil((-lg(sx)))) → pyor
  2. Textfield(σ) → tekstikenttä1
  3. Textfield(ka) → tekstikenttä2
  4. Textfield(n) → tekstikenttä3
  5. SelectedElement(p) → val
  6. Normal(0, 1, x, false) → f
  7. InverseNormal(0, 1, val + α / 2) → a
  8. Integral(f, (-a), a) → b
  9. Segment(B, A) → i
  10. Sequence(round(ka + (k * sx), pyor), k, -5, 5) → te
  11. Vector(C, D) → u
  12. IntegralBetween(g, h, ala, yla) → c
  13. IntegralBetween(g, h, (-a), a) → e
  14. Translate(B, (0, -1.7)) → B'
  15. Translate(A, (0, -1.7)) → A'
  16. Segment(B', A') → i'
  17. Sequence(Segment[((Element[te, k] - ka) / sx, -1.6), ((Element[te, k] - ka) / sx, -1.62)], k, 1, Length[te]) → l2
  18. Sequence(Text[Element[te, k], (k - 6.15, -1.7)], k, 1, 11) → l1