случайное событие

[Sirik]

допустим есть событие, которое происходит с вероятностью 99,6%
как создать функцию, которая возвращала данную вероятность?

[alibek]

Код: Выделить всё

Function PrbValue() As Single
  PrbValue = 0.996
End Function

[Sirik]

м-да...

я передаю вероятность, а функция возвращает (тип boolean) произошло событие или нет

[Amed]

Код: Выделить всё

Function PrbValue(Probability As Single) As Boolean
Randomize
PrbValue = (Rnd > Probability)
End Function

Sirik, ну от тебя-то никак не ожидал такого вопроса.

[Sirik]

просто мне кажеться что функция rnd не совсем возвращает случайные числа. по-моему это называется нормально-распределённая случайность.

мне бы какой-то алгоритм что-ли...

зы. наверное в твоем примере надо знак поменять, а то при вероятности 0.99 - ниодного попадания

[Amed]

Алгоритм получения случайных чисел? Тёмыч недавно исследовал этот вопрос, если не изменяет память. Поищи в форуме или в блоге.

Знак надо поменять, да. Заметил мину

[GSerg]

Сначала поясни, чем тебя не устраивает нормальное распределение.

[Sirik]

пишу симулятор для одной online игры
там все бои используют случайность

и если у меня будет не достаточная случайность, то вряд ли что-то выгорит.

зы. хотя...может движек игры в самом деле её и использует... буду пробовать так как посоветовали

[alibek]

Гы.
Даже нет, LOL.

[Sirik]

почему?

[alibek]

Потому что если ты таким образом решил "угадывать" выбор онлайновой системы, то это надо увековечить на bash.org.

[Sirik]

всё равно чего-то я не понимаю...

[uhm]

Sirik, для начала, ты знаешь, что такое случайная величина? Для продолжения - знаешь ли ты, что такое распределение случайной величины, и чем нормальное распределение отличается от равномерного?

В принципе, твой вопрос должен отпасть уже на первом этапе изучения ответа на мой первый вопрос.

[Sirik]

не надо меня пугать вопросам из инст. программы.

я просто хочу получить вразумительный ответ: rnd функция достаточна случайная или нет?

[Amed]

Достаточно случайная. Попробуй посмотреть, какой процент угадываний при вероятности 0.5 для 10000 попыток.

[uhm]

rnd дает равномерно распределенную на отрезке [0; 1] случайную величину. На пальцах, это значит, что вероятность попадания в область, близкую к середине отрезка, равна вероятности попасть в область такой же длины на его краях. Другие распределения этим свойством не обладают, в частности, у нормального распределения, вероятность попасть в "центр" больше вероятности попасть в "края"...

А так - да, достаточно случайная

ЗЫ Для того, чтобы этот ответ был "вразумительным", необходимо хотя бы в общих чертах представлять ответы навопросы из "инст. программы".

[VVitafresh]

rnd дает равномерно распределенную на отрезке [0; 1] случайную величину.

Все-таки на отрезке [0, 1) -- значение всегда меньше 1, но больше или равно 0.

[--=GAMER=--]

VVitafresh
А вот и нет - в еденицу тож попадает особено если тип Integer

[Viper]

VVitafresh
А вот и нет - в еденицу тож попадает особено если тип Integer

Ошибочка вышла!

Точная цитата из MSDN:

The Rnd function returns a value less than 1, but greater than or equal to zero.

что означает, как нетрудно догадаться, что функция Rnd возвращает значение меньше чем 1, но большее или равное нулю.

[GSerg]

--=GAMER=--
Сам понял, какую глупость сказал?

[Tamplier]

Извините, что вмешиваюсь в разговор, о великие Гуру.
Рассмотрите следующий код, пожалуйста. Может это вам поможет понять достаточно ли случайнен rnd

Код: Выделить всё

Sub RndArr(arr() As Long, LengthArray As Long) ' Заполнение массива случайными неповторяющимися числами

    Dim i As Long, j As Long
   
    Randomize
1: arr(0) = Int(Rnd * 10 ^ (Int(Rnd * 8)) * (-1) ^ (Int(Rnd * 10)))
    For i = 1 To LengthArray - 1
2:     arr(i) = Int(Rnd * 10 ^ (Int(Rnd * 8)) * (-1) ^ (Int(Rnd * 10)))
        For j = 0 To i - 1
            If arr(j) = arr(i) Then
                i = i - 1
                Exit For
            End If
        Next
    Next
   
End Sub


Прошу не обращать внимание на глупость написания кода. Это писалось давно. Строки 1 и 2 перегружены rnd в целях создания максимального разброса. Для создания массива по данному алгоритму из 10тыс элементов на средней машине уходит порядка минуты. При этом повторение на одном значении счетчика после 5тыс элементов идет в районе 300тыс-1мил

[GSerg]

И это тоже баян.
http://bbs.vbstreets.ru/viewtopic.php?t=17755

[tyomitch]

Извините, что вмешиваюсь в разговор, о великие Гуру.
Рассмотрите следующий код, пожалуйста. Может это вам поможет понять достаточно ли случайнен rnd

С чего ты взял, что в последовательности "достаточно случайных" чисел не может быть повторов?

[AjaxVS]

просто мне кажеться что функция rnd не совсем возвращает случайные числа

Посмеялся после завтрака, пасиба +_+

Так может, кто даст вразумительный ответ - чем вас не устраивает Rnd?

[Tamplier]

С чего ты взял, что в последовательности "достаточно случайных" чисел не может быть повторов?

Читай внимательнее текст после кода. Я этого нигде не говорил.

GSerg, я этого не читал. Сие чудо я писал сам с нуля.

[tyomitch]

С чего ты взял, что в последовательности "достаточно случайных" чисел не может быть повторов?

Читай внимательнее текст после кода. Я этого нигде не говорил.

Код считает в последовательности число повторов.

Как оно связано с "достаточной случайностью"?

Имхо никак. Ни в одну, ни в другую сторону.

[--=GAMER=--]

GSerg
!Viper!
Ну низнаю, получалось же раньше как-то

[Tamplier]

Как оно связано с "достаточной случайностью"?

Имхо никак. Ни в одну, ни в другую сторону.

Для создания массива по данному алгоритму из 10тыс элементов на средней машине уходит порядка минуты. При этом повторение на одном значении счетчика после 5тыс элементов идет в районе 300тыс-1мил

Я тут, правда, с порядком обшибся, это результаты 100тыс. Повторение 3тыс-20тыс.

[tyomitch]

Tamplier, теперь расскажи, какое отношение выделенные тобой цитаты имеют к "достаточной случайности" Rnd.

[Tamplier]

Что требуется? "Случайность rnd". Что говорится? Насколько часто повторяются числа при использовании данного алгоритма. А "Случайность rnd" и "Повторяемость rnd" - это взаимные антонимы, следовательно при предельном случае мы можем их использовать как синонимы. Ситуация, имхо, предельная, поэтому я решил, что данный код поможет в выяснении данного вопроса. Все.