问题已开启
(普通问题)
爱尔兰公式的计算工具
提问者: huangqinyan 提问时间: 2014-09-12
• 我想问一下大佬们,我这个罗盘小工具打开怎么这样啊? 2020-05-07
• 图层工具制作mapinfo图层异常 2020-04-24
• 应该明确:切片是为了落实运营商为人民服务责任区的,是为了同一个系统应用,正确建立IOT(物联网)的;切片不是刮分市场,让国有经济私有化,实现造假、欺诈、炒作、权力寻租及流氓无赖的工具,不是腐败分子的天 2019-12-22
• 新版网优图层工具V3.0打不开缺失注册表?怎么办 2019-12-18
• 后台用mapinfo和谷歌地球工具,主要干什么,这两个工具很强大吗,后台必须用上吗? 2019-04-25
• 大家有没有mapinfow16版可以使用的在线地图工具吗? 2019-03-13
• Mapinfo在线地图工具 不支持WIN10吗? 提示错误unexpected error,quitting 2018-11-16
• mapinfo运行在线地图工具,提示unexpectcderrorquitting,跪求大神帮忙解决 2018-09-26
• 图层工具制作mapinfo图层异常 2020-04-24
• 应该明确:切片是为了落实运营商为人民服务责任区的,是为了同一个系统应用,正确建立IOT(物联网)的;切片不是刮分市场,让国有经济私有化,实现造假、欺诈、炒作、权力寻租及流氓无赖的工具,不是腐败分子的天 2019-12-22
• 新版网优图层工具V3.0打不开缺失注册表?怎么办 2019-12-18
• 后台用mapinfo和谷歌地球工具,主要干什么,这两个工具很强大吗,后台必须用上吗? 2019-04-25
• 大家有没有mapinfow16版可以使用的在线地图工具吗? 2019-03-13
• Mapinfo在线地图工具 不支持WIN10吗? 提示错误unexpected error,quitting 2018-11-16
• mapinfo运行在线地图工具,提示unexpectcderrorquitting,跪求大神帮忙解决 2018-09-26
问题答案
( 3 )
回答者:
qshyj
回答时间:2014-09-12 12:43
18 14
Public 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
Public 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) > 0.0001
Offered = An
End Function
Public Function Channels(a, Blk As Single)
Dim n As Integer, Perc As Single
n = 1: Perc = a / (a + 1)
While Perc >= Blk
n = n + 1
Perc = a * Perc / (n + a * Perc)
Wend
Channels = n
End Function
把这个复制到excel宏里,用下面公式就可以计算了:
Dim P As Single
P = T / (1 + T)
For i = 2 To Nc
P = T * P / (T * P + i)
Next
Pbloc = P
End Function
Public 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) > 0.0001
Offered = An
End Function
Public Function Channels(a, Blk As Single)
Dim n As Integer, Perc As Single
n = 1: Perc = a / (a + 1)
While Perc >= Blk
n = n + 1
Perc = a * Perc / (n + a * Perc)
Wend
Channels = n
End Function
把这个复制到excel宏里,用下面公式就可以计算了:
Pbloc(Erl,Channels):阻塞率 |
Offered(Channels,Pbloc):erl |
Channels(Erl,Pbloc):信道数 |
qshyj 2014-09-12 12:51
一楼说的如此复杂,我一直是EXCEL中之间输入函数计算的,貌似2010以后的OFFICE版本都自带了这个公式吧,反正我是用这个算的,而且和爱尔兰B表对照过,几乎无差异。业务信道数=npErlbChs(话务量,阻塞率)
回答者:
binggu2005
回答时间:2014-09-12 17:09
15 17
回答者:
OscarDon
回答时间:2014-09-13 15:10
12 16
联系我们 - 问通信专家 | Powered by MSCBSC 移动通信网 © 2006 - |