Kurz und Knapp:
r := Random * (rHigh - rLow) + rLow
[add]
Delphi-Quellcode:
function RandomDouble(loDouble, hiDouble: Double): Double;
begin
if loDouble > hiDouble then
Result := Random * (loDouble - hiDouble) + hiDouble
else Result := Random * (hiDouble - loDouble) + loDouble;
end;
[add2]
wobei es doch mathematisch egal sein sollte und demnach das reichen dürfe
Delphi-Quellcode:
function RandomDouble(loDouble, hiDouble: Double): Double;
begin
Result := Random * (hiDouble - loDouble) + loDouble;
end;
also ob von der Größten abgezogen würde oder zur Kleinen dazuadiert ... müßte auf's
Selbe Gleiche rauskommen
.
[add3]
also nicht das selbe Rechenergebnis, aber der selbe Zahlenbereich und da das Ergebnis eh "Zufall" ist, ist es ja egal, ob da was anderes bei rauskommt
[add4]
für
loDouble <= Result < hiDouble