두 번째로 낮은 값을 반환하는 반복 프로세스

Question

저는 vb.net을 처음 사용하기 때문에 몇 시간 동안 검색 한 후에도 특정 도움말을 찾을 수 없습니다.

나는 세 개의 열이있는 데이터 표를 가지고 있는데, 열 1은 "point id"이고 열 2는 "x 좌표"이며 열 3은 "y 좌표"입니다. 네 번째 열을 추가 한 다음이 값을 반복 프로세스의 두 번째로 낮은 값으로 채워야합니다.

반복되는 프로세스는 그 지점에서 다른 지점까지의 거리를 찾는 것이고 가장 낮은 값은 0 (자체와의 거리)이므로 두 번째로 낮은 값을 반환합니다. 점 1과 점 2 사이의 거리에 대한 수학은 sqrt입니다 (((x2-x1) (x2-x1)) + ((y2-y1) (y2-y1)))).

나는 하나의 값을 되 돌리는 반복적 인 과정에서 반복적 인 과정을 수행하는 것을 성급하게보고있다.

은 어떤 도움이 크게 apprecited 될 것이다 :

Answer 1

으로 반복 테이블에서 행을. 그런 다음 각 행에 대해 테이블의 행을 반복합니다. 그러나 기본 반복이 현재 실행중인 행에 도달하면 해당 반복을 건너 뛸 수 있습니다. 또한 거리는 쌍의 점 사이에 있으므로 모든 거리를 얻으려면 테이블의 행 절반 만 반복하면됩니다.

코드를 구현하는 방법에 대한 자세한 정보를 게시하면 일부 코드로는 도움이 될 수도 있지만 현재와 같이 테이블의 종류 나 사용 방법을 말하지 않아도됩니다. 프로그램이 설정되어 있으므로 더 구체적으로 설명하기가 어렵습니다.

Answer 2

가능한 해결책은 [테스트되지 않음]입니다. AddNearestColumn() 메서드는 각 행을 반복하며 테이블의 다른 점까지의 거리 목록을 가져옵니다. 그런 다음 목록을 반복하고 가장 작은 값을 얻습니다. 수동으로 반복하지 말고 distances.Sort()을 AddNearestColumn()에 사용해야합니다.하지만 그 대신 떠날 것입니다. :-)

Public Sub ProcessTable(table As Data.DataTable) 
    AddNearestColumn(table) 
End Sub 

Private Sub AddNearestColumn(table As Data.DataTable) 
    table.Columns.Add("Nearest", GetType(Double)) 
    For Each r As Data.DataRow In table.Rows 
     Dim distances As List(Of Double) = GetDistancesFromPoint(table, r) 
     Dim nearest As Double = Double.MaxValue 
     For Each distance As Double In distances 
      If (distance < nearest) Then nearest = distance 
     Next 
     r.Item("Nearest") = nearest 
    Next 
End Sub 

Private Function GetDistancesFromPoint(table As Data.DataTable, referenceRow As Data.DataRow) As List(Of Double) 
    Dim output As New List(Of Double) 
    For Each r As Data.DataRow In table.Rows 
     Dim referenceId As String = CStr(referenceRow.Item("ID")) 
     Dim rowId As String = CStr(r.Item("ID")) 
     If (rowId = referenceId) Then Continue For 
     Dim x1 As Double = Convert.ToDouble(referenceRow.Item("X")) 
     Dim y1 As Double = Convert.ToDouble(referenceRow.Item("Y")) 
     Dim x2 As Double = Convert.ToDouble(r.Item("X")) 
     Dim y2 As Double = Convert.ToDouble(r.Item("Y")) 
     output.Add(Math.Sqrt(((x2 - x1) * (x2 - x1)) + ((y2 - y1) * (y2 - y1)))) 
    Next 
    Return output 
End Function