You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
151 lines
3.8 KiB
151 lines
3.8 KiB
#Region "Microsoft.VisualBasic::644655adc7f77f6ef32b35710752b7fc, Distribute_computing\old\GridDynamics_plugins\test\Module1.vb"
|
|
|
|
' Author:
|
|
'
|
|
' asuka (amethyst.asuka@gcmodeller.org)
|
|
' xie (genetics@smrucc.org)
|
|
' xieguigang (xie.guigang@live.com)
|
|
'
|
|
' Copyright (c) 2018 GPL3 Licensed
|
|
'
|
|
'
|
|
' GNU GENERAL PUBLIC LICENSE (GPL3)
|
|
'
|
|
'
|
|
' This program is free software: you can redistribute it and/or modify
|
|
' it under the terms of the GNU General Public License as published by
|
|
' the Free Software Foundation, either version 3 of the License, or
|
|
' (at your option) any later version.
|
|
'
|
|
' This program is distributed in the hope that it will be useful,
|
|
' but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
' GNU General Public License for more details.
|
|
'
|
|
' You should have received a copy of the GNU General Public License
|
|
' along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
|
|
' /********************************************************************************/
|
|
|
|
' Summaries:
|
|
|
|
' Module Module1
|
|
'
|
|
' Sub: Main, testGrid, testPopulation, testVector
|
|
'
|
|
' /********************************************************************************/
|
|
|
|
#End Region
|
|
|
|
Imports GridDynamics_plugins
|
|
Imports Microsoft.VisualBasic.Linq
|
|
Imports Microsoft.VisualBasic.MachineLearning.Darwinism.NonlinearGridTopology
|
|
Imports Microsoft.VisualBasic.Math.LinearAlgebra
|
|
|
|
Module Module1
|
|
|
|
Sub Main()
|
|
|
|
Call testPopulation()
|
|
|
|
' Call testGrid()
|
|
|
|
End Sub
|
|
|
|
Sub testPopulation()
|
|
Dim vec As Vector = 22500.Sequence.Select(Function(i) -CDbl(i)).AsVector
|
|
Dim filePath$ = "./test_pop.zip"
|
|
Dim grid As New GridSystem With {
|
|
.AC = -999999,
|
|
.A = vec,
|
|
.C = vec.Sequence _
|
|
.Select(Function(null)
|
|
Return New Correlation With {.B = vec, .BC = -99}
|
|
End Function) _
|
|
.ToArray
|
|
}
|
|
|
|
Dim pop As New PopulationZip(filePath, 0, 0)
|
|
|
|
Call pop.Add(grid)
|
|
Call pop.Add(grid)
|
|
|
|
Dim newGrid = pop.GetIndividual(1)
|
|
|
|
Dim X As Vector = Vector.rand(-10, 10, vec.Length)
|
|
|
|
Dim result1 = grid.Evaluate(X)
|
|
Dim result2 = newGrid.Evaluate(X)
|
|
|
|
|
|
Console.WriteLine(result1 = result2)
|
|
|
|
Pause()
|
|
End Sub
|
|
|
|
Sub testGrid()
|
|
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,
|
|
.A = vec,
|
|
.C = vec.Sequence _
|
|
.Select(Function(null)
|
|
Return New Correlation With {.B = vec, .BC = -99}
|
|
End Function) _
|
|
.ToArray
|
|
}
|
|
|
|
Using file = filePath.Open
|
|
Call grid.Serialize(file, 2048)
|
|
End Using
|
|
|
|
Dim newGrid As GridSystem
|
|
|
|
Using file = filePath.Open
|
|
|
|
newGrid = file.LoadGridSystem
|
|
|
|
End Using
|
|
|
|
Dim X As Vector = Replicate(1.0, vec.Length).AsVector
|
|
|
|
Dim result1 = grid.Evaluate(X)
|
|
Dim result2 = newGrid.Evaluate(X)
|
|
|
|
|
|
Console.WriteLine(result1 = result2)
|
|
|
|
Pause()
|
|
End Sub
|
|
|
|
Sub testVector()
|
|
Dim vec As Vector = 50000.Sequence.Select(Function(i) CDbl(i)).AsVector
|
|
Dim filePath$ = "./test.dat"
|
|
|
|
|
|
Using file = filePath.Open
|
|
Call vec.Serialize(file)
|
|
End Using
|
|
|
|
Dim vecNew As Vector
|
|
|
|
Using file = filePath.Open
|
|
|
|
vecNew = file.LoadVector
|
|
|
|
End Using
|
|
|
|
|
|
Dim oldSum = vec.Sum
|
|
Dim newSum = vecNew.Sum
|
|
|
|
Console.WriteLine(oldSum = newSum)
|
|
|
|
Pause()
|
|
End Sub
|
|
|
|
End Module
|