Lookup Table Generator Supporting Higher-Order Digit Selectors.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     52421,       1007]
NotebookOptionsPosition[     51772,        981]
NotebookOutlinePosition[     52115,        996]
CellTagsIndexPosition[     52072,        993]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{
     RowBox[{"Checkbox", "[", 
      RowBox[{"Dynamic", "[", "colour`lookup`table", "]"}], "]"}], ",", " ", 
     "\"\< Colour look-up table\>\""}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"!", 
     RowBox[{"ValueQ", "[", "smart`constants", "]"}]}], " ", "\[Or]", " ", 
    RowBox[{"!", 
     RowBox[{"ValueQ", "[", "smart`constant`bits", "]"}]}], " ", "\[Or]", 
    RowBox[{"!", 
     RowBox[{"ValueQ", "[", "iterations", "]"}]}], "\[Or]", 
    "\[IndentingNewLine]", 
    RowBox[{"!", 
     RowBox[{"MatrixQ", "[", "smart`constants", "]"}]}], " ", "\[Or]", " ", 
    RowBox[{
     RowBox[{"{", "}"}], "\[NotEqual]", 
     RowBox[{"Position", "[", 
      RowBox[{"smart`constants", ",", "Indeterminate"}], "]"}]}]}], ",", " ", 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{
      RowBox[{
      "\"\<ABORTED: Please execute the input cell in the notebook named \
\\\"Designer Cell\\\"\>\"", "\[IndentingNewLine]", 
       "\"\< before executing this input cell, and make sure the resulting \
constant table contains\>\"", "\[IndentingNewLine]", 
       "\"\< numerical values for all the constants (that there are no '*'s).\
\\n\>\""}], ",", " ", "Large", ",", " ", "Red", ",", " ", "Italic"}], "]"}], 
    "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Module", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"dimensions", "=", " ", 
        RowBox[{"Dimensions", "[", "smart`constants", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"iterations", " ", "=", " ", "iterations"}], ",", 
       "\[IndentingNewLine]", "delta`max", ",", "\[IndentingNewLine]", 
       "delta`min", ",", "\[IndentingNewLine]", "digits", ",", 
       "\[IndentingNewLine]", "xlabels", ",", " ", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "ylabels", ",", " ", "\[IndentingNewLine]", 
       "digit`constants", ",", " ", "\[IndentingNewLine]", "table", ",", " ", 
       "\[IndentingNewLine]", "colour"}], "}"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"delta`max", " ", "=", " ", 
       RowBox[{"delta", "/.", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"digit", " ", "\[Rule]", "  ", 
           RowBox[{
            RowBox[{"+", "\[Beta]"}], 
            RowBox[{"(", 
             RowBox[{"1", " ", "+", " ", 
              FractionBox["1", 
               RowBox[{"radix", "-", "1"}]]}], ")"}]}]}], ",", " ", 
          RowBox[{"iteration", " ", "\[Rule]", " ", "\[Infinity]"}], ",", " ", 
          RowBox[{"is`upper", " ", "\[Rule]", " ", "0"}], ",", " ", 
          RowBox[{"hB", " ", "\[Rule]", " ", "0"}]}], "}"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"delta`min", " ", "=", " ", 
       RowBox[{"delta", "/.", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"digit", " ", "\[Rule]", "  ", 
           RowBox[{
            RowBox[{"-", "\[Alpha]"}], 
            RowBox[{"(", 
             RowBox[{"1", " ", "+", " ", 
              FractionBox["1", 
               RowBox[{"radix", "-", "1"}]]}], ")"}]}]}], ",", " ", 
          RowBox[{"iteration", " ", "\[Rule]", " ", "\[Infinity]"}], ",", " ", 
          RowBox[{"is`upper", " ", "\[Rule]", " ", "0"}], ",", " ", 
          RowBox[{"hB", " ", "\[Rule]", " ", "0"}]}], "}"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"digits", " ", "=", " ", 
       RowBox[{"PadRight", "[", 
        RowBox[{
         RowBox[{"Range", "[", 
          RowBox[{"\[Beta]", ",", 
           RowBox[{"-", "\[Alpha]"}], ",", 
           RowBox[{"-", "1"}]}], "]"}], ",", " ", 
         RowBox[{"dimensions", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"xlabels", " ", "=", " ", 
       RowBox[{"PadRight", "[", 
        RowBox[{
         RowBox[{"Range", "[", 
          RowBox[{
           FractionBox["1", "2"], ",", 
           RowBox[{"1", " ", "-", " ", 
            SuperscriptBox["2", 
             RowBox[{"-", "n`x"}]]}], ",", " ", 
           SuperscriptBox["2", 
            RowBox[{"-", "n`x"}]]}], "]"}], ",", 
         RowBox[{"dimensions", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], " ", "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"ylabels", " ", "=", " ", 
       RowBox[{"Range", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{
           SuperscriptBox["2", 
            RowBox[{"-", "smart`constant`bits"}]], 
           RowBox[{"\[LeftCeiling]", 
            FractionBox["delta`max", 
             SuperscriptBox["2", 
              RowBox[{"-", "smart`constant`bits"}]]], "\[RightCeiling]"}]}], 
          " ", "/.", " ", 
          RowBox[{"S", "\[Rule]", "1"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"Which", "[", 
          RowBox[{
          "mapping`unsigned`constants", ",", " ", "0", ",", "True", ",", " ", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             SuperscriptBox["2", 
              RowBox[{"-", "smart`constant`bits"}]], 
             RowBox[{"\[LeftFloor]", 
              FractionBox["delta`min", 
               SuperscriptBox["2", 
                RowBox[{"-", "smart`constant`bits"}]]], "\[RightFloor]"}]}], 
            " ", "/.", " ", 
            RowBox[{"S", "\[Rule]", "1"}]}]}], "]"}], ",", " ", 
         RowBox[{"-", 
          SuperscriptBox["2", 
           RowBox[{"-", "smart`constant`bits"}]]}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"digit`constants", " ", "=", " ", 
       RowBox[{"Transpose", "@", "smart`constants"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"table", " ", "=", " ", 
       RowBox[{"Map", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "/.", " ", 
              RowBox[{"Indeterminate", " ", "\[Rule]", " ", "False"}]}], ",", 
             
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "/.", 
              RowBox[{"Indeterminate", "\[Rule]", "\"\<*\>\""}]}], ",", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], "+", "1"}], ",", 
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], "+", "1"}]}], "}"}], " ", 
              "\[Rule]", " ", "\[IndentingNewLine]", 
              RowBox[{"Hue", "[", 
               RowBox[{
                RowBox[{"N", "@", 
                 FractionBox[
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "/.", 
                    RowBox[{"Indeterminate", "\[Rule]", 
                    RowBox[{"-", 
                    RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "1"}], ")"}]}]}]}], ")"}], "+", 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "1"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"Which", "[", 
                    RowBox[{
                    "mapping`unsigned`constants", ",", " ", "2", ",", "True", 
                    ",", "2"}], "]"}], 
                   RowBox[{"(", 
                    RowBox[{"\[Alpha]", "+", "\[Beta]", "+", "1"}], 
                    ")"}]}]]}], ",", ".5", ",", ".9"}], "]"}]}]}], "}"}], 
           ")"}], "&"}], ",", " ", "\[IndentingNewLine]", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Which", "[", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{
                  RowBox[{"ylabels", "[", 
                   RowBox[{"[", "y", "]"}], "]"}], " ", ">", " ", 
                  RowBox[{"Evaluate", "[", 
                   RowBox[{"Max", "@@", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["2", 
                    RowBox[{"-", "smart`constant`bits"}]], 
                    RowBox[{"\[LeftCeiling]", 
                    FractionBox["delta`max", 
                    SuperscriptBox["2", 
                    RowBox[{"-", "smart`constant`bits"}]]], 
                    "\[RightCeiling]"}]}], " ", "/.", " ", 
                    RowBox[{"S", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"xlabels", "[", 
                    RowBox[{"[", "x", "]"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"xlabels", "[", 
                    RowBox[{"[", "x", "]"}], "]"}], "+", 
                    SuperscriptBox["2", 
                    RowBox[{"-", "n`x"}]]}]}], "}"}]}]}], ")"}]}], "]"}]}], 
                 ",", " ", "Indeterminate", ",", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"ylabels", "[", 
                   RowBox[{"[", "y", "]"}], "]"}], " ", "<", " ", 
                  RowBox[{"Evaluate", "[", 
                   RowBox[{"Min", "@@", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["2", 
                    RowBox[{"-", "smart`constant`bits"}]], 
                    RowBox[{"\[LeftFloor]", 
                    FractionBox["delta`min", 
                    SuperscriptBox["2", 
                    RowBox[{"-", "smart`constant`bits"}]]], 
                    "\[RightFloor]"}]}], " ", "/.", " ", 
                    RowBox[{"S", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"xlabels", "[", 
                    RowBox[{"[", "x", "]"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"xlabels", "[", 
                    RowBox[{"[", "x", "]"}], "]"}], "+", 
                    SuperscriptBox["2", 
                    RowBox[{"-", "n`x"}]]}]}], "}"}]}]}], ")"}]}], "]"}]}], 
                 ",", " ", "Indeterminate", ",", "\[IndentingNewLine]", 
                 "True", ",", " ", 
                 RowBox[{"\[Beta]", " ", "-", " ", 
                  RowBox[{"Count", "[", 
                   RowBox[{
                    RowBox[{"Map", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"ylabels", "[", 
                    RowBox[{"[", "y", "]"}], "]"}], " ", "\[GreaterEqual]", 
                    " ", "#"}], ")"}], "&"}], ",", 
                    RowBox[{"digit`constants", "[", 
                    RowBox[{"[", "x", "]"}], "]"}]}], "]"}], ",", "False"}], 
                   "]"}]}]}], "]"}], ",", "x", ",", "y"}], "}"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{"x", ",", " ", "1", ",", " ", 
               RowBox[{"Length", "[", "xlabels", "]"}]}], "}"}]}], "]"}], ",",
            "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"y", ",", " ", "1", ",", " ", 
             RowBox[{"Length", "[", "ylabels", "]"}]}], "}"}]}], "]"}], ",", 
         " ", 
         RowBox[{"{", "2", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{"colour`lookup`table", ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"colour", " ", "=", " ", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"None", ",", "None"}], "}"}], "~", "Join", "~", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"Transpose", "@", 
               RowBox[{"(", 
                RowBox[{"Join", "@@", "table"}], ")"}]}], ")"}], "[", 
             RowBox[{"[", "3", "]"}], "]"}], "}"}]}]}], ";"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"colour", " ", "=", " ", 
          RowBox[{"{", 
           RowBox[{"None", ",", " ", "None"}], "}"}]}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Print", "[", "\[IndentingNewLine]", 
        RowBox[{
        "\"\<algorihm_m = \>\"", ",", "bits`per`digit", ",", "\"\<,\\n\>\"", 
         ",", "\[IndentingNewLine]", "\"\<algorithm_n = \>\"", ",", " ", 
         "iterations", ",", " ", "\"\<,\\n\>\"", ",", "\[IndentingNewLine]", 
         "\"\<algorithm_Z = \>\"", ",", " ", "Z", ",", " ", "\"\<;\\n\\n\>\"",
          ",", "\[IndentingNewLine]", "\"\<algorithm_alpha = \>\"", ",", " ", 
         
         RowBox[{"IntegerPart", "[", "\[Alpha]", "]"}], ",", " ", 
         "\"\<,\\n\>\"", ",", "\[IndentingNewLine]", 
         "\"\<algorithm_beta = \>\"", ",", " ", 
         RowBox[{"IntegerPart", "[", "\[Beta]", "]"}], ",", " ", 
         "\"\<,\\n\>\"", ",", "\[IndentingNewLine]", 
         "\"\<algorithm_ns = \>\"", ",", " ", "n`x", ",", " ", "\"\<,\\n\>\"",
          ",", "\[IndentingNewLine]", "\"\<algorithm_np = \>\"", ",", " ", 
         RowBox[{
          RowBox[{"Ceiling", "[", 
           RowBox[{"Log2", "[", 
            RowBox[{"Max", "@@", 
             RowBox[{"(", 
              RowBox[{"Abs", " ", "/@", " ", "ylabels"}], ")"}]}], "]"}], 
           "]"}], " ", "+", " ", "1", "+", " ", "smart`constant`bits"}], ",", 
         " ", "\"\<;\\n\>\"", ",", "\[IndentingNewLine]", 
         "\"\<algorithm_np_fractional = \>\"", ",", " ", 
         "smart`constant`bits", ",", " ", "\"\<;\\n\\n\>\"", ",", 
         "\[IndentingNewLine]", "\"\<algorithm_table_unsigned = \>\"", ",", 
         RowBox[{"If", "[", 
          RowBox[{
          "mapping`unsigned`constants", ",", " ", "1", ",", " ", "0"}], "]"}],
          ",", "\"\<;\\n\\n\>\"", ",", "\[IndentingNewLine]", 
         "\"\<SRT_table = {\>\""}], "]"}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"Print", "[", 
        RowBox[{"StringJoin", "@@", 
         RowBox[{"Map", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"\"\<\\t\>\"", " ", "<>", 
              RowBox[{"ToString", "[", "#", "]"}], " ", "<>", " ", 
              "\"\<,\\n\>\""}], ")"}], "&"}], ",", " ", "\[IndentingNewLine]",
            " ", 
           RowBox[{"Map", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"IntegerPart", "[", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "/.", " ", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"IntegerPart", "[", "False", "]"}], " ", "\[Rule]", 
                  " ", 
                  RowBox[{"IntegerPart", "[", 
                   RowBox[{"\[Beta]", "+", "1"}], "]"}]}], "}"}]}], ")"}], 
              "&"}], ",", "table", ",", 
             RowBox[{"{", "2", "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"{", "1", "}"}]}], "\[IndentingNewLine]", "]"}]}], "]"}], 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"Print", "[", "\[IndentingNewLine]", 
        RowBox[{
        "\"\<};\\n\\n\>\"", ",", "\[IndentingNewLine]", 
         "\"\<SRT_table_p0 = \>\"", ",", " ", 
         RowBox[{"ylabels", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "\"\< << \>\"", ",", " ", 
         "smart`constant`bits", ",", "\"\<;\\n\>\"", ",", 
         "\[IndentingNewLine]", "\"\<SRT_table_dimensions = \>\"", ",", 
         RowBox[{"Dimensions", "[", 
          RowBox[{"Map", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "table", ",", 
            RowBox[{"{", "2", "}"}]}], "]"}], "]"}], ",", "\"\<;\\n\>\"", ",",
          "\[IndentingNewLine]", "\"\<SRT_table_mappings = \>\"", ",", 
         RowBox[{
          RowBox[{"Replace", "[", 
           RowBox[{
            RowBox[{"Replace", "[", 
             RowBox[{"intervals`mapping", ",", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"a_", ",", "b_", ",", "c_"}], "}"}], "\[RuleDelayed]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"b", "+", "1"}], ",", "c"}], "}"}]}], ",", 
              RowBox[{"{", "2", "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"p_", " ", "\[RuleDelayed]", " ", 
             RowBox[{
              RowBox[{
               RowBox[{"{", 
                RowBox[{"First", "[", 
                 RowBox[{"First", "[", "p", "]"}], "]"}], "}"}], "~", "Join", 
               "~", 
               RowBox[{"Last", "[", "p", "]"}]}], " ", "/;", " ", 
              RowBox[{
               RowBox[{"Head", "[", "p", "]"}], " ", "\[Equal]", " ", 
               "Rule"}]}]}], ",", 
            RowBox[{"{", "1", "}"}]}], "]"}], " ", "/.", " ", 
          RowBox[{"iteration", "\[Rule]", " ", 
           RowBox[{"Blank", "[", "]"}]}]}], ",", " ", "\"\<;\\n\\n\>\"", ",", 
         "\[IndentingNewLine]", "\"\<SRT_table_mappings_count = \>\"", ",", 
         " ", 
         RowBox[{"Length", "[", "intervals`mapping", "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Grid", "[", 
       RowBox[{
        RowBox[{"Transpose", "@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", "\"\<\>\"", "}"}], "~", "Join", "~", 
             RowBox[{"MapThread", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"ToString", "[", "#1", "]"}], "<>", "\"\<: \>\"", 
                  " ", "<>", " ", 
                  RowBox[{"ToString", "[", 
                   RowBox[{"#2", ",", "StandardForm"}], "]"}]}], ")"}], "&"}],
                ",", "\[IndentingNewLine]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"Range", "[", 
                  RowBox[{"Length", "[", "ylabels", "]"}], "]"}], ",", 
                 "ylabels"}], "}"}]}], "]"}]}], "}"}], "~", "Join", "~", 
           "\[IndentingNewLine]", 
           RowBox[{"Transpose", "@", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"{", "xlabels", "}"}], "~", "Join", "~", 
              RowBox[{"Map", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", " ", "table", 
                ",", 
                RowBox[{"{", "2", "}"}]}], "]"}]}], ")"}]}]}], ")"}]}], ",", 
        " ", "\[IndentingNewLine]", 
        RowBox[{"Frame", "\[Rule]", "All"}], ",", " ", 
        RowBox[{"Spacings", " ", "\[Rule]", " ", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1"}], "}"}]}], ",", " ", "\[IndentingNewLine]", 
        RowBox[{"Background", " ", "\[Rule]", " ", "colour"}]}], "]"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.4725641544102907`*^9, 3.4725641795024633`*^9}, {
   3.4725642095283623`*^9, 3.4725643398248587`*^9}, {3.472564379780075*^9, 
   3.472564622729886*^9}, {3.4725646586600037`*^9, 3.472564661497596*^9}, {
   3.47256552961066*^9, 3.47256555363717*^9}, {3.472565651294775*^9, 
   3.472565657917017*^9}, {3.472565693557768*^9, 3.472565886798601*^9}, {
   3.4725659668854713`*^9, 3.472566242427793*^9}, {3.472566748055624*^9, 
   3.472566807004034*^9}, {3.472566943662661*^9, 3.472566976054297*^9}, {
   3.472567166684814*^9, 3.4725672444633417`*^9}, {3.472567288713479*^9, 
   3.47256734392066*^9}, {3.472567459081962*^9, 3.4725675209371367`*^9}, {
   3.472567617498233*^9, 3.472567619528593*^9}, {3.472567650097857*^9, 
   3.472567662570138*^9}, {3.472567928637534*^9, 3.472567952327334*^9}, {
   3.472568025040889*^9, 3.472568121838565*^9}, {3.472568201063745*^9, 
   3.47256837500915*^9}, {3.472568436002364*^9, 3.47256844267802*^9}, {
   3.472568487810444*^9, 3.472568490728092*^9}, {3.472568705304021*^9, 
   3.472568726894487*^9}, {3.472569019858652*^9, 3.472569036299223*^9}, {
   3.472569071505988*^9, 3.4725692109970303`*^9}, {3.472569255085129*^9, 
   3.4725692775610113`*^9}, {3.472569338462483*^9, 3.472569339333007*^9}, {
   3.472569380109893*^9, 3.47256941529949*^9}, {3.472569492546088*^9, 
   3.472569607332905*^9}, {3.47256965513701*^9, 3.472569708029874*^9}, {
   3.472569844422049*^9, 3.472569903697534*^9}, {3.472569951013908*^9, 
   3.4725700550375853`*^9}, {3.4725701109717283`*^9, 3.472570144071146*^9}, {
   3.472570174533824*^9, 3.472570193072258*^9}, {3.472570238647704*^9, 
   3.4725703329687233`*^9}, {3.472570369838595*^9, 3.472570497823655*^9}, {
   3.4725705540242777`*^9, 3.472570635259411*^9}, {3.472570709718754*^9, 
   3.4725707188428583`*^9}, 3.4725707752025957`*^9, 3.472570855437052*^9, {
   3.472570964890256*^9, 3.472570988114236*^9}, {3.4725710599709463`*^9, 
   3.472571089075049*^9}, {3.4725728828003483`*^9, 3.472572903018385*^9}, {
   3.472572933912093*^9, 3.472572939926944*^9}, {3.4725731749136753`*^9, 
   3.472573579084936*^9}, {3.4725754397854137`*^9, 3.4725754856405497`*^9}, {
   3.472576571357237*^9, 3.472576605270843*^9}, {3.472576701231571*^9, 
   3.47257671707251*^9}, {3.4725771995660753`*^9, 3.47257722892752*^9}, {
   3.472577271056547*^9, 3.472577271369666*^9}, {3.472577318295926*^9, 
   3.472577412270905*^9}, {3.4725774483439302`*^9, 3.4725774724574327`*^9}, {
   3.472577561879612*^9, 3.472577606411281*^9}, {3.472577639959414*^9, 
   3.472577698861759*^9}, {3.4725777289527884`*^9, 3.47257773740236*^9}, {
   3.472577793035161*^9, 3.4725778058005743`*^9}, {3.472577844418611*^9, 
   3.4725779310111427`*^9}, {3.472577974954979*^9, 3.47257798019275*^9}, {
   3.472578399083198*^9, 3.472578413104837*^9}, {3.472578571474597*^9, 
   3.472578589369474*^9}, {3.472578623770789*^9, 3.472578635252276*^9}, {
   3.472578682250679*^9, 3.472578697448382*^9}, {3.472578765413577*^9, 
   3.4725790122335777`*^9}, {3.472579055056963*^9, 3.4725790695151587`*^9}, {
   3.472579211058667*^9, 3.472579239995644*^9}, {3.4725792867998543`*^9, 
   3.472579348704743*^9}, {3.472582019795103*^9, 3.4725820307958317`*^9}, {
   3.47258336518925*^9, 3.472583366426388*^9}, {3.472583801993891*^9, 
   3.4725838119043837`*^9}, {3.472584019083256*^9, 3.472584031766395*^9}, 
   3.4725842377951393`*^9, {3.472584550576685*^9, 3.4725845549639997`*^9}, {
   3.472584588578329*^9, 3.472584603544536*^9}, {3.472584641891892*^9, 
   3.472584663346405*^9}, {3.472584801802882*^9, 3.472584838018649*^9}, 
   3.472584875537759*^9, {3.472585119731056*^9, 3.472585146623467*^9}, {
   3.472586507880068*^9, 3.472586524617527*^9}, {3.473050621307046*^9, 
   3.4730506324364443`*^9}, {3.473748101132698*^9, 3.473748311642027*^9}, {
   3.473818040099288*^9, 3.473818121005518*^9}, {3.473818348439432*^9, 
   3.4738183648865013`*^9}, {3.473818486834395*^9, 3.473818518792923*^9}, {
   3.47381988746583*^9, 3.4738200472914677`*^9}, {3.4738506981319733`*^9, 
   3.473850702191759*^9}, {3.474085171191105*^9, 3.474085229095633*^9}, {
   3.474085341215598*^9, 3.474085370067561*^9}, {3.474495396951926*^9, 
   3.474495428485352*^9}, {3.537618931036459*^9, 3.537618954780513*^9}, {
   3.537619002559064*^9, 3.537619004794641*^9}, {3.537619049722056*^9, 
   3.537619212852542*^9}, {3.537619254464658*^9, 3.5376192652420883`*^9}, {
   3.537619295307589*^9, 3.537619348359497*^9}, {3.537619389941393*^9, 
   3.537619417061206*^9}, {3.537619561766183*^9, 3.537619618848762*^9}, {
   3.5376196813523207`*^9, 3.537619722644075*^9}, {3.537619771547284*^9, 
   3.5376198383881474`*^9}, {3.537619889272295*^9, 3.537619951989524*^9}, {
   3.53762003432502*^9, 3.537620094667954*^9}, 3.537620138904257*^9, {
   3.537620174917018*^9, 3.537620186513549*^9}, {3.537620324332144*^9, 
   3.5376203781155233`*^9}, {3.537620701519767*^9, 3.537620748054513*^9}, {
   3.53762086036123*^9, 3.537620927292869*^9}, {3.537621001677058*^9, 
   3.5376210458459387`*^9}, {3.5376210862711763`*^9, 3.537621138793868*^9}, {
   3.537621184593961*^9, 3.537621218550077*^9}, {3.537621342170389*^9, 
   3.537621350286784*^9}, {3.537621410401393*^9, 3.537621442934194*^9}, {
   3.539184049453575*^9, 3.539184049974339*^9}, {3.539184088374886*^9, 
   3.539184173829866*^9}, {3.539184225529296*^9, 3.53918422717769*^9}, {
   3.539184265551803*^9, 3.5391843499655027`*^9}, {3.539184405404518*^9, 
   3.539184473425255*^9}, {3.539184514849249*^9, 3.5391846086054173`*^9}, {
   3.5391850188624153`*^9, 3.539185136280971*^9}, {3.5391854064510183`*^9, 
   3.539185678322912*^9}, {3.539189844367785*^9, 3.5391898983303328`*^9}, {
   3.5391899538959227`*^9, 3.539189978340067*^9}, {3.53919032798868*^9, 
   3.539190331107483*^9}, 3.539876011833103*^9, {3.545883259509901*^9, 
   3.545883261813401*^9}, {3.5458833191591387`*^9, 3.545883338687997*^9}, {
   3.545894397365944*^9, 3.5458944570797*^9}, {3.545894489640267*^9, 
   3.5458945238482533`*^9}, {3.545894588770546*^9, 3.545894599170909*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   CheckboxBox[Dynamic[colour`lookup`table]], 
   "\[InvisibleSpace]", "\<\" Colour look-up table\"\>"}],
  SequenceForm[
   Checkbox[
    Dynamic[colour`lookup`table]], " Colour look-up table"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.539184123575447*^9, 3.5391841744568*^9}, 
   3.5391842700848017`*^9, {3.539184308469716*^9, 3.539184322366868*^9}, {
   3.539184406283242*^9, 3.5391844267415237`*^9}, {3.539184457636538*^9, 
   3.539184473920844*^9}, 3.539184613266808*^9, 3.539184714902233*^9, 
   3.539185138584396*^9, {3.539185417714449*^9, 3.539185428861176*^9}, {
   3.539185468555999*^9, 3.539185479296364*^9}, {3.539185532339188*^9, 
   3.539185542397023*^9}, 3.539185635295785*^9, 3.539185681101754*^9, 
   3.5391899000677757`*^9, 3.539189979261402*^9, 3.539355932495013*^9, 
   3.539439262232242*^9, 3.5398760199044123`*^9, 3.539876537389978*^9, 
   3.540641222611856*^9, 3.545883141092063*^9, {3.545883348033709*^9, 
   3.545883356398026*^9}, 3.5458944061674433`*^9, {3.5458945366939163`*^9, 
   3.545894565119306*^9}, 3.545894605867877*^9, 3.546373942055813*^9, 
   3.546373979315847*^9, {3.546451255451297*^9, 3.5464512758840523`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"algorihm_m = \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\",\\n\"\>", 
   "\[InvisibleSpace]", "\<\"algorithm_n = \"\>", "\[InvisibleSpace]", "60", 
   "\[InvisibleSpace]", "\<\",\\n\"\>", 
   "\[InvisibleSpace]", "\<\"algorithm_Z = \"\>", "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\";\\n\\n\"\>", 
   "\[InvisibleSpace]", "\<\"algorithm_alpha = \"\>", "\[InvisibleSpace]", 
   "2", "\[InvisibleSpace]", "\<\",\\n\"\>", 
   "\[InvisibleSpace]", "\<\"algorithm_beta = \"\>", "\[InvisibleSpace]", "2",
    "\[InvisibleSpace]", "\<\",\\n\"\>", 
   "\[InvisibleSpace]", "\<\"algorithm_ns = \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\",\\n\"\>", 
   "\[InvisibleSpace]", "\<\"algorithm_np = \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\";\\n\"\>", 
   "\[InvisibleSpace]", "\<\"algorithm_np_fractional = \"\>", 
   "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\";\\n\\n\"\>", 
   "\[InvisibleSpace]", "\<\"algorithm_table_unsigned = \"\>", 
   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\";\\n\\n\"\>", 
   "\[InvisibleSpace]", "\<\"SRT_table = {\"\>"}],
  SequenceForm[
  "algorihm_m = ", 2, ",\n", "algorithm_n = ", 60, ",\n", "algorithm_Z = ", 6,
    ";\n\n", "algorithm_alpha = ", 2, ",\n", "algorithm_beta = ", 2, ",\n", 
   "algorithm_ns = ", 4, ",\n", "algorithm_np = ", 7, ";\n", 
   "algorithm_np_fractional = ", 3, ";\n\n", "algorithm_table_unsigned = ", 1,
    ";\n\n", "SRT_table = {"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.539184123575447*^9, 3.5391841744568*^9}, 
   3.5391842700848017`*^9, {3.539184308469716*^9, 3.539184322366868*^9}, {
   3.539184406283242*^9, 3.5391844267415237`*^9}, {3.539184457636538*^9, 
   3.539184473920844*^9}, 3.539184613266808*^9, 3.539184714902233*^9, 
   3.539185138584396*^9, {3.539185417714449*^9, 3.539185428861176*^9}, {
   3.539185468555999*^9, 3.539185479296364*^9}, {3.539185532339188*^9, 
   3.539185542397023*^9}, 3.539185635295785*^9, 3.539185681101754*^9, 
   3.5391899000677757`*^9, 3.539189979261402*^9, 3.539355932495013*^9, 
   3.539439262232242*^9, 3.5398760199044123`*^9, 3.539876537389978*^9, 
   3.540641222611856*^9, 3.545883141092063*^9, {3.545883348033709*^9, 
   3.545883356398026*^9}, 3.5458944061674433`*^9, {3.5458945366939163`*^9, 
   3.545894565119306*^9}, 3.545894605867877*^9, 3.546373942055813*^9, 
   3.546373979315847*^9, {3.546451255451297*^9, 3.5464512839025383`*^9}}],

Cell[BoxData["\<\"\\t{3, 3, 3, 3, 3, 3, 3, 2},\\n\\t{3, 3, 3, 3, 3, 3, 3, 2},\
\\n\\t{3, 3, 3, 3, 3, 3, 3, 2},\\n\\t{3, 3, 3, 3, 3, 3, 2, 2},\\n\\t{3, 3, 3, \
3, 3, 3, 2, 2},\\n\\t{3, 3, 3, 3, 3, 2, 2, 2},\\n\\t{3, 3, 3, 3, 3, 2, 2, 2},\
\\n\\t{3, 3, 3, 3, 3, 2, 2, 2},\\n\\t{3, 3, 3, 3, 2, 2, 2, 2},\\n\\t{3, 3, 3, \
3, 2, 2, 2, 2},\\n\\t{3, 3, 3, 3, 2, 2, 2, 2},\\n\\t{3, 3, 3, 2, 2, 2, 2, 2},\
\\n\\t{3, 3, 3, 2, 2, 2, 2, 2},\\n\\t{3, 3, 2, 2, 2, 2, 2, 2},\\n\\t{3, 3, 2, \
2, 2, 2, 2, 2},\\n\\t{3, 3, 2, 2, 2, 2, 2, 2},\\n\\t{3, 2, 2, 2, 2, 2, 2, 2},\
\\n\\t{3, 2, 2, 2, 2, 2, 2, 2},\\n\\t{3, 2, 2, 2, 2, 2, 2, 2},\\n\\t{2, 2, 2, \
2, 2, 2, 2, 2},\\n\\t{2, 2, 2, 2, 2, 2, 2, 1},\\n\\t{2, 2, 2, 2, 2, 2, 2, 1},\
\\n\\t{2, 2, 2, 2, 2, 2, 1, 1},\\n\\t{2, 2, 2, 2, 2, 2, 1, 1},\\n\\t{2, 2, 2, \
2, 2, 1, 1, 1},\\n\\t{2, 2, 2, 2, 2, 1, 1, 1},\\n\\t{2, 2, 2, 2, 1, 1, 1, 1},\
\\n\\t{2, 2, 2, 1, 1, 1, 1, 1},\\n\\t{2, 2, 1, 1, 1, 1, 1, 1},\\n\\t{2, 2, 1, \
1, 1, 1, 1, 1},\\n\\t{2, 1, 1, 1, 1, 1, 1, 1},\\n\\t{1, 1, 1, 1, 1, 1, 1, 1},\
\\n\\t{1, 1, 1, 1, 1, 1, 1, 1},\\n\\t{1, 1, 1, 1, 1, 1, 1, 1},\\n\\t{1, 1, 1, \
1, 1, 1, 1, 1},\\n\\t{1, 1, 1, 1, 1, 1, 1, 1},\\n\\t{1, 1, 1, 1, 1, 0, 0, 0},\
\\n\\t{1, 1, 1, 1, 1, 0, 0, 0},\\n\\t{1, 1, 1, 0, 0, 0, 0, 0},\\n\\t{1, 1, 1, \
0, 0, 0, 0, 0},\\n\\t{0, 0, 0, 0, 0, 0, 0, 0},\\n\\t{0, 0, 0, 0, 0, 0, 0, 0},\
\\n\\t{0, 0, 0, 0, 0, 0, 0, 0},\\n\\t{0, 0, 0, 0, 0, 0, 0, 0},\\n\"\>"], \
"Print",
 CellChangeTimes->{{3.539184123575447*^9, 3.5391841744568*^9}, 
   3.5391842700848017`*^9, {3.539184308469716*^9, 3.539184322366868*^9}, {
   3.539184406283242*^9, 3.5391844267415237`*^9}, {3.539184457636538*^9, 
   3.539184473920844*^9}, 3.539184613266808*^9, 3.539184714902233*^9, 
   3.539185138584396*^9, {3.539185417714449*^9, 3.539185428861176*^9}, {
   3.539185468555999*^9, 3.539185479296364*^9}, {3.539185532339188*^9, 
   3.539185542397023*^9}, 3.539185635295785*^9, 3.539185681101754*^9, 
   3.5391899000677757`*^9, 3.539189979261402*^9, 3.539355932495013*^9, 
   3.539439262232242*^9, 3.5398760199044123`*^9, 3.539876537389978*^9, 
   3.540641222611856*^9, 3.545883141092063*^9, {3.545883348033709*^9, 
   3.545883356398026*^9}, 3.5458944061674433`*^9, {3.5458945366939163`*^9, 
   3.545894565119306*^9}, 3.545894605867877*^9, 3.546373942055813*^9, 
   3.546373979315847*^9, {3.546451255451297*^9, 3.5464512839056273`*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"};\\n\\n\"\>", "\[InvisibleSpace]", "\<\"SRT_table_p0 = \"\>", 
   "\[InvisibleSpace]", 
   FractionBox["43", "8"], "\[InvisibleSpace]", "\<\" << \"\>", 
   "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\";\\n\"\>", 
   "\[InvisibleSpace]", "\<\"SRT_table_dimensions = \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"44", ",", "8"}], "}"}], "\[InvisibleSpace]", "\<\";\\n\"\>", 
   "\[InvisibleSpace]", "\<\"SRT_table_mappings = \"\>", "\[InvisibleSpace]", 
   
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"3", ",", "6", ",", "5"}], "}"}], "}"}], 
   "\[InvisibleSpace]", "\<\";\\n\\n\"\>", 
   "\[InvisibleSpace]", "\<\"SRT_table_mappings_count = \"\>", 
   "\[InvisibleSpace]", "1"}],
  SequenceForm["};\n\n", "SRT_table_p0 = ", 
   Rational[43, 8], " << ", 3, ";\n", "SRT_table_dimensions = ", {44, 8}, 
   ";\n", "SRT_table_mappings = ", {{3, 6, 5}}, ";\n\n", 
   "SRT_table_mappings_count = ", 1],
  Editable->False]], "Print",
 CellChangeTimes->{{3.539184123575447*^9, 3.5391841744568*^9}, 
   3.5391842700848017`*^9, {3.539184308469716*^9, 3.539184322366868*^9}, {
   3.539184406283242*^9, 3.5391844267415237`*^9}, {3.539184457636538*^9, 
   3.539184473920844*^9}, 3.539184613266808*^9, 3.539184714902233*^9, 
   3.539185138584396*^9, {3.539185417714449*^9, 3.539185428861176*^9}, {
   3.539185468555999*^9, 3.539185479296364*^9}, {3.539185532339188*^9, 
   3.539185542397023*^9}, 3.539185635295785*^9, 3.539185681101754*^9, 
   3.5391899000677757`*^9, 3.539189979261402*^9, 3.539355932495013*^9, 
   3.539439262232242*^9, 3.5398760199044123`*^9, 3.539876537389978*^9, 
   3.540641222611856*^9, 3.545883141092063*^9, {3.545883348033709*^9, 
   3.545883356398026*^9}, 3.5458944061674433`*^9, {3.5458945366939163`*^9, 
   3.545894565119306*^9}, 3.545894605867877*^9, 3.546373942055813*^9, 
   3.546373979315847*^9, {3.546451255451297*^9, 3.5464512839142303`*^9}}]
}, Open  ]],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\"\>", 
     FractionBox["1", "2"], 
     FractionBox["9", "16"], 
     FractionBox["5", "8"], 
     FractionBox["11", "16"], 
     FractionBox["3", "4"], 
     FractionBox["13", "16"], 
     FractionBox["7", "8"], 
     FractionBox["15", "16"]},
    {"\<\"1: \\!\\(43\\/8\\)\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\
\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", "2"},
    {"\<\"2: \\!\\(21\\/4\\)\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\
\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", "2"},
    {"\<\"3: \\!\\(41\\/8\\)\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\
\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", "2"},
    {"\<\"4: \\!\\(5\\)\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\"*\"\
\>", "\<\"*\"\>", "\<\"*\"\>", "2", "2"},
    {"\<\"5: \\!\\(39\\/8\\)\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\
\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", "2", "2"},
    {"\<\"6: \\!\\(19\\/4\\)\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\
\"*\"\>", "\<\"*\"\>", "2", "2", "2"},
    {"\<\"7: \\!\\(37\\/8\\)\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\
\"*\"\>", "\<\"*\"\>", "2", "2", "2"},
    {"\<\"8: \\!\\(9\\/2\\)\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", \
"\<\"*\"\>", "\<\"*\"\>", "2", "2", "2"},
    {"\<\"9: \\!\\(35\\/8\\)\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\
\"*\"\>", "2", "2", "2", "2"},
    {"\<\"10: \\!\\(17\\/4\\)\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", \
"\<\"*\"\>", "2", "2", "2", "2"},
    {"\<\"11: \\!\\(33\\/8\\)\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", \
"\<\"*\"\>", "2", "2", "2", "2"},
    {"\<\"12: \\!\\(4\\)\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", "2", 
     "2", "2", "2", "2"},
    {"\<\"13: \\!\\(31\\/8\\)\"\>", "\<\"*\"\>", "\<\"*\"\>", "\<\"*\"\>", 
     "2", "2", "2", "2", "2"},
    {"\<\"14: \\!\\(15\\/4\\)\"\>", "\<\"*\"\>", "\<\"*\"\>", "2", "2", "2", 
     "2", "2", "2"},
    {"\<\"15: \\!\\(29\\/8\\)\"\>", "\<\"*\"\>", "\<\"*\"\>", "2", "2", "2", 
     "2", "2", "2"},
    {"\<\"16: \\!\\(7\\/2\\)\"\>", "\<\"*\"\>", "\<\"*\"\>", "2", "2", "2", 
     "2", "2", "2"},
    {"\<\"17: \\!\\(27\\/8\\)\"\>", "\<\"*\"\>", "2", "2", "2", "2", "2", "2",
      "2"},
    {"\<\"18: \\!\\(13\\/4\\)\"\>", "\<\"*\"\>", "2", "2", "2", "2", "2", "2",
      "2"},
    {"\<\"19: \\!\\(25\\/8\\)\"\>", "\<\"*\"\>", "2", "2", "2", "2", "2", "2",
      "2"},
    {"\<\"20: \\!\\(3\\)\"\>", "2", "2", "2", "2", "2", "2", "2", "2"},
    {"\<\"21: \\!\\(23\\/8\\)\"\>", "2", "2", "2", "2", "2", "2", "2", "1"},
    {"\<\"22: \\!\\(11\\/4\\)\"\>", "2", "2", "2", "2", "2", "2", "2", "1"},
    {"\<\"23: \\!\\(21\\/8\\)\"\>", "2", "2", "2", "2", "2", "2", "1", "1"},
    {"\<\"24: \\!\\(5\\/2\\)\"\>", "2", "2", "2", "2", "2", "2", "1", "1"},
    {"\<\"25: \\!\\(19\\/8\\)\"\>", "2", "2", "2", "2", "2", "1", "1", "1"},
    {"\<\"26: \\!\\(9\\/4\\)\"\>", "2", "2", "2", "2", "2", "1", "1", "1"},
    {"\<\"27: \\!\\(17\\/8\\)\"\>", "2", "2", "2", "2", "1", "1", "1", "1"},
    {"\<\"28: \\!\\(2\\)\"\>", "2", "2", "2", "1", "1", "1", "1", "1"},
    {"\<\"29: \\!\\(15\\/8\\)\"\>", "2", "2", "1", "1", "1", "1", "1", "1"},
    {"\<\"30: \\!\\(7\\/4\\)\"\>", "2", "2", "1", "1", "1", "1", "1", "1"},
    {"\<\"31: \\!\\(13\\/8\\)\"\>", "2", "1", "1", "1", "1", "1", "1", "1"},
    {"\<\"32: \\!\\(3\\/2\\)\"\>", "1", "1", "1", "1", "1", "1", "1", "1"},
    {"\<\"33: \\!\\(11\\/8\\)\"\>", "1", "1", "1", "1", "1", "1", "1", "1"},
    {"\<\"34: \\!\\(5\\/4\\)\"\>", "1", "1", "1", "1", "1", "1", "1", "1"},
    {"\<\"35: \\!\\(9\\/8\\)\"\>", "1", "1", "1", "1", "1", "1", "1", "1"},
    {"\<\"36: \\!\\(1\\)\"\>", "1", "1", "1", "1", "1", "1", "1", "1"},
    {"\<\"37: \\!\\(7\\/8\\)\"\>", "1", "1", "1", "1", "1", "0", "0", "0"},
    {"\<\"38: \\!\\(3\\/4\\)\"\>", "1", "1", "1", "1", "1", "0", "0", "0"},
    {"\<\"39: \\!\\(5\\/8\\)\"\>", "1", "1", "1", "0", "0", "0", "0", "0"},
    {"\<\"40: \\!\\(1\\/2\\)\"\>", "1", "1", "1", "0", "0", "0", "0", "0"},
    {"\<\"41: \\!\\(3\\/8\\)\"\>", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"\<\"42: \\!\\(1\\/4\\)\"\>", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"\<\"43: \\!\\(1\\/8\\)\"\>", "0", "0", "0", "0", "0", "0", "0", "0"},
    {"\<\"44: \\!\\(0\\)\"\>", "0", "0", "0", "0", "0", "0", "0", "0"}
   },
   AutoDelete->False,
   GridBoxBackground->{
    "Columns" -> {{None}}, "Rows" -> {{None}}, 
     "ItemsIndexed" -> {{2, 2} -> Hue[0., 0.5, 0.9], {2, 3} -> 
       Hue[0., 0.5, 0.9], {2, 4} -> Hue[0., 0.5, 0.9], {2, 5} -> 
       Hue[0., 0.5, 0.9], {2, 6} -> Hue[0., 0.5, 0.9], {2, 7} -> 
       Hue[0., 0.5, 0.9], {2, 8} -> Hue[0., 0.5, 0.9], {2, 9} -> 
       Hue[0.5, 0.5, 0.9], {3, 2} -> Hue[0., 0.5, 0.9], {3, 3} -> 
       Hue[0., 0.5, 0.9], {3, 4} -> Hue[0., 0.5, 0.9], {3, 5} -> 
       Hue[0., 0.5, 0.9], {3, 6} -> Hue[0., 0.5, 0.9], {3, 7} -> 
       Hue[0., 0.5, 0.9], {3, 8} -> Hue[0., 0.5, 0.9], {3, 9} -> 
       Hue[0.5, 0.5, 0.9], {4, 2} -> Hue[0., 0.5, 0.9], {4, 3} -> 
       Hue[0., 0.5, 0.9], {4, 4} -> Hue[0., 0.5, 0.9], {4, 5} -> 
       Hue[0., 0.5, 0.9], {4, 6} -> Hue[0., 0.5, 0.9], {4, 7} -> 
       Hue[0., 0.5, 0.9], {4, 8} -> Hue[0., 0.5, 0.9], {4, 9} -> 
       Hue[0.5, 0.5, 0.9], {5, 2} -> Hue[0., 0.5, 0.9], {5, 3} -> 
       Hue[0., 0.5, 0.9], {5, 4} -> Hue[0., 0.5, 0.9], {5, 5} -> 
       Hue[0., 0.5, 0.9], {5, 6} -> Hue[0., 0.5, 0.9], {5, 7} -> 
       Hue[0., 0.5, 0.9], {5, 8} -> Hue[0.5, 0.5, 0.9], {5, 9} -> 
       Hue[0.5, 0.5, 0.9], {6, 2} -> Hue[0., 0.5, 0.9], {6, 3} -> 
       Hue[0., 0.5, 0.9], {6, 4} -> Hue[0., 0.5, 0.9], {6, 5} -> 
       Hue[0., 0.5, 0.9], {6, 6} -> Hue[0., 0.5, 0.9], {6, 7} -> 
       Hue[0., 0.5, 0.9], {6, 8} -> Hue[0.5, 0.5, 0.9], {6, 9} -> 
       Hue[0.5, 0.5, 0.9], {7, 2} -> Hue[0., 0.5, 0.9], {7, 3} -> 
       Hue[0., 0.5, 0.9], {7, 4} -> Hue[0., 0.5, 0.9], {7, 5} -> 
       Hue[0., 0.5, 0.9], {7, 6} -> Hue[0., 0.5, 0.9], {7, 7} -> 
       Hue[0.5, 0.5, 0.9], {7, 8} -> Hue[0.5, 0.5, 0.9], {7, 9} -> 
       Hue[0.5, 0.5, 0.9], {8, 2} -> Hue[0., 0.5, 0.9], {8, 3} -> 
       Hue[0., 0.5, 0.9], {8, 4} -> Hue[0., 0.5, 0.9], {8, 5} -> 
       Hue[0., 0.5, 0.9], {8, 6} -> Hue[0., 0.5, 0.9], {8, 7} -> 
       Hue[0.5, 0.5, 0.9], {8, 8} -> Hue[0.5, 0.5, 0.9], {8, 9} -> 
       Hue[0.5, 0.5, 0.9], {9, 2} -> Hue[0., 0.5, 0.9], {9, 3} -> 
       Hue[0., 0.5, 0.9], {9, 4} -> Hue[0., 0.5, 0.9], {9, 5} -> 
       Hue[0., 0.5, 0.9], {9, 6} -> Hue[0., 0.5, 0.9], {9, 7} -> 
       Hue[0.5, 0.5, 0.9], {9, 8} -> Hue[0.5, 0.5, 0.9], {9, 9} -> 
       Hue[0.5, 0.5, 0.9], {10, 2} -> Hue[0., 0.5, 0.9], {10, 3} -> 
       Hue[0., 0.5, 0.9], {10, 4} -> Hue[0., 0.5, 0.9], {10, 5} -> 
       Hue[0., 0.5, 0.9], {10, 6} -> Hue[0.5, 0.5, 0.9], {10, 7} -> 
       Hue[0.5, 0.5, 0.9], {10, 8} -> Hue[0.5, 0.5, 0.9], {10, 9} -> 
       Hue[0.5, 0.5, 0.9], {11, 2} -> Hue[0., 0.5, 0.9], {11, 3} -> 
       Hue[0., 0.5, 0.9], {11, 4} -> Hue[0., 0.5, 0.9], {11, 5} -> 
       Hue[0., 0.5, 0.9], {11, 6} -> Hue[0.5, 0.5, 0.9], {11, 7} -> 
       Hue[0.5, 0.5, 0.9], {11, 8} -> Hue[0.5, 0.5, 0.9], {11, 9} -> 
       Hue[0.5, 0.5, 0.9], {12, 2} -> Hue[0., 0.5, 0.9], {12, 3} -> 
       Hue[0., 0.5, 0.9], {12, 4} -> Hue[0., 0.5, 0.9], {12, 5} -> 
       Hue[0., 0.5, 0.9], {12, 6} -> Hue[0.5, 0.5, 0.9], {12, 7} -> 
       Hue[0.5, 0.5, 0.9], {12, 8} -> Hue[0.5, 0.5, 0.9], {12, 9} -> 
       Hue[0.5, 0.5, 0.9], {13, 2} -> Hue[0., 0.5, 0.9], {13, 3} -> 
       Hue[0., 0.5, 0.9], {13, 4} -> Hue[0., 0.5, 0.9], {13, 5} -> 
       Hue[0.5, 0.5, 0.9], {13, 6} -> Hue[0.5, 0.5, 0.9], {13, 7} -> 
       Hue[0.5, 0.5, 0.9], {13, 8} -> Hue[0.5, 0.5, 0.9], {13, 9} -> 
       Hue[0.5, 0.5, 0.9], {14, 2} -> Hue[0., 0.5, 0.9], {14, 3} -> 
       Hue[0., 0.5, 0.9], {14, 4} -> Hue[0., 0.5, 0.9], {14, 5} -> 
       Hue[0.5, 0.5, 0.9], {14, 6} -> Hue[0.5, 0.5, 0.9], {14, 7} -> 
       Hue[0.5, 0.5, 0.9], {14, 8} -> Hue[0.5, 0.5, 0.9], {14, 9} -> 
       Hue[0.5, 0.5, 0.9], {15, 2} -> Hue[0., 0.5, 0.9], {15, 3} -> 
       Hue[0., 0.5, 0.9], {15, 4} -> Hue[0.5, 0.5, 0.9], {15, 5} -> 
       Hue[0.5, 0.5, 0.9], {15, 6} -> Hue[0.5, 0.5, 0.9], {15, 7} -> 
       Hue[0.5, 0.5, 0.9], {15, 8} -> Hue[0.5, 0.5, 0.9], {15, 9} -> 
       Hue[0.5, 0.5, 0.9], {16, 2} -> Hue[0., 0.5, 0.9], {16, 3} -> 
       Hue[0., 0.5, 0.9], {16, 4} -> Hue[0.5, 0.5, 0.9], {16, 5} -> 
       Hue[0.5, 0.5, 0.9], {16, 6} -> Hue[0.5, 0.5, 0.9], {16, 7} -> 
       Hue[0.5, 0.5, 0.9], {16, 8} -> Hue[0.5, 0.5, 0.9], {16, 9} -> 
       Hue[0.5, 0.5, 0.9], {17, 2} -> Hue[0., 0.5, 0.9], {17, 3} -> 
       Hue[0., 0.5, 0.9], {17, 4} -> Hue[0.5, 0.5, 0.9], {17, 5} -> 
       Hue[0.5, 0.5, 0.9], {17, 6} -> Hue[0.5, 0.5, 0.9], {17, 7} -> 
       Hue[0.5, 0.5, 0.9], {17, 8} -> Hue[0.5, 0.5, 0.9], {17, 9} -> 
       Hue[0.5, 0.5, 0.9], {18, 2} -> Hue[0., 0.5, 0.9], {18, 3} -> 
       Hue[0.5, 0.5, 0.9], {18, 4} -> Hue[0.5, 0.5, 0.9], {18, 5} -> 
       Hue[0.5, 0.5, 0.9], {18, 6} -> Hue[0.5, 0.5, 0.9], {18, 7} -> 
       Hue[0.5, 0.5, 0.9], {18, 8} -> Hue[0.5, 0.5, 0.9], {18, 9} -> 
       Hue[0.5, 0.5, 0.9], {19, 2} -> Hue[0., 0.5, 0.9], {19, 3} -> 
       Hue[0.5, 0.5, 0.9], {19, 4} -> Hue[0.5, 0.5, 0.9], {19, 5} -> 
       Hue[0.5, 0.5, 0.9], {19, 6} -> Hue[0.5, 0.5, 0.9], {19, 7} -> 
       Hue[0.5, 0.5, 0.9], {19, 8} -> Hue[0.5, 0.5, 0.9], {19, 9} -> 
       Hue[0.5, 0.5, 0.9], {20, 2} -> Hue[0., 0.5, 0.9], {20, 3} -> 
       Hue[0.5, 0.5, 0.9], {20, 4} -> Hue[0.5, 0.5, 0.9], {20, 5} -> 
       Hue[0.5, 0.5, 0.9], {20, 6} -> Hue[0.5, 0.5, 0.9], {20, 7} -> 
       Hue[0.5, 0.5, 0.9], {20, 8} -> Hue[0.5, 0.5, 0.9], {20, 9} -> 
       Hue[0.5, 0.5, 0.9], {21, 2} -> Hue[0.5, 0.5, 0.9], {21, 3} -> 
       Hue[0.5, 0.5, 0.9], {21, 4} -> Hue[0.5, 0.5, 0.9], {21, 5} -> 
       Hue[0.5, 0.5, 0.9], {21, 6} -> Hue[0.5, 0.5, 0.9], {21, 7} -> 
       Hue[0.5, 0.5, 0.9], {21, 8} -> Hue[0.5, 0.5, 0.9], {21, 9} -> 
       Hue[0.5, 0.5, 0.9], {22, 2} -> Hue[0.5, 0.5, 0.9], {22, 3} -> 
       Hue[0.5, 0.5, 0.9], {22, 4} -> Hue[0.5, 0.5, 0.9], {22, 5} -> 
       Hue[0.5, 0.5, 0.9], {22, 6} -> Hue[0.5, 0.5, 0.9], {22, 7} -> 
       Hue[0.5, 0.5, 0.9], {22, 8} -> Hue[0.5, 0.5, 0.9], {22, 9} -> 
       Hue[0.4, 0.5, 0.9], {23, 2} -> Hue[0.5, 0.5, 0.9], {23, 3} -> 
       Hue[0.5, 0.5, 0.9], {23, 4} -> Hue[0.5, 0.5, 0.9], {23, 5} -> 
       Hue[0.5, 0.5, 0.9], {23, 6} -> Hue[0.5, 0.5, 0.9], {23, 7} -> 
       Hue[0.5, 0.5, 0.9], {23, 8} -> Hue[0.5, 0.5, 0.9], {23, 9} -> 
       Hue[0.4, 0.5, 0.9], {24, 2} -> Hue[0.5, 0.5, 0.9], {24, 3} -> 
       Hue[0.5, 0.5, 0.9], {24, 4} -> Hue[0.5, 0.5, 0.9], {24, 5} -> 
       Hue[0.5, 0.5, 0.9], {24, 6} -> Hue[0.5, 0.5, 0.9], {24, 7} -> 
       Hue[0.5, 0.5, 0.9], {24, 8} -> Hue[0.4, 0.5, 0.9], {24, 9} -> 
       Hue[0.4, 0.5, 0.9], {25, 2} -> Hue[0.5, 0.5, 0.9], {25, 3} -> 
       Hue[0.5, 0.5, 0.9], {25, 4} -> Hue[0.5, 0.5, 0.9], {25, 5} -> 
       Hue[0.5, 0.5, 0.9], {25, 6} -> Hue[0.5, 0.5, 0.9], {25, 7} -> 
       Hue[0.5, 0.5, 0.9], {25, 8} -> Hue[0.4, 0.5, 0.9], {25, 9} -> 
       Hue[0.4, 0.5, 0.9], {26, 2} -> Hue[0.5, 0.5, 0.9], {26, 3} -> 
       Hue[0.5, 0.5, 0.9], {26, 4} -> Hue[0.5, 0.5, 0.9], {26, 5} -> 
       Hue[0.5, 0.5, 0.9], {26, 6} -> Hue[0.5, 0.5, 0.9], {26, 7} -> 
       Hue[0.4, 0.5, 0.9], {26, 8} -> Hue[0.4, 0.5, 0.9], {26, 9} -> 
       Hue[0.4, 0.5, 0.9], {27, 2} -> Hue[0.5, 0.5, 0.9], {27, 3} -> 
       Hue[0.5, 0.5, 0.9], {27, 4} -> Hue[0.5, 0.5, 0.9], {27, 5} -> 
       Hue[0.5, 0.5, 0.9], {27, 6} -> Hue[0.5, 0.5, 0.9], {27, 7} -> 
       Hue[0.4, 0.5, 0.9], {27, 8} -> Hue[0.4, 0.5, 0.9], {27, 9} -> 
       Hue[0.4, 0.5, 0.9], {28, 2} -> Hue[0.5, 0.5, 0.9], {28, 3} -> 
       Hue[0.5, 0.5, 0.9], {28, 4} -> Hue[0.5, 0.5, 0.9], {28, 5} -> 
       Hue[0.5, 0.5, 0.9], {28, 6} -> Hue[0.4, 0.5, 0.9], {28, 7} -> 
       Hue[0.4, 0.5, 0.9], {28, 8} -> Hue[0.4, 0.5, 0.9], {28, 9} -> 
       Hue[0.4, 0.5, 0.9], {29, 2} -> Hue[0.5, 0.5, 0.9], {29, 3} -> 
       Hue[0.5, 0.5, 0.9], {29, 4} -> Hue[0.5, 0.5, 0.9], {29, 5} -> 
       Hue[0.4, 0.5, 0.9], {29, 6} -> Hue[0.4, 0.5, 0.9], {29, 7} -> 
       Hue[0.4, 0.5, 0.9], {29, 8} -> Hue[0.4, 0.5, 0.9], {29, 9} -> 
       Hue[0.4, 0.5, 0.9], {30, 2} -> Hue[0.5, 0.5, 0.9], {30, 3} -> 
       Hue[0.5, 0.5, 0.9], {30, 4} -> Hue[0.4, 0.5, 0.9], {30, 5} -> 
       Hue[0.4, 0.5, 0.9], {30, 6} -> Hue[0.4, 0.5, 0.9], {30, 7} -> 
       Hue[0.4, 0.5, 0.9], {30, 8} -> Hue[0.4, 0.5, 0.9], {30, 9} -> 
       Hue[0.4, 0.5, 0.9], {31, 2} -> Hue[0.5, 0.5, 0.9], {31, 3} -> 
       Hue[0.5, 0.5, 0.9], {31, 4} -> Hue[0.4, 0.5, 0.9], {31, 5} -> 
       Hue[0.4, 0.5, 0.9], {31, 6} -> Hue[0.4, 0.5, 0.9], {31, 7} -> 
       Hue[0.4, 0.5, 0.9], {31, 8} -> Hue[0.4, 0.5, 0.9], {31, 9} -> 
       Hue[0.4, 0.5, 0.9], {32, 2} -> Hue[0.5, 0.5, 0.9], {32, 3} -> 
       Hue[0.4, 0.5, 0.9], {32, 4} -> Hue[0.4, 0.5, 0.9], {32, 5} -> 
       Hue[0.4, 0.5, 0.9], {32, 6} -> Hue[0.4, 0.5, 0.9], {32, 7} -> 
       Hue[0.4, 0.5, 0.9], {32, 8} -> Hue[0.4, 0.5, 0.9], {32, 9} -> 
       Hue[0.4, 0.5, 0.9], {33, 2} -> Hue[0.4, 0.5, 0.9], {33, 3} -> 
       Hue[0.4, 0.5, 0.9], {33, 4} -> Hue[0.4, 0.5, 0.9], {33, 5} -> 
       Hue[0.4, 0.5, 0.9], {33, 6} -> Hue[0.4, 0.5, 0.9], {33, 7} -> 
       Hue[0.4, 0.5, 0.9], {33, 8} -> Hue[0.4, 0.5, 0.9], {33, 9} -> 
       Hue[0.4, 0.5, 0.9], {34, 2} -> Hue[0.4, 0.5, 0.9], {34, 3} -> 
       Hue[0.4, 0.5, 0.9], {34, 4} -> Hue[0.4, 0.5, 0.9], {34, 5} -> 
       Hue[0.4, 0.5, 0.9], {34, 6} -> Hue[0.4, 0.5, 0.9], {34, 7} -> 
       Hue[0.4, 0.5, 0.9], {34, 8} -> Hue[0.4, 0.5, 0.9], {34, 9} -> 
       Hue[0.4, 0.5, 0.9], {35, 2} -> Hue[0.4, 0.5, 0.9], {35, 3} -> 
       Hue[0.4, 0.5, 0.9], {35, 4} -> Hue[0.4, 0.5, 0.9], {35, 5} -> 
       Hue[0.4, 0.5, 0.9], {35, 6} -> Hue[0.4, 0.5, 0.9], {35, 7} -> 
       Hue[0.4, 0.5, 0.9], {35, 8} -> Hue[0.4, 0.5, 0.9], {35, 9} -> 
       Hue[0.4, 0.5, 0.9], {36, 2} -> Hue[0.4, 0.5, 0.9], {36, 3} -> 
       Hue[0.4, 0.5, 0.9], {36, 4} -> Hue[0.4, 0.5, 0.9], {36, 5} -> 
       Hue[0.4, 0.5, 0.9], {36, 6} -> Hue[0.4, 0.5, 0.9], {36, 7} -> 
       Hue[0.4, 0.5, 0.9], {36, 8} -> Hue[0.4, 0.5, 0.9], {36, 9} -> 
       Hue[0.4, 0.5, 0.9], {37, 2} -> Hue[0.4, 0.5, 0.9], {37, 3} -> 
       Hue[0.4, 0.5, 0.9], {37, 4} -> Hue[0.4, 0.5, 0.9], {37, 5} -> 
       Hue[0.4, 0.5, 0.9], {37, 6} -> Hue[0.4, 0.5, 0.9], {37, 7} -> 
       Hue[0.4, 0.5, 0.9], {37, 8} -> Hue[0.4, 0.5, 0.9], {37, 9} -> 
       Hue[0.4, 0.5, 0.9], {38, 2} -> Hue[0.4, 0.5, 0.9], {38, 3} -> 
       Hue[0.4, 0.5, 0.9], {38, 4} -> Hue[0.4, 0.5, 0.9], {38, 5} -> 
       Hue[0.4, 0.5, 0.9], {38, 6} -> Hue[0.4, 0.5, 0.9], {38, 7} -> 
       Hue[0.3, 0.5, 0.9], {38, 8} -> Hue[0.3, 0.5, 0.9], {38, 9} -> 
       Hue[0.3, 0.5, 0.9], {39, 2} -> Hue[0.4, 0.5, 0.9], {39, 3} -> 
       Hue[0.4, 0.5, 0.9], {39, 4} -> Hue[0.4, 0.5, 0.9], {39, 5} -> 
       Hue[0.4, 0.5, 0.9], {39, 6} -> Hue[0.4, 0.5, 0.9], {39, 7} -> 
       Hue[0.3, 0.5, 0.9], {39, 8} -> Hue[0.3, 0.5, 0.9], {39, 9} -> 
       Hue[0.3, 0.5, 0.9], {40, 2} -> Hue[0.4, 0.5, 0.9], {40, 3} -> 
       Hue[0.4, 0.5, 0.9], {40, 4} -> Hue[0.4, 0.5, 0.9], {40, 5} -> 
       Hue[0.3, 0.5, 0.9], {40, 6} -> Hue[0.3, 0.5, 0.9], {40, 7} -> 
       Hue[0.3, 0.5, 0.9], {40, 8} -> Hue[0.3, 0.5, 0.9], {40, 9} -> 
       Hue[0.3, 0.5, 0.9], {41, 2} -> Hue[0.4, 0.5, 0.9], {41, 3} -> 
       Hue[0.4, 0.5, 0.9], {41, 4} -> Hue[0.4, 0.5, 0.9], {41, 5} -> 
       Hue[0.3, 0.5, 0.9], {41, 6} -> Hue[0.3, 0.5, 0.9], {41, 7} -> 
       Hue[0.3, 0.5, 0.9], {41, 8} -> Hue[0.3, 0.5, 0.9], {41, 9} -> 
       Hue[0.3, 0.5, 0.9], {42, 2} -> Hue[0.3, 0.5, 0.9], {42, 3} -> 
       Hue[0.3, 0.5, 0.9], {42, 4} -> Hue[0.3, 0.5, 0.9], {42, 5} -> 
       Hue[0.3, 0.5, 0.9], {42, 6} -> Hue[0.3, 0.5, 0.9], {42, 7} -> 
       Hue[0.3, 0.5, 0.9], {42, 8} -> Hue[0.3, 0.5, 0.9], {42, 9} -> 
       Hue[0.3, 0.5, 0.9], {43, 2} -> Hue[0.3, 0.5, 0.9], {43, 3} -> 
       Hue[0.3, 0.5, 0.9], {43, 4} -> Hue[0.3, 0.5, 0.9], {43, 5} -> 
       Hue[0.3, 0.5, 0.9], {43, 6} -> Hue[0.3, 0.5, 0.9], {43, 7} -> 
       Hue[0.3, 0.5, 0.9], {43, 8} -> Hue[0.3, 0.5, 0.9], {43, 9} -> 
       Hue[0.3, 0.5, 0.9], {44, 2} -> Hue[0.3, 0.5, 0.9], {44, 3} -> 
       Hue[0.3, 0.5, 0.9], {44, 4} -> Hue[0.3, 0.5, 0.9], {44, 5} -> 
       Hue[0.3, 0.5, 0.9], {44, 6} -> Hue[0.3, 0.5, 0.9], {44, 7} -> 
       Hue[0.3, 0.5, 0.9], {44, 8} -> Hue[0.3, 0.5, 0.9], {44, 9} -> 
       Hue[0.3, 0.5, 0.9], {45, 2} -> Hue[0.3, 0.5, 0.9], {45, 3} -> 
       Hue[0.3, 0.5, 0.9], {45, 4} -> Hue[0.3, 0.5, 0.9], {45, 5} -> 
       Hue[0.3, 0.5, 0.9], {45, 6} -> Hue[0.3, 0.5, 0.9], {45, 7} -> 
       Hue[0.3, 0.5, 0.9], {45, 8} -> Hue[0.3, 0.5, 0.9], {45, 9} -> 
       Hue[0.3, 0.5, 0.9]}},
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxSpacings->{"Columns" -> {{3}}, "Rows" -> {{1}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.5463739855841208`*^9, {3.5464512635139523`*^9, 3.546451283943556*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Transpose", "@", "smart`constants"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{3.539190298685007*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["11", "4"], ",", 
     FractionBox["3", "2"], ",", 
     FractionBox["1", "2"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["13", "4"], ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["9", "4"], ",", "3", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.539190300415547*^9}]
}, Open  ]]
},
WindowSize->{1454, 700},
WindowMargins->{{365, Automatic}, {Automatic, 208}},
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 25473, 527, 1523, "Input"],
Cell[CellGroupData[{
Cell[26065, 553, 1206, 21, 29, "Print"],
Cell[27274, 576, 2485, 40, 201, "Print"],
Cell[29762, 618, 2370, 31, 681, "Print"],
Cell[32135, 651, 1940, 35, 133, "Print"]
}, Open  ]],
Cell[34090, 689, 16912, 260, 1429, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51039, 954, 152, 4, 43, "Input"],
Cell[51194, 960, 562, 18, 46, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)