Уважаемые, Господа, леди и джентльмены....спешу сообщить Вам при-при-ятнейшее известие--я дико пьян.....
тут на форуме многие пытались применять типа Пуассон..+.клаксон+патефон+граммофон....+.армянское радио....для построения методов оценок вероятностей.....это достаточно трудоёмкая процедура....и не для слабонервных.....
Вероятности базовой БК рассчитываем по бамбуковско-мудаковской формуле
=1/([@1]*ИНДЕКС($BB$118202:$BD$118217;CB4;1)*(1/[@1]/ИНДЕКС($BB$118202:$BD$118217;CB4;1)+1/[@x]/ИНДЕКС($BB$118202:$BD$118217;CB4;2)+1/[@2]/ИНДЕКС($BB$118202:$BD$118217;CB4;3)))
=1/([@x]*ИНДЕКС($BB$118202:$BD$118217;CB4;2)*(1/[@1]/ИНДЕКС($BB$118202:$BD$118217;CB4;1)+1/[@x]/ИНДЕКС($BB$118202:$BD$118217;CB4;2)+1/[@2]/ИНДЕКС($BB$118202:$BD$118217;CB4;3)))
=1/([@2]*ИНДЕКС($BB$118202:$BD$118217;CB4;3)*(1/[@1]/ИНДЕКС($BB$118202:$BD$118217;CB4;1)+1/[@x]/ИНДЕКС($BB$118202:$BD$118217;CB4;2)+1/[@2]/ИНДЕКС($BB$118202:$BD$118217;CB4;3)))
0,97300699 1,544755245 1,7051748
0,98034188 1,39491453 1,1484615
1,0002994 1,084456801 1,2728144
1,01724746 1,076903397 1,0537803
1,03937998 1,051600236 0,9430174
1,04149181 1,007630655 1,0109477
1,02099262 1,040854148 1,0413628
1,02212663 1,045916257 1,0296796
1,03034978 1,025818734 1,0369217
1,04053666 1,011390284 1,0360281
1,05389228 0,993872211 1,0371657
1,03959382 1,03384897 1,021889
1,01449474 1,022070193 1,0436656
1,02693089 1,026154602 1,0327972
0,97369747 1,03531679 1,0626399
1,08364726 1,157739726 0,9927997
Function Clbuk(ByRef rah As Range, Optional VolatileOn As Boolean = True) As Variant
Application.Volatile VolatileOn
Set DANK = rah
If (DANK.Cells(1, 1) > 1) And (DANK.Cells(1, 1) <= 1.1) Then
Outsig = Array(0, 0.95071754, 0.045089359)
ElseIf (DANK.Cells(1, 1) > 1.1) And (DANK.Cells(1, 1) <= 1.17) Then
Outsig = Array(1, 0.895747593, 0.082150576)
ElseIf (DANK.Cells(1, 1) > 1.17) And (DANK.Cells(1, 1) <= 1.25) Then
Outsig = Array(2, 0.830878922, 0.150826378)
ElseIf (DANK.Cells(1, 1) > 1.25) And (DANK.Cells(1, 1) <= 1.35) Then
Outsig = Array(3, 0.775296465, 0.166493)
ElseIf (DANK.Cells(1, 1) > 1.35) And (DANK.Cells(1, 1) <= 1.46) Then
Outsig = Array(4, 0.691113592, 0.233028264)
ElseIf (DANK.Cells(1, 1) > 1.46) And (DANK.Cells(1, 1) <= 1.59) Then
Outsig = Array(5, 0.626258705, 0.257140469)
ElseIf (DANK.Cells(1, 1) > 1.59) And (DANK.Cells(1, 1) <= 1.75) Then
Outsig = Array(6, 0.597720673, 0.243692625)
ElseIf (DANK.Cells(1, 1) > 1.75) And (DANK.Cells(1, 1) <= 1.95) Then
Outsig = Array(7, 0.523138692, 0.300353872)
ElseIf (DANK.Cells(1, 1) > 1.95) And (DANK.Cells(1, 1) <= 2.2) Then
Outsig = Array(8, 0.485470749, 0.306978945)
ElseIf (DANK.Cells(1, 1) > 2.2) And (DANK.Cells(1, 1) <= 2.5) Then
Outsig = Array(9, 0.424331744, 0.310352368)
ElseIf (DANK.Cells(1, 1) > 2.5) And (DANK.Cells(1, 1) <= 2.9) Then
Outsig = Array(10, 0.3629406, 0.315335213)
ElseIf (DANK.Cells(1, 1) > 2.9) And (DANK.Cells(1, 1) <= 3.45) Then
Outsig = Array(11, 0.301373764, 0.30971869)
ElseIf (DANK.Cells(1, 1) > 3.45) And (DANK.Cells(1, 1) <= 4.3) Then
Outsig = Array(12, 0.259633122, 0.280269263)
ElseIf (DANK.Cells(1, 1) > 4.3) And (DANK.Cells(1, 1) <= 5.6) Then
Outsig = Array(13, 0.196705062, 0.265044984)
ElseIf (DANK.Cells(1, 1) > 5.6) And (DANK.Cells(1, 1) <= 8.2) Then
Outsig = Array(14, 0.153583812, 0.207455484)
ElseIf (DANK.Cells(1, 1) > 8.2) Then
Outsig = Array(15, 0.084612993, 0.178969138)
Else
Outsig = "BGDAN"
End If
Clbuk = Outsig
End Function
Вопросы, жалобы, предложения...?
Андестед ми , Господа?
Вот законспектировал Бамбуковского для большей понятности.....