Rekursiver Aufruf zum Sortieren von Points.

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von NegativeProgrammer.

    Rekursiver Aufruf zum Sortieren von Points.

    Geehrtes Forum,
    ich habe eine Klasse geschrieben, der das Sortieren von X,Y-Wertepaaren übernimmt, welches ohne Umweg nicht ordnungsgemäß verläuft.
    Gedacht hab ich mir, die X,Y Fragmente zu addieren, und sie nach ihrer Größe nach zu sortieren, was auch klappte...

    Beispiel:

    Quellcode

    1. {0,0}
    2. {2,2}
    3. {1,1}

    wird zu

    Quellcode

    1. {0,0}
    2. {1,1}
    3. {2,2}

    das Problem hierbei, wenn der X-Wert dem Restwert des Arrays kleiner war, so waren die Endergebnisse nicht mehr diesselben...
    Deswegen dachte ich mir, ich speichere die Ursprungswerte in ein anderes Array, und vergleiche durch Rekursion ob sie mit dem Sortierten die selbe Summe ergeben...
    So,

    VB.NET-Quellcode

    1. Imports System.Math
    2. Imports System.Drawing
    4. Public Class SortPoints
    5. Public Sub New(ArrayOfPointFObj As PointF())
    6. ArrayOfPointF = ArrayOfPointFObj
    8. End Sub
    10. Private ArrayOfPointF(3) As PointF
    12. Private CurrentPointF(3) As PointF
    14. Private ListOfSingles As New List(Of Single)
    15. Private SortedSingles(3) As Single
    17. Private Counter As Integer = -1
    19. Public Function SortPoints() As PointF()
    20. For i = 0 To ArrayOfPointF.Length - 1
    21. ListOfSingles.Add(ArrayOfPointF(i).X + ArrayOfPointF(i).Y)
    22. CurrentPointF(i) = ArrayOfPointF(i)
    23. Next
    24. ListOfSingles.Sort()
    25. ListOfSingles.CopyTo(SortedSingles)
    26. Return DoAction()
    27. End Function
    29. Private Function DoAction() As PointF()
    31. Counter += 1
    33. For j = 0 To ArrayOfPointF.Length - 1
    34. If SortedSingles(Counter) = CurrentPointF(j).X + CurrentPointF(j).Y Then
    35. ArrayOfPointF(Counter) = CurrentPointF(j)
    36. ElseIf Counter >= ArrayOfPointF.Length - 1 Then
    38. Else
    39. DoAction()
    41. End If
    42. Next
    43. Return ArrayOfPointF
    44. End Function
    46. End Class

    Doch es sortiert nicht ) ; ...

    Hoffe auf Antworten.
    Grüsse...

Facebook
Telefonspende