(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 46134, 1220] NotebookOptionsPosition[ 45598, 1199] NotebookOutlinePosition[ 45940, 1214] CellTagsIndexPosition[ 45897, 1211] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{" ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "4", ",", "8", ",", "16"}], "}"}], ",", RowBox[{"{", "9", "}"}]}], "}"}], "}"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{"{", RowBox[{"j", ",", "i", ",", "g", ",", " ", "mark"}], "}"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "n", ",", "B", ",", "R", ",", "Tile", ",", "A", ",", "U", ",", "mark", ",", "T", ",", "g", ",", "x"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"L", "=", RowBox[{"Expand", "[", RowBox[{"Cyclotomic", "[", RowBox[{"3", ",", "x"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "9"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"B", "=", RowBox[{"{", RowBox[{"0", ",", "1", ",", "2"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "The", " ", "only", " ", "possible", " ", "complement", " ", "of", " ", "B", " ", "mod", " ", "9", " ", "is", " ", RowBox[{"{", RowBox[{"0", ",", "3", ",", "6"}], "}"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tile", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "100000"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "0"}], ",", RowBox[{"k", "<=", "15"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "0"}], ",", " ", RowBox[{"j", "\[LessEqual]", "15"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Tile", "[", RowBox[{"[", "h", "]"}], "]"}], "=", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"9", "k"}], "+", "3"}], ",", RowBox[{ RowBox[{"9", "j"}], "+", "6"}]}], "}"}], "\[Union]", RowBox[{"{", "}"}]}]}], ";", RowBox[{"h", "=", RowBox[{"h", "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"k", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tile", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Tile", "\[Union]", RowBox[{"{", "0", "}"}]}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "144"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "Tile", "]"}]}], ",", " ", RowBox[{ RowBox[{"P", "=", RowBox[{"Tile", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", " ", RowBox[{"i", "<=", RowBox[{"Length", "[", "P", "]"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"Tile", ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"P", "-", RowBox[{"P", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", "n"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}]}], "]"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"Tile", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "0"}], ";", RowBox[{"i", "=", RowBox[{ RowBox[{"Length", "[", "P", "]"}], "+", "1"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"i", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tile", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Tile", "\[Union]", RowBox[{"{", "}"}]}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "Tile", "]"}], "\[IndentingNewLine]", "Tile", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{" ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "4", ",", "8", ",", "16"}], "}"}], ",", RowBox[{"{", "9", "}"}]}], "}"}], "}"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Dynamic", "[", RowBox[{"{", RowBox[{ "jj", ",", "j", ",", "i", ",", "g", ",", " ", "mark", ",", " ", "rr"}], "}"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "n", ",", "J", ",", "B", ",", "R", ",", "Tile", ",", "A", ",", "U", ",", "mark", ",", "T", ",", "g", ",", "x"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "144"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"J", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "51", ",", "102"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "57", ",", "96"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "57", ",", "105"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "57", ",", "114"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "60", ",", "93"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "60", ",", "102"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "60", ",", "111"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "60", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "66", ",", "87"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "66", ",", "96"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "66", ",", "105"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "66", ",", "114"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "66", ",", "123"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "66", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "69", ",", "84"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "69", ",", "93"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "69", ",", "102"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "69", ",", "111"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "69", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "69", ",", "129"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "69", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75", ",", "78"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75", ",", "87"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75", ",", "96"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75", ",", "105"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75", ",", "114"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75", ",", "123"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "78", ",", "84"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "78", ",", "93"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "78", ",", "102"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "78", ",", "111"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "78", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "78", ",", "129"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "78", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "84", ",", "87"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "84", ",", "96"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "84", ",", "105"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "84", ",", "114"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "84", ",", "123"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "84", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "84", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "87", ",", "93"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "87", ",", "102"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "87", ",", "111"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "87", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "87", ",", "129"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "87", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "93", ",", "96"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "93", ",", "105"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "93", ",", "114"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "93", ",", "123"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "93", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "93", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "96", ",", "102"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "96", ",", "111"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "96", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "96", ",", "129"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "96", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "102", ",", "105"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "102", ",", "114"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "102", ",", "123"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "102", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "102", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "105", ",", "111"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "105", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "105", ",", "129"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "105", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "111", ",", "114"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "111", ",", "123"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "111", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "111", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "114", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "114", ",", "129"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "114", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "120", ",", "123"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "120", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "120", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "123", ",", "129"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "123", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "129", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "129", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "132", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "138", ",", "141"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"rr", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gcd", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "J", "]"}], ",", RowBox[{"Length", "[", RowBox[{"J", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"kk", "=", "1"}], ",", RowBox[{"kk", "\[LessEqual]", RowBox[{"Length", "[", "J", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"mm", "=", "2"}], ",", RowBox[{"mm", "\[LessEqual]", RowBox[{"Length", "[", RowBox[{"J", "[", RowBox[{"[", "kk", "]"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"gcd", "[", RowBox[{"[", RowBox[{"kk", ",", "mm"}], "]"}], "]"}], "=", RowBox[{"GCD", "[", RowBox[{ RowBox[{"gcd", "[", RowBox[{"[", RowBox[{"kk", ",", RowBox[{"mm", "-", "1"}]}], "]"}], "]"}], ",", RowBox[{"J", "[", RowBox[{"[", RowBox[{"kk", ",", "mm"}], "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mm", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"kk", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"kk", "=", "1"}], ",", RowBox[{"kk", "\[LessEqual]", RowBox[{"Length", "[", "J", "]"}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"gcd", "[", RowBox[{"[", RowBox[{"kk", ",", RowBox[{"Length", "[", RowBox[{"J", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], "]"}], "=", RowBox[{"GCD", "[", RowBox[{ RowBox[{"gcd", "[", RowBox[{"[", RowBox[{"kk", ",", RowBox[{"Length", "[", RowBox[{"J", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], "]"}], ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"kk", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"maxperiod", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Length", "[", "J", "]"}], ",", "10000"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"jj", "=", "1"}], ",", " ", RowBox[{"jj", "\[LessEqual]", RowBox[{"Length", "[", "J", "]"}]}], ",", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "B", ",", "R", ",", "Tile", ",", "A", ",", "U", ",", "mark", ",", "T", ",", "g", ",", "x"}], "]"}], ";", RowBox[{"n", "=", "144"}], ";", RowBox[{"n", "=", RowBox[{"n", "/", RowBox[{"gcd", "[", RowBox[{"[", RowBox[{"jj", ",", " ", RowBox[{"Length", "[", RowBox[{"J", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], "]"}]}]}], ";", RowBox[{"B", "=", RowBox[{ RowBox[{"J", "[", RowBox[{"[", "jj", "]"}], "]"}], "/", RowBox[{"gcd", "[", RowBox[{"[", RowBox[{"jj", ",", RowBox[{"Length", "[", RowBox[{"J", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Tile", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "100000"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"R", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "n"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"A", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}], ",", "n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"U", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"U", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "B"}], ";", "\[IndentingNewLine]", RowBox[{"mark", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"1", "&"}], ",", RowBox[{ RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}], "+", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"{", "0", "}"}], "&"}], ",", RowBox[{"n", "/", RowBox[{"Length", "[", "B", "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"g", "=", "1"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "n"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"Tile", "[", RowBox[{"[", "g", "]"}], "]"}], "=", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}]}], ";", RowBox[{ RowBox[{"maxperiod", "[", RowBox[{"[", RowBox[{"jj", ",", "g"}], "]"}], "]"}], "=", "99"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"ff", "=", RowBox[{ RowBox[{"Length", "[", RowBox[{"Divisors", "[", "n", "]"}], "]"}], "-", "1"}]}], ",", " ", RowBox[{"ff", ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Divisors", "[", "n", "]"}], "[", RowBox[{"[", "ff", "]"}], "]"}], ")"}], "+", RowBox[{"Tile", "[", RowBox[{"[", "g", "]"}], "]"}]}], ")"}], ",", "n"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}], "==", RowBox[{"Tile", "[", RowBox[{"[", "g", "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"Tile", "[", RowBox[{"[", "g", "]"}], "]"}], "=", "0"}], ";", RowBox[{ RowBox[{"maxperiod", "[", RowBox[{"[", RowBox[{"jj", ",", "g"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"Divisors", "[", "n", "]"}], "[", RowBox[{"[", "ff", "]"}], "]"}]}], ";", RowBox[{"ff", "=", "0"}], ";"}]}], "\[IndentingNewLine]", " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"ff", "=", RowBox[{"ff", "-", "1"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"g", "=", RowBox[{"g", "+", "1"}]}], ";", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ";", RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{ RowBox[{"k", "=", "100"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Mod", "[", RowBox[{"j", ",", "n"}], "]"}]}], "]"}], "]"}], ",", " ", RowBox[{ RowBox[{"k", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"m", "=", "1"}], ",", " ", RowBox[{"m", "\[LessEqual]", RowBox[{"Length", "[", "B", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Intersection]", " ", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"j", "-", RowBox[{"B", "[", RowBox[{"[", "m", "]"}], "]"}]}], ")"}], "+", "B"}], ",", "n"}], "]"}]}], "\[Equal]", RowBox[{"{", "}"}]}], ",", " ", RowBox[{ RowBox[{"k", "=", RowBox[{"k", "+", "1"}]}], ";", " ", RowBox[{ RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "m"}], "]"}], "]"}], "=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"j", "-", RowBox[{"B", "[", RowBox[{"[", "m", "]"}], "]"}]}], ",", "n"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"m", "++"}]}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"R", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "k"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"min", "=", RowBox[{"Min", "[", "R", "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{"Not", "[", RowBox[{"min", "\[Equal]", "0"}], "]"}], ")"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"Catch", "[", RowBox[{"Do", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"R", "[", RowBox[{"[", "ii", "]"}], "]"}], "\[Equal]", "min"}], ",", " ", RowBox[{"Throw", "[", "ii", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"ii", ",", "n"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "\[LessEqual]", RowBox[{"Length", "[", "B", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"b", "=", RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", " ", RowBox[{"b", "<=", RowBox[{"Length", "[", "B", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"b", "+", "1"}]}], ";", RowBox[{"z", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "t", ",", "b"}], "]"}], "]"}], "\[Equal]", "200"}], "]"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"U", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"U", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Union]", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "t", ",", "b"}], "]"}], "]"}], "+", "B"}], ",", "n"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Union]", RowBox[{"{", RowBox[{"A", "[", RowBox[{"[", RowBox[{"i", ",", "t", ",", "b"}], "]"}], "]"}], "}"}]}]}], ";", " ", RowBox[{"b", "=", RowBox[{ RowBox[{"Length", "[", "B", "]"}], "+", "1"}]}], ";", RowBox[{"z", "=", "1"}], ";", RowBox[{"i", "=", RowBox[{"i", "+", "1"}]}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"b", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"z", "==", "0"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", " ", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", ",", " ", RowBox[{ RowBox[{ RowBox[{"mark", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "1"}], ";", RowBox[{ RowBox[{"A", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"200", "&"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"Length", "[", "B", "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{"T", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"T", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], ";", RowBox[{"i", "=", RowBox[{"i", "-", "1"}]}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Tile", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Tile", "\[Union]", RowBox[{"{", "0", "}"}]}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Length", "[", "Tile", "]"}], "\[IndentingNewLine]", "Tile"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "Tile", "]"}]}], ",", " ", RowBox[{ RowBox[{"P", "=", RowBox[{"Tile", "[", RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", " ", RowBox[{"i", "<=", RowBox[{"Length", "[", "P", "]"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"Tile", ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"P", "-", RowBox[{"P", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", "n"}], "]"}], "\[Union]", RowBox[{"{", "}"}]}]}], "]"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"Tile", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "0"}], ";", RowBox[{"i", "=", RowBox[{ RowBox[{"Length", "[", "P", "]"}], "+", "1"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"i", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"Tile", "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Tile", "\[Union]", RowBox[{"{", "0", "}"}]}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{"Length", "[", "Tile", "]"}], "\[Equal]", "0"}], "]"}], ",", " ", RowBox[{"rr", "=", RowBox[{"rr", "+", "1"}]}]}], "]"}], ";", "\[IndentingNewLine]", "Tile", ";", "\[IndentingNewLine]", RowBox[{"jj", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "rr", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "maxperiod", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"maxperiod", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Drop", "[", RowBox[{ RowBox[{ RowBox[{"maxperiod", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Union]", RowBox[{"{", "0", "}"}]}], ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"j", "++"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "maxperiod", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.43221036803125*^9, 3.432210370359375*^9}, { 3.432210455109375*^9, 3.43221054871875*^9}, {3.432210614203125*^9, 3.432210641703125*^9}, {3.43221072609375*^9, 3.432210744984375*^9}, { 3.433657997265625*^9, 3.433658029359375*^9}}], Cell[BoxData[ DynamicBox[ ToBoxes[{$CellContext`j, $CellContext`i, $CellContext`g, $CellContext`mark}, StandardForm], ImageSizeCache->{387.5625, {2., 8.}}]], "Output", CellChangeTimes->{3.432210830953125*^9, 3.433664377796875*^9}], Cell[BoxData["85"], "Output", CellChangeTimes->{3.432210830953125*^9, 3.433664377953125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "51", ",", "102"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "57", ",", "96"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "57", ",", "105"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "57", ",", "114"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "60", ",", "93"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "60", ",", "102"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "60", ",", "111"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "60", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "66", ",", "87"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "66", ",", "96"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "66", ",", "105"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "66", ",", "114"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "66", ",", "123"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "66", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "69", ",", "84"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "69", ",", "93"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "69", ",", "102"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "69", ",", "111"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "69", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "69", ",", "129"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "69", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75", ",", "78"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75", ",", "87"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75", ",", "96"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75", ",", "105"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75", ",", "114"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75", ",", "123"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "78", ",", "84"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "78", ",", "93"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "78", ",", "102"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "78", ",", "111"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "78", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "78", ",", "129"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "78", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "84", ",", "87"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "84", ",", "96"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "84", ",", "105"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "84", ",", "114"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "84", ",", "123"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "84", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "84", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "87", ",", "93"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "87", ",", "102"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "87", ",", "111"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "87", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "87", ",", "129"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "87", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "93", ",", "96"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "93", ",", "105"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "93", ",", "114"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "93", ",", "123"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "93", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "93", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "96", ",", "102"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "96", ",", "111"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "96", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "96", ",", "129"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "96", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "102", ",", "105"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "102", ",", "114"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "102", ",", "123"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "102", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "102", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "105", ",", "111"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "105", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "105", ",", "129"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "105", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "111", ",", "114"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "111", ",", "123"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "111", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "111", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "114", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "114", ",", "129"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "114", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "120", ",", "123"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "120", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "120", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "123", ",", "129"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "123", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "129", ",", "132"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "129", ",", "141"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "132", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "138", ",", "141"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.432210830953125*^9, 3.43366437796875*^9}], Cell[BoxData[ DynamicBox[ ToBoxes[{$CellContext`jj, $CellContext`j, $CellContext`i, $CellContext`g, \ $CellContext`mark, $CellContext`rr}, StandardForm], ImageSizeCache->{430.9375, {2., 8.}}]], "Output", CellChangeTimes->{3.432210830953125*^9, 3.433664377984375*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.432210830953125*^9, 3.433664385421875*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "12", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "6", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "12", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "12", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "12", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "12", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "12", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "12", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "12", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "6", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "12", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "6", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "12", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "12", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "12", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "12", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "12", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "12", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "6", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "24", "}"}], ",", RowBox[{"{", "12", "}"}], ",", RowBox[{"{", "24", "}"}]}], "}"}]], "Output", CellChangeTimes->{3.432210830953125*^9, 3.433664385578125*^9}] }, Open ]] }, WindowSize->{987, 567}, WindowMargins->{{Automatic, 110}, {Automatic, 61}}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 34944, 888, 2612, "Input"], Cell[35537, 913, 240, 5, 30, "Output"], Cell[35780, 920, 93, 1, 30, "Output"], Cell[35876, 923, 6246, 173, 202, "Output"], Cell[42125, 1098, 272, 5, 30, "Output"], Cell[42400, 1105, 92, 1, 30, "Output"], Cell[42495, 1108, 3087, 88, 88, "Output"] }, Open ]] } ] *) (* End of internal cache information *)