Lineares RandomRange für Real

[Alexander Roth]

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.