In[]:=
With[{cross=ProgramIteratedGameCross[{{"FSM",1165,3,2}},{"FSM",#,3,2}&/@$FSMUnique32,"Rounds"->100]},{means=Mean[First/@Score[$MatchingPennies,#]]&/@Lookup[cross["Games"],{{"FSM",{1165,3,2}},{"FSM",{#,3,2}}}&/@$FSMUnique32]},ListPlot[means,Filling->Axis,AspectRatio->1/3,Frame->True,FrameLabel->{"competing machine","mean payoff"},PlotRange->{-1.2,1.2},FrameTicks->{Automatic,{Take[MapIndexed[{First[#2],#1}&,$FSMUnique22],1;;-1;;1],None}}]]
Out[]=
In[]:=
SelectFirst@
,#<-.8&//Length
Out[]=
462
In[]:=
%/956.
Out[]=
0.483264
In[]:=
FSMGameSequencePlot[{58541546180877099,8,2},{1165,3,2},15,​​"ShowMachine"->False,​​"ShowMoveSequence"->True,ImageSize->{Automatic,250}]
Out[]=
In[]:=
Table[RandomFSM[8,2],10]
Out[]=
{{4965857589366523,8,2},{69858436170829664,8,2},{58761079149111996,8,2},{11496214575085627,8,2},{6749998548408079,8,2},{24892538920020980,8,2},{26786705492728526,8,2},{34412951002146445,8,2},{16872023573336757,8,2},{55717822418054537,8,2}}
IteratedGame[{#,{1165,3,2}}]
In[]:=
TakeSmallestBy[{First[Mean[Score[$MatchingPennies,IteratedGame[{FSMStrategyFunction[#],FSMStrategyFunction[{1165,3,2}]}]]]],#}&/@Table[RandomFSM[8,2],10],First,5]
Out[]=
{-1,{58541546180877099,8,2}},-
4
5
,{39696843758708349,8,2},-
4
5
,{52420018785765472,8,2},-
3
5
,{58984834731461444,8,2},-
3
5
,{53582782351327447,8,2}
In[]:=
TakeSmallestBy[{First[Mean[Score[$MatchingPennies,IteratedGame[{FSMStrategyFunction[#],FSMStrategyFunction[{1165,3,2}]}]]]],#}&/@Table[RandomFSM[8,2],100],First,5]
Out[]=
{{-1,{18034188632481076,8,2}},{-1,{15403620360791123,8,2}},{-1,{71544607706848825,8,2}},{-1,{19565836604534036,8,2}},{-1,{21346050087149571,8,2}}}
In[]:=
Last/@%
Out[]=
{{18034188632481076,8,2},{15403620360791123,8,2},{71544607706848825,8,2},{19565836604534036,8,2},{21346050087149571,8,2}}
In[]:=
FSMGameSequencePlot[#,{1165,3,2},15,​​"ShowMachine"->False,​​"ShowMoveSequence"->True,ImageSize->{Automatic,250}]&/@
Out[]=

,
,
,
,

In[]:=
ParallelTable[fitnessCurvePlot[FSMSingleOpponentEvolve[{1165,3,2},{71544607706848825,8,2},"EvolveSteps"->50,"Seed"->34535+i]],{i,5}]
Out[]=

,
,
,
,

In[]:=
TakeSmallestBy[{First[Mean[Score[$MatchingPennies,IteratedGame[{FSMStrategyFunction[#],FSMStrategyFunction[{1165,3,2}]}]]]],#}&/@Table[RandomFSM[6,2],100],First,5]
Out[]=
{{-1,{108417874766,6,2}},{-1,{95442643143,6,2}},{-1,{111273954945,6,2}},{-1,{14820154435,6,2}},{-1,{75699683271,6,2}}}
In[]:=
TakeSmallestBy[{First[Mean[Score[$MatchingPennies,IteratedGame[{FSMStrategyFunction[#],FSMStrategyFunction[{1165,3,2}]}]]]],#}&/@Table[RandomFSM[4,2],100],First,5]