Ales'hon'ne - Форум программистов и сисадминов Киберфорум

Python и Парето-оптимальность, или как найти эффективные оценки непонятным образом

Запись от Ales'hon'ne размещена 04.12.2014 в 16:55

Показов 13870 Комментарии 0

Внимание, не используйте приведённый здесь код в практических целях! Оно написано для приведения в ужас преподавателя.
Цель: выделить из множества оценок эффективные.
Вид оценки: {x_i}, i∈{1..n}.
Критерий эффективности: оценка эффективна, если хотя бы один из её компонентов меньше, чем у любой другой оценки. Если есть несколько таких оценок, выбирается с минимальными остальными компонентами, см. Парето-оптимальность.
Дополнительное условие: человек, пытающийся...

Ales'hon'ne

Метод прогонки — на языке Ада ]:->

Запись от Ales'hon'ne размещена 07.10.2013 в 19:15

Показов 3918 Комментарии 0

Метки ada, math, математика, слау

UPD: Прошу простить за внешний вид кода, синтаксис Ады весьма специфичен.
Первый опыт написания чего-либо на этом ~~ужасном~~ замечательном языке. Больше всего меня удивляет то, что оно заработало.

Если захотелось себе, а про Аду ничего не знаете

Важно: файл с исходным кодом должен называться main.adb. Если назовёте по-другому, то могут быть проблемы.

У вас linux
Первые две процедуры (System_Command и Set_Console_Encoding) нужно удалить. А также строки 264 и 328. После этого,

...

Ales'hon'ne

Как прочитать множество из строки

Запись от Ales'hon'ne размещена 25.05.2013 в 11:20

Показов 2554 Комментарии 0

Метки delphi/pascal, множества

Собственно, вопрос: есть строка, определяющая множество чисел как в паскале. Нужно эту строку разобрать. Готовых решений не нашёл (может, плохо искал), и пришлось писать велосипед.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
type
  ByteSet=set of Byte;
 
function StringToSet(v: AnsiString): ByteSet;
type
  TToken=(ttNomber, ttPause, ttDiapasone, ttEnd, ttOther, ttError);
var
  i: Integer;
  lastNomber: byte;
 
  procedure SpaceDil;
  begin
    while (v[i] in

...

Ales'hon'ne

Преобразование RGB-HSL

Запись от Ales'hon'ne размещена 17.02.2013 в 15:32

Показов 8020 Комментарии 0

Метки delphi/pascal, hsl, rgb, цвет

Функции для преобразования цветов из человекоудобной системы HSL в компьютероудобную RGB и обратно.

Суть системы HSL (для тех, кто не знает)

Нажмите на изображение для увеличения
Название: color-wheel.jpg
Просмотров: 2886
Размер: 144.0 Кб
ID: 1736

Итоговый цвет в HSL получается путём выбора основного тона (H, hue) и его насыщенности (S, saturation) и светлоты (L, lightness). В качестве иллюстрации можно представить лампочку, которую нужно покрасить. Вы можете выбрать

...

Ales'hon'ne

Класс-кэш

Запись от Ales'hon'ne размещена 21.08.2012 в 21:30

Показов 13183 Комментарии 1

Метки delphi/pascal

Назначение класса - временное хранение некоторого набора именованных значений, причём значение, к которому обращались недавно, будет возвращено быстрее, чем значение, к которому обращались давно.

После долгих и упорных издевательств над дельфями выяснилось, что Dispose память, выделенную процедурой New, не освобождает, хотя вроде должен. Зато FreeMem - освобождает, хотя для этого и не предназначен. Возможно, что это только у меня

...

Ales'hon'ne

Реализация метода Рунге-Кутты

Запись от Ales'hon'ne размещена 20.08.2012 в 19:13

Показов 3675 Комментарии 0

Метки delphi, delphi/pascal, math, pascal, математика

Пример использования:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program CallExponent;
{программа вычисляет значение константы e путём
 решения дифференциального уравнения y'=y, y(0)=1}
uses
  RungeKutta;
 
function Equation(x,y:extended):extended;
begin
  Result:=y
end;
 
begin
  WriteLn(GetSolutionAtPoint(1,0.001,0,1,Equation)) 
  // 2.71828182845902
  // погрешность в 14-ом знаке после запятой
end.

Собственно модуль (для...

Ales'hon'ne

Обёртка к классу TXmlDocument

Запись от Ales'hon'ne размещена 07.08.2012 в 19:41

Показов 3282 Комментарии 0

Не по теме:

Немного напоминает XPath, но всё же не оно.

Достоиства:

лаконичный код;
с первого взгляда понятно, к какому элементу происходит обращение;
удобный доступ по атрибутам;

Недостатки:

медленная работа;
неоптимальный код;
может работать не так, как ожидалось;
для совершения некоторых действий нужно пошаманить;

Кроме того, модуль наследует все достоинства и недостатки TXmlDocument.

Демонстрация работы модуля (скомпилированная программа: Project1.zip):

Что было...

Ales'hon'ne

Формула оценки сложности пароля

Запись от Ales'hon'ne размещена 25.07.2012 в 20:13

Показов 9058 Комментарии 2

Метки delphi/pascal, пароли

Не очень сложная, но, при этом, вроде как что-то оценивает:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?(N+\sqrt{0.5N_s+N_r}-\sqrt{N_c})\log_N{N_u}$
N - число символов в пароле
N_u - число уникальных символов (с учётом регистра)
N_s - число специальных символов (!,",*,?,},…)
N_r - число букв, регистр которых отличается от предыдущей (регистр цифр и спецсимволов — нейтральный (не верхний и не нижний))
N_c - число идущих подряд символов одного типа (буквы, цифры, спецсимволы)
log_NN_u≤1 -...

Ales'hon'ne

Функции с заданными пределами

Запись от Ales'hon'ne размещена 06.07.2012 в 14:41

Показов 3146 Комментарии 0

Метки math, математика

Зачем нужны такие функции и нужны ли вообще, я сказать не могу. Мне лично они понадобились для расчёта значения скидки в курсовой работе, то есть ровно один раз.

На основе арктангенса:
- Формула:
  $https://www.cyberforum.ru/cgi-bin/latex.cgi?f_1(x)=\frac{c-a}{\pi/2}\cdot\arctan{\left(\frac {\pi |b|x}{2|c-a|}\right)}+a$
- График:
  
  Синия линия — функция, чёрная — касательная в нуле, лиловая — верхняя асимптота, голубая — нижняя асимптота, зелёная — значение в нуле.
  Параметры функции: $https://www.cyberforum.ru/cgi-bin/latex.cgi?a=1$ , $https://www.cyberforum.ru/cgi-bin/latex.cgi?b=0.45$

...

Ales'hon'ne

Функции вычисления кратных приставок

Запись от Ales'hon'ne размещена 22.06.2012 в 21:44

Показов 3318 Комментарии 0

Метки delphi, delphi/pascal, math, pascal, математика

Пример использования

Delphi
1
2
3
4
5
6
7
GetScPref(0.00017,0,'Ф');//=170 мкФ
GetScPref(1e20,0,'Дж');//=100 ЭДж
GetScPref(0.19856,2,'г');//=198,56 мг
GetScPref(0.19856,1,'г');//=198,6 мг
{-----------------}
GetCompPref(100000000,2);//=95,37 МиБ
GetCompPref(1000,2);//=0,98 КиБ

Собственно функции

Delphi
1
2
3
4
5
6
7
8
uses
  Math, SysUtils;
 
function GetScPref(v:extended;n:byte;meas:string):string;
var
  t:integer;
const
  pref:array[-8..8] of string=

...

Ales'hon'ne

Бинарный поиск по монотонной функции или массиву

Запись от Ales'hon'ne размещена 21.06.2012 в 19:12

Показов 5507 Комментарии 0

Метки delphi, delphi/pascal, pascal, бинарный поиск, математика, поиск

Все сравнения осуществляются с точностью epsilon, если eps=0, то имеется реальный шанс ~~искать значение вечно~~ добиться переполнения стека.

Delphi
1
2
3
4
5
unit BynaryFind;
 
{Будьте внимательны при использовании границ поиска по умолчанию, поскольку
использованы максимальное и минимальное возможные значения переменной типа
Extended, и если для

...

Ales'hon'ne

Полусдвиговый шифр

Запись от Ales'hon'ne размещена 25.03.2012 в 12:47

Показов 19588 Комментарии 1

Метки криптография

Теория
Сама идея шифра довольно проста:

Преобразовать текст в набор двузначных кодов символов в соответствии с таблицей;
Первую цифру полученной последовательности перенести в конец;
Восстановить из двузначных кодов текст в соответствии с таблицей.

Не по теме:

Кстати, в википедии я ничего похожего не нашёл. Неужели я - разработчик шифра?!

Пример
Используем следующую таблицу:

00	а	10	ж	20	н	30	у	40	щ	50	я
01	б	11	з	21	о	31	ф	41	'	51	_
02	в	12	и	22	п	32	х	42	ы	52	.

...

Ales'hon'ne

Модуль для хранения пароля

Запись от Ales'hon'ne размещена 12.02.2012 в 20:52

Показов 3443 Комментарии 0

Метки delphi/pascal, криптография, пароли

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

Delphi
1
2
3
4
5
6
7
8
unit SubRosa;
 
{
+----------------------+
|Примеры использования:|
+----------------------+------------------------+
|...                                            |
|  Write('Введите старый пароль: ');            |

...

Ales'hon'ne

Модуль рисования почтового индекса на канве

Запись от Ales'hon'ne размещена 12.02.2012 в 20:38

Показов 3996 Комментарии 0

Метки delphi/pascal, почтовый индекс

Возможно, кому-нибудь пригодится. Правда, чтобы добиться совпадения рисунка с пунктиром на конверте придётся попотеть с коэффициентами.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
unit ZipCode;
 
interface
 
uses
  Math, Graphics;
 
/// <summary>
///   Вывод на канву почтового индекса
/// </summary>
/// <param name="Canvas:TCanvas">
///   Указатель на экземпляр класса TCanvas, на

...

Ales'hon'ne

Новые блоги и статьи Все статьи Все блоги /
Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .	Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .
Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .	Модель здравосохранения 16. Слишком хорошие и здоровые сотрудники уходят, недовольные зарплатой anaschu 23.05.2026 Отладка увольнений и настройка производительности Сегодня во второй половине дня разобрались с механикой увольнений и настроили коэффициент сложности заданий. Вот что было сделано. . . .	Как я стал коммунистом))) Модель сохранения здоровья сотрудников, запись блога номер 15 anaschu 23.05.2026 Внезапно хорошее здоровье сотрудников не нужно капиталистам?))	Модель здравоСохранения 15. Как мы чинили AnyLogic модель рабочего коллектива: сочленение диаграммы состояний болезней и поломок в ресурспул anaschu 23.05.2026 Как мы чинили AnyLogic модель рабочего коллектива Сегодня разобрались с пятью багами, из-за которых модель либо падала с ошибкой, либо давала совершенно бессмысленные результаты. Каждый баг был. . .

Сообщение форума

Отменить изменения