run msbuild

Author: xieguigang

Data_science/Mathematica/SignalProcessing/MachineVision/RANSAC/PointWithDescriptor.vb

@@ -6,6 +6,7 @@ Imports std = System.Math
 ''' A point structure that includes its feature descriptor.
 ''' </summary>
 Public Structure PointWithDescriptor
+
     Public Pt As PointF
     ''' <summary>
     ''' (distance to centroid, angle)

Data_science/Mathematica/SignalProcessing/MachineVision/RANSAC/RANSACPointAlignment.vb

@@ -60,8 +60,11 @@
 Imports System.Drawing
 Imports Microsoft.VisualBasic.ApplicationServices.Terminal.ProgressBar
 Imports Microsoft.VisualBasic.ApplicationServices.Terminal.ProgressBar.Tqdm
+Imports Microsoft.VisualBasic.ComponentModel.Algorithm.base
 Imports Microsoft.VisualBasic.Imaging.Math2D
 Imports Microsoft.VisualBasic.Language
+Imports Microsoft.VisualBasic.Linq
+Imports Microsoft.VisualBasic.Math.SignalProcessing.HungarianAlgorithm
 Imports rand = Microsoft.VisualBasic.Math.RandomExtensions
 Imports std = System.Math
 
@@ -71,6 +74,13 @@ Imports std = System.Math
 ''' </summary>
 Public Module RANSACPointAlignment
 
+    Public Function MakeHungarianAssignment(sourcePoly As Polygon2D, targetPoly As Polygon2D, t As AffineTransform) As Integer()
+        Dim distanceMap As New DistanceMap(Of PointF)(t.ApplyTo(sourcePoly).AsEnumerable, targetPoly.AsEnumerable, AddressOf Distance)
+        Dim assignMap As Integer() = HungarianAlgorithm.FindAssignments(distanceMap.GetMap)
+
+        Return assignMap
+    End Function
+
     ''' <summary>
     ''' Aligns a source polygon to a target polygon using RANSAC.
     ''' </summary>

Microsoft.VisualBasic.Core/src/ComponentModel/Algorithm/base/DistanceMap.vb

@@ -19,6 +19,12 @@ Namespace ComponentModel.Algorithm.base
             End Get
         End Property
 
+        Public ReadOnly Property GetMap As Double()()
+            Get
+                Return distanceMap.ToArray
+            End Get
+        End Property
+
         ''' <summary>
         ''' NxN distance matrix
         ''' </summary>

Microsoft.VisualBasic.Core/src/Extensions/Math/Trigonometric/Trigonometric.vb

@@ -112,11 +112,23 @@ Namespace Math
             Return std.Atan2(p.Y, p.X)
         End Function
 
+        ''' <summary>
+        ''' Calculate the Euclidean distance between two points.
+        ''' </summary>
+        ''' <param name="a"></param>
+        ''' <param name="b"></param>
+        ''' <returns></returns>
         <MethodImpl(MethodImplOptions.AggressiveInlining)>
         Public Function Distance(a As Point, b As Point) As Double
             Return std.Sqrt((a.X - b.X) ^ 2 + (a.Y - b.Y) ^ 2)
         End Function
 
+        ''' <summary>
+        ''' Calculate the Euclidean distance between two points.
+        ''' </summary>
+        ''' <param name="a"></param>
+        ''' <param name="b"></param>
+        ''' <returns></returns>
         <MethodImpl(MethodImplOptions.AggressiveInlining)>
         Public Function Distance(a As PointF, b As PointF) As Double
             Return std.Sqrt((a.X - b.X) ^ 2 + (a.Y - b.Y) ^ 2)