Warum machst du die Bestimmung nicht so?
Delphi-Quellcode:
(*-----Bestimmen--von--m-----------------------------*)
function m_bestimmen(min_m:integer; m_max:integer):integer;
begin
// Liefert Zufallszahl m mit min_m >= m <= m_max
result := random(m_max - min_m + 1) + min_m;
end;
Zu der Endlosschleife:
Delphi-Quellcode:
NotOK := ((a1 = a[locali]) and (b1 = b[locali])) or // V1 = V[I] oder
((b1 = a[locali]) and (a1 = b[locali])); // V1 = -V[I]
Sollte das dann nicht so heissen?
Delphi-Quellcode:
NotOK := ((a1 = a[locali]) and (b1 = b[locali])) or // V1 = V[I] oder
((a1 = -a[locali]) and (b1 = - b[locali])); // V1 = -V[I]
Ansonsten testest du ja im zweiten Fall auf den Vektor, der an f(x)=x gespiegelt ist, oder sehe ich das falsch?