Casio50 » fx-3x50P » Programs 程式集 » Special Functions 特殊函數 »

Arithmetic-Geometric Mean

本式求二正實數之 Arithmetic-Geometric Mean (AGM).

<COMP>
? → A : ? → B :
Lbl 1 : . 5 ( A + B → A : √ ( 2 A B – B ² → B :
A ÷ B ≠ 1 => Goto 1 : A
41 Bytes

操作方法

一般操作 例子
求 AGM(a,b) 求 AGM(1,2)
啟動程式 按 Prog 1
輸入資料
a EXE b EXE 		1 EXE 2 EXE
顯示答案
AGM 		1.456791031

記憶體

A AGM
B AGM
C  
D
X
Y
M

其他資料

Arithmetic-Geometric Mean 的定義:

a_n+1 = (a_n + b_n)/2, a0=a; b_n+1 = sqrt(a_n b_n), b_0 = b; AGM(a,b) = lim(a_k, k->inf)

1
Hosted by www.Geocities.ws