誤差函數

更新日期: 2011年12月29日

程式速度很快,但準確度較低(誤差少於4×10-4相對準確度)。

注意:  e^( 是按 SHIFT ex  

程式 (38 bytes,使用記憶A)

8887 ÷ 63473: ?→A:

√( 1 - e^( -A2 (4÷π + Ans A2) ÷ (Ans A2 + 1

 

例題: 計算誤差函數 erf(0.2)的值。

按 Prog 1 再按 0.2 EXE (顯示答案0.2227)

 

 

 

附錄程式 (由網友 Skwai 提供及經網友roviury 改良)

附錄程式準確度很高,但計算時間較長。

程式一(54 bytes,比程式二快很多)

?→X: MM-: X→Y: While Ans-Y≠AnsM+:

Ans→D:-YX2( 2M - 1) ÷ (2M2 + M→Y:

D+Y: WhileEnd: 2Ans÷√(π

 

程式二需要在 SD 模式下執行,因此在選擇新程式位置後,按 4 選用SD Lin模式。

注意: 藍色的英文字為統計模式中的變數(Σx 按 Shift 1 2,n 按 Shift 1 3)。

程式二(42 bytes)

?→X: ClrStat: X DT: While Σx-Ans≠Σx:

- AnsX2( 2n - 1) ÷ ( 2n2+n DT: WhileEnd: 2Σx÷√(π

 

ClrStat: 0 DT: ?→A: 1: While Σx - Ans≠Σx:

2Σy+1: 2(-1)^(Σy)A^(Ans)÷(AnsΣy! √(π , 1 DT:

WhileEnd: Σx→A

 

返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集