Что вижу, о том пою (с). Часть 5

[Dr SG]

[b]Paul Kellerman[/b
жарко, я в саду наломалась. Сыночка щас последние бревна допиливает.
Spritzer в самый раз. Для меня 1\5 белого с содовой и льдом.

Сообщение от Paul Kellerman

Пегги о'Дауд

а до нее у меня титьки не доросли

[Галчонка]

А я сейчас выпила пол бутылки коньяка...я давно себя так хорошо не чувствовала....еще бы водочкой шлифануть)))) Сейчас устрою пьяные бродилки по форуму...

[Dr SG]

Галчонка, тож хорошо.
выходные все-таки

[4gost]

Сообщение от Старший докторенок

Не, мороженку не ем уже года четыре.

А чего так?

[Maksimus]

Сообщение от 4gost

А чего так?

А какая в нем польза?

[4gost]

Сообщение от Maksimus

А какая в нем польза?

Скрытый текст

Postman: Надо кошку завести, она будет всех радовать!
Механик: Это бесполезное животное будет от меня получать пендаля
Postman: Ну это будет же тебя радовать?
Механик: Да....
Postman: Значит ее жизнь не будет бессмысленной.
(с)башорг

[Домохозяйка]

Сообщение от Maksimus

А какая в нем польза?

оно из молока

[Maksimus]

Сообщение от Домохозяйка

оно из молока

и немеряно сахара.

[Дмитрий В.]

Сообщение от _Tatyana_

вы столица, мы родина

С небольшим запозданием - поздравляю уважаемого Havrosh как непосредственно причастного ко дню ВДВ, желаю мирного неба над головой и всегда штатного приземления!

[Paul Kellerman]

kravets, проблема рандомизации доступа к ресурсу с использованием мьютекса решилась.

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

if WaitForSingleObject(ResMutex,INFINITE) = WAIT_OBJECT_0 then
  begin
    .
    < работа с ресурсом >
    .
    ReleaseMutex(ResMutex);
  end;

Поток в случае занятости мьютекса непрерывно пассивно ждет, пока система не выберет его.
Система отслеживает время непрерывного ожидания и при освобождении мьютекса выбирает
тот поток, который дольше всех ждал (при равных приоритетах). А нам нужен случайный выбор.

Ну так давайте спутаем все карты системе и будем ждать не непрерывно, а случайно-дискретно.

flag:= False;
while not(flag) do
  begin
    dt:= 10 + 20 * Random;
    if WaitForSingleObject(ResMutex, dt) = WAIT_OBJECT_0 then flag:= True;
  end;
if (flag) then
  begin
    .
    < работа с ресурсом >
    .
    ReleaseMutex(ResMutex);
  end;

Из-за прерывистого ожидания со случайными интервалами системе приходится выбирать наугад.

Минус метода - низкое быстродействие, но мне и не нужно быстро. Потоки в среднем раз в секунду
обращаются к ресурсу. По сути получилась спин-блокировка с ожиданиями в течение случайных dt.

Протестировал в имитационной модели. Статистические показатели отлично сходятся с расчетными.