反查卡方分佈

反查卡方分佈

程式編寫日期: 2010年1月7日

注意: e^( 是按shift e^x。

程式 (145 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 - 2Rnd( D÷2 => C√( 2Y÷π→C: D→M:

While M≧2: YC÷M→C: 2M-: WhileEnd: C→M:

While C> E - 7M: D + 2→D: CY÷D→C:

CM+: WhlieEnd: X > E - 7 => 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)

註: 計算時間大約30秒

例題2: 若卡方分佈 (chi-square distribution)的自由度為5及P(0≦t≦x)=0.30001，求x。

Prog 1 再按 5 EXE 0.30001 EXE (顯示x為3)

註: 計算時間大約31秒