Добрый день!

На днях закончил читать книгу "Эгоистичный ген" (автор - известный ученый и популяризатор науки Докинз).
В одной главе: http://www.rulit.net/books/egoistichnyj-gen-read-45448-89.html
описано компьютерное моделирование множества матчей разных стратегий этой игры. Разные стратегии набирали разное количество очков.
Как пишет Докинз, успешность-неуспешность стратегии сильно зависит от начальных условий, в которые она попала (разное количество других стратегий в популяции).
Захотелось также промоделировать этот чемпионат. Какие стратегии Вы можете предложить?
Некоторые у Докинза описаны:
- "всегда отказываюсь"
- "всегда кооперируюсь"
- "случайная" (антистратегия, то есть абсолютно случайные ходы)
- "око за око"
- "око за два ока"

Я также придумал свою, но для полноценного чемпионата нужно хотя бы десяток. В книге описано, что в первом чемпионате участвовало 15, во втором - 63. В третьем (где "выигрыш" выплачивался не в баллах, а в количестве копий стратегии на следующую итерацию) - те же 63.

Третий чемпионат наиболее интересен, как мне кажется.

теперь в 5 минут проходит

да, и при 2х спецслужбах китайцы сливаются АНБ а с ФСБ в отказ идут))) что тоже забавно

(569) Наверно, больше платит.

и сразу оптимизированная стратегия АНБ
сПарамВход = сВход;

Если сПарамВход.НомерПартии < 3 Тогда

  РезультатВыполнения = Истина;

Иначе

  сПарамВход.Вставить("КоличествоПредшествующихХодов",1);

  Карта = ВычислитьПараметр("КартаОппонентаНаХодуПредшествующемНаХ",сПарамВход);
  Статистика = ВычислитьПараметр("ПредсказуемостьОппонентаГлобальнаяОпт",сПарамВход);
  Если Статистика.Общее<=1/2 Тогда
     РезультатВыполнения = Ложь;
  ИначеЕсли Статистика.Отказ<=1/2 Тогда
     РезультатВыполнения = Ложь;
  ИначеЕсли Статистика.Сотрудничество<=1/2 Тогда
     РезультатВыполнения = Ложь;
  ИначеЕсли сПарамВход.НомерПартии>10 Тогда
     РезультатВыполнения = (сПарамВход.Чемпионат.БаллКогдаЯОбманул*(1-Статистика.Отказ)+сПарамВход.Чемпионат.БаллЗаВзаимныйОтказ*Статистика.Отказ < сПарамВход.Чемпионат.БаллКогдаМеняОбманули*(1-Статистика.Сотрудничество)+сПарамВход.Чемпионат.БаллЗаВзаимнуюКооперацию*Статистика.Сотрудничество);
   Иначе
     РезультатВыполнения = Карта;
КонецЕсли;
КонецЕсли;

100 партий - отрыв от 1го места 3 очка

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

из (571) для АНБ использовать:
Статистика = ВычислитьПараметр("ПредсказуемостьОппонентаГлобальная",сПарамВход);
для ФСБ:
Статистика = ВычислитьПараметр("ПредсказуемостьОппонента",сПарамВход);

(571) Вываливается с ошибкой {(13)}: Значение не является значением объектного типа (Общее)
  Если Статистика.Общее<=1/2 Тогда

(574)

Кинь в одном посте последние версии параметров и стратегий. Желательно под спойлером. Для спойлера нужно использовать квадратные скобки [ ] а между ними английскую букву C

[C]
пример кода
под спойлером

(576) Чё то не сворачивает ))) Lama12 - как правильно под спойлер пихать?

тест [s]123[/s]

Если ИначеЕсли

опа, гопарь побит
сейчас еще посмотрю улучшения возможные

(C)
тест под спойлером
Англ. С в круглых скобках

в оффах не рабатает

(581) У меня вываливается стратегия с ошибкой!

(583) В этой ветке Lama12 прекрасно кидал под спойлер.

(584)знаю я параметр копированием делал, сейчас скину итоговые версии

еще любопытно: поставил флаг "Играть с собой", АНБ-АНБ уходит в отказ

АНБ
сПарамВход = сВход;

Если сПарамВход.НомерПартии < 3 Тогда

  РезультатВыполнения = Истина;

Иначе

  сПарамВход.Вставить("КоличествоПредшествующихХодов",1);

  Карта = ВычислитьПараметр("КартаОппонентаНаХодуПредшествующемНаХ",сПарамВход);
  Статистика = ВычислитьПараметр("ПредсказуемостьОппонентаГлобальная",сПарамВход);
  Если Статистика.Общее<=1/2 Тогда
     РезультатВыполнения = Ложь;
  ИначеЕсли Статистика.Отказ<=1/2 Тогда
     РезультатВыполнения = Ложь;
  ИначеЕсли Статистика.Сотрудничество<=1/2 Тогда
     РезультатВыполнения = Ложь;
  ИначеЕсли сПарамВход.НомерПартии>10 Тогда
     РезультатВыполнения = (сПарамВход.Чемпионат.БаллКогдаЯОбманул*(1-Статистика.Отказ)+сПарамВход.Чемпионат.БаллЗаВзаимныйОтказ*Статистика.Отказ < сПарамВход.Чемпионат.БаллКогдаМеняОбманули*(1-Статистика.Сотрудничество)+сПарамВход.Чемпионат.БаллЗаВзаимнуюКооперацию*Статистика.Сотрудничество);
   Иначе
     РезультатВыполнения = Карта;
КонецЕсли;
КонецЕсли;

Параметр как и раньше (не менять)

(585) Включили OFF.
Видимо NS посчитал чт с точки зрения классической математики задача решена и интереса не представляет (мои предположения). :)

А вообще сполер работает на английские буквы 1C d квадратных скобках.

тут


а нет :) сработал

так начало

Так  конец

(533)

"око за око с лагами" - уже запарился с ней. Вот уж назвал яхту!

пост 1

"1. Кооперируюсь.
2. Если противник "Кооперируюсь" на предыдущем ходе, то следующие 2 хода "отказ". Если противник "отказ" - 2 хода кооперируюсь. То есть по сути то же "око за око", но отвечаем на каждый второй ход, отвечая 2 хода подрят. Надеюсь понятно написал"


пост 2.
"суть алгоритма. "око за око с лагом (потерей пакетов)"

1. ход Кооперируюсь. Противник Кооперируюсь

2. ход по алгоритму око за око делаем Кооперируюсь. Противник Отказ
3. ход по алгоритму око за око, но не предыдущего хода, а предпредыдущего делаем Кооперируюсь (то есть мы не увидели ход соперника на 2м ходу). Противник Отказ
4. ход по алгоритму око за око делаем Отказ. Противник не важно что
5. ход по алгоритму око за око, но не предыдущего хода, а предпредыдущего делаем Отказ (то есть мы не увидели ход соперника на 4м ходу). Противник Отказ

То есть каждый четный ход мы делаем стандартно по алгоритму око за око
Каждый нечетный ход с 3го мы делаем копию своего предыдущего хода"


Я не могу объединить посты:
"Если противник "Кооперируюсь" на предыдущем ходе, то следующие 2 хода "отказ""
и
"То есть каждый четный ход мы делаем стандартно по алгоритму око за око"


Пока у меня вот такой код вышел. Поправь его:

сПарамВход = сВход;

Если сПарамВход.НомерПартии = 1 Тогда

  РезультатВыполнения = Истина;

Иначе

  Если ВычислитьПараметр("НомерХодаХЧетный",сПарамВход) = Ложь Тогда //Если номер хода нечетный - просчитываем нашу реакцию

    сПарамВход.Вставить("КоличествоПредшествующихХодов",1);

    Карта = ВычислитьПараметр("КартаОппонентаНаХодуПредшествующемНаХ",сПарамВход);

    РезультатВыполнения = НЕ Карта;

  Иначе  //в случае четного хода - повторяем свой предыдущий ход

    сПарамВход.Вставить("КоличествоПредшествующихХодов",1);

    Карта = ВычислитьПараметр("КартаСтратегииНаХодуПредшествующемНаХ",сПарамВход);

    РезультатВыполнения = Карта;

  КонецЕсли;

КонецЕсли;

(589) Это не математическая задача.
Точнее математическая - посмотрев текущие алгоритмы соперников я могу написать версию которая со всеми (позволяющими это) войдет в сговор. Но это не интересно.

Я ОФФ не включал. :)

(594) То, что она войдет в сговор - вовсе не гарантирует то, что она наберет больше всех очков.

(594), (596)
А ты придумай ка такую, чтобы она победила в чемпионате по очкам!

(596) Если правильно войдет - гарантирует.

(597) Выложи код всех соперников.

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

(600) Нет восьмерки.
На файлхостинг любой лучше положи, чтоб всем доступно было.

(601) Ок, выложу. Хотя кроме тебя все остальные смотрят прямо в базе. Там коды стратегий не закрыты - смотри на здоровье.

(602) У меня сейчас нет восьмерки. И ключ я где-то потерял.

(603) Я дома учебной пользуюсь. Бесплатной. Для этой задачи хватает. Лицензия позволяет.

Пока попробуй - первая заявка кооперируюсь,
пока соперник кооперируется тоже кооперируемся, как только в первый раз он решил наказать - все последующие заявки наказать.
Предыдущую, "всегда наказать" тоже оставь :)
Их в итоге должно быть несколько - начальная добавленная тобой, и от всех кто добавил такую стратегию от себя.

http://v8.1c.ru/edu/

(605)стратегия "Спусковой крючок" была, она не оптимальна на больших дистанциях

(605) NS я сейчас добавлю твои 2 стратегии. А ты, плиз, скачай учебную 1С-ку ))) Ужасно не хочется с текстовиками гемороиться.

(608) пришлют сразу после заполнения анкеты?

(607) Пусть пока будет.

(607) Мы про неё говорили, но в чемпионат не вставляли. Назову "Спусковой крючок от NS".

Антиподом ей будет "Почтальон Печкин". Начинает с отказа, и отказывает до тех пор, пока соперник не выставит хоть одно "Кооперируюсь". Далее всегда кооперируется.
Слоган: "Я почему раньше злой был? Потому что у меня велосипеда не было. А теперь у меня велосипед есть, я теперь всегда добрый буду".

(611)жду свежего результата чампионата =)

(612) он идет... судя по всему результат многих удивит )))

(593) вроде все верно. я изначально напутал в описании. око за око копирует прошлый ход противника, а я в описании его инвертировал

(612) Вот результаты:
http://s020.radikal.ru/i719/1310/a1/ab9bc4992318.png
Места по баллам, пятерка лидеров:
1. АНБ 5 605
2. Спусковой крючок 5 546
3. ФСБ 5 366
4. А ты кто такой? 5 350
5. Под дурочку 4 945

АНБ догнал и перегнал "Спускового крючка" только на последней десятке ходов!

Забрать базу, обработку и рисунок можно тут
http://webfiles.ru/files/38635844
пароль 123456
В базе - регистр "Партии" заполнен данными чемпионата. Надо будет в обработку вставить возможность загружать данные из регистра, а не только показывать последний состоявшийся чемпионат.

(615) Забавно :)

(615) а я думал еще оптимизировать надо =)
особенно 3е место не ожидал

(616) Ага! "Спусковой крючок" меня удивил. Он и у Докинза упоминался в числе стратегий, и у нас засветился. Но так его в список участников и не добавили. А он вона как выстрелил!

FarFar
(286) Я правильно понял твою стратегию:
Первый ход - кооперация.
Далее - всегда кооперация, до первого "Отказа" противника. Если был отказ - более не кооперируемся никогда?
Такая "Стратегия - спусковой крючок".

Ахиллес
(287) Если был отказ, то убиваем противника, что бы он не мог больше ни одного хода сделать. И идём играть с другим :-)

(617) Ты кстати посмотри! При включенной галке "стратегия играет сама с собой", твои два ведомства между собой не "отказывались", насколько я помню. Может в коде ошибка, в генетическом? Правильно ли я все скопипастил?

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

(620) Саморефлексирующая какая!

и еще наблюдение
повторил чемпионат, и первые ходов 70 АНБ была самой злой (не считая всегда предающей), потом по этому показателю ее все же обошли, но осталась самой злой в ТОП10, причем обманывает весьма успешно
ФСБ походу играет почти "спусковой крючок" (с некоторыми модификациями), мне влом ее оптимизировать

и впечатлил результат скрина эволюции: "живые экземпляры - 5" (в варианте "Минимум" 1е место и 110)

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

запустил на 200 ходов, интересно что покажет

(615),(625)

Пока можешь поисследовать в другой базе, что же происходило в том чемпионате
выложил обработку, в которой добавил кнопку, позволяющую смотреть состояние чемпионата на произвольный ход:
http://webfiles.ru/files/38636624
пароль 123456

только кол-во живых особей не показывает, да и хрен с ним. Пока некогда с этим сегодня разбираться.

(626) Она берет данные именно из регистра "Партии". Так что если в базе провести чемпионат, а потом снова его же - данные потеряются. Но, конечно, если создать новый элемент в справочнике "Чемпионаты" и провести турнир в нем - в регистре "Партии" данные по первому чемпионату останутся.

(626) на 130 АНБ продолжает уверенно отрываться, спусковой крючок остается 2м, ФСБ и гопарь периодически меняются за 3-4 места: 7372, 7180, 6943, 6915. На 5е место вера вылезла (6415) . Теперь выключаю и домой - не успел...

(626) Что, хороша игрушка? ;-)
Я тоже домой.

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

Короче, еще одна стратегия (к всегда наказывать и спусковой крючок с первым кооперироваться и постоянным наказанием после первого наказания соперника)

Всего ходов пусть уже прошло N, из них соперник кооперировался K раз.
Сначала (первым ходом) кооперируемся, а потом если (K*2.9)>(N+1.8), то кооперируемся, иначе наказываем.

(631) Я добавлю. Хотя, это будет разновидность моего алгоритма "А ты кто такой?", только с другим коэффициентом.
У меня "А ты кто такой" - первый ход кооперируется, а затем кооперируется с соперником, только если соотношение обманов со стороны соперника к числу сыгранных ходов < 0.1

(623) P.S. отказов со стороны соперника именно по отношению у тебе.

(631) А у тебя твой коэффициент в новой предлагаемой стратегии - наобумный, или ты его как то хитро просчитал?

(632) Отменяется.
Я не понял как начисляются очки.
Ты мне писал все положительные коэффициенты, а я вижу в первых постах речь о штрафе.

(635) О каком штрафе? Я тебе таблицу баллов давал, там минимальное значение = 0

(636) см (4)
В (632) я рассчитал, но исходя что за кооперируюсь 5, а если один другого наказал то 3. А там наоборот.

(4) ну, то что про штрафы - это копипаст.

Таблица такая (как я тебе и давал).
Тот, кто обманул - получает 5
Кого обманули - получает 0
Взаимная кооперация - оба получают 3
Взаимный отказ - оба получают 1

(0) Только дошло. В контексте "соблюдать 10 заповедей или нет" почитаю.

(630)зачем со всеми?
простака можно наказывать безусловно

(630) Ну, только его вычислить сначала надо. Хотя это несложно.

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

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

wiki:Меметика "В книге Докинз утверждает, что мем — единица информации, находящаяся в мозгу и являющаяся мутирующим репликатором в культурной эволюции человечества"
в принципе можно и не читать. Все понятно.

Кто не согласится, тому таллий в воду, смотрите: "Мем".

(642) Пример спускового крючка, который удачно грабит "Всегда кооперируемся" - это "А ты кто такой?". Он, по сути, тот же "Спусковой крючок", только с более щадящим коэффициентом, допускает 1 отказ на 10 ходов. Но, кроме того, умеет обижать безответных ("апгрейд").
Вчера ради интереса дома "закрутил" в нем "коэффициент обидчивости" с 1/10 до 1/100 (то есть, сделал классический "спусковой крючок" добавлением одного нолика), и он вышел в чемпионате на 1-е место, даже ФСБ и АНБ заметно отстали.

(645)состав участников тот же?
иногда у меня анб на 2м была
а насчет обидчивости - с "противоречивой девочкой" анб предпочитает кооперацию несмотря на ее обманы иногда, что на длинной дистанции работает в плюс (обидчивые стратегии часто уходят с ней во взаимный отказ)

(646) Да, все то же самое было, как и вечером.

(646) На длинных дистанциях, она должна идти в кооперацию. Если ее не обманывали. Вероятность обмана существенно снижается. Вроде там чувствительность ГСЧ 1/1000. Т.е. обманывать, при честной игре противника (всегда кооперируюсь), она может примерно до 1000 хода. Дальше должна всегда играть на кооперацию.

Хотел сегодня стратегию новую добавить, но понял что она практически полностью повторяет ФСБ :)
Не стал делать.

(646) Я все жду, когда же "Око за око" окажется успешнее "спусковых крючков" :-) Время идет, а чё то оно не особо впечатляет. А у Аксельрода в обоих чемпионатах победило.

(648)видимо там нельзя было подглядывать чужие результаты и применять вероятностные стратегии

*к 650

(650) Что-то подсказывает что Аксельрод, что-то напутал. Спусковой крючек, даже не умеющий обманывать простаков, должен быть более эффективен чем "око за око". Просто математически. При условии что большая часть стратегий начинают игру с кооперации.

В последнем туре можно всех кинуть выставив "Отказ". Обидеться уже никто не успеет.

(654) Не известно какой турнир будет последним :)
Это условие игры.
Экспериментируем обычно с 100. Но можно и больше партий сыграть.

(654) как определить последний тур?

(653) Он не математик, совсем не математик.
Поэтому даже примерно не понимает что происходит. Нафантазировал в матричной игре! плохих и хороших. Хотя вопрос только в сговоре.

А математика говорит, что независимо от стратегии соперника равновесие по Нешу при такой матрице - это всегда наказывать. Всё остальное сговор, а сговор зависит от конвенций.

(658) А причем тут матричные игры? Текущая задача это скорее всего пошаговая стратегия. Ведь у нас есть информация об уже сыгранных играх и в процессе игры мы можем менять свою стратегию. К тому же игра с ненулевой суммой.

(659) ?
Это самая обыкновенная матричная игра с ненулевой суммой.
В любой матричной игре с ненулевой суммой можно менять свою стратегию.

И даже с нулевой суммой никто не запретит менять стратегию. Как ни странно :)

(649) Поэтому я и говорю не об оптимальной стратегии, а об равновесной по Нэшу. Игра двух соперников с ненулевой суммой - сводится к игре трех соперников с нулевой суммой с фиксированной стратегией одного из игроков (болвана), а вот это, матричные игры нескольких соперников, как раз Нэш и изучал.

(645) на 200 ходов АНБ таки обошла ее, но 2е место она себе оставила

(663) Ты у "А ты кто такой" коээфициент поправил с 0.1 до 0.01 ?
Поправь до 0.001, или вообще напиши так, что если есть хоть один отказ, невзирая на кол-во ходов, то отказывать. И проверь еще раз на 200-ходовке )))

Вообще, АНБ меня радует тем, что стартует не очень удачно, но чем больше номер партии, тем лучше играет.

(643) Ой. Извиняюсь, перевод неправильный был, все-таки прочту.

(0) Общался с православным духовенством, один раз но как показалось не безрезультатно. Сказал одну фразу что главное для бесов чтобы человек умер нераскаянным. Но каятся можно каждый каждую минуту за предыдущую, да так и не раскаяться. Т.е. в этом плане православие для меня тоже кабально несколько. (хотя кому-то помогает достичь) И вот поняв почему это главное и в чем здесь подвох, можно начать оценивать действия с точки зрения: не хочешь ли ты чтобы человек испытывал некий комплекс неполноценности. Или не хотят ли этого от тебя? ПрИсмерти конечно.

(666) Проанализируй христианскую мораль с точки зрения "взрослости" бога. Исходя из тех принципов что заложены в определения "хорошо", "плохо" и т.д. Базовые определения.
Может показаться что бог - ребенок. Причем маленький :)
Дабы не сочли за разжигание, усе - ИМХО.