ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
15.04.2009, 18:32
|
|
Постоянный
Регистрация: 20.06.2008
Сообщений: 323
Провел на форуме:
1240829
Репутация:
165
|
|
Markus_13, во первых вопрос я разрешил дополнительными потоками и WaitForSingleObject. А во вторых, первоначально у меня была идея, чтобы оборвать выполнение процедуры OnClick основного потока, чтобы стек и переменные сохранились. А когда "грузовой" поток бы завершился, вызвать по адресу продолжение процедуры OnClick с места где она оборвалась. Но это гемор, поэтому так.
|
|
|
15.04.2009, 21:07
|
|
Познающий
Регистрация: 19.02.2009
Сообщений: 83
Провел на форуме:
181715
Репутация:
50
|
|
интересно, а что за прога если не секрет, зачем такой нестандартный подход?)
|
|
|
|
15.04.2009, 22:57
|
|
Участник форума
Регистрация: 07.01.2009
Сообщений: 186
Провел на форуме:
1247273
Репутация:
166
|
|
Может вопрос и простой, но не нашел ответа нигде в сети =\
Имеется приложение на Delphi7+KOLnMCK в uses которого необходимо включить дополнительный модуль (в моем случае - WinInet). Обычное дописывание через запятую не помогает. Как добавить дополнительный модуль в приложение Delphi если оно использует KOLnMCK?
|
|
|
|
16.04.2009, 00:04
|
|
Постоянный
Регистрация: 20.06.2008
Сообщений: 323
Провел на форуме:
1240829
Репутация:
165
|
|
просто он у тебя в путях где delphi библиотеки ищет не значится. кинь в папку libs модуль
|
|
|
|
16.04.2009, 00:13
|
|
Познающий
Регистрация: 19.02.2009
Сообщений: 83
Провел на форуме:
181715
Репутация:
50
|
|
как можно сделать генерацию случ. чисел чтобы погрешность была +-10%, т.е. чтобы при эмулировании бросания монетки (генерация ранд. чисел от 0 до 1) - из 100 были 45-55 единицами (или нулями)
вообщем суть неважна - но чтобы ф-ия выдавала тру или фолс)))
З.Ы. естес-но без random сделать =\
З.З.Ы. впринципе можно на асме - надеюсь перевести смогу на паскаль или вставку сделать)
Последний раз редактировалось Markus_13; 16.04.2009 в 00:17..
|
|
|
|
16.04.2009, 00:18
|
|
Постоянный
Регистрация: 20.06.2008
Сообщений: 323
Провел на форуме:
1240829
Репутация:
165
|
|
Что ты подразумеваешь под погрешностью +-10%? random() и так должен выдавать случайные числа с вероятностью равновыпадения разных чисел 50%. Ест-но чем больше испытаний тем ближе вероятностью равновыпадения к 50%. Теория вероятности..
|
|
|
|
16.04.2009, 00:30
|
|
Познающий
Регистрация: 19.02.2009
Сообщений: 83
Провел на форуме:
181715
Репутация:
50
|
|
нужно 45-55 из 100, без использования ф-ии random - че непонятно?))
чтобы можно было цикл в 100 генераций прогнать неск-ко тысяч раз и небыло меньше 45 и больше 55 вариантов одинаковых, я просто в математике слаб, а книжка по теории вероятностей уже полгода на столе валяется - больше 10 страниц неосилил))
|
|
|
|
16.04.2009, 00:54
|
|
Постоянный
Регистрация: 20.06.2008
Сообщений: 323
Провел на форуме:
1240829
Репутация:
165
|
|
Тогда тебе в модуль Math.
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619976&n=19
|
|
|
|
16.04.2009, 01:02
|
|
Познающий
Регистрация: 19.02.2009
Сообщений: 83
Провел на форуме:
181715
Репутация:
50
|
|
ну и? мне нужно построить алгоритм генерации именно без random, пихать в прогу код random`а тоже естес-но ненужно, а в модуле Math используется тот же random
причем на один "бросок монетки" есть аж 1 миллисекунда Оо, ну и желательно попроще алгоритм и попонятней))
|
|
|
|
16.04.2009, 01:42
|
|
Постоянный
Регистрация: 20.06.2008
Сообщений: 323
Провел на форуме:
1240829
Репутация:
165
|
|
Вот нашёл то, что тебе надо, правда на си..
Равномеpное pаспpеделение от 0 до 1. Метод вычетов. Он же метод Лемеpа.
=== Cut ===
struct time t; // стpyктypа вpемени
static long x; // для генеpатоpа
//----------------------------------------------------------------------------
// Инициализация генеpатоpа слyчайных чисел
double Randomize()
{
gettime(&t);
x=t.ti_sec;
}
//----------------------------------------------------------------------------
// Генеpатоp слyчайных чисел
double Rnd()
{
const a=13;
const c=15;
const long M=32768;
x=(a*x+c)\%M;
return (double)x/M;
}
=== Cut ===
Можешь поигpаться с константами...
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
