Discussion :

[Ardely]

Bonjour à tous,

Je n'arrive pas à trouver comment à pouvoir faire générer des chiffres décimaux, meilleurement....
example de 0,0009 à 0,2
les chiffres que je cherche à générer doivent être par example
0,0301;
0,0056;
0,0234;
0,1095

voici comment je fais.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
    randomize;
    for i := 1 to 20 do
  begin
 
     r :=  1 / Random(1000);
     Richedit1.Lines.Add(FloatToStr(r));

mes résultats donne quelques chose comme ceci:
0,00282485875706215
0,00218340611353712
0,00107181136120043
0,00125156445556946
0,0025974025974026
0,00106269925611052
0,00139082058414465
0,003003003003003
0,00125786163522013
0,00326797385620915
0,00350877192982456
0,0018348623853211
0,00377358490566038
0,00588235294117647
0,00221238938053097

puis si je prends les 4 décimaux le plus souvent j'ai alors ceci.
mon problem est que la differance entre chiffre n'est pas assez grande...
0,0028
0,0021
0,0010


Merci beaucoup pour un example et bonne journée
Cordialement.

[Gilbert Geyer]

Salut,

Si tes bornes sont [0,0009 à 0,2] soit 9.10^(-4) à 2^(-1) il faut dans un premier temps multiplier par 10^4 ce qui donne comme nouvelles bornes 9 à 2000. Donc il faut faire dans un premier temps un r:=Random(2000);
ensuite on redivise derrière un if r >= 9 then r:=r/10000;

A+

[Ardely]

Je viens de tester ta proposition mathématique, je pense qui me convient très bien.
Je vois un peu dans quelle direction que je dois résoudre.
Merci beaucoup et trés bonne journée.

[LadyWasky]

Et hop, distribution aléatoire parfaite !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
var valeur:double;
    borne_inf,borne_sup:double;
begin
  borne_inf:=0.0009;
  borne_sup:=0.2;
  valeur:=random*(borne_sup-borne_inf)+borne_inf;
end;

[Ardely]

Peux-tu m'expliquer ce que l'étoile * veut définir après Random.
J'ai regardé un peu dans l'aide et sur le Net mais je n'ai rien trouvé!
J'ai essayé avec RandomRange*() avec une erreur type incompatible, la doc dit que j'ai besoin un integer, pourquoi ça fonctionne alors avec Random*() la doc dit aussi que la fonction a besoin un integer, ou...j'ai pas bien compris...?

Merci et bon weekend.
Salutations

[Cl@udius]

Salut

* est simplement l'opérateur de multiplication.

Random renvoie une valeur aléatoire qui est multipliée par (borne_sup-borne_inf) et enfin tu y ajoute borne_inf.

Voilou.

@+ Claudius

[Gilbert Geyer]

Salut,

Peux-tu m'expliquer ce que l'étoile * veut définir après Random.

... l'étoile c'est le symbole de la multiplication.
... et losqu'on appelle la function Random [ ( Range: Integer) ] en omettant l'option Range alors Random renvoie un nombre aléatoire réel X compris dans l'étendue 0 <= X < 1

... donc valeur:=random*(borne_sup-borne_inf)+borne_inf; renverra une valeur égale à la somme de borne_inf majorée du produit de ce X compris entre 0 et 1 par le contenu de la parenthèse.

A+

EDIT : posts croisés

[Ardely]

Je n'aurai jamais eu l'idée de le faire de cette manière,
contant d'avoir tout de même posé la question et d'avoir appris grâce à
vos explications. Merci.