欢迎来到尧图网

客户服务 关于我们

您的位置:首页 > 科技 > 名人名企 > EmguCV学习笔记 VB.Net 8.2 分水岭法 watershed

EmguCV学习笔记 VB.Net 8.2 分水岭法 watershed

2024/11/30 12:54:35 来源:https://blog.csdn.net/UruseiBest/article/details/141180136  浏览:    关键词:EmguCV学习笔记 VB.Net 8.2 分水岭法 watershed

 版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。

EmguCV是一个基于OpenCV的开源免费的跨平台计算机视觉库,它向C#和VB.NET开发者提供了OpenCV库的大部分功能。

教程VB.net版本请访问:EmguCV学习笔记 VB.Net 目录-CSDN博客

教程C#版本请访问:EmguCV学习笔记 C# 目录-CSDN博客

笔者的博客网址:https://blog.csdn.net/uruseibest

教程配套文件及相关说明以及如何获得pdf教程和代码,请移步:EmguCV学习笔记

学习VB.Net知识,请移步: vb.net 教程 目录_vb中如何用datagridview-CSDN博客

 学习C#知识,请移步:C# 教程 目录_c#教程目录-CSDN博客

8.2 分水岭法 watershed

Watershed算法是一种图像处理算法,它是基于形态学的图像分割方法。在实现中,Watershed算法通常需要先对图像进行预处理,例如去除噪声、边缘检测等操作,以便更好的构建隔板。在填充山谷时,可以使用队列或其他数据结构来实现,以便管理待处理的像素。对于连通的区域,可以使用标记或者颜色来区分。最终得到的分割结果可以用于物体识别、形状分析等应用场景。

CvInvoke.Watershed方法用于执行图像的分水岭分割操作。该方法声明如下:

Public Shared Sub Watershed (

         image As IInputArray,

         markers As IInputOutputArray

)

参数说明:

  1. image:输入图像,必须是CV8U三通道彩色图。
  2. markers:指定的标记图像,这是一个CV32S的单通道图像,并且与输入图像具有相同的尺寸。可以通过FindContours和DrawContours来获得这个图像,使用像数值1、2、3……作为连通分量,来粗略勾勒出图像期望分割的区域,而未确定的区域未标记为0。

该方法没有返回值,而是直接在markers图像上进行分割操作。最终输出的图像,两个区域间使用-1作为分割线。

【代码位置:frmChapter8】Button4_Click、getRadomBgr

   '分水岭法 watershed

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        Dim m As New Mat("c:\learnEmgucv\tower.jpg", ImreadModes.Color)

        '灰度

        Dim mgray As New Mat

        CvInvoke.CvtColor(m, mgray, ColorConversion.Bgr2Gray)

        '滤波

        Dim mgaussian As New Mat

        CvInvoke.GaussianBlur(mgray, mgaussian, New Drawing.Size(5, 5), 2)

        ImageBox1.Image = mgaussian

        '边缘检测

        Dim mcanny As New Mat

        CvInvoke.Canny(mgaussian, mcanny, 60, 120)

        'ImageBox2.Image = mcanny

        '获取轮廓

        Dim contours As New VectorOfVectorOfPoint

        Dim hierarchy As New VectorOfRect

        CvInvoke.FindContours(mcanny, contours, hierarchy, RetrType.Tree, ChainApproxMethod.ChainApproxNone)

        Dim mmark As New Mat

        mmark = Mat.Zeros(mcanny.Rows, mcanny.Cols, DepthType.Cv32S, 1)

        '仅为查看轮廓使用

        Dim mcontours As New Mat(mcanny.Rows, mcanny.Cols, DepthType.Cv8U, 1)

        For i As Integer = 0 To contours.Size - 1

            '标记连通分量索引

            CvInvoke.DrawContours(mmark, contours, i, New MCvScalar(i), 1, LineType.EightConnected, hierarchy)

            '仅为查看轮廓使用

            CvInvoke.DrawContours(mcontours, contours, i, New MCvScalar(255), 1, LineType.EightConnected, hierarchy)

        Next

        '仅为查看轮廓使用

        CvInvoke.Imshow("mcontours", mcontours)

        'mmark32S,显示不了的

        'CvInvoke.Imshow("mmark", mmark)

        '分水岭法

        CvInvoke.Watershed(m, mmark)

        '仅演示,watershed后的数据

        Dim mc As New Mat

        mc = mmark.Clone

        '转为可以显示的CV8U

        mc.ConvertTo(mc, DepthType.Cv8U)

        CvInvoke.Imshow("mc", mc)

        '使用MatrixImage便于生成图像(Mat操作像素点比较麻烦)

        Dim matrwater As New Matrix(Of Int32)(mmark.Rows, mmark.Cols)

        mmark.CopyTo(matrwater)

        Dim imgwater As New Image(Of Bgr, Byte)(mmark.Cols, mmark.Rows)

        '为每个区域填充不同的颜色

        Dim HSpointcolor As New Hashtable()       'index,bgr

        Dim count As Integer = 0

        '对每个像素点操作

        For i As Integer = 0 To matrwater.Rows - 1

            For j As Integer = 0 To matrwater.Cols - 1

                '获得连通分量(像素点值)

                Dim index As Int32 = matrwater(i, j)

                '如果是区域的分割线

                If index = -1 Then

                    imgwater.Data(i, j, 0) = 255

                    imgwater.Data(i, j, 1) = 255

                    imgwater.Data(i, j, 2) = 255

                Else

                    Dim pointcolor As Bgr

                    '检查是否已经存在索引对应的颜色

                    If HSpointcolor.ContainsKey(index) Then

                        pointcolor = HSpointcolor(index)

                    Else

                        '获得随机颜色

                        pointcolor = getRadomBgr()

                        '将已经使用的随机颜色加入List

                        HSpointcolor.Add(index, pointcolor)

                        count += 1

                    End If

                    '像素点填充颜色

                    imgwater.Data(i, j, 0) = pointcolor.Blue

                    imgwater.Data(i, j, 1) = pointcolor.Green

                    imgwater.Data(i, j, 2) = pointcolor.Red

                End If

            Next

        Next

        '输出使用分水岭法后的结果

        CvInvoke.Imshow("imgwater", imgwater)

    End Sub

    '获得随机颜色

    Private Function getRadomBgr() As Bgr

        Dim rand As New Random(Now.Millisecond)

        Dim b As Byte = rand.Next(0, 256)

        Dim g As Byte = rand.Next(0, 256)

        Dim r As Byte = rand.Next(0, 256)

        Return New Bgr(b, r, g)

End Function

输出结果如下图所示:

图8-4 分水岭法使用随机颜色填充

版权声明:

本网仅为发布的内容提供存储空间,不对发表、转载的内容提供任何形式的保证。凡本网注明“来源:XXX网络”的作品,均转载自其它媒体,著作权归作者所有,商业转载请联系作者获得授权,非商业转载请注明出处。

我们尊重并感谢每一位作者,均已注明文章来源和作者。如因作品内容、版权或其它问题,请及时与我们联系,联系邮箱:809451989@qq.com,投稿邮箱:809451989@qq.com