Array - Verständnis und Performance

Sub t4() Dim arrDame(iDim - 1, iDim - 1) Dim iX, iY As Integer 'so funktionierts For iX = 0 To iDim - 1 For iY = 0 To iDim - 1 arrDame(iX, iY) = Sheets(1).Cells(iX + 1, iY + 1) Next Next Sheets(1).Range(Cells(iDim + 1, 1), Cells(2 * iDim, iDim)) = arrDame End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Renee,
besten Dank für den Link.
also iDim nimmt derzeit relativ kleine Werte zwischen 6 und 10 an (unterschiedliche Simulationen)
zu 1.
wie gesagt, prinzipiell klar ist


Const iDim =1 0
Dim arrDame
arrDame = Sheets(1).Range(Cells(1, 1), Cells(iDim, iDim))

Bei der Zuweisung wird arrDame initialisiert mit dem Dimensionen iDim*iDim, LBound und UBound geben mir für beide Dimensionen jeweils "1" und "10". Ist dieses Array nicht identisch mit einem so definierten Array?


Dim arrDame(1 To iDim, 1 To iDim)
arrDame = Sheets(1).Range(Cells(1, 1), Cells(iDim, iDim)) ' funktioniert nicht

In deinem Link habe ich dazu nichtsgefunden (überlesen?) Ist aber nur ein Nebenkriegsschauplatz (Verständnis), da nur einmal Zellen ausgelesen und geschrieben werden.
zu 2. Hauptproblem ist folgende Sub


Option Explicit
Const iDim = 10
Dim arrFeld(iDim - 1, iDim - 1) As Integer
Dim iZeiger(2) As Integer
Dim i, j, k As Integer
Dim Loesung As Integer
Dim Ausfueller As Long
Sub Ausfuellen()
Ausfueller = Ausfueller + 1
'alle Werte außer "2" auf "0" setzen
For i = 0 To iDim - 1
For j = 0 To iDim - 1
arrFeld(i, j) = (arrFeld(i, j) = 2) * -2
Next
Next
' vgl. Dameproblem, alle von Feldern mit Wert "2" erreichbaren Arrayfelder auf "1" setzen
For i = 0 To iDim - 1
For j = 0 To iDim - 1
If arrFeld(i, j) = 2 Then
For k = 0 To iDim - 1
arrFeld(i, k) = 1
arrFeld(k, j) = 1
If ((i - (j - k)) >= 0) And ((i - (j - k)) = 0) And ((i + (j - k))

Problem ist nicht das Wachsen des Arrays, da hier (Bsp. von 8*8 auf 10*10) die Laufzeit der Sub nur um Faktor 1,56 erhöht wird, sondern dass Algorithmus-bedingt die Anzahl der Aufrufe der Sub steigt entsprechent der Formel ((10-8)*(10-8))^2=16. Und deshalb suche ich eine performantere Alternative zu den geschachtelten For...Next-Schleifen. (An dem Algorithmus darf / kann ich im moment nichts ändern)
LG Harry

Hallo Renee,


d.h. eine solcher Array, darf nicht vordefiniert werden, sondern frau/man soll ihn durch eine Range-Zuweisung dimensionieren.

Klare Aussage -akzeptiere ich (hatte ich nur so klar nirgends gefunden) :-)
Dein Approach um das 8-Damen-Problem zu lösen kannst Du so schlicht vergessen.
Für die Lösung des Problems genügen 8 Waagrechte, 8 Senkrechte und 26 Diagonalen, d.h. insgesamt 42 Werte die True,False sein können (True wenn eine Dame sie besezt hat, False wenn frei). Mit einer simplen rekursiven Funktion (und einem impliziten Backtrack-Algorithmus) ist das im Nullkomma-Nix gelöst.
Schon klar, ich schreib dir dass auch in C++ oder Assembler (noch schneller ist "Google - 8 Damen-Problem" und schönste Lösung auswählen), aber jetzt kommt dass "Aber" ;-)
Ich versuche hier ein paar Leuten ein bissel Programmieren beizubringen (Problem in Teilprobleme zu zerlegen etc) und allähliche Optimierung des Algorithmus (Brute-Force -> intelligentere Lösungen) und da möchte ich halt einzelne Teile optimieren (und war hier an meine Grenze gestoßen.
Mit einer simplen rekursiven Funktion (und einem impliziten Backtrack-Algorithmus)
und dass kann ich den Leuten halt nicht am Anfang beibringen, sondern muss dass Ziel sein
LG Harry

Sub Nächstet4() Const idim As Integer= 5 Dim arrDame() arrDame = Sheets(1).Range(Sheets(1).Cells(1, 1), Sheets(1).Cells(idim, idim)).Value MsgBox arrDame(1, 1) MsgBox arrDame(UBound(arrDame, 1), UBound(arrDame, 2)) End Sub

Beliebteste Forumthreads (12 Monate)

Array - Verständnis und Performance

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread