Sub AppStart (Args() As String)
Log("Hello world!!!")
Dim NumPoints As Int = 10000
Dim X(NumPoints) As Int
Dim Y(NumPoints) As Int
For I = 0 To NumPoints - 1
X(I) = Rnd(-500000, 500000)
Y(I) = Rnd(-500000, 500000)
Next
Log(DateTime.Now)
Dim StartTime As Long = DateTime.Now
Dim NumBurls As Int = 1000
Dim NumCalcs As Int = 0
For Burl = 1 To NumBurls
Dim FindX As Long = Rnd(-510000, 510000)
Dim FindY As Long = Rnd(-510000, 510000)
Dim ClosestI As Int
Dim ClosestDistanceSquared As Long
For I = 0 To NumPoints - 1
Dim DX As Long = FindX - X(I)
Dim DY As Long = FindY - Y(I)
Dim DistanceSquared As Long = DX * DX + DY * DY
If I = 0 Then
ClosestI = I
ClosestDistanceSquared = DistanceSquared
else If DistanceSquared < ClosestDistanceSquared Then
ClosestI = I
ClosestDistanceSquared = DistanceSquared
End If
NumCalcs = NumCalcs + 1
Next
'''Log(Burl & tab & FindX & TAB & FindY & TAB & ClosestI & TAB & ClosestDistanceSquared)
If Burl Mod 100 = 0 Then Log(Burl & TAB & (DateTime.Now - StartTime))
Next
Dim EndTime As Long = DateTime.Now
Log(DateTime.Now)
Log(((EndTime - StartTime) / NumBurls) & TAB & NumCalcs & TAB & ClosestI & TAB & ClosestDistanceSquared)
Log(NumberFormat(NumCalcs / ((EndTime - StartTime) / 1000), 1, 0))
End Sub
