|
|

30精币
自己用易语言写了个弯沉测试的软件 标准差和用计算机直接算出来的怎么不一样呢,是不是里面的公式弄错了。 求大神帮忙看看是不是易语言用公式的问题。。
[e]
.版本 2
.程序集 窗口程序集1
.程序集变量 a, 整数型
.程序集变量 数据综合, 双精度小数型, , "0"
.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.局部变量 临时数据, 双精度小数型
.局部变量 b, 整数型
.如果真 (键代码 = 13)
临时数据 = 到数值 (编辑框1.内容)
加入成员 (数据综合, 临时数据)
a = a + 1
标签_个数.标题 = 到文本 (a)
编辑框1.获取焦点 ()
编辑框1.内容 = “”
.如果真结束
.子程序 _按钮1_被单击
.局部变量 总数据, 双精度小数型
.局部变量 单个数据, 双精度小数型
.局部变量 b, 整数型
.局部变量 临时数据, 双精度小数型
.局部变量 平均数, 双精度小数型
.局部变量 标准差, 双精度小数型
.局部变量 方根结果, 双精度小数型
.局部变量 方差, 双精度小数型
.计次循环首 (a, b)
单个数据 = 数据综合
总数据 = 总数据 + 单个数据
.计次循环尾 ()
标签2.标题 = “弯沉值总和为:” + 到文本 (总数据)
标签3.标题 = “弯沉值平均数为:” + 到文本 (总数据 ÷ a)
平均数 = 总数据 ÷ a
.计次循环首 (a, b)
单个数据 = 数据综合
信息框 (到文本 (单个数据), 0, )
方根结果 = 求平方根 (取绝对值 (单个数据 - 平均数))
信息框 (到文本 (方根结果), 0, )
临时数据 = 临时数据 + 方根结果
信息框 (临时数据, 0, )
.计次循环尾 ()
信息框 (a, 0, )
方差 = 求平方根 (临时数据 ÷ a)
标准差 = 求平方根 (方差)
标签4.标题 = “弯沉值标准差为:” + 到文本 (标准差)
[/e]
这是公式 :
方差:如果有n个数据x1,x2,x3......xn,数据的平均数为x,
那么方差s^2=[(x1-x)^2+(x2-x)^2+......(xn-x)^2]/n
方差还有:
s^2=(x1^1+x2^2+..+xn^2)-nx^2)/n
标准差:方差的算术平方根
主要看看标准差的公式是不是有问题。。 |
回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。 友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。 快捷通道:申请荣誉值 →
|