反查卡方分佈
程式編寫日期: 2010年2月16日
注意: e 是按shift ex。
程式 (153 bytes)
Pol( . 5 , 0: MM-: ?→A: ?→B: Fix 0: Lbl 0: A→D:
(1+Y)-1 + X - 2X(B>M: Ans-1 - 1→Y: X÷2→X:
e - . 5Y→C: D÷2: Rnd: D - 2Ans => C√( 2Y÷π→C:
D→M: Lbl 1: M≧2 => YC÷M→C => 2M- => Goto 1:
C→M: Lbl 2: C> E - 6M => D + 2→D => CY÷D→C
=> CM+ => Goto 2: X > E - 6 => Goto 0: Norm 1: Y
例題1: 若卡方分佈 (chi-square distribution)的自由度為2及P(0≦t≦x)=0.77687，求x。
Prog 1 再按 2 EXE 0.77687EXE (顯示x為3)
註: 計算時間大約64秒
例題2: 若卡方分佈 (chi-square distribution)的自由度為5及P(0≦t≦x)=0.30001，求x。
Prog 1 再按 5 EXE 0.30001 EXE (顯示x為3)
註: 計算時間大約64秒