Thema Datum  Von Nutzer Rating
Antwort
Rot Standortproblem mit VBA lösen
 19.12.2010 15:09:35 Bbayar
NotSolved
05.01.2011 17:36:04 KJ
NotSolved

Ansicht des Beitrags:
Von:
Bbayar		 Datum:
19.12.2010 15:09:35		 Views:
1663		 Rating:
     
Antwort:
  Ja
Thema:
Standortproblem mit VBA lösen
Hallo zusammen,

ich muss mich im rahmen einer Studiumsaufgabe mit einem Standortzuweisungsproblem beschäftigen.

Das Problem ist folgendes:

Es gibt 12 Standorte mit den folgenden Distanzen zu einander:
from/to 1 2 3 4 5 6 7 8 9 10 11 12
1 0 45 55 59 36 40 17 13 60 10 27 57
2 11 0 36 20 32 17 24 53 39 45 54 63
3 42 59 0 49 64 61 50 27 60 10 31 46
4 50 33 58 0 18 22 56 52 37 17 69 14
5 49 48 50 54 0 29 27 53 77 38 35 31
6 21 49 38 43 61 0 9 51 23 20 13 11
7 18 27 45 37 19 61 0 23 45 26 49 75
8 52 31 26 50 9 62 54 0 54 40 40 66
9 56 51 62 63 36 38 60 62 0 55 29 6
10 20 47 44 50 51 65 17 70 39 0 9 61
11 54 22 68 41 26 62 46 26 28 44 0 37
12 25 55 50 70 61 43 61 26 22 25 29 0

Diesen Standorten müssen Abteilungen /Standorte 1, bis 12 zugewiesen werden. Diese besitzen den folgenden Warenverkehr untereinander:
from/to 1 2 3 4 5 6 7 8 9 10 11 12
1 0 16 2 20 50 2 63 1 3 14 60 4
2 7 0 1 16 12 48 69 11 3 7 21 96
3 9 10 0 1 27 60 67 55 63 21 11 11
4 27 1 53 0 14 46 1 46 2 5 4 10
5 14 10 1 4 0 9 38 3 19 11 58 18
6 1 13 9 55 21 0 46 5 43 32 2 9
7 8 16 16 48 10 15 0 19 79 11 36 17
8 58 11 2 5 1 33 23 0 15 3 24 49
9 13 11 18 9 25 47 5 39 0 39 25 14
10 28 29 3 19 3 10 4 7 2 0 6 43
11 19 16 32 3 20 72 35 11 14 1 0 9
12 49 16 35 45 3 37 40 71 2 35 55 0

Das Ziel ist es nun, die Stationen so den Standortnen zuzuweisen, sodass die Zielfunktion (Distanzen * Warenverkehr) miimiert werden.. Zur Vereinfachung steht die folgende Tabelle zur Auswahl:
Location Number Facility Number Outgoing Flow Costs
1 7 8947
2 5 5215
3 10 5969
4 11 7362
5 8 8515
6 2 6772
7 1 7722
8 9 10028
9 3 14924
10 12 14892
11 4 7044
12 6 8106

Z 105496

Um diese Problem zu Lösun, soll nun eine Heuristik verwendet werden, wie bspe. Eine Simulated Annealing.
Hier soll ein Paarweiser Austausch von Stadionen´/facilities erfolgen. Ist das DElta negativ, also wird die Zielfunktion gesenkt, so soll dieser paarweise Austusch bestehen bleiben. Ist das DElta>0 so soll mit einer Wahrscheinlichkeit von P(DElta, T)= e^- DElta/T der Austausch erfolgen. Hierfür sollen wir auch eine Zufallszahl generieren, die ein Entsheidungskrieterium für das Austauschen oder nicht liern soll.
Im ersten Schritt: habe ich mit Hilfe der Funktion Zufallsbereich(1;12) zwei zufällige Zahlen ausgesucht. Nun will ich, dass diese Zahlen automazisch ausgetauscht werden und mit das DElta angezeigt wird.
Optimalerweise sollte VBA mir diesen paarweisen Austausch mehrmals auotmazisch tätigen um so sukzesiivsich an ein globales Optimum zu nähern.

Gibt es einen Profi, der vielleicht mein PRoblem verstanden hat und mir dabei helfen könnte? Bin leider eine Anfängeren im Thema VBA.

Vielen liben Dank im Voraus

LG
BAHAR

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Standortproblem mit VBA lösen
 19.12.2010 15:09:35 Bbayar
NotSolved
05.01.2011 17:36:04 KJ
NotSolved