精易论坛

标题: Roberts边缘检测 [打印本页]

作者: afengzaixian    时间: 2017-6-29 12:03
标题: Roberts边缘检测
原图

上面软件界面上的图片就是边缘图
这个是按百度上介绍的算法写的也不知道写的对不对,不过转换出来的效果不咋滴,要是复杂点的图片找图形边缘就有些乱,纯色的图形效果比较好,具体效果那就自行测试好了,纯源码,没加任何添加剂
  
子程序名返回值类型公开备 注
Roberts字节集 
参数名类 型参考可空数组备 注
图片位图
阀值整数型
图片宽度整数型
图片高度整数型
变量名类 型静态数组备 注
x整数型 
y整数型 
G1整数型 
G2整数型 
G整数型 
temp位图 
rgbA字节集 
rgbB字节集 
rgbC字节集 
rgbD字节集 
temp.创建 (图片宽度, 图片高度, 24, #白色 )
变量循环首 (1, 图片宽度, 1, x)
变量循环首 (1, 图片高度, 1, y)
rgbA = 到字节集 (图片.取某点颜色 (x, y))
rgbB = 到字节集 (图片.取某点颜色 (x + 1, y + 1))
rgbC = 到字节集 (图片.取某点颜色 (x + 1, y))
rgbD = 到字节集 (图片.取某点颜色 (x, y + 1))
G1 = 到整数 (到整数 (rgbA [1])到整数 (rgbA [2])到整数 (rgbA [3]) ÷ 3)到整数 (到整数 (rgbB [1])到整数 (rgbB [2])到整数 (rgbB [3]) ÷ 3)
G2 = 到整数 (到整数 (rgbC [1])到整数 (rgbC [2])到整数 (rgbC [3]) ÷ 3)到整数 (到整数 (rgbD [1])到整数 (rgbD [2])到整数 (rgbD [3]) ÷ 3)
' 调试输出 (G1, G2)
G = 取绝对值 (G1)取绝对值 (G2)
如果真 (G > 阀值)
temp.置某点颜色 (x, y, #黑色 )

变量循环尾 ()
变量循环尾 ()
返回 (temp.取位图数据 ())


i支持库列表   支持库注释   
BmpOperate位图操作支持库


作者: y2j423633    时间: 2017-6-29 22:02
能有个什么作用呢?




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4