dechiffrer un code??????????? - VB/VBA/VBS - Programmation
Marsh Posté le 22-02-2006 à 00:16:28
Les gens auront + envi de te répondre en présentent le code ainsi :
Code :
|
Sinon, désolé je ne comprend pas non plus se code.
Marsh Posté le 22-02-2006 à 08:56:51
Déjà pour comprendre le contexte les liens suivants pourraient aider :
http://fr.wikipedia.org/wiki/Erlang_(unit%C3%A9)
http://www.erlang.com/whatis.html#erlang
Ensuite il manque du code, puisque la fonction Pbloc() n'est pas listée
La constante Precision_FR n'est pas définie dans la partie de code montrée
Marsh Posté le 23-02-2006 à 11:45:33
merci pour vos réponses... c super sympa
alors en ce qui concerne la fonction Pbloc est utilisée juste avant et precision_FR vaut 0.01....
ff4600]'Erlang B formulas[/#ff4600]
'Donne le taux de blocage en fonction du trafic offert (T) et du nombre de circuits (Nc)
Function Pbloc(t As Single, Nc As Integer)
Dim P As Single
P = t / (1 + t)
For i = 2 To Nc
P = t * P / (t * P + i)
Next
Pbloc = P
End Function
Marsh Posté le 23-02-2006 à 11:49:29
balises CODE
Marsh Posté le 23-02-2006 à 20:40:56
Quand tu poste, avant d'écrire un code tape "[ cpp]" sans les guillemets et sans les espaces et à la fin du code "[/ cpp]" également sans guillemets et sans les espaces.
Ainsi le code apparaîtra de la façon suivante.
Code :
|
Marsh Posté le 21-02-2006 à 14:59:46
jessaye de comprendre le code suivant????
'Erlang B formulas
'Donne le trafic offert en fonction du nombre de circuits (n) et du blocage (Blk)
Function Offered(n As Integer, blk As Single)
Dim An As Single, A As Single, Perc As Single
An = 0.5 * n / (1 - blk): A = 0.5 * n / (1 - blk)
Perc = Pbloc(An, n)
Do
If Perc > blk Then An = An - A Else An = An + A
Perc = Pbloc(An, n)
A = A / 2
Loop While Abs(Perc - blk) / blk > Precision_FR
Offered = An
End Function