Tirage au sort

Version imprimable

12/02/2007, 22h26
Titeuf82

Tirage au sort

Bonjour,

je suis en train de réaliser un projet en ada qui concerne une présentation d'une simulation de bus.

Pour ce faire j'ai besoin d'un algo qui effectue un trirage au sort8O (distribution normale avec une moyenne et une variance parametrables:( !)

Autre indice que j'ai c'est Box-Muller transform.

Si vous avez une idée n'ésitez surtout pas de faire quelques lignes.

Merci.

pour sortir un nombre aléatoire entre m et n (ici 0 et 36)

est-ce suffisant ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
with Ada.Numerics.Discrete_Random;
with Ada.Text_Io;
procedure Roulette is 
   type Numero is range 0 .. 36; 
   package La_Roulette is new Ada.Numerics.Discrete_Random (Numero);
   use La_Roulette;
   A : Numero;  
   G : Generator;  
begin
   Reset (G);
   A := Random (G);
   Ada.Text_Io.Put_Line ("Le numero est : " & Numero'Image(A));
end Roulette;

13/02/2007, 19h16
Celelibi

Titeuf82, je pense que ce que tu cherche est plus de un algo que de l'Ada. Cette question serait donc à mon avis plus à sa place dans le forum algorithme.

merci pour votre répose et votre suggestion!!!

Cela m'a donné une bien clear sur le sujet de tirage au sort.

J'ai trouvé un codde qui me permet de faire une distribution uniforme mais le probléme qu'ils ont utilisé un package que je n'ai pas RANDOM!!!

Auriez-vous une idée?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
-- boxmuller.ada     V1.0	Implements the polar form of the Box-Muller
--			        transformation.
 
-- presumes that RANDOM.UNIFORM(a,b) returns a uniformly distributed random
-- number in the range a..b
 
--	(c) Copyright 1994, Everett F. Carter Jr.
--	    permission is granted by the author to use this software
--	    for any application provided that this copyright notice
--          is preserved.
 
with RANDOM, Generic_Elementary_Functions;
 
function Box_Muller(m : in float; s : in float) return float is
    x1, x2, w, y1 : float;
 
    package float_funcs is new Generic_Elementary_Functions( float );
    use float_funcs;
 
    begin
	     loop
               x1 := Random.Uniform(-1.0, 1.0);
               x2 := Random.Uniform(-1.0, 1.0);
 
               w  := x1 * x1 + x2 * x2;
 
               exit when w < 1.0;
	     end loop;
 
             w := sqrt( ( -2.0 * log( w ) ) / w );
 
             y1 := x1 * w;
 
      return m + y1 * s;
 
    end Box_Muller;

21/02/2007, 20h24
Celelibi

Tu peux recréer facilement cette fonction grâce au package Ada.Numerics.Float_Random qui contient une fonction capable de te retourner un nombre flotant entre 0 et 1 et dont la répartition est uniforme.
17/04/2007, 11h05
Titeuf82

Enfin, je crois avoire trouvé.

J'ai utilisé un algo qui s'appelle Mersenne Twister qui me génère des valeurs uniformément distribuées et un plus, il parait que cette methode est très rapide.:mouarf:

Le package est dispo sur le Net donc, pour ceux qui peuvent être intéresses, voire l'implantation ici:
http://adrianhoe.com/adrianhoe/projects/adamt19937/

Merci pour toutes réponses.

A bientôt