problem baue endlosschleife

[Mystic]

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?