'只要輸入CE（Number_of_lines),和呼損（GOS）就可以得出，用宏統(tǒng)計的很實(shí)用
Function Traffic(Number_of_Lines, GOS)
If Number_of_Lines = 0 Then GoTo 20
Let Traffic_store = Number_of_Lines
Let Temp = Traffic_store / 2
10
Let pbr = (Traffic_store + 1) / Traffic_store

For Counter = 2 To Number_of_Lines
Let pbr = (Counter / Traffic_store * pbr) + 1
Next Counter

Let pb = 1 / pbr
If (Abs(pb - GOS) <= 0.000001) Then GoTo 20
If pb > GOS Then Traffic_store = Traffic_store - Temp Else Traffic_store = Traffic_store + Temp
Temp = Temp / 2
GoTo 10

20Traffic = Traffic_store
End Function