Zunächst vielen vielen Dank für die Mühe, grenzgaenger!
Wo binde ich denn program Project1; ein? Vor der
unit funktioniert auch nicht..
Also zu dem geposteten zweiten Beispiel erst. Ausgabe in eine Textdatei wäre glaub ich super! Tut mir leid, wenn ich nochmal nachfrage - aber wofür stehen die Vektoren genau? Ist das sowas wie
A * x = b und alles drei sind dann Vektoren? A die Koeffizienten, x die Unbekannten und b das Ergebnis der Gleichungen?
Also mit diesen zwei Vektoren ist V1 dann der Koeffizientenvektor und V2..? Sorry, versteh das Ganze grad nicht so..
Also die Gleichungen ergeben sich aus Schleifen, so wie
Delphi-Quellcode:
set Z := { 1 to 9 };
set A := Z*Z;
var x[A*Z] binary;
subto jedesFeldEineZahl: forall <i,j> in A do
sum <k> in Z do x[i,j,k] == 1;
subto quadrate1: forall <k> in Z do
sum <i,j> in {1,2,3}*{1,2,3} do x[i,j,k] == 1;
...
Direkt auf Delphi übertragen kann man das fürchte ich aber nicht, oder? Demnach sind das dann auch sehr viele Gleichungen..
Was ist denn ein flatfile?
Bei dem 3. Beispiel erhalte ich wieder Fehler..sEdit kennt mein Delphi nicht, sowas wie "Class TsSpinEdit" findet er auch nicht
Zitat:
//2 Zeilen mit 3 Spalten
setlength(M, 2, 3);
M[0, 0] := 1; M[1, 0] := 2;
M[0, 1] := 2; M[1, 1] := -1;
M[0, 2] := 1; M[1, 2] := 1;
Das bedeutet, dass die Zeilen die Unbekannten und die Spalten die Gleichungen sind?
Bei beispiel 4 leider ein Error,Property Memo.ExplicitWidth does not exist? Also die beiden Scrollfelder unter Zeile 1 und Zeile 2 fehlen bei mir