开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 361|回复: 14
收起左侧

[易语言纯源码] 识别hk缺口的x坐标源码

[复制链接]
结帖率:74% (25/34)
发表于 前天 17:19 | 显示全部楼层 |阅读模式   河南省信阳市
分享源码
界面截图: -
是否带模块: -
备注说明: -
本帖最后由 137240129 于 2024-12-22 17:25 编辑

无意间看到一个大佬发的贴子,
hk缺口计算,纯算法,不是yolo训练!不是ddddocr!不是API!_精易论坛

当看完这个贴子的时候,就感觉这个大佬玩的特别花,识别缺口坐标还有这种骚操作,于是就下载下来研究了下
于是就在他源码的基础上改了改,改成二维数组的识别,比他的更精简,

  
子程序名返回值类型公开备 注
验证码_识别缺口x坐标文本型 
参数名类 型参考可空数组备 注
_滑块_bin字节集滑块
_底图_bin字节集底图
底图y坐标整数型y坐标
变量名类 型静态数组备 注
滑块_位图处理对象类_位图处理 
底图_位图处理对象类_位图处理 
x整数型 
y整数型 
点色整数型 
y1整数型 
x1整数型 
相似数整数型 
数组排序文本型0
滑块_bin字节集滑块图
底图_bin字节集底图
滑块_位图操作对象类_位图操作 
底图_位图操作对象类_位图操作 
滑块_宽整数型滑块整图宽度
滑块_高整数型滑块整图高度
底图_宽整数型底图宽度
底图_高整数型底图高度
底图_二维整数型1,1
滑块_二维整数型1,1
临时整数型 
滑块_宽 = 图片_取宽度 (_滑块_bin)
滑块_高 = 图片_取高度 (_滑块_bin)
底图_宽 = 图片_取宽度 (_底图_bin)
底图_高 = 图片_取高度 (_底图_bin)
重定义数组 (底图_二维, 假, 底图_高, 底图_宽)
重定义数组 (滑块_二维, 假, 滑块_高, 滑块_宽)
图片_转换 (_滑块_bin, 1, , 滑块_bin, )
图片_转换 (_底图_bin, 1, , 底图_bin, )
滑块_bin = 滑块_位图处理对象.位图二值化 (滑块_bin, 1)
底图_bin = 底图_位图处理对象.位图二值化 (底图_bin, 113)
图片框3.图片 = 底图_bin
图片框4.图片 = 滑块_bin
滑块_位图操作对象.从数据创建 (滑块_bin)
底图_位图操作对象.从数据创建 (底图_bin)
计次循环首 (底图_高, y)
计次循环首 (底图_宽, x)
点色 = 底图_位图操作对象.取某点颜色 (x, y)
底图_二维 [y] [x]选择 (点色 > 1, 0, 1)
计次循环尾 ()
计次循环尾 ()
计次循环首 (滑块_高, y)
临时 = 0
计次循环首 (滑块_宽, x)
点色 = 滑块_位图操作对象.取某点颜色 (x, y)
临时 = 临时 + 选择 (点色 > 1, 1, 0)
计次循环尾 ()
如果真 (临时 > 0)
跳出循环 ()

计次循环尾 ()
变量循环首 (y, 滑块_高, 1, y1)
计次循环首 (滑块_宽, x)
点色 = 滑块_位图操作对象.取某点颜色 (x, y1)
滑块_二维 [y1 - y + 1] [x]选择 (点色 > 1, 1, 0)
计次循环尾 ()
变量循环尾 ()
计次循环首 (底图_宽, x)
如果真 (x + 滑块_宽 > 底图_宽)
跳出循环 ()
相似数 = 0
计次循环首 (滑块_高, y1)
计次循环首 (滑块_宽, x1)
如果真 (底图_二维 [底图y坐标 + y1 - 1] [x + x1 - 1] = 滑块_二维 [y1] [x1] 滑块_二维 [y1] [x1] = 1)
相似数 = 相似数 + 1

计次循环尾 ()
计次循环尾 ()
加入成员 (数组排序, 到文本 (x)“,”到文本 (相似数))
计次循环尾 ()
文本数组排序 (数组排序, “,”, 1, )
返回 (文本_取左边 (数组排序 [1], “,”))
子程序名返回值类型公开备 注
文本数组排序  
参数名类 型参考可空数组备 注
数组文本型排序的数组,要排序的数组的数字再最右边比如:2000,20  或者 2000,20:30
分割符号文本型",",":"
排序的次数整数型排列的次数,一般对数组所有成员排序
从大到小逻辑型真:从大到小,假:从小到大
变量名类 型静态数组备 注
数组排序结果文本型0
分割数组文本型0
h整数型 
要找的次数文本型 
要找的位置整数型 
k整数型 
当前次数文本型 
计次循环首 (排序的次数, h)
分割数组 = 分割文本 (数组 [1], 分割符号, )
要找的次数 = 分割数组 [取数组成员数 (分割数组)]
要找的位置 = 1
计次循环首 (取数组成员数 (数组), k)
分割数组 = 分割文本 (数组 [k], 分割符号, )
当前次数 = 分割数组 [取数组成员数 (分割数组)]
如果 (从大到小 = )
如果真 (到数值 (要找的次数)到数值 (当前次数))
要找的次数 = 当前次数
要找的位置 = k



如果真 (到数值 (要找的次数)到数值 (当前次数))
要找的次数 = 当前次数
要找的位置 = k


计次循环尾 ()
加入成员 (数组排序结果, 数组 [要找的位置])
删除成员 (数组, 要找的位置, )
计次循环尾 ()
数组 = 数组排序结果


编译后识别速度基本在200毫秒左右,水平有限,比他的也快不了多少
demo.e (685.3 KB, 下载次数: 25, 售价: 2 枚 精币)

结帖率:99% (104/105)

签到天数: 16 天

发表于 1 分钟前 | 显示全部楼层   山东省青岛市
感谢您对论坛的支持!
回复 支持 反对

使用道具 举报

结帖率:98% (48/49)

签到天数: 23 天

发表于 5 分钟前 | 显示全部楼层   山东省青岛市
感谢发布原创作品,精易因你更精彩!6666666666666
回复 支持 反对

使用道具 举报

结帖率:73% (8/11)

签到天数: 20 天

发表于 7 小时前 | 显示全部楼层   河南省焦作市
Google Chrome
回复 支持 反对

使用道具 举报

结帖率:80% (4/5)

签到天数: 2 天

发表于 昨天 20:30 | 显示全部楼层   山东省潍坊市
已经顶贴,感谢您对论坛的支持!
回复 支持 反对

使用道具 举报

签到天数: 9 天

发表于 昨天 20:15 | 显示全部楼层   江苏省连云港市
谢谢分享
回复 支持 反对

使用道具 举报

结帖率:100% (2/2)

签到天数: 18 天

发表于 昨天 16:14 | 显示全部楼层   广东省深圳市
学习一下
回复 支持 反对

使用道具 举报

结帖率:100% (11/11)

签到天数: 23 天

发表于 昨天 13:10 | 显示全部楼层   湖南省长沙市
论坛有你更精彩
回复 支持 反对

使用道具 举报

签到天数: 23 天

发表于 昨天 12:40 | 显示全部楼层   新疆维吾尔自治区巴音郭楞蒙古自治州
谢谢分享
回复 支持 反对

使用道具 举报

结帖率:100% (14/14)

签到天数: 22 天

发表于 昨天 11:48 | 显示全部楼层   广东省江门市
感谢分享,很给力!~
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表