比例假设检验问题

GeoGebra 命令及参数

1. Element(NSq, Op3) → N
2. Element(XSq, Op3) → X
3. Sequence(Mod[3 + (11 * k), 36] + 1, k, 1, 36) → OpSq2
4. Element(OpSq2, Seed) → Op2
5. If(Mod[Op2, 6] < 3, -1, 1) → RndDir
6. Sequence(Mod[6 + (17 * k), 36] + 1, k, 1, 36) → OpSq0
7. Element(OpSq0, Seed) → Op0
8. Element(CnfSq, Mod[Op0, 4] + 1) → Cfd
9. Sequence(Mod[4 + (13 * k), 36] + 1, k, 1, 36) → OpSq1
10. Element(OpSq1, Seed) → Op1
11. Mod(Op1, 6) → PrbOpt
12. If(PrbOpt < 2, -1, If[PrbOpt > 3, 1, 0]) → Type
13. If(Type ≟ 0, (-InverseNormal[0, 1, α / 2]), (-InverseNormal[0, 1, α])) → CV
14. If(Phat < P0, -1, If[Phat > P0, 1, 0]) → DtDr
15. If(Mod[Op1, 2] ≟ 0, 1, -1) → EON
16. If(DtDr ≟ -1, If[EON ≟ 1, 0, 1], If[EON ≟ 1, 0, -1]) → IEDr
17. If(IEDr ≟ 1, "is less than ", If[IEDr ≟ -1, "is more than ", "equals "]) → IETx
18. If(DtDr ≟ -1, If[EON ≟ 1, " equals ", "is less than "], If[EON ≟ 1, " equals ", "is more than "]) → TypTx2
19. If(Phat > 0.5, Phat, 1 - Phat) → PHHi
20. If(Phat > 0.5, 1 - Phat, Phat) → PHLo
21. If(PrbOpt < 3, -1, 1) → ClcDr
22. Normal(0, 1, TstSt) → PVLT0
23. Min(PVLT0, PVRT0) → PVhf
24. If(PVLT0 < 1.0E-4, 1.0E-4, PVLT0) → PVLT1
25. If(PVTT0 < 1.0E-4, " < ", " = ") → PVTTsg
26. If(PVTT0 < 1.0E-4, 1.0E-4, PVTT0) → PVTT1
27. If(PVRT0 < 1.0E-4, 1.0E-4, PVRT0) → PVRT1
28. If(PVRT0 < 1.0E-4, " < ", " = ") → PVRTsg
29. If(PVLT0 < 1.0E-4, " < ", " = ") → PVLTsg
30. If(IEDr ≟ -1, " > ", If[IEDr ≟ 1, " < ", " ≠ "]) → DrSgnNll
31. If(IEDr ≟ -1, " ≤ ", If[IEDr ≟ 1, " ≥ ", " = "]) → DrSgnAlt
32. If(IEDr ≟ -1, "right-tailed", If[IEDr ≟ 1, "left-tailed", "two-tailed"]) → TypTx1
33. If(Type ≟ -1, "≤ ", " ≥ ") → PVKSg
34. If(IEDr ≟ -1, PVRT1, If[IEDr ≟ 1, PVLT1, PVTT1]) → PV
35. If(PV < α, "<", "≥") → CmpIE
36. If(PV < α, "reject", "keep") → DCS
37. If(PV < α, "is", "is not") → OrNot
38. If(PV < 1.0E-4, "<", "=") → PVsg
39. Element(PSSq, Op3) → PS0
40. If(IEDr ≟ 1, "is less than ", If[IEDr ≟ -1, "is more than ", "does not equal "]) → ConIETx
41. If(IEDr ≟ 1, PVLTtx, If[IEDr ≟ -1, PVGTtx, PVTTtx]) → PVClc