Remplir matrice/vecteur

Re : Remplir matrice/vecteur

Bonjour à tous,
Je souhaiterai simuler des valeurs aléatoires de Poisson.

J'ai utiliser la propriété suivante pour cela:

1) Soient des variables Xi suivant une loi exponentielle de paramètre lambda et indépendantes.
Alors inf(n>= 0 / sum(i=0 à n) des Xi =< 1) suit une loi de poisson.

2) Pour simmuler une loi exponentielle, il suffit d'utiliser le théorème suivant:

Suit U une variable uniforme sur (0,1( et soit F la fonction de répartition d'un variable aléatoire X suivant une loi de probabilité L.
(F inversible de préférence et notons IF l'inverse de F)

Alors IF(U) est de loi L.

Voici le programme :

Function VA_EXP(lambda As Double) As Double

VA_EXP = -(1 / lambda) * WorksheetFunction.Ln(1 - Rnd())

End Function


Enfin j'ai programmé ma variable aléatoire de poisson de la facon suivante.

Function POISSON2(lambda As Double) As Integer
Dim x As Double
Dim i As Integer
i = 0
x = VA_EXP(lambda)

While x <= 1
x = x + VA_EXP(lambda) And i = i + 1
Wend

POISSON2 = i
End Function



Le programme ne répond pas...

Cordialement,

Idriss

Re : Remplir matrice/vecteur

Bonsoir.

i = i + 1 ne peut valoir que False. Converti en numérique: 0. Combiné à une expression numérique par un And: toujours 0. Ajouté à x, celui ci ne bouge donc jamais.

Re : Remplir matrice/vecteur

Très bien toutefois, je ne comprends pas ce que je dois changer pour que cela fonctionne.
Cordialement,


Idriss

Re : Remplir matrice/vecteur

Bonjour.
Changer cette instruction pour qu'elle ne s'évalue plus comme ça
x = x + VA_EXP(lambda) And i = i + 1
x = x + VA_EXP(lambda) And False
x = x + Une valeur And False
x = Une autre valeur And False
x = Une autre valeur And 0
x = 0

Re : Remplir matrice/vecteur

Bonjour,
J'ai besoin d'un compteur afin d'obtenir la simulation d'une loi de Poisson.
Avez-vous une idée de la démarche à suivre.
Je ne vois pas comment modifier ce programme.

Merci d'avance.

Idriss

Re : Remplir matrice/vecteur

J'ai parlé trop vite.
J'ai trouvé comment procéder.

Merci pour votre aide (encore une fois).

Idriss