Einzelnen Beitrag anzeigen

Benutzerbild von Mystic
Mystic

Registriert seit: 18. Okt 2003
Ort: Flerzheim
420 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: problem baue endlosschleife

  Alt 6. Jun 2006, 05:40
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?
Jan Steffens
Der Fachwortgenerator - 100% Schwachsinn --- Der UPnP Router Manager - Kommentare erwünscht!
  Mit Zitat antworten Zitat