add clsUtli.DebugValue()

Author: tomitomi3

LibOptimization/Optimization/clsOptRealGAPCX.vb

@@ -149,7 +149,7 @@ Namespace Optimization
  Dim selectParents As List(Of clsPoint) = Nothing
  Me.SelectParentsForG3(3, selectParentsIndex, selectParents)
 
- 'PCS Crossover
+ 'PCX Crossover
  Dim newPopulation As List(Of clsPoint) = Me.CrossoverPCX(selectParents, Me.ChildrenSize, 3)
 
  'Replace(by G3)

LibOptimization/Util/clsUtil.vb

@@ -119,6 +119,20 @@ Namespace Util
  End If
  End Sub
 
+ ''' <summary>
+ ''' For Debug
+ ''' </summary>
+ ''' <param name="ai_results"></param>
+ ''' <remarks></remarks>
+ Public Shared Sub DebugValue(ByVal ai_results As List(Of clsPoint))
+ If ai_results Is Nothing OrElse ai_results.Count = 0 Then
+ Return
+ End If
+ For i As Integer = 0 To ai_results.Count - 1
+ Console.WriteLine("Eval :" & String.Format("{0}", ai_results(i).Eval))
+ Next
+ End Sub
+
  ''' <summary>
  ''' Check Criterion
  ''' </summary>