Summary of behaviour of forbidden factors

Veikko Keränen, 12 June 2004
Rovaniemi  Polytechnic

Cases of  "abcdcbcdadbcbdbc",  and

complement60and100 =
{abacabadbacbcdbacdbd, abacabdcadcdbcbacbdc, abacadcabcbdcabdcdad, abacdabcbdbcadabdacd, abcab ... cdabcdadb, abcbadbcacdcabdbcdba, abcbadcbdcdacabcadcb, abcbdbcbacbdcdacbdac, abcdbdadcbcadabdadcb}

res = NestWhileList[myRL, {{"abcdcbcdadbcbdbc"}, 1, "R"}, #[[2]] ≠0&, 1, 100]

{{{abcdcbcdadbcbdbc}, 1, R}, {{abcdcbcdadbcbdbca}, 1, L}, {{babcdcbcdadbcbdbca}, 1, R}, {{babc ... , {{bcbdbcbabcdcbcdadbcbdbcacbcdcb}, 1, R}, {{bcbdbcbabcdcbcdadbcbdbcacbcdcbc}, 1, L}, {{}, 0, R}}



[Graphics:HTMLFiles/Summary20_6.gif]

"abacabdcadcdbcbacbdc" grows till   {92, 1642} :

[Graphics:HTMLFiles/Summary20_8.gif]



[Graphics:HTMLFiles/Summary20_10.gif]



[Graphics:HTMLFiles/Summary20_12.gif]



[Graphics:HTMLFiles/Summary20_14.gif]



[Graphics:HTMLFiles/Summary20_16.gif]



[Graphics:HTMLFiles/Summary20_18.gif]



[Graphics:HTMLFiles/Summary20_20.gif]



[Graphics:HTMLFiles/Summary20_22.gif]



[Graphics:HTMLFiles/Summary20_24.gif]



[Graphics:HTMLFiles/Summary20_26.gif]



[Graphics:HTMLFiles/Summary20_28.gif]



[Graphics:HTMLFiles/Summary20_30.gif]



[Graphics:HTMLFiles/Summary20_32.gif]

"abcbdbcbacbdcdacbdac"  has the top at   {82, 84218} :

[Graphics:HTMLFiles/Summary20_34.gif]



[Graphics:HTMLFiles/Summary20_36.gif]

complement60and100 == complement60and100NoMirPerm  → True

Created by Mathematica  (June 12, 2004)