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
  • #50804 Reply
    Huawei RF

    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
    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.


    #50805 Reply

    Thanks for share

    #50806 Reply
    Huawei RF

    welcome brother…

Viewing 3 posts - 1 through 3 (of 3 total)
Reply To: macro program calculates the Channel num
Your information:

<a href="" title="" rel="" target=""> <blockquote cite=""> <code> <pre class=""> <em> <strong> <del datetime="" cite=""> <ins datetime="" cite=""> <ul> <ol start=""> <li> <img src="" border="" alt="" height="" width="">