v8: Функция для получения случайных чисел

[alexey]

//только для целых чисел
Функция ПолучитьСлучайноеЧисло(Мин,Макс)
   
    //вместо Randomize
    Для н = 1 По 100 Цикл
        Уник = Новый УникальныйИдентификатор;
    КонецЦикла;
   
        //генерируем GUID
    Уник = СокрЛП(Новый УникальныйИдентификатор);

        //оставляем только цифры
    Уник = СтрЗаменить(Уник,"-","");
    Уник = СтрЗаменить(Уник,"a","");
    Уник = СтрЗаменить(Уник,"b","");
    Уник = СтрЗаменить(Уник,"c","");
    Уник = СтрЗаменить(Уник,"d","");
    Уник = СтрЗаменить(Уник,"e","");
    Уник = СтрЗаменить(Уник,"f","");

    //знаменатель должен иметь такое же количество нулей + 1
    Знаменатель = 10;
    Для н = 2 По (СтрДлина(СтрЗаменить(Уник,Символы.НПП,""))) Цикл
        Знаменатель = Знаменатель * 10;
    КонецЦикла;
   
    Случ = Число(Уник) / Знаменатель; //здесь получается дробное случайное число от 0 до 1
   
    //преобразуем его в случайное число из заданного интервала, округляем до целого
    ЧислоИзИнтервала = Мин(Макс(Окр(Мин + (Макс-Мин)*Случ),Мин),Макс);
   
    Возврат ЧислоИзИнтервала;

КонецФункции

[ink]

Красиво...
Только вот изза этого
Уник = СтрЗаменить(Уник,"-","");
    Уник = СтрЗаменить(Уник,"a","");
    Уник = СтрЗаменить(Уник,"b","");
    Уник = СтрЗаменить(Уник,"c","");
    Уник = СтрЗаменить(Уник,"d","");
    Уник = СтрЗаменить(Уник,"e","");
    Уник = СтрЗаменить(Уник,"f","");
закон распределения непонятно какой получается...
и Уж если 1Совскую генерацию гуида принять как равномерное, то я бы реально в цикле перевел бы 16ричное число в десятеричное, ну и на максимум поделил - 16 в 32й степени чтоли там... токо потянет ли 1С такую размерность цифр не знаю - должна.

А зачем ваще понадобилось - если не секрет?

[alexey]

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

[ink]

скорость одинаково будет думаю
качество хз
у меня ваще вариант не написан, это я просто сказал как бы я писал - а писать лень :P
я и спросил зачем тебе понадобилось такое поэтому...

[alexey]

скорость одинаково будет думаю
качество хз
у меня ваще вариант не написан, это я просто сказал как бы я писал - а писать лень :P
я и спросил зачем тебе понадобилось такое поэтому...

Ну яки таки только чудеса в жизни не требуются .. Вот и пригодилось.

[Vasko]

Где то читал, что если подбрасывать монету бесконечное число раз, то чем чаще её подбрасываешь, тем больше число выпадений орлом, будет стремиться к числу выпадения решкой
Хе Хе Хе! 
Если делать это:

Уник = СтрЗаменить(Уник,"-","");
    Уник = СтрЗаменить(Уник,"a","");
    Уник = СтрЗаменить(Уник,"b","");
    Уник = СтрЗаменить(Уник,"c","");
    Уник = СтрЗаменить(Уник,"d","");
    Уник = СтрЗаменить(Уник,"e","");
    Уник = СтрЗаменить(Уник,"f","");

То числа будут не совсем случайные получаться, а с акцентом на определенную цифру, но, правда случайную, например ПолучитьСлучайноеЧисло(1,5)={4,4,4,5,4,4,4,1,1,2,1,4,4,4,5,5,3,3,4,1,4,} здесь преобладает "4". В других случаях может преобладать любая другая цифра. Но последовательность эта будет "не очень случайной", так как в случайной последовательности количество различных образующих её элементов должно стремиться к равенству между собой. Например, в первом миллионе элементов последовательности только из 1,2,3 единица может встречаться 333330 раз, а двойка тогда 333336 раз. Следовательно, тройка будет встречена в 333334 раза.
Поэтому лучше все-таки преобразовывать число из шестнадцатеричного в десятичный формат, тогда не будут исключаться дополняющие последовательность цифры :)

[Vasko]

А зачем ваще понадобилось - если не секрет?

Можно, например, написат какую-нибудь игровую обработку для бухгалтеров  :D