﻿功能:求2个数的算术-几何平均数(Arithmetic - Geometric Mean)

格式:
MeanArithmeticGeometric(x,y)
MeanArithmeticGeometric(x,y,Error)
MeanArithmeticGeometric(x,y,Error,Loop)

说明:
x、y为输入的复数变量。Error是误差控制变量，默认为1E-10。Loop是循环的最大次数，默认为1000。

原理:对与x、y,如果令x[1]=(x+y)/2，y[1]=(x*y)^0.5，重复此操作，即x[i+1]=(x[i]+y[i])/2,y[i+1]=(x[i]*y[i])^0.5，最终x[i]与y[i]将趋近于一个数，这个数就是关于x、y的算术-几何平均数。

参考:{算术-几何平均数<http://zh.wikipedia.org/wiki/%E7%AE%97%E6%9C%AF-%E5%87%A0%E4%BD%95%E5%B9%B3%E5%9D%87%E6%95%B0>}

例子:

MeanArithmeticGeometric(i,4.5+6i)//回车后得到如下结果
ans = 1.50779536557922 + 3.04699481999793i