算術幾何平均

程式可以計算兩個正實數的算術幾何平均 (Arithmetic-Geometric Mean)。

參考公式:

程式編寫日期: 2006年7月24日

程式 (37 bytes，使用記憶A及B)

?→A: ?→B: Lbl 0: √AB→B:

2^-1( A + B²÷A→A:

A≠B => Goto 0: A

例題: 計算兩數 2及3的算術幾何平均值。

按 Prog 1 再按 2 EXE 3 EXE (顯示答案為2.474680436)

返回 fx-3650P及SC185程式集