СОЦИОН. — Гюго и Дюма - не существует!

Re: Гюго и Дюма - не существует!

null@example.com (Tribun) — Sun, 29 Oct 2006 11:27:48 +0000

В смысле?!

Re: Гюго и Дюма - не существует!

null@example.com (Praetor_Gix) — Sat, 28 Oct 2006 21:25:13 +0000

Гюго и Дюма - не существует!

Каламбия пикчерз не представляед...
...А.......не представляед

Re: Гюго и Дюма - не существует!

null@example.com (kaprizka) — Sat, 28 Oct 2006 18:59:45 +0000

Tribun пишет:

Жаль только одна проблемма, но это у меня комп глюкнутый:

А компы нынче такая дорогая вещь, что далеко не каждому по карману. Так?

но память о Паскале у меня свежая, и я думаю что если постараюсь то может быть осилю и твой алгоритм...

Несомненно разберёшься. Это ведь Паскаль, а не BrainFuck.

Спаибо что постарался, я тебе очень признателен,

Хорошо.

Каприза! Я изучил прочие признаки, о которых ты говорила.

Тоже хорошо.

Re: Гюго и Дюма - не существует!

null@example.com (Tribun) — Sat, 28 Oct 2006 17:25:57 +0000

Каприза! Я изучил прочие признаки, о которых ты говорила.
Зайди сюда!
http://www.socionica.com/viewtopic.php?id=2499

Re: Гюго и Дюма - не существует!

null@example.com (Tribun) — Fri, 27 Oct 2006 16:31:27 +0000

Я изучал паскаль в финансовом лицее. Версию не помню, но там мы остановились только на масивах, процедурах и функцкиях, далее был финиш. Затем немного припомнили этот Паскаль в Политехе, там еще познакомился с графическими редакторами, затем эту тему не развивал. С того момента прошло 3 года, но память о Паскале у меня свежая, и я думаю что если постараюсь то может быть осилю и твой алгоритм...

Re: Гюго и Дюма - не существует!

null@example.com (Tribun) — Fri, 27 Oct 2006 16:28:24 +0000

Спасибо! Получил. Разархивировал. Жаль только одна проблемма, но это у меня комп глюкнутый:
не запускает ни один Паскаль. Спаибо что постарался, я тебе очень признателен, когда найду свой старый комп - попробую запустить, может там что-нибудь получится...

Re: Гюго и Дюма - не существует!

null@example.com (kaprizka) — Fri, 27 Oct 2006 15:34:55 +0000

Tribun пишет:

А можешь выслать мне на eroslove@ukr.net Турбо 7?

Не знаю. Это зависит от твоих спам-фильтров.
А вообще-то ты неразумно поступаешь. Неэффективно.
Нет чтобы полностью описать ситуацию.
(перечислить все языки, какими владеешь; указать настройки почтового ящика - в первую очередь разрешённый размер вложений; указать операционную систему и имеющиеся разархиваторы)
Тем не менее, раз мыло указано - попробую послать. Пошлю в виде архива типа arj. Это примерно 2Мб.

Re: Гюго и Дюма - не существует!

null@example.com (Tribun) — Fri, 27 Oct 2006 14:38:35 +0000

А можешь выслать мне на eroslove@ukr.net Турбо 7?

Re: Гюго и Дюма - не существует!

null@example.com (Tribun) — Fri, 27 Oct 2006 14:35:48 +0000

Черт! Мне прислали паскаль5 он не запускается...

Re: Гюго и Дюма - не существует!

null@example.com (Noire) — Thu, 26 Oct 2006 12:58:37 +0000

Praetor_Gix пишет:

Tribun пишет:
Давно хотел тебе сказать одну вещь ГЫКС:
Ты неадекватен по БЛ:))))
Я в этом никогда не сомневался ))
потому что я ШОКОЛАДНЫЙ ЗАЕЦ

Гикс жжот нереально. А шоколад белый, молочный или горький?

Re: Гюго и Дюма - не существует!

null@example.com (Кровавый тиран) — Thu, 26 Oct 2006 12:33:28 +0000

kaprizka пишет:

Заец - это житель Зая?

житель Зайона

Re: Гюго и Дюма - не существует!

null@example.com (Бальса) — Thu, 26 Oct 2006 12:23:48 +0000

Было бы забавно, если бы пришел какой-н Дюма или Гюго и набил трибуне морду. Так часто и рушатся "стройные" теории.

Re: Гюго и Дюма - не существует!

null@example.com (kaprizka) — Thu, 26 Oct 2006 09:59:12 +0000

Заец - это житель Зая?

Re: Гюго и Дюма - не существует!

null@example.com (Praetor_Gix) — Thu, 26 Oct 2006 09:45:20 +0000

Tribun пишет:

Давно хотел тебе сказать одну вещь ГЫКС:
Ты неадекватен по БЛ:))))

Я в этом никогда не сомневался ))
потому что я ШОКОЛАДНЫЙ ЗАЕЦ

Re: Гюго и Дюма - не существует!

null@example.com (kaprizka) — Thu, 26 Oct 2006 00:33:45 +0000

Tribun пишет:

А на каком Паскале она лучше идет?

Это Turbo-Pascal версии 7.0.

можно сначала подробнее про это:
USES crt,txtmouse;

Используется вывод на экран в заданную позицию, а также очистка экрана. Поэтому uses crt;
Используется функция hexw(w), поэтому uses txtmouse. Но модуль txtmouse - это мой собственный модуль, написанный вовсе не для этой программы. Так что его проще отбросить.
А функция hexw - это просто преобразование слова в строку в hex-формате.

LABEL start;
TYPE myreal=single;

Захотел завести метку - завёл. Не нравится - уберите.
Без неё и соответствующего перехода вполне можно обойтись.
Захотел переопределить тип - переопределил.

CONST priz1: array[0..15] of string[4]
'этик', 'сенс', 'раци', 'интр',
'арис', 'эмот', 'упря', 'стра', 'пред', 'дина',
'резу', 'нега', 'серь', 'реши',
'декл', 'фига');
priz0: array[0..15] of string[4]
'логи', 'иNту', 'ирра', 'экст',
'демо', 'конс', 'усту', 'такт', 'бесп', 'стат',
'проц', 'пози', 'весё', 'расс',
'квес', 'фига');

Это типизованные константы. Эти строки вам будут выводиться как подсказки для ввода вероятностей.

prik: array[0..15] of word=(
1, 2, 4, 8, {признаки первого порядка}
1+2, 1+4, 1+8, 2+4, 2+8, 4+8, {признаки второго порядка}
1+2+4, 1+2+8, 1+4+8, 2+4+8, {признаки третьего порядка}
1+2+4+8, 0); {признаки четвёртого и нулевого порядка}

этика, сенсорика, рациональность и интроверсия - признаки первого порядка.
1,2,4 и 8 - это соответствующие им маски битов в кодировке ТИМа в программе.
Значения остальных признаков вычисляются в соответствии с указанными суммами.
Можно было не вычислять каждый раз, а сразу завести 16 значений для каждого ТИМа.
А я вычисляю, хоть это неоптимально по времени.

tipes: array[0..17] of string[3]=
('Дон','Гек','Жук','Нап','Дже','Гам','Шти','Гюг',
'Бал','Есь','Габ','Дюм','Роб','Дос','Мак','Дра','Чеб','Итог');

Имена типов для вывода на экран.

neched: array[0..15] of boolean=
(false,true,true,false,true,false,false,true,
true,false,false,true,false,true,true,false);

Если число содержит чётное число единиц, то false; если нечётное, то true.
Это служебная подпрограмма-функция.

word

тип переменной, принимающий целые значения в пределах от 0 до 65535.

Зачем такое большое число:
korv,korn: array[0..150] of word;

Это связано с тем, что вероятности искажений - дробные величины и притом известные.
Из-за этого и кодовые расстояния получаются дробными.
А раз так - распределение кодовых расстояний не может быть отражено только целыми значениями.
Вот массив и увеличился.
Вообще говоря, проблему адекватного вывода этого массива я так и не решил.

Метками меня учили не пользоватся.
LABEL start;

Хочу - пользуюсь. Хочу - не пользуюсь. Хачу ни хачу делаю што хачу
С меткой логика программы выглядит более аккуратной, чем если бы я применил цикл repeat-until вместо неё. И не надо делать лишний indent - а это экономия байтов.

Вообщем мне нужна более подроная консультация, я буду благодарен если ты мне ее окажешь. Я даже распечатал твой алгоритм, для того тчобы разобратся в тонкостях его работы.

Работа программы основана на имитационном моделировании.
В цикле из 10000 итераций делается последовательность:
1) выстреливается очередной "правильный" ТИМ;
(всего делается по 625 выстрелов каждого ТИМа.)
2) к нему цепляется "правильный" набор признаков Рейнина;
3) он обрастает искажениями (используется датчик случайных чисел, встроенный в Turbo-Pascal);
...
4) а затем начинается расшифровка.
При этом каждый признак Рейнина вносит вклад в кодовое расстояние, зависящий от вероятности его искажения. Для вероятностей меньше 0.5 вклад признака положителен, для вероятностей больше 0.5 отрицателен. В частности, вероятность искажения 1 соответствует точному инверсному восприятию и не теряет информации. А весёлый, искажённый с вероятностью 80% - эквивалентен серьёзному, искажённому с вероятностью 20%.

ТИМ, у которого наименьшее кодовое расстояние от принятой комбинации - используется как результат "типирования". Он может совпасть с исходным или не совпасть.
В рамках тех вероятностей, какие указал Ярослав, искаженние чаще всего ведёт к зеркальщику.
Пока что мы видим, что вероятность правильно определить ТИМ - около 79%.
А вероятность принять неправильный за правильный - не выше 0.01%.

По уму, в начале программы надо добавить оператор
randomize;
чтобы он подсчитывал случайнее.