Биноминальное рапределение

Delphi , Синтаксис , Математика

Автор: Алексей Перов
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> 
Возвращает случайное число, распределенное по биноминальному закону
распределения

Зависимости: system
Автор:       Алексей Перов, aperov@rambler.ru, ICQ:102661702, Караганда
Copyright:   Лабораторные работы по курсу "Моделирование информационных систем", КарГТУ
Дата:        26 апреля 2002 г.
***************************************************** }

function RandomBinom(n, p: Extended): Extended;
{ биноминальное распределение }
var
  x: Extended;
  i: Integer;
begin
  x := 0;
  for i := 1 to Round(n) do
    if Random - p <= 0 then
      x := x + 1;
  Result := x
end;

Пример использования:

x := RandomBinom(10, 0.4); 

Функция Delphi, называемая RandomBinom, реализует биномиальное распределение, которое описывает количество успехов в фиксированном числе независимых испытаний, где каждый опыт имеет постоянную вероятность успеха.

Функция принимает два параметра: n, который представляет собой количество испытаний (или Бернулли-экспериментов), и p, который представляет собой вероятность успеха в каждом испытании. Функция возвращает случайное число, которое следует этому биномиальному распределению.

Работает функция следующим образом:

1. Инициализирует переменную x значением 0, которая будет суммировать количество успехов.
2. Петелька от 1 до округленного значения n.
3. Для каждой итерации генерирует случайное число между 0 и 1 с помощью функции Random.
4. Если это случайное число меньше или равно вероятности p, то увеличивает переменную x на 1.
5. Наконец, функция возвращает значение x.

Пример использования показывает, как вызывать функцию с n=10 и p=0.4, что означает, что есть 10 испытаний с вероятностью успеха 40%.

Обратите внимание, что это реализация использует функцию Random из модуля System Delphi, которая генерирует случайное число между 0 и 1. Это не подходит для криптографических целей, потому что она не является криптографически безопасной.

Также функция не проверяет валидность входных параметров (например, n должен быть положительным целым числом, а p должно быть значением между 0 и 1). В зависимости от вашего конкретного использования вы можете добавить логику обработки ошибок или валидации.

Статья описывает функцию RandomBinom в Delphi, которая генерирует случайное число, распределенное по биноминальному закону с параметрами n и p.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Математика ::