Random!!!!

[Sada]

Доброго времени суток, уважаемые дамы и господа!!! Есть проблема. При заполнении временной таблицы необходимо одно из полей заполнить случайным числом (не спрашивайте почиму - так надо). В аксапте входящим значением в Random является текущее время (вроде). Если в одну секунду заполняются несколько запеисей, то и значение соответственно равны. А так низяяя!!! Как быть??!!! Подскажите пожалуйста... Заранее благодарен.

PHP код:

void fillTmpReqPoGroups()
{
    ReqPO                     reqPO;
    ReqGroup                  reqGroup;
    InventLocationPriority locationPriority;
    RandomGenerate random = new RandomGenerate();
    ;
    while (queryRun.next())
    {
        reqPO    = queryRun.get(tablenum(ReqPO));

        locationPriority = InventLocation::find(reqPO.inventDim().InventLocationId).InventLocationPriority;
        tmpItemInventDimQty.clear();
        tmpItemInventDimQty.initFromReqPo(reqPO);
        tmpItemInventDimQty.RandomFactor                 = random.randomInt();
        tmpItemInventDimQty.PlanningWithSubstituteItems  = reqGroup.WW_PlanningWithSubstituteItems;
        tmpItemInventDimQty.DistributionType             = reqGroup.WW_DistributionType;
        tmpItemInventDimQty.MaxQtySubstituteItems        = reqGroup.WW_MaxQtySubstituteItems;
        tmpItemInventDimQty.InventLocationPriority       = locationPriority;
        tmpItemInventDimQty.insert();
    }
} 


PS: действие происходит в рамках транзакции

[oip]

А WinAPI::createGUID(); Не пойдет?
Уникальность гарантируется. Правда это не число.

И все же, расскажите плиз смысл этого. Ну очень любопытно.

[Sada]

Цитата:

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

А WinAPI::createGUID(); Правда это не число.

А что это?

[Dolter]

Не знаю как в Аксапте пишется, вот код на одинэске:

Sc = CreateObject("MSScriptControl.ScriptControl");
Sc.Language = "VBscript";
Sc.ExecuteStatement("Randomize");
_Rnd = Sc.Eval("RND");

;-)

[oip]

Цитата:

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

А что это?

Что-то типа "00659fd6-0ea9-4897-b226-8b3c74b85d1b".
Уникальнее не придумаешь.
http://ru.wikipedia.org/wiki/GUID

[mazzy]

Цитата:

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

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

Разберитесь с семейством классов BM*. Это BenchMark*

Задача этого модуля - заполнить таблицы случайными значениями (по заданным правилам и диапазонам) и протестировать скорость выполнения операций по заданным сценариям.


То, что вам нужно, выполняет класс BMrandom.

[Sada]

Цитата:

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

То, что вам нужно, выполняет класс BMrandom.

А можно пример, а то чтото не выходит у меня. Все время одно число 'генерит'.

[G.Menshikh]

Цитата:

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

Разберитесь с семейством классов BM*. Это BenchMark*

Задача этого модуля - заполнить таблицы случайными значениями ....

Спасибо за подсказку про это семейство

Вопросик возник
Есть класс BMText метод new
там есть такая строка
textBase = ' 0123456789abcdefghijklmnopqrstuvwxyzжшеABCDEFGHIJKLMNOPQRSTUVWXYZЖШЕ';

Не могу понять нафига там русские буквы ЖШЕ
это может уже наши со временем дописали или так в стандарте?

[Sada]

В сводном планировании создаются спланированные переносы. У каждого склада есть свой приоритет. Раздаем товар сначала складам у которых есть приоритеты (в зависимости от значения приоритета), а затем рэндомом генерим приоритеты тем складам у которых значение ноль. Вот для того чтобы времы от времени появлялся товар на этих складах (где приоритет ноль) и выставляю этот рэндом - некий такой виртуальный приоритет. Мож не совсем по 'научному' объяснил, но вот как то так...

[Bil Meshkoff]

Цитата:

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

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

Похоже, Ваш руководитель - еще тот массовик-затейник!

[Sada]

Цитата:

Сообщение от Bil Meshkoff

Похоже, Ваш руководитель - еще тот массовик-затейник!

Скучать не приходиться! А это плюс!!!

[Sada]

Случилось чудо!!! Только метод new этого класса немного доработал...

PHP код:

void new(int seed = date2num(SystemDateGet()) + timeNow())
{
    Session session = new Session();
    int     _sessionId = session.sessionId();
    if (_sessionId>32768)
        _sessionId = 65536-_sessionId;
    if (seed == 0) // due to midnight timenow() is 0
        seed = 17;
    prevFraction = this.fraction(logn(seed)+logn(_sessionId));
 //   BMINFO::logEntry(strfmt("%1 %2 %3",prevFraction,_sessionId,seed));
} 


[mazzy]

Цитата:

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

В аксапте входящим значением в Random является текущее время (вроде).

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

Т.е. new надо делать один раз, а потом вызывать один экземпляр, или делать singleton...
Спасибо.

[ivas]

можно в каждой итерации написать
random.parmSeed(WinApi::getTickCount());
WinApi::getTickCount() гдето 50-100 раз в секунду меняется

[epetrov]

Если 4-ка, то можно использовать .Net класс System.Random

static void Job501(Args _args)
{
    System.Random random;
    Int i;
    Int r;
    ;
    
    random = new System.Random();
    
    for (i=1; i<=10; i++)
    {
        r = random.Next(0, 10);
        info(int2Str(r));
 
    }

}

[mazzy]

ivas, спасибо.

Цитата:

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

Если 4-ка, то можно использовать .Net класс System.Random

Ой, надо бы протестировать на производительность.

[epetrov]

Цитата:

Ой, надо бы протестировать на производительность.

Результаты тестирования System.Random против RandomGenerate

static void Job502(Args _args)
{
    System.Random  randomNet;
    RandomGenerate randomAx;
    Int r;
    ;

    randomNet = new System.Random(); // 343112 Такты
    randomAx = new RandomGenerate(); // 43827   Такты
    r = randomNet.Next(0, 10);                // 119623 Такты
    r = randomAx.randomInt(0, 10);         //  279566 Такты
}

Т.е. получилось, что .Net класс почти в 8 раз проигрывает при создании объекта, но 2.3 раза выигрывает при генерации случайного значения. При этом время создания объекта System.Random сопоставимо с временем генерации случайного значения из RandomGenerate.

[mazzy]

спасибо.
Т.е. как и Аксаптовский, дотнетовский рандом лучше создавать один раз, а потом вызывать-вызывать-вызывать.

еще бы анализ случайности и воспроизводимости...

[mazzy]

Цитата:

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

Результаты тестирования System.Random против RandomGenerate

static void Job502(Args _args)
{
    System.Random  randomNet;
    RandomGenerate randomAx;
    Int r;
    ;

    randomNet = new System.Random(); // 343112 Такты
    randomAx = new RandomGenerate(); // 43827   Такты
    r = randomNet.Next(0, 10);                // 119623 Такты
    r = randomAx.randomInt(0, 10);         //  279566 Такты
}

Т.е. получилось, что .Net класс почти в 8 раз проигрывает при создании объекта, но 2.3 раза выигрывает при генерации случайного значения. При этом время создания объекта System.Random сопоставимо с временем генерации случайного значения из RandomGenerate.

System.Random не создается на сервере. Надо разбираться, но сил никаких нет. Завтра...

Текст ошибки

Цитата:

Error Сообщение (03:06:33) Сбой запроса на разрешение типа "InteropPermission".
(S)\Classes\InteropPermission\demand
(S)\Classes\CLRObject\new
(S)\Classes\Random_RNR\new - line 4
(S)\Classes\Random_RNR\construct - line 3
*****************несколько классов*************
(S)\Classes\MenuFunction\runServer

Error Сообщение (03:06:33) Объект "CLRObject" не может быть создан

[epetrov]

Цитата:

еще бы анализ случайности и воспроизводимости...

Что Вы понимаете под воспроизводимостью? поясните.