Cell[CellGroupData[{Cell[BoxData[ RowBox[{ RowBox[{"k", "=", "1"}], ";"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, InitializationCell->True, CellChangeTimes->{ 3.5081488775215034`*^9, {3.508150404272195*^9, 3.508150411151807*^9}, {3.508150466672304*^9, 3.508150466953105*^9}, 3.5081510305120945`*^9, 3.508151102802622*^9, {3.508602555035911*^9, 3.5086025660900164`*^9}, 3.509288668453125*^9, 3.760722639670874*^9}, CellID->90424262], Cell[BoxData[ RowBox[{ RowBox[{"move", "[", "z_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "p", "}"}], ",", RowBox[{ RowBox[{"p", "=", "z"}], ";", " ", RowBox[{"Union", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"t1", ",", RowBox[{"Min", "[", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "k"}], ")"}], RowBox[{"(", RowBox[{"t1", "+", RowBox[{"p", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}]}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t1", ",", "0", ",", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1"}]}], "}"}]}], "]"}], ",", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "t2", ",", RowBox[{"p", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t2", ",", "0", ",", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "2", "]"}], "]"}], "-", "1"}]}], "}"}]}], "]"}], ",", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"Min", "[", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "k"}], ")"}], RowBox[{"(", RowBox[{"t3", "+", RowBox[{"p", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", "t3"}], "}"}], ",", RowBox[{"{", RowBox[{"t3", ",", "0", ",", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "3", "]"}], "]"}], "-", "1"}]}], "}"}]}], "]"}]}], "]"}]}]}], "]"}]}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, InitializationCell->True, CellChangeTimes->{ 3.5081488775215034`*^9, {3.508150404272195*^9, 3.508150411151807*^9}, {3.508150466672304*^9, 3.508150466953105*^9}, 3.5081510305120945`*^9, 3.508151102802622*^9, {3.508602555035911*^9, 3.5086025660900164`*^9}, {3.509288668453125*^9, 3.509288679140625*^9}, 3.760722639670986*^9}, CellID->84661221], Cell[BoxData[ RowBox[{ RowBox[{"pposition", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "1"}], "}"}]}], "}"}]}], ";"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, InitializationCell->True, CellChangeTimes->{ 3.5081488775215034`*^9, {3.508150404272195*^9, 3.508150411151807*^9}, {3.508150466672304*^9, 3.508150466953105*^9}, 3.5081510305120945`*^9, 3.508151102802622*^9, {3.508602555035911*^9, 3.5086025660900164`*^9}, {3.509288668453125*^9, 3.509288685265625*^9}, 3.76072263967109*^9}, CellID->45606563], Cell[BoxData[ RowBox[{ RowBox[{"nextmove", "[", "x_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"!", RowBox[{"(", RowBox[{"MemberQ", "[", RowBox[{"pposition", ",", "x"}], "]"}], ")"}]}], ",", RowBox[{ RowBox[{"Intersection", "[", RowBox[{ RowBox[{"move", "[", "x", "]"}], ",", "pposition"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"move", "[", "x", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, InitializationCell->True, CellChangeTimes->{ 3.5081488775215034`*^9, {3.508150404272195*^9, 3.508150411151807*^9}, {3.508150466672304*^9, 3.508150466953105*^9}, 3.5081510305120945`*^9, 3.508151102802622*^9, {3.508602555035911*^9, 3.5086025660900164`*^9}, {3.509288668453125*^9, 3.509288695421875*^9}, 3.7607226396711903`*^9}, CellID->271801879], Cell[BoxData[ RowBox[{ RowBox[{"listppotions", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "6", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "9", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "10", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "11", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "12", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "13", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "14", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "15", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "16", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "17", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "18", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "19", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "20", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "21", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "22", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "23", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "24", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "25", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "8", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "9", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "10", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "11", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "12", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "13", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "14", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "15", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "16", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "17", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "18", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "19", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "20", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "21", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "22", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "23", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "24", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "25", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "8", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "9", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "10", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "11", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "12", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "13", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "14", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "15", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "16", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "17", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "18", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "19", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "20", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "21", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "22", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "23", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "24", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "25", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "6", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "8", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "9", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "10", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "11", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "12", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "13", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "14", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "15", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "16", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "17", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "18", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "19", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "20", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "21", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "22", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "23", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "24", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "25", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "8", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "9", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "10", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "11", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "12", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "13", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "14", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "15", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "16", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "17", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "18", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "19", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "20", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "21", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "22", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "23", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "24", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "25", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "0", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "2", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "3", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "6", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "8", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "9", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "10", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "11", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "12", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "13", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "14", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "15", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "16", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "17", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "18", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "19", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "20", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "21", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "22", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "23", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "24", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "25", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "0", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "5", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "6", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "7", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "9", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "10", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "11", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "12", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "13", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "14", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "15", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "16", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "17", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "18", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "19", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "20", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "21", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "22", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "23", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "0", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "1", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "2", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "4", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "6", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "7", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "8", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "9", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "10", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "11", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "12", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "13", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "14", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "15", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "16", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "17", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "18", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "19", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "20", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "21", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "22", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "23", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "0", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "1", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "2", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "3", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "4", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "5", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "6", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "7", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "8", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "9", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "10", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "11", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "12", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "13", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "14", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "15", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "16", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "17", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "18", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "19", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "20", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "21", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "24", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "25", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "1", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "2", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "3", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "4", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "5", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "6", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "7", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "8", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "9", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "10", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "11", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "12", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "13", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "14", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "15", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "16", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "17", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "18", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "19", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "20", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "21", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "24", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "25", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "0", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "1", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "2", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "3", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "4", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "5", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "6", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "7", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "8", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "9", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "10", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "11", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "12", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "13", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "14", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "15", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "16", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "17", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "18", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "19", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "22", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "23", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "24", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "25", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "0", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "1", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "2", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "4", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "5", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "6", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "7", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "8", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "9", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "10", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "11", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "12", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "13", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "14", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "15", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "16", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "17", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "18", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "19", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "22", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "23", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "24", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "25", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "0", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "1", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "2", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "3", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "6", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "7", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "8", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "9", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "10", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "11", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "12", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "13", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "14", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "15", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "16", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "17", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "20", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "21", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "22", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "23", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "24", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "25", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "0", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "1", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "2", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "3", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "4", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "6", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "7", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "8", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "9", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "10", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "11", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "12", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "13", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "14", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "15", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "16", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "17", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "20", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "21", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "22", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "23", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "24", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "25", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "1", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "2", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "3", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "4", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "5", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "7", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "8", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "9", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "10", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "11", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "12", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "13", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "14", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "15", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "18", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "19", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "20", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "21", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "22", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "23", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "24", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "25", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "0", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "1", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "2", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "3", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "4", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "5", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "6", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "7", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "8", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "9", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "10", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "11", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "12", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "13", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "14", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "15", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "18", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "19", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "20", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "21", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "22", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "23", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "24", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "25", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "0", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "1", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "2", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "3", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "4", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "5", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "6", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "7", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "8", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "9", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "10", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "11", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "12", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "13", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "16", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "17", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "18", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "19", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "20", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "21", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "22", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "23", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "24", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "25", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "0", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "1", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "2", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "3", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "4", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "5", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "6", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "7", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "8", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "9", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "10", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "11", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "12", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "13", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "16", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "17", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "18", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "19", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "20", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "21", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "22", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "23", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "24", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "25", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "0", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "1", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "2", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "3", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "4", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "5", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "6", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "7", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "8", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "9", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "10", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "11", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "14", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "15", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "16", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "17", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "18", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "19", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "20", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "21", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "22", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "23", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "24", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "25", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "1", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "2", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "3", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "4", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "5", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "6", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "7", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "8", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "9", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "10", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "11", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "14", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "15", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "16", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "17", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "18", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "19", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "20", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "21", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "22", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "23", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "24", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "25", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "0", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "1", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "2", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "3", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "4", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "5", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "6", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "7", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "8", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "9", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "12", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "13", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "14", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "15", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "16", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "17", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "18", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "19", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "20", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "21", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "22", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "23", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "24", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "25", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "0", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "1", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "2", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "3", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "4", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "5", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "6", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "7", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "8", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "9", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "12", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "13", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "14", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "15", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "16", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "17", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "18", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "19", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "20", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "21", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "22", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "23", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "24", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "25", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "0", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "1", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "2", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "3", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "4", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "5", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "6", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "7", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "10", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "11", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "12", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "13", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "14", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "15", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "16", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "17", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "18", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "19", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "20", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "21", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "22", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "23", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "24", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "25", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "0", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "1", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "2", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "3", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "4", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "5", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "6", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "7", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "10", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "11", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "12", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "13", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "14", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "15", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "16", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "17", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "18", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "19", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "20", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "21", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "22", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "23", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "24", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "25", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "0", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "1", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "2", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "3", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "4", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "5", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "8", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "9", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "10", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "11", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "12", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "13", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "14", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "15", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "16", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "17", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "18", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "19", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "20", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "21", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "22", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "23", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "24", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "25", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "0", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "1", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "2", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "3", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "4", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "5", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "8", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "9", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "10", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "11", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "12", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "13", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "14", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "15", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "16", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "17", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "18", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "19", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "20", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "21", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "22", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "23", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "24", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "25", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "0", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "1", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "2", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "3", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "6", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "7", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "8", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "9", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "10", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "11", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "12", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "13", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "14", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "15", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "16", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "17", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "18", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "19", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "20", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "21", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "22", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "23", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "24", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "25", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "0", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "1", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "2", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "3", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "6", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "7", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "8", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "9", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "10", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "11", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "12", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "13", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "14", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "15", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "16", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "17", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "18", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "19", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "20", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "21", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "22", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "23", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "24", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "25", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "0", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "1", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "4", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "5", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "6", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "7", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "8", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "9", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "10", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "11", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "12", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "13", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "14", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "15", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "16", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "17", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "18", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "19", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "20", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "21", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "22", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "23", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "24", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "25", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "0", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "1", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "4", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "5", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "6", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "7", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "8", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "9", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "10", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "11", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "12", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "13", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "14", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "15", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "16", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "17", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "18", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "19", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "20", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "21", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "22", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "23", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "24", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "25", ",", "5"}], "}"}]}], "}"}]}], ";"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, InitializationCell->True, CellChangeTimes->{ 3.5081488775215034`*^9, {3.508150404272195*^9, 3.508150411151807*^9}, {3.508150466672304*^9, 3.508150466953105*^9}, 3.5081510305120945`*^9, 3.508151102802622*^9, {3.508602555035911*^9, 3.5086025660900164`*^9}, {3.509288668453125*^9, 3.509288712671875*^9}, 3.760722639671287*^9}, CellID->77913925], Cell[BoxData[ RowBox[{ RowBox[{"ggg2", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "&"}], ",", "listppotions"}], "]"}]}], ";"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, InitializationCell->True, CellChangeTimes->{ 3.5081488775215034`*^9, {3.508150404272195*^9, 3.508150411151807*^9}, {3.508150466672304*^9, 3.508150466953105*^9}, 3.5081510305120945`*^9, 3.508151102802622*^9, {3.508602555035911*^9, 3.5086025660900164`*^9}, {3.509288668453125*^9, 3.509288712671875*^9}, 3.760722639671381*^9}, CellID->245587509], Cell[BoxData[ RowBox[{"Manipulate", "[", " ", RowBox[{ RowBox[{ RowBox[{"t", "=", "t0"}], ";", RowBox[{"u", "=", "u0"}], ";", RowBox[{"s", "=", "s0"}], ";", RowBox[{"Which", "[", RowBox[{ RowBox[{"ns", "==", "2"}], ",", RowBox[{"ListPointPlot3D", "[", RowBox[{"listppotions", ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"500", ",", "300"}], "}"}]}], ",", RowBox[{"Background", "->", "Black"}], ",", RowBox[{"ColorFunction", "->", "\"\\""}], ",", RowBox[{"PlotStyle", "->", RowBox[{"PointSize", "[", "0.01", "]"}]}], ",", RowBox[{"ViewPoint", "->", RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "0"}]}], "}"}]}]}], "]"}], ",", RowBox[{"ns", "==", "3"}], ",", RowBox[{"ListPlot", "[", RowBox[{"ggg2", ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"500", ",", "300"}], "}"}]}], ",", RowBox[{"Background", "->", "Black"}]}], "]"}], ",", RowBox[{"ns", "==", "1"}], ",", RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{"uu", ",", "u2", ",", RowBox[{"con0", "=", "0"}]}], "}"}], ",", RowBox[{"Dynamic", "@", RowBox[{"EventHandler", "[", RowBox[{ RowBox[{"Framed", "@", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"White", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"EvenQ", "[", "con0", "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Large"}], "]"}], ",", RowBox[{"{", RowBox[{"8", ",", "6"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Large"}], "]"}], ",", RowBox[{"{", RowBox[{"8", ",", "6"}], "}"}]}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", RowBox[{"Min", "[", RowBox[{"u", ",", RowBox[{"s", "+", "t"}]}], "]"}], ",", "s"}], "}"}], ",", "Large"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "6"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4.5", ",", "5.5"}], "}"}], ",", RowBox[{"{", RowBox[{"5.5", ",", "5.5"}], "}"}], ",", RowBox[{"{", RowBox[{"5.5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4.5", ",", "6"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Medium"}], "]"}], ",", RowBox[{"{", RowBox[{"5", ",", "5.8"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.1", ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4.9"}], "}"}], ",", RowBox[{"{", RowBox[{"9.9", ",", "0.1"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4.1", ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5.9", ",", "0.1"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"6", "+", "s"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"6", "+", "s", "-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"4", "-", "t"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"4", "-", "t", "+", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{ RowBox[{"(", RowBox[{"u", "+", "2"}], ")"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"(", RowBox[{"u", "+", "2"}], ")"}], "/", "2"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"k", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", RowBox[{"k", "/", "2"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "2", ",", "9"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"6", "+", "k"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"k", "+", "1"}], ",", "5"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"4", "-", "k"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"9", "-", "k"}], ",", "5"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"White", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "u", ",", "s"}], "}"}], "==", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"OddQ", "[", "con0", "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Large"}], "]"}], ",", RowBox[{"{", RowBox[{"8", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Large"}], "]"}], ",", RowBox[{"{", RowBox[{"8", ",", "5"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"EvenQ", "[", "con0", "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Large"}], "]"}], ",", RowBox[{"{", RowBox[{"8", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Large"}], "]"}], ",", RowBox[{"{", RowBox[{"8", ",", "5"}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"500", ",", "300"}], "}"}]}], ",", RowBox[{"Background", "->", "Black"}]}], "]"}]}], ",", RowBox[{"\"\\"", ":>", RowBox[{"(", RowBox[{ RowBox[{"uu", "=", RowBox[{ "MousePosition", "[", "\"\\"", "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "u", ",", "s"}], "}"}], "==", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"5.6", ">", RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}], ">", "4.4"}], "&&", RowBox[{"6.1", ">", RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "5.4"}]}], ",", RowBox[{ RowBox[{"t", "=", "t0"}], ";", RowBox[{"u", "=", "u0"}], ";", RowBox[{"s", "=", "s0"}], ";", RowBox[{"con0", "=", "0"}]}], ","}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"EvenQ", "[", "con0", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], "<", RowBox[{ RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "3.9", "+", "t"}]}], "&&", RowBox[{ RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], "<", RowBox[{ RowBox[{"-", RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", "6.1", "+", "s"}]}], "&&", RowBox[{ RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], "<", RowBox[{ RowBox[{"u", "/", "2"}], "+", "1.1"}]}]}], ",", RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1.1"}], "<", RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], "<", RowBox[{ RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "0.9"}]}], ",", RowBox[{ RowBox[{"t", "=", "3"}], ";", RowBox[{"u", "=", RowBox[{"Min", "[", RowBox[{"u", ",", RowBox[{"t", "+", "s"}]}], "]"}]}], ";", RowBox[{"con0", "=", RowBox[{"con0", "+", "1"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "2.1"}], "<", RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], "<", RowBox[{ RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "1.9"}]}], ",", RowBox[{ RowBox[{"t", "=", "2"}], ";", RowBox[{"u", "=", RowBox[{"Min", "[", RowBox[{"u", ",", RowBox[{"t", "+", "s"}]}], "]"}]}], ";", RowBox[{"con0", "=", RowBox[{"con0", "+", "1"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "3.1"}], "<", RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], "<", RowBox[{ RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "2.9"}]}], ",", RowBox[{ RowBox[{"t", "=", "1"}], ";", RowBox[{"u", "=", RowBox[{"Min", "[", RowBox[{"u", ",", RowBox[{"t", "+", "s"}]}], "]"}]}], ";", RowBox[{"con0", "=", RowBox[{"con0", "+", "1"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "4.1"}], "<", RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], "<", RowBox[{ RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "3.9"}]}], ",", RowBox[{ RowBox[{"t", "=", "0"}], ";", RowBox[{"u", "=", RowBox[{"Min", "[", RowBox[{"u", ",", RowBox[{"t", "+", "s"}]}], "]"}]}], ";", RowBox[{"con0", "=", RowBox[{"con0", "+", "1"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", "8.9"}], "<", RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], "<", RowBox[{ RowBox[{"-", RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", "9.1"}]}], ",", RowBox[{ RowBox[{"s", "=", "3"}], ";", RowBox[{"u", "=", RowBox[{"Min", "[", RowBox[{"u", ",", RowBox[{"t", "+", "s"}]}], "]"}]}], ";", RowBox[{"con0", "=", RowBox[{"con0", "+", "1"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", "7.9"}], "<", RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], "<", RowBox[{ RowBox[{"-", RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", "8.1"}]}], ",", RowBox[{ RowBox[{"s", "=", "2"}], ";", RowBox[{"u", "=", RowBox[{"Min", "[", RowBox[{"u", ",", RowBox[{"t", "+", "s"}]}], "]"}]}], ";", RowBox[{"con0", "=", RowBox[{"con0", "+", "1"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", "6.9"}], "<", RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], "<", RowBox[{ RowBox[{"-", RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", "7.1"}]}], ",", RowBox[{ RowBox[{"s", "=", "1"}], ";", RowBox[{"u", "=", RowBox[{"Min", "[", RowBox[{"u", ",", RowBox[{"t", "+", "s"}]}], "]"}]}], ";", RowBox[{"con0", "=", RowBox[{"con0", "+", "1"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", "5.9"}], "<", RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], "<", RowBox[{ RowBox[{"-", RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", "6.1"}]}], ",", RowBox[{ RowBox[{"s", "=", "0"}], ";", RowBox[{"u", "=", RowBox[{"Min", "[", RowBox[{"u", ",", RowBox[{"t", "+", "s"}]}], "]"}]}], ";", RowBox[{"con0", "=", RowBox[{"con0", "+", "1"}]}]}], ",", RowBox[{"4.4", "<", RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], "<", "4.6"}], ",", RowBox[{ RowBox[{"u", "=", "7"}], ";", RowBox[{"con0", "=", RowBox[{"con0", "+", "1"}]}]}], ",", RowBox[{"3.9", "<", RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], "<", "4.1"}], ",", RowBox[{ RowBox[{"u", "=", "6"}], ";", RowBox[{"con0", "=", RowBox[{"con0", "+", "1"}]}]}], ",", RowBox[{"3.4", "<", RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], "<", "3.6"}], ",", RowBox[{ RowBox[{"u", "=", "5"}], ";", RowBox[{"con0", "=", RowBox[{"con0", "+", "1"}]}]}], ",", RowBox[{"2.9", "<", RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], "<", "3.1"}], ",", RowBox[{ RowBox[{"u", "=", "4"}], ";", RowBox[{"con0", "=", RowBox[{"con0", "+", "1"}]}]}], ",", RowBox[{"2.4", "<", RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], "<", "2.6"}], ",", RowBox[{ RowBox[{"u", "=", "3"}], ";", RowBox[{"con0", "=", RowBox[{"con0", "+", "1"}]}]}], ",", RowBox[{"1.9", "<", RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], "<", "2.1"}], ",", RowBox[{ RowBox[{"u", "=", "2"}], ";", RowBox[{"con0", "=", RowBox[{"con0", "+", "1"}]}]}], ",", RowBox[{"1.4", "<", RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], "<", "1.6"}], ",", RowBox[{ RowBox[{"u", "=", "1"}], ";", RowBox[{"con0", "=", RowBox[{"con0", "+", "1"}]}]}], ",", RowBox[{"0.9", "<", RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], "<", "1.1"}], ",", RowBox[{ RowBox[{"u", "=", "0"}], ";", RowBox[{"con0", "=", RowBox[{"con0", "+", "1"}]}]}], ",", RowBox[{ RowBox[{"5.6", ">", RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}], ">", "4.4"}], "&&", RowBox[{"6.1", ">", RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "5.4"}]}], ",", RowBox[{ RowBox[{"t", "=", "t0"}], ";", RowBox[{"u", "=", "u0"}], ";", RowBox[{"s", "=", "s0"}], ";", RowBox[{"con0", "=", "0"}]}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"5.1", ">", RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}], ">", "4.4"}], "&&", RowBox[{ RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "5.4"}]}], ",", RowBox[{ RowBox[{"t", "=", "t0"}], ";", RowBox[{"u", "=", "u0"}], ";", RowBox[{"s", "=", "s0"}], ";", RowBox[{"con0", "=", "0"}]}], ","}], "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"5.6", ">", RowBox[{"uu", "[", RowBox[{"[", "1", "]"}], "]"}], ">", "4.4"}], "&&", RowBox[{"6.1", ">", RowBox[{"uu", "[", RowBox[{"[", "2", "]"}], "]"}], ">", "5.4"}]}], ",", RowBox[{ RowBox[{"t", "=", "t0"}], ";", RowBox[{"u", "=", "u0"}], ";", RowBox[{"s", "=", "s0"}], ";", RowBox[{"con0", "=", "0"}]}], ",", RowBox[{ RowBox[{"con0", "=", RowBox[{"con0", "+", "1"}]}], ";", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "u", ",", "s"}], "}"}], "=", RowBox[{"nextmove", "[", RowBox[{"{", RowBox[{"t", ",", "u", ",", "s"}], "}"}], "]"}]}]}]}], "]"}]}], "]"}]}], "]"}]}], ")"}]}]}], "]"}]}]}], "]"}]}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ns", ",", "1", ",", "\"\<\>\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "->", "\"\\""}], ",", RowBox[{"2", "->", "\"\\""}], ",", RowBox[{"3", "->", "\"\\""}]}], "}"}], ",", RowBox[{"ControlType", "->", "Setter"}], ",", RowBox[{"ControlPlacement", "->", "Top"}]}], "}"}], ",", " ", RowBox[{"PaneSelector", "[", RowBox[{ RowBox[{"{", " ", RowBox[{"True", "->", RowBox[{"Column", "[", RowBox[{"{", " ", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Bold"}], "]"}], ",", " ", RowBox[{"Control", "@", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t0", ",", "4", ",", "\"\\""}], "}"}], ",", "0", ",", "4", ",", "1", ",", RowBox[{"ImageSize", "->", "Tiny"}]}], "}"}]}], ",", " ", RowBox[{"Control", "@", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"u0", ",", "8", ",", "\"\\""}], "}"}], ",", "0", ",", "8", ",", "1", ",", RowBox[{"ImageSize", "->", "Tiny"}]}], "}"}]}], ",", " ", RowBox[{"Control", "@", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"s0", ",", "4", ",", "\"\\""}], "}"}], ",", "0", ",", "4", ",", "1", ",", RowBox[{"ImageSize", "->", "Tiny"}]}], "}"}]}]}], " ", "}"}], "]"}]}], "}"}], ",", RowBox[{"Dynamic", "[", RowBox[{"ns", "==", "1"}], "]"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "4"}], "}"}], ",", RowBox[{"ControlType", "->", "None"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"u", ",", "8"}], "}"}], ",", RowBox[{"ControlType", "->", "None"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"s", ",", "4"}], "}"}], ",", RowBox[{"ControlType", "->", "None"}]}], "}"}], ",", " ", RowBox[{"SaveDefinitions", "->", "True"}], ",", RowBox[{"ControlPlacement", "->", "Left"}], ",", " ", RowBox[{"AutorunSequencing", "->", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{{3.5080996149775677`*^9, 3.5080996967373114`*^9}, { 3.5080997572654176`*^9, 3.5080997652526317`*^9}, { 3.5080998230663333`*^9, 3.5080998316463485`*^9}, { 3.5081004456166267`*^9, 3.5081004599374523`*^9}, { 3.508102316695237*^9, 3.5081023212972455`*^9}, { 3.5081023817317514`*^9, 3.508102394118173*^9}, { 3.5081033000897646`*^9, 3.5081033116493845`*^9}, { 3.508103372661092*^9, 3.508103400709941*^9}, {3.508104361250428*^9, 3.508104399376895*^9}, {3.5081101314170914`*^9, 3.508110134131496*^9}, {3.5081102262340574`*^9, 3.5081102451880913`*^9}, 3.5081102904593706`*^9, { 3.5081103578982887`*^9, 3.5081103909079466`*^9}, { 3.5081104239332047`*^9, 3.5081104247132063`*^9}, { 3.508110545348218*^9, 3.5081105828194838`*^9}, { 3.5081107142185144`*^9, 3.508110752781782*^9}, 3.5081108110166845`*^9, {3.5081131792776384`*^9, 3.508113237746541*^9}, {3.5081133263546963`*^9, 3.508113378240388*^9}, {3.5081138971128993`*^9, 3.5081139975926757`*^9}, 3.508114160204161*^9, 3.5081142051634407`*^9, {3.508114487664336*^9, 3.5081144960259514`*^9}, {3.50811464932742*^9, 3.5081147006827106`*^9}, {3.508114739011978*^9, 3.5081148566985846`*^9}, {3.5081153036705694`*^9, 3.5081154009367404`*^9}, 3.5081155255497594`*^9, { 3.508115709692483*^9, 3.508115722219305*^9}, {3.508115966687334*^9, 3.5081159684969378`*^9}, {3.508115999182191*^9, 3.508116035935856*^9}, {3.508116075419525*^9, 3.5081160824707375`*^9}, 3.508116129879221*^9, { 3.5081161884573236`*^9, 3.508116237145009*^9}, { 3.5081167081098366`*^9, 3.5081167136634464`*^9}, { 3.50811865129245*^9, 3.5081186708080845`*^9}, { 3.5081187239573774`*^9, 3.508118732038192*^9}, { 3.508118944840166*^9, 3.5081189463377686`*^9}, { 3.5081189945730534`*^9, 3.508118994760254*^9}, { 3.5081190341347227`*^9, 3.5081190423403378`*^9}, { 3.508119076254797*^9, 3.508119099654838*^9}, {3.508147148318672*^9, 3.5081471512670774`*^9}, {3.508147971516518*^9, 3.5081480281290174`*^9}, {3.508148218184151*^9, 3.5081482554370165`*^9}, 3.508148296699089*^9, { 3.508150057187185*^9, 3.5081501079496737`*^9}, { 3.508150140148131*^9, 3.508150180677002*^9}, { 3.5081502568675356`*^9, 3.5081502715939617`*^9}, { 3.5081503057424216`*^9, 3.5081503067876234`*^9}, { 3.50815042450543*^9, 3.508150439278656*^9}, 3.5081511120378375`*^9, {3.5081861736097765`*^9, 3.5081861746237783`*^9}, {3.5082166263324785`*^9, 3.5082166304327135`*^9}, {3.5083052128374343`*^9, 3.508305350211276*^9}, {3.508602574108818*^9, 3.508602586908098*^9}, 3.508602633907798*^9, { 3.5086026676171684`*^9, 3.50860279644405*^9}, { 3.5086031758749886`*^9, 3.5086032650609064`*^9}, { 3.5095013767447314`*^9, 3.509501399817172*^9}, { 3.5095015048521566`*^9, 3.509501510764567*^9}, { 3.5095015479082317`*^9, 3.5095016022587276`*^9}, { 3.5095017301165524`*^9, 3.5095017343753595`*^9}, { 3.509501773734229*^9, 3.5095017804890404`*^9}, { 3.509501821017912*^9, 3.5095018220787134`*^9}, { 3.5097073657213945`*^9, 3.5097073907838945`*^9}, 3.509747082317375*^9, 3.7607226396557302`*^9}, CellID->394514117], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ns$$ = 1, $CellContext`s$$ = 4, $CellContext`s0$$ = 4, $CellContext`t$$ = 4, $CellContext`t0$$ = 4, $CellContext`u$$ = 8, $CellContext`u0$$ = 8, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`ns$$], 1, ""}, { 1 -> "chocolate", 2 -> "graph 1", 3 -> "graph 2"}}, {{ Hold[$CellContext`t0$$], 4, "first"}, 0, 4, 1}, {{ Hold[$CellContext`u0$$], 8, "second"}, 0, 8, 1}, {{ Hold[$CellContext`s0$$], 4, "third"}, 0, 4, 1}, { Hold[ PaneSelector[{True -> Column[{ Style["coordinates", Bold], Manipulate`Place[1], Manipulate`Place[2], Manipulate`Place[3]}]}, Dynamic[$CellContext`ns$$ == 1]]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`t$$], 4}}, {{ Hold[$CellContext`u$$], 8}}, {{ Hold[$CellContext`s$$], 4}}}, Typeset`size$$ = { 510., {152., 158.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`ns$25723$$ = False, $CellContext`t0$25724$$ = 0, $CellContext`u0$25725$$ = 0, $CellContext`s0$25726$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 2, StandardForm, "Variables" :> {$CellContext`ns$$ = 1, $CellContext`s$$ = 4, $CellContext`s0$$ = 4, $CellContext`t$$ = 4, $CellContext`t0$$ = 4, $CellContext`u$$ = 8, $CellContext`u0$$ = 8}, "ControllerVariables" :> { Hold[$CellContext`ns$$, $CellContext`ns$25723$$, False], Hold[$CellContext`t0$$, $CellContext`t0$25724$$, 0], Hold[$CellContext`u0$$, $CellContext`u0$25725$$, 0], Hold[$CellContext`s0$$, $CellContext`s0$25726$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`t$$ = $CellContext`t0$$; \ $CellContext`u$$ = $CellContext`u0$$; $CellContext`s$$ = \ $CellContext`s0$$; Which[$CellContext`ns$$ == 2, ListPointPlot3D[$CellContext`listppotions, ImageSize -> {500, 300}, Background -> Black, ColorFunction -> "Rainbow", PlotStyle -> PointSize[0.01], ViewPoint -> {4, -2, 0}], $CellContext`ns$$ == 3, ListPlot[$CellContext`ggg2, ImageSize -> {500, 300}, Background -> Black], $CellContext`ns$$ == 1, DynamicModule[{$CellContext`uu, $CellContext`u2, \ $CellContext`con0 = 0}, Dynamic[ EventHandler[ Framed[ Graphics[{{White, If[ EvenQ[$CellContext`con0], Text[ Style["Your turn.", Large], {8, 6}], Text[ Style["My turn (Computer).", Large], {8, 6}]]}, { White, Text[ Style[{$CellContext`t$$, Min[$CellContext`u$$, $CellContext`s$$ + \ $CellContext`t$$], $CellContext`s$$}, Large], {1, 6}]}, {White, Polygon[{{4.5, 5.5}, {5.5, 5.5}, {5.5, 6}, { 4.5, 6}}]}, {Black, Text[ Style["Reset", Medium], {5, 5.8}]}, {Green, Polygon[{{0.1, 0.1}, {5, 4.9}, {9.9, 0.1}}]}, {Red, Polygon[{{4.1, 0.1}, {5, 1}, {5.9, 0.1}}]}, {Black, Polygon[{{10, 0}, {6 + $CellContext`s$$, 0}, { 6 + $CellContext`s$$ - 5, 5}, {5, 5}}]}, {Black, Polygon[{{0, 0}, {4 - $CellContext`t$$, 0}, { 4 - $CellContext`t$$ + 5, 5}, {5, 5}}]}, {Black, Polygon[{{0, 5}, {10, 5}, { 10, ($CellContext`u$$ + 2)/2}, { 0, ($CellContext`u$$ + 2)/2}}]}, Table[{Black, Line[{{0, $CellContext`k/2}, { 10, $CellContext`k/2}}]}, {$CellContext`k, 2, 9}], Table[{Black, Line[{{ 6 + $CellContext`k, 0}, {$CellContext`k + 1, 5}}]}, {$CellContext`k, 0, 3}], Table[{Black, Line[{{4 - $CellContext`k, 0}, { 9 - $CellContext`k, 5}}]}, {$CellContext`k, 0, 3}], {White, If[{$CellContext`t$$, $CellContext`u$$, \ $CellContext`s$$} == {0, 0, 0}, If[ OddQ[$CellContext`con0], Text[ Style["You won.", Large], {8, 5}], Text[ Style["I won.", Large], {8, 5}]], If[ EvenQ[$CellContext`con0], Text[ Style["Click a black line.", Large], {8, 5}], Text[ Style["Click anywhere", Large], {8, 5}]]]}}, ImageSize -> {500, 300}, Background -> Black]], "MouseDown" :> ($CellContext`uu = MousePosition["Graphics"]; If[{$CellContext`t$$, $CellContext`u$$, \ $CellContext`s$$} == {0, 0, 0}, If[ And[ 5.6 > Part[$CellContext`uu, 1] > 4.4, 6.1 > Part[$CellContext`uu, 2] > 5.4], $CellContext`t$$ = $CellContext`t0$$; \ $CellContext`u$$ = $CellContext`u0$$; $CellContext`s$$ = \ $CellContext`s0$$; $CellContext`con0 = 0, Null], If[ EvenQ[$CellContext`con0], If[ And[ Part[$CellContext`uu, 2] < Part[$CellContext`uu, 1] - 3.9 + $CellContext`t$$, Part[$CellContext`uu, 2] < - Part[$CellContext`uu, 1] + 6.1 + $CellContext`s$$, Part[$CellContext`uu, 2] < $CellContext`u$$/2 + 1.1], Which[ Part[$CellContext`uu, 1] - 1.1 < Part[$CellContext`uu, 2] < Part[$CellContext`uu, 1] - 0.9, $CellContext`t$$ = 3; $CellContext`u$$ = Min[$CellContext`u$$, $CellContext`t$$ + \ $CellContext`s$$]; $CellContext`con0 = $CellContext`con0 + 1, Part[$CellContext`uu, 1] - 2.1 < Part[$CellContext`uu, 2] < Part[$CellContext`uu, 1] - 1.9, $CellContext`t$$ = 2; $CellContext`u$$ = Min[$CellContext`u$$, $CellContext`t$$ + \ $CellContext`s$$]; $CellContext`con0 = $CellContext`con0 + 1, Part[$CellContext`uu, 1] - 3.1 < Part[$CellContext`uu, 2] < Part[$CellContext`uu, 1] - 2.9, $CellContext`t$$ = 1; $CellContext`u$$ = Min[$CellContext`u$$, $CellContext`t$$ + \ $CellContext`s$$]; $CellContext`con0 = $CellContext`con0 + 1, Part[$CellContext`uu, 1] - 4.1 < Part[$CellContext`uu, 2] < Part[$CellContext`uu, 1] - 3.9, $CellContext`t$$ = 0; $CellContext`u$$ = Min[$CellContext`u$$, $CellContext`t$$ + \ $CellContext`s$$]; $CellContext`con0 = $CellContext`con0 + 1, - Part[$CellContext`uu, 1] + 8.9 < Part[$CellContext`uu, 2] < - Part[$CellContext`uu, 1] + 9.1, $CellContext`s$$ = 3; $CellContext`u$$ = Min[$CellContext`u$$, $CellContext`t$$ + \ $CellContext`s$$]; $CellContext`con0 = $CellContext`con0 + 1, - Part[$CellContext`uu, 1] + 7.9 < Part[$CellContext`uu, 2] < - Part[$CellContext`uu, 1] + 8.1, $CellContext`s$$ = 2; $CellContext`u$$ = Min[$CellContext`u$$, $CellContext`t$$ + \ $CellContext`s$$]; $CellContext`con0 = $CellContext`con0 + 1, - Part[$CellContext`uu, 1] + 6.9 < Part[$CellContext`uu, 2] < - Part[$CellContext`uu, 1] + 7.1, $CellContext`s$$ = 1; $CellContext`u$$ = Min[$CellContext`u$$, $CellContext`t$$ + \ $CellContext`s$$]; $CellContext`con0 = $CellContext`con0 + 1, - Part[$CellContext`uu, 1] + 5.9 < Part[$CellContext`uu, 2] < - Part[$CellContext`uu, 1] + 6.1, $CellContext`s$$ = 0; $CellContext`u$$ = Min[$CellContext`u$$, $CellContext`t$$ + \ $CellContext`s$$]; $CellContext`con0 = $CellContext`con0 + 1, 4.4 < Part[$CellContext`uu, 2] < 4.6, $CellContext`u$$ = 7; $CellContext`con0 = $CellContext`con0 + 1, 3.9 < Part[$CellContext`uu, 2] < 4.1, $CellContext`u$$ = 6; $CellContext`con0 = $CellContext`con0 + 1, 3.4 < Part[$CellContext`uu, 2] < 3.6, $CellContext`u$$ = 5; $CellContext`con0 = $CellContext`con0 + 1, 2.9 < Part[$CellContext`uu, 2] < 3.1, $CellContext`u$$ = 4; $CellContext`con0 = $CellContext`con0 + 1, 2.4 < Part[$CellContext`uu, 2] < 2.6, $CellContext`u$$ = 3; $CellContext`con0 = $CellContext`con0 + 1, 1.9 < Part[$CellContext`uu, 2] < 2.1, $CellContext`u$$ = 2; $CellContext`con0 = $CellContext`con0 + 1, 1.4 < Part[$CellContext`uu, 2] < 1.6, $CellContext`u$$ = 1; $CellContext`con0 = $CellContext`con0 + 1, 0.9 < Part[$CellContext`uu, 2] < 1.1, $CellContext`u$$ = 0; $CellContext`con0 = $CellContext`con0 + 1, And[ 5.6 > Part[$CellContext`uu, 1] > 4.4, 6.1 > Part[$CellContext`uu, 2] > 5.4], $CellContext`t$$ = $CellContext`t0$$; \ $CellContext`u$$ = $CellContext`u0$$; $CellContext`s$$ = \ $CellContext`s0$$; $CellContext`con0 = 0], If[ And[ 5.1 > Part[$CellContext`uu, 1] > 4.4, Part[$CellContext`uu, 2] > 5.4], $CellContext`t$$ = $CellContext`t0$$; \ $CellContext`u$$ = $CellContext`u0$$; $CellContext`s$$ = \ $CellContext`s0$$; $CellContext`con0 = 0, Null]], If[ And[ 5.6 > Part[$CellContext`uu, 1] > 4.4, 6.1 > Part[$CellContext`uu, 2] > 5.4], $CellContext`t$$ = $CellContext`t0$$; \ $CellContext`u$$ = $CellContext`u0$$; $CellContext`s$$ = \ $CellContext`s0$$; $CellContext`con0 = 0, $CellContext`con0 = $CellContext`con0 + 1; {$CellContext`t$$, $CellContext`u$$, \ $CellContext`s$$} = $CellContext`nextmove[{$CellContext`t$$, \ $CellContext`u$$, $CellContext`s$$}]]]])]]]]), "Specifications" :> {{{$CellContext`ns$$, 1, ""}, { 1 -> "chocolate", 2 -> "graph 1", 3 -> "graph 2"}, ControlType -> Setter, ControlPlacement -> Top}, {{$CellContext`t0$$, 4, "first"}, 0, 4, 1, ImageSize -> Tiny, ControlPlacement -> 1}, {{$CellContext`u0$$, 8, "second"}, 0, 8, 1, ImageSize -> Tiny, ControlPlacement -> 2}, {{$CellContext`s0$$, 4, "third"}, 0, 4, 1, ImageSize -> Tiny, ControlPlacement -> 3}, PaneSelector[{True -> Column[{ Style["coordinates", Bold], Manipulate`Place[1], Manipulate`Place[2], Manipulate`Place[3]}]}, Dynamic[$CellContext`ns$$ == 1]], {{$CellContext`t$$, 4}, ControlType -> None}, {{$CellContext`u$$, 8}, ControlType -> None}, {{$CellContext`s$$, 4}, ControlType -> None}}, "Options" :> { ControlPlacement -> Left, AutorunSequencing -> {1, 2, 3, 4}}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{675., {196., 202.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`listppotions = CompressedData[" 1:eJwdldkV6zYMRMV933dS1DlpKSW8BlJxegkcf/jDkkEAM3P5159//v6Dn+f5 F77I8/8HPQghjDBBhCLKEOOICyQkkgopjbRBxiLrkPPIBxQiigmljHJBpaLa UOuoDzQmmgutjR+MoRymmBBMOWYMc4mFwFJjpbC22BhsPXYO+4hDwDHjlHCu uBRcO24N94nHwHPjtchDCKIEIyhGqCBMEs6I4EQaoizRihhNbCAuEu9I8CQW kirJiZRM6iBtkt7I6GQesl76UApDQnNQlErKBOWcCkalpcpQralR1EbqAvWe BkdjpanQnGlJtE7aBu2djkbnS9dhD2OIMywYkYwiGJRxAiWZdEx5pgMzkVnF nGbesGBZbCx1lgcrk9XEWma9sFHZvGx9/OEcVo8lh/Eo5lCaUy4Il54rx3Xk JnCruVPcWx4Mj52nxvPkZfCaeUu8Vz4Knx9fVzxCICkwgwKCEhhRcAQiCBmE ikI7YbywRjgrvBJBizhEmiI3UbqoRbQqehIjy0dKsAJICKuHlcGo0CKUllGq ILWXxklrpTPSaxmUjFOmIXOXpclaZSuyZzmSepRCWmGjiFXUKeYVD0pEJRGY QmkC61eWwaDKCyis4lJpq3xUeVW9qn1qJrWyfrQGU2KrQXjqNSyXRw0DSKzh AE21Idpy7Ri0poPQceu0dH51Obp+ul09s17JPMYga7CC1w0NhkXDnRHeSAIW MBqBSY0VMJzxDBZv4jHpNXmZsk2/ZnxmFrOqfayFeICtwY40WpAZ5IG1Smph VGgUjrHSOmE9t4HZ+Np0bN62LNs/O66d1a7iHueQdzg4Eh1V0L7jBv7kJAPB nRawYGcRhMZ5AvZ08br0ubpc264fN143m1vdP95DUHH0EAaqPRiRWw9iS+5h 6Vp6GNJiD4d56gPx8fPp+rp9W76/fhw/u18tPCGgGLCDVwI10HjgCtYZpACR g2ZgwGAJRCR4BCEO+YbyhXpCe0NfYewwR1gzPjECMiDqEFGIFkQCrAwWBAOB /CAerB4WB2ND03Bk/mK5sb6xndh3HCvOGddIT0ooJ1wSqYm2xHriI4mZ5Epq J32SeZO9yX0pIsBJygSCmyqDiKQuwJJpqp8RnpwBXrhmAATtGULIZ/4Zfeef vd5sTrZfdjdHnOHITHMhufLcGJg6D5GnzkuVpxRUC07wsNBR2Cy8FdGLPEW9 Ra9idvG3hK9EAvAoGQHeShUQi9IZRLZMAxaoT62AUcAfYIvOCjiAGEP85FvV qXpXMJn/arg10grDQ+twcJW1idp5HaxOW5dpT2uoNzwamY0maLbxAq80eZv6 ml3N7eZPC2+LDFDRsoBotooAt60TAFub7meBp3cAOp4doElzB2Dx2gEK8uvq drv7z2RvD6dH3kGGLDuMXXGH4zvtg/Tp+3LjGQPNgRv8MGiBNgdPsLyh7zDf sGe4d/g1wh5RjCRHZoCuUQnAdXQE+B8z/MR/5oSrBa4EQDkgGNAJyANU6W+a O+073Zl+z5/V5ARDgJwgBqwSFgFjQBMzzhXWsxbaC59F3kXvYt+Saam8dFmm LtuW68uPFeaKaiW9slnFrupW86uHNeKaaC28n71/l9y7ydn02+xumTegStcN aLB9QyD93BCAqDdYM9sNVqh+gwA9bhh44r3Qec5B78HrkH34PeI7shxVj07H 5GPHcfP4dkI/0ZxkT1an6FPDafF0d4Y/k5xF3+d90XnxfuF6498r7ivrC9AE 5AGw7HwBDRBsiGW0L4QELA4GrfEFK4CQIMOk7yL3uRd9l67L9uXnivfKdlW/ elwzr03X5evLDfVGd5O/OdwSb1W36dvNHfZOdhf/nu9D96P7+11p7yfOJ/sH +NbzA2ja/AG2fP0AFtF/ENccPwhJ1R/YtNsPzDH5t9h/Ps59nQ== "], $CellContext`ggg2 = CompressedData[" 1:eJy9l11y2kAQhAFZyEIIBWMMPOZKOUIOkJzYz7ZjY4IJxhiTRFT1VG117bA/ AlM18MjX3TOzu1+///z2o9NqtW7rr8Mvf9qoDipBXaBSVBeVoS5ROaqHKlB9 VIkaoCrUF9QQdYUaoa5RY9QNaoKaomYoU8+/+mPqaZOehPSkpCcjPTnpKUhP SXoq0jMkPSPSMyY9EyWfv7WuBPps+XTAnij5dMGeKfn0wF4o+QzAXin5XIF9 5JmP6NmTHslH9LSVfERPquQjenIlH9FTKvmInqFnPjw/H7WuFPq60JtBv8/8 XIAtBWsX7JmSD89PH3pK6BmAvfLMh+dH9OxIz570aPMjehLSkyr58PyInoL0 lJ758PxwPu/Qs1Py4fnhfDpgT5R8eH44nx7YCyUPnhfOQ/i3Sh48L5yH8LeV PHheOA/hzxX/Q8+Xt1pHDj096Cugtw/9JfwYwJ8KfoWeL1P858zCH3ueCP+G +LfEvyP+PfH7nCcmf6b4H3p+sP+v4N8o/r+Df6f4b/a/7bxw+R96XrD/wr9W /Bf+reK/2f+288Hlf+j54Or/P+Bfg/8V/BuL/z7nQWj/u84DV/8L/4r41xb/ ffZ/aP+79r+r/9n/F/Af9ITu+5j+d+1/V/+z/8K/JH6ffR/T/6d8Xxx65XfN PTT4D3pG0HcNvWPov4EfE/gzhV8z+Gfz/5zvCZN/QfxL4l8R/5r4N8R/jveD 7b3A/j+Df6H4/wL+laf/p3wv2N4H7L/wzxX/hX/p6X+T94HPe8DV/0/gn4P/ GfyLyP4PeQ/43P9d/S/8j8Q/j+z/Y/s/5r7v6n/2/xf4HyP7/9j+j7nvu/qf /Rf+h8j+N/fPKe77Tff/PfgfIvb/Ke77Tfe/8N959P857vtN97/Lf7P/z3Hf b7r/j/n/Gff9pvv/mP+fcd9vuv9N//8D5maeUg== "], $CellContext`k = 1, $CellContext`nextmove[ Pattern[$CellContext`x, Blank[]]] := If[ Not[ MemberQ[$CellContext`pposition, $CellContext`x]], Part[ Intersection[ $CellContext`move[$CellContext`x], $CellContext`pposition], 1], Part[ $CellContext`move[$CellContext`x], 1]], $CellContext`pposition = {{0, 0, 0}, {1, 0, 1}, {1, 1, 2}, {1, 2, 3}, {1, 3, 4}, {2, 0, 2}, {2, 1, 1}, {2, 2, 4}, {2, 3, 3}, {3, 0, 3}, {3, 1, 4}, {3, 2, 1}, {3, 3, 2}, {4, 0, 4}, {4, 1, 3}, {4, 2, 2}, {4, 3, 1}}, $CellContext`move[ Pattern[$CellContext`z, Blank[]]] := Module[{$CellContext`p}, $CellContext`p = $CellContext`z; Union[ Table[{$CellContext`t1, Min[ Floor[(1/$CellContext`k) ($CellContext`t1 + Part[$CellContext`p, 3])], Part[$CellContext`p, 2]], Part[$CellContext`p, 3]}, {$CellContext`t1, 0, Part[$CellContext`p, 1] - 1}], Table[{ Part[$CellContext`p, 1], $CellContext`t2, Part[$CellContext`p, 3]}, {$CellContext`t2, 0, Part[$CellContext`p, 2] - 1}], Table[{ Part[$CellContext`p, 1], Min[ Floor[(1/$CellContext`k) ($CellContext`t3 + Part[$CellContext`p, 1])], Part[$CellContext`p, 2]], $CellContext`t3}, {$CellContext`t3, 0, Part[$CellContext`p, 3] - 1}]]]}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{3.760722639656165*^9}, CellID->40081489] }, {8}]]