个人笔记：图像_轮廓匹配定位例子

asasqwwq

颜色直方图原理，写轮廓匹配定位算法，用轮廓匹配模拟特征点匹配。

  

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

变量名	类 型	静态	数组	备 注
匹配轮廓号_小	整数型		0
匹配轮廓号_大	整数型		0
匹配图相似度	双精度小数型		0
小矩形组	直立矩形		0
大矩形组	直立矩形		0
i	整数型
t	整数型
随机颜色	整数型

图像_轮廓匹配定位 (画板1.底图, 画板2.底图, , , 小矩形组, 大矩形组, , , , , , 匹配轮廓号_小, 匹配轮廓号_大, 匹配图相似度)
计次循环首 (取数组成员数 (小矩形组), i)
如果真 (匹配图相似度 [i] ＞ 60)
t ＝ t ＋ 1
如果 (t ％ 2 ＝ 0)
画板1.文本颜色 ＝ #黄色
画板2.文本颜色 ＝ #黄色
画板1.文本颜色 ＝ #红色
画板2.文本颜色 ＝ #红色
置随机数种子 ()
随机颜色 ＝ 取随机数 (1000, #白色 － 1000)
' --------------------------------------------
画板1.置写出位置 ( (小矩形组 [匹配轮廓号_小 [i]].左上点.x ＋ 小矩形组 [匹配轮廓号_小 [i]].右下点.x) ÷ 2, (小矩形组 [匹配轮廓号_小 [i]].左上点.y ＋ 小矩形组 [匹配轮廓号_小 [i]].右下点.y) ÷ 2)
画板1.写文本行 (四舍五入 (匹配图相似度 [i], 1))
' -------------
画板2.置写出位置 ( (大矩形组 [匹配轮廓号_大 [i]].左上点.x ＋ 大矩形组 [匹配轮廓号_大 [i]].右下点.x) ÷ 2, (大矩形组 [匹配轮廓号_大 [i]].左上点.y ＋ 大矩形组 [匹配轮廓号_大 [i]].右下点.y) ÷ 2)
画板2.写文本行 (四舍五入 (匹配图相似度 [i], 1))
' --------------------------------------------
调试输出 (匹配轮廓号_小 [i], 匹配轮廓号_大 [i], 四舍五入 (匹配图相似度 [i], 1))

计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮3_被单击<br /> .局部变量 匹配轮廓号_小, 整数型, , "0"<br /> .局部变量 匹配轮廓号_大, 整数型, , "0"<br /> .局部变量 匹配图相似度, 双精度小数型, , "0"<br /> .局部变量 小矩形组, 直立矩形, , "0"<br /> .局部变量 大矩形组, 直立矩形, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 t, 整数型<br /> .局部变量 随机颜色, 整数型<br /> <br /> 图像_轮廓匹配定位 (画板1.底图, 画板2.底图, , , 小矩形组, 大矩形组, , , , , , 匹配轮廓号_小, 匹配轮廓号_大, 匹配图相似度)<br /> <br /> .计次循环首 (取数组成员数 (小矩形组), i)<br />     .如果真 (匹配图相似度 <i> ＞ 60)<br />         t ＝ t ＋ 1<br />         .如果 (t ％ 2 ＝ 0)<br />             画板1.文本颜色 ＝ #黄色<br />             画板2.文本颜色 ＝ #黄色<br />         .否则<br />             画板1.文本颜色 ＝ #红色<br />             画板2.文本颜色 ＝ #红色<br />         .如果结束<br />         置随机数种子 ()<br />         随机颜色 ＝ 取随机数 (1000, #白色 － 1000)<br />         ' --------------------------------------------<br />         画板1.置写出位置 ((小矩形组 [匹配轮廓号_小 <i>].左上点.x ＋ 小矩形组 [匹配轮廓号_小 <i>].右下点.x) ÷ 2, (小矩形组 [匹配轮廓号_小 <i>].左上点.y ＋ 小矩形组 [匹配轮廓号_小 <i>].右下点.y) ÷ 2)<br />         画板1.写文本行 (四舍五入 (匹配图相似度 <i>, 1))<br />         ' -------------<br />         画板2.置写出位置 ((大矩形组 [匹配轮廓号_大 <i>].左上点.x ＋ 大矩形组 [匹配轮廓号_大 <i>].右下点.x) ÷ 2, (大矩形组 [匹配轮廓号_大 <i>].左上点.y ＋ 大矩形组 [匹配轮廓号_大 <i>].右下点.y) ÷ 2)<br />         画板2.写文本行 (四舍五入 (匹配图相似度 <i>, 1))<br />         ' --------------------------------------------<br />         调试输出 (匹配轮廓号_小 <i>, 匹配轮廓号_大 <i>, 四舍五入 (匹配图相似度 <i>, 1))<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()

kiss0459

部分代码？

胖子葛格

感谢大神分享~！

亿万

感谢分享

inat

个人笔记啥也没有应该放在灌水区吧

wmv520

        感谢分享，很给力！~

kyo9766

简单实用，感谢分享

lijiahao123

666666666666666666666

year1970

感谢分享

qwe111qwe

感谢分享！！！！！