Если получить последовательность случайных чисел в диапазоне от n до m любым из известных генераторов, то среднее арифметическое чисел этой последовательности будет стремиться к (m-n+1)/2, при количестве членов последовательности стремящемся к бесконечности.
Нужно написать генератор, для которого это среднее арифметическое можно было бы задавать.
Вывихнул мозги, а алгоритм придумать не могу.
Помогите, пожалуйста ...

Открывается учебник матстатистики, читается про матожидание...

поиск по "генератор случайных чисел" зело много ссылок дает...

А при чем тут 1С...

http://www.sinor.ru/~my1c/knowhow/rand.html

потом понимается что всё равно получатся ПСЕВДОслучайные числа...

тот что от avb нормально генерит

(5) отсчет начинать беря что-нибудь типа времени. Перескакивать с интервалами в зависимости от времени. Почти случайные получатся :)

Sc = CreateObject("MSScriptControl.ScriptControl");
Sc.language = "VBscript";
sc.executeStatement("randomize");
СлучайноеЧисло=Sc.eval("rnd");

(0) Купи аппаратный генератор

у avd алгоритм тот же... но числа получаються шустрее

+10 это для Лиса

ТОлько зачем в 1с генератор случайных чисел?, чтобы сумму случайно в отчеты писать? или зачем?

Для настоящих одинэсников поясню на пиримере:
Предположим n=1, m=3 и чисел нужно 10 штук ...
Генерим последовательность: 2,1,2,3,1,1,3,2,3,1
Складываем все её члены и делим на их количество (получаем среднее арифметическое) ... = 1,9 ~ 2
Понятно, что, чем длиннее последовательность, тем ближе это среднее будет к двойке.
А мне нужен алгоритм, который генерил бы последовательности такие, чтоб это среднее было бы задаваемым пользователем.
Ну, предположим, для примера выше, я бы задал это среднее равным 2.8 ...
Разумеется, троек в ней должно быть больше, чем двоек ..., а единичек ещё меньше ...
...
Понятно теперь?

(13)Так бы сразу и сказал
Только ответь -зачем в 1с генератор случайных чисел?,

Генератор случайных чисел в 1С

это уже не генератор случайных чисел...

Делал нечто подобное :) но на Дельфи
--------
Идея:
1) Выбираешь функцию распределения в пределах ограничений 1С :(
2) Делишь на участки (скажем штук на 100). Можно в зависимости от нужного кол-ва случ. чисел
3) Для каждого участка считаешь интеграл (ИнтУчастка), подразумевая, что интеграл функции распределения на нужном участке равен 100% (ИнтОбщ) и высчитываешь % этого интеграла от 100 %
Проц = ИнтУчастка / ИнтОбщ
4) Получаешь количество чисел на данном участке как
КоличествоНаУчастке = ОбщееКоличество * Проц
5) Получаешь случайные числа в количестве КоличествоНаУчастке в интервале участка (функцией равномерного распределения (см. 4))
Так по всем участкам
-------
Нужно учитывать, что если на участок приходится меньше одного случайного числа, то нужно складывать соседние участки, пока не получишь значение больше одного
---------------
Хм, получилось сумбурно, но надеюсь суть ясна
--------------------
Основные проблемы (в рамках 1С):
- Вычисление интеграла (функцию распределения нужно брать попроще)
- Вычисление случ. чисел по равномерному з-ну распределения

Взять текущее время и расколбасить его как нить. Каки там интугралы.

(pupkin) Внимательно читаем (13)

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

17+
Потом нужно полученные числа перемешать :)

(21) А если последовательность постоянно дополняться должна, с соблюдением всех условий её формирования, то алгоритм получается сложней втрое ...

(0)Пешу: генератор случайных чисел :)

(23) Сергей Дроботенко?

Не отвлекайтесь. Я тока обстановку разрядит. Уже меня нет.

Пользуюсь такой.
Функция СлучайноеЧисло (Диапаз1,Диапаз2) Экспорт
   b=101;
   k=2;                                              
   mod=16384;//Степень двушки
   x1=0;                          
   //Диапазон=200; // От 0 до ...
   // Случайнее не бывает
   Если ПустоеЗначение(ВосстановитьЗначение("СлЧ"))=1 тогда
       ТекущееВремя(,,x1);
   Иначе;
       ВосстановитьЗначение("СлЧ",x1);
   КонецЕсли;
   x0=(b*x1+K);
   num=x0-Цел(x0/MOD)*mod;
   x1=num;                  
   y=x1/mod;  
   Результат=Цел(y*(Диапаз2-Диапаз1+1)+Диапаз1);  
   СохранитьЗначение("СлЧ",x1);
   Возврат Результат;
КонецФункции

(26) Прикольно ...
Уже в начальных классах на уроках информатики детей приучают к платформе 1С ...

ап
Может какой-нить NS придёт сюда завтра ...

у AVB нормальный генератор, но он со временем начинает тормозить (число начинает увеличиваться)
Вообще проще всего где-нибудь скачать таблицу случайных чисел.
Тебе нужно задать среднее, и чтоб он на него выходил?
Диапазан при этом задается?
Сейчас соображу.

(29) Да, диапазон задаётся жёстко ..., а количество чисел в последовательности может увеличиваться в любой момент ...

(0) Стремится к (n+m)/2 ;-))
Устроит генератор в котором вероятность всех чисел одинакова, кроме одного из крайних - m, либо n ?

(31) Так я и сам смогу ... Но, увы, не пойдет ...

(32) А как пойдет?

Более равномерно?

(34) В принципе я уже сделал, кое-как ...
Втупую разбил весь диапазон на сотню маленьких, оценил вероятности выпадения чисел в каждом, генерю для каждого диапазона количество чисел кратное этой вероятности, затем из полученой кучи случайно выбираю одно ...
Изврат, но на большее меня не хватило ...

(35) Я на выходных подумаю.
Сейчас не могу - нервы шалят. С женой в очередной раз из-за её б..дства посрался.
Вообще можно сделать линейную зависимость вероятности от числа(вероятность выпадения к:а+в(к-n)), где а и в - коэффициенты.
Числа целые?

(36) Бабы - зло! ... Числа целые ...
Я тоже в выходные ещё подумаю ..., интересно ..., хоть какая-то зарядка для ума ...

(36) С годами это должно пройти. Жди...

(38) К пятидесяти? ;-))

(39) Всегда надо искать консенсус...

(0) Подумал... Сдуру вывел форумулу для линейной зависимости вероятности выпадения числа от самого числа. И понял, что это не надо.
Понятно, что смысл в том, чтобы скрыть, что вероятность неодинакова.
1 вариант - сделать максимум отклонения вероятности выпадения числа от равномерного (1/(m-n+1)) минимальным.
2 вариант сделать разность максимальной и минимальной вероятности минимальной.
.......
Для этого, допустим, если необходимое среднее больше, чем (m+n)/2 -
Нужно сделать вероятность для к, меньших требуемого среднего - одинаковым, и меньшим 1/(m-n+1))
А для больших - то-же одинаковым, но большим...
Через часик накидаю программку.

перем randseed;  
перем минЗначение,максЗначение,срЗначение,коэфф1,коэфф2,Знач1,ПервыйПредел;
Процедура randomize(а=0)  
   // сбрасывает генератор
   Если а=0 тогда    
       randSeed=_getPerformanceCounter();  
   Иначе
       randseed=а;  
   КонецЕсли;    
КонецПроцедуры
// **************
Функция random()    
   // выдает случайное число 0 <= rand < 1
   // интерпретация интерпритации AVB
   // выдает последовательности лучше, и работает быстрее.
   // (не замедляется)
   // дело в том, что у него возникают очень большие числа,
   // а 1С некокорректно с ними работает (операция %)
   randSeed=(randSeed*1103515245+12345)%2147483648;
   возврат randSeed/2147483648;
КонецФункции    
// **************  
Функция Рандом()
   перем р;
   р=random();
   Если р<ПервыйПредел Тогда
       возврат мин(минЗначение+цел(р*Коэфф1),Знач1);
   Иначе
       возврат мин(Знач1+1+цел((р-ПервыйПредел)*Коэфф2),максЗначение);
   КонецЕсли;    
КонецФункции
// **************  
Процедура Инициализация(минЗ,максЗ,срЗ)
   перем СреднийПроцент,КоличествоЭлементов,Дельта,СуммаПр;
   минЗначение=минЗ;
   максЗначение=максЗ;
   срЗначение=срЗ;
   КоличествоЭлементов=максЗ-минЗ+1;  
   СреднийПроцент=1/КоличествоЭлементов;
   Дельта=((максЗ+минЗ)/2-срЗ)*4/(КоличествоЭлементов*КоличествоЭлементов-(КоличествоЭлементов % 2));
   Знач1=цел((минЗ+максЗ)/2);
   ПервыйПредел=(Знач1-минЗначение+1)*(СреднийПроцент+Дельта)-Дельта*(КоличествоЭлементов % 2);
   Коэфф1=1/(СреднийПроцент+Дельта);
   Коэфф2=1/(СреднийПроцент-Дельта);
КонецПроцедуры
// **************
Процедура Сформировать()
   перем а,сумм,Итераций,р;
   randomize();
   инициализация(11,46,25);
   сумм=0;
   Итераций=100000;
   Для а=1 по Итераций цикл
       р=Рандом();      
       Если а<200 тогда
           сообщить(р);
       КонецЕсли;    
       сумм=сумм+р;
   конеццикла;                        
   сообщить("мин "+минЗначение+" макс "+максЗначение+" среднее "+срЗначение);
   сообщить("Среднее "+сумм/Итераций);
КонецПроцедуры

а чо NS курит? или очередные шахматы пишет?

(43) Не понял...
Я ответил на вопрос в ноль. Написал генератор случайных чисел (целых, в заданном интервале) с средним значением, задаваемым в процедуре инициализации.
При этом минимизируется максимальное отклонение |вер(i)-верСр|
Где ВерСр=1/КоличествоЭлементов
КоличествоЭлементов=(максЗначение-минЗначение+1)
Плюс попутно подправил генератор СЧ написанный avb

(44) Сережа, мне совершенно непонятно что написано в (44)... про (42) молчу в тряпочку...

(45) Зато (0) отлично знает, что он попросил.
И в (42) - точно верное решение.

(46) Завтра сделаю копи-пасте и проверю всё (42)...

(42) Очень похоже на правду ...
Спасибо ОГРОМНОЕ!!!

(48) Только я не написал контроли.
1) МинЗначение - целое
2) МаксЗначение - целое
3) МинЗначение<МаксЗначение
4) Вероятность может выйти за ноль (отрицательная) нет контроля на то, что срЗначение входит в допустимый диапазон.

(49) Это ничего ...
Генератор будет использовать продвинутый программист и ему это не понадобится ...

(49) А я в воскресенье попыжился часок ..., нифига толкового не вышло ... и я, как обычно, отложил задачку до лучших времён ... :((

на срЗначение лучше поставить ограничение
|срЗначение - ((максЗначение+минЗначение) / 2)| <= (КоличествоЭлементов / 10);

Плюс - из-за особенностей работы цел() в 1С -
(минЗначение+максЗначение)/2 должно быть >=0,либо должно быть целым (в случае, если меньше нуля)