Generic selectors
Exact matches only
Search in title
Search in content
Post Type Selectors

macro program calculates the Channel num

Viewing 3 posts - 1 through 3 (of 3 total)
  • Author
    Posts
  • #50804
    Huawei RF
    Guest

    Dear Friends,

    Here is a VBA macro small program which calculates the number of channels, given the Erlang value and the GoS according to Erlang B table:

    Function Erlangb(traffic As Single, gos As Single)
    Dim top As Single
    Dim bottom As Single
    Dim circuits As Single
    top = 1
    bottom = 1
    circuits = 1
    While (top / bottom) > gos
    top = top * (traffic / circuits)
    bottom = bottom + top
    circuits = circuits + 1
    Wend
    Erlangb = circuits – 1
    End Function

    Sub main()
    x = Erlangb(21, 0.02)
    MsgBox x
    End Sub
    __________________________

    The numbers in the line before the last: x = Erlangb(21, 0.02), represents the Erlang and the GoS respectively.
    You can change them as required and run the program to have the number of channels displayed in a message box.

    Enjoy!!

    #50805
    NarChai
    Guest

    Thanks for share

    #50806
    Huawei RF
    Guest

    welcome brother…

    rnp_rno_engineer@yahoo.com

Viewing 3 posts - 1 through 3 (of 3 total)
  • The forum ‘Telecom Design’ is closed to new topics and replies.