统计出次,搞几天没搞好，求大神帮忙

OK彩

羊羽子 发表于 2017-3-1 09:40
[e=0].版本 2
.支持库 spec

大神~理解错了~循环50000次，每次随机30个随机数进行统计次数加到二维数组去，，

307840899

设置三个变量 随机数 计次1  随机数=取随机数(0,1000)
如果真 随机数=0  计次1+1
如果真 随机数=9 计次2+1
然后统计 计次1 计次2 就行了
思路就是这样

呵呵仙

节点统计文本重复数_超级列表框.rar (1.73 KB, 下载次数: 11)

2017-3-1 10:07 上传

点击文件名下载附件

用节点思路

羊羽子

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
启动时间	整数型

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

变量名	类 型	静态	数组	备 注
i	整数型
i2	整数型
文本	文本型
次数排序结果	整数型		50000,10	结果是把得出的数字统计下0到9出现次数；加进二维数组里
随机数	整数型
随机数文本	文本型
随机数的数组	整数型		10
千位	整数型
百位	整数型
十位	整数型
个位	整数型
计次	整数型
位置数字	整数型
计次1	整数型

启动时间 ＝ 取启动时间 ()
置随机数种子 ()
计次循环首 (50000, i)  ' 循环5W次
计次循环首 (30, i2)  ' 每次取30期的随机数进行统计   数字1秒多点
随机数 ＝ 取随机数 (0, 1000)
千位 ＝ 绝对取整 (随机数 ÷ 1000)
如果真 (千位 ＞ 0)
随机数的数组 [千位 ＋ 1] ＝ 随机数的数组 [千位 ＋ 1] ＋ 1
百位 ＝ 绝对取整 (随机数 ÷ 100) － 千位 × 10
如果真 (百位 ＞ 0 或 千位 ＞ 0)
随机数的数组 [百位 ＋ 1] ＝ 随机数的数组 [百位 ＋ 1] ＋ 1
十位 ＝ 绝对取整 (随机数 ÷ 10) － 千位 × 100 － 百位 × 10
如果真 (百位 ＞ 0 或 千位 ＞ 0 或 十位 ＞ 0)
随机数的数组 [十位 ＋ 1] ＝ 随机数的数组 [十位 ＋ 1] ＋ 1
个位 ＝ 随机数 － 千位 × 1000 － 百位 × 100 － 十位 × 10
随机数的数组 [个位 ＋ 1] ＝ 随机数的数组 [个位 ＋ 1] ＋ 1
' 随机数文本 ＝ 到文本 (取随机数 (0, 1000))       '文本的慢  要8秒
' 计次循环首 (取文本长度 (随机数文本), 计次)
' 位置数字 ＝ 到整数 (取文本中间 (随机数文本, 计次, 1))
' 随机数的数组 [位置数字 ＋ 1] ＝ 随机数的数组 [位置数字 ＋ 1] ＋ 1
' 计次循环尾 ()
计次循环尾 ()
计次循环首 (10, 计次1)
次数排序结果 [i] [计次1] ＝ 次数排序结果 [i] [计次1] ＋ 随机数的数组 [计次1]
计次循环尾 ()
计次循环尾 ()
标签1.标题 ＝ “用时：” ＋ 到文本 (取启动时间 () － 启动时间) ＋ “毫秒”
' 例如得出的随机文本是2222233338889990014567=数组就是{2,1,5,4,1,1,1,1,3,3},2出现了5次。就是5  这是这么个意思，有没有办法秒出呢
‘这样？   要想快速计算就不能转来转去的  直接给你的2维数组定义为整数型了

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 启动时间, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 文本, 文本型<br /> .局部变量 次数排序结果, 整数型, , "50000,10", 结果是把得出的数字统计下0到9出现次数；加进二维数组里<br /> .局部变量 随机数, 整数型<br /> .局部变量 随机数文本, 文本型<br /> .局部变量 随机数的数组, 整数型, , "10"<br /> .局部变量 千位, 整数型<br /> .局部变量 百位, 整数型<br /> .局部变量 十位, 整数型<br /> .局部变量 个位, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 位置数字, 整数型<br /> .局部变量 计次1, 整数型<br /> <br /> 启动时间 ＝ 取启动时间 ()<br /> 置随机数种子 ()<br /> .计次循环首 (50000, i)  ' 循环5W次<br />     .计次循环首 (30, i2)  ' 每次取30期的随机数进行统计   数字1秒多点<br />         随机数 ＝ 取随机数 (0, 1000)<br />         千位 ＝ 绝对取整 (随机数 ÷ 1000)<br />         .如果真 (千位 ＞ 0)<br />             随机数的数组 [千位 ＋ 1] ＝ 随机数的数组 [千位 ＋ 1] ＋ 1<br />         .如果真结束<br />         百位 ＝ 绝对取整 (随机数 ÷ 100) － 千位 × 10<br />         .如果真 (百位 ＞ 0 或 千位 ＞ 0)<br />             随机数的数组 [百位 ＋ 1] ＝ 随机数的数组 [百位 ＋ 1] ＋ 1<br />         .如果真结束<br />         十位 ＝ 绝对取整 (随机数 ÷ 10) － 千位 × 100 － 百位 × 10<br />         .如果真 (百位 ＞ 0 或 千位 ＞ 0 或 十位 ＞ 0)<br />             随机数的数组 [十位 ＋ 1] ＝ 随机数的数组 [十位 ＋ 1] ＋ 1<br />         .如果真结束<br />         个位 ＝ 随机数 － 千位 × 1000 － 百位 × 100 － 十位 × 10<br />         随机数的数组 [个位 ＋ 1] ＝ 随机数的数组 [个位 ＋ 1] ＋ 1<br />         ' 随机数文本 ＝ 到文本 (取随机数 (0, 1000))       '文本的慢  要8秒<br />         ' 计次循环首 (取文本长度 (随机数文本), 计次)<br />         ' 位置数字 ＝ 到整数 (取文本中间 (随机数文本, 计次, 1))<br />         ' 随机数的数组 [位置数字 ＋ 1] ＝ 随机数的数组 [位置数字 ＋ 1] ＋ 1<br />         ' 计次循环尾 ()<br />     .计次循环尾 ()<br />     .计次循环首 (10, 计次1)<br />         次数排序结果 <i> [计次1] ＝ 次数排序结果 <i> [计次1] ＋ 随机数的数组 [计次1]<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 标签1.标题 ＝ “用时：” ＋ 到文本 (取启动时间 () － 启动时间) ＋ “毫秒”<br /> <br /> ' 例如得出的随机文本是2222233338889990014567=数组就是{2,1,5,4,1,1,1,1,3,3},2出现了5次。就是5  这是这么个意思，有没有办法秒出呢<br /> <br /> ‘这样？   要想快速计算就不能转来转去的  直接给你的2维数组定义为整数型了

OK彩

羊羽子 发表于 2017-3-1 10:09
[e=0].版本 2

.程序集 窗口程序集_启动窗口

速度能优化下么，现在是3秒多，我想要1秒内

yys785962193

调用这个函数 文本_取出现次数（）

jingyi11023995

是这个意思？

  

子程序名	返回值类型	公开	备 注
子程序10
参数名	类 型	参考	可空	数组	备 注
随机文本	文本型

变量名	类 型	静态	数组	备 注
n	整数型
i	整数型

随机文本 ＝ “2222233338889990014567”
n ＝ 取文本长度 (随机文本)
计次循环首 (n, i)
如果真 (取文本中间 (随机文本, i, 1) ＝ “0”)
数组1 [1] ＝ 数组1 [1] ＋ 1
如果真 (取文本中间 (随机文本, i, 1) ＝ “1”)
数组1 [2] ＝ 数组1 [2] ＋ 1
如果真 (取文本中间 (随机文本, i, 1) ＝ “2”)
数组1 [3] ＝ 数组1 [3] ＋ 1
如果真 (取文本中间 (随机文本, i, 1) ＝ “3”)
数组1 [4] ＝ 数组1 [4] ＋ 1
如果真 (取文本中间 (随机文本, i, 1) ＝ “4”)
数组1 [5] ＝ 数组1 [5] ＋ 1
如果真 (取文本中间 (随机文本, i, 1) ＝ “5”)
数组1 [6] ＝ 数组1 [6] ＋ 1
如果真 (取文本中间 (随机文本, i, 1) ＝ “6”)
数组1 [7] ＝ 数组1 [2] ＋ 1
如果真 (取文本中间 (随机文本, i, 1) ＝ “7”)
数组1 [8] ＝ 数组1 [3] ＋ 1
如果真 (取文本中间 (随机文本, i, 1) ＝ “8”)
数组1 [9] ＝ 数组1 [4] ＋ 1
如果真 (取文本中间 (随机文本, i, 1) ＝ “9”)
数组1 [10] ＝ 数组1 [5] ＋ 1

计次循环尾 ()
调试输出 (数组1)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序10<br /> .参数 随机文本, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 随机文本 ＝ “2222233338889990014567”<br /> n ＝ 取文本长度 (随机文本)<br /> .计次循环首 (n, i)<br />     .如果真 (取文本中间 (随机文本, i, 1) ＝ “0”)<br />         数组1 [1] ＝ 数组1 [1] ＋ 1<br />     .如果真结束<br />     .如果真 (取文本中间 (随机文本, i, 1) ＝ “1”)<br />         数组1 [2] ＝ 数组1 [2] ＋ 1<br />     .如果真结束<br />     .如果真 (取文本中间 (随机文本, i, 1) ＝ “2”)<br />         数组1 [3] ＝ 数组1 [3] ＋ 1<br />     .如果真结束<br />     .如果真 (取文本中间 (随机文本, i, 1) ＝ “3”)<br />         数组1 [4] ＝ 数组1 [4] ＋ 1<br />     .如果真结束<br />     .如果真 (取文本中间 (随机文本, i, 1) ＝ “4”)<br />         数组1 [5] ＝ 数组1 [5] ＋ 1<br />     .如果真结束<br />     .如果真 (取文本中间 (随机文本, i, 1) ＝ “5”)<br />         数组1 [6] ＝ 数组1 [6] ＋ 1<br />     .如果真结束<br />     .如果真 (取文本中间 (随机文本, i, 1) ＝ “6”)<br />         数组1 [7] ＝ 数组1 [2] ＋ 1<br />     .如果真结束<br />     .如果真 (取文本中间 (随机文本, i, 1) ＝ “7”)<br />         数组1 [8] ＝ 数组1 [3] ＋ 1<br />     .如果真结束<br />     .如果真 (取文本中间 (随机文本, i, 1) ＝ “8”)<br />         数组1 [9] ＝ 数组1 [4] ＋ 1<br />     .如果真结束<br />     .如果真 (取文本中间 (随机文本, i, 1) ＝ “9”)<br />         数组1 [10] ＝ 数组1 [5] ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (数组1)

OK彩

jingyi11023995 发表于 2017-3-1 13:14
是这个意思？[e=0].版本 2
.支持库 spec

是这意思，我现在用的就是数组相加，但是计算5W次还是慢了。

OK彩

yys785962193 发表于 2017-3-1 12:45
调用这个函数 文本_取出现次数（）

这命令试过了~比数组相加慢了好几倍

jingyi11023995

OK彩 发表于 2017-3-1 13:27
是这意思，我现在用的就是数组相加，但是计算5W次还是慢了。

文本操作肯定慢的，如果是整数会快。你随机的数，位数固定吗？