﻿功能:求2个数的几何-调和平均数(Geometry - Harmonic Mean)

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

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

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

参考:{几何-调和平均数<http://zh.wikipedia.org/wiki/%E5%87%A0%E4%BD%95-%E8%B0%83%E5%92%8C%E5%B9%B3%E5%9D%87%E6%95%B0>}

例子:

MeanGeometryHarmonic(6+5i,i-9)//回车后得到如下的结果
ans = 19.5087080366149 - 7.05002891013926i