Générer des données suivant une distribution "maison"

[invitee2006ece]

Bonjour,

J'ai besoin de générer des nombres entiers selon une distribution que j'ai déterminée.
Par exemple:
- 0 a 1% de chance de tomber
- 1 a 59% de chance de tomber
- 2 a 40% de chance de tomber

Comment générer des données qui suivent cette distribution, pré-déterminée, sous Excel ou Open Office?
Sinon, sous un autre outil?

Merci beaucoup pour votre aide,
Tristan
-----

[invite2f4443ca]

Tu génère un nombre aléatoire entre 1 et 100.
Si c'est 1, tu renvoies 0.
Si c'est compris entre 2 et 59, tu renvoies 1, sinon 2.

[Philou67]

Dans toutes les cellules de la première colonne, tu mets la formule :

=ALEA.ENTRE.BORNES(1;100)

Dans toutes les cellules de la deuxième colonne, tu mets la formule :

=SI(A1<=1;0;SI(A1<=40;2;1))

La deuxième colonne contient les valeurs sorties aléatoirement selon ta distribution (si j'ai bien compris).

Edit : grillé

[invitee2006ece]

Ok, j'imaginais qu'il existait une fonction réalisant ça étant donné le côté générique du problème.

Merci beaucoup pour vos réponses!
Tristan

[A voir en vidéo sur Futura]

[invite770d9cfe]

Si c'est compris entre 2 et 59, tu renvoies 1, sinon 2

Sauf erreur de ma part, je dirais si c'est compris entre 2 et 60... mais la logique est la même.

Dans une distribution perso, il n'y a rien de générique. Sauf dans une pharmacie.

[invitee2006ece]

Dans une distribution perso, il n'y a rien de générique.

Si, la méthode de génération de données.

[invite770d9cfe]

N'oublie pas en VB ou en C de te caler sur l'oscillateur, sinon tu auras toujours la même séquence de tirages.
En VB ça donne ça :

Private Sub CommandButton1_Click()
  Dim Tirage As Integer
  Dim Réponse As Integer
  
  ' On se cale sur l'oscillateur de l'UC, sinon les séquences de tirages seront toujours les mêmes
  Randomize Time
  
  Do
    Tirage = Int(Rnd(1) * 100) + 1
    Select Case Tirage
      
      Case Is = 1: Réponse = MsgBox("0", vbRetryCancel, "Tirage suivant")
      If Réponse = vbCancel Then End
      Case Is > 60: Réponse = MsgBox("2", vbRetryCancel, "Tirage suivant")
      If Réponse = vbCancel Then End
      Case Else: Réponse = MsgBox("1", vbRetryCancel, "Tirage suivant")
      If Réponse = vbCancel Then End
    End Select
  Loop
End Sub

[invitee2006ece]

Ok, merci pour la suggestion.

Le problème de la méthode proposée est que la formule contient autant de tests que de valeurs possibles.

J'ai donc adopté une légère variante, sous Open Office:
- 1 colonne contient la distribution de probabilités
- 1 colonne contient les probabilités cumulées
- 1 colonne contient les valeurs correspondantes à chaque proba
- Génération d'1 donnée aléatoire, appelons la alea, par la fonction RAND
- Lookup parmi les probabilités cumulées laquelle est directement inférieure à alea, et retour de la valeur correspondante, par la fonction VLOOKUP
--> La donnée finale aléatoire est la valeur retournée

Merci encore pour votre aide,
Tristan

[Philou67]

Il faut une extension particulière pour avoir accès à la fonction VLOOKUP ?

[invitee2006ece]

Non, VLOOKUP fait partie d'OO Calc de base (au moins depuis la version 2.0): http://documentation.openoffice.org/...fFunctions.pdf.

[Philou67]

Exact, je me suis fait abuser par la langue de la fonction ... dans ma version française, c'est RECHERCHEV.

Quelle aberration ce nommage lié à la langue de l'outil... (OpenOffice en Français n'accepte pas VLOOKUP...).

[invitee2006ece]

En effet, de quoi devenir