Cell[CellGroupData[{Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"poles", "=", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".015", "]"}], ",", "Brown", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "9"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "15", ",", "5"}], "}"}]}], "]"}]}], "}"}]}], ";"}], " "}], " ", RowBox[{ RowBox[{"c1", "=", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "2"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"c2", "=", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", "2"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"c3", "=", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "3"}], "}"}]}], "}"}], ",", "1.75"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"c4", "=", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "4"}], "}"}]}], "}"}], ",", "1.75"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"c5", "=", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "5"}], "}"}]}], "}"}], ",", "1.5"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"c6", "=", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "6"}], "}"}]}], "}"}], ",", "1.5"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"c7", "=", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "7"}], "}"}]}], "}"}], ",", "1.25"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{ RowBox[{"c8", "=", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "8"}], "}"}]}], "}"}], ",", "1.25"}], "]"}]}], "}"}]}], ";"}], " "}], " ", RowBox[{ RowBox[{"stack1", "=", RowBox[{"{", RowBox[{"poles", ",", "c1", ",", "c2"}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"stack2", "=", RowBox[{"{", RowBox[{"poles", ",", "c1", ",", "c2", ",", "c3", ",", "c4"}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"stack3", "=", RowBox[{"{", RowBox[{ "poles", ",", "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6"}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{ RowBox[{"stack4", "=", RowBox[{"{", RowBox[{ "poles", ",", "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",", "c8"}], "}"}]}], ";"}], " ", " "}], " ", RowBox[{ RowBox[{"c2a", " ", "=", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "2"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"move1a", "=", RowBox[{"{", RowBox[{"poles", ",", "c1", ",", "c2a"}], "}"}]}], " ", ";"}], " ", RowBox[{ RowBox[{"c1a", "=", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "2"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"move2a", "=", RowBox[{"{", RowBox[{"poles", ",", "c1a", ",", "c2a"}], "}"}]}], " ", ";"}], " ", RowBox[{ RowBox[{ RowBox[{"MoveList1", "=", RowBox[{"{", RowBox[{"stack1", ",", "move1a", ",", "move2a"}], "}"}]}], ";"}], " ", " "}], " ", RowBox[{ RowBox[{"c4b", " ", "=", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "1.75"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"move1b", "=", RowBox[{"{", RowBox[{"poles", ",", "c1", ",", "c2", ",", "c3", ",", "c4b"}], "}"}]}], " ", ";"}], " ", RowBox[{ RowBox[{"c3b", "=", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "1.75"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"move2b", "=", RowBox[{"{", RowBox[{"poles", ",", "c1", ",", "c2", ",", "c3b", ",", "c4b"}], "}"}]}], " ", ";"}], " ", RowBox[{ RowBox[{"c4b1", "=", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", "1.75"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"move3b", "=", RowBox[{"{", RowBox[{"poles", ",", "c1", ",", "c2", ",", "c3b", ",", "c4b1"}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"c2b", "=", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "2"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"move4b", "=", RowBox[{"{", RowBox[{"poles", ",", "c1", ",", "c2b", ",", "c3b", ",", "c4b1"}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"c1b", "=", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "2"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"move5b", "=", RowBox[{"{", RowBox[{ "poles", ",", "c1b", ",", "c2b", ",", "c3b", ",", "c4b1"}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"c4b2", "=", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", "1.75"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"move6b", "=", RowBox[{"{", RowBox[{ "poles", ",", "c1b", ",", "c2b", ",", "c3b", ",", "c4b2"}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"c3b1", "=", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", "1.75"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"move7b", "=", RowBox[{"{", RowBox[{ "poles", ",", "c1b", ",", "c2b", ",", "c3b1", ",", "c4b2"}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{ RowBox[{"MoveList2", "=", RowBox[{"{", RowBox[{ "stack2", ",", "move1b", ",", "move2b", ",", "move3b", ",", "move4b", ",", "move5b", ",", "move6b", ",", "move7b"}], "}"}]}], ";"}], " "}], " ", RowBox[{ RowBox[{"c6c", "=", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "1.5"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{ RowBox[{"move1c", "=", RowBox[{"{", RowBox[{ "poles", ",", "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6c"}], "}"}]}], ";"}], " "}], " ", RowBox[{ RowBox[{"c5c", "=", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "1.5"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"move2c", "=", RowBox[{"{", RowBox[{ "poles", ",", "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5c", ",", "c6c"}], "}"}]}], " ", ";"}], " ", RowBox[{ RowBox[{"c6c2", "=", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", "1.5"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{ RowBox[{"move3c", "=", RowBox[{"{", RowBox[{ "poles", ",", "c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5c", ",", "c6c2"}], "}"}]}], ";"}], " "}], " ", RowBox[{ RowBox[{"c4c", "=", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "1.75"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{ RowBox[{"move4c", "=", RowBox[{"{", RowBox[{ "poles", ",", "c1", ",", "c2", ",", "c3", ",", "c4c", ",", "c5c", ",", "c6c2"}], "}"}]}], ";"}], " "}], " ", RowBox[{ RowBox[{"c3c", "=", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", "1.75"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{ RowBox[{"move5c", "=", RowBox[{"{", RowBox[{ "poles", ",", "c1", ",", "c2", ",", "c3c", ",", "c4c", ",", "c5c", ",", "c6c2"}], "}"}]}], ";"}], " "}], " ", RowBox[{ RowBox[{"c2c", "=", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "2"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{ RowBox[{"move6c", "=", RowBox[{"{", RowBox[{ "poles", ",", "c1", ",", "c2c", ",", "c3c", ",", "c4c", ",", "c5c", ",", "c6c2"}], "}"}]}], ";"}], " "}], " ", RowBox[{ RowBox[{"c3c2", "=", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", "1.75"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{ RowBox[{"move7c", "=", RowBox[{"{", RowBox[{ "poles", ",", "c1", ",", "c2c", ",", "c3c2", ",", "c4c", ",", "c5c", ",", "c6c2"}], "}"}]}], ";"}], " "}], " ", RowBox[{ RowBox[{"c4c2", "=", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0", ",", "3"}], "}"}]}], "}"}], ",", "1.75"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{ RowBox[{"move8c", "=", RowBox[{"{", RowBox[{ "poles", ",", "c1", ",", "c2c", ",", "c3c2", ",", "c4c2", ",", "c5c", ",", "c6c2"}], "}"}]}], ";"}], " "}], " ", RowBox[{ RowBox[{"c1c", "=", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "2"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{ RowBox[{"move9c", "=", RowBox[{"{", RowBox[{ "poles", ",", "c1c", ",", "c2c", ",", "c3c2", ",", "c4c2", ",", "c5c", ",", "c6c2"}], "}"}]}], ";"}], " "}], " ", RowBox[{ RowBox[{"c4c3", "=", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "1.75"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{ RowBox[{"move10c", "=", RowBox[{"{", RowBox[{ "poles", ",", "c1c", ",", "c2c", ",", "c3c2", ",", "c4c3", ",", "c5c", ",", "c6c2"}], "}"}]}], ";"}], " "}], " ", RowBox[{ RowBox[{"c3c3", "=", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", "1.75"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"move11c", "=", RowBox[{"{", RowBox[{ "poles", ",", "c1c", ",", "c2c", ",", "c3c3", ",", "c4c3", ",", "c5c", ",", "c6c2"}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"c4c4", "=", " ", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", "1.75"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"move12c", "=", RowBox[{"{", RowBox[{ "poles", ",", "c1c", ",", "c2c", ",", "c3c3", ",", "c4c4", ",", "c5c", ",", "c6c2"}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"c6c3", "=", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0", ",", "3"}], "}"}]}], "}"}], ",", "1.5"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"move13c", "=", RowBox[{"{", RowBox[{ "poles", ",", "c1c", ",", "c2c", ",", "c3c3", ",", "c4c4", ",", "c5c", ",", "c6c3"}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"c5c2", "=", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "0", ",", "3"}], "}"}]}], "}"}], ",", "1.5"}], "]"}]}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"move14c", "=", RowBox[{"{", RowBox[{ "poles", ",", "c1c", ",", "c2c", ",", "c3c3", ",", "c4c4", ",", "c5c2", ",", "c6c3"}], "}"}]}], ";"}], " ", RowBox[{ RowBox[{"MoveList3", "=", RowBox[{"{", RowBox[{ "stack3", ",", "move1c", ",", "move2c", ",", "move3c", ",", "move4c", ",", "move5c", ",", "move6c", ",", "move7c", ",", "move8c", ",", "move9c", ",", "move10c", ",", "move11c", ",", "move12c", ",", "move13c", ",", "move14c"}], "}"}]}], ";"}]}], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, InitializationCell->True, CellChangeTimes->{{3.6732145915041666`*^9, 3.673214687156638*^9}, { 3.6732147193184776`*^9, 3.673214803426288*^9}, { 3.6732148360531545`*^9, 3.6732148728702602`*^9}, { 3.673340805474247*^9, 3.673340852024562*^9}, { 3.6733409580145383`*^9, 3.6733409781094522`*^9}, { 3.673341024402296*^9, 3.6733410337043467`*^9}, { 3.673341068362442*^9, 3.6733410697770734`*^9}, { 3.673341105959998*^9, 3.6733411132215214`*^9}, { 3.6733413441685934`*^9, 3.673341345335481*^9}, { 3.6737751576401043`*^9, 3.6737751637553043`*^9}, 3.673775471163904*^9, {3.6737997014498796`*^9, 3.6737997416737504`*^9}, {3.6737997796210175`*^9, 3.6737998128600764`*^9}, {3.673800222063201*^9, 3.673800224512405*^9}, {3.6748503157624187`*^9, 3.674850316561913*^9}, {3.674850557633265*^9, 3.674850567560853*^9}, {3.674850860373089*^9, 3.6748509606110363`*^9}, 3.674851049511125*^9, { 3.674851085921165*^9, 3.674851630616242*^9}, {3.674851787939012*^9, 3.6748517908746767`*^9}, {3.674851980131876*^9, 3.674852022703495*^9}, 3.674852087044363*^9, {3.674853152857937*^9, 3.674853153999728*^9}, 3.760729987286353*^9}, CellID->401824914], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"numberofsteps", "[", "n_", "]"}], ":=", RowBox[{"Which", "[", RowBox[{ RowBox[{"n", "==", "1"}], ",", " ", "3", ",", " ", RowBox[{"n", "==", "2"}], ",", " ", "8", ",", " ", RowBox[{"n", "==", "3"}], ",", " ", "15"}], "]"}]}], ";"}], " "}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, InitializationCell->True, CellChangeTimes->{{3.6732145915041666`*^9, 3.673214687156638*^9}, { 3.6732147193184776`*^9, 3.673214803426288*^9}, { 3.6732148360531545`*^9, 3.6732148728702602`*^9}, { 3.673340805474247*^9, 3.673340852024562*^9}, { 3.6733409580145383`*^9, 3.6733409781094522`*^9}, { 3.673341024402296*^9, 3.6733410337043467`*^9}, { 3.673341068362442*^9, 3.6733410697770734`*^9}, { 3.673341105959998*^9, 3.6733411132215214`*^9}, { 3.6733413441685934`*^9, 3.673341345335481*^9}, { 3.6737751576401043`*^9, 3.6737751637553043`*^9}, 3.673775471163904*^9, {3.6737997014498796`*^9, 3.6737997416737504`*^9}, {3.6737997796210175`*^9, 3.6737998128600764`*^9}, {3.673800222063201*^9, 3.673800224512405*^9}, {3.6748503157624187`*^9, 3.674850316561913*^9}, {3.674850557633265*^9, 3.674850572829821*^9}, 3.674852013336083*^9, 3.760729987286512*^9}, CellID->1490840151], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"x", ">", RowBox[{"numberofsteps", "[", "n", "]"}]}], ",", RowBox[{"x", "=", RowBox[{"numberofsteps", "[", "n", "]"}]}]}], "]"}], ";", " ", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "@", RowBox[{"Which", "[", RowBox[{ RowBox[{"n", "==", "1"}], ",", " ", RowBox[{"MoveList1", "[", RowBox[{"[", "x", "]"}], "]"}], ",", " ", RowBox[{"n", "==", "2"}], ",", RowBox[{"MoveList2", "[", RowBox[{"[", "x", "]"}], "]"}], ",", " ", RowBox[{"n", "==", "3"}], ",", " ", RowBox[{"MoveList3", "[", RowBox[{"[", "x", "]"}], "]"}]}], "]"}]}], ",", " ", RowBox[{"ViewPoint", " ", "->", " ", "Front"}], ",", " ", RowBox[{"Boxed", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "20"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "20"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"500", ",", "300"}], "}"}]}]}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "n", ",", " ", "1", ",", " ", "\"\\""}], "}"}], ",", RowBox[{"Range", "[", RowBox[{"1", ",", "3"}], "]"}], ",", "Setter"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", ",", " ", "1", ",", " ", "\"\\""}], "}"}], ",", " ", "1", ",", " ", RowBox[{"numberofsteps", "[", "n", "]"}], ",", " ", "1", ",", " ", RowBox[{"Appearance", " ", "->", " ", "\"\\""}]}], "}"}], ",", RowBox[{"Button", "[", RowBox[{"\"\\"", ",", " ", RowBox[{ RowBox[{"x", "=", "1"}], ";", RowBox[{"n", "=", "1"}]}], ",", " ", RowBox[{"ImageSize", " ", "->", " ", "Medium"}]}], "]"}], ",", RowBox[{"ControlPlacement", "->", "Top"}], ",", " ", RowBox[{"SaveDefinitions", "->", "True"}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{ 3.6733410807390337`*^9, {3.673341147400244*^9, 3.673341154370452*^9}, {3.673342354239213*^9, 3.673342365640184*^9}, {3.6733424074039536`*^9, 3.673342448916443*^9}, {3.673773582613448*^9, 3.673773590475848*^9}, {3.6737736367142477`*^9, 3.6737736859010477`*^9}, {3.673774659194808*^9, 3.673774669646473*^9}, {3.6737749688027973`*^9, 3.673775212910904*^9}, {3.673775256060504*^9, 3.6737752923929043`*^9}, {3.673775329037304*^9, 3.673775343904104*^9}, {3.673775435581904*^9, 3.673775454283904*^9}, {3.673775537960071*^9, 3.6737755440444613`*^9}, {3.673799526123542*^9, 3.6737995433745728`*^9}, 3.673799603916107*^9, { 3.673799683614048*^9, 3.673799684331649*^9}, { 3.6737998614933624`*^9, 3.673799904279039*^9}, { 3.6738002141831865`*^9, 3.6738002171335917`*^9}, { 3.6738004190061493`*^9, 3.67380045852042*^9}, { 3.673800609379487*^9, 3.673800609410687*^9}, {3.674850580501248*^9, 3.674850610723859*^9}, 3.674850720507244*^9, { 3.674851650298029*^9, 3.674851653416933*^9}, { 3.6748516843912497`*^9, 3.674851754345374*^9}, { 3.6748546416576557`*^9, 3.674854652551804*^9}, { 3.674854727039255*^9, 3.6748547476115417`*^9}, { 3.674855338064039*^9, 3.6748553398527184`*^9}, 3.760729987277919*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`n$$ = 1, $CellContext`x$$ = 1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`n$$], 1, "number of pairs"}, {1, 2, 3}}, {{ Hold[$CellContext`x$$], 1, "step number"}, 1, Dynamic[ $CellContext`numberofsteps[$CellContext`n$$]], 1}, { Hold[ Button[ "reset", $CellContext`x$$ = 1; $CellContext`n$$ = 1, ImageSize -> Medium]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = {500., {148., 152.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`n$609906$$ = 0, $CellContext`x$609907$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`n$$ = 1, $CellContext`x$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`n$$, $CellContext`n$609906$$, 0], Hold[$CellContext`x$$, $CellContext`x$609907$$, 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" :> ( If[$CellContext`x$$ > \ $CellContext`numberofsteps[$CellContext`n$$], $CellContext`x$$ = \ $CellContext`numberofsteps[$CellContext`n$$]]; Show[ Graphics3D[ Which[$CellContext`n$$ == 1, Part[$CellContext`MoveList1, $CellContext`x$$], \ $CellContext`n$$ == 2, Part[$CellContext`MoveList2, $CellContext`x$$], \ $CellContext`n$$ == 3, Part[$CellContext`MoveList3, $CellContext`x$$]]], ViewPoint -> Front, Boxed -> False, PlotRange -> {{-5, 20}, {-5, 20}, {0, 10}}, ImageSize -> {500, 300}]), "Specifications" :> {{{$CellContext`n$$, 1, "number of pairs"}, {1, 2, 3}, ControlType -> Setter}, {{$CellContext`x$$, 1, "step number"}, 1, Dynamic[ $CellContext`numberofsteps[$CellContext`n$$]], 1, Appearance -> "Labeled"}, Button[ "reset", $CellContext`x$$ = 1; $CellContext`n$$ = 1, ImageSize -> Medium]}, "Options" :> {ControlPlacement -> Top}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{545., {219., 225.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`numberofsteps[ Pattern[$CellContext`n, Blank[]]] := Which[$CellContext`n == 1, 3, $CellContext`n == 2, 8, $CellContext`n == 3, 15], $CellContext`MoveList1 = {{{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 0}, {0, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{0, 0, 1}, {0, 0, 2}}, 2]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 0}, {0, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 2]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{10, 0, 0}, {10, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 2]}}}, $CellContext`MoveList2 = {{{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 0}, {0, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{0, 0, 1}, {0, 0, 2}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 2}, {0, 0, 3}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{0, 0, 3}, {0, 0, 4}}, 1.75]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 0}, {0, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{0, 0, 1}, {0, 0, 2}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 2}, {0, 0, 3}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 1.75]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 0}, {0, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{0, 0, 1}, {0, 0, 2}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{5, 0, 0}, {5, 0, 1}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 1.75]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 0}, {0, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{0, 0, 1}, {0, 0, 2}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{5, 0, 0}, {5, 0, 1}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{5, 0, 1}, {5, 0, 2}}, 1.75]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 0}, {0, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{5, 0, 0}, {5, 0, 1}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{5, 0, 1}, {5, 0, 2}}, 1.75]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{10, 0, 0}, {10, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{5, 0, 0}, {5, 0, 1}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{5, 0, 1}, {5, 0, 2}}, 1.75]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{10, 0, 0}, {10, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{5, 0, 0}, {5, 0, 1}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{15, 0, 1}, {15, 0, 2}}, 1.75]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{10, 0, 0}, {10, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{10, 0, 1}, {10, 0, 2}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{15, 0, 1}, {15, 0, 2}}, 1.75]}}}, $CellContext`MoveList3 = {{{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 0}, {0, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{0, 0, 1}, {0, 0, 2}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 2}, {0, 0, 3}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{0, 0, 3}, {0, 0, 4}}, 1.75]}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 4}, {0, 0, 5}}, 1.5]}, { RGBColor[0, 1, 0], Cylinder[{{0, 0, 5}, {0, 0, 6}}, 1.5]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 0}, {0, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{0, 0, 1}, {0, 0, 2}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 2}, {0, 0, 3}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{0, 0, 3}, {0, 0, 4}}, 1.75]}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 4}, {0, 0, 5}}, 1.5]}, { RGBColor[0, 1, 0], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 1.5]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 0}, {0, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{0, 0, 1}, {0, 0, 2}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 2}, {0, 0, 3}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{0, 0, 3}, {0, 0, 4}}, 1.75]}, { RGBColor[0, 0, 1], Cylinder[{{5, 0, 0}, {5, 0, 1}}, 1.5]}, { RGBColor[0, 1, 0], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 1.5]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 0}, {0, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{0, 0, 1}, {0, 0, 2}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 2}, {0, 0, 3}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{0, 0, 3}, {0, 0, 4}}, 1.75]}, { RGBColor[0, 0, 1], Cylinder[{{5, 0, 0}, {5, 0, 1}}, 1.5]}, { RGBColor[0, 1, 0], Cylinder[{{5, 0, 1}, {5, 0, 2}}, 1.5]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 0}, {0, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{0, 0, 1}, {0, 0, 2}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 2}, {0, 0, 3}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 1.75]}, { RGBColor[0, 0, 1], Cylinder[{{5, 0, 0}, {5, 0, 1}}, 1.5]}, { RGBColor[0, 1, 0], Cylinder[{{5, 0, 1}, {5, 0, 2}}, 1.5]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 0}, {0, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{0, 0, 1}, {0, 0, 2}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{15, 0, 1}, {15, 0, 2}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 1.75]}, { RGBColor[0, 0, 1], Cylinder[{{5, 0, 0}, {5, 0, 1}}, 1.5]}, { RGBColor[0, 1, 0], Cylinder[{{5, 0, 1}, {5, 0, 2}}, 1.5]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 0}, {0, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{10, 0, 0}, {10, 0, 1}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{15, 0, 1}, {15, 0, 2}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 1.75]}, { RGBColor[0, 0, 1], Cylinder[{{5, 0, 0}, {5, 0, 1}}, 1.5]}, { RGBColor[0, 1, 0], Cylinder[{{5, 0, 1}, {5, 0, 2}}, 1.5]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 0}, {0, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{10, 0, 0}, {10, 0, 1}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{10, 0, 1}, {10, 0, 2}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 1.75]}, { RGBColor[0, 0, 1], Cylinder[{{5, 0, 0}, {5, 0, 1}}, 1.5]}, { RGBColor[0, 1, 0], Cylinder[{{5, 0, 1}, {5, 0, 2}}, 1.5]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{0, 0, 0}, {0, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{10, 0, 0}, {10, 0, 1}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{10, 0, 1}, {10, 0, 2}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{10, 0, 2}, {10, 0, 3}}, 1.75]}, { RGBColor[0, 0, 1], Cylinder[{{5, 0, 0}, {5, 0, 1}}, 1.5]}, { RGBColor[0, 1, 0], Cylinder[{{5, 0, 1}, {5, 0, 2}}, 1.5]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{10, 0, 0}, {10, 0, 1}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{10, 0, 1}, {10, 0, 2}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{10, 0, 2}, {10, 0, 3}}, 1.75]}, { RGBColor[0, 0, 1], Cylinder[{{5, 0, 0}, {5, 0, 1}}, 1.5]}, { RGBColor[0, 1, 0], Cylinder[{{5, 0, 1}, {5, 0, 2}}, 1.5]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{10, 0, 0}, {10, 0, 1}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{10, 0, 1}, {10, 0, 2}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{0, 0, 0}, {0, 0, 1}}, 1.75]}, { RGBColor[0, 0, 1], Cylinder[{{5, 0, 0}, {5, 0, 1}}, 1.5]}, { RGBColor[0, 1, 0], Cylinder[{{5, 0, 1}, {5, 0, 2}}, 1.5]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{10, 0, 0}, {10, 0, 1}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{15, 0, 1}, {15, 0, 2}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{0, 0, 0}, {0, 0, 1}}, 1.75]}, { RGBColor[0, 0, 1], Cylinder[{{5, 0, 0}, {5, 0, 1}}, 1.5]}, { RGBColor[0, 1, 0], Cylinder[{{5, 0, 1}, {5, 0, 2}}, 1.5]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{10, 0, 0}, {10, 0, 1}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{15, 0, 1}, {15, 0, 2}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{10, 0, 1}, {10, 0, 2}}, 1.75]}, { RGBColor[0, 0, 1], Cylinder[{{5, 0, 0}, {5, 0, 1}}, 1.5]}, { RGBColor[0, 1, 0], Cylinder[{{5, 0, 1}, {5, 0, 2}}, 1.5]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{10, 0, 0}, {10, 0, 1}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{15, 0, 1}, {15, 0, 2}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{10, 0, 1}, {10, 0, 2}}, 1.75]}, { RGBColor[0, 0, 1], Cylinder[{{5, 0, 0}, {5, 0, 1}}, 1.5]}, { RGBColor[0, 1, 0], Cylinder[{{10, 0, 2}, {10, 0, 3}}, 1.5]}}, {{ Thickness[0.015], RGBColor[0.6, 0.4, 0.2], { Line[{{0, 0, 0}, {0, 0, 9}}], Line[{{5, 0, 0}, {5, 0, 9}}], Line[{{10, 0, 0}, {10, 0, 9}}], Line[{{15, 0, 0}, {15, 0, 9}}]}}, { RGBColor[0, 0, 1], Cylinder[{{15, 0, 0}, {15, 0, 1}}, 2]}, { RGBColor[0, 1, 0], Cylinder[{{10, 0, 0}, {10, 0, 1}}, 2]}, { RGBColor[0, 0, 1], Cylinder[{{15, 0, 1}, {15, 0, 2}}, 1.75]}, { RGBColor[0, 1, 0], Cylinder[{{10, 0, 1}, {10, 0, 2}}, 1.75]}, { RGBColor[0, 0, 1], Cylinder[{{15, 0, 2}, {15, 0, 3}}, 1.5]}, { RGBColor[0, 1, 0], Cylinder[{{10, 0, 2}, {10, 0, 3}}, 1.5]}}}, Attributes[PlotRange] = {ReadProtected}}; Typeset`initDone$$ = True), SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{3.6748554428820553`*^9, 3.760729987278186*^9}, CellID->1832358926] }, {4}]]