Cell[CellGroupData[{Cell[BoxData[
 RowBox[{
  RowBox[{"results", " ", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", "\"\<I\>\"", ",", 
       "\"\<light\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", "\"\<M\>\"", 
       ",", "\"\<heavy\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "\"\<O\>\"", 
       ",", "\"\<heavy\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "0", ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", "\"\<A\>\"", ",", 
       "\"\<heavy\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 
       "\"\<L\>\"", ",", "\"\<light\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",", 
       "\"\<K\>\"", ",", "\"\<light\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "1", ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", "\"\<X\>\"", ",", 
       "\"\<not possible\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "1", ",", "0"}], "}"}], ",", 
       "\"\<D\>\"", ",", "\"\<heavy\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", 
       "\"\<E\>\"", ",", "\"\<light\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", "\"\<N\>\"", ",", 
       "\"\<light\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", "\"\<T\>\"", 
       ",", "\"\<heavy\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "\"\<F\>\"", 
       ",", "\"\<light\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", "\"\<C\>\"", ",", 
       "\"\<light\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "\"\<X\>\"", 
       ",", "\"\<not possible\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", "\"\<C\>\"", 
       ",", "\"\<heavy\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", "\"\<F\>\"", ",", 
       "\"\<heavy\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", "\"\<T\>\"", 
       ",", "\"\<light\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", "\"\<N\>\"", 
       ",", "\"\<heavy\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", "\"\<E\>\"", ",", 
       "\"\<heavy\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", 
         RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", "\"\<D\>\"", 
       ",", "\"\<light\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "\"\<X\>\"", 
       ",", "\"\<not possible\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", "\"\<K\>\"", ",", 
       "\"\<heavy\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", "\"\<L\>\"", 
       ",", "\"\<heavy\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", "\"\<A\>\"", 
       ",", "\"\<light\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", "\"\<O\>\"", ",", 
       "\"\<light\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", "\"\<M\>\"", 
       ",", "\"\<light\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "\"\<I\>\"", 
       ",", "\"\<heavy\>\""}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.3715831851562586`*^9, 3.3715831905842257`*^9}, {
   3.371584640469488*^9, 3.3715847148601656`*^9}, {
   3.3715851546732836`*^9, 3.371585160762282*^9}, {
   3.3715856168190937`*^9, 3.3715856321519055`*^9}, 
   3.7608150367172127`*^9},
 CellID->270002259],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Balance", "[", 
    RowBox[{"n_", ",", "text_List"}], "]"}], ":=", 
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "4"}], "}"}]}], "}"}], "]"}], ",", 
       RowBox[{"Disk", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", ".1"}], "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", 
            RowBox[{"4", "+", "n"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", 
            RowBox[{"4", "-", "n"}]}], "}"}]}], "}"}], "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", 
            RowBox[{"4", "+", "n"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3"}], ",", 
            RowBox[{"2", "+", "n"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", 
            RowBox[{"2", "+", "n"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", 
            RowBox[{"4", "+", "n"}]}], "}"}]}], "}"}], "]"}], ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"text", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "\"\<Label\>\"", ",",
            "10"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", 
           RowBox[{"2", "+", "n"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", 
            RowBox[{"4", "-", "n"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", 
            RowBox[{"2", "-", "n"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", 
            RowBox[{"2", "-", "n"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", 
            RowBox[{"4", "-", "n"}]}], "}"}]}], "}"}], "]"}], ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
           RowBox[{"text", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", "\"\<Label\>\"", ",",
            "10"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", 
           RowBox[{"2", "-", "n"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", "White", ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "5"}], "}"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "->", " ", "All"}], ",", 
     RowBox[{"ImageSize", "->", " ", 
      RowBox[{"{", 
       RowBox[{"180", ",", "160"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{{3.3715808581261115`*^9, 3.3715809410192165`*^9}, {
   3.371581012692993*^9, 3.371581146316467*^9}, {
   3.3715811874560328`*^9, 3.371581189478962*^9}, 
   3.3715814665193033`*^9, {3.3715815630028505`*^9, 
   3.3715815985156856`*^9}, {3.371581637273349*^9, 
   3.3715816622204647`*^9}, {3.371581990397889*^9, 
   3.3715820290245867`*^9}, {3.371582066739947*^9, 
   3.3715820696241803`*^9}, {3.3715822074765263`*^9, 
   3.3715822361986856`*^9}, {3.371584757313327*^9, 
   3.3715848019697657`*^9}, 3.3715849317328253`*^9, {
   3.3715871340653043`*^9, 3.37158725605435*^9}, {
   3.382966860263757*^9, 3.38296687393111*^9}, {3.386095395986144*^9, 
   3.386095397970519*^9}, 3.760815036717429*^9},
 CellID->776738851],

Cell[BoxData[
 RowBox[{
  RowBox[{"ordres", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Extract", "[", 
         RowBox[{"results", ",", 
          RowBox[{"Most", "/@", 
           RowBox[{"Position", "[", 
            RowBox[{
             RowBox[{"results", "[", 
              RowBox[{"[", 
               RowBox[{"All", ",", 
                RowBox[{"{", 
                 RowBox[{"2", ",", "1", ",", "3"}], "}"}]}], "]"}], 
              "]"}], ",", "#"}], "]"}]}]}], "]"}], "}"}], "&"}], "/@", 
      RowBox[{"{", 
       RowBox[{
       "\"\<M\>\"", ",", "\"\<I\>\"", ",", "\"\<T\>\"", ",", 
        "\"\<F\>\"", ",", "\"\<O\>\"", ",", "\"\<L\>\"", ",", 
        "\"\<K\>\"", ",", "\"\<D\>\"", ",", "\"\<A\>\"", ",", 
        "\"\<N\>\"", ",", "\"\<C\>\"", ",", "\"\<E\>\"", ",", 
        "\"\<X\>\""}], "}"}]}], ",", "2"}], "]"}]}], ";"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 InitializationCell->True,
 CellChangeTimes->{
  3.35696210375764*^9, {3.383313418378443*^9, 
   3.3833136470041103`*^9}, {3.3833136861040087`*^9, 
   3.3833137738775587`*^9}, {3.383313867323207*^9, 
   3.383313906187845*^9}, {3.383313960102997*^9, 
   3.3833139805437193`*^9}, {3.383314182926085*^9, 
   3.3833142102241793`*^9}, 3.3833145905254498`*^9, 
   3.760815036717643*^9},
 CellID->2100866492],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ordres", "=", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Extract", "[", 
             RowBox[{"results", ",", 
              RowBox[{"Most", "/@", 
               RowBox[{"Position", "[", 
                RowBox[{
                 RowBox[{"results", "[", 
                  RowBox[{"[", 
                   RowBox[{"All", ",", 
                    RowBox[{"{", 
                    RowBox[{"2", ",", "1", ",", "3"}], "}"}]}], "]"}],
                   "]"}], ",", "#"}], "]"}]}]}], "]"}], "}"}], "&"}], 
          "/@", 
          RowBox[{"{", 
           RowBox[{
           "\"\<M\>\"", ",", "\"\<I\>\"", ",", "\"\<T\>\"", ",", 
            "\"\<F\>\"", ",", "\"\<O\>\"", ",", "\"\<L\>\"", ",", 
            "\"\<K\>\"", ",", "\"\<D\>\"", ",", "\"\<A\>\"", ",", 
            "\"\<N\>\"", ",", "\"\<C\>\"", ",", "\"\<E\>\"", ",", 
            "\"\<X\>\""}], "}"}]}], ",", "2"}], "]"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{"cc", ",", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"b1", ",", "b2", ",", "b3"}], "}"}], "=", 
         RowBox[{"ordres", "[", 
          RowBox[{"[", 
           RowBox[{"bb", ",", "1"}], "]"}], "]"}]}], ",", 
        RowBox[{"{", "}"}]}], "]"}], ";", 
      RowBox[{"Grid", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Balance", "[", 
            RowBox[{"b1", ",", 
             RowBox[{"{", 
              RowBox[{"\"\<M A  D O\>\"", ",", "\"\<L I K E\>\""}], 
              "}"}]}], "]"}], ",", 
           RowBox[{"Balance", "[", 
            RowBox[{"b2", ",", 
             RowBox[{"{", 
              RowBox[{"\"\<M E  T O\>\"", ",", "\"\<F I N D\>\""}], 
              "}"}]}], "]"}], ",", 
           RowBox[{"Balance", "[", 
            RowBox[{"b3", ",", 
             RowBox[{"{", 
              RowBox[{"\"\<F A K E\>\"", ",", "\"\<C O I N\>\""}], 
              "}"}]}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\"\< \>\"", ",", 
           RowBox[{"With", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"index", "=", 
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"results", ",", 
                  RowBox[{"{", 
                   RowBox[{"b1", ",", "b2", ",", "b3"}], "}"}]}], 
                 "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "}"}], ",", 
             
             RowBox[{"Style", "[", 
              RowBox[{
               RowBox[{"StringJoin", "[", 
                RowBox[{"\"\<Coin \>\"", ",", 
                 RowBox[{"results", "[", 
                  RowBox[{"[", 
                   RowBox[{"index", ",", "2"}], "]"}], "]"}], ",", 
                 "\"\< \>\"", ",", 
                 RowBox[{"results", "[", 
                  RowBox[{"[", 
                   RowBox[{"index", ",", "3"}], "]"}], "]"}]}], "]"}],
                ",", "\"\<Label\>\"", ",", "14"}], "]"}]}], "]"}], 
           ",", "\"\< \>\""}], "}"}]}], "}"}], "]"}]}]}], "]"}], ",", 
   
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b1", ",", 
       RowBox[{"-", "1"}], ",", "\"\<weighing 1\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "1"}], "->", " ", "\"\<left heavy\>\""}], 
       ",", 
       RowBox[{"0", "->", " ", "\"\<balanced\>\""}], ",", 
       RowBox[{"1", "->", " ", "\"\<right heavy\>\""}]}], "}"}], 
     ",", " ", 
     RowBox[{"Enabled", "->", 
      RowBox[{"Not", "[", "cc", "]"}]}]}], "}"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b2", ",", "0", ",", "\"\<weighing 2\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "1"}], "->", " ", "\"\<left heavy\>\""}], 
       ",", 
       RowBox[{"0", "->", " ", "\"\<balanced\>\""}], ",", 
       RowBox[{"1", "->", " ", "\"\<right heavy\>\""}]}], "}"}], 
     ",", " ", 
     RowBox[{"Enabled", "->", 
      RowBox[{"Not", "[", "cc", "]"}]}]}], "}"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b3", ",", "1", ",", "\"\<weighing 3\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "1"}], "->", " ", "\"\<left heavy\>\""}], 
       ",", 
       RowBox[{"0", "->", " ", "\"\<balanced\>\""}], ",", 
       RowBox[{"1", "->", " ", "\"\<right heavy\>\""}]}], "}"}], 
     ",", " ", 
     RowBox[{"Enabled", "->", 
      RowBox[{"Not", "[", "cc", "]"}]}]}], "}"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"cc", ",", "False", ",", "\"\<dance\>\""}], "}"}], ",", 
     
     RowBox[{"{", 
      RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"bb", ",", "1", ",", "\"\<steps\>\""}], "}"}], ",", "1",
      ",", "27", ",", "1", ",", 
     RowBox[{"Enabled", "->", "cc"}]}], "}"}], ",", 
   RowBox[{"SaveDefinitions", "->", "True"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.35696210375764*^9, 3.3715855440207853`*^9, {
   3.3715870816190786`*^9, 3.3715870827442656`*^9}, {
   3.3715872907632494`*^9, 3.371587305171897*^9}, {
   3.3828889194853997`*^9, 3.3828889999108644`*^9}, {
   3.3828890406776733`*^9, 3.382889045382681*^9}, {
   3.3828890872082987`*^9, 3.3828891103237705`*^9}, {
   3.382966804779688*^9, 3.382966819046847*^9}, {3.382966987616757*^9,
    3.382967010402315*^9}, {3.383314144827628*^9, 
   3.383314172213503*^9}, {3.3833142191628923`*^9, 
   3.383314317161911*^9}, {3.383314367477481*^9, 
   3.3833144217607727`*^9}, {3.383314452953022*^9, 
   3.383314470427631*^9}, {3.383314503731823*^9, 
   3.383314524480986*^9}, {3.383314616768305*^9, 
   3.383314636691598*^9}, {3.383315329041651*^9, 
   3.383315350298497*^9}, {3.383315521930603*^9, 
   3.383315601145193*^9}, {3.3834900485647383`*^9, 
   3.3834900623250737`*^9}, {3.3864175986418395`*^9, 
   3.3864175993605895`*^9}, {3.386417675063715*^9, 
   3.386417675657465*^9}, {3.386419572469965*^9, 
   3.386419573188715*^9}, 3.760815032760892*^9},
 CellID->29362044],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`b1$$ = -1, $CellContext`b2$$ = 
    0, $CellContext`b3$$ = 1, $CellContext`bb$$ = 
    1, $CellContext`cc$$ = False, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`b1$$], -1, "weighing 1"}, {-1 -> 
       "left heavy", 0 -> "balanced", 1 -> "right heavy"}}, {{
       Hold[$CellContext`b2$$], 0, "weighing 2"}, {-1 -> "left heavy",
        0 -> "balanced", 1 -> "right heavy"}}, {{
       Hold[$CellContext`b3$$], 1, "weighing 3"}, {-1 -> "left heavy",
        0 -> "balanced", 1 -> "right heavy"}}, {{
       Hold[$CellContext`cc$$], False, "dance"}, {False, True}}, {{
       Hold[$CellContext`bb$$], 1, "steps"}, 1, 27, 1}}, 
    Typeset`size$$ = {556., {87., 92.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`b1$8704$$ = False, $CellContext`b2$8705$$ = 
    False, $CellContext`b3$8706$$ = False, $CellContext`cc$8707$$ = 
    False, $CellContext`bb$8708$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`b1$$ = -1, $CellContext`b2$$ = 
        0, $CellContext`b3$$ = 1, $CellContext`bb$$ = 
        1, $CellContext`cc$$ = False}, "ControllerVariables" :> {
        Hold[$CellContext`b1$$, $CellContext`b1$8704$$, False], 
        Hold[$CellContext`b2$$, $CellContext`b2$8705$$, False], 
        Hold[$CellContext`b3$$, $CellContext`b3$8706$$, False], 
        Hold[$CellContext`cc$$, $CellContext`cc$8707$$, False], 
        Hold[$CellContext`bb$$, $CellContext`bb$8708$$, 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" :> 
      With[{$CellContext`ordres$ = Flatten[
           Map[{
             Extract[$CellContext`results, 
              Map[Most, 
               Position[
                Part[$CellContext`results, All, {2, 1, 3}], #]]]}& , {
            "M", "I", "T", "F", "O", "L", "K", "D", "A", "N", "C", 
             "E", "X"}], 2]}, 
        If[$CellContext`cc$$, {$CellContext`b1$$, $CellContext`b2$$, \
$CellContext`b3$$} = 
          Part[$CellContext`ordres$, $CellContext`bb$$, 1], {}]; 
        Grid[{{
            $CellContext`Balance[$CellContext`b1$$, {
             "M A  D O", "L I K E"}], 
            $CellContext`Balance[$CellContext`b2$$, {
             "M E  T O", "F I N D"}], 
            $CellContext`Balance[$CellContext`b3$$, {
             "F A K E", "C O I N"}]}, {" ", 
            With[{$CellContext`index = Part[
                
                Position[$CellContext`results, {$CellContext`b1$$, \
$CellContext`b2$$, $CellContext`b3$$}], 1, 1]}, 
             Style[
              StringJoin["Coin ", 
               Part[$CellContext`results, $CellContext`index, 2], " ", 
               Part[$CellContext`results, $CellContext`index, 3]], 
              "Label", 14]], " "}}]], 
      "Specifications" :> {{{$CellContext`b1$$, -1, 
          "weighing 1"}, {-1 -> "left heavy", 0 -> "balanced", 1 -> 
          "right heavy"}, Enabled -> Dynamic[
           Not[$CellContext`cc$$]]}, {{$CellContext`b2$$, 0, 
          "weighing 2"}, {-1 -> "left heavy", 0 -> "balanced", 1 -> 
          "right heavy"}, Enabled -> Dynamic[
           Not[$CellContext`cc$$]]}, {{$CellContext`b3$$, 1, 
          "weighing 3"}, {-1 -> "left heavy", 0 -> "balanced", 1 -> 
          "right heavy"}, Enabled -> Dynamic[
           Not[$CellContext`cc$$]]}, {{$CellContext`cc$$, False, 
          "dance"}, {False, True}}, {{$CellContext`bb$$, 1, "steps"}, 
         1, 27, 1, Enabled -> Dynamic[$CellContext`cc$$]}}, 
      "Options" :> {}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{601., {181., 187.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`ordres = {{{-1, -1, 0}, "M", 
          "heavy"}, {{1, 1, 0}, "M", "light"}, {{-1, -1, -1}, "I", 
          "light"}, {{1, 1, 1}, "I", "heavy"}, {{0, -1, 0}, "T", 
          "heavy"}, {{0, 1, 0}, "T", "light"}, {{0, -1, 1}, "F", 
          "light"}, {{0, 1, -1}, "F", "heavy"}, {{-1, -1, 1}, "O", 
          "heavy"}, {{1, 1, -1}, "O", "light"}, {{-1, 0, 0}, "L", 
          "light"}, {{1, 0, 0}, "L", "heavy"}, {{-1, 0, 1}, "K", 
          "light"}, {{1, 0, -1}, "K", "heavy"}, {{-1, 1, 0}, "D", 
          "heavy"}, {{1, -1, 0}, "D", "light"}, {{-1, 0, -1}, "A", 
          "heavy"}, {{1, 0, 1}, "A", "light"}, {{0, -1, -1}, "N", 
          "light"}, {{0, 1, 1}, "N", "heavy"}, {{0, 0, -1}, "C", 
          "light"}, {{0, 0, 1}, "C", "heavy"}, {{-1, 1, 1}, "E", 
          "light"}, {{1, -1, -1}, "E", "heavy"}, {{-1, 1, -1}, "X", 
          "not possible"}, {{0, 0, 0}, "X", "not possible"}, {{1, -1, 
          1}, "X", 
          "not possible"}}, $CellContext`results = {{{-1, -1, -1}, 
          "I", "light"}, {{-1, -1, 0}, "M", "heavy"}, {{-1, -1, 1}, 
          "O", "heavy"}, {{-1, 0, -1}, "A", "heavy"}, {{-1, 0, 0}, 
          "L", "light"}, {{-1, 0, 1}, "K", "light"}, {{-1, 1, -1}, 
          "X", "not possible"}, {{-1, 1, 0}, "D", "heavy"}, {{-1, 1, 
          1}, "E", "light"}, {{0, -1, -1}, "N", "light"}, {{0, -1, 0},
           "T", "heavy"}, {{0, -1, 1}, "F", "light"}, {{0, 0, -1}, 
          "C", "light"}, {{0, 0, 0}, "X", "not possible"}, {{0, 0, 1},
           "C", "heavy"}, {{0, 1, -1}, "F", "heavy"}, {{0, 1, 0}, "T",
           "light"}, {{0, 1, 1}, "N", "heavy"}, {{1, -1, -1}, "E", 
          "heavy"}, {{1, -1, 0}, "D", "light"}, {{1, -1, 1}, "X", 
          "not possible"}, {{1, 0, -1}, "K", "heavy"}, {{1, 0, 0}, 
          "L", "heavy"}, {{1, 0, 1}, "A", "light"}, {{1, 1, -1}, "O", 
          "light"}, {{1, 1, 0}, "M", "light"}, {{1, 1, 1}, "I", 
          "heavy"}}, $CellContext`Balance[
         Pattern[$CellContext`n, 
          Blank[]], 
         Pattern[$CellContext`text, 
          Blank[List]]] := Graphics[{
          Line[{{-2, 0}, {2, 0}}], 
          Line[{{0, 0}, {0, 4}}], 
          Disk[{0, 4}, 0.1], 
          Line[{{-2, 4 + $CellContext`n}, {2, 4 - $CellContext`n}}], 
          
          Line[{{-2, 4 + $CellContext`n}, {-3, 
             2 + $CellContext`n}, {-1, 2 + $CellContext`n}, {-2, 
             4 + $CellContext`n}}], 
          Text[
           Style[
            Part[$CellContext`text, 1], "Label", 10], {-2, 
            2 + $CellContext`n}, {0, -1}], 
          
          Line[{{2, 4 - $CellContext`n}, {1, 2 - $CellContext`n}, {
            3, 2 - $CellContext`n}, {2, 4 - $CellContext`n}}], 
          Text[
           Style[
            Part[$CellContext`text, 2], "Label", 10], {
           2, 2 - $CellContext`n}, {0, -1}], White, 
          Point[{0, 5}]}, PlotRange -> All, ImageSize -> {180, 160}], 
       Attributes[PlotRange] = {ReadProtected}}; 
     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.760815032761157*^9},
 CellID->565431323]
}, {5}]]