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
|