Upload

sziva_anyagai/Autokereskedes_halmazokkal.mod

@@ -0,0 +1,44 @@
+#Szenved<EFBFBD>ly<EFBFBD>nk az aut<EFBFBD>k gy<EFBFBD>jt<EFBFBD>se.
+#Jelenleg lehet<EFBFBD>s<EFBFBD>g<EFBFBD>nk van aut<EFBFBD>kat v<EFBFBD>s<EFBFBD>rolni, <EFBFBD>s 5 egym<EFBFBD>st k<EFBFBD>vet<EFBFBD> napon tervezz<EFBFBD>k is megtenni ezt. Minden nap pontosan egy aut<EFBFBD>t tervez<EFBFBD>nk venni, azonban az aut<EFBFBD>knak minden egyes nap v<EFBFBD>ltozik az <EFBFBD>ruk a vil<EFBFBD>gpiaci helyzett<EFBFBD>l f<EFBFBD>gg<EFBFBD>en.
+#Milyen sorrendben v<EFBFBD>s<EFBFBD>roljuk meg az aut<EFBFBD>kat, hogy a kollekci<EFBFBD>nk teljes legyen <EFBFBD>s a lehet<EFBFBD> legkisebb legyen a k<EFBFBD>lts<EFBFBD>g<EFBFBD>nk?
+
+# 			Hetfo	Kedd	Szerda	Csutortok		Pentek
+#Wartburg	60000	65000	61000	66000		60000
+#Lada		50000	55000	63000	60000		52000
+#Kispolski	30000	32000	33000	30000		27000
+#Trabant		70000	65000	77000	85000		100000
+#Skoda		65000	70000	75000	90000		70000
+
+
+#Megold<EFBFBD>s:
+set Cars;
+set Days;
+param price {Cars, Days};
+
+var buy{Cars, Days} binary;
+
+s.t. ExactlyOneCarEachDay{d in Days}: sum{c in Cars} buy[c,d] =1;
+
+s.t. EachCarExactlyOnce {c in Cars}: sum {d in Days} buy[c,d] =1;
+
+minimize TotalCost: sum {c in Cars, d in Days} buy[c,d]*price[c,d];
+
+solve;
+printf "\n\n";
+for {c in Cars, d in Days: buy[c,d]==1}
+printf "%10s:\t%s%d\n", c,d, price[c,d];
+printf "\n\n";
+
+data;
+set Days:= Hetfo Kedd Szerda Csutortok Pentek;
+set Cars:= Wartburg Lada Kispolski Trabant Skoda;
+
+param price:
+			Hetfo	Kedd	Szerda	Csutortok	Pentek:=
+Wartburg	60000	65000	61000	66000		60000
+Lada		50000	55000	63000	60000		52000
+Kispolski	30000	32000	33000	30000		27000
+Trabant		70000	65000	77000	85000		100000
+Skoda		65000	70000	75000	90000		70000
+;
+end;