贡献一个模块:均值哈希图像对比

127001

  

窗口程序集名	保 留	保 留	备 注
算法_感知哈希
变量名	类 型	数组	备 注
哈希精度	整数型
灰度精度

子程序名	返回值类型	公开	备 注
引擎_图像对比			公开接口
参数名	类 型	参考	可空	数组	备 注
图像地址A	文本型
图像地址B	文本型
对比级数	整数型				对比精度不得超过256，默认对比精度为8
灰度级数	整数型

变量名	类 型	静态	数组	备 注
哈希A	引擎_哈希数据
哈希B	引擎_哈希数据
汉明距离	整数型
差异比值	双精度小数型

哈希精度 ＝ 对比级数
灰度精度 ＝ 灰度级数
哈希A ＝ 算法_均值哈希 (图像地址A)
哈希B ＝ 算法_均值哈希 (图像地址B)
汉明距离 ＝ 算法_哈希对比 (哈希A, 哈希B)
差异比值 ＝ 汉明距离 ÷ 哈希精度 ÷ 哈希精度
调试输出 (“汉明距离 ” ＋ 到文本 (汉明距离))
调试输出 (“差异比值 ” ＋ 到文本 (差异比值))
判断 (汉明距离 ＝ 0)
调试输出 (“极度相似”)
返回 ()
判断 (差异比值 ≤ 0.078125)
调试输出 (“相似度 ” ＋ 到文本 (100 － 256 × 差异比值) ＋ “% 以上”)  ' 80% - 100%
判断 (0.078125 ＜ 差异比值 且 差异比值 ≤ 0.15625)
调试输出 (“相似度 ” ＋ 到文本 (80 － 960 × 差异比值 ＋ 75) ＋ “% 以上”)  ' 5% - 80%
返回 ()
调试输出 (“相似度 ” ＋ 到文本 (5 － 160 ÷ 27 × 差异比值 ＋ 25 ÷ 27) ＋ “% 以上”)  ' 0% - 5%
返回 ()

子程序名	返回值类型	公开	备 注
算法_均值哈希	引擎_哈希数据		取得该图片的 哈希数据
参数名	类 型	参考	可空	数组	备 注
图像地址	文本型

变量名	类 型	静态	数组	备 注
图片处理器	画板
图片号	整数型
灰度数组	整数型		65536
灰度均值	整数型
X	整数型
Y	整数型
Z	整数型
哈希值	引擎_哈希数据

载入 (测试窗口, , 假)
图片处理器 ＝ 测试窗口.画板
图片处理器.宽度 ＝ 哈希精度
图片处理器.高度 ＝ 哈希精度
X ＝ 0
Y ＝ 0
Z ＝ 0
图片号 ＝ 载入图片 (图像地址)
图片处理器.画图片 (图片号, 0, 0, 哈希精度, 哈希精度, )
' 数据读取
计次循环首 (哈希精度, )
计次循环首 (哈希精度, )
Z ＝ Z ＋ 1
' 调试输出 (“X:” ＋ 到文本 (X) ＋ “Y:” ＋ 到文本 (Y))
灰度数组 [Z] ＝ 灰度转换 (取RGB (图片处理器.取点 (X, Y)), 灰度精度)  ' 默认为64级灰度
X ＝ X ＋ 1
计次循环尾 ()
Y ＝ Y ＋ 1
X ＝ 0
计次循环尾 ()
' 数据读取
' 灰度运算
Z ＝ 0
灰度均值 ＝ 0
计次循环首 (哈希精度 × 哈希精度, )
Z ＝ Z ＋ 1
灰度均值 ＝ 灰度均值 ＋ 灰度数组 [Z]
计次循环尾 ()
灰度均值 ＝ 灰度均值 ÷ 哈希精度 ÷ 哈希精度
' 灰度运算
' 哈希运算
Z ＝ 0
计次循环首 (哈希精度 × 哈希精度, )
Z ＝ Z ＋ 1
判断 (灰度数组 [Z] ≥ 灰度均值)
哈希值.真值 [Z] ＝ 真
哈希值.真值 [Z] ＝ 假

计次循环尾 ()
' 哈希运算
返回 (哈希值)

子程序名	返回值类型	公开	备 注
算法_哈希对比	整数型		返回 汉明距离
参数名	类 型	参考	可空	数组	备 注
哈希A	引擎_哈希数据
哈希B	引擎_哈希数据

变量名	类 型	静态	数组	备 注
A	整数型
汉明距离	整数型			差异位数

A ＝ 0
汉明距离 ＝ 0
计次循环首 (哈希精度 × 哈希精度, )
A ＝ A ＋ 1
如果真 (哈希A.真值 [A] ≠ 哈希B.真值 [A])
汉明距离 ＝ 汉明距离 ＋ 1

计次循环尾 ()
返回 (汉明距离)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 算法_感知哈希<br /> .程序集变量 哈希精度, 整数型<br /> .程序集变量 灰度精度<br /> <br /> .子程序 引擎_图像对比, , 公开, 公开接口<br /> .参数 图像地址A, 文本型<br /> .参数 图像地址B, 文本型<br /> .参数 对比级数, 整数型, , 对比精度不得超过256，默认对比精度为8<br /> .参数 灰度级数, 整数型<br /> .局部变量 哈希A, 引擎_哈希数据<br /> .局部变量 哈希B, 引擎_哈希数据<br /> .局部变量 汉明距离, 整数型<br /> .局部变量 差异比值, 双精度小数型<br /> <br /> 哈希精度 ＝ 对比级数<br /> 灰度精度 ＝ 灰度级数<br /> 哈希A ＝ 算法_均值哈希 (图像地址A)<br /> 哈希B ＝ 算法_均值哈希 (图像地址B)<br /> 汉明距离 ＝ 算法_哈希对比 (哈希A, 哈希B)<br /> 差异比值 ＝ 汉明距离 ÷ 哈希精度 ÷ 哈希精度<br /> <br /> 调试输出 (“汉明距离 ” ＋ 到文本 (汉明距离))<br /> 调试输出 (“差异比值 ” ＋ 到文本 (差异比值))<br /> .判断开始 (汉明距离 ＝ 0)<br />     调试输出 (“极度相似”)<br />     返回 ()<br /> .判断 (差异比值 ≤ 0.078125)<br />     调试输出 (“相似度 ” ＋ 到文本 (100 － 256 × 差异比值) ＋ “% 以上”)  ' 80% - 100%<br /> .判断 (0.078125 ＜ 差异比值 且 差异比值 ≤ 0.15625)<br />     调试输出 (“相似度 ” ＋ 到文本 (80 － 960 × 差异比值 ＋ 75) ＋ “% 以上”)  ' 5% - 80%<br />     返回 ()<br /> .默认<br />     调试输出 (“相似度 ” ＋ 到文本 (5 － 160 ÷ 27 × 差异比值 ＋ 25 ÷ 27) ＋ “% 以上”)  ' 0% - 5%<br />     返回 ()<br /> .判断结束<br /> <br /> <br /> .子程序 算法_均值哈希, 引擎_哈希数据, , 取得该图片的 哈希数据<br /> .参数 图像地址, 文本型<br /> .局部变量 图片处理器, 画板<br /> .局部变量 图片号, 整数型<br /> .局部变量 灰度数组, 整数型, , "65536"<br /> .局部变量 灰度均值, 整数型<br /> .局部变量 X, 整数型<br /> .局部变量 Y, 整数型<br /> .局部变量 Z, 整数型<br /> .局部变量 哈希值, 引擎_哈希数据<br /> <br /> 载入 (测试窗口, , 假)<br /> 图片处理器 ＝ 测试窗口.画板<br /> 图片处理器.宽度 ＝ 哈希精度<br /> 图片处理器.高度 ＝ 哈希精度<br /> X ＝ 0<br /> Y ＝ 0<br /> Z ＝ 0<br /> <br /> 图片号 ＝ 载入图片 (图像地址)<br /> 图片处理器.画图片 (图片号, 0, 0, 哈希精度, 哈希精度, )<br /> <br /> ' 数据读取<br /> .计次循环首 (哈希精度, )<br />     .计次循环首 (哈希精度, )<br />         Z ＝ Z ＋ 1<br />         ' 调试输出 (“X:” ＋ 到文本 (X) ＋ “Y:” ＋ 到文本 (Y))<br />         灰度数组 [Z] ＝ 灰度转换 (取RGB (图片处理器.取点 (X, Y)), 灰度精度)  ' 默认为64级灰度<br />         X ＝ X ＋ 1<br />     .计次循环尾 ()<br />     Y ＝ Y ＋ 1<br />     X ＝ 0<br /> .计次循环尾 ()<br /> ' 数据读取<br /> <br /> ' 灰度运算<br /> Z ＝ 0<br /> 灰度均值 ＝ 0<br /> .计次循环首 (哈希精度 × 哈希精度, )<br />     Z ＝ Z ＋ 1<br />     灰度均值 ＝ 灰度均值 ＋ 灰度数组 [Z]<br /> .计次循环尾 ()<br /> 灰度均值 ＝ 灰度均值 ÷ 哈希精度 ÷ 哈希精度<br /> ' 灰度运算<br /> <br /> ' 哈希运算<br /> Z ＝ 0<br /> .计次循环首 (哈希精度 × 哈希精度, )<br />     Z ＝ Z ＋ 1<br />     .判断开始 (灰度数组 [Z] ≥ 灰度均值)<br />         哈希值.真值 [Z] ＝ 真<br />     .默认<br />         哈希值.真值 [Z] ＝ 假<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> ' 哈希运算<br /> <br /> 返回 (哈希值)<br /> <br /> .子程序 算法_哈希对比, 整数型, , 返回 汉明距离<br /> .参数 哈希A, 引擎_哈希数据<br /> .参数 哈希B, 引擎_哈希数据<br /> .局部变量 A, 整数型<br /> .局部变量 汉明距离, 整数型, , , 差异位数<br /> <br /> A ＝ 0<br /> 汉明距离 ＝ 0<br /> .计次循环首 (哈希精度 × 哈希精度, )<br />     A ＝ A ＋ 1<br />     .如果真 (哈希A.真值 [A] ≠ 哈希B.真值 [A])<br />         汉明距离 ＝ 汉明距离 ＋ 1<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 返回 (汉明距离)

下面为自定义数据类型：

  

数据类型名	公开	备 注
引擎_RGB色彩
成员名	类 型	传址	数组	备 注
R	短整数型
G	短整数型
B	短整数型

数据类型名	公开	备 注
引擎_哈希数据		用来保存 算法哈希 数据
成员名	类 型	传址	数组	备 注
真值	逻辑型		65536	8*8 - 256*256

.版本 2<br /> <br /> .数据类型 引擎_RGB色彩<br />     .成员 R, 短整数型<br />     .成员 G, 短整数型<br />     .成员 B, 短整数型<br /> <br /> .数据类型 引擎_哈希数据, , 用来保存 算法哈希 数据<br />     .成员 真值, 逻辑型, , "65536", 8*8 - 256*256

RGB函数：

  

子程序名	返回值类型	公开	备 注
取RGB	引擎_RGB色彩
参数名	类 型	参考	可空	数组	备 注
颜色值	整数型

变量名	类 型	静态	数组	备 注
字节集	字节集
RGB	引擎_RGB色彩

字节集 ＝ 到字节集 (颜色值)
RGB.R ＝ 到整数 (字节集 [1])
RGB.G ＝ 到整数 (字节集 [2])
RGB.B ＝ 到整数 (字节集 [3])
返回 (RGB)

子程序名	返回值类型	公开	备 注
灰度转换	整数型
参数名	类 型	参考	可空	数组	备 注
彩色	引擎_RGB色彩
灰度级数	整数型

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

' 心理学公式：灰度 = R*0.299 + G*0.587 + B*0.114
灰度 ＝ (229 × 彩色.R ＋ 587 × 彩色.G ＋ 114 × 彩色.B) ÷ 256000 × 灰度级数
返回 (灰度)

.版本 2<br /> <br /> .子程序 取RGB, 引擎_RGB色彩<br /> .参数 颜色值, 整数型<br /> .局部变量 字节集, 字节集<br /> .局部变量 RGB, 引擎_RGB色彩<br /> <br /> 字节集 ＝ 到字节集 (颜色值)<br /> <br /> RGB.R ＝ 到整数 (字节集 [1])<br /> RGB.G ＝ 到整数 (字节集 [2])<br /> RGB.B ＝ 到整数 (字节集 [3])<br /> <br /> 返回 (RGB)<br /> <br /> .子程序 灰度转换, 整数型<br /> .参数 彩色, 引擎_RGB色彩<br /> .参数 灰度级数, 整数型<br /> .局部变量 灰度, 整数型<br /> <br /> ' 心理学公式：灰度 = R*0.299 + G*0.587 + B*0.114<br /> 灰度 ＝ (229 × 彩色.R ＋ 587 × 彩色.G ＋ 114 × 彩色.B) ÷ 256000 × 灰度级数<br /> 返回 (灰度)

jiangjinhua

感谢分享

杨明煜

谢谢分享.............

ruinmi

好像没有用啊，而且很慢

墨影0620

支持开源下载看看

沫沫o

看看。。。

tianxi

图片相似度？还是转文本相似度？

幻想时空

批量操作，占用大量内存，并且无法释放

xuel200

支持支持哈

tianxi

汇编 快速灰度化

colin56

感谢开源，学习学习。。。