方差计算

冷战 · 发表于 2014-6-7 20:19:52

刚刚在软件分享那里发了下，，http://125.confly.eu.org/thread-13721777-1-1.html 这是源码。。由于软件没什么技术含量，就分享了，如果是土豪，就给点金币我把。。。

冷战 · 发表于 2014-6-7 20:21:35

本帖最后由冷战于 2014-6-7 20:22 编辑

新建 WinRAR 压缩文件.rar (3.51 KB, 下载次数: 2)

我去。好吧。不会搞怎么分享给你们下载。不需要金币。。那位教下我

冷战 · 发表于 2014-6-7 20:24:04

窗口程序集名	保留	保留	备注
窗口程序集1

子程序名	返回值类型	公开	备注
_按钮1_被单击

变量名	类型	静态	数组	备注
数据列表	文本型		0
a	整数型
和	小数型
b	整数型
平均数	小数型
k	小数型
中位数	小数型
k2	整数型
rrrr	小数型		0
yu	整数型
众数	小数型		0
uio	整数型
众数显示	文本型
op	小数型		0
q	整数型
q1	整数型
q2	整数型
总和1	小数型
S2	小数型

l结果＝ “”

如果真 (数据.内容＝ “”)
信息框 (“请输入数据!”, 0, )
返回 ()
数据列表＝分割文本 (数据.内容, “,”, )
a ＝取数组成员数 (数据列表)
重定义数组 (数据列表, 真, a)
' 平均数---------------------------------------------------------------------------------------------------
l结果＝ l结果＋ “数据个数:” ＋到文本 (a) ＋ #换行符
和＝ 0

计次循环首 (a, b)
和＝和＋到数值 (数据列表 [b])

计次循环尾 ()
平均数＝和 ÷ a
' 中位数---------------------------------------------------------------------------------------------------
l结果＝ l结果＋ “平均数=” ＋到文本 (平均数) ＋ #换行符
k ＝四舍五入 (a ÷ 2, )
重定义数组 (rrrr, 假, 取数组成员数 (数据列表))

计次循环首 (取数组成员数 (数据列表), yu)
rrrr [yu] ＝到数值 (数据列表 [yu])

计次循环尾 ()
数组排序 (rrrr, 真)

判断 (k × 2 ＝ a)
中位数＝ (到数值 (rrrr [k]) ＋到数值 (rrrr [k ＋ 1])) ÷ 2

k2 ＝ (a ＋ 1) ÷ 2
中位数＝到数值 (rrrr [k2])
l结果＝ l结果＋ “中位数=” ＋到文本 (中位数) ＋ #换行符
' 众数-----------------------------------------------------------------------------------------------------

判断 (a ＝ 1)
众数显示＝数据.内容
l结果＝ l结果＋ “众数=” ＋众数显示＋ #换行符

求众数 (数据列表, 众数)
重定义数组 (众数, 真, 取数组成员数 (众数))

计次循环首 (取数组成员数 (众数), uio)
众数显示＝众数显示＋到文本 (众数 [uio]) ＋ “；”

计次循环尾 ()
l结果＝ l结果＋ “众数=” ＋众数显示＋ #换行符
' 方差-----------------------------------------------------------------------------------------------------
重定义数组 (op, 假, 取数组成员数 (数据列表))

计次循环首 (取数组成员数 (op), q)
op [q] ＝到数值 (数据列表 [q])

计次循环尾 ()

计次循环首 (取数组成员数 (op), q1)
op [q1] ＝求次方 (op [q1] －平均数, 2)

计次循环尾 ()

计次循环首 (取数组成员数 (op), q2)
总和1 ＝总和1 ＋ op [q2]

计次循环尾 ()
S2 ＝总和1 ÷ 取数组成员数 (op)
l结果＝ l结果＋ “方差=” ＋到文本 (S2)
' 输出结果-------------------------------------------------------------------------------------------------
结果.内容＝ l结果

子程序名	返回值类型	公开	备注
求众数
参数名	类型	参考	可空	数组	备注
文本	文本型
众数	小数型				返回值

变量名	类型	静态	数组	备注
r	整数型
数字	小数型		0
t	整数型
p	小数型		0
y	整数型
pp3	小数型		0
r2	整数型
众数1	小数型		0
o	整数型

重定义数组 (数字, 假, 取数组成员数 (文本))

计次循环首 (取数组成员数 (文本), r)
数字 [r] ＝到数值 (文本 [r])

计次循环尾 ()
数组排序 (数字, 真) ' 排列
重定义数组 (p, 假, 取数组成员数 (数字))

计次循环首 (取数组成员数 (数字), y)
p [y] ＝ 1

计次循环尾 () ' 初始化数字所对应的个数
t ＝ t ＋ 1

计次循环首 (取数组成员数 (数字), )

如果真 (数字 [t] ＝数字 [t ＋ 1])
p [t] ＝ p [t] ＋ 1
删除成员 (数字, t, 1)
t ＝ t － 1

如果真 (t ＋ 1 ≥ 取数组成员数 (数字))
跳出循环 ()
t ＝ t ＋ 1

计次循环尾 () ' 写入个数
重定义数组 (数字, 真, 取数组成员数 (数字))
重定义数组 (p, 真, 取数组成员数 (数字))
重定义数组 (pp3, 假, 取数组成员数 (p))
pp3 ＝ p
数组排序 (pp3, 假)
o ＝ 1

计次循环首 (取数组成员数 (p), r2)

如果真 (p [r2] ＝ pp3 [1])
重定义数组 (众数1, 真, o)
众数1 [o] ＝数字 [r2]
o ＝ o ＋ 1

计次循环尾 ()
众数＝众数1

子程序名	返回值类型	公开	备注
_按钮2_被单击

纪录＝纪录＋结果.内容＋ #换行符

子程序名	返回值类型	公开	备注
_按钮3_被单击

纪录＝ “”

子程序名	返回值类型	公开	备注
_按钮4_被单击

结果.内容＝纪录[/b]
[b].版本 2[/b]
[b].全局变量 l结果, 文本型, 公开

全局变量名	类型	数组	公开	备注
tt	文本型		√
t2	文本型		√
纪录	文本型		√

.版本 2<br />
<br />
.程序集 窗口程序集1<br />
<br />
.子程序 _按钮1_被单击<br />
.局部变量 数据列表, 文本型, , "0"<br />
.局部变量 a, 整数型<br />
.局部变量 和, 小数型<br />
.局部变量 b, 整数型<br />
.局部变量 平均数, 小数型<br />
.局部变量 k, 小数型<br />
.局部变量 中位数, 小数型<br />
.局部变量 k2, 整数型<br />
.局部变量 rrrr, 小数型, , "0"<br />
.局部变量 yu, 整数型<br />
.局部变量 众数, 小数型, , "0"<br />
.局部变量 uio, 整数型<br />
.局部变量 众数显示, 文本型<br />
.局部变量 op, 小数型, , "0"<br />
.局部变量 q, 整数型<br />
.局部变量 q1, 整数型<br />
.局部变量 q2, 整数型<br />
.局部变量 总和1, 小数型<br />
.局部变量 S2, 小数型<br />
<br />
l结果 ＝ “”<br />
.如果真 (数据.内容 ＝ “”)<br />
信息框 (“请输入数据!”, 0, )<br />
返回 ()<br />
.如果真结束<br />
数据列表 ＝ 分割文本 (数据.内容, “,”, )<br />
a ＝ 取数组成员数 (数据列表)<br />
重定义数组 (数据列表, 真, a)<br />
' 平均数---------------------------------------------------------------------------------------------------<br />
l结果 ＝ l结果 ＋ “数据个数:” ＋ 到文本 (a) ＋ #换行符<br />
和 ＝ 0<br />
.计次循环首 (a, b)<br />
和 ＝ 和 ＋ 到数值 (数据列表 <strong>)<br />
.计次循环尾 ()<br />
平均数 ＝ 和 ÷ a<br />
' 中位数---------------------------------------------------------------------------------------------------<br />
l结果 ＝ l结果 ＋ “平均数=” ＋ 到文本 (平均数) ＋ #换行符<br />
k ＝ 四舍五入 (a ÷ 2, )<br />
重定义数组 (rrrr, 假, 取数组成员数 (数据列表))<br />
.计次循环首 (取数组成员数 (数据列表), yu)<br />
rrrr [yu] ＝ 到数值 (数据列表 [yu])<br />
.计次循环尾 ()<br />
数组排序 (rrrr, 真)<br />
.判断开始 (k × 2 ＝ a)<br />
中位数 ＝ (到数值 (rrrr [k]) ＋ 到数值 (rrrr [k ＋ 1])) ÷ 2<br />
.默认<br />
k2 ＝ (a ＋ 1) ÷ 2<br />
中位数 ＝ 到数值 (rrrr [k2])<br />
.判断结束<br />
l结果 ＝ l结果 ＋ “中位数=” ＋ 到文本 (中位数) ＋ #换行符<br />
' 众数-----------------------------------------------------------------------------------------------------<br />
.判断开始 (a ＝ 1)<br />
众数显示 ＝ 数据.内容<br />
l结果 ＝ l结果 ＋ “众数=” ＋ 众数显示 ＋ #换行符<br />
.默认<br />
求众数 (数据列表, 众数)<br />
重定义数组 (众数, 真, 取数组成员数 (众数))<br />
.计次循环首 (取数组成员数 (众数), uio)<br />
众数显示 ＝ 众数显示 ＋ 到文本 (众数 [uio]) ＋ “；”<br />
.计次循环尾 ()<br />
l结果 ＝ l结果 ＋ “众数=” ＋ 众数显示 ＋ #换行符<br />
.判断结束<br />
' 方差-----------------------------------------------------------------------------------------------------<br />
重定义数组 (op, 假, 取数组成员数 (数据列表))<br />
.计次循环首 (取数组成员数 (op), q)<br />
op [q] ＝ 到数值 (数据列表 [q])<br />
.计次循环尾 ()<br />
.计次循环首 (取数组成员数 (op), q1)<br />
op [q1] ＝ 求次方 (op [q1] － 平均数, 2)<br />
.计次循环尾 ()<br />
.计次循环首 (取数组成员数 (op), q2)<br />
总和1 ＝ 总和1 ＋ op [q2]<br />
.计次循环尾 ()<br />
S2 ＝ 总和1 ÷ 取数组成员数 (op)<br />
l结果 ＝ l结果 ＋ “方差=” ＋ 到文本 (S2)<br />
' 输出结果-------------------------------------------------------------------------------------------------<br />
结果.内容 ＝ l结果<br />
<br />
.子程序 求众数<br />
.参数 文本, 文本型, 数组<br />
.参数 众数, 小数型, 数组, 返回值<br />
.局部变量 r, 整数型<br />
.局部变量 数字, 小数型, , "0"<br />
.局部变量 t, 整数型<br />
.局部变量 p, 小数型, , "0"<br />
.局部变量 y, 整数型<br />
.局部变量 pp3, 小数型, , "0"<br />
.局部变量 r2, 整数型<br />
.局部变量 众数1, 小数型, , "0"<br />
.局部变量 o, 整数型<br />
<br />
重定义数组 (数字, 假, 取数组成员数 (文本))<br />
.计次循环首 (取数组成员数 (文本), r)<br />
数字 [r] ＝ 到数值 (文本 [r])<br />
.计次循环尾 ()<br />
数组排序 (数字, 真) ' 排列<br />
重定义数组 (p, 假, 取数组成员数 (数字))<br />
.计次循环首 (取数组成员数 (数字), y)<br />
p [y] ＝ 1<br />
.计次循环尾 () ' 初始化数字所对应的个数<br />
t ＝ t ＋ 1<br />
.计次循环首 (取数组成员数 (数字), )<br />
.如果真 (数字 [t] ＝ 数字 [t ＋ 1])<br />
p [t] ＝ p [t] ＋ 1<br />
删除成员 (数字, t, 1)<br />
t ＝ t － 1<br />
.如果真结束<br />
.如果真 (t ＋ 1 ≥ 取数组成员数 (数字))<br />
跳出循环 ()<br />
.如果真结束<br />
t ＝ t ＋ 1<br />
.计次循环尾 () ' 写入个数<br />
重定义数组 (数字, 真, 取数组成员数 (数字))<br />
重定义数组 (p, 真, 取数组成员数 (数字))<br />
重定义数组 (pp3, 假, 取数组成员数 (p))<br />
pp3 ＝ p<br />
数组排序 (pp3, 假)<br />
o ＝ 1<br />
.计次循环首 (取数组成员数 (p), r2)<br />
.如果真 (p [r2] ＝ pp3 [1])<br />
重定义数组 (众数1, 真, o)<br />
众数1 [o] ＝ 数字 [r2]<br />
o ＝ o ＋ 1<br />
.如果真结束<br />
<br />
.计次循环尾 ()<br />
众数 ＝ 众数1<br />
<br />
.子程序 _按钮2_被单击<br />
<br />
纪录 ＝ 纪录 ＋ 结果.内容 ＋ #换行符<br />
<br />
.子程序 _按钮3_被单击<br />
<br />
纪录 ＝ “”<br />
<br />
.子程序 _按钮4_被单击<br />
<br />
结果.内容 ＝ 纪录</strong><br />
<strong>.版本 2</strong><br />
<strong>.全局变量 l结果, 文本型, 公开<br />
.全局变量 tt, 文本型, 公开<br />
.全局变量 t2, 文本型, 公开<br />
.全局变量 纪录, 文本型, 公开

界面自己去做把