初中数据分析计算软件

龘譶飍靐

本程序可以一键计算一组数据的总和、平均数、中位数、众数、方差、标准差。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

数据框.插入列 (0, “数据”, 191, 1, , )
数据框.插入列 (1, “权”, 191, 1, , )

子程序名	返回值类型	公开	备 注
_确认添加_被单击

如果真 (到数值 (修改权.内容) ＞ 0 且 数据添加.内容 ≠ “”)
索引 ＝ 数据框.插入表项 (, , , , , )
数据框.置标题 (索引, 0, 数据添加.内容)
数据框.置标题 (索引, 1, 修改权.内容)
如果 (数据框.取表项数 () ≠ 0)
一键计算.禁止 ＝ 假
一键计算.禁止 ＝ 真
数据添加.获取焦点 ()
数据添加.内容 ＝ “”
修改权.内容 ＝ “1”

子程序名	返回值类型	公开	备 注
_修改权_获得焦点

修改权.内容 ＝ “”

子程序名	返回值类型	公开	备 注
_修改权_失去焦点

如果真 (到数值 (修改权.内容) ≤ 0)
修改权.内容 ＝ “1”

子程序名	返回值类型	公开	备 注
_数据添加_放开某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

如果 (键代码 ＝ #回车键 且 功能键状态 ＝ #Ctrl键状态 )
_一键计算_被单击 ()
如果真 (键代码 ＝ #回车键 )
_确认添加_被单击 ()

子程序名	返回值类型	公开	备 注
_修改权_放开某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

如果 (键代码 ＝ #回车键 且 功能键状态 ＝ #Ctrl键状态 )
_一键计算_被单击 ()
如果真 (键代码 ＝ #回车键 )
_确认添加_被单击 ()

子程序名	返回值类型	公开	备 注
_清空数据_鼠标左键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

如果真 (信息框 (“确认清空数据？” ＋ #换行符 ＋ “清空后无法找回！”, 1, “警告”) ＝ #确认钮 )
清除结果 ()

子程序名	返回值类型	公开	备 注
_一键计算_被单击

清除结果 ()
重定义数组 (数据, 真, 3000000)
重定义数组 (众数, 真, 3000000)
计次循环首 (数据框.取表项数 (), i)
总权 ＝ 总权 ＋ 到数值 (数据框.取标题 (i － 1, 1))
计次循环首 (到数值 (数据框.取标题 (i － 1, 1)), j)
k ＝ k ＋ 1
总和 ＝ 总和 ＋ 到数值 (数据框.取标题 (i － 1, 0))
数据 [k] ＝ 到数值 (数据框.取标题 (i － 1, 0))
计次循环尾 ()
计次循环尾 ()
数组排序 (数据, 真)
ans.标题 ＝ “总和：” ＋ 到文本 (总和)
NoD.标题 ＝ “数据个数：” ＋ 到文本 (总权)
平均数 ＝ 总和 ÷ 总权
mean.标题 ＝ “平均数：” ＋ 到文本 (平均数)
如果 (总权 ％ 2 ＝ 0)
中位数 ＝ (数据 [总权 ＼ 2] ＋ 数据 [总权 ＼ 2 ＋ 1]) ÷ 2
中位数 ＝ 数据 [总权 ＼ 2 ＋ 1]
median.标题 ＝ “中位数：” ＋ 到文本 (中位数)
计次循环首 (数据框.取表项数 (), i)
如果真 (到数值 (数据框.取标题 (i － 1, 1)) ≥ 待比较权)
如果真 (到数值 (数据框.取标题 (i － 1, 1)) ＝ 待比较权)
t ＝ t ＋ 1
众数 [t] ＝ 到数值 (数据框.取标题 (i － 1, 0))
如果真 (到数值 (数据框.取标题 (i － 1, 1)) ＞ 待比较权)
众数 [t] ＝ 到数值 (数据框.取标题 (i － 1, 0))
待比较权 ＝ 到数值 (数据框.取标题 (i － 1, 1))
如果真 (到数值 (数据框.取标题 (i － 1, 1)) ≠ 待比较权 且 待比较权 ≠ -2147483646)
是否有不同权 ＝ 真

计次循环尾 ()
数组排序 (众数, 真)
计次循环首 (总权, i)
如果真 (是否有不同权 ＝ 假)
mode.标题 ＝ “众数：无”
跳出循环 ()
如果真 (众数 [i] ≠ 2147483647)
如果 (是否首个众数)
mode.标题 ＝ mode.标题 ＋ 到文本 (众数 [i])
mode.标题 ＝ mode.标题 ＋ “和” ＋ 到文本 (众数 [i])
是否首个众数 ＝ 假

计次循环尾 ()
计次循环首 (总权, i)
平方和 ＝ 平方和 ＋ 求次方 (数据 [i] － 平均数, 2)
计次循环尾 ()
方差 ＝ 平方和 ÷ 总权
variance.标题 ＝ “方差：” ＋ 到文本 (方差)
标准差 ＝ 求平方根 (方差)
std.标题 ＝ “标准差：” ＋ 到文本 (标准差)
极差 ＝ 数据 [总权] － 数据 [1]
range.标题 ＝ “极差：” ＋ 到文本 (极差)
数据添加.获取焦点 ()

子程序名	返回值类型	公开	备 注
清除结果

待比较权 ＝ -2147483646
t ＝ 1
总和 ＝ 0
总权 ＝ 0
平均数 ＝ 0
中位数 ＝ 0
计次循环首 (3000000, i)
数据 [i] ＝ 2147483647
计次循环尾 ()
计次循环首 (3000000, i)
众数 [i] ＝ 2147483647
计次循环尾 ()
平方和 ＝ 0
方差 ＝ 0
标准差 ＝ 0
是否首个众数 ＝ 真
是否有不同权 ＝ 假
ans.标题 ＝ “总和：”
NoD.标题 ＝ “数据个数：”
mean.标题 ＝ “平均数：”
median.标题 ＝ “中位数：”
mode.标题 ＝ “众数：”
variance.标题 ＝ “方差：”
std.标题 ＝ “标准差：”
range.标题 ＝ “极差：”

子程序名	返回值类型	公开	备 注
_重置数据_鼠标左键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

如果真 (信息框 (“确定重置？” ＋ #换行符 ＋ “所有数据都将被清除！”, 1, “警告”) ＝ #确认钮 )
载入 (保留窗口, , 假)
_启动窗口.销毁 ()
载入 (_启动窗口, , 假)
保留窗口.销毁 ()

子程序名	返回值类型	公开	备 注
_删除表项_被单击

数据框.删除表项 (数据框.现行选中项)
如果真 (数据框.取表项数 () ＝ 0)
一键计算.禁止 ＝ 真
删除表项.可视 ＝ 假

子程序名	返回值类型	公开	备 注
_数据框_左键单击表项

如果真 (数据框.取表项数 () ≠ 0)
删除表项.可视 ＝ 真

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 数据框.插入列 (0, “数据”, 191, 1, , )<br /> 数据框.插入列 (1, “权”, 191, 1, , )<br /> <br /> <br /> .子程序 _确认添加_被单击<br /> <br /> .如果真 (到数值 (修改权.内容) ＞ 0 且 数据添加.内容 ≠ “”)<br />     索引 ＝ 数据框.插入表项 (, , , , , )<br />     数据框.置标题 (索引, 0, 数据添加.内容)<br />     数据框.置标题 (索引, 1, 修改权.内容)<br /> .如果真结束<br /> .如果 (数据框.取表项数 () ≠ 0)<br />     一键计算.禁止 ＝ 假<br /> .否则<br />     一键计算.禁止 ＝ 真<br /> .如果结束<br /> 数据添加.获取焦点 ()<br /> 数据添加.内容 ＝ “”<br /> 修改权.内容 ＝ “1”<br /> <br /> <br /> .子程序 _修改权_获得焦点<br /> <br /> 修改权.内容 ＝ “”<br /> <br /> <br /> .子程序 _修改权_失去焦点<br /> <br /> .如果真 (到数值 (修改权.内容) ≤ 0)<br />     修改权.内容 ＝ “1”<br /> .如果真结束<br /> <br /> <br /> .子程序 _数据添加_放开某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果 (键代码 ＝ #回车键 且 功能键状态 ＝ #Ctrl键状态)<br />     _一键计算_被单击 ()<br /> .否则<br />     .如果真 (键代码 ＝ #回车键)<br />         _确认添加_被单击 ()<br />     .如果真结束<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _修改权_放开某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果 (键代码 ＝ #回车键 且 功能键状态 ＝ #Ctrl键状态)<br />     _一键计算_被单击 ()<br /> .否则<br />     .如果真 (键代码 ＝ #回车键)<br />         _确认添加_被单击 ()<br />     .如果真结束<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _清空数据_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果真 (信息框 (“确认清空数据？” ＋ #换行符 ＋ “清空后无法找回！”, 1, “警告”) ＝ #确认钮)<br />     清除结果 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 _一键计算_被单击<br /> <br /> 清除结果 ()<br /> 重定义数组 (数据, 真, 3000000)<br /> 重定义数组 (众数, 真, 3000000)<br /> .计次循环首 (数据框.取表项数 (), i)<br />     总权 ＝ 总权 ＋ 到数值 (数据框.取标题 (i － 1, 1))<br />     .计次循环首 (到数值 (数据框.取标题 (i － 1, 1)), j)<br />         k ＝ k ＋ 1<br />         总和 ＝ 总和 ＋ 到数值 (数据框.取标题 (i － 1, 0))<br />         数据 [k] ＝ 到数值 (数据框.取标题 (i － 1, 0))<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 数组排序 (数据, 真)<br /> ans.标题 ＝ “总和：” ＋ 到文本 (总和)<br /> <br /> NoD.标题 ＝ “数据个数：” ＋ 到文本 (总权)<br /> <br /> 平均数 ＝ 总和 ÷ 总权<br /> mean.标题 ＝ “平均数：” ＋ 到文本 (平均数)<br /> <br /> .如果 (总权 ％ 2 ＝ 0)<br />     中位数 ＝ (数据 [总权 ＼ 2] ＋ 数据 [总权 ＼ 2 ＋ 1]) ÷ 2<br /> .否则<br />     中位数 ＝ 数据 [总权 ＼ 2 ＋ 1]<br /> .如果结束<br /> median.标题 ＝ “中位数：” ＋ 到文本 (中位数)<br /> <br /> .计次循环首 (数据框.取表项数 (), i)<br />     .如果真 (到数值 (数据框.取标题 (i － 1, 1)) ≥ 待比较权)<br />         .如果真 (到数值 (数据框.取标题 (i － 1, 1)) ＝ 待比较权)<br />             t ＝ t ＋ 1<br />             众数 [t] ＝ 到数值 (数据框.取标题 (i － 1, 0))<br />         .如果真结束<br />         .如果真 (到数值 (数据框.取标题 (i － 1, 1)) ＞ 待比较权)<br />             众数 [t] ＝ 到数值 (数据框.取标题 (i － 1, 0))<br />         .如果真结束<br />         待比较权 ＝ 到数值 (数据框.取标题 (i － 1, 1))<br />     .如果真结束<br />     .如果真 (到数值 (数据框.取标题 (i － 1, 1)) ≠ 待比较权 且 待比较权 ≠ -2147483646)<br />         是否有不同权 ＝ 真<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 数组排序 (众数, 真)<br /> .计次循环首 (总权, i)<br />     .如果真 (是否有不同权 ＝ 假)<br />         mode.标题 ＝ “众数：无”<br />         跳出循环 ()<br />     .如果真结束<br />     .如果真 (众数 <i> ≠ 2147483647)<br />         .如果 (是否首个众数)<br />             mode.标题 ＝ mode.标题 ＋ 到文本 (众数 <i>)<br />         .否则<br />             mode.标题 ＝ mode.标题 ＋ “和” ＋ 到文本 (众数 <i>)<br />         .如果结束<br />         是否首个众数 ＝ 假<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .计次循环首 (总权, i)<br />     平方和 ＝ 平方和 ＋ 求次方 (数据 <i> － 平均数, 2)<br /> .计次循环尾 ()<br /> 方差 ＝ 平方和 ÷ 总权<br /> variance.标题 ＝ “方差：” ＋ 到文本 (方差)<br /> <br /> 标准差 ＝ 求平方根 (方差)<br /> std.标题 ＝ “标准差：” ＋ 到文本 (标准差)<br /> <br /> 极差 ＝ 数据 [总权] － 数据 [1]<br /> range.标题 ＝ “极差：” ＋ 到文本 (极差)<br /> <br /> 数据添加.获取焦点 ()<br /> <br /> <br /> .子程序 清除结果<br /> <br /> 待比较权 ＝ -2147483646<br /> t ＝ 1<br /> 总和 ＝ 0<br /> 总权 ＝ 0<br /> 平均数 ＝ 0<br /> 中位数 ＝ 0<br /> .计次循环首 (3000000, i)<br />     数据 <i> ＝ 2147483647<br /> .计次循环尾 ()<br /> .计次循环首 (3000000, i)<br />     众数 <i> ＝ 2147483647<br /> .计次循环尾 ()<br /> 平方和 ＝ 0<br /> 方差 ＝ 0<br /> 标准差 ＝ 0<br /> 是否首个众数 ＝ 真<br /> 是否有不同权 ＝ 假<br /> ans.标题 ＝ “总和：”<br /> NoD.标题 ＝ “数据个数：”<br /> mean.标题 ＝ “平均数：”<br /> median.标题 ＝ “中位数：”<br /> mode.标题 ＝ “众数：”<br /> variance.标题 ＝ “方差：”<br /> std.标题 ＝ “标准差：”<br /> range.标题 ＝ “极差：”<br /> <br /> .子程序 _重置数据_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果真 (信息框 (“确定重置？” ＋ #换行符 ＋ “所有数据都将被清除！”, 1, “警告”) ＝ #确认钮)<br />     载入 (保留窗口, , 假)<br />     _启动窗口.销毁 ()<br />     载入 (_启动窗口, , 假)<br />     保留窗口.销毁 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 _删除表项_被单击<br /> <br /> 数据框.删除表项 (数据框.现行选中项)<br /> .如果真 (数据框.取表项数 () ＝ 0)<br />     一键计算.禁止 ＝ 真<br /> .如果真结束<br /> 删除表项.可视 ＝ 假<br /> <br /> <br /> .子程序 _数据框_左键单击表项<br /> <br /> .如果真 (数据框.取表项数 () ≠ 0)<br />     删除表项.可视 ＝ 真<br /> .如果真结束

DSWJSTG

可能用得上

千玄

好东西。学习下

龘譶飍靐

来一组简单点的数据测试，方便验证～



再来个复杂点的……

---

程序：
数据分析.zip (94.98 KB, 下载次数: 17)

2017-4-3 17:32 上传

点击文件名下载附件
软件
下载积分: 精币 -2 枚