Hallo,
also ich habe mir gedacht, wieso immer nur das ganz zufällige RandomRange, wo die Zahlen so völlig gleichverteilt sind.
Eine Lineare Zahlenverteilung wäre doch schön.
Also so was wäre toll
Zitat:
0 0
1 100
2 200
3 300
4 400
5 500
6 600
7 700
8 800
9 900
10 1000
Also habe ich mich daran gemacht:
Der Code:
Erstmal für Real Zufallszahlen
Delphi-Quellcode:
{-----------------------------------------------------------------------------
Description:
Procedure: RandomRRange
Arguments: min,max:real; nachkomma:integer=5; IncludeMin:boolean=true; IncludeMax:boolean=true
Result: real
Detailed description:
-----------------------------------------------------------------------------}
function RandomRRange(min,max:real; nachkomma:integer=5; IncludeMin:boolean=true; IncludeMax:boolean=true):real;
begin
min:=min*power(10,nachkomma);
max:=max*power(10,nachkomma);
if IncludeMin then
min:=min-1;
if IncludeMax then
max:=max+1;
result:=randomrange(round(min),round(max))/power(10,nachkomma);
end;
Dann das besondere
Delphi-Quellcode:
{-----------------------------------------------------------------------------
Description:
Procedure: RandomRRange
Arguments: min,max:real; IncreaseProbability, DecreaseProbability:boolean; nachkomma:integer=5; IncludeMin:boolean=true; IncludeMax:boolean=true
Result: real
Detailed description: Falls IncreaseProbability dann kommen die größeren Zahlen linear häufiger vor als die kleineren
Falls DecreaseProbability dann kommen die kleineren Zahlen linear häufiger vor als die größeren
Falls beide, dann kommen die mittlere Zahlen linear häufiger vor als die größeren und kleineren
-----------------------------------------------------------------------------}
function RandomRRange(min,max:real; IncreaseProbability, DecreaseProbability:boolean; nachkomma:integer=5; IncludeMin:boolean=true; IncludeMax:boolean=true):real;
begin
result:=RandomRRange(min,max,nachkomma,IncludeMin, IncludeMax);
if IncreaseProbability and not DecreaseProbability then
result:=RandomRRange(min+RandomRRange(0,max-min,nachkomma),max,nachkomma,IncludeMin, IncludeMax);
if not IncreaseProbability and DecreaseProbability then
result:=RandomRRange(min,max-RandomRRange(0,max-min,nachkomma),nachkomma,IncludeMin, IncludeMax);
if IncreaseProbability and DecreaseProbability then
if randombool then
result:=RandomRRange(min,max/2,true,false,nachkomma) //links
else
result:=RandomRRange(min+(max-min)/2,max,false,true,nachkomma); //rechts
end;
Dann die Test Routine
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
i:integer;
zufall:real;
ar: array[0..10] of integer;
begin
randomize;
FillChar(ar,sizeof(ar),0);
for i:=0 to 1100000 do
begin
zufall:=RandomRRange(0,10,true,true);
inc(ar[trunc(zufall)]); // WICHTIG, das hier trunc steht!!!!! das macht nämlich klar wieso 10 nur ganz selten vorkommt
end;
s:='';
for i:=0 to length(ar)-1 do
s:=s+inttostr(i)+' '+inttostr(ar[i])+#13+#10;
intxtschreiben(s);
Close;
end;
Und dann natürlich noch intxtschreiben
Delphi-Quellcode:
{-----------------------------------------------------------------------------
Description: Schreibt in eine TXT rein
Procedure: intxtschreiben
Arguments: text:string; pfad:string=''; vorherloschen:boolean=true
Result: None
Detailed description:
-----------------------------------------------------------------------------}
procedure intxtschreiben(text:string; pfad:string=''; const endung:string='.txt'; vorherloschen:boolean=true);
var txt:textfile;
begin
if pfad='' then
// pfad:=ExtractFilePath(Application.ExeName)+dateToStr(now)+' '+inttostr(hourof(now))+' Uhr und '+inttostr(minuteof(now))+' Minuten'+endung
pfad:=ExtractFilePath(Application.ExeName)+dateToStr(now)+' '+inttostr(hourof(now))+'h '+inttostr(minuteof(now))+'m '+inttostr(secondof(now))+'s '+endung
else
DelDubbleExtension(pfad,endung);
try
assignfile(txt,pfad);
if (fileexists(pfad))and(not vorherloschen) then append(txt) else rewrite(txt);
writeln(txt,text);
closefile(txt);
except
showmessage('Fehler beim schreiben');
end;
end;
So ich habe mir die Zufallsverteilung mal angeschaut in Excel und es erfüllt auch den groben Verlauf, aber leider steigt der Verlauf der Verteilung fast e Funktionsmäßig an.
Also nicht linear.
Ach ja dazu gleich mal die Daten für steigend, sinkend, beides (auch im Anhang)
Zitat:
0 56799
1 179147
2 316328
3 475035
4 660863
5 880353
6 1159318
7 1531780
8 2107263
9 3632972
10 143
Zitat:
0 3632360
1 2107747
2 1531753
3 1158711
4 880333
5 660495
6 475303
7 317350
8 179262
9 56687
10 0
Zitat:
0 117919
1 396274
2 770052
3 1345257
4 2869959
5 2871358
6 1345788
7 769382
8 395701
9 118311
10 0
Wisst ihr woran das liegen könnte?
Gruß Alexander
PS: Ich hoffe ihr seid nicht in der Datenflut ertrunken.
