генератор м-последовательности

Вверх ↑

Форумы Прочеегенератор м-последовательности ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 96

Рейтинг: 1

#1: 2010-12-03 15:04:20 ЛС | профиль | цитата

Подскажите как реализовать генератор м-последовательности в этой среде. Очень надо.

карма: 0

Ответов: 8961

Рейтинг: 824

#2: 2010-12-03 16:15:15 ЛС | профиль | цитата

301992, М-последовательность по русски: равномерно распределённые на обозначенном интервале случайные числа. В HiAsm реализовано стараниями nesco в компоненте Rendom

Справка писал(а):

doRandomWithoutRepeats=Генерирует неповторяемую последовательность случайных целых чисел

карма: 19

Ответов: 96

Рейтинг: 1

#3: 2010-12-03 16:38:20 ЛС | профиль | цитата

Леонид писал(а):

М-последовательность по русски: равномерно распределённые на обозначенном интервале случайные числа. В HiAsm реализовано стараниями nesco в компоненте Rendom

спасибо за ответ. Я показывал преподу реализацию на этом компоненте, а он говорит, что это не то и дал вот эту ссылку http://vrtp.ru/index.php?showtopic=9500

карма: 0

Ответов: 8961

Рейтинг: 824

#4: 2010-12-03 18:02:55 ЛС | профиль | цитата

301992, тогда и вопрос надо ставить иначе и поиском воспользоваться

выкладывал уже

карма: 19

файлы: 1

aaa_rnd.rar [3.6KB] [111]

Ответов: 96

Рейтинг: 1

#5: 2010-12-06 15:46:57 ЛС | профиль | цитата

Вот преподаватель еще одну ссылку дал http://vadimglv.livejournal.com/1026.html и говорит, что на основании этой информации можно создать генератор ПСП с регистром сдвига с длиной ПСП 32 -1бита. Но я в Hiasm чайник, а в Ассемблере тем более. Подскажите с чего начать?

карма: 0

Ответов: 8961

Рейтинг: 824

#6: 2010-12-06 17:24:55 ЛС | профиль | цитата

[b]301992[/b], алгоритмов программного генерирования псевдослучайного числа великое множество, вот по Вашей ссылке:


Add(MainForm,2953706,119,63)
{
 link(onCreate,4469104:doTik,[])
}
Add(InlineCode,4469104,168,77)
{
 WorkPoints=#30:doTik=Получить тики процессора|
 EventPoints=#35:onTik=Выдаёт текущий тик процессора|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Windows,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|19:   onTik:THI_Event;|48:   procedure doTik(var _Data:TData; Index:word);|5: end;|0:|14:implementation|28:procedure THiAsmClass.doTik;|15:var _Tik:int64;|5:begin|32:  QueryPerformanceCounter(_Tik);|29:  _Tik:=_Tik mod 4294967296; |27:  _hi_onEvent(onTik, _Tik);|5:end; |4:end.|
 Name="Tik"
 link(onTik,4839542:doWork2,[(255,83)(255,125)])
}
Add(Button,4591034,168,175)
{
 Left=15
 Top=70
 link(onClick,8774678:doCalc,[])
}
Add(Edit,15859189,210,119)
{
 Left=60
 Top=25
 Width=115
 Text="2100967296.0"
}
Add(Label,1432684,168,119)
{
 Left=35
 Top=25
 Width=25
 Height=25
 Font=[MS Sans Serif,12,1,0,1]
 Caption="C="
}
Add(Memory,3893185,287,119)
{
 Default=Integer(0)
}
Add(Edit,10497919,287,175)
{
 Left=90
 Top=70
 Width=110
 ReadOnly=0
}
Add(Hub,3429110,252,175)
{
 link(onEvent1,4839542:doWork3,[(277,181)])
 link(onEvent2,10497919:doText2,[])
}
Add(HubEx,4839542,273,119)
{
 link(onEvent,3893185:doValue,[])
}
Add(MathParse,8774678,210,175)
{
 MathStr="(%1 + %2) mod 4294967296"
 link(onResult,3429110:doEvent1,[])
 link(X1,15859189:Text,[])
 link(X2,3893185:Value,[(223,163)(293,163)])
}

На Ассемблере тоже не умею :(

карма: 19

Форумы Прочеегенератор м-последовательности ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)