Zahl in etwa gleiche Werte beliebiger Anzahl aufteilen

prinzip · 23. April 2018, 19:11

Hallo,

ich möchte einen variablen Wert von etwa 6 bis 15 in minimal 3 und maximal 4 aufteilen.

zum Beispiel:
7 ergibt 4;3
9 ergibt 3;3;3
10 ergibt 4;3;3
14 ergibt 4:4:3:3

Folgendes habe ich dafür bisher ausgetüftelt, was auch ganz gut funktioniert.

VB.NET-Quellcode

Dim LaufNr As Integer = 1
Dim NextLauf As Integer = 4
If (DataGridView1.Rows.Count - 1) Mod 4 = 0 OrElse (DataGridView1.Rows.Count - 2) Mod 4 = 0 Then
NextLauf = 3
End If
For I As Integer = 0 To DataGridView1.Rows.Count - 1
DataGridView1.Rows(I).Cells(1).Value = LaufNr ' Laufnummer setzen
If (I + 1) Mod NextLauf = 0 AndAlso I + 1 < DataGridView1.Rows.Count - 1 Then
LaufNr += 1
End If
Next

Damit wird aber leider nicht immer der höhere Wert nach hinten gesetzt, wie ich es in der Ausgabe gern hätte.
Gibt es dafür eine einfache Möglichkeit?

RodFromGermany · 23. April 2018, 19:18

@prinzip Das ist eine Diophantische Gleichung.
Schau da mal rein.

prinzip · 23. April 2018, 22:31

RodFromGermany schrieb:

Das ist eine Diophantische Gleichung.

Oh oh, da habe ich mir ja was vorgenommen. Ich muss gestehen, dass ich in Mathe eher eine -0 bin.

Im beigefügten Link sehe ich tatsächlich irgendwie den Wald vor lauter Bäume nicht. Grundsätzlich funktioniert meine Bastelei ja, eben nicht optimal.

Es geht übrigens darum, 6-15 Sportler (DataGridView1.Rows.Count) auf Läufe (LaufNr) mit 3-4 Läufern (NextLauf) aufzuteilen, wobei die höher besetzten Läufe möglichst an den Anfang gesetzt werden sollte. Das hatte ich im Eingangspost gar nicht erwähnt, ist aber eventuell dem Code zu entnehmen.

Ich danke Dir aber für das Stichwort zur Thematik.

Nils_Kr · 23. April 2018, 23:58

Ich würde das so machen:
1. durch 4 Teilen (=also jeweils 4 in eine Gruppe, bis nicht mehr genug da sind) und dann Fallunterscheidung:
Wenn Rest 0 dann fertig,
Wenn Rest 3 dann fertig,
Wenn Rest 2 einen aus der vorletzten Gruppe in die letzte und fertig
Wenn Rest 1 jeweils einen aus der vorletzten & vorvorletzen in die letzte und fertig.

Es ergibt sich automatisch, dass die 4er-Läufe am Anfang stehen.

prinzip · 24. April 2018, 00:27

Danke! Das klingt bis zur dritten Bedingung ganz plausibel.

Nils_Kr schrieb:

Wenn Rest 1 jeweils einen aus der vorletzten & vorvorletzen in die letzte und fertig

Hier wird jedoch eine zuvor gesetzte Reihenfolge nach bisheriger Leistung zerstört.

exc-jdbi · 24. April 2018, 00:43

siehe hier

VB.NET-Quellcode

Option Strict On
Option Explicit On
Public Module Module1
Public Sub Main()
Bsp2()
End Sub
Private Sub Bsp2()
Dim start As Int32 = 3
Dim finish As Int32 = 4
Dim maxsum As Int32 = 15
Dim res As New List(Of Int32())
Dim r = Enumerable.Range(start, finish - start + 1).OrderByDescending(Function(x) x)
Dim range = New List(Of Integer)(r)
For i As Int32 = start To maxsum
res.Add(Calc(range.ToList, New Int32(range.Count - 1) {}, i, 0))
Next
PrintOut(res.ToArray, range.ToArray, start)
Console.ReadKey()
End Sub
Private Function Calc(ByRef range As List(Of Int32), _
ByRef result As Int32(), _
ByVal summe As Int32, _
ByVal inc As Int32) As Int32()
If inc >= range.Count Then range.Clear() : Return range.ToArray
Dim rest As Int32 = summe Mod range(inc)
Dim anzahl As Int32 = summe \ range(inc)
result(inc) = anzahl
Return If(rest = 0, result, Calc(range, result, rest, inc + 1))
End Function
Private Sub PrintOut(ByVal iArr()() As Int32, ByVal range() As Int32, ByVal start As Int32)
If iArr IsNot Nothing AndAlso iArr.Length > 0 Then
For i As Int32 = 0 To iArr.Length - 1
If iArr(i).Length > 0 Then
Console.Write("Summe:{0} {1}", start + i, vbTab)
For j As Int32 = 0 To iArr(i).Length - 1
For k As Int32 = 0 To iArr(i)(j) - 1
Console.Write(range(j) & " ")
Next
Next
End If
If iArr(i).Length > 0 Then Console.WriteLine()
Next
End If
End Sub
End Module

Edit: Kleiner Fehler ist noch drin. Wenn ich morgen Zeit habe, werde ich es kurz machen.

Freundliche Grüsse

exc-jdbi

Nils_Kr · 24. April 2018, 09:40

prinzip schrieb:

Hier wird jedoch eine zuvor gesetzte Reihenfolge nach bisheriger Leistung zerstört.

Es gibt zig allgemein anerkannte Algorithmen, die ein bisher erarbeitetes Zwischenergebnis weiter optimieren, von der Zerstörung der bisherigen Leistung spricht da niemand.

prinzip · 24. April 2018, 10:14

Vielen dank @exc-jdbi, ich versuche es mal im einzelnen zu verstehen und den Nutzen daraus zu ziehen.
Für meine Verwendung müsste ich dann die Ziffernfolge (z.B. 4,3,3,3 für Summe 13) in einen Array packen und in der Schleife in meinem Schnipsel die Einzelwerte "NextLauf" zuweisen.
Im Moment begreife ich in deiner Routine noch nicht mal wirklich (auch mit F8), warum nur die für die Summe 3,4 ; 7,8 ; 11,12 ; 15,16 und 19,20 mit einem Abstand von 3 die Aufteilung ausgegeben wird. Das hängt sicherlich mit den Werten von 'start' und 'finish' zusammen, die da wohl ungewollt als Schrittzähler zum Einsatz kommen.

exc-jdbi schrieb:

Kleiner Fehler ist noch drin. Wenn ich morgen Zeit habe, werde ich es kurz machen.

Bezieht sich der kleine Fehler auf diesen "Schrittzähler"

exc-jdbi · 24. April 2018, 16:11

So noch kurz Zeit gefunden. Ist sicher nicht die eleganteste Lösung, aber sie funkst sicher.
Den NSC kriegst von hier.

Lösung

VB.NET-Quellcode

Option Strict On
Option Explicit On
Imports System.Text
Public Module Module1
Public Sub Main()
Dim start As Int32 = 3
Dim finish As Int32 = 5
Dim maxsum As Int32 = 20
Dim res As New List(Of Int32())
Dim r = Enumerable.Range(start, finish - start + 1).OrderByDescending(Function(x) x)
Dim range = New List(Of Integer)(r)
Dim resultlist() As String
For i As Int32 = start To maxsum
resultlist = GetResultList(range, i)
PrintOut(resultlist, range.ToArray, i)
Next
Console.ReadLine()
End Sub
Private Function GetResultList(ByVal range As List(Of Integer), ByVal maxsum As Int32) As String()
Dim s As Int32
Dim splitter() As String
Dim res As New List(Of String)
Dim maxlen = GetMaxLen(range, maxsum)
Dim rangelist = GetRangeList(range.Count, maxlen)
For i As Int32 = 0 To rangelist.Length - 1
s = 0
splitter = rangelist(i).Split({"-"c}, StringSplitOptions.RemoveEmptyEntries)
For j As Int32 = 0 To splitter.Length - 1
s += ((range(j) * CInt(splitter(j).ToString)))
Next
If s = maxsum Then
res.Add(rangelist(i))
End If
Next
Return res.ToArray
End Function
Private Function GetMaxLen(ByRef range As List(Of Integer), ByVal maxsum As Int32) As Int32
Dim maxlen As Int32 = 0
For i As Int32 = 0 To range.Count - 1
maxlen = Math.Max(maxlen, maxsum \ range(i))
Next
Return maxlen
End Function
Private Sub PrintOut(ByVal reslist() As String, ByVal range() As Int32, ByVal maxsum As Int32)
Dim splitter() As String
For Each s As String In reslist
Console.Write("Sum:{1}{0}{1}", maxsum, vbTab)
splitter = s.Split({"-"c}, StringSplitOptions.RemoveEmptyEntries)
For i As Int32 = 0 To splitter.Length - 1
If CInt(splitter(i)) = 0 Then Continue For
For j As Int32 = 0 To CInt(splitter(i)) - 1
Console.Write("{0} ", range(i))
Next
Next
Console.WriteLine()
Next
End Sub
Private Function GetRangeList(ByVal len As Int32, ByVal maxlen As Int32) As String()
Dim n As New NSC
Dim startBase As Int32 = 10
Dim targetBase As Int32 = maxlen + 1
Dim goal = MakeGoal(len, maxlen)
Dim inc As Int32 = 0
Dim digit = CInt(Int(Math.Log10(maxlen)) + 1)
Dim res As New List(Of String)
While True
inc += 1
Dim iNum = makeArrayNumInt(inc.ToString)
Dim resi() As Int32 = n.convert(iNum, startBase, targetBase)
Dim str = makeArrayNum(resi, len)
If Not res.Contains(str) Then
res.Add(str)
End If
If resi.SequenceEqual(goal) OrElse inc > Int32.MaxValue - 100 Then
Return res.ToArray
End If
End While
Return Nothing
End Function
Private Function makeArrayNum(ByVal b() As Integer, ByVal len As Int32) As String
Dim arr = New Int32(len - 1) {}
Array.Copy(b, 0, arr, len - b.Length, b.Length)
Return String.Join("-", arr.Select(Function(x) x.ToString).ToArray)
'Dim inc As Int32 = 0
'If arr.Length > b.Length Then
' For i As Int32 = (arr.Length - b.Length) To arr.Length - 1
' arr(i) = b(inc) : inc += 1
' Next
'Else : Array.Copy(b, arr, b.Length)
'End If
'Return String.Join("-", arr.Select(Function(x) x.ToString).ToArray)
End Function
Private Function MakeGoal(ByVal len As Int32, ByVal maxlen As Int32) As Int32()
If len > 0 AndAlso maxlen > 0 Then
Dim res As New List(Of Int32)
For i As Int32 = 0 To len - 1
res.Add(maxlen)
Next
Return res.ToArray
End If
Return Nothing
End Function
Private Function makeArrayNumInt(ByVal s As String) As Integer()
Return Encoding.UTF8.GetBytes(s).Select(Function(b) b - 48).ToArray()
End Function
End Module

Freundliche Grüsse

exc-jdbi

prinzip · 24. April 2018, 18:00

exc-jdbi schrieb:

kurz Zeit gefunden

Ich bin beeindruckt, was Du so mal eben innerhalb kurzer Zeit hin bekommst. :thumbup:

Das funktioniert einwandfrei für die Auflistungen und stellt mich vor ein neues Problem, welches ich noch gar nicht beachtet habe. Selbst in meiner ursprünglichen Limitierung auf 3 oder 4 gibt es bei 12 zwei Möglichkeiten. Entsprechend muss ich dann wohl doch besser fix entscheiden, welche Variante zum Einsatz kommt, zumal 10 wohl tatsächlich in 2 x 5 aufgeteilt werden soll.

Die Lösung wird dann wohl sein, dass ich mittels select case entsprechend der Teilnehmerzahl einen Array passend befülle, welcher dann in einer Schleife die Laufzuordnungen passend setzt. Für zehn feste Varianten (6-15 Teilnehmer) ist das wohl die beste Lösung.

Vielen Dank nochmal für die Umfangreiche Unterstützung. Bei Bedarf werde ich sicher darauf zurückgreifen.

BTW: Mich wundert, dass Du viel mit Int32 arbeitest. Ich habe bisher ausschließlich mit Integer gearbeitet. Ist das in VB.NET nicht das gleiche? Bei so kleinen Werten sollte es damit doch auch keine Problem geben.

exc-jdbi · 24. April 2018, 18:04

Wenn man im Object Browser nachschaut wird man feststellen, dass Integer von Int32 abgeleitet ist.
Es ist also genau das gleiche. Schreibt sich aber ein bisschen schneller bzw. kürzer.

Freundliche Grüsse

exc-jdbi

RodFromGermany · 25. April 2018, 06:21

exc-jdbi schrieb:

dass Integer von Int32 abgeleitet ist.

Nicht ganz.
Der .NET-Datentyp heißt System.Int32.
In VB.NET kann dafür synonym Integer verwendet werden, in C# int.

Zahl in etwa gleiche Werte beliebiger Anzahl aufteilen

Zahl in etwa gleiche Werte beliebiger Anzahl aufteilen

VB.NET-Quellcode

RodFromGermany schrieb:

Nils_Kr schrieb:

VB.NET-Quellcode

prinzip schrieb:

exc-jdbi schrieb:

VB.NET-Quellcode

exc-jdbi schrieb:

exc-jdbi schrieb:

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben