F-分佈概率
程式編寫日期: 2008年7月9日
程式需要在 SD 模式下執行，因此在選擇新程式位置後，按 4 選用SD模式。
注意 : πr 是按 SHIFT EXP SHIFT Ans 2 ，藍色的英文字為統計模式中的變數(n 按 shift 1 3 ，x為平均x 按 shift 2 1)
程式 (343 bytes)
ClrStat: 0→M: ?→A: ?→B: ?→C: B + C - 4 ; B DT:
AB ÷ (AB + C→A: Lbl 0: Fix 0: Rnd( B÷2: Norm 1: B - 2Ans =>
Goto 1: 1→D: 1→X: C→Y: While x≧Y: DAY ÷ (Y - C + 2→D:
D + X→X: Y + 2→Y: WhileEnd: 1 - M - X cos( πrM ) (1-A) ^( C÷2◢
Lbl 1: If M=0: Then 1→M: C→B: n→C: 1 - A→A: Goto 0: IfEnd:
tan-1( √( A-1 - 1→A: Rec( 1 , A): 1→C: 1→D: 2→M: While B - 3≧M:
CX2M ÷ (M + 1→C: C + D→D: M + 2→M: WhileEnd: 2A÷πr +
2DXYπ -1(B>1→A: n=1 => A◢ 1→C: 1→D: B+1→M: While x≧M:
CY2M÷(M - B + 2→C: C + D→D: M+ 2→M: WhileEnd:
4DYπ -1X^( B→C: B=1 => A - C÷2◢ 2→M: While B - 1≧2M:
CM ÷ (M - . 5→C: M + 1→M: WhileEnd: A - C
例題1: 若 F 分佈 (F distribution)的自由度分別為1(分子)及2(分母)，求P(0≦F≦1.5)的概率。
Prog 1 再按 1.5 EXE 1 EXE 2 EXE (顯示概率為0.6547)
例題2: 若 F 分佈 (F distribution)的自由度分別為2(分子)及1(分母)，求P(0≦F≦1.5)的概率。
Prog 1 再按 1.5 EXE 2 EXE 1 EXE (顯示概率為0.5)
例題3: 若 F 分佈 (F distribution)的自由度分別為1(分子)及3(分母)，求P(0≦F≦1.5)的概率。
Prog 1 再按 1.5 EXE 1 EXE 3 EXE (顯示概率為0.6919)
例題4: 若 F 分佈 (F distribution)的自由度分別為3(分子)及5(分母)，求P(0≦F≦1.5)的概率。
Prog 1 再按 1.5 EXE 3 EXE 5 EXE (顯示概率為0.6778)
註: 顯示答案後，若程式未終止，請按 AC 終止程式。