多线程使用问题

hlhhcs

10万条数据，不用线程计算要1分半完成，用了多线程，把数据分段计算，比如一个线程计算一万条，10个线程，时间要5分钟。
要是开1个线程在后台计算也要好几分钟。是我的思路有问题还是什么情况？

  

数据载入 ()
' 信息框 (“载入数据” ＋ 到文本 (取数组成员数 (数据集)), 0, , )
计算行数 ＝ 60000
' 进度条1.最大位置 ＝ 总行数 ÷ 10
计次循环首 (2, i)
多线程 [i].创建 (&任务, i － 1, , , , , 真, , , )
计次循环尾 ()

.版本 2<br /> <br /> 数据载入 ()<br /> ' 信息框 (“载入数据” ＋ 到文本 (取数组成员数 (数据集)), 0, , )<br /> 计算行数 ＝ 60000<br /> ' 进度条1.最大位置 ＝ 总行数 ÷ 10<br /> .计次循环首 (2, i)<br />     多线程 <i>.创建 (&任务, i － 1, , , , , 真, , , )<br /> .计次循环尾 ()

  

子程序名	返回值类型	公开	备 注
任务
参数名	类 型	参考	可空	数组	备 注
参数	整数型

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

进度条1.位置 ＝ 0
购电合计 ＝ 0
铝侧负荷 ＝ 到小数 (编辑框_铝侧负荷.内容)
联络线容量 ＝ 到小数 (编辑框_联络线容量.内容)
m ＝ 0
计次循环首 (计算行数, i)
j ＝ 计算行数 × 参数 ＋ i
如果真 (总行数 － 1 ＝ j)
信息框 (“跳出行：” ＋ 到文本 (j), 0, , )
跳出循环 ()

' 日期 ＝ 到时间 (工作表.取单元格内容 (j, 0))
日期 ＝ 数据集 [j].日期
' 信息框 (工作表.取单元格内容 (i, 0), 0, , )
' 返回 ()
机组3_6最小 ＝ 机组合计3_6最小 (日期)
机组7_10最小 ＝ 机组合计7_10最小 (日期)
机组3_6最大 ＝ 机组合计3_6最大 (日期)
机组7_10最大 ＝ 机组合计7_10最大 (日期)
' 新能源实发 ＝ 到小数 (工作表.取单元格内容 (j, 1)) ＋ 到小数 (工作表.取单元格内容 (j, 2))
新能源实发 ＝ 数据集 [j].风电 ＋ 数据集 [j].光伏
区间 ＝ “全时”
如果真 (取小时 (日期) ≥ 22 或 取小时 (日期) ＜ 5)  ' 谷
区间 ＝ “谷时”

小机应出力 ＝ 铝侧负荷 － 新能源实发 － 机组7_10最大
如果 (小机应出力 ＞ 0)
如果真 (小机应出力 ≤ 机组3_6最小)
购电 ＝ 0

如果真 (小机应出力 ＞ 机组3_6最小 且 小机应出力 ≤ 机组3_6最大)
应购电 ＝ 小机应出力 － 机组3_6最小
如果 (应购电 ＞ 联络线容量)
购电 ＝ 联络线容量


购电 ＝ 应购电


如果真 (小机应出力 ＞ 机组3_6最大)
应购电 ＝ 小机应出力 － 机组3_6最大
如果 (应购电 ＞ 联络线容量)
购电 ＝ 0


购电 ＝ 联络线容量 － 应购电





购电 ＝ 0

弃风电量 ＝ 0
如果真 (购电 ＝ 0)
' 新能源应发 ＝ 铝侧负荷 － 机组3_6最小 － 机组7_10最小
. ' 如果 (新能源应发 ＞ 新能源实发 ＋ 0)
' 弃风电量 ＝ 0


' 弃风电量 ＝ 新能源实发 － 新能源应发 ＋ 0

A ＝ 铝侧负荷 － 新能源实发
如果 (A ＜ 机组3_6最小 ＋ 机组7_10最小)
弃风电量 ＝ 机组3_6最小 ＋ 机组7_10最小 － A
输出调试文本 (“弃风：” ＋ 到文本 (弃风电量))


弃风电量 ＝ 0


临界许可.进入 ()
' 编辑框1.内容 ＝ 到文本 (j)
如果真 (区间 ＝ “谷时”)
谷时购电合计 ＝ 谷时购电合计 ＋ 购电 ÷ 120

风光电量合计 ＝ 风光电量合计 ＋ 新能源实发 ÷ 120
全时购电合计 ＝ 全时购电合计 ＋ 购电 ÷ 120
弃风电量合计 ＝ 弃风电量合计 ＋ 弃风电量 ÷ 120
m ＝ m ＋ 0.1
如果真 (m ≥ 1)
进度条1.位置 ＝ 进度条1.位置 ＋ 1
m ＝ 0

编辑框_谷时购电.内容 ＝ 到文本 (四舍五入 (谷时购电合计, 2))
编辑框_弃风电量.内容 ＝ 到文本 (四舍五入 (弃风电量合计, 2))
编辑框_风光电量.内容 ＝ 到文本 (四舍五入 (风光电量合计, 2))
编辑框_全时购电.内容 ＝ 到文本 (四舍五入 (全时购电合计, 2))
编辑框_弃风率.内容 ＝ 到文本 (弃风电量合计 ÷ (风光电量合计 ＋ 弃风电量合计))
编辑框_计算日期.内容 ＝ 到文本 (日期)
临界许可.退出 ()
如果真 (购电 ≠ 0)
编辑框_谷时购电.刷新显示 ()
编辑框_全时购电.刷新显示 ()

如果真 (弃风电量 ≠ 0)
编辑框_弃风电量.刷新显示 ()
编辑框_弃风率.刷新显示 ()

编辑框_风光电量.刷新显示 ()
编辑框_计算日期.刷新显示 ()
计次循环尾 ()
信息框 (“线程结束：” ＋ 到文本 (参数), 0, , )

.版本 2<br /> <br /> .子程序 任务<br /> .参数 参数, 整数型<br /> .局部变量 i, 整数型<br /> <br /> <br /> 进度条1.位置 ＝ 0<br /> 购电合计 ＝ 0<br /> 铝侧负荷 ＝ 到小数 (编辑框_铝侧负荷.内容)<br /> 联络线容量 ＝ 到小数 (编辑框_联络线容量.内容)<br /> <br /> m ＝ 0<br /> .计次循环首 (计算行数, i)<br />     j ＝ 计算行数 × 参数 ＋ i<br /> <br />     .如果真 (总行数 － 1 ＝ j)<br />         信息框 (“跳出行：” ＋ 到文本 (j), 0, , )<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     ' 日期 ＝ 到时间 (工作表.取单元格内容 (j, 0))<br />     日期 ＝ 数据集 [j].日期<br />     ' 信息框 (工作表.取单元格内容 (i, 0), 0, , )<br />     ' 返回 ()<br />     机组3_6最小 ＝ 机组合计3_6最小 (日期)<br />     机组7_10最小 ＝ 机组合计7_10最小 (日期)<br />     机组3_6最大 ＝ 机组合计3_6最大 (日期)<br />     机组7_10最大 ＝ 机组合计7_10最大 (日期)<br />     ' 新能源实发 ＝ 到小数 (工作表.取单元格内容 (j, 1)) ＋ 到小数 (工作表.取单元格内容 (j, 2))<br />     新能源实发 ＝ 数据集 [j].风电 ＋ 数据集 [j].光伏<br />     区间 ＝ “全时”<br /> <br />     .如果真 (取小时 (日期) ≥ 22 或 取小时 (日期) ＜ 5)  ' 谷<br />         区间 ＝ “谷时”<br />     .如果真结束<br /> <br />         小机应出力 ＝ 铝侧负荷 － 新能源实发 － 机组7_10最大<br />     .如果 (小机应出力 ＞ 0)<br />         .如果真 (小机应出力 ≤ 机组3_6最小)<br />             购电 ＝ 0<br /> <br />         .如果真结束<br /> <br />         .如果真 (小机应出力 ＞ 机组3_6最小 且 小机应出力 ≤ 机组3_6最大)<br />             应购电 ＝ 小机应出力 － 机组3_6最小<br />             .如果 (应购电 ＞ 联络线容量)<br />                 购电 ＝ 联络线容量<br />             .否则<br /> <br />                 购电 ＝ 应购电<br />             .如果结束<br /> <br />         .如果真结束<br /> <br />         .如果真 (小机应出力 ＞ 机组3_6最大)<br />             应购电 ＝ 小机应出力 － 机组3_6最大<br />             .如果 (应购电 ＞ 联络线容量)<br />                 购电 ＝ 0<br />             .否则<br /> <br />                 购电 ＝ 联络线容量 － 应购电<br />             .如果结束<br /> <br />         .如果真结束<br /> <br /> <br />     .否则<br /> <br />         购电 ＝ 0<br />     .如果结束<br /> <br />     弃风电量 ＝ 0<br />     .如果真 (购电 ＝ 0)<br />         ' 新能源应发 ＝ 铝侧负荷 － 机组3_6最小 － 机组7_10最小<br />         .' 如果 (新能源应发 ＞ 新能源实发 ＋ 0)<br />             ' 弃风电量 ＝ 0<br />         .否则<br /> <br />             ' 弃风电量 ＝ 新能源实发 － 新能源应发 ＋ 0<br />         .如果结束<br /> <br />         A ＝ 铝侧负荷 － 新能源实发<br />         .如果 (A ＜ 机组3_6最小 ＋ 机组7_10最小)<br />             弃风电量 ＝ 机组3_6最小 ＋ 机组7_10最小 － A<br />             输出调试文本 (“弃风：” ＋ 到文本 (弃风电量))<br />         .否则<br /> <br />             弃风电量 ＝ 0<br />         .如果结束<br /> <br />     .如果真结束<br /> <br />     临界许可.进入 ()<br /> <br />     ' 编辑框1.内容 ＝ 到文本 (j)<br /> <br />     .如果真 (区间 ＝ “谷时”)<br />         谷时购电合计 ＝ 谷时购电合计 ＋ 购电 ÷ 120<br />     .如果真结束<br /> <br />     风光电量合计 ＝ 风光电量合计 ＋ 新能源实发 ÷ 120<br />     全时购电合计 ＝ 全时购电合计 ＋ 购电 ÷ 120<br />     弃风电量合计 ＝ 弃风电量合计 ＋ 弃风电量 ÷ 120<br /> <br />     m ＝ m ＋ 0.1<br />     .如果真 (m ≥ 1)<br />         进度条1.位置 ＝ 进度条1.位置 ＋ 1<br />         m ＝ 0<br />     .如果真结束<br /> <br />     编辑框_谷时购电.内容 ＝ 到文本 (四舍五入 (谷时购电合计, 2))<br />     编辑框_弃风电量.内容 ＝ 到文本 (四舍五入 (弃风电量合计, 2))<br />     编辑框_风光电量.内容 ＝ 到文本 (四舍五入 (风光电量合计, 2))<br />     编辑框_全时购电.内容 ＝ 到文本 (四舍五入 (全时购电合计, 2))<br />     编辑框_弃风率.内容 ＝ 到文本 (弃风电量合计 ÷ (风光电量合计 ＋ 弃风电量合计))<br />     编辑框_计算日期.内容 ＝ 到文本 (日期)<br /> <br />     临界许可.退出 ()<br /> <br />     .如果真 (购电 ≠ 0)<br />         编辑框_谷时购电.刷新显示 ()<br />         编辑框_全时购电.刷新显示 ()<br />     .如果真结束<br /> <br />     .如果真 (弃风电量 ≠ 0)<br />         编辑框_弃风电量.刷新显示 ()<br />         编辑框_弃风率.刷新显示 ()<br />     .如果真结束<br /> <br />     编辑框_风光电量.刷新显示 ()<br />     编辑框_计算日期.刷新显示 ()<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> 信息框 (“线程结束：” ＋ 到文本 (参数), 0, , )

hlhhcs

cherryy 发表于 2023-9-20 14:45
感觉每次加了 临界许可 就会变慢 跟单线程没区别 ，这个问题很多人都遇到 像你写的这个明显是写法问题 ...

去掉许可改成1个线程，依然慢

气质征服一切

hlhhcs 发表于 2023-9-21 08:56
你说这个我没太懂啊

你多线程写的有很大问题，同时你的临界许可里面加入了很多全局变量以及操作空间的代码，这些都会延缓速度的

hlhhcs

气质征服一切 发表于 2023-9-20 11:43
线程的数量要根据你当前的cpu来开线程，这样就避免了线程切换导致消耗资源，这也是为什么哪怕你线程开多了 ...

你说这个我没太懂啊

cherryy

感觉每次加了 临界许可 就会变慢 跟单线程没区别 ，这个问题很多人都遇到 像你写的这个明显是写法问题

hlhhcs

上传了代码

hlhhcs

风清云游 发表于 2023-9-20 12:59
思路不至于慢这么多
这怕是说不过去...
感觉代码有问题

也不对，我开一个线程，这样就不涉及到切换线程问题，差将近3倍速度

黑骑士ol

我猜是不是 有可能 是这样的，10个线程，每个线程一个许可证emmm到最后还是单线程，因为许可证和原子控制的加入导致性能还不如单线程

风清云游

气质征服一切 发表于 2023-9-20 11:43
线程的数量要根据你当前的cpu来开线程，这样就避免了线程切换导致消耗资源，这也是为什么哪怕你线程开多了 ...

思路不至于慢这么多
这怕是说不过去...
感觉代码有问题

气质征服一切

下次有疑问记得发到问答区