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

Les gens auront + envi de te répondre en présentent le code ainsi :  
 

 
Sinon, désolé je ne comprend pas non plus se code.

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

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

balises CODE  

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.