diff --git a/Distribute_computing/GridDynamics_plugins/CalculateFitness.vb b/Distribute_computing/GridDynamics_plugins/CalculateFitness.vb index 04afa6e..6774143 100644 --- a/Distribute_computing/GridDynamics_plugins/CalculateFitness.vb +++ b/Distribute_computing/GridDynamics_plugins/CalculateFitness.vb @@ -129,7 +129,7 @@ Public Module CalculateFitness Dim grids As GridMatrix() = readJSON(Of GridMatrix())(genomes) Dim trainingData = readJSON(Of NamedValue(Of Double())())(trainingSet) _ .Select(Function(d) - Return New TrainingSet With { + Return New TrainingSet(Nothing) With { .targetID = d.Name, .Y = d.Description, .X = d.Value diff --git a/Distribute_computing/GridDynamics_plugins/test/Module1.vb b/Distribute_computing/GridDynamics_plugins/test/Module1.vb index af568bc..3d78664 100644 --- a/Distribute_computing/GridDynamics_plugins/test/Module1.vb +++ b/Distribute_computing/GridDynamics_plugins/test/Module1.vb @@ -11,7 +11,7 @@ Module Module1 End Sub Sub testGrid() - Dim vec As Vector = 22500.Sequence.Select(Function(i) CDbl(i)).AsVector + Dim vec As Vector = 500.Sequence.Select(Function(i) -CDbl(i)).AsVector Dim filePath$ = "./test_grid.dat" Dim grid As New GridSystem With { .AC = -999999,