Zitat:
Hast du hier nicht einfach nur das minRange vergessen?
Nein, nicht direkt.
Genauer müsste die Procedure so aussehen:
Delphi-Quellcode:
function RandomFromTo(minRange, maxRange: Integer): integer;
const
iSigns: array[0..1] of Integer = (1, -1);
begin
Result := (minRange + Random((maxRange-minRange) + 1)) * iSigns[Random(2)];
end;
Das bringt aber leider nix da das Resultat eher komisch im Ergebnis wie oben beschrieben ausschaut.
Absolut nicht Perfekt aber Funktionsfähig wie gewünscht wird es zur Zeit so errechnet:
Delphi-Quellcode:
function MyRandom(minRange, maxRange: Integer): TVector_3D;
const
iSigns: array[0..1] of Integer = (1, -1);
begin
Result.X := cos((minRange + Random((maxRange) + 1)) * iSigns[Random(2)])*minRange;
Result.Y := sin((minRange + Random((maxRange) + 1)) * iSigns[Random(2)])*minRange;
Result.Z := cos((minRange + Random((maxRange) + 1)) * iSigns[Random(2)])*minRange;
end;
PS zum PS.:
Zitat:
PS: Bei deinen Downloads meckert mein Kaspersky: Das angeforderte Objekt ist mit folgenden Viren INFIZIERT: Multi.Packed
Das kann durchaus vorkommen das ein Antivierenprogramm die Exe bemeckert. Sie ist in der Tat gepackt aber VIERENFREI !
Selbst wenn die Datei mit UPX gepackt wird meckert mein AntiVir mit akt. Updates.
Leider bekomme ich auf programiertechnische Weise die App noch nicht kleiner als 120 KB.
