Roberts边缘检测

afengzaixian

原图

上面软件界面上的图片就是边缘图
这个是按百度上介绍的算法写的也不知道写的对不对，不过转换出来的效果不咋滴，要是复杂点的图片找图形边缘就有些乱，纯色的图形效果比较好，具体效果那就自行测试好了，纯源码，没加任何添加剂

  

子程序名	返回值类型	公开	备 注
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	位图操作支持库

.版本 2<br /> .支持库 BmpOperate<br /> <br /> .子程序 Roberts, 字节集<br /> .参数 图片, 位图<br /> .参数 阀值, 整数型<br /> .参数 图片宽度, 整数型<br /> .参数 图片高度, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 G1, 整数型<br /> .局部变量 G2, 整数型<br /> .局部变量 G, 整数型<br /> .局部变量 temp, 位图<br /> .局部变量 rgbA, 字节集<br /> .局部变量 rgbB, 字节集<br /> .局部变量 rgbC, 字节集<br /> .局部变量 rgbD, 字节集<br /> <br /> temp.创建 (图片宽度, 图片高度, 24, #白色)<br /> .变量循环首 (1, 图片宽度, 1, x)<br />     .变量循环首 (1, 图片高度, 1, y)<br />         rgbA ＝ 到字节集 (图片.取某点颜色 (x, y))<br />         rgbB ＝ 到字节集 (图片.取某点颜色 (x ＋ 1, y ＋ 1))<br />         rgbC ＝ 到字节集 (图片.取某点颜色 (x ＋ 1, y))<br />         rgbD ＝ 到字节集 (图片.取某点颜色 (x, y ＋ 1))<br />         G1 ＝ 到整数 (到整数 (rgbA [1]) ＋ 到整数 (rgbA [2]) ＋ 到整数 (rgbA [3]) ÷ 3) － 到整数 (到整数 (rgbB [1]) ＋ 到整数 (rgbB [2]) ＋ 到整数 (rgbB [3]) ÷ 3)<br />         G2 ＝ 到整数 (到整数 (rgbC [1]) ＋ 到整数 (rgbC [2]) ＋ 到整数 (rgbC [3]) ÷ 3) － 到整数 (到整数 (rgbD [1]) ＋ 到整数 (rgbD [2]) ＋ 到整数 (rgbD [3]) ÷ 3)<br />         ' 调试输出 (G1, G2)<br />         G ＝ 取绝对值 (G1) ＋ 取绝对值 (G2)<br />         .如果真 (G ＞ 阀值)<br />             temp.置某点颜色 (x, y, #黑色)<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> .变量循环尾 ()<br /> 返回 (temp.取位图数据 ())

y2j423633

能有个什么作用呢?