Добрый день!

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

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

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

что за игра, вкарце

уберботанство какое-то без смысла и пощады

Мой алгоритм: "Лучшие практики"
Смотрим количество баллов, набранных всеми стратегиями.
Для каждой стратегии высчитываем коэффициент успешности.
Далее, смотрим, какой ход делала каждая копия стратегии на предыдущем кону (кооперировала или отказывалась), т.е. 0 или 1, умножаем на коэффициент успешности стратегии. Потом полученное совокупное значение по всем копиям стратегии делим на число копий. В ответе получаем некое дробное число между 0 и 1, и округляем его. Например, если 0.33 - значит играем "Отказываюсь". Если 0.79 - "Кооперируюсь"

(2) В своем первонaчaльном, человеческом, вaриaнте этa игрa состоит в следующем. Имеется "бaнкомет", который судит игру и выплaчивaет выигрыши двум игрокaм. Допустим, что я игрaю против вaс (хотя, кaк мы увидим, "против" - это кaк рaз то, чего нaм не следует делaть). Нa рукaх у кaждого игрокa только по две кaрты с нaдписями Кооперируюсь и Откaзывaюсь. Кaждый из нaс выбирaет одну из двух своих кaрт и клaдет ее нa стол рубaшкой вверх, с тем чтобы ни один из игроков не знaл, кaк пошел другой; собственно говоря, обa они ходят одновременно. Дaлее игроки нaпряженно ожидaют, покa бaнкомет перевернет кaрты. Нaпряженность связaнa с тем, что выигрыш зaвисит не только от собственного ходa (кaждый игрок знaет, кaкую кaрту положил он сaм), но и от ходa противникa (что остaется неизвестным, покa бaнкомет не перевернет кaрты).

Поскольку в игре учaствуют 2x2 кaрты, то имеется четыре возможных исходa (из увaжения к северо-aмерикaнскому происхождению игры выигрыши приводятся в доллaрaх):

Исход I. Мы обa сыгрaли КООПЕРИРУЮСЬ. Бaнкомет выплaчивaет кaждому из нaс по 300 доллaров. Этa почтеннaя суммa нaзывaется "Нaгрaдa зa взaимное кооперировaние".

Исход II. Мы обa сыгрaли ОТКАЗЫВАЮСЬ. Бaнкомет штрaфует кaждого из нaс нa 10 доллaров. Это нaзывaется "Нaкaзaние зa взaимный откaз".

Исход III. Вы сыгрaли КООПЕРИРУЮСЬ, a я ОТКАЗЫВАЮСЬ. Бaнкомет выплaчивaет мне 500 доллaров (Плaтa зa риск) и штрaфует вaс (Простaкa) нa 100 доллaров.

Исход IV. Вы сыгрaли ОТКАЗЫВАЮСЬ, a я КООПЕРИРУЮСЬ. Бaнкомет выплaчивaет вaм зa риск 500 доллaров и штрaфует меня (Простaкa) нa 100 доллaров.


В Чемпионатах использовалась несколько другая шкала призов/штрафов:

взaимное Кооперировaние - 3 очкa; Риск - 5 очков; Нaкaзaние зa взaимный откaз - 1 очко (эквивaлент небольшого штрaфa в игре, описaнной рaнее); Штрaф Простaку - 0 очков (эквивaлент большого штрaфa в игре, описaнной рaнее).

WOT лучше!

(4) это к (1), извиняюсь

(1) Например, достаточно успешной оказалась простая стратегия "Око за око". Она в первый свой ход играет "Кооперируюсь", а в дальнейшем - повторяет предыдущий ход второго игрока.

(0) по ссылке 404 Not Found

Прикольно.
http://www.rulit.net/
Данный ресурс заблокирован в исполнение требований закона
"Об информации, информационных технологиях и защите информации".

(8), (9) Странно, у меня открывается нормально.
Можешь тогда просто скачать книгу, она выложена в инете.
Глава 12 "Добрые пaрни финишируют первыми"

(7) Если второй игрок будет всегда отказываться, проиграешь.

(11) Какой смысл ты вкладываешь в слово "Проиграешь"?
Проиграешь второму игроку? Тогда да. Если для тебя важнее всего - не дать второму игроку набрать больше себя, то надо всегда отказываться. Такие стратегии Докинз назвал "завистливые".
Но, во-первых, можно назвать целью - набрать много очков, т.е. "жить за счет банкомата". И тогда стратегия "всегда отказываюсь" - будет не очень конкурентной.
Во-вторых, в рамках чемпионата стратегий много, и они "обойдут" твою стратегию, даже если она не дает каждой другой обыграть себя. Они будут кооперироваться друг с другом и набирать очки, пока ты их набираешь мало.

(5) Кстати да. Вот такая стратегия : в твоей команде нубы , с первых секунд игры один из них крикнул "рашим по центру" , все кроме тебя погнали напрямик по центру.
Твоя наилучшая стратегия чтобы выиграть игру ?

Играл в такую игру на тренингах около 15 лет назад (может и больше).
С небольшими изменениями :)

В жизни все так же.
Оптимальная тактика для каждого будет соответствовать его поведению в жизни.

Перевожу.
Вы начинаете "дело" с незнакомым вам человеком.
Для начала дела, вам нужно дать этому человеку кредит доверия.
Он может им воспользоваться. И тогда его выигрыш будет равняться 2 кредитам (вашему и его).
Может сыграть в кооперацию. Тогда каждый выиграет что-то от результатов "дела".
Если вдвоем вы откажитесь от "дела", то каждый потерял время на обдумывание "дела" и выбора стратегии.

Если упростить до безобразия, то задача сводится к количеству доверия. Сколько раз можно доверять партнеру.

Естественно в жизни еще есть куча факторов. Но в подобных играх их редко учитывают.

(13) Заныкаться в дальний угол.

КтоВсеЭтиЛюДи? :)

(14) А мне напоминает схему МММ, ты ему, он тебе, ты еще двоих, и у тебя и у первого доход, как бы все довольны, кроме последних :)

(13), (15) Если в твоей команде нубы (играют "кооперируюсь"), а ты один такой хитрый обманщик ("отказываюсь"), то будешь жить в шоколаде. И давать большое потомство в следующих итерациях (набирать баллов). Но поэтому доля "обманщиков" в популяции будет расти, и они все чаще будут сталкиваться друг с другом, пытаясь взаимно обмануть.

(18) Ну так :)
И ныкаться будут кооперируясь.
Это нормально.
Так и происходит.

(17) Нет!
Это игра из типа "Игр с ненулевой суммой" (термин теории игр) http://www.rulit.net/books/egoistichnyj-gen-read-45448-96.html
, потому что тут присутствует неисчерпаемый банкомат, который оплачивает взаимный выигрыш двух "скооперировавшихся" игроков.

(19) В итоге будет так: после крика "рашим по центру" вся команда разбежалась по разным углам, где ее противник поодиночке расстрелял.

(21) Да, и такое бывает.
К сожалению - часто :)

(18) пока на свете живы дураки, обманом жить нам стало быть с руки

(20) В сущности МММ тоже так то игра ;)

а еще есть эксперименты, которые показывают , что некоторые не только иррациональны, но и просто отказываются "думать" в той моделе которую им предлагают. Т.е. берется две группы людей одной объясняется эффект взаимодействия , а другой нет .. так вот некоторая часть людей всегда  выбирает не оптимальную стратегию , что в свою очередь приводит к занятости у социологов и т.п.

(24) МММ - игра с нулевой суммой.

(25) Во многих случаях рациональная стратегия не приводит к оптимальному результату.

Вот по теме ссылка: wiki:Дилемма_заключённого

Читайте подраздел "Повторяющаяся дилемма заключенного"

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

(28)

В книге «Эволюция кооперации» (1984) Роберт Аксельрод исследовал расширение сценария ДЗ, которое он назвал повторяющаяся дилемма заключённого (ПДЗ). В ней участники делают выбор снова раз за разом и помнят предыдущие результаты. Аксельрод пригласил академических коллег со всего мира, чтобы разработать компьютерные стратегии, чтобы соревноваться в чемпионате по ПДЗ. Программы, вошедшие в него, различались по алгоритмической сложности, начальной враждебности, способности к прощению и так далее.
Аксельрод открыл, что если игра повторялась долго среди множества игроков, каждый с разными стратегиями, «жадные» стратегии давали плохие результаты в долгосрочном периоде, тогда как более «альтруистические» стратегии работали лучше, с точки зрения собственного интереса. Он использовал это, чтобы показать возможный механизм эволюции альтруистического поведения из механизмов, которые изначально чисто эгоистические, через естественный отбор.
Лучшей детерминистской стратегией оказалась «Око за око» (англ. Tit for Tat), которую разработал и выставил на чемпионат Анатолий Рапопорт. Она была простейшей из всех участвовавших программ, состояла всего из 4 строк кода на языке Бейсик. Стратегия проста: сотрудничать на первой итерации игры, после этого игрок делает то же самое, что делал оппонент на предыдущем шаге. Чуть лучше работает стратегия «Око за око с прощением». Когда оппонент предаёт, на следующем шаге игрок иногда, вне зависимости от предыдущего шага, сотрудничает с небольшой вероятностью (1-5 %). Это позволяет случайным образом выйти из цикла взаимного предательства. Она лучше всего работает, когда в игру вводится недопонимание — когда решение одного игрока сообщается другому с ошибкой.
Анализируя стратегии, набравшие лучшие результаты, Аксельрод назвал несколько условий, необходимых, чтобы стратегия получила высокий результат:
Добрая
Важнейшее условие — стратегия должна быть «доброй», то есть не предавать, пока этого не сделает оппонент. Почти все стратегии-лидеры были добрыми. Поэтому чисто эгоистичная стратегия по чисто эгоистическим причинам не будет первой «бить» соперника.
Мстительная
Успешная стратегия не должна быть слепым оптимистом. Она должна всегда мстить. Пример немстительной стратегии — всегда сотрудничать. Это очень плохой выбор, поскольку «подлые» стратегии воспользуются этим.
Прощающая
Другое важное качество успешных стратегий — уметь прощать. Отомстив, они должны вернуться к сотрудничеству, если оппонент не продолжает предавать. Это предотвращает бесконечное мщение друг другу и максимизирует выигрыш.
Не завистливая
Последнее качество — не быть завистливым, то есть не пытаться набрать больше очков, чем оппонент.
Таким образом, Аксельрод пришёл к утопично звучащему выводу, что эгоистичные индивиды во имя их же эгоистического блага будут стремиться быть добрыми, прощающими и не завистливыми.

(18) Вот представь себе простую модель: очередь.

Можно стоять в очереди, а можно пролезть без очереди.

И вот:
> Но поэтому доля "обманщиков" в популяции будет расти,

В конце концов, все будут тупо толпиться.

И стратегия обманщиков станет не продуктивной и общая скорость прохождения снизится.

З.Ы. http://anticache.img0.joyreactor.cc/pics/post/Комиксы-buttersafe-волки-овцы-761480.jpeg

(31) Именно так.

(0) А почему вообще вспоминают про какого-то Докинза?

У нас же есть Чернышевский: "Теория разумного эгоизма Чернышевского («жизнь во имя другого») есть не что иное, как этическое выражение необходимости объединения и взаимопомощи, взаимоподдержки людей в труде. Героев Чернышевского объединяет одно великое «дело» - дело служения своему народу. Поэтому источником счастья этих людей является успех того дела, которое составляет смысл и радость жизни каждого из них. Мысль о другом, забота о друге, основанная на общности интересов в едином стремлении, в единой борьбе, - вот что определяет моральные принципы героев Чернышевского."  (С)

(33) Может быть потому, что речь про науку, а не литературу?

(33) этому и строгое мат обоснование есть.
Гуглим Джон Нэш. И даже кино про него есть "Игры разума"

вот эта книга лучше описывает реальность .. http://www.docme.ru/doc/74250/shelling-t.-strategiya-konflikta

(15) ,(18) неправильно

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

Т.е. если происходит событие - его надо использовать.

(35) Шизиков почитаем?)

(39) Гений - он и с шизой гений.

(39) Гениальность всегда граничит и иногда переходит психические нормы

(39) Хотя если бы он не был шизиком кино бы про него не сняли

(39) У математиков бывает. Профессиональный риск. :)

Кстати, одна из основных проблем Анархии, в горизонте предвидения.
Если каждый индивид общества будет знать как другой индивид будет действовать основываясь на его действиях, то все убудт действовать в интересах всего общества.

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

(44) Ога, а гарантии где? Без гарантии во многих случаях будут приниматься именно эгоистические стратегии.

(44) обоснуй?

(47) Рекурсия.

(45) у нас в деревне тоже не принято среди нищих крестьян покупать лексусы. Сожгут ведь нах

(45)  почему вы считаете , что у славян в менталитете - выпендриваться перед соседями?
Наша семья например ни перед соседями по лестничной клетке ни перед соседями по даче не выпендривалась никогда.

(50) хммм.... нечем?

(48) и что?

(51) ок , но соседи тоже не выпендриваются.

(51) и вы не ответили на мой вопрос.

польский социолог звучит драматично .. польская девушка куда интереснее.

...

(47) Ты взаимодействуешь с человеком. Знаешь на перед как он будет действовать если ты с ним поступишь так или эдак. Он знает как ты будешь действовать исходя из результатов его действий.
В результате, все будут думая о своей выгоде, угождать обществу. Множеству индивидов. В результате получаем идеальное общество, и идеальный строй - анархию.

драматичности добавляет то что поляки - тоже славяне.

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

(57) выгода есть величина субъективная. И то что у здорового человека сутра есть хорошо, вечером может быть плохо и наоборот.

что мы всё о играх далёких от реальности ?

Вот реальная игра :
ветка на мисте
интересная тема
в разговоре участвуют :
несколько форумчан считающих себя ( или другие их так считают ) либералами ,
несколько форумчан считающих себя ( или другие их так считают ) патриотами ,
массовка.

Определить для начала : цель каждого собеседника - к чему он стремится в разговоре и зачем его поддерживает ?

(57) и почему это ПРОБЛЕМА анархии?

(61) в этой ветке?

(61) и патриоты-модераторы)

(55) Речь шла о непольских городках ))

(59) В том-то и фокус. Что эгоизм начинает действовать на благо общества.
(60) Напоминаю - у этих лиц имеется 100% возможность предсказания будущего.

(65) Речь наверно про новых русских славян ))

(63) не , можно соседнюю взять , про Онищенко.

(62) Потому что в остальных формах общества, цель общества достигается не за счет эгоизма.
В анархии, цель может быть достигнута только за счет эгоизма.

(57) Дык ты нифига не знаешь наперёд, ни миелофона, ни машины времени бесплатно не выдали. Из неверной посылки получаются неверные выводы.

(66) Благо? Общество или расцветёт, или погибнет.

(70) ;) В этом и проблема.

(61)

Давай ближе к реальности (в теме ветки).

1С-ники выкладывают свои разработки в интернет, и отвечают на форуме на профессиональные вопросы лично даже незнакомых людей. Казалось бы почему? Но изучив Докинза и результаты чемпионата стратегий Аксельрода - понимаем что это КООПЕРИРУЮСЬ в условиях игры с ненулевой суммой (так как присутствует БАНКОМАТ с нескончаемой суммой денег - заказчик-работодатель).

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

(69) Зашибись, назвать альтруизм эгоизмом - вот и обоснование. :)

(73) не-не-не.

Есть такие вещи как известность  , слава , тщеславие , узнаваемость.

Например известность , узнаваемость можно конвертировать в деньги. Так что тут меркантильный интерес.

Может быть тренировка - т.е. саморазвитие.

(75) :) Вопрос оценки.

(77) Ога, противоположные понятия смешать в одно - вопрос оценки. Вопрос игры словами это.

(74) в ссылке из (0) про это тоже написано. Что "допропорядочные" и "кооперирующиеся" стратегии могут выжить и впоследствии благоденствовать, даже в мире, где преобладают "хитрецы". Фича в том, что они могут "жить обособленно", и получать большие выигрыши, играя преимущественно друг с другом, а не с обманщиками.

Вот так и бюргеры. С собой и знакомыми - кооперируются. С цыганами - играть не хотят.

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

(73) скучно просто

мало кто помогает ради. я помог сегодня - мне помогут завтра

(79) Тут внутреннее противоречие. Они не могут одновременно играть преимущественно с хитрецами и преимущественно между собой.

(0) Докинз не в курсе работ Нэша? Хотя книгу я читал, правда давно, понравилась.

(84) Докинз эту главу писал на основе исследований Аксельрода. А тот уж наверняка с трудами Нэша знаком.

(83) Поясни. Я твою фразу не понял.

(78) Не понял. Как это противоположные?
Альтруизм - бескорыстная забота о других.
Эгоист (с учетом прогнозирования будущего) будет вынужден, для заботы о себе, заботиться о других. Причем тут забота получается корыстная, т.к. он знает что его деяния, вернутся к нему.

(86) Ну у тебя в (79) в мире вроде как преобладают хитрецы, а добропорядочные всё равно играют преимущественно между собой. Это как так?

(87) сотрудничать не значит заботиться, а всего лишь не кидать

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

как изменится стратегия, если кидок будет не -100/500, а -300/300?

(88) Да, Докинз описывает такой мир:

http://www.rulit.net/books/egoistichnyj-gen-read-45448-95.html

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

Кaк это может произойти? Можно было бы ответить: "Случaйно". Однaко слово "случaйность" просто скрывaет нaше незнaние. Оно ознaчaет: "Определяется кaкими-то покa неизвестными или точно не устaновленными фaкторaми". У нaс есть возможность ответить чуть лучше. Мы можем попытaться предстaвить себе, кaк прaктически некоему меньшинству индивидуумов, использующих стрaтегию Око зa око, удaется увеличиться в числе и достигнуть критической мaссы. Это рaвносильно поискaм возможных путей, которыми индивидуумы Око зa око могли бы обрaзовывaть достaточно большие скопления, чтобы всем вместе выигрывaть зa счет бaнкометa.

Тaкое нaпрaвление предстaвляется перспективным, но вместе с тем довольно неопределенным. Кaк именно могли бы сходные друг с другом индивидуумы собирaться вместе, обрaзуя локaльные скопления? Очевиднaя причинa обрaзовaния тaких скоплений в природе - генетическaя близость, родство. Животные большинствa видов обычно живут поблизости от своих родных и двоюродных брaтьев и сестер, a не от кaких-то случaйных членов дaнной популяции. Это необязaтельно бывaет обусловлено их собственным выбором, a aвтомaтически вытекaет из присущей популяции "вязкости". Вязкость ознaчaет любую нaблюдaемую у индивидуумов тенденцию продолжaть жить вблизи того местa, где они родились.

Все эти описания для анархических структур. Но даже у животных это не так

Написано же, что стратегия кооперирования (и око за ока) действует только когда индивидов с такой стратегией больше 50 %. А когда в обществе 80 % нелогичных и нерациональных индивидов (а попросту мутаков)

(92)
...
Поэтому, если дaже этa стрaтегия редко встречaется в популяции в целом, онa может быть широко рaспрострaненa локaльно. Нa некоем локaльном учaстке индивидуумы, использующие стрaтегию Око зa око, могут встречaться друг с другом достaточно чaсто, чтобы взaимное кооперировaние обеспечивaло им процветaние, несмотря нa то, что по рaсчетaм, исходящим из одной только глобaльной чaстоты в популяции в целом, может получиться, что их чaстотa ниже критической.

токое общество наберёт меньше баллов

(94) Поправка: нигде не написано про 50%. Рубежный коэффициент не обязательно 0.5
В некоторых других моделях, например: "Голуби-Ястребы" (чуть другая, но похожая игра) - там весьма дробный коэффициент равновесия. Например, на 5 голубей - 7 ястребов.

К тому же в реальном обществе у нес не Повторяющаяся модель: нае..л оппонента и пошёл дальше

(98) На чемпионате из (0) - там такие же условия. Программы не знали, второй игрок - обманывал до этого других, или нет.

(87) Если знать будущее, можно разработать эгоистическую стратегию, нагибающую альтруистические. И нагибать для личной выгоды. Причём даже если все стратегии со временем переродятся в эгоистичные, те, кто стали эгоистами первыми окажутся в прибыли на общем уровне.

(100) Вот программисты и старались придумать хитропопо-обманывающие стратегии. Но по результатам чемпионатов (с многими итерациями) - хитропопые "недобросовестные" стратегии все-равно равно или поздно вымирали:

В конце концов по прошествии примерно 1000 поколений дaльнейшие изменения обстaновки прекрaтились. Былa достигнутa стaбильность. До этого блaгосостояние рaзличных стрaтегий возрaстaло и пaдaло, точно тaк же, кaк при компьютерном моделировaнии стрaтегий Плутов, Простaков и Злопaмятных. Некоторые стрaтегии пошли нa убыль с сaмого нaчaлa, a к 200-му поколению большaя их чaсть вымерлa. Однa или две из непорядочных стрaтегий стaли встречaться все чaще, однaко их процветaние, кaк и у Простaкa в моей модели, было недолгим. Единственнaя непорядочнaя стрaтегия, сохрaнившaяся по прошествии 200 поколений, былa стрaтегия под нaзвaнием Хaррингтон. Выигрыши этой стрaтегии резко возрaстaли нa протяжении первых 150 поколений, a зaтем довольно медленно снижaлись, и стрaтегия прaктически вымерлa к 1000-му поколению. Стрaтегия Хaррингтон былa успешной в течение некоторого времени по той же причине, что и моя оригинaльнaя стрaтегия Плут. Онa эксплуaтировaлa придурков вроде стрaтегии Око зa двa окa, покa они еще существовaли. Зaтем, после того кaк эти придурки были доведены до вымирaния, стрaтегия Хaррингтон, лишившись легкой добычи, последовaлa зa ними. Аренa окaзaлaсь свободной для тaких добропорядочных, но дерзких стрaтегий, кaк Око зa око.

(97) Если в одноходовой игре в любом случае доминирует стратегия предать, то в многоходовой оптимальная стратегия зависит от поведения других участников. К примеру, если среди населения все друг друга обманывают, а один ведёт себя по принципу «око за око», он оказывается в небольшом проигрыше из-за потери на первом ходе. В такой популяции оптимальная стратегия — всегда предавать. Если же число исповедующих принцип «око за око» больше, то результат уже зависит от их доли в обществе.
зависит от доли в обществе, т.е. от структуры общества, т.е. не в каждом обществе стратегия актуальна

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

(103) Соревнование из одной игры с каждого с каждым представляет мало интереса.

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

(101) Дык в мире идёт игра с нулевой суммой.

(106) Нет, в мире игра идет не с нулевой суммой.

(104) Ога, зато лучше иллюстрирует пример (98)

(107) Мы можем либо с тобой скооперироваться и вдвоем поймать одного оленя: "я пугаю - ты в засаде", либо не кооперироваться и помереть с голоду. Природа = банкомат

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

(107) В определённом приближении. То есть, скажем, богатство - оно относительное, только на фоне более низкого уровня богатства других.

(108) В мире простаков (одноходном) - обманывать выгодно. Но в дальнейшем, из-за успеха обманщиков - мир перестает быть миром простаков, а обманщики жестко страдают, когда взаимно отказываются. У Докинза одна из предыдущих глав про "Голуби - Ястребы", что наступает порог, когда экономически эффективнее становится быть голубем, а не ястребом, просто потому, что ястребы слишком сильно теряют от взаимодействия (драк) друг с другом.

(57) > Он знает как ты будешь действовать исходя из результатов его действий.

> В результате, все будут думая о своей выгоде, угождать обществу.

Это при условии, что все действуют рационально.

Люди однако далеко не всегда поступают, только когда очень тщательно подумав.

(112) Ога. Дык и происходит скатывание в потенциальную яму.

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

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

(116) А при чём тут природа, если речь шла про общество и индивидуальные стратегии. Эгоисту плевать на абсолютное богатство общества, важнее личное относительное богатство.

(117) Игра имитирует процессы в популяциях любых видов живых организмов, не только в человеческом обществе.

(73)
> Казалось бы почему? Но изучив Докинза и результаты чемпионата стратегий Аксельрода - понимаем что это КООПЕРИРУЮСЬ

Это не верное мнение.

В теме Кооперация - это рациональный выбор.

Ты говоришь совсем про другое.

Это чистые инстинкты без рационализации на уровне индивидуума.

(118) Ну я-то комментировал конкретно анархию, в которой якобы эгоистам выгодны стратегии альтруистов. Это вызывает сомнения.

(119) Точнее так. В теме из (0) КООПЕРАЦИЯ - это поиск лучшей стратегии выживания, вне зависимости от "хочу/не хочу" индивидуума.

(76) >Есть такие вещи как известность  , слава , тщеславие , узнаваемость.

Эти вещи выработаны эволюцией.

И они что характерно в целом рациональные на уровне вида.

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

Т.е. это тот же самый разумный эгоизм.

(121) Лучшей стратегии для популяции, для ее сохранения и процветания.

(79)
> Что "допропорядочные" и "кооперирующиеся" стратегии могут выжить и впоследствии благоденствовать, даже в мире, где преобладают "хитрецы". Фича в том, что они могут "жить обособленно", и получать большие выигрыши, играя преимущественно друг с другом, а не с обманщиками.

Самое смешное, что Докинз является противником религии, хотя именно в религия в доступной форме пропагандирует именно это стратегию.

А вот эти вот научные модели доступны далеко не всем.

В результате Дннкиз против всякой логики выступает против своей же стратгии.

(124) Докинз - атеист.
А религия, как "Вера в Бога" и как "Свод нравственных норм" - это же совсем разные вещи. Можно быть атеистом, и наслаждаться  исполнением "Ave Maria" одновременно.

(124) Кроме того, Докинз не призывает всех кооперироваться и быть добрыми и пушистыми. Его дело, как ученого - установить факты. Например, факт, что при большинстве начальных условии успешной стратегией является стратегия "око за око". А уж его личное отношение  к этому факту - дело десятое.

(125)
> А религия, как "Вера в Бога" и как "Свод нравственных норм" - это же совсем разные вещи.

Два вопроса:

1. Религия пропагандирует правильную стратегию?
2. Какой процент населения РФ способны вкурить то о чем говорится в этой теме.

(126)
> Докинз не призывает всех кооперироваться и быть добрыми и пушистыми. Его дело, как ученого - установить факты. Например, факт, что при большинстве начальных условии успешной стратегией является стратегия "око за око".

Это и есть самая правильная пропаганда.

(124) Кстати, Иисус рекомендовал стратегию: "Око за 490 ок"

http://www.foru.ru/slovo.20736.4.html

(Матф.18:20-22)
"Тогда подошел к Нему Петр и спросил: - Господь, сколько раз должен я прощать брата, если он передо мной провинится? Семь раз?
Нет, не семь, а семьдесят раз по семь, - отвечает ему Иисус.
Наш милосердный Господь в Своем долготерпении установил: не семь. А семьдесят раз по семь."

Хорошо, добавлю в список стратегий "Стратегия Иисуса". Потом посмотрю, насколько она будет успешной в чемпионате.

Господа! Кроме Иисуса и меня кто-нибудь еще стратегию предложит???

(127) Сделаю чемпионат, включу туда "Стратегию Иисуса", увидим.

(129) Точнее, Стратегия Иисуса это "Око за 491 око".
Потому что "Око за око" - мстит сразу.
"Око за два ока" - прощает один обман второго игрока.
Значит, если нужно прощать 490 раз, это стратегия "Око за 491 око".

(129) Ты теплое с мягким не путай.

Простить это отношение в голове.

Можно не злиться, а спокойно вырабатывать правильную стратегию.

(132) Где это сказано, что это только "отношение в голове"?

Типа "я тебя простил, но фиг я тебе еще рубль в долг дам" ?

(132) Прощать в голове можно хучь мильон раз. Если это по карману не бьет - жалко что ли )))

(134) > Прощать в голове можно хучь мильон раз.

Да ну? Надеюсь ты понимаешь, что это не так.

(133) > Где это сказано, что это только "отношение в голове"?

Это следует из значения слова "прощать".

Ну и вообще это общая идея Евангелия.

> Типа "я тебя простил, но фиг я тебе еще рубль в долг дам" ?

Смотря под какие условия рубль давался, если в долг с возвратом, и причины того человек не вернул именно в нем, тогда: "без залога в долг не дам".

(133)
> Типа "я тебя простил, но фиг я тебе еще рубль в долг дам" ?

Это, кстати, довольно много.

Многие придут с топором свой рубль возвращать.

(136) Не доказал. Для меня, например, слово "Простить" - это значит так простить, как будто бы вины вообще не было.

Я не вижу в цитате из (129), что Иисус имел ввиду именно твое понимание слова "Простить"

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

(139) Чемпионат-то делать будем?

Даешь банкомат на платформе 1С!
Каждый пишет своего бота на игру.
Кстати, задачка интересная и вроде должна быть простой :)
Могу поучаствовать в написании. Но не быстро.

(140) Конечно!

В таком чемпионате результат стратегии очень много зависит от состава участников.
Ибо нет стратегии выигрышной всегда

(142) Давай описание API. Буду писать свою стратегию :)

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

(144) Стратегию ты тут можешь в словах написать.

(141) Еще бы не интересная задача! Проверить Аксельрода и Творца )))

(146) Пожалуйста.
В самом начале 3 раза верим одному и тому же.Далее смотрим, если не обманывал, то верим дальше. Если обманывал один раз, то вероятность следующего не доверия 1/10. Линейно снижается. Так не менее 20 раз. потом верим опять до первого вранья.
Если обманул 2 раза, то не верим 10 ходов, потом верим с увеличивающейся вероятностью от 0.5 до 1 в течении 10 ходов.
Если обманул 3 раза подряд, то не верим 40 ходов. Потом в течении 30 ходов вероятность доверия линейно увеличивается от 0 до 1 естественно случайно. Можно взять нормальное распределение.
Как то так.

(144) На вход функции (твоего алгоритма) могу подать структуру, содержащую нужные тебе параметры (ключ/значение). Например,
Номер хода = 5
Количество моих баллов = 3
Результат моей предыдущей игры с этим партнером = 0
и т.д., все что тебе нужно для работы алгоритма.

На выходе - от тебя либо "Ложь" ("Отказываюсь), либо "Истина" ("кооперируюсь")

Кстати, если цена произрыша/выигрыша меняется, то стратегия тоже меняется :)

(150) Возьмем таблицу бонусов/премий из ссылки в (0).

"взaимное Кооперировaние - 3 очкa; Риск - 5 очков; Нaкaзaние зa взaимный откaз - 1 очко (эквивaлент небольшого штрaфa в игре, описaнной рaнее); Штрaф Простaку - 0 очков"

(150) Прочитай, плиз, всю 12-ю главу из (0)

(151) Я про другое. Например, цена кооперации, риска и наказания первые 10 ходов - одна, а на каждый 11 ход стоимость может увеличиваться в 5 раз.  В такую играл в жизни :)

(152) Ок.

(153) Пока не будем усложнять. При таких раскладах, возможной стратегией на первые 10 ходов будет "копить хорошую карму и доверие обывателей, а на 11 всех надуть по крупному". Хотя может "допропорядочные" стратегии и при таких раскладах победят.

(155) Не победят. :(
Столько слез было.
Хотя сейчас вспоминать приятно :)

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

1) Неизвестному игроку, всегда предлагать кооперацию.
2) Если он тоже предлагает кооперацию, то продолжать в том же духе.
3) Если противник вас кинул. Выставив отказ. То он вас наказал на 300+100 баксов. То далее такому игроку предлагать отказ. До тех пор пока он вам не выплатит неустойку, выставив на ваш прогнозируемый отказ, кооперацию. После чего такому игроку можно снова предлагать кооперацию.

(157) слово "прогнозируемый" смущает. Не факт, что другой игрок умеет вообще "прогнозировать". Если читать фразу просто как "До тех пор пока он вам не выплатит неустойку, выставив на ваш отказ, кооперацию" - то стратегия понятна. Запишу ее. Название "Добрая стратегия с кулаками от Wasya"

Пока накидал структуру конфы, справочники:
"Стратегии"
"Параметры стратегий"
"Чемпионаты"
"Матчи"

и регистр сведений "Партии".

Забил в "Стратегии" следующие:

Всегда отказываюсь
Всегда кооперируюсь
Око за око
Око за два ока
Лучшие практики (автор - FarFar)
Око за 491 ок (автор - Иисус)
Добрая стратегия с кулаками (Автор - Wasya)
Вера с увеличивающейся вероятностью (автор - Lama12)

завтра продолжу.

(158) Дык судя по описанию, Вася просто пересказал то самое "око за око" своими словами.

(138) > Не доказал. Для меня, например, слово "Простить" - это значит так простить, как будто бы вины вообще не было.

Ты путаешь слова "Простить" и "Забыть".

> Я не вижу в цитате из (129), что Иисус имел ввиду именно твое понимание слова "Простить"

Потому что это цитата.

Надо брать учение христианства в целом.

И оно относится к страстям в голове человека.

Можно не верить или даже избивать человека. не держа на него зла или даже делать это с любовью к нему.

(124) Что за чушь? С чего это Докинз выступает против своей стратегии? Религия что, исчерпывается теоретической стратегией? Или без религии люди не кооперируются?

Ну и, кстати, победила-то совсем не стратегия всепрощения.

(161) "Можно не верить или даже избивать человека. не держа на него зла или даже делать это с любовью к нему." - фига себе заявка.

Я думал, что подобное психопатией зовётся. А тут вон оно что, Михалыч.

(139) > В рамках чемпионата, интересно проверить идею Иисуса именно в понимании "полного" прощения. Потому что "прощение только в голове" в рамки игры не впихивается.

Может потому, что модель ущербная?

И надо добавить элемент мести?

И вообще усложнить модель.

Вот есть некоторый счетчик который считает годы.

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

Можно совершить преступление(вернее пакет состоящий из большого преступления и маленького преступления).

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

Дальше классическая дилемма большим и маленьким преступлением.

Если сложилась ситуация: 0-10.

После отсидки тот кто мотал червонец может: (и вот тут как раз включается модель Христа) простить (но не забыть) или отомстить(тогда он получает 5 монеток, а тот кто не сидел уменьшает свои капиталы на 5 монеток (или на 10 если учитывать оплату больницы)).

И тут опять возникает дилемма: согласится с наказанием или настучать полиции, если настучал то может вернутся 2 монеты, но после отсидки возможна новая месть.

З.Ы. Возможно пропорции надо поменять.

З.З.Ы. Можно еще добавить. что за год жизни не только зарабатывается монетка, но и тратится 0.5 монетки.

(163) > "Можно не верить или даже избивать человека. не держа на него зла или даже делать это с любовью к нему." - фига себе заявка.

> Я думал, что подобное психопатией зовётся. А тут вон оно что, Михалыч.

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

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

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

как сермяжный смысл во всей этой белебетристике?

как = какой

(166) Эгоизм в классическом понимании, не предполагает прощения, доверия, добра.

Предполагаются, что это только мешают.

Но данная модель показывает, что в описанных условиях, эти качества отнюдь не лишние.

(168) Начнём сначала, о какой, собственно, модели вообще речь?

(169) Дилемма заключенного, вернее Повторяющаяся дилемма заключенного.

(169) Получается, ты просто озвучил выводы из (0) своими словами?

(159) FarFar Когда результаты будут?
Может функцию какую написать?

(160) Да, еще раз прочитал - алгоритм Васи это "око за око", только более витиевато выраженное.

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

(173) было бы интересно поиграть.

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

То есть, я сейчас планирую хранить код стратегии в текстовом поле, выполнять через "Выполнить". В ходе выполнения этого кода твоему алгоритму может потребоваться какой то параметр. Например "НомерХодаВМатче". Когда приходит время обратиться к нему, то он: 1. Ищется среди уже рассчитанных на этом ходу "общих" параметров 2. Если еще не рассчитан - рассчитывается и передается тебе обратно в твою функцию.
Описания самих параметров (их код выполнения) - хранятся  в отдельном справочнике "ПараметрыСтратегий".

вам не кажется что ваши алгоритмы слишком сильно завязаны на конкретном соотношении размеров штрафов и премий.
Я читал про такие игры - соотношение штрафов и премий может быть другим и т.о. стратегия поменяется ...

(176) Это можно будет проверить, в рамках условий "Парадокса заключенного"

wiki:Дилемма_заключённого

Если оба выбрали «сотрудничать», оба получают C. Если один выбрал «предать», другой «сотрудничать» — первый получает D, второй с. Если оба выбрали «предать» — оба получают d.

Значения переменных C, D, c, d могут быть любого знака (в примере выше все меньше либо равны 0). Обязательно должно соблюдаться неравенство D > C > d > c, чтобы игра представляла собой «Дилемму заключённого» (ДЗ).

Если игра повторяется, то есть играется больше 1 раза подряд, общий выигрыш от сотрудничества должен быть больше суммарного выигрыша в ситуации, когда один предаёт, а другой — нет, то есть 2C > D + c

(175) Немного алгоритмизировал...

//Входные параметры
    НомерХода    = 0; //
    Партнер        = "Имя";
    
    
    
    //Переменные
    Результат = Истина;
    ГлубинаНеверия[1] = 10; //Обманывали 1 раз в пределах 30 ходов.
    ГлубинаНеверия[2] = 20; //Обманывали 2 раза в пределах 30 ходов.
    ГлубинаНеверия[3] = 30; //Обманывали 3 раза в пределах 30 ходов.
    
    Если НомерХода > 3 Тогда
    
        КоличествоОбманов = СколькоОбманулЗаПоследние30Ходов(Партнер); //Функция возвращает число от 0 до 3. Количество обманов за 30 ходов. При количестве больше 3, возвращается 3.
        ПоследнийОбман = КоличествоХодовОтПоследнегоОбмана(Партнер, НомерХода); //Функция возвращает количество ходов от последнего обмана.
        
        Если КоличествоОбманов = 0 Тогда
        
            Результата = Истина;
            
        Иначе
            ГСЧ = Новый ГенераторСлучайныхЧисел();
            Случайность = ГСЧ.СлучайноеЧисло(0,100);
            
            Длина = ГлубинаНеверия[КоличествоОбманов];
            
            Результат = ?(ПоследнийОбман>Длина,Истина,Случайность  > Длина - ПоследнийОбман);
        
        КонецЕсли;
    
    КонецЕсли;
    
    Возврат Результат;


Думаю 2 функции сам напишешь, у меня не хватает информации о структуре данных.

Хе... немного ошибся :)

Вот эти строки поменять
Случайность = ГСЧ.СлучайноеЧисло(0,100);
            
            Длина = ГлубинаНеверия[КоличествоОбманов];

на

Вот эти строки поменять
Длина = ГлубинаНеверия[КоличествоОбманов];

Случайность = ГСЧ.СлучайноеЧисло(0,Длина);
            



И без отладки сложно :)

Хребанный копипаст...


Длина = ГлубинаНеверия[КоличествоОбманов];

Случайность = ГСЧ.СлучайноеЧисло(0,Длина);

Это правильно

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

(181) если не затруднит, можешь в итоге выложить конфу куда-нибудь в общий доступ? Мы с коллегам с удовольствием сыграем и отпишем результаты)

(182) Будет в более-менее товарном виде - выложу.

Забирайте, что есть на текущий момент.

http://webfiles.ru/files/38548172
пароль 123456

В dt-шнике тестовый чемпионат, с 3 стратегиями ("всегда кооперируюсь", "всегда отказываюсь", "случайная").

Их алгоритмы описаны в пользовательском режиме, в справочнике "Стратегии".

Загружаете dt-шник, открываете в пользовательском режиме обработку СЭЭ, выбираете единсвенный тестовый чемпионат, нажимаете "Старт чемпионата".

Результаты конкретных игр можно посмотреть, открыв элемент "тестовый чемпионат", а далее через "Перейти" / "партии"

Открывать в толстом клиенте, обычном приложении.

Lama12 - твою стратегию пока не реализовал, она требует вычисления внешних параметров. Это - завтра.

Ну как там?
Какие стратегии побеждают?
И сколько ходов всего в чемпионате?
250 или больше?

Хы... :)

(184) око за око почто не реализовал? подключаемые обработки/модули стратегий реализовал?

а если не по очкам, а эло реализовать? кто будет в фаворе?

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

(185) Сколько ходов - настраивается в карточке чемпиионата. Все гибко )))

(187) Для "око за око" надо реализовать вычисление параметров в процессе выполнения стратегии. Надо это сделать гибко и удобно, то есть завтра.

wiki:Рейтинг_Эло

(190) Исходная задача - проверить Аксельрода, с его методами проведения чемпионата, оценками в баллах.
ЭЛО и прочие системы оценки - второстепенная задача. Хочешь - реализуй.

Господа программисты!
Пока я получил внятный алгоритм только от Lama12, FarFar и Иисуса. Алгоритм Wasya, увы, не принят - так как это описанное "Око за око".

Подтягивайтесь! Автор стратегии-победителя получит награду!

Предлагаю стратегию "анти око за око" т.е. "злом за добро и добром за зло"

Самому тестить лень

+(192) первый ход : отказываюсь.

(192) Сумасшедшая стратегия. Ок, принимается. Как будет называться, "Злом за добро, добром за зло" ?

(194) назови "Противная" )))

(195) Название должно отражать суть, чтобы не запутаться. Эта - какая то крэзи...шизанутая. Будет "Злом за добро, добром за зло".

(194) " Как будет называться, "Злом за добро, добром за зло" ?"

Да

(197) Еще вариант названия этой алогичной стратегии - "Садомазохист"

Вариант названия - антипод.

FarFar зарегистрируйся под другой учеткой и дай результаты чемпионата. :)

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

(201) Случайная стратегия есть. Я тут подумал, было бы хорошо увеличить число участников хотя бы до 10*(количество стратегий).
Т.е. представителей каждой стратегии должно быть не меньше 10.
Вот тогда будут интересные результаты, и статистически значимые при количестве экспериментов больше 100.

FarFar, реинкарнируйся!
Как там чемпионат?

Ура! Во имя торжества науки меня выпустили из Азкабана на 5 минут передать народу радостную весть!

Ловите программу со стратегиями "Око за око", "Око за два ока", "Добром за зло, злом за добро". Плюс можно описывать свои стратегии в пользовательском режиме. Lama12 - опиши свою, плиз, по аналогии, потом мне скинешь код.

http://webfiles.ru/files/38562145
пароль 123456

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

Для игры пока доступны и отлажены следующие стратегии:
- Всегда кооперируюсь
- Всегда отказываюсь
- Око за око
- Случайная ("антистратегия")
- Злом за добро, добром за зло, "анти око за око" (автор - antgrom)
- Око за два ока

по умолчанию, у "случайной" галка "Играю" выключена, так как вносит элемент хаоса в стройную теорию, и, вдобавок, хорошо играет )))

Эло реализиовал?

(205) Даже не думал. Я программу пишу в перерывах между работой, между прочим. Сначала - все четко по Аксельроду. Следующее по плану - выплата "зарплаты" стратегий не в баллах, а в количестве особей в следующем поколении. Но это уже в понедельник, не раньше.

(202) я в (0) писал "для полноценного чемпионата нужно хотя бы десяток"

Так что давайте, не пылитесь на задворках научного прогресса, подкидывайте стратегии!

(206) в чем суть тогда твоей задумки? проверить правильность того что в книге написано?

(208) Да, это основная цель. А то книги Аксельрода и Докинза известны всему миру, а вдруг там туфта ?!?

(207) доступ к истории ходов в течении партии есть?

(209) какие основание не доверять ему? И что именно ты хочешь проверить?

(210) Да, есть. Через карточку "Чемпионат", "перейти", "партии"

(212) програмно для стратегии

(211) Я хочу получить сходные результаты. Пока, например, я таковых не получаю. На 5-6 стратегиях стратегия "Око за око" не побеждает. А в лидерах "Всегда отказываюсь".

Да ты не ленись! Скачай ссылку и поиграйся. Неужели не интересно?

(214) пока эло не реализуешь не очень

(213) Да, есть. И даже ты это можешь увидеть, такой механизм используют стратегии "око за око", "око за два ока", "анти око за око".

(215) Ушел посыпать голову пеплом.

только эло может дать более менее объективную оценку силы стратегии

(218) С какой стати? ЭЛО применяется, потому что в реальном мире, каждый игрок не может сыграть с каждым. А у меня в чемпионате каждая стратегия играет с каждый, причем сколько угодно раз.

(219) В файлике, который выложил, длина матча "каждый с каждым" указана 100 партий. Можно делать намного больше.

Однако вижу 5 скачиваний с webfiles!

я скачал

сама с собой стратегия играет?

Как бы интуитивно понятно, что при большом количестве игр "око за око" будет иметь успех. Из-за этой "интуитивности" считал ДЗ в каноническом виде вырожденной игрой - и так все ясно. И был неправ. Несколько месяцев назад случайно наткнулся на коротенькую новость, что бригада европейских математиков нашла более хорошую стратегию. Подробностей, к сожалению, не было. Если найду на выходных новость, попробую добыть подробности.

1000 ходов
выиграла "Всегда отказываюсь"
16 020 баллов

при прочих стандартных настройках

Зависит от соотношения злых/добрых стратегий

Добавить бы 100 случайных стратегий

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

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

(224) Пока "око за око" не всегда даже 2-е место завоевывает. Ее теснит либо "случайная" (да, она часто на 2-м месте, особенно без галки игры сама с собой), либо аномальная "добром за зло" мистянина antgrom

Если играют все со всеми то всегда будет в фаворе Кидающая стратегия

(224) "при большом количестве игр" - возможно, при разнообразии стратегий. У Аксельрода она имела успех, но когда стратегий было заметно больше (15, а потом 63)

считаю , что важно - поставить жизненные очки
Сейчас поставил :
взаимная кооперация +5
взаимный отказ -1
обман другого  +6
обманули меня  -6


1000 ходов

выиграло "Око за око"

(230) Выбери в чемпионат следующих игроков:
"всегда отказываюсь"
"око за око"
"око за два ока"

и будет наглядная демонстрация, как две "добропорядочные" стратегии уделывают обманщика

(230) зависит от начисляемых очков - будут ли отрицательные.

(232)
Я взял таблицу очков, которую использовал Аксельрод в своих исследованиях.

Чтобы не нарушать принципы "Парадокса заключенного", таблица бонусов/штрафов должна удовлетворять параметрам:

wiki:Дилемма_заключённого

Если оба выбрали «сотрудничать», оба получают C. Если один выбрал «предать», другой «сотрудничать» — первый получает D, второй с. Если оба выбрали «предать» — оба получают d.
Значения переменных C, D, c, d могут быть любого знака (в примере выше все меньше либо равны 0). Обязательно должно соблюдаться неравенство D > C > d > c, чтобы игра представляла собой «Дилемму заключённого» (ДЗ).
Если игра повторяется, то есть играется больше 1 раза подряд, общий выигрыш от сотрудничества должен быть больше суммарного выигрыша в ситуации, когда один предаёт, а другой — нет, то есть 2C > D + c (объяснение см. ниже).
Эти правила были установлены Дугласом Хофштадтером и образуют каноническое описание типичной дилеммы заключённого.

(233) Глубокая жизненная идея! Порядочные люди живут хорошо, когда их в обществе большинство!

(235) у меня так же :
D > C > d > c,
+6 , +5 , -1 , -6

и
2C > D + c
соблюдается

(237), (238)
Ок, значит ты исследуешь "дилемму заключенного" с допустимыми параметрами. Я - тоже с допустимыми, но с теми, которые использовал Аксельрод.

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

Вот закодирую свою "лучшие практики" - она всех как Тузик тряпку порвет!

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

Кстати, господа, на предлагаемые стратегии накладываю ограничение:

Стратегия не должна использовать "внесистемные" знания о других стратегиях. Нельзя тупо кодировать: "Если противник - "всегда отказываюсь", то отказывать ему".

Зато разрешаю использовать любую статистику по прошедшим партиям, до текущего хода. Например, если идет партия № 10, то результаты всех прошедших 9 - в Вашем распоряжении. Кто как с кем сыграл, какую карту положил, сколько баллов набрал.

Партия - это ход?

(241), (242) Чемпионат в программе сейчас проходит так:

Играется круг (партия) № 1. Все играют со всеми, набирают баллы. Потом идет круг № 2, и так далее, до самого конца. То есть нет такого, что две стратегии сначала рубятся 100 партий, потом следующие две.

(243) в партии сколько ходов?

(244) В "партии" один ход.

(244)
Имеем стратегии:
"око за око"
"всегда отказываюсь"
"всегда кооперируюсь"

значение "Количество партий в матче" = 2
галку "стратегия играет сама с собой"  - снимем.


Будет сыграно:

Круг (партия) номер 1:
"око за око" - "всегда отказываюсь"
"око за око" - "всегда кооперируюсь"
"всегда отказываюсь" - "всегда кооперируюсь"

Круг (партия) номер 2:
"око за око" - "всегда отказываюсь"
"око за око" - "всегда кооперируюсь"
"всегда отказываюсь" - "всегда кооперируюсь"

(240) Эх если бы в жизни так было.

(240)
"я к жизни приближаю. Про мало хороших и много плохих людей :"

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

Чемпионат = сВход.Чемпионат;
Стратегия = сВход.Стратегия;
НомерХода    = сВход.НомерПартии;; //
Партнер        = сВход.Оппонент;;

//Переменные
Результат = Истина;
ГлубинаНеверия = Новый Массив(3);
ГлубинаНеверия[0] = 10; //Обманывали 1 раз в пределах 30 ходов.
ГлубинаНеверия[1] = 20; //Обманывали 2 раза в пределах 30 ходов.
ГлубинаНеверия[2] = 30; //Обманывали 3 раза в пределах 30 ходов.


Если НомерХода > 3 Тогда
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ ПЕРВЫЕ 30
    |    ВЫБОР
    |        КОГДА Партии.Карта = ИСТИНА
    |            ТОГДА 0
    |        ИНАЧЕ 1
    |    КОНЕЦ КАК Поле1,
    |    Партии.НомерПартии,
    |    23 КАК Поле2
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |ГДЕ
    |    Партии.Чемпионат = &Чемпионат
    |    И Партии.Стратегия = &Стратегия
    |    И Партии.Оппонент = &Оппонент
    |
    |УПОРЯДОЧИТЬ ПО
    |    Партии.НомерПартии УБЫВ";
    
    Запрос.УстановитьПараметр("Чемпионат", Чемпионат);
    Запрос.УстановитьПараметр("Оппонент", Партнер);
    Запрос.УстановитьПараметр("Стратегия", Стратегия);
    
    
    Сумма = Запрос.Выполнить().Выгрузить().Свернуть("Поле2","Поле1");
    
    КоличествоОбманов = ?(Сумма>3,3,Сумма);
    
    Запрос.Текст =
    "ВЫБРАТЬ
    |    МАКСИМУМ(Партии.НомерПартии) КАК НомерПартии
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |ГДЕ
    |    Партии.Чемпионат = &Чемпионат
    |    И Партии.Стратегия = &Стратегия
    |    И Партии.Оппонент = &Оппонент
    |    И НЕ Партии.Карта";
    
    Рез = Запрос.Выполнить();
    НомЕнд = НомерХода;
    Если НЕ Рез.Пустой() Тогда
        Выборка = Рез.Выбрать();
        Выборка.Следующий();
        НомЕнд = Выборка.НомерПартии;
    КонецЕсли;
    ПоследнийОбман = НомерХода- НомЕнд; //Функция возвращает количество ходов от последнего обмана.
    
    
    Если КоличествоОбманов = 0 Тогда
        
        Результата = Истина;
        
    Иначе
        ГСЧ = Новый ГенераторСлучайныхЧисел();
        Длина = ГлубинаНеверия[КоличествоОбманов-1];
        Случайность = ГСЧ.СлучайноеЧисло(0,Длина);
        
        
        Результат = ?(ПоследнийОбман>Длина,Истина,Случайность  > Длина - ПоследнийОбман);
        
    КонецЕсли;
    
КонецЕсли;

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

накосячил :)
исправляюсь

буду отлаживаться...

(249)
вываливалось с ошибками. Пришлось заменить:

вместо:
Сумма = Запрос.Выполнить().Выгрузить().Свернуть("Поле2","Поле1");

вставил:
    тз= Запрос.Выполнить().Выгрузить();
    тз.Свернуть("Поле2","Поле1");
    Сумма = тз.Итог("Поле1");


перед:
ПоследнийОбман = НомерХода- НомЕнд;

добавил:
Если НомЕнд = NULL Тогда
        НомЕнд = 0;
КонецЕсли;

потому что НомЕнд может быть равно NULL


В итоге, текст стратегии стал такой:

Чемпионат = сВход.Чемпионат;
Стратегия = сВход.Стратегия;
НомерХода    = сВход.НомерПартии;; //
Партнер        = сВход.Оппонент;;

//Переменные
Результат = Истина;
ГлубинаНеверия = Новый Массив(3);
ГлубинаНеверия[0] = 10; //Обманывали 1 раз в пределах 30 ходов.
ГлубинаНеверия[1] = 20; //Обманывали 2 раза в пределах 30 ходов.
ГлубинаНеверия[2] = 30; //Обманывали 3 раза в пределах 30 ходов.


Если НомерХода > 3 Тогда
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ ПЕРВЫЕ 30
    |    ВЫБОР
    |        КОГДА Партии.Карта = ИСТИНА
    |            ТОГДА 0
    |        ИНАЧЕ 1
    |    КОНЕЦ КАК Поле1,
    |    Партии.НомерПартии,
    |    23 КАК Поле2
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |ГДЕ
    |    Партии.Чемпионат = &Чемпионат
    |    И Партии.Стратегия = &Стратегия
    |    И Партии.Оппонент = &Оппонент
    |
    |УПОРЯДОЧИТЬ ПО
    |    Партии.НомерПартии УБЫВ";
    
    Запрос.УстановитьПараметр("Чемпионат", Чемпионат);
    Запрос.УстановитьПараметр("Оппонент", Партнер);
    Запрос.УстановитьПараметр("Стратегия", Стратегия);
    
    тз= Запрос.Выполнить().Выгрузить();
    тз.Свернуть("Поле2","Поле1");
    Сумма = тз.Итог("Поле1");
    
    КоличествоОбманов = ?(Сумма>3,3,Сумма);
    
    Запрос.Текст =
    "ВЫБРАТЬ
    |    МАКСИМУМ(Партии.НомерПартии) КАК НомерПартии
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |ГДЕ
    |    Партии.Чемпионат = &Чемпионат
    |    И Партии.Стратегия = &Стратегия
    |    И Партии.Оппонент = &Оппонент
    |    И НЕ Партии.Карта";
    
    Рез = Запрос.Выполнить();
    НомЕнд = НомерХода;
    Если НЕ Рез.Пустой() Тогда
        Выборка = Рез.Выбрать();
        Выборка.Следующий();
        НомЕнд = Выборка.НомерПартии;
    КонецЕсли;

    Если НомЕнд = NULL Тогда
        НомЕнд = 0;
    КонецЕсли;
    ПоследнийОбман = НомерХода- НомЕнд; //Функция возвращает количество ходов от последнего обмана.
    
    
    Если КоличествоОбманов = 0 Тогда
        
        Результата = Истина;
        
    Иначе
        ГСЧ = Новый ГенераторСлучайныхЧисел();
        Длина = ГлубинаНеверия[КоличествоОбманов-1];
        Случайность = ГСЧ.СлучайноеЧисло(0,Длина);
        
        
        Результат = ?(ПоследнийОбман>Длина,Истина,Случайность  > Длина - ПоследнийОбман);
        
    КонецЕсли;
    
КонецЕсли;

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


с таким кодом она в чемпионате с длиной матча 100 ходов против всех стратегий сыграла "Кооперация" и разделила последние места с "Всегда кооперируюсь" )))

P.S. Научи тут на Мисте код под спойлер прятать

(253) 300 р на телефон

(254) Перевел

(251) Lama12 - будешь отлаживать свой алгоритм - перескачай мою внешнюю обработку:
http://webfiles.ru/files/38567210
пароль 123456

Я туда вывел таблички Общей статистики по выбранной стратегии, и результаты ее партий с выбранным оппонентом. Чтобы по регистрам не лазить.

Обновление - по кнопочкам "Обновить" :-)  Делал дома, монитор не широкий, поэтому может малость перекосячено.

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

(257) Если для тебя цель - обыграть одного единственного партнера - то да.
Но при этом вы оба, скорее всего, наберете очень мало очков, так как оба будете отказываться. В этом и есть парадокс.

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

исправил :)
работает

Чемпионат = сВход.Чемпионат;
Стратегия = сВход.Стратегия;
НомерХода    = сВход.НомерПартии;; //
Партнер        = сВход.Оппонент;;

//Переменные
Отладка = Истина;
Результат = Истина;
ГлубинаНеверия = Новый Массив(3);
ГлубинаНеверия[0] = 10; //Обманывали 1 раз в пределах 30 ходов.
ГлубинаНеверия[1] = 20; //Обманывали 2 раза в пределах 30 ходов.
ГлубинаНеверия[2] = 30; //Обманывали 3 раза в пределах 30 ходов.

Если Отладка Тогда
    ЗаписьЖурналаРегистрации("Отладка",,,,"Номер хода" + НомерХода,);    
КонецЕсли;
Если НомерХода > 3 Тогда
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ ПЕРВЫЕ 30
    |    ВЫБОР
    |        КОГДА Партии.ОппонентКарта = ИСТИНА
    |            ТОГДА 0
    |        ИНАЧЕ 1
    |    КОНЕЦ КАК Поле1,
    |    Партии.НомерПартии,
    |    23 КАК Поле2
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |ГДЕ
    |    Партии.Чемпионат = &Чемпионат
    |    И Партии.Стратегия = &Стратегия
    |    И Партии.Оппонент = &Оппонент
    |
    |УПОРЯДОЧИТЬ ПО
    |    Партии.НомерПартии УБЫВ";
    
    Запрос.УстановитьПараметр("Чемпионат", Чемпионат);
    Запрос.УстановитьПараметр("Оппонент", Партнер);
    Запрос.УстановитьПараметр("Стратегия", Стратегия);
    
    ТЗ_Р = Запрос.Выполнить().Выгрузить();
    ТЗ_Р.Свернуть("Поле2","Поле1");
    Сумма = ТЗ_Р[0].Поле1;                
    КоличествоОбманов = ?(Сумма>3,3,Сумма);
    
    Если Отладка Тогда
    ЗаписьЖурналаРегистрации("Отладка",,,,"Количество обманов" + КоличествоОбманов,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Чемпионат" + Чемпионат,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Партнер" + Партнер,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Стратегия" + Стратегия,);
    КонецЕсли;
    
    Запрос.Текст =
    "ВЫБРАТЬ
    |    МАКСИМУМ(Партии.НомерПартии) КАК НомерПартии
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |ГДЕ
    |    Партии.Чемпионат = &Чемпионат
    |    И Партии.Стратегия = &Стратегия
    |    И Партии.Оппонент = &Оппонент
    |    И НЕ Партии.ОппонентКарта";
    
    Рез = Запрос.Выполнить();
    НомЕнд = НомерХода;
    Если НЕ Рез.Пустой() Тогда
        Выборка = Рез.Выбрать();
        Выборка.Следующий();
        НомЕнд = Выборка.НомерПартии;
        НомЕнд = ?(НомЕнд = null,0,НомЕнд);
    КонецЕсли;
    ПоследнийОбман = НомерХода- НомЕнд; //Функция возвращает количество ходов от последнего обмана.
    
    
    Если Отладка Тогда
    ЗаписьЖурналаРегистрации("Отладка",,,,"ПоследнийОбман" + ПоследнийОбман,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Чемпионат" + Чемпионат,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Партнер" + Партнер,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Стратегия" + Стратегия,);
    КонецЕсли;

    
    Если КоличествоОбманов = 0 Тогда
        
        Результата = Истина;
        
    Иначе
        ГСЧ = Новый ГенераторСлучайныхЧисел();
        Длина = ГлубинаНеверия[КоличествоОбманов-1];
        Случайность = ГСЧ.СлучайноеЧисло(0,Длина);
        
        
        Если Отладка Тогда
        ЗаписьЖурналаРегистрации("Отладка",,,,"Длина" + Длина,);
        ЗаписьЖурналаРегистрации("Отладка",,,,"Случайность" + Случайность,);
        ЗаписьЖурналаРегистрации("Отладка",,,,"ПоследнийОбман" + ПоследнийОбман,);
        ЗаписьЖурналаРегистрации("Отладка",,,,"Длина - ПоследнийОбман" + (Длина - ПоследнийОбман),);
        КонецЕсли;

        
        Результат = ?(ПоследнийОбман>Длина,Истина,Случайность  > Длина - ПоследнийОбман);
        
    КонецЕсли;
    
КонецЕсли;

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



Чемпионат = сВход.Чемпионат;
Стратегия = сВход.Стратегия;
НомерХода    = сВход.НомерПартии;; //
Партнер        = сВход.Оппонент;;

//Переменные
Отладка = Истина;
Результат = Истина;
ГлубинаНеверия = Новый Массив(3);
ГлубинаНеверия[0] = 10; //Обманывали 1 раз в пределах 30 ходов.
ГлубинаНеверия[1] = 20; //Обманывали 2 раза в пределах 30 ходов.
ГлубинаНеверия[2] = 30; //Обманывали 3 раза в пределах 30 ходов.

Если Отладка Тогда
    ЗаписьЖурналаРегистрации("Отладка",,,,"Номер хода" + НомерХода,);    
КонецЕсли;
Если НомерХода > 3 Тогда
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ ПЕРВЫЕ 30
    |    ВЫБОР
    |        КОГДА Партии.ОппонентКарта = ИСТИНА
    |            ТОГДА 0
    |        ИНАЧЕ 1
    |    КОНЕЦ КАК Поле1,
    |    Партии.НомерПартии,
    |    23 КАК Поле2
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |ГДЕ
    |    Партии.Чемпионат = &Чемпионат
    |    И Партии.Стратегия = &Стратегия
    |    И Партии.Оппонент = &Оппонент
    |
    |УПОРЯДОЧИТЬ ПО
    |    Партии.НомерПартии УБЫВ";
    
    Запрос.УстановитьПараметр("Чемпионат", Чемпионат);
    Запрос.УстановитьПараметр("Оппонент", Партнер);
    Запрос.УстановитьПараметр("Стратегия", Стратегия);
    
    ТЗ_Р = Запрос.Выполнить().Выгрузить();
    ТЗ_Р.Свернуть("Поле2","Поле1");
    Сумма = ТЗ_Р[0].Поле1;                
    КоличествоОбманов = ?(Сумма>3,3,Сумма);
    
    Если Отладка Тогда
    ЗаписьЖурналаРегистрации("Отладка",,,,"Количество обманов" + КоличествоОбманов,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Чемпионат" + Чемпионат,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Партнер" + Партнер,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Стратегия" + Стратегия,);
    КонецЕсли;
    
    Запрос.Текст =
    "ВЫБРАТЬ
    |    МАКСИМУМ(Партии.НомерПартии) КАК НомерПартии
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |ГДЕ
    |    Партии.Чемпионат = &Чемпионат
    |    И Партии.Стратегия = &Стратегия
    |    И Партии.Оппонент = &Оппонент
    |    И НЕ Партии.ОппонентКарта";
    
    Рез = Запрос.Выполнить();
    НомЕнд = НомерХода;
    Если НЕ Рез.Пустой() Тогда
        Выборка = Рез.Выбрать();
        Выборка.Следующий();
        НомЕнд = Выборка.НомерПартии;
        НомЕнд = ?(НомЕнд = null,0,НомЕнд);
    КонецЕсли;
    ПоследнийОбман = НомерХода- НомЕнд; //Функция возвращает количество ходов от последнего обмана.
    
    
    Если Отладка Тогда
    ЗаписьЖурналаРегистрации("Отладка",,,,"ПоследнийОбман" + ПоследнийОбман,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Чемпионат" + Чемпионат,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Партнер" + Партнер,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Стратегия" + Стратегия,);
    КонецЕсли;

    
    Если КоличествоОбманов = 0 Тогда
        
        Результата = Истина;
        
    Иначе
        ГСЧ = Новый ГенераторСлучайныхЧисел();
        Длина = ГлубинаНеверия[КоличествоОбманов-1];
        Случайность = ГСЧ.СлучайноеЧисло(0,Длина);
        
        
        Если Отладка Тогда
        ЗаписьЖурналаРегистрации("Отладка",,,,"Длина" + Длина,);
        ЗаписьЖурналаРегистрации("Отладка",,,,"Случайность" + Случайность,);
        ЗаписьЖурналаРегистрации("Отладка",,,,"ПоследнийОбман" + ПоследнийОбман,);
        ЗаписьЖурналаРегистрации("Отладка",,,,"Длина - ПоследнийОбман" + (Длина - ПоследнийОбман),);
        КонецЕсли;

        
        Результат = ?(ПоследнийОбман>Длина,Истина,Случайность  > Длина - ПоследнийОбман);
        
    КонецЕсли;
    
КонецЕсли;

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


осталось подобрать имперически величину анализируемой истории.
30 ходов будет на определенной длине матча оптимальной :)

тест сворачивания кода

654654


... что б код свернулся нужно заглавную английскую С написать а скобках.

(261) Длина матча заранее неизвестна.

Как то так :)
http://s020.radikal.ru/i715/1310/87/987d891eeca7.png

(264) Ну можно функцию сделать что б длина недоверия зависила линейно от длины матча :)

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

Кстати, с удовольствием бы посмотрел бота от NS

(267) Увы, знание о длине матча использовать в алгоритмах нельзя. Это особо оговариавлось у Аксельрода. Объяснение:
wiki:Дилемма_заключённого


"Если ПДЗ играется ровно N раз (некая известная константа N), есть ещё один интересный факт. Равновесие Нэша — всегда предавать. Доказываем по индукции: если оба сотрудничают, на последнем ходу выгодно предать, тогда у соперника не будет возможности отомстить. Поэтому оба предадут друг друга на последнем ходу. Раз соперник предаст на последнем ходу в любом случае, любой игрок захочет предать на предпоследнем ходу, и так далее. Чтобы сотрудничество оставалось выгодным, необходимо, чтобы будущее было неопределённым для обоих игроков."

(269) ну тогда можно по другому сделать глубину гибкой. :)
В общем если обыграешь моего бота, буду делать улучшения.

(270) Отличные результаты игры твоей стратегии подтверждаю. Занимает первое место.
Включил в стратегии своей базы. Только флаг "Отладка" поставил равным "Ложь", чтобы не писала отладочную информацию в журнал регистрации.

Буду готовить ответный удар ))

(268) Разве NS сумеет написать такую сложную стратегию?!? Это же не шахматы )))

А кто-нибудь из уважаемых модераторов может "скрыть" в этой ветке длинные фрагменты кода для лучшего восприятия?

(270) Lama12 - прошу по своей стратегии предоставить краткое описание, которое я помещу в "Комментарий". Чтобы по коду не восстанавливать ход твоих мыслей.

Новому участнику верим 3 раза, потом, от количества обманов, пропорционально увеличиваем доверие от 0 до 1 помноженное на 10 и на количество обманов за последние 30 ходов.

(274) Получай гранату "А ты кто такой?":
http://i058.radikal.ru/1310/f4/acf7d7a756ab.png

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

А вообще, 500 партий на матч - это сурово. Давайте предварительные чемпионаты проводить на 100, и без случайной. А потом, когда будем играть итоговый - со случайной и на большее число.
На таких условиях "А ты кто такой?" тоже побеждает:
http://i074.radikal.ru/1310/6d/81bac9d67331.png

А вообще, интересно увидеть более недобропорядочные стратегии. Благо есть куда развиваться!!!

Выложил базу со стратегией Lama12 и моей "А ты кто такой?", а также версией обработки "СЭЭ" с окнами статистики^
http://webfiles.ru/files/38571841
пароль 123456

Мда... не выходит каменный цветок :)

Зато придумал стратегию с названием "Противоречивая девочка"


Чемпионат = сВход.Чемпионат;
Стратегия = сВход.Стратегия;
НомерХода    = сВход.НомерПартии;; //
Партнер        = сВход.Оппонент;;

//Переменные
Отладка = Ложь;
Результат = Истина;



Если НомерХода > 3 Тогда
    
    Запрос = Новый Запрос;

    
    Запрос.УстановитьПараметр("Чемпионат", Чемпионат);
    Запрос.УстановитьПараметр("Оппонент", Партнер);
    Запрос.УстановитьПараметр("Стратегия", Стратегия);
    
    
    
    
    Запрос.Текст =
    "ВЫБРАТЬ
    |    СУММА(1) КАК Поле1
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |ГДЕ
    |    Партии.Чемпионат = &Чемпионат
    |    И Партии.Стратегия = &Стратегия
    |    И Партии.Оппонент = &Оппонент
    |    И НЕ Партии.ОппонентКарта";
    
    Рез = Запрос.Выполнить();
    КолОбманов = 0;
    Если НЕ Рез.Пустой() Тогда
        Выборка = Рез.Выбрать();
        Выборка.Следующий();
        КолОбманов = Выборка.Поле1;
        КолОбманов = ?(КолОбманов = null,0,КолОбманов);
    КонецЕсли;//Количество обманов
    
    

    
    
        ГСЧ = Новый ГенераторСлучайныхЧисел();

        Случайность = ГСЧ.СлучайноеЧисло(0,1000);
        
        
        

        
        Результат = Случайность  > 1000*(1-(НомерХода - КолОбманов)/НомерХода);
        
  
    
КонецЕсли;



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


И хочет, и может, и иногда говорит да.

В адаптации своей, пока в функциях запутался.
Ну на всякий случай тоже выкладываю.


Чемпионат = сВход.Чемпионат;
Стратегия = сВход.Стратегия;
НомерХода    = сВход.НомерПартии;; //
Партнер        = сВход.Оппонент;;

//Переменные
Отладка = Ложь;
Результат = Истина;
ГлубинаНеверия = Новый Массив(3);
ГлубинаНеверия[0] = 10; //Обманывали 1 раз в пределах 30 ходов.
ГлубинаНеверия[1] = 20; //Обманывали 2 раза в пределах 30 ходов.
ГлубинаНеверия[2] = 30; //Обманывали 3 раза в пределах 30 ходов.

Если Отладка Тогда
    ЗаписьЖурналаРегистрации("Отладка",,,,"Номер хода" + НомерХода,);    
КонецЕсли;
Если НомерХода > 3 Тогда
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ ПЕРВЫЕ 30
    |    ВЫБОР
    |        КОГДА Партии.ОппонентКарта = ИСТИНА
    |            ТОГДА 0
    |        ИНАЧЕ 1
    |    КОНЕЦ КАК Поле1,
    |    Партии.НомерПартии,
    |    23 КАК Поле2
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |ГДЕ
    |    Партии.Чемпионат = &Чемпионат
    |    И Партии.Стратегия = &Стратегия
    |    И Партии.Оппонент = &Оппонент
    |
    |УПОРЯДОЧИТЬ ПО
    |    Партии.НомерПартии УБЫВ";
    
    Запрос.УстановитьПараметр("Чемпионат", Чемпионат);
    Запрос.УстановитьПараметр("Оппонент", Партнер);
    Запрос.УстановитьПараметр("Стратегия", Стратегия);
    
    ТЗ_Р = Запрос.Выполнить().Выгрузить();
    ТЗ_Р.Свернуть("Поле2","Поле1");
    Сумма = ТЗ_Р[0].Поле1;                
    КоличествоОбманов = ?(Сумма>3,3,Сумма);
    
    Если Отладка Тогда
    ЗаписьЖурналаРегистрации("Отладка",,,,"Количество обманов" + КоличествоОбманов,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Чемпионат" + Чемпионат,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Партнер" + Партнер,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Стратегия" + Стратегия,);
    КонецЕсли;
    
    Запрос.Текст =
    "ВЫБРАТЬ
    |    МАКСИМУМ(Партии.НомерПартии) КАК НомерПартии
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |ГДЕ
    |    Партии.Чемпионат = &Чемпионат
    |    И Партии.Стратегия = &Стратегия
    |    И Партии.Оппонент = &Оппонент
    |    И НЕ Партии.ОппонентКарта";
    
    Рез = Запрос.Выполнить();
    НомЕнд = НомерХода;
    Если НЕ Рез.Пустой() Тогда
        Выборка = Рез.Выбрать();
        Выборка.Следующий();
        НомЕнд = Выборка.НомерПартии;
        НомЕнд = ?(НомЕнд = null,0,НомЕнд);
    КонецЕсли;
    ПоследнийОбман = НомерХода- НомЕнд; //Функция возвращает количество ходов от последнего обмана.
    
    
    Запрос.Текст =
    "ВЫБРАТЬ
    |    СУММА(1) КАК Поле1
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |ГДЕ
    |    Партии.Чемпионат = &Чемпионат
    |    И Партии.Стратегия = &Стратегия
    |    И Партии.Оппонент = &Оппонент
    |    И НЕ Партии.ОппонентКарта";
    
    Рез = Запрос.Выполнить();
    КолОбманов = 0;
    Если НЕ Рез.Пустой() Тогда
        Выборка = Рез.Выбрать();
        Выборка.Следующий();
        КолОбманов = Выборка.Поле1;
        КолОбманов = ?(КолОбманов = null,0,КолОбманов);
    КонецЕсли;//Количество обманов
    
    Если Отладка Тогда
    ЗаписьЖурналаРегистрации("Отладка",,,,"ПоследнийОбман" + ПоследнийОбман,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Чемпионат" + Чемпионат,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Партнер" + Партнер,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Стратегия" + Стратегия,);
    КонецЕсли;

    
    Если КоличествоОбманов = 0 Тогда
        
        Результата = Истина;
        
    Иначе
        ГСЧ = Новый ГенераторСлучайныхЧисел();
        Длина = ГлубинаНеверия[КоличествоОбманов-1];
        Случайность = ГСЧ.СлучайноеЧисло(0,Длина);
       Длина = Длина + 2*(Цел(НомерХода/30))* КолОбманов/НомерХода;
        
        Если Отладка Тогда
        ЗаписьЖурналаРегистрации("Отладка",,,,"Длина" + Длина,);
        ЗаписьЖурналаРегистрации("Отладка",,,,"Случайность" + Случайность,);
        ЗаписьЖурналаРегистрации("Отладка",,,,"ПоследнийОбман" + ПоследнийОбман,);
        ЗаписьЖурналаРегистрации("Отладка",,,,"Длина - ПоследнийОбман" + (Длина - ПоследнийОбман),);
        КонецЕсли;

        
        Результат = ?(ПоследнийОбман>Длина,Истина,Случайность  > (Длина - ПоследнийОбман)); //
        
    КонецЕсли;
    
КонецЕсли;

//Включаем дурачку

Если Результат И НомерХода > 30  Тогда

    
    
    ГСЧ = Новый ГенераторСлучайныхЧисел();
    Случайность = ГСЧ.СлучайноеЧисло(0,100);
    
    Результат = ?(Случайность > 98*(НомерХода-КолОбманов)/НомерХода, Ложь, Истина); //Извени любимая. Так получилось.
    
    
КонецЕсли;

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


Еще участники будут?

(276) Так для "Противоречивой девочки" какой код брать? Второй или первый? Напиши кратко алгоритм "девочки" для вставки в комментарий.

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

(279) Тогда девочка очень даже логичная и непротиворечивая ))

(280) Так "ломается", поэтому девочка, а т.к. отказывает иногда и "хорошим мальчикам", поэтому противоречивая. :)

(281) То есть, непротиворечивая девочка должна не отказывать ни одному хорошему мальчику? Класс!

(282) а то :)
Только это будет уже не девочка. :(

"Девочку" добавил. При текущем составе чемпионата - обычно конкурирует с "Око за око" за 3-4 место.
Посмотрим, что будет дальше, когда стратегий будет больше.

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

Интересная темка. Жаль, времени нет

Коза ностра. Всегда кооперируемся, предателей убиваем. Ну то есть после первого предательства вышибаем мозги бейсбольной битой создателю "предательской" стратегии.

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

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

(288) Увы... таких прав программе твоей не могу дать.

(289) Ты не понял. Если ты играешь с Коза ностра, то ты играешь по её правилам. Или спишь с рыбами :-)

Пожалуй это последний вариант.

Чемпионат = сВход.Чемпионат;
Стратегия = сВход.Стратегия;
НомерХода    = сВход.НомерПартии;; //
Партнер        = сВход.Оппонент;;

//Переменные
Отладка = Ложь;
Результат = Истина;
ГлубинаНеверия = Новый Массив(3);
ГлубинаНеверия[0] = 10; //Обманывали 1 раз в пределах 30 ходов.
ГлубинаНеверия[1] = 20; //Обманывали 2 раза в пределах 30 ходов.
ГлубинаНеверия[2] = 30; //Обманывали 3 раза в пределах 30 ходов.

Если Отладка Тогда
    ЗаписьЖурналаРегистрации("Отладка",,,,"Номер хода" + НомерХода,);    
КонецЕсли;
Если НомерХода > 3 Тогда
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ ПЕРВЫЕ 30
    |    ВЫБОР
    |        КОГДА Партии.ОппонентКарта = ИСТИНА
    |            ТОГДА 0
    |        ИНАЧЕ 1
    |    КОНЕЦ КАК Поле1,
    |    Партии.НомерПартии,
    |    23 КАК Поле2
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |ГДЕ
    |    Партии.Чемпионат = &Чемпионат
    |    И Партии.Стратегия = &Стратегия
    |    И Партии.Оппонент = &Оппонент
    |
    |УПОРЯДОЧИТЬ ПО
    |    Партии.НомерПартии УБЫВ";
    
    Запрос.УстановитьПараметр("Чемпионат", Чемпионат);
    Запрос.УстановитьПараметр("Оппонент", Партнер);
    Запрос.УстановитьПараметр("Стратегия", Стратегия);
    
    ТЗ_Р = Запрос.Выполнить().Выгрузить();
    ТЗ_Р.Свернуть("Поле2","Поле1");
    Сумма = ТЗ_Р[0].Поле1;                
    КоличествоОбманов = ?(Сумма>3,3,Сумма);
    
    Если Отладка Тогда
    ЗаписьЖурналаРегистрации("Отладка",,,,"Количество обманов" + КоличествоОбманов,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Чемпионат" + Чемпионат,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Партнер" + Партнер,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Стратегия" + Стратегия,);
    КонецЕсли;
    
    Запрос.Текст =
    "ВЫБРАТЬ
    |    МАКСИМУМ(Партии.НомерПартии) КАК НомерПартии
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |ГДЕ
    |    Партии.Чемпионат = &Чемпионат
    |    И Партии.Стратегия = &Стратегия
    |    И Партии.Оппонент = &Оппонент
    |    И НЕ Партии.ОппонентКарта";
    
    Рез = Запрос.Выполнить();
    НомЕнд = НомерХода;
    Если НЕ Рез.Пустой() Тогда
        Выборка = Рез.Выбрать();
        Выборка.Следующий();
        НомЕнд = Выборка.НомерПартии;
        НомЕнд = ?(НомЕнд = null,0,НомЕнд);
    КонецЕсли;
    ПоследнийОбман = НомерХода- НомЕнд; //Функция возвращает количество ходов от последнего обмана.
    
    
    Запрос.Текст =
    "ВЫБРАТЬ
    |    СУММА(1) КАК Поле1
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |ГДЕ
    |    Партии.Чемпионат = &Чемпионат
    |    И Партии.Стратегия = &Стратегия
    |    И Партии.Оппонент = &Оппонент
    |    И НЕ Партии.ОппонентКарта";
    
    Рез = Запрос.Выполнить();
    КолОбманов = 0;
    Если НЕ Рез.Пустой() Тогда
        Выборка = Рез.Выбрать();
        Выборка.Следующий();
        КолОбманов = Выборка.Поле1;
        КолОбманов = ?(КолОбманов = null,0,КолОбманов);
    КонецЕсли;//Количество обманов
    
    Если Отладка Тогда
    ЗаписьЖурналаРегистрации("Отладка",,,,"ПоследнийОбман" + ПоследнийОбман,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Чемпионат" + Чемпионат,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Партнер" + Партнер,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Стратегия" + Стратегия,);
    КонецЕсли;

    
    Если КоличествоОбманов = 0 Тогда
        
        Результата = Истина;
        
    Иначе
        ГСЧ = Новый ГенераторСлучайныхЧисел();
        Длина = ГлубинаНеверия[КоличествоОбманов-1];
        Случайность = ГСЧ.СлучайноеЧисло(0,Длина);
       //Длина = Длина + 2*(Цел(НомерХода/30))* КолОбманов/НомерХода;
        
        Если Отладка Тогда
        ЗаписьЖурналаРегистрации("Отладка",,,,"Длина" + Длина,);
        ЗаписьЖурналаРегистрации("Отладка",,,,"Случайность" + Случайность,);
        ЗаписьЖурналаРегистрации("Отладка",,,,"ПоследнийОбман" + ПоследнийОбман,);
        ЗаписьЖурналаРегистрации("Отладка",,,,"Длина - ПоследнийОбман" + (Длина - ПоследнийОбман),);
        КонецЕсли;

        
        Результат = ?(ПоследнийОбман>Длина,Истина,Случайность  > (Длина - ПоследнийОбман)); //
        
    КонецЕсли;
    
КонецЕсли;

//Включаем дурачку

Если Результат И НомерХода > 30  Тогда

    
    
    ГСЧ = Новый ГенераторСлучайныхЧисел();
    Случайность = ГСЧ.СлучайноеЧисло(0,100);
    
    Результат = ?(Случайность > 98 + 2 * (1-(НомерХода-КолОбманов)/НомерХода), Ложь, Истина); //Извени любимая. Так получилось. //
    
    
КонецЕсли;

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


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

(291) Внесу. Мне еще несколько подкинули, их тоже добавлю.

"Блеф"
Алгоритм:
рандомизированное "Око за око"
1й ход матча = 10% отказ
в дальнейшем, отход от базовой стратегии:
если противник ставил "Отказ" - 20%*(кол-во его коопераций/кол-во прошедших партий) "кооперация"
если ставил "Кооперация" - 10% "Отказ"

просто интересно как играть будет

(293) Еще одна рандомайзная стратегия (((

Не рандомайзные (или с минимумом рандома) - интереснее. Потому что это СТРАТЕГИЯ, а не "кинем кости, чё выпадет".

(295) 10% рандома - много?
можно пофиксить на нерандомную, 2 счетчика на противника
1й ход кооперация
ровно каждый 10й вместо "10%" отказ в ответ на кооперацию
и накопительная переменная на стратегию противника "доля прощения" - каждый раз после отказа противника плюсуем к ней 1/5*(кол-во его коопераций/кол-во прошедших партий), и при достижении 1+ зануляем и ставим кооперацию

(291) "Под дурочку" вполне успеша в простом чемпионате.
http://s019.radikal.ru/i618/1310/7f/92a85b521e37.png

Но в "эволюции" (режим я реализовал), когда количество экземпляров стратегии на каждом следующем ходу зависит от успешности игры стратегии - "дурочка" намного менее успешная, чем "Вера с увеличивающейся" или "Наивная девочка". Она первые ходов 30-40 ведет себя успешно, выбираясь иногда даже на первое место по численности популяции.
А потом обычно начинает резко терять успешность:
http://s019.radikal.ru/i602/1310/de/949b2593f0ce.png

, и к 100 ходу обычно вымирает до нескольких экземпляров:
http://i031.radikal.ru/1310/1f/b5b7ccdd9578.png

(297) Название "Блеф" оставишь?

(298) Мда... а как определить сколько игр с экземпляром противника, сыграла та или иная стратегия? :)

(300) В табличке "Статистика по стратегии".
Но в общем, чем меньше экземпляров данной стратегии остается в популяции, тем меньшее количество игр она играет. Это логично.

То есть, если у меня сталкиваются две стратегии, в одной 100 экземпляров, а в другой - 20 экземпляров, то я результат игры для каждой стороны умножаю на минимальное количество, то есть на 20. Сначала думал, что надо чтобы каждый экземпляр играл с каждым, но это лажа получалась.

(301) для рандомных стратегий нельзя просто так умножать. Нужны честные игры

(301) Убери вот этот кусок кода из "Под дурачка".

+ 2 * (1-(НомерХода-КолОбманов)/НомерХода)


Это для эволюции.

тут бы по хорошему генетические алгоритмы применять

(304) Их писать надо :)
И длина чемпионата не известна заранее.
Я исходил из следующих принципов (старался человеческое поведение моделировать).
30 ходов - длина памяти. Люди склонны забывать плохое.
Некоторая вероятность в принятие решения. Иногда решение принимается "на обум", но с учетом опыта.
Да, опыт строится за жизнь. У меня упрощенно :-)
Девочка - просто "Ощущение" основанное на не формализованном опыте. Я бы сказал - интуиция.

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

Убирай совсем. Там по хорошему должна быть не линейная зависимость. Но думать уже не хочется :)

(307) Вот тебе пока с прежним алгоритмом
http://webfiles.ru/files/38605776
пароль 123456
можешь погонять в режиме "Эволюции" (для этого в карточке чемпионата в поле "Максимальное количество экземпляров" должно стоять значение, отличное от 0).
А потом скажешь - вычеркивать или нет.

(308) У меня на подходе еще 6 стратегий, 2 сам придумал (простенькие), 4 - накидали.

(309) Так что мочилово будет еще то!

(310) А караваны грабить можно? :)

(311) Ага! Если "А ты кто такой?" начнет проигрывать - я напишу стратегию, переписывающую историю ))) Типа, будет прямо в регистр нужным людям баллы писать )))

(311) Я, кстати, удивлен результатами "А ты кто такой". Придумал ее за 3 минуты, простая как репа. А поди ж ты, до сих пор на пъедестале.

(307) Интересно видеть, как если "Стратегия" на первых ходах свалилась в "демографическую яму", то потом уже ей оттуда выбрать очень трудно.

Для примера - создал стратегию "Подростковый возраст", которая первые N ходов - выкладывает "Отказ", а дальше всегда "Кооперируюсь".

Так вот, если N = 2, то есть отказывается всего лишь первые 2 хода, то она улетает вниз, на последнее место, где то с 10 живыми особями, но потом за счет не слишком испорченной кармы, к 100-му ходу догоняет остальные "добропорядочные" стратегии по кол-ву экземпляров.
А вот если N = 3, то все, пипец. Уходит к 1-2 живой особи, откуда уже возврата в активную политику нет ))) (ну к карма подпорчена)

(314) вот пример, как в чемпионате меняется кол-во экземпляров такого "трудного подростка" при n=2 по ходам:
1)1
2)40
3)145
4) 73
5)40
6)25
7)17
8)16
9)11
10) 8
11) 7
12) 6
13) 4
14) 4
15) 5
16) 6
17) 5
18) 5
и только на 30) 10 и далее по нарастающей. Её достаточно "простили", и она может расти за счет кооперации.

(315) а если ставим N =3, то первые 20 ходов - примерно такие же результаты, но на 21-ом - сваливается до 1 экземпляра в популяции, и на этом будущее ее закончено. В одиночку размножиться трудно ))) За несколько чемпионатов - только один раз с N=3 "выбилась в люди"

(316) Убери мои стратегии. 3 это из моих стратегий влияние.

(317) Да )))  Именно присутствие твоих трех стратегий угоняет неудачников "ниже плинтуса", до полного вымирания или прозябания на уровне 1-2 особи.
Если твои 3 отключать, то все стратегии доживают до 100 хода, пусть с разными, но не мизерными показателями.

Твои - это просто "полиция нравов" какие то!!! Ух, жесткие.

(317) Вот, можешь себе в свежескачанную базу добавить "Подростковый возраст":

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

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

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

Иначе


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

КонецЕсли;

(319) Увы... только завтра утром. Не более 2 часов :)
Попробую завтра доработать "Под дурачка". Есть одна мысля.

(320) Интересный таки эффект у твоей "Под дурочку". В простом чемпионате выступает хорошо, на уровне 2-3 места. А в "эволюции" до 50-60-х держится хорошо, а затем начинает сливать.

(321) Это из-за куска кода который нужно удалить.
Там задумка была что б в зависимости от соотношения да/нет (при большом "ДА") увеличивать вероятность сыграть на "Нет".
Но я не думал что ты добавишь "эволюцию". При эволюции, не верно идет расчет ответов "Да" (пока так предполагаю).
Завтра переделаю.

(322) При эволюции подсчет ответов "Да" идет точно таким же образом.

(323) Это да :) Но количество особей увеличивается ;-)

точнее меняется.

(322) Я же в "Эволюции" за один "НомерПартии" не играю для двух стратегий с количеством N и M - N*M партий. Это мне бы мэйнфрейм понадобился )))  Я играю ОДНУ партию, так же как и в обычном чемпионате. Но количество баллов - вычисляю, как количество экземпляром этой стратегии на начало хода, умноженное на результат партии. Что то типа "Heroes of might and magic", где стоит один скелет ,а написано 1000, и он бьет с силой 1000.

(326) Количество особей стратегии на следующую итерацию считается так: количество на начало текущего хода + количество экземпляров, заработанное за текущий код. При превышении всеми экземплярами всех популяций некоего ограничевающего числа (по умолчанию 1000, видно в настройках чемпионата) - количество особей каждой стратегии на начало следующего хода пересчитывается пропорционально. Типа, настали холода, и вымерзли 4 из 5 из каждой популяции.

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

(326) Хм... понял. Тогда действительно странно. Видимо функция увеличения вероятности "Нет" совсем не правильно написана :)

Блин. Я нашел как выиграть. Вопрос - стоит ли это делать? :)
Вариант не совсем честный. Хотя в жизни и применяется.

(330) Может, ты решил заострить внимание на каких то отдельных стратегиях, чтобы брать с них побольше очков? У меня "А ты кто такой?", например, классно играет с "Злом за добро, добром за зло". Но все в рамках алгоритма, без всяких уловок типа "если играю с "зло за добро" - всегда отказываться".

Подсказку выкладывать или нет?
Не интересно будет играть.
Либо нужно еще одно правило вводить в игру.

(332) Надо будет - введем правило. Давай подсказку

Ритуальный танец.

Хотя стратегия «око за око» считалась самой удачной простой стратегией, команда Университета Саутгемптона из Англии (под руководством профессора Николаса Дженнингса [1]) представила новую стратегию на 20-ю годовщину Чемпионата по ПДЗ. Эта стратегия оказалась более успешной, чем «око за око». Она основывалась на взаимодействии между программами, чтобы получить максимальный счёт для одной из них. Университет выставил на чемпионат 60 программ, которые распознавали друг друга по ряду действий на первых 5-10 ходах. Узнав другую, одна программа всегда сотрудничала, а другая предавала, что давало максимум очков предателю. Если программа понимала, что оппонент — не саутгемптонский, она дальше всё время предавала его, чтобы минимизировать результат соперника. В результате [6] эта стратегия заняла первые три места в соревновании, как и несколько мест подряд ниже.

Хотя эта эволюционно стабильная стратегия оказалась более эффективной в соревновании, это было достигнуто за счёт того, что в этом конкретном соревновании команда могла участвовать несколькими агентами. Если игрок может контролировать только одного агента, «око за око» оказывается лучшей. Она также соблюдает правило запрета на коммуникации между игроками. То, что саутгемптонские программы исполняли «ритуальный танец» в первые 10 ходов, чтобы узнать друг друга, только подтверждает, насколько важна коммуникация в сдвиге баланса игры.

(334) О боже! Ты опоздал с этой идеей лет так на 30.
Я столько раз сюда выкладывал ссылку на ту же "Вики".
Конечно, я блюду, чтобы стратегии одного производителя друг другу не подыгрывали.

:)

(337) + надеюсь на добропорядочность разработчиков множества стратегий (из таковых Lama12) )))

Официально объявляю: заставлять свои программы плясать ритуальный танец, чтобы распознать друг друга, а потом выставлять одного форварда в победители, специально "отказывая" всем другим стратегиям - моветон и карается помидорами.

Тем временем завершился первый длинный чемпионат "Эволюция". На эволюцию длиной 1000 ходов потребовалось 36 минут времени.
Максимальное число особей стратегий, которые могли прокормиться на этой планете, было равно 1000.

http://s017.radikal.ru/i436/1310/d6/ed8970ade777.png

Первые 4 места:
1. "А ты кто такой?" (автор - FarFar), 136 особей, 2 938 305 баллов.
2. "Вера с увеличивающейся вероятностью" (автор - Lama12), 121 особь, 2 857 411 баллов.
3. "Око за око", 121 особь, 2 695 081 баллов.
4. "Око за два ока", 119 особь, 2 705 121 баллов.

Остальные сильно отстали.
Всю дорогу лидеры соревновались друг с другом. В основном, "А ты кто такой?" был впереди, иногда его обгоняла "Вера", но следующим ходом отбрасывалась.

К счастью, в ходе эволюциии никто не погиб, даже слабенькие стратегии в начале чемпионата уцелели, а потом "стражи порядка" (3 стратегии @Lama) их, видно, не так стремали. Жилы они себе потихонечку, питались крошками. Живы - и слава Богу.

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

Не спится, зато в голову пришла "brilliant idea" насчет стратегии. Завтра прикручу несколько строчек к "А ты кто такой", думаю, это улучшит ее показатели процентов на 25.

(341) Разверну идею коэффициента 0.1 в чуть ином направлении.... но чу...пусть сюрприз будет.


Чемпионат = сВход.Чемпионат;
Стратегия = сВход.Стратегия;
НомерХода    = сВход.НомерПартии;; //
Партнер        = сВход.Оппонент;;

//Переменные
Отладка = Ложь;
Результат = Истина;
ГлубинаНеверия = Новый Массив(3);
ГлубинаНеверия[0] = 10; //Обманывали 1 раз в пределах 30 ходов.
ГлубинаНеверия[1] = 20; //Обманывали 2 раза в пределах 30 ходов.
ГлубинаНеверия[2] = 30; //Обманывали 3 раза в пределах 30 ходов.

Если Отладка Тогда
    ЗаписьЖурналаРегистрации("Отладка",,,,"Номер хода" + НомерХода,);    
КонецЕсли;
Если НомерХода > 3 Тогда
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ ПЕРВЫЕ 30
    |    ВЫБОР
    |        КОГДА Партии.ОппонентКарта = ИСТИНА
    |            ТОГДА 0
    |        ИНАЧЕ 1
    |    КОНЕЦ КАК Поле1,
    |    Партии.НомерПартии,
    |    23 КАК Поле2
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |ГДЕ
    |    Партии.Чемпионат = &Чемпионат
    |    И Партии.Стратегия = &Стратегия
    |    И Партии.Оппонент = &Оппонент
    |
    |УПОРЯДОЧИТЬ ПО
    |    Партии.НомерПартии УБЫВ";
    
    Запрос.УстановитьПараметр("Чемпионат", Чемпионат);
    Запрос.УстановитьПараметр("Оппонент", Партнер);
    Запрос.УстановитьПараметр("Стратегия", Стратегия);
    
    ТЗ_Р = Запрос.Выполнить().Выгрузить();
    ТЗ_Р.Свернуть("Поле2","Поле1");
    Сумма = ТЗ_Р[0].Поле1;                
    КоличествоОбманов = ?(Сумма>3,3,Сумма);
    
    Если Отладка Тогда
    ЗаписьЖурналаРегистрации("Отладка",,,,"Количество обманов" + КоличествоОбманов,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Чемпионат" + Чемпионат,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Партнер" + Партнер,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Стратегия" + Стратегия,);
    КонецЕсли;
    
    Запрос.Текст =
    "ВЫБРАТЬ
    |    МАКСИМУМ(Партии.НомерПартии) КАК НомерПартии
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |ГДЕ
    |    Партии.Чемпионат = &Чемпионат
    |    И Партии.Стратегия = &Стратегия
    |    И Партии.Оппонент = &Оппонент
    |    И НЕ Партии.ОппонентКарта";
    
    Рез = Запрос.Выполнить();
    НомЕнд = НомерХода;
    Если НЕ Рез.Пустой() Тогда
        Выборка = Рез.Выбрать();
        Выборка.Следующий();
        НомЕнд = Выборка.НомерПартии;
        НомЕнд = ?(НомЕнд = null,0,НомЕнд);
    КонецЕсли;
    ПоследнийОбман = НомерХода- НомЕнд; //Функция возвращает количество ходов от последнего обмана.
    
    
    Запрос.Текст =
    "ВЫБРАТЬ
    |    СУММА(1) КАК Поле1
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |ГДЕ
    |    Партии.Чемпионат = &Чемпионат
    |    И Партии.Стратегия = &Стратегия
    |    И Партии.Оппонент = &Оппонент
    |    И НЕ Партии.ОппонентКарта";
    
    Рез = Запрос.Выполнить();
    КолОбманов = 0;
    Если НЕ Рез.Пустой() Тогда
        Выборка = Рез.Выбрать();
        Выборка.Следующий();
        КолОбманов = Выборка.Поле1;
        КолОбманов = ?(КолОбманов = null,0,КолОбманов);
    КонецЕсли;//Количество обманов
    
    Если Отладка Тогда
    ЗаписьЖурналаРегистрации("Отладка",,,,"ПоследнийОбман" + ПоследнийОбман,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Чемпионат" + Чемпионат,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Партнер" + Партнер,);
    ЗаписьЖурналаРегистрации("Отладка",,,,"Стратегия" + Стратегия,);
    КонецЕсли;

    
    Если КоличествоОбманов = 0 Тогда
        
        Результата = Истина;
        
    Иначе
        ГСЧ = Новый ГенераторСлучайныхЧисел();
        Длина = ГлубинаНеверия[КоличествоОбманов-1];
        Случайность = ГСЧ.СлучайноеЧисло(0,Длина);
       //Длина = Длина + 2*(Цел(НомерХода/30))* КолОбманов/НомерХода;
        
        Если Отладка Тогда
        ЗаписьЖурналаРегистрации("Отладка",,,,"Длина" + Длина,);
        ЗаписьЖурналаРегистрации("Отладка",,,,"Случайность" + Случайность,);
        ЗаписьЖурналаРегистрации("Отладка",,,,"ПоследнийОбман" + ПоследнийОбман,);
        ЗаписьЖурналаРегистрации("Отладка",,,,"Длина - ПоследнийОбман" + (Длина - ПоследнийОбман),);
        КонецЕсли;

        
        Результат = ?(ПоследнийОбман>Длина,Истина,Случайность  > (Длина - ПоследнийОбман)); //
        
    КонецЕсли;
    
КонецЕсли;

//Включаем дурачку

Если Результат И НомерХода > 25 Тогда

    
    
    ГСЧ = Новый ГенераторСлучайныхЧисел();
    Случайность = ГСЧ.СлучайноеЧисло(0,100);
    ДоляСогласий = 1-(НомерХода-КолОбманов)/НомерХода;
     //Если  Тогда


                        Результат = ?(ДоляСогласий > 0.98, Ложь,?(ДоляСогласий > 0.9 И Случайность > 60 , Ложь, Истина)); //Извени любимая. Так получилось. //
    //КонецЕсли;
    
КонецЕсли;

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


Можно попробовать увеличить риск обмана. Но пока и так играет лучше предыдущих моих стратегий :)

Да, это все к "Дурочке"

Честно говоря, стратегия не совсем честная. :)
Ну да ладно. Ритуальных танцев там нет.

стратегия "китайцы" копирует самую успешную стратегию.
Сам алгоритм не смогу написать, только идея.

(347) Хы... прикольно :)
Сейчас попробую сделать ;-)

(347) У нас с Lama12 как в холодней войне, мысли по стратегиям параллельно. Не успел пока оценить, что там Лама менял и улучшал в своей, но кажется, она больше будет обманывать. Мое улучшение, которое планирую сегодня вставить - тоже увеличит кол-во обманов в моей стратегии.

Стратегия "Китайцы".

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

Чемпионат = сВход.Чемпионат;
Стратегия = сВход.Стратегия;
НомерХода    = сВход.НомерПартии;; //
Партнер        = сВход.Оппонент;;

//Переменные
Отладка = Ложь;
Результат = Истина;

Если Отладка Тогда
    ЗаписьЖурналаРегистрации("Отладка",,,,"Номер хода" + НомерХода,);    
КонецЕсли;
Если НомерХода > 1 Тогда
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ ПЕРВЫЕ 1
    |    Партии.Карта
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
    |            СтратегияБал.Стратегия КАК Стратегия
    |        ИЗ
    |            (ВЫБРАТЬ
    |                Партии.Стратегия КАК Стратегия,
    |                МАКСИМУМ(Партии.Балл) КАК Балл
    |            ИЗ
    |                РегистрСведений.Партии КАК Партии
    |            ГДЕ
    |                Партии.Оппонент = &Оппонент
    |                И Партии.НомерПартии = &НомерПартии
    |            
    |            СГРУППИРОВАТЬ ПО
    |                Партии.Стратегия) КАК СтратегияБал
    |                ВНУТРЕННЕЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
    |                    МАКСИМУМ(ВложенныйЗапрос.Балл) КАК Балл
    |                ИЗ
    |                    (ВЫБРАТЬ
    |                        Партии.Стратегия КАК Стратегия,
    |                        МАКСИМУМ(Партии.Балл) КАК Балл
    |                    ИЗ
    |                        РегистрСведений.Партии КАК Партии
    |                    ГДЕ
    |                        Партии.Оппонент = &Оппонент
    |                        И Партии.НомерПартии = &НомерПартии
    |                    
    |                    СГРУППИРОВАТЬ ПО
    |                        Партии.Стратегия) КАК ВложенныйЗапрос) КАК ВложенныйЗапрос
    |                ПО СтратегияБал.Балл = ВложенныйЗапрос.Балл) КАК ВложенныйЗапрос
    |        ПО Партии.Стратегия = ВложенныйЗапрос.Стратегия
    |            И (Партии.Оппонент = &Оппонент)
    |            И (Партии.НомерПартии = &НомерПартии)";
    
    Запрос.УстановитьПараметр("Чемпионат", Чемпионат);
    Запрос.УстановитьПараметр("Оппонент", Партнер);
    Запрос.УстановитьПараметр("НомерПартии", НомерХода-1);
    
    
    
    Рез = Запрос.Выполнить();
    Если НЕ Рез.Пустой() Тогда
        Выборка = Рез.Выбрать();
        Выборка.Следующий();
        Результат = Выборка.Карта;
    КонецЕсли;
КонецЕсли;


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


На удивление, по экземплярам заняла 1 место при количестве игр 500. о_О.
Думаю что это случайность.
Устойчивого тренда не наблюдается.

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

Lama12 - нет нареканий к тому, как я "эволюцию" организовал? Мне нравится ))) Сам себя не похвалишь )))  Работает столько же времени, сколько обычный чемпионат, а эффект - практически такой же, как если бы каждый экземпляр с каждым играл. Плюс тесты показали, что у стратегии есть шанс вылезти практически с самого дна (с 4 особей из 1000), если она хорошо играет. И положительная обратная связь от количества особей в стратегии (чем больше особей, тем лучше она растет) не гипертрофирована, то есть система устойчива при незначительном перевесе какой то одной стратегии (как я наблюдал вчера в чемпионате в 1000 ходов).

(350) Это практически так же, как я хотел свои "Лучшие практики" сделать. Но ты опередил, добавлю китайцев.

Блин... Все таки китайцам надо первых 3 хода не врать :(
Замени кусочек кода НомерХода > 1 на НомерХода > 3

(354) Кинь всю обновлененную стратегию под спойлер.

(352)  Нареканий нет. :)


Чемпионат = сВход.Чемпионат;
Стратегия = сВход.Стратегия;
НомерХода    = сВход.НомерПартии;; //

Партнер        = сВход.Оппонент;;

//Переменные

Отладка = Ложь;
Результат = Истина;

Если Отладка Тогда
    ЗаписьЖурналаРегистрации("Отладка",,,,"Номер хода" + НомерХода,);    
КонецЕсли;
Если НомерХода > 3 Тогда
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ ПЕРВЫЕ 1
    |    Партии.Карта
    |ИЗ
    |    РегистрСведений.Партии КАК Партии
    |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
    |            СтратегияБал.Стратегия КАК Стратегия
    |        ИЗ
    |            (ВЫБРАТЬ
    |                Партии.Стратегия КАК Стратегия,
    |                МАКСИМУМ(Партии.Балл) КАК Балл
    |            ИЗ
    |                РегистрСведений.Партии КАК Партии
    |            ГДЕ
    |                Партии.Оппонент = &Оппонент
    |                И Партии.НомерПартии = &НомерПартии
    |            
    |            СГРУППИРОВАТЬ ПО
    |                Партии.Стратегия) КАК СтратегияБал
    |                ВНУТРЕННЕЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
    |                    МАКСИМУМ(ВложенныйЗапрос.Балл) КАК Балл
    |                ИЗ
    |                    (ВЫБРАТЬ
    |                        Партии.Стратегия КАК Стратегия,
    |                        МАКСИМУМ(Партии.Балл) КАК Балл
    |                    ИЗ
    |                        РегистрСведений.Партии КАК Партии
    |                    ГДЕ
    |                        Партии.Оппонент = &Оппонент
    |                        И Партии.НомерПартии = &НомерПартии
    |                    
    |                    СГРУППИРОВАТЬ ПО
    |                        Партии.Стратегия) КАК ВложенныйЗапрос) КАК ВложенныйЗапрос
    |                ПО СтратегияБал.Балл = ВложенныйЗапрос.Балл) КАК ВложенныйЗапрос
    |        ПО Партии.Стратегия = ВложенныйЗапрос.Стратегия
    |            И (Партии.Оппонент = &Оппонент)
    |            И (Партии.НомерПартии = &НомерПартии)";
    
    Запрос.УстановитьПараметр("Чемпионат", Чемпионат);
    Запрос.УстановитьПараметр("Оппонент", Партнер);
    Запрос.УстановитьПараметр("НомерПартии", НомерХода-1);
    
    
    
    Рез = Запрос.Выполнить();
    Если НЕ Рез.Пустой() Тогда
        Выборка = Рез.Выбрать();
        Выборка.Следующий();
        Результат = Выборка.Карта;
    КонецЕсли;
КонецЕсли;


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


И да.
Надеюсь, я верно понял значение поля "Балл" в регистре сведений. :)
Я на него ориентируюсь в китайцах.

(357) Балл - это сколько стратегия набрала в конкретно этой игре. То есть, цена исхода игры (0,1,3,5) умножается на минимум из количества популяции обеих стратегий-оппонентов на начало текущего хода.

(358) Блин... значит суммировать его надо :(
Завтра переделаю. Сегодня уже пора работать.

(359) Обновил "Дурочку" твоим кодом. Добавил китайцев.
Прогнал на 100-ходовом чемпионате.
Да, они по количеству экземпляров сильно прыгают, нет такой устойчивости, как у "Веры", обновленной "Дурочки" или "А ты кто такой". То на 1-ом месте, то на 5-ом. Собственно, это потому, что группа лидеров обычно плотная.
Но баллов они набирают заметно меньше, чем "Вера", "Дурочка", "А ты кто такой" или даже "оки"

Причем, что прикольно - сначала, ходов 30, китайцы обычно в хвосте, а потом вырываются и начинают обгонять ведущие мировые державы )))

(360) Но два раза в двух 100-ходовых чемпионатах заняли 1-е место по количеству особей. Это о чем то говорит!
Как вы яхту назовете )))

Новая стратегия :
Рабочее название "своя нация" ( хотел назвать стратегию "еврей" но не стал разжигать )

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

(362) Это ритуальный танец :)
Запретили...

(363) Не нашел запрета. В каком посте ?

(364) (339)

Произвел обещанный "апгрейд" "А ты кто такой?".
Ожидаемого большого прироста результативности "в эволюции" не зафиксировал, небольшой есть. Из шести 100-ходовок "А ты кто такой" занял таки все шесть раз первое место в плотной группе лидеров, вытесняя "китайцев".
Один раз, кстати, китайцы совсем сдохли, и имели к 100-му ходу всего 22 особи. Остальные разы - были в группе лидеров.
Вот скрин последнего, типичного, чемпионата:
http://s52.radikal.ru/i137/1310/bb/8f52eeb40144.png

Кстати, в "обычном", не эволюционном чемпионате - там расклад такой: "А ты кто такой" лидирует сильно(после улучшения прирост не 25%, но 10% точно есть), "китайцы" - весьма посредственные.
http://s019.radikal.ru/i603/1310/8d/e09c89583df0.png


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

Запущу в фоновом режиме 1000-ходовку, посмотреть результаты. А после обеда добавлю обещанные 6 стратегий и выложу dt.

(366) А чего тут понимать :)
Китайцы на то и китайцы, что б размножаться.

(367) Возможно, надо что то в "эволюции" подкрутить. А то каждый раз такая плотная группа лидеров, и никто вперед сильно уйти не может.

(368) Ну неправильно это, когда китайцы отстают по ВВП (баллам ) от лидеров на 1/7 примерно, но в то же время "ноздря в ноздрю" идут по населению.

(369) У них идеологическая "накачка". Поклонение лидеру. :)

Блин... где еще стратегии. Народ, присоединяйтесь. Может кто предложит другую реализацию описанных тут стратегий.

(366) Забыл написать, в чем заключалось улучшение "А ты кто
такой?".

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

(366) Пока обедал, кажется, допер, почему такая плотная группа лидеров образуется в "эволюции".
  Получается так, что игра стратегии с оппонентом из остающих приносит ей сравнительно немного очков при любом исходе. Так как исход игры умножаю на минимум из числа особей обеих стратегий. Типа, встречаются два отряда, в одном 100 воинов, в другом 10. От каждого отряда выдвигается по 10, они борются, результат для каждой стратегии умножается на 10. Вроде, с одной стороны, логично. С другой стороны, эти "микростычки", получается, теряются на фоне сражений лидеров, которые друг с другом обычно кооперируются.

Буду думать, курить бамбук, как привнести интригу в эволюцию.

(362) "Со своей нацией - всегда кооперация.
С чужими - око за око с первым ходом кооперируюсь."

Око за око точно так и играет, оно само с собой всегда кооперируется.

(373) Надо будет все-таки еще раз попробовать версию умножение  балла-результата на количество популяций в обеих стратегиях.
Типа, встретились 2 отряда, в одном 100 воинов, в другом 10. Каждый из них поборолся с каждым, т.е. результат для каждой стратегии умножается на 1000.
Думаю, так будет более динамично. И вроде как более подходит под описание 3-го чемпионата Аксельрода. К сожалению, он не описал, как он "начислял выигрыш в потомках".

(373) И понятно, почему "Под дурочку" и "Китайцы" при текущем раскладе то вылезают в лидеры, то скатываются. Они у Lama12 коварные товарисчи, могут с добропорядочными стратегиями типа "Око за око" выкинуть отказ, набрать кучу очков (потому что "Око за око", "Око за 2 ока") - в группе лидеров и баллов там огого получается. Вылезают на 1 место. А потом через ход-два те же "Оки" начинают их карать. И выскочки немного откатываются обратно.

(376) Ошибочка. Смотрю итоги - китайцы практически не играют с "оками" отказ. А вот с "дурочкой", и в особенности с "девушкой" - часто.

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

Выложил обновленную базу и обработку:
http://webfiles.ru/files/38620132

отличия:
Усовершенствованы стратегии "Под дурочку" и "А ты кто такой"
Добавлена стратегия "Китайцы"

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

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

Кроме того, в карточке чемпионата появился "Вариант подсчета потомков". От него как раз зависит, что брать в качестве множителя - минимум от численности двух противоборствующих популяций, максимум, или их произведение.

Пока "произведение" мне не очень понравилось. Не зрелищное ))) Лидер всех гнобит.

Более-менее зрелищен и устойчив вариант "Максимум" с выключенной галкой "Стратегия играет сама с собой". Хотя жизненную аналогию придумать трудно.

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

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

В общем, поисследуйте.

(379) пароль 123456

мою "Блеф" по стате посмотреть хочу

только кодить лень

(382) А ты покодь, покодь )))  Отладишь - выкладывай сюда, я вставлю. Lama12 же выкладывает. Благо - примеры кодинга стратегий в выложенной базе  есть.

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

(379) P.S. при "Произведении" лидер всех гнобит при включенной галке "Стратегия играет сама с собой". Точнее, там устанавливает ходов через 30 некая ситуация (когда у "А ты кто такой" 400 с лишком очков, а у конкурентов - порядка 100), и дальше картина не меняется.
Если при произведении убирать галку "Стратегия играет сама с собой" - то кстати, вроде ничего, нормально. И цифирки меняются, и отрыв не такой большой. Правда, самые неуспешные стратегии вымирают в хлам.

(379) китайцев надо будет переделывать :(

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

(387) Все равны, у всех одинаковые шансы ))

(386) Да уж...есть куда стараться )) ... если бастрагироваться от неоднозначных "эволюций" (в которых "А ты кто такой" тоже выигрывает) - в простом и честном чемпионате по обычным баллам он стабильно опережает 2 и 3 место ("Под дурочку" и "Вера") как минимум на 10%. А "Око за око" хваленое отстает на треть.

Вот образцовый пример чемпионата. Колонка "Баллы" - подсчитывается как в обычном чемпионате.
Колонки "Потомство" и "Живые экземпляры" - вариант "Произведение", галка "Стратегия играет сама с собой включена".

Чемпионат в 100 ходов, макс.кол-во популяции 1000 особей.

http://i016.radikal.ru/1310/84/72e10090259e.png

(388)Насколько корректно будет определять эффективность стратегии по количеству потомства?

(389) Самое честное - по простым баллам.

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

а кто нибудь из вас задавался вопросом Почему одна стратегия успешнее другой?
Или вы просто наугад варианты предлагаете?

(391) Кстати, мне начинает нравиться вариант "Произведение".

(392) Этот философско-естественно-научный вопрос. Докинз его в книге рассматривает.
Ну а по честняку - я просто в программе цифирками мухлую.

придумал что дальше делать...
придется или запрос писать или параметры (которые думаю все потом будут использовать)
- "ведомость противника" (% ответов стратегии по типу "Око за око")
1- близко к 50% - случайная стратегия, в ответ играем наилучшую "Всегда отказ"
- "отзывчивость" (то же самое, на сотрудничество, включая 1 ход)
- "мстительность" (то же, на отказы)
2- в случае "мстительность" около 0 - всегда отказ,
3- 100% - первым отказывать нет смысла (смотрим дальше)
4- в случае "отзывчивость" около 0% первым в сотрудничество играть нет смысла, всегда отказ,
5- 100% - есть смысл начать сотрудничать если еще не определились
ну и проценты расставить по вкусу...

(395) Вся планета смотрит на тебя!

Я только за, если опишешь параметрами. Вот Lama12, негодяй - все в свои стратегии лепит.

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

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

(397) Ты не рассказывай, ты пиши код ))

часа через 3 займусь

(394) Вот вот - "в программе цифирками мухлую" :)
(392) Честно, не стараюсь сделать оптимальную стратегию. Просто интересно моделировать реальные стратегии людей.
Например "Вера" - очень похожа на реальное поведения большинства людей. "Девочка" - тут и так понятно. Девочка подросток, или женщина любящая манипулировать мужчинами, но у нее не очень это получается. "Под дурачка", некоторые личности пытаются сыграть на доверии. Если б количество игроков было не ограничено, и количество ходов было заведомо мало, то можно был б написать "Афериста".
Китайцы - это китайцы :). Ничего своего, копирование лучших практик. Но как показывает практика, если своего привносить не будешь, то и будешь плестись где-то в середине.

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

(400) Да, это здорово! Я и просил именно больше моделей, хороших и разных.
У меня руки дойдут, опишу две простых своих - "Почтальон Печкин" и более интересную, "Жадный подлиза".
Ну и чужие тоже, не программистка мне накидала.

(396) Не разобрался я с этими внешними функциями. Реализация интересная. Хотя полностью под капот не заглядывал.
Время не больше 2 часов могу уделить утром, в рабочие дни.

(400) У меня просто основное время на движок ушло, а не на придумывание стратегий (((

(394) работа компьютерных программ отнюдь не философский вопрос

кстати к "китайцам" можно добавить "а как бы поступил он?" - возвращает ответ самой стратегии оппонента на входящие данные

заставляя ее каждый раз играть с собой

(402) Я, кстати, понял, почему при "Произведении" без галки "Стратегия играет сама с собой" - ходу к 30-му все устаканивается, и дальше не меняется. Все лидеры к тому моменту играют друг с другом "Кооперируюсь", какие то жалкие разницы в количество исходных потомках на начало хода роли не играют. Может, как то увеличу ценность экземпляров, которые живут на начало хода. Типа, они уже опытные и значат больше, чем новорожденные детеныши, которые потом дохнут в жуткой пропорции.

Но пока предлагаю сравнивать стратегии по колонке "Балл". Она самая непротиворечивая.

(407) Мда... Тут вероятностные факторы имеют только мои стратегии. Так что все остальные при игре сами с собой будут кооперироваться. Да и мои при большом количестве ходов тоже будут уходить в кооперацию.

NS будешь на троих? Даешь "супер пупер" стратегию!

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

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

(409) Неа, мне никак. Нет времени совсем.

(412) Понимаю. А жаль :)

(409) он заходит иногда в ветку, вижу тут его.

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

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

(411) не, у нас все играют со всеми, каждый круг.

(410) А не надо "под нее стратегию максимизировать".
Надо просто, чтобы стратегия достаточно сильно играла. Тогда и в эволюции у нее дела будут хороши.
Можно и ту, которая не сильная, но с интересной идеей.

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

(147) Посмотри на игры лидеров чемпионата. Они умудряются набирать много очков почти со всеми другими стратегиями, кроме других лидеров.

есть контакт

Параметр ПредсказуемостьОппонента, код

СтруктураПредсказуемости = Новый Структура("Общее,Сотрудничество,Отказ",1,1,1)    ;
     Запрос = Новый Запрос;
     Запрос.Текст = "ВЫБРАТЬ
|ВЫБОР КОГДА Партии.Карта=Партии1.ОппонентКарта ТОГДА 1 ИНАЧЕ 0 КОНЕЦ КАК Количество,
       |   ВЫБОР КОГДА Партии1.ОппонентКарта=ИСТИНА И Партии.Карта=ИСТИНА ТОГДА 1 ИНАЧЕ 0 КОНЕЦ КАК КоличествоСотр,
       |   ВЫБОР КОГДА Партии1.ОппонентКарта=ИСТИНА И Партии.Карта=ЛОЖЬ ТОГДА 1 ИНАЧЕ 0 КОНЕЦ КАК КоличествоОбм,
       |   ВЫБОР КОГДА Партии1.ОппонентКарта=ЛОЖЬ И Партии.Карта=ИСТИНА ТОГДА 1 ИНАЧЕ 0 КОНЕЦ КАК КоличествоОш,
       |   ВЫБОР КОГДА Партии1.ОппонентКарта=ЛОЖЬ И Партии.Карта=ЛОЖЬ ТОГДА 1 ИНАЧЕ 0 КОНЕЦ КАК КоличествоОтк
     |ИЗ
     |    РегистрСведений.Партии КАК Партии ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.Партии КАК Партии1
     |ПО
     |    Партии.Чемпионат = &Чемпионат И Партии1.Чемпионат = &Чемпионат
     |    И Партии.Стратегия = &Стратегия И Партии1.Стратегия = &Стратегия
     |    И Партии.Оппонент = &Оппонент И Партии1.Оппонент = &Оппонент
       |    И Партии.НомерПартии = (Партии1.НомерПартии-1) ";
    
    Запрос.УстановитьПараметр("Чемпионат", сПарамВход.Чемпионат);
    Запрос.УстановитьПараметр("Оппонент", сПарамВход.Оппонент);
    Запрос.УстановитьПараметр("Стратегия", сПарамВход.Стратегия);
    
    Рез = Запрос.Выполнить().Выгрузить();

Если Рез.Количество() Тогда
  Количество = Рез.Итог("Количество");
  СтруктураПредсказуемости.Общее=Количество/(сПарамВход.НомерПартии-2);
  Количество = Рез.Итог("КоличествоСотр")+Рез.Итог("КоличествоОш");
  СтруктураПредсказуемости.Сотрудничество = ?(Количество=0,1,Рез.Итог("КоличествоСотр")/Количество);
  Количество = Рез.Итог("КоличествоОбм")+Рез.Итог("КоличествоОтк");
  СтруктураПредсказуемости.Отказ = ?(Количество=0,1,Рез.Итог("КоличествоОтк")/Количество);
КонецЕсли;
  РезультатВыполненияПараметра = СтруктураПредсказуемости;

стратегия "ФСБ", код

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

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

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

Иначе

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

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

сразу почетное 2е место (не умеет обманывать)

и при такой постановке 1е место зависит от состава участников...

(422) Стратегию добавил в базу.
Сразу работает, не вываливается.
На 100-ходовом чемпионате заняла уверенное 2 место по баллам (со всеми имеющимися участниками и включенной галкой "игры с самим собой"). Поздравления с удачной стратегией и "говорящим" названием!
http://s020.radikal.ru/i706/1310/13/66f0c6d91f10.png

Напиши, пожалуйста, краткое описание стратегии - вставлю в "Комментарий"

Я правильно понял - каждый с каждым играет в игру с ненулевой суммой? То есть соревнование это просто последовательность партий один на один?

(425) Да.

(425) Организованная по кругам. Играют один круг каждый с каждым, потом второй круг, и далее до N. N участникам заранее неизвестно.

(427) У тебя победитель близок к случайному. Слишком мало партий.

(428) ??? У нас то 100, то 1000 кругов бывает.

(429) Понятно. Я просто думал сотни или тысячи партий всего.

(430) Не, намного больше.

А статистика после каждого цикла сбрасывается? Недоступна боту?

А можно выложить код оболочки в текстовом виде? Не у всех есть восьмерка.

(432) Вся статистика по играм доступна. Хороший тон - использовать статистику прошедших игр, до начала текущего круга. Чтобы не зависеть от очередности игр в круге.

(434) Ничего не понял.
Я могу смотреть не только свою статистику, но и чужую?

то есть статистику тех матчей в которых не участвовал? Разве в оригинале так было?

(433) У меня есть конфигурация, в которой кода практически нет. Только справочники, пара перечислений и регистр сведений.  Также есть внешняя обработка - наверно, она подойдет под название оболочка. Сами алгоритмы стратегий хранятся в справочнике (точнее в двух, "Стратегии" и "Параметры стратегий") в пользовательском режиме, и выполняются через "Выполнить". Что тебя интересует?

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

Куда я могу обратиться чтоб получить полную статистику. и как считается результат.

(438) А зачем?

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

(440) А почему нет?

(439) Как считается результат - это во внешней обработке. Код ее могу скинуть, только скажи куда.
  Полная статистика чемпионата хранится в регистре сведений "Партии".

А в чем смысл того что участники не знают количества кругов?

(444) Вообще, это ограничение пришло из режима, когда играют всего двое участников. Там оно особенно актуально (иначе приходим к логическому выводу, что надо всегда играть "Отказ"):
wiki:Дилемма_заключённого

Если ПДЗ играется ровно N раз (некая известная константа N), есть ещё один интересный факт. Равновесие Нэша — всегда предавать. Доказываем по индукции: если оба сотрудничают, на последнем ходу выгодно предать, тогда у соперника не будет возможности отомстить. Поэтому оба предадут друг друга на последнем ходу. Раз соперник предаст на последнем ходу в любом случае, любой игрок захочет предать на предпоследнем ходу, и так далее. Чтобы сотрудничество оставалось выгодным, необходимо, чтобы будущее было неопределённым для обоих игроков. Одно из решений — делать число N случайным и подсчитывать результаты по среднему выигрышу за ход.

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

(446) Ну я же восьмерочник ))) Куда мне без регистров.

(447) Точнее без одного регистра. Он один в конфе.

(446) Конечно, можно писать боты в сам код конфигурации. Но тут вопрос удобства превалирует над вопросами производительности. Мне кинули тут на форуме код стратегии, я вставил в пользовательском режиме. Дел на пару секунд, особенно когда делаешь это на работе "промежду прочим"

Прочитал почему N должно быть неизвестным.

(450) Так красивее, кроме того. Чтобы не пускались во все тяжкие на последнем ходу. И для разработки стратегий это не меает.

Тут есть косяк в самом начале рассуждений. В матричных играх стратегии вероятностные, поэтому термин "наказать" тут неприменим.

(452) Аксельрод вовсю использует, например, подобные термины. Он даже стратегии категоризует на "добропорядочные", "завистливые" и т.п.

Аскельрод далек от математики.

(454) Саму "Дилемму" придумал не он. Он являлся организатором первого компьютерного турнира по "итерационной дилемме заключенного"

И, кстати, чемпионом у него была стратегия "Око за око". На эту тему было, видимо, потом много публикаций социологического, философского, религиозного толка.

А у нас "Око за око" - в середнячках ходит.

(455) (456) Все невероятностные стратегии в этой игре - на уровне психологов. К математике не имеют отношения.

(457) Ок, я не буду про термины спорить ))

Я через 5 минут спать. Если еще вопросы есть - задавай.
Если нужен текстовый код обработки - могу послать. Только нафига он тебе нужен, там никаких секретов. А примеров кода стратегии тут достаточно выложено.

Например, код стратегии "Случайная"

ГСЧ = Новый ГенераторСлучайныхЧисел();
Случайность = ГСЧ.СлучайноеЧисло(0,1);
Если Случайность = 0 Тогда
  РезультатВыполнения = Ложь;
Иначе
  РезультатВыполнения = Истина;
КонецЕсли;

(458) Бонусы то какие? В ветке и в (0) я нашел три разных варианта.

Матрица игры как выглядит?

Также, как была у Аксельрода в чемпионате.

D = 5;
C = 3;
d = 1;
c = 0;


"Если оба выбрали «сотрудничать», оба получают C. Если один выбрал «предать», другой «сотрудничать» — первый получает D, второй с. Если оба выбрали «предать» — оба получают d.
Значения переменных C, D, c, d могут быть любого знака (в примере выше все меньше либо равны 0). Обязательно должно соблюдаться неравенство D > C > d > c, чтобы игра представляла собой «Дилемму заключённого» (ДЗ).
Если игра повторяется, то есть играется больше 1 раза подряд, общий выигрыш от сотрудничества должен быть больше суммарного выигрыша в ситуации, когда один предаёт, а другой — нет, то есть 2C > D + c (объяснение см. ниже).
Эти правила были установлены Дугласом Хофштадтером и образуют каноническое описание типичной дилеммы заключённого."

(46) Хотя думаю, стратегии, успешные при одних допустимых параметрах, будут успешными и при иных допустимых.

(462) ?! То есть лучшая вероятностная стратегия в матричных играх не зависит от самой матрицы? :)

Если сформируешь стратегию "на словах", Lama12 закодирует ее для чемпионата. Он так хотел тебя привлечь ))

У меня уже несколько штук ожидают кодировки, людей вообще далеких от программирования. Третий день динамлю.

(463) А вот фиг его знает, товарищ майор! Это интересное предположение, я может его проверю на досуге путем комбинации разных наборов параметров (теоретически мне сложно, практически проще). Только желательно побольше разных стратегий.

(463) Какой то набор надо было использовать, для организации практического чемпионата. Чтобы не только на словах все осталось. Аксельродовский - подходил на 100%

(466) Как бэ...связь поколений и т.п. И можно проверить его результаты. Пока, например, меня очень удивляет, что "Око за око" оказалась не такая всемогущая. Мистянские алгоритмы ее уделывают.

(467) Даже те, которые используют статистику только своих партий.

Спокойной ночи.

Тут оптимально симметричное равновесие по Нэшу, которое естественно зависит от коэффициентов матрицы.

То есть всегда предавать.

Добавь короче за меня всегда предавать. Завалим числом с такой стратегией.

То есть у тебя должно быть несколько стратегий "всегда предавать". Родная, добавленная тобой изначально, и от каждого участника который хочет всегда предавать.

Равновесие по Паретто имеет смысл применять только в случае сговора (то есть договорился с конкретным соперником, что с ним играем по Паретто, а с остальными по Нэшу). Если сговора нет, то по Нэшу. Сговор разрешен?

(474) Сговор запрещен. :( Была идея.
Стратегия "Всегда предавать", не занимает верхних позиций. Но и не самая плохая.

(464) Закодировать то могу :)
Легче будет если, например, дополнительно будет код на другом языке. Боюсь с мат терминами не справиться. В конце концов, из моих образований чисто математического нет.
С теорией игр знаком только частично из раздела экономики.

Переделал "китайцев".

Так более правильный вариант. ФСБ жаль нет в базе которую скачал.
Кто ни будь смоделируйте чемпионат с новыми китайцами. :)
Первое место они не займут однозначно, но вторыми могут быть запросто.


Чемпионат = сВход.Чемпионат;
Стратегия = сВход.Стратегия;
НомерХода    = сВход.НомерПартии;; //
Партнер        = сВход.Оппонент;;

//Переменные
Отладка = Ложь;
Результат = Истина;

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


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


(475) Стратегия всегда предавать не занимает верхних позиций, пока в базе есть много неправильных стратегий. Чем больше "всегда предавать", тем меньше шанс у остальных.
Стратегия "всегда предавать" - не проиграет матч никакой стратегии. И это единственная стратегия которая всегда выигрывает матч у любой другой.

(477) Внес в базу обновленных китайцев. Играть стали значительно лучше:

http://s019.radikal.ru/i611/1310/1a/961cf3fe0393.png

вместо вчерашних 2997 баллов, сегодня набрали при тех же условиях 3 544

Кроме того (неожиданный сюрприз) - Китайцы теперь активно сотрудничают с ФСБ, отдавая ему при личных встречах практически все очки (Китайцы "верят", ФСБ - "лжет"). Что позволяет ФСБ к 100-му ходу догонять "А ты кто такой"


P.S. ФСБ можешь вставить к себе за 2 копипаста (в "Параметры" и в "Стратегии"), там все сразу работает без ошибок.

(475) Сговор разрешен :)
Все стратегии, которые обмениваются кодовыми последовательностями - например всегда "око за око" - это сговор путем обмена кодовыми сигналами.