opencvsharp 直方圖(CalcHist)
單通道 Private Sub Print_Hint_1(ByVal Output As Mat, ByVal PictureBox As PictureBox) Dim PrintOut As New Mat Output.CopyTo(PrintOut) Dim mats As Mat() = New Mat() {PrintOut} Dim hist As Mat = New Mat() Dim channels As Integer() = New Integer() {0} Dim histsize As Integer() = New Integer() {256} Dim range As Rangef() = {New Rangef(0.0F, 256.0F)} Dim mask As Mat = New Mat() Cv2.CalcHist(mats, channels, mask, hist, 1, histsize, range) Dim color As Scalar() = New Scalar() {Scalar.Blue, Scalar.Green, Scalar.Red} For i As Integer = 0 To 256 - 1 Dim len As Integer = CInt(((hist.Get(Of Single)(i) / 10000) * Output.Rows)) ...