求数学公式AVEDEV 平均绝对偏差 用易语言怎么计算

seven7c

AVEDEV 平均绝对偏差  AVEDEV(X,N)
什么叫平均绝对偏差？？  和绝对平均差是一个意思吗？


下面是在网上找到绝对平均差  
绝对平均偏差= 1/n * (求和：|xi-x均|，i=1,2,3...n)

比如说三个数，59，60，61，平均值为60
绝对平均偏差就是 1/3 * ( |59-60| + |60-60|+ |61-60|)=0.667=0.7（考虑有效数字）


帮忙写个子程序。
谢谢

kdabiao

  

子程序名	返回值类型	公开	备 注
Debug

调试输出 (AVEDEV ({ 80, 90, 78, 56, 65 }))

子程序名	返回值类型	公开	备 注
AVEDEV	双精度小数型
参数名	类 型	参考	可空	数组	备 注
p_Numbers	双精度小数型

变量名	类 型	静态	数组	备 注
l_Ret	双精度小数型
l_Mean	双精度小数型
l_Average	双精度小数型

l_Mean ＝ GetlMean (p_Numbers)
l_Average ＝ GetAverage (p_Numbers, l_Mean)
l_Ret ＝ l_Average ÷ 取数组成员数 (p_Numbers)
返回 (l_Ret)

子程序名	返回值类型	公开	备 注
GetlMean	双精度小数型
参数名	类 型	参考	可空	数组	备 注
p_Numbers	双精度小数型

变量名	类 型	静态	数组	备 注
l_SUM	双精度小数型
i	整数型

计次循环首 (取数组成员数 (p_Numbers), i)
l_SUM ＝ p_Numbers [i] ＋ l_SUM
计次循环尾 ()
返回 (l_SUM ÷ 取数组成员数 (p_Numbers))

子程序名	返回值类型	公开	备 注
GetAverage	双精度小数型
参数名	类 型	参考	可空	数组	备 注
p_Numbers	双精度小数型
p_Mean	双精度小数型

变量名	类 型	静态	数组	备 注
i	整数型
l_SUM	双精度小数型

计次循环首 (取数组成员数 (p_Numbers), i)
l_SUM ＝ l_SUM ＋ 取绝对值 (p_Numbers [i] － p_Mean)
计次循环尾 ()
返回 (l_SUM)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 Debug<br /> <br /> 调试输出 (AVEDEV ({ 80, 90, 78, 56, 65 }))<br /> <br /> .子程序 AVEDEV, 双精度小数型<br /> .参数 p_Numbers, 双精度小数型, 数组<br /> .局部变量 l_Ret, 双精度小数型<br /> .局部变量 l_Mean, 双精度小数型<br /> .局部变量 l_Average, 双精度小数型<br /> <br /> l_Mean ＝ GetlMean (p_Numbers)<br /> l_Average ＝ GetAverage (p_Numbers, l_Mean)<br /> l_Ret ＝ l_Average ÷ 取数组成员数 (p_Numbers)<br /> 返回 (l_Ret)<br /> <br /> .子程序 GetlMean, 双精度小数型<br /> .参数 p_Numbers, 双精度小数型, 数组<br /> .局部变量 l_SUM, 双精度小数型<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取数组成员数 (p_Numbers), i)<br />     l_SUM ＝ p_Numbers <i> ＋ l_SUM<br /> .计次循环尾 ()<br /> 返回 (l_SUM ÷ 取数组成员数 (p_Numbers))<br /> <br /> .子程序 GetAverage, 双精度小数型<br /> .参数 p_Numbers, 双精度小数型, 数组<br /> .参数 p_Mean, 双精度小数型<br /> .局部变量 i, 整数型<br /> .局部变量 l_SUM, 双精度小数型<br /> <br /> .计次循环首 (取数组成员数 (p_Numbers), i)<br />     l_SUM ＝ l_SUM ＋ 取绝对值 (p_Numbers <i> － p_Mean)<br /> .计次循环尾 ()<br /> 返回 (l_SUM)