graphics.nb

(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    134857,       2901]
NotebookOptionsPosition[    133645,       2855]
NotebookOutlinePosition[    134001,       2871]
CellTagsIndexPosition[    133958,       2868]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["2 eint matrix", "Chapter",
 CellChangeTimes->{{3.733066566340626*^9, 3.7330665734648123`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"boxColour", "[", 
   RowBox[{"l_", ",", "m_"}], "]"}], ":=", 
  RowBox[{"Which", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"l", "\[Equal]", "1"}], ")"}], " ", "&&", 
      RowBox[{"(", 
       RowBox[{"m", "\[Equal]", "1"}], ")"}]}], ")"}], ",", "Red", ",", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"l", "\[Equal]", "2"}], ")"}], " ", "&&", 
      RowBox[{"(", 
       RowBox[{"m", "\[Equal]", "1"}], ")"}]}], ")"}], ",", " ", "Green", ",", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"l", "\[Equal]", "2"}], ")"}], " ", "&&", 
      RowBox[{"(", 
       RowBox[{"m", "\[Equal]", "2"}], ")"}]}], ")"}], ",", " ", "Blue", ",", 
    
    RowBox[{"(", 
     RowBox[{"1", "\[Equal]", "1"}], ")"}], ",", "White"}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.733493136189118*^9, 3.733493203911672*^9}, {
  3.733493304973748*^9, 3.733493348087069*^9}, {3.733493673240919*^9, 
  3.733493674056506*^9}, {3.733493797523238*^9, 3.733493812844595*^9}, {
  3.733493930281107*^9, 3.733493965539377*^9}, {3.7335870590736713`*^9, 
  3.733587060183976*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"basebox", "[", 
   RowBox[{
   "L_", ",", "M_", ",", "P_", ",", "Q_", ",", "R_", ",", "S_", ",", "I_", 
    ",", "x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"EdgeForm", "[", "Thin", "]"}], ",", 
    RowBox[{"boxColour", "[", 
     RowBox[{"L", ",", "M"}], "]"}], ",", 
    RowBox[{"Rectangle", "[", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    "Black", ",", "\[IndentingNewLine]", 
    RowBox[{"Text", "[", 
     RowBox[{"L", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{".25", "+", "x"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", "/", "4"}], "+", 
           RowBox[{"1", "/", "8"}]}], ")"}], "+", "y"}]}], "}"}]}], "]"}], 
    ",", 
    RowBox[{"Text", "[", 
     RowBox[{"M", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{".75", "+", "x"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", "/", "4"}], "+", 
           RowBox[{"1", "/", "8"}]}], ")"}], "+", "y"}]}], "}"}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Text", "[", 
     RowBox[{"P", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{".25", "+", "x"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "/", "4"}], "+", 
           RowBox[{"1", "/", "8"}]}], ")"}], "+", "y"}]}], "}"}]}], "]"}], 
    ",", 
    RowBox[{"Text", "[", 
     RowBox[{"Q", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{".75", "+", "x"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "/", "4"}], "+", 
           RowBox[{"1", "/", "8"}]}], ")"}], "+", "y"}]}], "}"}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Text", "[", 
     RowBox[{"R", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{".25", "+", "x"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"1", "/", "4"}], "+", 
           RowBox[{"1", "/", "8"}]}], ")"}], "+", "y"}]}], "}"}]}], "]"}], 
    ",", 
    RowBox[{"Text", "[", 
     RowBox[{"S", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{".75", "+", "x"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"1", "/", "4"}], "+", 
           RowBox[{"1", "/", "8"}]}], ")"}], "+", "y"}]}], "}"}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Text", "[", 
     RowBox[{"I", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{".50", "+", "x"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"0", "/", "4"}], "+", 
           RowBox[{"1", "/", "8"}]}], ")"}], "+", "y"}]}], "}"}]}], "]"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.718471058425853*^9, 3.718471135854254*^9}, {
   3.7184712333855753`*^9, 3.718471248403038*^9}, {3.718471292105444*^9, 
   3.718471393935247*^9}, {3.718472968902315*^9, 3.7184729714568863`*^9}, {
   3.718474678977363*^9, 3.718474685839282*^9}, 3.733065737303604*^9, {
   3.7330663794367456`*^9, 3.7330663845402317`*^9}, {3.7334928665546103`*^9, 
   3.7334928797669287`*^9}, {3.733493003522807*^9, 3.7334930138062267`*^9}, {
   3.733493076342005*^9, 3.733493077487015*^9}, {3.733493220942966*^9, 
   3.733493226199226*^9}, {3.7334937692896223`*^9, 3.7334937706305923`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", 
       "0", ",", "0"}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "2", ",", "1", ",", "1", ",", "1", ",", "2", ",", 
       "1", ",", "0"}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "2", ",", "2", ",", "1", ",", "1", ",", "4", ",", 
       "2", ",", "0"}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "1", ",", "1", ",", "1", ",", "7", ",", 
       "3", ",", "0"}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "2", ",", "1", ",", "1", ",", "11", ",", 
       "4", ",", "0"}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "3", ",", "1", ",", "1", ",", "16", ",", 
       "5", ",", "0"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "22", ",", 
       "6", ",", "0"}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "1", ",", "1", ",", "1", ",", "29", ",", 
       "7", ",", "0"}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "2", ",", "1", ",", "1", ",", "37", ",", 
       "8", ",", "0"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "2", ",", "1", ",", "2", ",", "1", ",", "3", ",", 
       "1", ",", 
       RowBox[{"-", "1"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "2", ",", "2", ",", "2", ",", "1", ",", "5", ",", 
       "2", ",", 
       RowBox[{"-", "1"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "1", ",", "2", ",", "1", ",", "8", ",", 
       "3", ",", 
       RowBox[{"-", "1"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "2", ",", "2", ",", "1", ",", "12", ",", 
       "4", ",", 
       RowBox[{"-", "1"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "3", ",", "2", ",", "1", ",", "17", ",", 
       "5", ",", 
       RowBox[{"-", "1"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "1", ",", "1", ",", "2", ",", "1", ",", "23", ",", 
       "6", ",", 
       RowBox[{"-", "1"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "1", ",", "2", ",", "1", ",", "30", ",", 
       "7", ",", 
       RowBox[{"-", "1"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "2", ",", "2", ",", "1", ",", "38", ",", 
       "8", ",", 
       RowBox[{"-", "1"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "2", ",", "2", ",", "2", ",", "2", ",", "6", ",", 
       "2", ",", 
       RowBox[{"-", "2"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "1", ",", "2", ",", "2", ",", "9", ",", 
       "3", ",", 
       RowBox[{"-", "2"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "2", ",", "2", ",", "2", ",", "13", ",", 
       "4", ",", 
       RowBox[{"-", "2"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "3", ",", "2", ",", "2", ",", "18", ",", 
       "5", ",", 
       RowBox[{"-", "2"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "24", ",", 
       "6", ",", 
       RowBox[{"-", "2"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "1", ",", "2", ",", "2", ",", "31", ",", 
       "7", ",", 
       RowBox[{"-", "2"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "2", ",", "2", ",", "2", ",", "39", ",", 
       "8", ",", 
       RowBox[{"-", "2"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "1", ",", "3", ",", "1", ",", "10", ",", 
       "3", ",", 
       RowBox[{"-", "3"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "2", ",", "3", ",", "1", ",", "14", ",", 
       "4", ",", 
       RowBox[{"-", "3"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "3", ",", "3", ",", "1", ",", "19", ",", 
       "5", ",", 
       RowBox[{"-", "3"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "1", ",", "1", ",", "3", ",", "1", ",", "25", ",", 
       "6", ",", 
       RowBox[{"-", "3"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "1", ",", "3", ",", "1", ",", "32", ",", 
       "7", ",", 
       RowBox[{"-", "3"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "2", ",", "3", ",", "1", ",", "40", ",", 
       "8", ",", 
       RowBox[{"-", "3"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "2", ",", "3", ",", "2", ",", "15", ",", 
       "4", ",", 
       RowBox[{"-", "4"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "3", ",", "3", ",", "2", ",", "20", ",", 
       "5", ",", 
       RowBox[{"-", "4"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "1", ",", "1", ",", "3", ",", "2", ",", "26", ",", 
       "6", ",", 
       RowBox[{"-", "4"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "1", ",", "3", ",", "2", ",", "33", ",", 
       "7", ",", 
       RowBox[{"-", "4"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "2", ",", "3", ",", "2", ",", "41", ",", 
       "8", ",", 
       RowBox[{"-", "4"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "3", ",", "3", ",", "3", ",", "21", ",", 
       "5", ",", 
       RowBox[{"-", "5"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "1", ",", "1", ",", "3", ",", "3", ",", "27", ",", 
       "6", ",", 
       RowBox[{"-", "5"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "1", ",", "3", ",", "3", ",", "34", ",", 
       "7", ",", 
       RowBox[{"-", "5"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "2", ",", "3", ",", "3", ",", "42", ",", 
       "8", ",", 
       RowBox[{"-", "5"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "2", ",", "1", ",", "1", ",", "1", ",", "1", ",", "28", ",", 
       "6", ",", 
       RowBox[{"-", "6"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "2", ",", "2", ",", "1", ",", "1", ",", "1", ",", "35", ",", 
       "7", ",", 
       RowBox[{"-", "6"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "2", ",", "2", ",", "2", ",", "1", ",", "1", ",", "43", ",", 
       "8", ",", 
       RowBox[{"-", "6"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "2", ",", "2", ",", "1", ",", "2", ",", "1", ",", "36", ",", 
       "7", ",", 
       RowBox[{"-", "7"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "1", ",", "44", ",", 
       "8", ",", 
       RowBox[{"-", "7"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "45", ",", 
       "8", ",", 
       RowBox[{"-", "8"}]}], "]"}], ",", " ", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "\"\<L\>\"", ",", "\"\<M\>\"", ",", "\"\<P\>\"", ",", "\"\<Q\>\"", ",", 
       "\"\<R\>\"", ",", "\"\<S\>\"", ",", "\"\<I\>\"", ",", "0", ",", 
       RowBox[{"-", "8"}]}], "]"}]}], "}"}], ",", " ", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontSize", "\[Rule]", "20"}], ",", 
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "1000"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBWIQHdK0YGb2lteOc1ZZrgPR04ud9oLoBTuN9oNoMaGf
10F0zlLxGyD6VwXjXRCtVpP1FEQzJeen5gBphv9HwfQEds81INqHY/pmED1v
MfMOEH2l4dRBEG0al38cRCdcm3sJRKe6PL8JohU6L34B0dc3hv0E0ZuXVTHm
Aum6hr9sIDpkb5wwiP5QcEACRLPI7pEF0WGnHimB6Bq1xbogOije0QJEd2zc
5w2iew5aB4DoRfYnEkD0pYS2aKcLrx21ZJsSQPSsGV4MQhdfO+p5dTCC6BWJ
rDwgerWyBZjum6oUAaLb9CaB6QNRCy6D6Lxv/VdA9LqHWxVFgHTYyvkqIBoA
DTOwFg==
  "]],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{0, 0}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{0.25, Rational[7, 8]}, {0.25, 0.875}]], 
     InsetBox["1", NCache[{0.75, Rational[7, 8]}, {0.75, 0.875}]], 
     InsetBox["1", NCache[{0.25, Rational[5, 8]}, {0.25, 0.625}]], 
     InsetBox["1", NCache[{0.75, Rational[5, 8]}, {0.75, 0.625}]], 
     InsetBox["1", NCache[{0.25, Rational[3, 8]}, {0.25, 0.375}]], 
     InsetBox["1", NCache[{0.75, Rational[3, 8]}, {0.75, 0.375}]], 
     InsetBox["1", NCache[{0.5, Rational[1, 8]}, {0.5, 0.125}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{1, 0}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{1.25, Rational[7, 8]}, {1.25, 0.875}]], 
     InsetBox["1", NCache[{1.75, Rational[7, 8]}, {1.75, 0.875}]], 
     InsetBox["2", NCache[{1.25, Rational[5, 8]}, {1.25, 0.625}]], 
     InsetBox["1", NCache[{1.75, Rational[5, 8]}, {1.75, 0.625}]], 
     InsetBox["1", NCache[{1.25, Rational[3, 8]}, {1.25, 0.375}]], 
     InsetBox["1", NCache[{1.75, Rational[3, 8]}, {1.75, 0.375}]], 
     InsetBox["2", NCache[{1.5, Rational[1, 8]}, {1.5, 0.125}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{2, 0}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{2.25, Rational[7, 8]}, {2.25, 0.875}]], 
     InsetBox["1", NCache[{2.75, Rational[7, 8]}, {2.75, 0.875}]], 
     InsetBox["2", NCache[{2.25, Rational[5, 8]}, {2.25, 0.625}]], 
     InsetBox["2", NCache[{2.75, Rational[5, 8]}, {2.75, 0.625}]], 
     InsetBox["1", NCache[{2.25, Rational[3, 8]}, {2.25, 0.375}]], 
     InsetBox["1", NCache[{2.75, Rational[3, 8]}, {2.75, 0.375}]], 
     InsetBox["4", NCache[{2.5, Rational[1, 8]}, {2.5, 0.125}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{3, 0}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{3.25, Rational[7, 8]}, {3.25, 0.875}]], 
     InsetBox["1", NCache[{3.75, Rational[7, 8]}, {3.75, 0.875}]], 
     InsetBox["3", NCache[{3.25, Rational[5, 8]}, {3.25, 0.625}]], 
     InsetBox["1", NCache[{3.75, Rational[5, 8]}, {3.75, 0.625}]], 
     InsetBox["1", NCache[{3.25, Rational[3, 8]}, {3.25, 0.375}]], 
     InsetBox["1", NCache[{3.75, Rational[3, 8]}, {3.75, 0.375}]], 
     InsetBox["7", NCache[{3.5, Rational[1, 8]}, {3.5, 0.125}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{4, 0}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{4.25, Rational[7, 8]}, {4.25, 0.875}]], 
     InsetBox["1", NCache[{4.75, Rational[7, 8]}, {4.75, 0.875}]], 
     InsetBox["3", NCache[{4.25, Rational[5, 8]}, {4.25, 0.625}]], 
     InsetBox["2", NCache[{4.75, Rational[5, 8]}, {4.75, 0.625}]], 
     InsetBox["1", NCache[{4.25, Rational[3, 8]}, {4.25, 0.375}]], 
     InsetBox["1", NCache[{4.75, Rational[3, 8]}, {4.75, 0.375}]], 
     InsetBox["11", NCache[{4.5, Rational[1, 8]}, {4.5, 0.125}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, 0}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{5.25, Rational[7, 8]}, {5.25, 0.875}]], 
     InsetBox["1", NCache[{5.75, Rational[7, 8]}, {5.75, 0.875}]], 
     InsetBox["3", NCache[{5.25, Rational[5, 8]}, {5.25, 0.625}]], 
     InsetBox["3", NCache[{5.75, Rational[5, 8]}, {5.75, 0.625}]], 
     InsetBox["1", NCache[{5.25, Rational[3, 8]}, {5.25, 0.375}]], 
     InsetBox["1", NCache[{5.75, Rational[3, 8]}, {5.75, 0.375}]], 
     InsetBox["16", NCache[{5.5, Rational[1, 8]}, {5.5, 0.125}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, 0}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{6.25, Rational[7, 8]}, {6.25, 0.875}]], 
     InsetBox["1", NCache[{6.75, Rational[7, 8]}, {6.75, 0.875}]], 
     InsetBox["1", NCache[{6.25, Rational[5, 8]}, {6.25, 0.625}]], 
     InsetBox["1", NCache[{6.75, Rational[5, 8]}, {6.75, 0.625}]], 
     InsetBox["1", NCache[{6.25, Rational[3, 8]}, {6.25, 0.375}]], 
     InsetBox["1", NCache[{6.75, Rational[3, 8]}, {6.75, 0.375}]], 
     InsetBox["22", NCache[{6.5, Rational[1, 8]}, {6.5, 0.125}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, 0}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{7.25, Rational[7, 8]}, {7.25, 0.875}]], 
     InsetBox["1", NCache[{7.75, Rational[7, 8]}, {7.75, 0.875}]], 
     InsetBox["2", NCache[{7.25, Rational[5, 8]}, {7.25, 0.625}]], 
     InsetBox["1", NCache[{7.75, Rational[5, 8]}, {7.75, 0.625}]], 
     InsetBox["1", NCache[{7.25, Rational[3, 8]}, {7.25, 0.375}]], 
     InsetBox["1", NCache[{7.75, Rational[3, 8]}, {7.75, 0.375}]], 
     InsetBox["29", NCache[{7.5, Rational[1, 8]}, {7.5, 0.125}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, 0}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{8.25, Rational[7, 8]}, {8.25, 0.875}]], 
     InsetBox["1", NCache[{8.75, Rational[7, 8]}, {8.75, 0.875}]], 
     InsetBox["2", NCache[{8.25, Rational[5, 8]}, {8.25, 0.625}]], 
     InsetBox["2", NCache[{8.75, Rational[5, 8]}, {8.75, 0.625}]], 
     InsetBox["1", NCache[{8.25, Rational[3, 8]}, {8.25, 0.375}]], 
     InsetBox["1", NCache[{8.75, Rational[3, 8]}, {8.75, 0.375}]], 
     InsetBox["37", NCache[{8.5, Rational[1, 8]}, {8.5, 0.125}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{1, -1}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{1.25, Rational[-1, 8]}, {1.25, -0.125}]], 
     InsetBox["1", NCache[{1.75, Rational[-1, 8]}, {1.75, -0.125}]], 
     InsetBox["2", NCache[{1.25, Rational[-3, 8]}, {1.25, -0.375}]], 
     InsetBox["1", NCache[{1.75, Rational[-3, 8]}, {1.75, -0.375}]], 
     InsetBox["2", NCache[{1.25, Rational[-5, 8]}, {1.25, -0.625}]], 
     InsetBox["1", NCache[{1.75, Rational[-5, 8]}, {1.75, -0.625}]], 
     InsetBox["3", NCache[{1.5, Rational[-7, 8]}, {1.5, -0.875}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{2, -1}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{2.25, Rational[-1, 8]}, {2.25, -0.125}]], 
     InsetBox["1", NCache[{2.75, Rational[-1, 8]}, {2.75, -0.125}]], 
     InsetBox["2", NCache[{2.25, Rational[-3, 8]}, {2.25, -0.375}]], 
     InsetBox["2", NCache[{2.75, Rational[-3, 8]}, {2.75, -0.375}]], 
     InsetBox["2", NCache[{2.25, Rational[-5, 8]}, {2.25, -0.625}]], 
     InsetBox["1", NCache[{2.75, Rational[-5, 8]}, {2.75, -0.625}]], 
     InsetBox["5", NCache[{2.5, Rational[-7, 8]}, {2.5, -0.875}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{3, -1}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{3.25, Rational[-1, 8]}, {3.25, -0.125}]], 
     InsetBox["1", NCache[{3.75, Rational[-1, 8]}, {3.75, -0.125}]], 
     InsetBox["3", NCache[{3.25, Rational[-3, 8]}, {3.25, -0.375}]], 
     InsetBox["1", NCache[{3.75, Rational[-3, 8]}, {3.75, -0.375}]], 
     InsetBox["2", NCache[{3.25, Rational[-5, 8]}, {3.25, -0.625}]], 
     InsetBox["1", NCache[{3.75, Rational[-5, 8]}, {3.75, -0.625}]], 
     InsetBox["8", NCache[{3.5, Rational[-7, 8]}, {3.5, -0.875}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{4, -1}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{4.25, Rational[-1, 8]}, {4.25, -0.125}]], 
     InsetBox["1", NCache[{4.75, Rational[-1, 8]}, {4.75, -0.125}]], 
     InsetBox["3", NCache[{4.25, Rational[-3, 8]}, {4.25, -0.375}]], 
     InsetBox["2", NCache[{4.75, Rational[-3, 8]}, {4.75, -0.375}]], 
     InsetBox["2", NCache[{4.25, Rational[-5, 8]}, {4.25, -0.625}]], 
     InsetBox["1", NCache[{4.75, Rational[-5, 8]}, {4.75, -0.625}]], 
     InsetBox["12", NCache[{4.5, Rational[-7, 8]}, {4.5, -0.875}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -1}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{5.25, Rational[-1, 8]}, {5.25, -0.125}]], 
     InsetBox["1", NCache[{5.75, Rational[-1, 8]}, {5.75, -0.125}]], 
     InsetBox["3", NCache[{5.25, Rational[-3, 8]}, {5.25, -0.375}]], 
     InsetBox["3", NCache[{5.75, Rational[-3, 8]}, {5.75, -0.375}]], 
     InsetBox["2", NCache[{5.25, Rational[-5, 8]}, {5.25, -0.625}]], 
     InsetBox["1", NCache[{5.75, Rational[-5, 8]}, {5.75, -0.625}]], 
     InsetBox["17", NCache[{5.5, Rational[-7, 8]}, {5.5, -0.875}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -1}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{6.25, Rational[-1, 8]}, {6.25, -0.125}]], 
     InsetBox["1", NCache[{6.75, Rational[-1, 8]}, {6.75, -0.125}]], 
     InsetBox["1", NCache[{6.25, Rational[-3, 8]}, {6.25, -0.375}]], 
     InsetBox["1", NCache[{6.75, Rational[-3, 8]}, {6.75, -0.375}]], 
     InsetBox["2", NCache[{6.25, Rational[-5, 8]}, {6.25, -0.625}]], 
     InsetBox["1", NCache[{6.75, Rational[-5, 8]}, {6.75, -0.625}]], 
     InsetBox["23", NCache[{6.5, Rational[-7, 8]}, {6.5, -0.875}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -1}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{7.25, Rational[-1, 8]}, {7.25, -0.125}]], 
     InsetBox["1", NCache[{7.75, Rational[-1, 8]}, {7.75, -0.125}]], 
     InsetBox["2", NCache[{7.25, Rational[-3, 8]}, {7.25, -0.375}]], 
     InsetBox["1", NCache[{7.75, Rational[-3, 8]}, {7.75, -0.375}]], 
     InsetBox["2", NCache[{7.25, Rational[-5, 8]}, {7.25, -0.625}]], 
     InsetBox["1", NCache[{7.75, Rational[-5, 8]}, {7.75, -0.625}]], 
     InsetBox["30", NCache[{7.5, Rational[-7, 8]}, {7.5, -0.875}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -1}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{8.25, Rational[-1, 8]}, {8.25, -0.125}]], 
     InsetBox["1", NCache[{8.75, Rational[-1, 8]}, {8.75, -0.125}]], 
     InsetBox["2", NCache[{8.25, Rational[-3, 8]}, {8.25, -0.375}]], 
     InsetBox["2", NCache[{8.75, Rational[-3, 8]}, {8.75, -0.375}]], 
     InsetBox["2", NCache[{8.25, Rational[-5, 8]}, {8.25, -0.625}]], 
     InsetBox["1", NCache[{8.75, Rational[-5, 8]}, {8.75, -0.625}]], 
     InsetBox["38", NCache[{8.5, Rational[-7, 8]}, {8.5, -0.875}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{2, -2}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{2.25, Rational[-9, 8]}, {2.25, -1.125}]], 
     InsetBox["1", NCache[{2.75, Rational[-9, 8]}, {2.75, -1.125}]], 
     InsetBox["2", NCache[{2.25, Rational[-11, 8]}, {2.25, -1.375}]], 
     InsetBox["2", NCache[{2.75, Rational[-11, 8]}, {2.75, -1.375}]], 
     InsetBox["2", NCache[{2.25, Rational[-13, 8]}, {2.25, -1.625}]], 
     InsetBox["2", NCache[{2.75, Rational[-13, 8]}, {2.75, -1.625}]], 
     InsetBox["6", NCache[{2.5, Rational[-15, 8]}, {2.5, -1.875}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{3, -2}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{3.25, Rational[-9, 8]}, {3.25, -1.125}]], 
     InsetBox["1", NCache[{3.75, Rational[-9, 8]}, {3.75, -1.125}]], 
     InsetBox["3", NCache[{3.25, Rational[-11, 8]}, {3.25, -1.375}]], 
     InsetBox["1", NCache[{3.75, Rational[-11, 8]}, {3.75, -1.375}]], 
     InsetBox["2", NCache[{3.25, Rational[-13, 8]}, {3.25, -1.625}]], 
     InsetBox["2", NCache[{3.75, Rational[-13, 8]}, {3.75, -1.625}]], 
     InsetBox["9", NCache[{3.5, Rational[-15, 8]}, {3.5, -1.875}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{4, -2}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{4.25, Rational[-9, 8]}, {4.25, -1.125}]], 
     InsetBox["1", NCache[{4.75, Rational[-9, 8]}, {4.75, -1.125}]], 
     InsetBox["3", NCache[{4.25, Rational[-11, 8]}, {4.25, -1.375}]], 
     InsetBox["2", NCache[{4.75, Rational[-11, 8]}, {4.75, -1.375}]], 
     InsetBox["2", NCache[{4.25, Rational[-13, 8]}, {4.25, -1.625}]], 
     InsetBox["2", NCache[{4.75, Rational[-13, 8]}, {4.75, -1.625}]], 
     InsetBox["13", NCache[{4.5, Rational[-15, 8]}, {4.5, -1.875}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -2}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{5.25, Rational[-9, 8]}, {5.25, -1.125}]], 
     InsetBox["1", NCache[{5.75, Rational[-9, 8]}, {5.75, -1.125}]], 
     InsetBox["3", NCache[{5.25, Rational[-11, 8]}, {5.25, -1.375}]], 
     InsetBox["3", NCache[{5.75, Rational[-11, 8]}, {5.75, -1.375}]], 
     InsetBox["2", NCache[{5.25, Rational[-13, 8]}, {5.25, -1.625}]], 
     InsetBox["2", NCache[{5.75, Rational[-13, 8]}, {5.75, -1.625}]], 
     InsetBox["18", NCache[{5.5, Rational[-15, 8]}, {5.5, -1.875}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -2}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{6.25, Rational[-9, 8]}, {6.25, -1.125}]], 
     InsetBox["1", NCache[{6.75, Rational[-9, 8]}, {6.75, -1.125}]], 
     InsetBox["1", NCache[{6.25, Rational[-11, 8]}, {6.25, -1.375}]], 
     InsetBox["1", NCache[{6.75, Rational[-11, 8]}, {6.75, -1.375}]], 
     InsetBox["2", NCache[{6.25, Rational[-13, 8]}, {6.25, -1.625}]], 
     InsetBox["2", NCache[{6.75, Rational[-13, 8]}, {6.75, -1.625}]], 
     InsetBox["24", NCache[{6.5, Rational[-15, 8]}, {6.5, -1.875}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -2}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{7.25, Rational[-9, 8]}, {7.25, -1.125}]], 
     InsetBox["1", NCache[{7.75, Rational[-9, 8]}, {7.75, -1.125}]], 
     InsetBox["2", NCache[{7.25, Rational[-11, 8]}, {7.25, -1.375}]], 
     InsetBox["1", NCache[{7.75, Rational[-11, 8]}, {7.75, -1.375}]], 
     InsetBox["2", NCache[{7.25, Rational[-13, 8]}, {7.25, -1.625}]], 
     InsetBox["2", NCache[{7.75, Rational[-13, 8]}, {7.75, -1.625}]], 
     InsetBox["31", NCache[{7.5, Rational[-15, 8]}, {7.5, -1.875}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -2}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{8.25, Rational[-9, 8]}, {8.25, -1.125}]], 
     InsetBox["1", NCache[{8.75, Rational[-9, 8]}, {8.75, -1.125}]], 
     InsetBox["2", NCache[{8.25, Rational[-11, 8]}, {8.25, -1.375}]], 
     InsetBox["2", NCache[{8.75, Rational[-11, 8]}, {8.75, -1.375}]], 
     InsetBox["2", NCache[{8.25, Rational[-13, 8]}, {8.25, -1.625}]], 
     InsetBox["2", NCache[{8.75, Rational[-13, 8]}, {8.75, -1.625}]], 
     InsetBox["39", NCache[{8.5, Rational[-15, 8]}, {8.5, -1.875}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{3, -3}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{3.25, Rational[-17, 8]}, {3.25, -2.125}]], 
     InsetBox["1", NCache[{3.75, Rational[-17, 8]}, {3.75, -2.125}]], 
     InsetBox["3", NCache[{3.25, Rational[-19, 8]}, {3.25, -2.375}]], 
     InsetBox["1", NCache[{3.75, Rational[-19, 8]}, {3.75, -2.375}]], 
     InsetBox["3", NCache[{3.25, Rational[-21, 8]}, {3.25, -2.625}]], 
     InsetBox["1", NCache[{3.75, Rational[-21, 8]}, {3.75, -2.625}]], 
     InsetBox["10", NCache[{3.5, Rational[-23, 8]}, {3.5, -2.875}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{4, -3}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{4.25, Rational[-17, 8]}, {4.25, -2.125}]], 
     InsetBox["1", NCache[{4.75, Rational[-17, 8]}, {4.75, -2.125}]], 
     InsetBox["3", NCache[{4.25, Rational[-19, 8]}, {4.25, -2.375}]], 
     InsetBox["2", NCache[{4.75, Rational[-19, 8]}, {4.75, -2.375}]], 
     InsetBox["3", NCache[{4.25, Rational[-21, 8]}, {4.25, -2.625}]], 
     InsetBox["1", NCache[{4.75, Rational[-21, 8]}, {4.75, -2.625}]], 
     InsetBox["14", NCache[{4.5, Rational[-23, 8]}, {4.5, -2.875}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -3}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{5.25, Rational[-17, 8]}, {5.25, -2.125}]], 
     InsetBox["1", NCache[{5.75, Rational[-17, 8]}, {5.75, -2.125}]], 
     InsetBox["3", NCache[{5.25, Rational[-19, 8]}, {5.25, -2.375}]], 
     InsetBox["3", NCache[{5.75, Rational[-19, 8]}, {5.75, -2.375}]], 
     InsetBox["3", NCache[{5.25, Rational[-21, 8]}, {5.25, -2.625}]], 
     InsetBox["1", NCache[{5.75, Rational[-21, 8]}, {5.75, -2.625}]], 
     InsetBox["19", NCache[{5.5, Rational[-23, 8]}, {5.5, -2.875}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -3}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{6.25, Rational[-17, 8]}, {6.25, -2.125}]], 
     InsetBox["1", NCache[{6.75, Rational[-17, 8]}, {6.75, -2.125}]], 
     InsetBox["1", NCache[{6.25, Rational[-19, 8]}, {6.25, -2.375}]], 
     InsetBox["1", NCache[{6.75, Rational[-19, 8]}, {6.75, -2.375}]], 
     InsetBox["3", NCache[{6.25, Rational[-21, 8]}, {6.25, -2.625}]], 
     InsetBox["1", NCache[{6.75, Rational[-21, 8]}, {6.75, -2.625}]], 
     InsetBox["25", NCache[{6.5, Rational[-23, 8]}, {6.5, -2.875}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -3}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{7.25, Rational[-17, 8]}, {7.25, -2.125}]], 
     InsetBox["1", NCache[{7.75, Rational[-17, 8]}, {7.75, -2.125}]], 
     InsetBox["2", NCache[{7.25, Rational[-19, 8]}, {7.25, -2.375}]], 
     InsetBox["1", NCache[{7.75, Rational[-19, 8]}, {7.75, -2.375}]], 
     InsetBox["3", NCache[{7.25, Rational[-21, 8]}, {7.25, -2.625}]], 
     InsetBox["1", NCache[{7.75, Rational[-21, 8]}, {7.75, -2.625}]], 
     InsetBox["32", NCache[{7.5, Rational[-23, 8]}, {7.5, -2.875}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -3}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{8.25, Rational[-17, 8]}, {8.25, -2.125}]], 
     InsetBox["1", NCache[{8.75, Rational[-17, 8]}, {8.75, -2.125}]], 
     InsetBox["2", NCache[{8.25, Rational[-19, 8]}, {8.25, -2.375}]], 
     InsetBox["2", NCache[{8.75, Rational[-19, 8]}, {8.75, -2.375}]], 
     InsetBox["3", NCache[{8.25, Rational[-21, 8]}, {8.25, -2.625}]], 
     InsetBox["1", NCache[{8.75, Rational[-21, 8]}, {8.75, -2.625}]], 
     InsetBox["40", NCache[{8.5, Rational[-23, 8]}, {8.5, -2.875}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{4, -4}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{4.25, Rational[-25, 8]}, {4.25, -3.125}]], 
     InsetBox["1", NCache[{4.75, Rational[-25, 8]}, {4.75, -3.125}]], 
     InsetBox["3", NCache[{4.25, Rational[-27, 8]}, {4.25, -3.375}]], 
     InsetBox["2", NCache[{4.75, Rational[-27, 8]}, {4.75, -3.375}]], 
     InsetBox["3", NCache[{4.25, Rational[-29, 8]}, {4.25, -3.625}]], 
     InsetBox["2", NCache[{4.75, Rational[-29, 8]}, {4.75, -3.625}]], 
     InsetBox["15", NCache[{4.5, Rational[-31, 8]}, {4.5, -3.875}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -4}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{5.25, Rational[-25, 8]}, {5.25, -3.125}]], 
     InsetBox["1", NCache[{5.75, Rational[-25, 8]}, {5.75, -3.125}]], 
     InsetBox["3", NCache[{5.25, Rational[-27, 8]}, {5.25, -3.375}]], 
     InsetBox["3", NCache[{5.75, Rational[-27, 8]}, {5.75, -3.375}]], 
     InsetBox["3", NCache[{5.25, Rational[-29, 8]}, {5.25, -3.625}]], 
     InsetBox["2", NCache[{5.75, Rational[-29, 8]}, {5.75, -3.625}]], 
     InsetBox["20", NCache[{5.5, Rational[-31, 8]}, {5.5, -3.875}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -4}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{6.25, Rational[-25, 8]}, {6.25, -3.125}]], 
     InsetBox["1", NCache[{6.75, Rational[-25, 8]}, {6.75, -3.125}]], 
     InsetBox["1", NCache[{6.25, Rational[-27, 8]}, {6.25, -3.375}]], 
     InsetBox["1", NCache[{6.75, Rational[-27, 8]}, {6.75, -3.375}]], 
     InsetBox["3", NCache[{6.25, Rational[-29, 8]}, {6.25, -3.625}]], 
     InsetBox["2", NCache[{6.75, Rational[-29, 8]}, {6.75, -3.625}]], 
     InsetBox["26", NCache[{6.5, Rational[-31, 8]}, {6.5, -3.875}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -4}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{7.25, Rational[-25, 8]}, {7.25, -3.125}]], 
     InsetBox["1", NCache[{7.75, Rational[-25, 8]}, {7.75, -3.125}]], 
     InsetBox["2", NCache[{7.25, Rational[-27, 8]}, {7.25, -3.375}]], 
     InsetBox["1", NCache[{7.75, Rational[-27, 8]}, {7.75, -3.375}]], 
     InsetBox["3", NCache[{7.25, Rational[-29, 8]}, {7.25, -3.625}]], 
     InsetBox["2", NCache[{7.75, Rational[-29, 8]}, {7.75, -3.625}]], 
     InsetBox["33", NCache[{7.5, Rational[-31, 8]}, {7.5, -3.875}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -4}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{8.25, Rational[-25, 8]}, {8.25, -3.125}]], 
     InsetBox["1", NCache[{8.75, Rational[-25, 8]}, {8.75, -3.125}]], 
     InsetBox["2", NCache[{8.25, Rational[-27, 8]}, {8.25, -3.375}]], 
     InsetBox["2", NCache[{8.75, Rational[-27, 8]}, {8.75, -3.375}]], 
     InsetBox["3", NCache[{8.25, Rational[-29, 8]}, {8.25, -3.625}]], 
     InsetBox["2", NCache[{8.75, Rational[-29, 8]}, {8.75, -3.625}]], 
     InsetBox["41", NCache[{8.5, Rational[-31, 8]}, {8.5, -3.875}]]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -5}], 
    {GrayLevel[0], 
     InsetBox["1", NCache[{5.25, Rational[-33, 8]}, {5.25, -4.125}]], 
     InsetBox["1", NCache[{5.75, Rational[-33, 8]}, {5.75, -4.125}]], 
     InsetBox["3", NCache[{5.25, Rational[-35, 8]}, {5.25, -4.375}]], 
     InsetBox["3", NCache[{5.75, Rational[-35, 8]}, {5.75, -4.375}]], 
     InsetBox["3", NCache[{5.25, Rational[-37, 8]}, {5.25, -4.625}]], 
     InsetBox["3", NCache[{5.75, Rational[-37, 8]}, {5.75, -4.625}]], 
     InsetBox["21", NCache[{5.5, Rational[-39, 8]}, {5.5, -4.875}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -5}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{6.25, Rational[-33, 8]}, {6.25, -4.125}]], 
     InsetBox["1", NCache[{6.75, Rational[-33, 8]}, {6.75, -4.125}]], 
     InsetBox["1", NCache[{6.25, Rational[-35, 8]}, {6.25, -4.375}]], 
     InsetBox["1", NCache[{6.75, Rational[-35, 8]}, {6.75, -4.375}]], 
     InsetBox["3", NCache[{6.25, Rational[-37, 8]}, {6.25, -4.625}]], 
     InsetBox["3", NCache[{6.75, Rational[-37, 8]}, {6.75, -4.625}]], 
     InsetBox["27", NCache[{6.5, Rational[-39, 8]}, {6.5, -4.875}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -5}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{7.25, Rational[-33, 8]}, {7.25, -4.125}]], 
     InsetBox["1", NCache[{7.75, Rational[-33, 8]}, {7.75, -4.125}]], 
     InsetBox["2", NCache[{7.25, Rational[-35, 8]}, {7.25, -4.375}]], 
     InsetBox["1", NCache[{7.75, Rational[-35, 8]}, {7.75, -4.375}]], 
     InsetBox["3", NCache[{7.25, Rational[-37, 8]}, {7.25, -4.625}]], 
     InsetBox["3", NCache[{7.75, Rational[-37, 8]}, {7.75, -4.625}]], 
     InsetBox["34", NCache[{7.5, Rational[-39, 8]}, {7.5, -4.875}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -5}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{8.25, Rational[-33, 8]}, {8.25, -4.125}]], 
     InsetBox["1", NCache[{8.75, Rational[-33, 8]}, {8.75, -4.125}]], 
     InsetBox["2", NCache[{8.25, Rational[-35, 8]}, {8.25, -4.375}]], 
     InsetBox["2", NCache[{8.75, Rational[-35, 8]}, {8.75, -4.375}]], 
     InsetBox["3", NCache[{8.25, Rational[-37, 8]}, {8.25, -4.625}]], 
     InsetBox["3", NCache[{8.75, Rational[-37, 8]}, {8.75, -4.625}]], 
     InsetBox["42", NCache[{8.5, Rational[-39, 8]}, {8.5, -4.875}]]}}, 
   {RGBColor[0, 0, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -6}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{6.25, Rational[-41, 8]}, {6.25, -5.125}]], 
     InsetBox["2", NCache[{6.75, Rational[-41, 8]}, {6.75, -5.125}]], 
     InsetBox["1", NCache[{6.25, Rational[-43, 8]}, {6.25, -5.375}]], 
     InsetBox["1", NCache[{6.75, Rational[-43, 8]}, {6.75, -5.375}]], 
     InsetBox["1", NCache[{6.25, Rational[-45, 8]}, {6.25, -5.625}]], 
     InsetBox["1", NCache[{6.75, Rational[-45, 8]}, {6.75, -5.625}]], 
     InsetBox["28", NCache[{6.5, Rational[-47, 8]}, {6.5, -5.875}]]}}, 
   {RGBColor[0, 0, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -6}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{7.25, Rational[-41, 8]}, {7.25, -5.125}]], 
     InsetBox["2", NCache[{7.75, Rational[-41, 8]}, {7.75, -5.125}]], 
     InsetBox["2", NCache[{7.25, Rational[-43, 8]}, {7.25, -5.375}]], 
     InsetBox["1", NCache[{7.75, Rational[-43, 8]}, {7.75, -5.375}]], 
     InsetBox["1", NCache[{7.25, Rational[-45, 8]}, {7.25, -5.625}]], 
     InsetBox["1", NCache[{7.75, Rational[-45, 8]}, {7.75, -5.625}]], 
     InsetBox["35", NCache[{7.5, Rational[-47, 8]}, {7.5, -5.875}]]}}, 
   {RGBColor[0, 0, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -6}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{8.25, Rational[-41, 8]}, {8.25, -5.125}]], 
     InsetBox["2", NCache[{8.75, Rational[-41, 8]}, {8.75, -5.125}]], 
     InsetBox["2", NCache[{8.25, Rational[-43, 8]}, {8.25, -5.375}]], 
     InsetBox["2", NCache[{8.75, Rational[-43, 8]}, {8.75, -5.375}]], 
     InsetBox["1", NCache[{8.25, Rational[-45, 8]}, {8.25, -5.625}]], 
     InsetBox["1", NCache[{8.75, Rational[-45, 8]}, {8.75, -5.625}]], 
     InsetBox["43", NCache[{8.5, Rational[-47, 8]}, {8.5, -5.875}]]}}, 
   {RGBColor[0, 0, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -7}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{7.25, Rational[-49, 8]}, {7.25, -6.125}]], 
     InsetBox["2", NCache[{7.75, Rational[-49, 8]}, {7.75, -6.125}]], 
     InsetBox["2", NCache[{7.25, Rational[-51, 8]}, {7.25, -6.375}]], 
     InsetBox["1", NCache[{7.75, Rational[-51, 8]}, {7.75, -6.375}]], 
     InsetBox["2", NCache[{7.25, Rational[-53, 8]}, {7.25, -6.625}]], 
     InsetBox["1", NCache[{7.75, Rational[-53, 8]}, {7.75, -6.625}]], 
     InsetBox["36", NCache[{7.5, Rational[-55, 8]}, {7.5, -6.875}]]}}, 
   {RGBColor[0, 0, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -7}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{8.25, Rational[-49, 8]}, {8.25, -6.125}]], 
     InsetBox["2", NCache[{8.75, Rational[-49, 8]}, {8.75, -6.125}]], 
     InsetBox["2", NCache[{8.25, Rational[-51, 8]}, {8.25, -6.375}]], 
     InsetBox["2", NCache[{8.75, Rational[-51, 8]}, {8.75, -6.375}]], 
     InsetBox["2", NCache[{8.25, Rational[-53, 8]}, {8.25, -6.625}]], 
     InsetBox["1", NCache[{8.75, Rational[-53, 8]}, {8.75, -6.625}]], 
     InsetBox["44", NCache[{8.5, Rational[-55, 8]}, {8.5, -6.875}]]}}, 
   {RGBColor[0, 0, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -8}], 
    {GrayLevel[0], 
     InsetBox["2", NCache[{8.25, Rational[-57, 8]}, {8.25, -7.125}]], 
     InsetBox["2", NCache[{8.75, Rational[-57, 8]}, {8.75, -7.125}]], 
     InsetBox["2", NCache[{8.25, Rational[-59, 8]}, {8.25, -7.375}]], 
     InsetBox["2", NCache[{8.75, Rational[-59, 8]}, {8.75, -7.375}]], 
     InsetBox["2", NCache[{8.25, Rational[-61, 8]}, {8.25, -7.625}]], 
     InsetBox["2", NCache[{8.75, Rational[-61, 8]}, {8.75, -7.625}]], 
     InsetBox["45", NCache[{8.5, Rational[-63, 8]}, {8.5, -7.875}]]}}, 
   {GrayLevel[1], EdgeForm[Thickness[Tiny]], RectangleBox[{0, -8}], 
    {GrayLevel[0], 
     InsetBox["\<\"L\"\>", NCache[{0.25, Rational[-57, 8]}, {0.25, -7.125}]], 
     InsetBox["\<\"M\"\>", NCache[{0.75, Rational[-57, 8]}, {0.75, -7.125}]], 
     InsetBox["\<\"P\"\>", NCache[{0.25, Rational[-59, 8]}, {0.25, -7.375}]], 
     InsetBox["\<\"Q\"\>", NCache[{0.75, Rational[-59, 8]}, {0.75, -7.375}]], 
     InsetBox["\<\"R\"\>", NCache[{0.25, Rational[-61, 8]}, {0.25, -7.625}]], 
     InsetBox["\<\"S\"\>", NCache[{0.75, Rational[-61, 8]}, {0.75, -7.625}]], 
     InsetBox["\<\"I\"\>", NCache[{0.5, Rational[-63, 8]}, {0.5, -7.875}]]}}},
  
  BaseStyle->{FontSize -> 20, FontFamily -> "Times"},
  ImageSize->1000]], "Output",
 CellChangeTimes->{{3.718473353803796*^9, 3.71847338940102*^9}, 
   3.7184734360229197`*^9, 3.718473515658704*^9, 3.7184735590053453`*^9, {
   3.718473614299591*^9, 3.718473639042163*^9}, {3.718473724006173*^9, 
   3.718473740565105*^9}, 3.7184738198519087`*^9, 3.718473883733436*^9, 
   3.718473967154016*^9, {3.7184740350834713`*^9, 3.718474062412917*^9}, 
   3.718474094158577*^9, {3.718474183188222*^9, 3.7184742240131807`*^9}, 
   3.718474255401107*^9, 3.718474289387238*^9, 3.718474334868021*^9, 
   3.71847442091016*^9, 3.7184744578709097`*^9, 3.718474503145772*^9, 
   3.733065741624123*^9, 3.733066400961852*^9, 3.733066501575845*^9, 
   3.733491728007387*^9, {3.733491811415447*^9, 3.733491815342678*^9}, 
   3.73349242112926*^9, 3.733493229749452*^9, 3.733493315103661*^9, 
   3.733493353204509*^9, {3.733493407319117*^9, 3.733493413135167*^9}, 
   3.733493680362648*^9, {3.733493815467174*^9, 3.7334938202832537`*^9}, {
   3.7334939397412786`*^9, 3.733493968467417*^9}, {3.7334960857177343`*^9, 
   3.7334961014528923`*^9}, 3.7335870637488832`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", 
       "0", ",", "0"}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "2", ",", "1", ",", "1", ",", "1", ",", "2", ",", 
       "1", ",", "0"}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "2", ",", "2", ",", "1", ",", "1", ",", "4", ",", 
       "2", ",", "0"}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "1", ",", "1", ",", "1", ",", "7", ",", 
       "3", ",", "0"}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "2", ",", "1", ",", "1", ",", "11", ",", 
       "4", ",", "0"}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "3", ",", "1", ",", "1", ",", "16", ",", 
       "5", ",", "0"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "22", ",", 
       "6", ",", "0"}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "1", ",", "1", ",", "1", ",", "29", ",", 
       "7", ",", "0"}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "2", ",", "1", ",", "1", ",", "37", ",", 
       "8", ",", "0"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "2", ",", "1", ",", "2", ",", "1", ",", "3", ",", 
       "1", ",", 
       RowBox[{"-", "1"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "2", ",", "2", ",", "2", ",", "1", ",", "5", ",", 
       "2", ",", 
       RowBox[{"-", "1"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "1", ",", "2", ",", "1", ",", "8", ",", 
       "3", ",", 
       RowBox[{"-", "1"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "2", ",", "2", ",", "1", ",", "12", ",", 
       "4", ",", 
       RowBox[{"-", "1"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "3", ",", "2", ",", "1", ",", "17", ",", 
       "5", ",", 
       RowBox[{"-", "1"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "1", ",", "1", ",", "2", ",", "1", ",", "23", ",", 
       "6", ",", 
       RowBox[{"-", "1"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "1", ",", "2", ",", "1", ",", "30", ",", 
       "7", ",", 
       RowBox[{"-", "1"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "2", ",", "2", ",", "1", ",", "38", ",", 
       "8", ",", 
       RowBox[{"-", "1"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "2", ",", "2", ",", "2", ",", "2", ",", "6", ",", 
       "2", ",", 
       RowBox[{"-", "2"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "1", ",", "2", ",", "2", ",", "9", ",", 
       "3", ",", 
       RowBox[{"-", "2"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "2", ",", "2", ",", "2", ",", "13", ",", 
       "4", ",", 
       RowBox[{"-", "2"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "3", ",", "2", ",", "2", ",", "18", ",", 
       "5", ",", 
       RowBox[{"-", "2"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "24", ",", 
       "6", ",", 
       RowBox[{"-", "2"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "1", ",", "2", ",", "2", ",", "31", ",", 
       "7", ",", 
       RowBox[{"-", "2"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "2", ",", "2", ",", "2", ",", "39", ",", 
       "8", ",", 
       RowBox[{"-", "2"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "1", ",", "3", ",", "1", ",", "10", ",", 
       "3", ",", 
       RowBox[{"-", "3"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "2", ",", "3", ",", "1", ",", "14", ",", 
       "4", ",", 
       RowBox[{"-", "3"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "3", ",", "3", ",", "1", ",", "19", ",", 
       "5", ",", 
       RowBox[{"-", "3"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "1", ",", "1", ",", "3", ",", "1", ",", "25", ",", 
       "6", ",", 
       RowBox[{"-", "3"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "1", ",", "3", ",", "1", ",", "32", ",", 
       "7", ",", 
       RowBox[{"-", "3"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "2", ",", "3", ",", "1", ",", "40", ",", 
       "8", ",", 
       RowBox[{"-", "3"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "2", ",", "3", ",", "2", ",", "15", ",", 
       "4", ",", 
       RowBox[{"-", "4"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "3", ",", "3", ",", "2", ",", "20", ",", 
       "5", ",", 
       RowBox[{"-", "4"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "1", ",", "1", ",", "3", ",", "2", ",", "26", ",", 
       "6", ",", 
       RowBox[{"-", "4"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "1", ",", "3", ",", "2", ",", "33", ",", 
       "7", ",", 
       RowBox[{"-", "4"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "2", ",", "3", ",", "2", ",", "41", ",", 
       "8", ",", 
       RowBox[{"-", "4"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "1", ",", "1", ",", "3", ",", "3", ",", "3", ",", "3", ",", "21", ",", 
       "5", ",", 
       RowBox[{"-", "5"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "1", ",", "1", ",", "3", ",", "3", ",", "27", ",", 
       "6", ",", 
       RowBox[{"-", "5"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "1", ",", "3", ",", "3", ",", "34", ",", 
       "7", ",", 
       RowBox[{"-", "5"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "1", ",", "2", ",", "2", ",", "3", ",", "3", ",", "42", ",", 
       "8", ",", 
       RowBox[{"-", "5"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "2", ",", "1", ",", "1", ",", "1", ",", "1", ",", "28", ",", 
       "6", ",", 
       RowBox[{"-", "6"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "2", ",", "2", ",", "1", ",", "1", ",", "1", ",", "35", ",", 
       "7", ",", 
       RowBox[{"-", "6"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "2", ",", "2", ",", "2", ",", "1", ",", "1", ",", "43", ",", 
       "8", ",", 
       RowBox[{"-", "6"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "2", ",", "2", ",", "1", ",", "2", ",", "1", ",", "36", ",", 
       "7", ",", 
       RowBox[{"-", "7"}]}], "]"}], ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "1", ",", "44", ",", 
       "8", ",", 
       RowBox[{"-", "7"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "45", ",", 
       "8", ",", 
       RowBox[{"-", "8"}]}], "]"}], ",", " ", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "\"\<L\>\"", ",", "\"\<M\>\"", ",", "\"\<P\>\"", ",", "\"\<Q\>\"", ",", 
       "\"\<R\>\"", ",", "\"\<S\>\"", ",", "\"\<I\>\"", ",", "0", ",", 
       RowBox[{"-", "8"}]}], "]"}]}], "}"}], ",", " ", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontSize", "\[Rule]", "20"}], ",", 
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "}"}]}]}], 
  "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nbs", "=", 
   RowBox[{"{", 
    RowBox[{"3", ",", "2"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"all", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"l", "=", "1"}], ",", 
   RowBox[{"l", "\[LessEqual]", "2"}], ",", 
   RowBox[{"l", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"p", "=", "1"}], ",", 
     RowBox[{"p", "\[LessEqual]", 
      RowBox[{"nbs", "[", 
       RowBox[{"[", "l", "]"}], "]"}]}], ",", 
     RowBox[{"p", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"q", "=", "1"}], ",", 
       RowBox[{"q", "\[LessEqual]", "p"}], ",", 
       RowBox[{"q", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"m", "=", "1"}], ",", 
         RowBox[{"m", "\[LessEqual]", "l"}], ",", 
         RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"l", "\[Equal]", "m"}], ",", 
            RowBox[{"maxr", "=", "p"}], ",", 
            RowBox[{"maxr", "=", 
             RowBox[{"nbs", "[", 
              RowBox[{"[", "m", "]"}], "]"}]}]}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"For", "[", 
           RowBox[{
            RowBox[{"r", "=", "1"}], ",", 
            RowBox[{"r", "\[LessEqual]", "maxr"}], ",", 
            RowBox[{"r", "++"}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"l", "\[Equal]", "m"}], ")"}], " ", "&&", 
                RowBox[{"(", 
                 RowBox[{"p", "\[Equal]", "r"}], ")"}]}], ",", 
               RowBox[{"maxs", "=", "q"}], ",", 
               RowBox[{"maxs", "=", "r"}]}], "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"For", "[", 
              RowBox[{
               RowBox[{"s", "=", "1"}], ",", 
               RowBox[{"s", "\[LessEqual]", "maxs"}], ",", 
               RowBox[{"s", "++"}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"i", "++"}], ";", "\[IndentingNewLine]", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Mod", "[", 
                    RowBox[{"x", ",", "9"}], "]"}], "==", "0"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"x", "=", "0"}], ";", 
                    RowBox[{"y", "--"}]}], "}"}]}], "]"}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"x", "++"}], ";", "\[IndentingNewLine]", 
                RowBox[{"all", "=", 
                 RowBox[{"Append", "[", 
                  RowBox[{"all", ",", 
                   RowBox[{"basebox", "[", 
                    RowBox[{
                    "l", ",", "m", ",", "p", ",", "q", ",", "r", ",", "s", 
                    ",", "i", ",", "x", ",", 
                    RowBox[{"y", " ", "+", " ", 
                    RowBox[{"(", 
                    RowBox[{"0.2", " ", "*", " ", "y"}], ")"}]}]}], "]"}]}], 
                  "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}]}]}], 
           "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], 
      "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y", "--"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"all", "=", 
   RowBox[{"Append", "[", 
    RowBox[{"all", ",", 
     RowBox[{"basebox", "[", 
      RowBox[{
      "\"\<L\>\"", ",", "\"\<M\>\"", ",", "\"\<P\>\"", ",", "\"\<Q\>\"", ",", 
       "\"\<R\>\"", ",", "\"\<S\>\"", ",", "\"\<I\>\"", ",", "5", ",", 
       RowBox[{"y", " ", "+", " ", 
        RowBox[{"(", 
         RowBox[{"0.2", " ", "*", " ", "y"}], ")"}]}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Graphics", "[", 
  RowBox[{"all", ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontSize", "\[Rule]", "20"}], ",", 
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "1000"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.733494532257374*^9, 3.733494986768045*^9}, {
  3.733495028115017*^9, 3.733495051670032*^9}, {3.733495088254158*^9, 
  3.733495176950263*^9}, {3.7334952363257303`*^9, 3.7334953934368143`*^9}, {
  3.733495546825581*^9, 3.733495588496393*^9}, {3.733495632871757*^9, 
  3.733495678391879*^9}, {3.733495712058058*^9, 3.73349571327348*^9}, {
  3.7334957512723503`*^9, 3.733496031090695*^9}, {3.73349606329381*^9, 
  3.733496063526754*^9}, {3.7334961105563726`*^9, 3.733496110908956*^9}, {
  3.733496145323203*^9, 3.7334961668026857`*^9}, {3.733496205530056*^9, 
  3.733496252559224*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{1, -1.2}], 
    {GrayLevel[0], InsetBox["1", {1.25, -0.32499999999999996`}], 
     InsetBox["1", {1.75, -0.32499999999999996`}], 
     InsetBox["1", {1.25, -0.575}], InsetBox["1", {1.75, -0.575}], 
     InsetBox["1", {1.25, -0.825}], InsetBox["1", {1.75, -0.825}], 
     InsetBox["1", {1.5, -1.075}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{2, -1.2}], 
    {GrayLevel[0], InsetBox["1", {2.25, -0.32499999999999996`}], 
     InsetBox["1", {2.75, -0.32499999999999996`}], 
     InsetBox["2", {2.25, -0.575}], InsetBox["1", {2.75, -0.575}], 
     InsetBox["1", {2.25, -0.825}], InsetBox["1", {2.75, -0.825}], 
     InsetBox["2", {2.5, -1.075}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{3, -1.2}], 
    {GrayLevel[0], InsetBox["1", {3.25, -0.32499999999999996`}], 
     InsetBox["1", {3.75, -0.32499999999999996`}], 
     InsetBox["2", {3.25, -0.575}], InsetBox["1", {3.75, -0.575}], 
     InsetBox["2", {3.25, -0.825}], InsetBox["1", {3.75, -0.825}], 
     InsetBox["3", {3.5, -1.075}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{4, -1.2}], 
    {GrayLevel[0], InsetBox["1", {4.25, -0.32499999999999996`}], 
     InsetBox["1", {4.75, -0.32499999999999996`}], 
     InsetBox["2", {4.25, -0.575}], InsetBox["2", {4.75, -0.575}], 
     InsetBox["1", {4.25, -0.825}], InsetBox["1", {4.75, -0.825}], 
     InsetBox["4", {4.5, -1.075}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -1.2}], 
    {GrayLevel[0], InsetBox["1", {5.25, -0.32499999999999996`}], 
     InsetBox["1", {5.75, -0.32499999999999996`}], 
     InsetBox["2", {5.25, -0.575}], InsetBox["2", {5.75, -0.575}], 
     InsetBox["2", {5.25, -0.825}], InsetBox["1", {5.75, -0.825}], 
     InsetBox["5", {5.5, -1.075}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -1.2}], 
    {GrayLevel[0], InsetBox["1", {6.25, -0.32499999999999996`}], 
     InsetBox["1", {6.75, -0.32499999999999996`}], 
     InsetBox["2", {6.25, -0.575}], InsetBox["2", {6.75, -0.575}], 
     InsetBox["2", {6.25, -0.825}], InsetBox["2", {6.75, -0.825}], 
     InsetBox["6", {6.5, -1.075}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -1.2}], 
    {GrayLevel[0], InsetBox["1", {7.25, -0.32499999999999996`}], 
     InsetBox["1", {7.75, -0.32499999999999996`}], 
     InsetBox["3", {7.25, -0.575}], InsetBox["1", {7.75, -0.575}], 
     InsetBox["1", {7.25, -0.825}], InsetBox["1", {7.75, -0.825}], 
     InsetBox["7", {7.5, -1.075}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -1.2}], 
    {GrayLevel[0], InsetBox["1", {8.25, -0.32499999999999996`}], 
     InsetBox["1", {8.75, -0.32499999999999996`}], 
     InsetBox["3", {8.25, -0.575}], InsetBox["1", {8.75, -0.575}], 
     InsetBox["2", {8.25, -0.825}], InsetBox["1", {8.75, -0.825}], 
     InsetBox["8", {8.5, -1.075}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{9, -1.2}], 
    {GrayLevel[0], InsetBox["1", {9.25, -0.32499999999999996`}], 
     InsetBox["1", {9.75, -0.32499999999999996`}], 
     InsetBox["3", {9.25, -0.575}], InsetBox["1", {9.75, -0.575}], 
     InsetBox["2", {9.25, -0.825}], InsetBox["2", {9.75, -0.825}], 
     InsetBox["9", {9.5, -1.075}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{1, -2.4}], 
    {GrayLevel[0], InsetBox["1", {1.25, -1.525}], 
     InsetBox["1", {1.75, -1.525}], InsetBox["3", {1.25, -1.775}], 
     InsetBox["1", {1.75, -1.775}], InsetBox["3", {1.25, -2.025}], 
     InsetBox["1", {1.75, -2.025}], InsetBox["10", {1.5, -2.275}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{2, -2.4}], 
    {GrayLevel[0], InsetBox["1", {2.25, -1.525}], 
     InsetBox["1", {2.75, -1.525}], InsetBox["3", {2.25, -1.775}], 
     InsetBox["2", {2.75, -1.775}], InsetBox["1", {2.25, -2.025}], 
     InsetBox["1", {2.75, -2.025}], InsetBox["11", {2.5, -2.275}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{3, -2.4}], 
    {GrayLevel[0], InsetBox["1", {3.25, -1.525}], 
     InsetBox["1", {3.75, -1.525}], InsetBox["3", {3.25, -1.775}], 
     InsetBox["2", {3.75, -1.775}], InsetBox["2", {3.25, -2.025}], 
     InsetBox["1", {3.75, -2.025}], InsetBox["12", {3.5, -2.275}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{4, -2.4}], 
    {GrayLevel[0], InsetBox["1", {4.25, -1.525}], 
     InsetBox["1", {4.75, -1.525}], InsetBox["3", {4.25, -1.775}], 
     InsetBox["2", {4.75, -1.775}], InsetBox["2", {4.25, -2.025}], 
     InsetBox["2", {4.75, -2.025}], InsetBox["13", {4.5, -2.275}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -2.4}], 
    {GrayLevel[0], InsetBox["1", {5.25, -1.525}], 
     InsetBox["1", {5.75, -1.525}], InsetBox["3", {5.25, -1.775}], 
     InsetBox["2", {5.75, -1.775}], InsetBox["3", {5.25, -2.025}], 
     InsetBox["1", {5.75, -2.025}], InsetBox["14", {5.5, -2.275}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -2.4}], 
    {GrayLevel[0], InsetBox["1", {6.25, -1.525}], 
     InsetBox["1", {6.75, -1.525}], InsetBox["3", {6.25, -1.775}], 
     InsetBox["2", {6.75, -1.775}], InsetBox["3", {6.25, -2.025}], 
     InsetBox["2", {6.75, -2.025}], InsetBox["15", {6.5, -2.275}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -2.4}], 
    {GrayLevel[0], InsetBox["1", {7.25, -1.525}], 
     InsetBox["1", {7.75, -1.525}], InsetBox["3", {7.25, -1.775}], 
     InsetBox["3", {7.75, -1.775}], InsetBox["1", {7.25, -2.025}], 
     InsetBox["1", {7.75, -2.025}], InsetBox["16", {7.5, -2.275}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -2.4}], 
    {GrayLevel[0], InsetBox["1", {8.25, -1.525}], 
     InsetBox["1", {8.75, -1.525}], InsetBox["3", {8.25, -1.775}], 
     InsetBox["3", {8.75, -1.775}], InsetBox["2", {8.25, -2.025}], 
     InsetBox["1", {8.75, -2.025}], InsetBox["17", {8.5, -2.275}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{9, -2.4}], 
    {GrayLevel[0], InsetBox["1", {9.25, -1.525}], 
     InsetBox["1", {9.75, -1.525}], InsetBox["3", {9.25, -1.775}], 
     InsetBox["3", {9.75, -1.775}], InsetBox["2", {9.25, -2.025}], 
     InsetBox["2", {9.75, -2.025}], InsetBox["18", {9.5, -2.275}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{1, -3.6}], 
    {GrayLevel[0], InsetBox["1", {1.25, -2.725}], 
     InsetBox["1", {1.75, -2.725}], InsetBox["3", {1.25, -2.975}], 
     InsetBox["3", {1.75, -2.975}], InsetBox["3", {1.25, -3.225}], 
     InsetBox["1", {1.75, -3.225}], InsetBox["19", {1.5, -3.475}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{2, -3.6}], 
    {GrayLevel[0], InsetBox["1", {2.25, -2.725}], 
     InsetBox["1", {2.75, -2.725}], InsetBox["3", {2.25, -2.975}], 
     InsetBox["3", {2.75, -2.975}], InsetBox["3", {2.25, -3.225}], 
     InsetBox["2", {2.75, -3.225}], InsetBox["20", {2.5, -3.475}]}}, 
   {RGBColor[1, 0, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{3, -3.6}], 
    {GrayLevel[0], InsetBox["1", {3.25, -2.725}], 
     InsetBox["1", {3.75, -2.725}], InsetBox["3", {3.25, -2.975}], 
     InsetBox["3", {3.75, -2.975}], InsetBox["3", {3.25, -3.225}], 
     InsetBox["3", {3.75, -3.225}], InsetBox["21", {3.5, -3.475}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{4, -3.6}], 
    {GrayLevel[0], InsetBox["2", {4.25, -2.725}], 
     InsetBox["1", {4.75, -2.725}], InsetBox["1", {4.25, -2.975}], 
     InsetBox["1", {4.75, -2.975}], InsetBox["1", {4.25, -3.225}], 
     InsetBox["1", {4.75, -3.225}], InsetBox["22", {4.5, -3.475}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -3.6}], 
    {GrayLevel[0], InsetBox["2", {5.25, -2.725}], 
     InsetBox["1", {5.75, -2.725}], InsetBox["1", {5.25, -2.975}], 
     InsetBox["1", {5.75, -2.975}], InsetBox["2", {5.25, -3.225}], 
     InsetBox["1", {5.75, -3.225}], InsetBox["23", {5.5, -3.475}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -3.6}], 
    {GrayLevel[0], InsetBox["2", {6.25, -2.725}], 
     InsetBox["1", {6.75, -2.725}], InsetBox["1", {6.25, -2.975}], 
     InsetBox["1", {6.75, -2.975}], InsetBox["2", {6.25, -3.225}], 
     InsetBox["2", {6.75, -3.225}], InsetBox["24", {6.5, -3.475}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -3.6}], 
    {GrayLevel[0], InsetBox["2", {7.25, -2.725}], 
     InsetBox["1", {7.75, -2.725}], InsetBox["1", {7.25, -2.975}], 
     InsetBox["1", {7.75, -2.975}], InsetBox["3", {7.25, -3.225}], 
     InsetBox["1", {7.75, -3.225}], InsetBox["25", {7.5, -3.475}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -3.6}], 
    {GrayLevel[0], InsetBox["2", {8.25, -2.725}], 
     InsetBox["1", {8.75, -2.725}], InsetBox["1", {8.25, -2.975}], 
     InsetBox["1", {8.75, -2.975}], InsetBox["3", {8.25, -3.225}], 
     InsetBox["2", {8.75, -3.225}], InsetBox["26", {8.5, -3.475}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{9, -3.6}], 
    {GrayLevel[0], InsetBox["2", {9.25, -2.725}], 
     InsetBox["1", {9.75, -2.725}], InsetBox["1", {9.25, -2.975}], 
     InsetBox["1", {9.75, -2.975}], InsetBox["3", {9.25, -3.225}], 
     InsetBox["3", {9.75, -3.225}], InsetBox["27", {9.5, -3.475}]}}, 
   {RGBColor[0, 0, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{1, -4.8}], 
    {GrayLevel[0], InsetBox["2", {1.25, -3.925}], 
     InsetBox["2", {1.75, -3.925}], InsetBox["1", {1.25, -4.175}], 
     InsetBox["1", {1.75, -4.175}], InsetBox["1", {1.25, -4.425}], 
     InsetBox["1", {1.75, -4.425}], InsetBox["28", {1.5, -4.675}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{2, -4.8}], 
    {GrayLevel[0], InsetBox["2", {2.25, -3.925}], 
     InsetBox["1", {2.75, -3.925}], InsetBox["2", {2.25, -4.175}], 
     InsetBox["1", {2.75, -4.175}], InsetBox["1", {2.25, -4.425}], 
     InsetBox["1", {2.75, -4.425}], InsetBox["29", {2.5, -4.675}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{3, -4.8}], 
    {GrayLevel[0], InsetBox["2", {3.25, -3.925}], 
     InsetBox["1", {3.75, -3.925}], InsetBox["2", {3.25, -4.175}], 
     InsetBox["1", {3.75, -4.175}], InsetBox["2", {3.25, -4.425}], 
     InsetBox["1", {3.75, -4.425}], InsetBox["30", {3.5, -4.675}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{4, -4.8}], 
    {GrayLevel[0], InsetBox["2", {4.25, -3.925}], 
     InsetBox["1", {4.75, -3.925}], InsetBox["2", {4.25, -4.175}], 
     InsetBox["1", {4.75, -4.175}], InsetBox["2", {4.25, -4.425}], 
     InsetBox["2", {4.75, -4.425}], InsetBox["31", {4.5, -4.675}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -4.8}], 
    {GrayLevel[0], InsetBox["2", {5.25, -3.925}], 
     InsetBox["1", {5.75, -3.925}], InsetBox["2", {5.25, -4.175}], 
     InsetBox["1", {5.75, -4.175}], InsetBox["3", {5.25, -4.425}], 
     InsetBox["1", {5.75, -4.425}], InsetBox["32", {5.5, -4.675}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -4.8}], 
    {GrayLevel[0], InsetBox["2", {6.25, -3.925}], 
     InsetBox["1", {6.75, -3.925}], InsetBox["2", {6.25, -4.175}], 
     InsetBox["1", {6.75, -4.175}], InsetBox["3", {6.25, -4.425}], 
     InsetBox["2", {6.75, -4.425}], InsetBox["33", {6.5, -4.675}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -4.8}], 
    {GrayLevel[0], InsetBox["2", {7.25, -3.925}], 
     InsetBox["1", {7.75, -3.925}], InsetBox["2", {7.25, -4.175}], 
     InsetBox["1", {7.75, -4.175}], InsetBox["3", {7.25, -4.425}], 
     InsetBox["3", {7.75, -4.425}], InsetBox["34", {7.5, -4.675}]}}, 
   {RGBColor[0, 0, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -4.8}], 
    {GrayLevel[0], InsetBox["2", {8.25, -3.925}], 
     InsetBox["2", {8.75, -3.925}], InsetBox["2", {8.25, -4.175}], 
     InsetBox["1", {8.75, -4.175}], InsetBox["1", {8.25, -4.425}], 
     InsetBox["1", {8.75, -4.425}], InsetBox["35", {8.5, -4.675}]}}, 
   {RGBColor[0, 0, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{9, -4.8}], 
    {GrayLevel[0], InsetBox["2", {9.25, -3.925}], 
     InsetBox["2", {9.75, -3.925}], InsetBox["2", {9.25, -4.175}], 
     InsetBox["1", {9.75, -4.175}], InsetBox["2", {9.25, -4.425}], 
     InsetBox["1", {9.75, -4.425}], InsetBox["36", {9.5, -4.675}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{1, -6.}], 
    {GrayLevel[0], InsetBox["2", {1.25, -5.125}], 
     InsetBox["1", {1.75, -5.125}], InsetBox["2", {1.25, -5.375}], 
     InsetBox["2", {1.75, -5.375}], InsetBox["1", {1.25, -5.625}], 
     InsetBox["1", {1.75, -5.625}], InsetBox["37", {1.5, -5.875}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{2, -6.}], 
    {GrayLevel[0], InsetBox["2", {2.25, -5.125}], 
     InsetBox["1", {2.75, -5.125}], InsetBox["2", {2.25, -5.375}], 
     InsetBox["2", {2.75, -5.375}], InsetBox["2", {2.25, -5.625}], 
     InsetBox["1", {2.75, -5.625}], InsetBox["38", {2.5, -5.875}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{3, -6.}], 
    {GrayLevel[0], InsetBox["2", {3.25, -5.125}], 
     InsetBox["1", {3.75, -5.125}], InsetBox["2", {3.25, -5.375}], 
     InsetBox["2", {3.75, -5.375}], InsetBox["2", {3.25, -5.625}], 
     InsetBox["2", {3.75, -5.625}], InsetBox["39", {3.5, -5.875}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{4, -6.}], 
    {GrayLevel[0], InsetBox["2", {4.25, -5.125}], 
     InsetBox["1", {4.75, -5.125}], InsetBox["2", {4.25, -5.375}], 
     InsetBox["2", {4.75, -5.375}], InsetBox["3", {4.25, -5.625}], 
     InsetBox["1", {4.75, -5.625}], InsetBox["40", {4.5, -5.875}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -6.}], 
    {GrayLevel[0], InsetBox["2", {5.25, -5.125}], 
     InsetBox["1", {5.75, -5.125}], InsetBox["2", {5.25, -5.375}], 
     InsetBox["2", {5.75, -5.375}], InsetBox["3", {5.25, -5.625}], 
     InsetBox["2", {5.75, -5.625}], InsetBox["41", {5.5, -5.875}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -6.}], 
    {GrayLevel[0], InsetBox["2", {6.25, -5.125}], 
     InsetBox["1", {6.75, -5.125}], InsetBox["2", {6.25, -5.375}], 
     InsetBox["2", {6.75, -5.375}], InsetBox["3", {6.25, -5.625}], 
     InsetBox["3", {6.75, -5.625}], InsetBox["42", {6.5, -5.875}]}}, 
   {RGBColor[0, 0, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -6.}], 
    {GrayLevel[0], InsetBox["2", {7.25, -5.125}], 
     InsetBox["2", {7.75, -5.125}], InsetBox["2", {7.25, -5.375}], 
     InsetBox["2", {7.75, -5.375}], InsetBox["1", {7.25, -5.625}], 
     InsetBox["1", {7.75, -5.625}], InsetBox["43", {7.5, -5.875}]}}, 
   {RGBColor[0, 0, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -6.}], 
    {GrayLevel[0], InsetBox["2", {8.25, -5.125}], 
     InsetBox["2", {8.75, -5.125}], InsetBox["2", {8.25, -5.375}], 
     InsetBox["2", {8.75, -5.375}], InsetBox["2", {8.25, -5.625}], 
     InsetBox["1", {8.75, -5.625}], InsetBox["44", {8.5, -5.875}]}}, 
   {RGBColor[0, 0, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{9, -6.}], 
    {GrayLevel[0], InsetBox["2", {9.25, -5.125}], 
     InsetBox["2", {9.75, -5.125}], InsetBox["2", {9.25, -5.375}], 
     InsetBox["2", {9.75, -5.375}], InsetBox["2", {9.25, -5.625}], 
     InsetBox["2", {9.75, -5.625}], InsetBox["45", {9.5, -5.875}]}}, 
   {GrayLevel[1], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -7.2}], 
    {GrayLevel[0], InsetBox["\<\"L\"\>", {5.25, -6.325}], 
     InsetBox["\<\"M\"\>", {5.75, -6.325}], 
     InsetBox["\<\"P\"\>", {5.25, -6.575}], 
     InsetBox["\<\"Q\"\>", {5.75, -6.575}], 
     InsetBox["\<\"R\"\>", {5.25, -6.825}], 
     InsetBox["\<\"S\"\>", {5.75, -6.825}], 
     InsetBox["\<\"I\"\>", {5.5, -7.075}]}}},
  BaseStyle->{FontSize -> 20, FontFamily -> "Times"},
  ImageSize->1000]], "Output",
 CellChangeTimes->{{3.733496011050477*^9, 3.733496031972712*^9}, 
   3.733496065651161*^9, 3.733496111724626*^9, {3.733496149429953*^9, 
   3.733496168305566*^9}, {3.733496237568214*^9, 3.733496253281846*^9}, 
   3.733587069838668*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Density matrix", "Chapter",
 CellChangeTimes->{{3.7335838040325117`*^9, 3.733583811512805*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"boxColourD", "[", 
   RowBox[{"sx_", ",", "sy_", ",", "text_"}], "]"}], ":=", 
  RowBox[{"Which", "[", 
   RowBox[{"text", ",", "White", ",", 
    RowBox[{"(", 
     RowBox[{"sx", " ", "&&", " ", "sy"}], ")"}], ",", "Green", ",", " ", 
    RowBox[{"(", 
     RowBox[{"sx", "||", "sy"}], ")"}], ",", " ", "Yellow", ",", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"!", "sx"}], "&&", 
      RowBox[{"!", "sy"}]}], ")"}], ",", " ", "Cyan"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"baseboxD", "[", 
   RowBox[{
   "R_", ",", "S_", ",", "I_", ",", "x_", ",", "y_", ",", "sx_", ",", "sy_", 
    ",", "nbs_", ",", "text_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"EdgeForm", "[", "Thin", "]"}], ",", 
    RowBox[{"boxColourD", "[", 
     RowBox[{"sx", ",", "sy", ",", "text"}], "]"}], ",", 
    RowBox[{"Rectangle", "[", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    "Black", ",", "\[IndentingNewLine]", 
    RowBox[{"Text", "[", 
     RowBox[{
      RowBox[{"Which", "[", 
       RowBox[{"text", ",", " ", 
        RowBox[{"Superscript", "[", 
         RowBox[{"R", ",", "\"\<x\>\""}], "]"}], ",", "sx", ",", 
        RowBox[{"Superscript", "[", 
         RowBox[{
          RowBox[{"R", "-", "nbs"}], ",", "\"\<S\>\""}], "]"}], ",", 
        RowBox[{"!", "sx"}], ",", 
        RowBox[{"Superscript", "[", 
         RowBox[{"R", ",", "\"\<L\>\""}], "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{".25", "+", "x"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", "/", "3"}], ")"}], "+", "y"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"Text", "[", 
     RowBox[{
      RowBox[{"Which", "[", 
       RowBox[{"text", ",", " ", 
        RowBox[{"Superscript", "[", 
         RowBox[{"S", ",", "\"\<x\>\""}], "]"}], ",", "sy", ",", 
        RowBox[{"Superscript", "[", 
         RowBox[{
          RowBox[{"S", "-", "nbs"}], ",", "\"\<S\>\""}], "]"}], ",", 
        RowBox[{"!", "sy"}], ",", 
        RowBox[{"Superscript", "[", 
         RowBox[{"S", ",", "\"\<L\>\""}], "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{".75", "+", "x"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", "/", "3"}], ")"}], "+", "y"}]}], "}"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Text", "[", 
     RowBox[{"I", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{".50", "+", "x"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "/", "3"}], ")"}], "+", "y"}]}], "}"}]}], "]"}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"Graphics", "[", 
  RowBox[{
   RowBox[{"baseboxD", "[", 
    RowBox[{
    "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "True", ",", " ", 
     "False", ",", "nbs", ",", "True"}], "]"}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontSize", "\[Rule]", "20"}], ",", 
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "}"}]}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.733583833612249*^9, 3.733583909319058*^9}, {
   3.733583994412635*^9, 3.733583996923161*^9}, {3.733584063003014*^9, 
   3.7335840633266573`*^9}, {3.733584144031056*^9, 3.733584178777248*^9}, {
   3.733584232601068*^9, 3.733584306049315*^9}, {3.733584811757058*^9, 
   3.733584896629422*^9}, {3.733584940676762*^9, 3.733585108885841*^9}, {
   3.7335852562098303`*^9, 3.73358526043226*^9}, {3.733585414932485*^9, 
   3.7335854746015997`*^9}, {3.733585533264011*^9, 3.7335855485964937`*^9}, {
   3.733585802076375*^9, 3.733585867952819*^9}, {3.7335859128173447`*^9, 
   3.733585934939229*^9}, {3.7335860176930523`*^9, 3.73358604636687*^9}, {
   3.733586102213863*^9, 3.733586172370207*^9}, {3.733586220020019*^9, 
   3.733586320061515*^9}, {3.733586400032329*^9, 3.7335864114908123`*^9}, {
   3.733587293710589*^9, 3.7335873153636*^9}, 3.733588287962103*^9}],

Cell[BoxData[
 GraphicsBox[
  {GrayLevel[1], EdgeForm[Thickness[Tiny]], RectangleBox[{1, 1}], 
   {GrayLevel[0], InsetBox[
     TemplateBox[{"1","\"x\""},
      "Superscript"], 
     NCache[{1.25, Rational[5, 3]}, {1.25, 1.6666666666666667`}]], InsetBox[
     TemplateBox[{"1","\"x\""},
      "Superscript"], 
     NCache[{1.75, Rational[5, 3]}, {1.75, 1.6666666666666667`}]], 
    InsetBox["1", NCache[{1.5, Rational[4, 3]}, {1.5, 1.3333333333333333`}]]}},
  BaseStyle->{FontSize -> 20, FontFamily -> "Times"}]], "Output",
 CellChangeTimes->{{3.733585011111821*^9, 3.733585019107312*^9}, {
   3.733585094653022*^9, 3.7335851094110327`*^9}, 3.7335852190343924`*^9, {
   3.733585256743888*^9, 3.733585260728984*^9}, {3.733585425869416*^9, 
   3.73358544073498*^9}, 3.733585475358776*^9, 3.7335855677735987`*^9, {
   3.733585854097858*^9, 3.733585868592265*^9}, {3.7335859251409893`*^9, 
   3.7335859358008137`*^9}, {3.73358602558118*^9, 3.733586046818922*^9}, 
   3.7335861737190104`*^9, {3.733586257930131*^9, 3.733586267838381*^9}, {
   3.733586300618911*^9, 3.733586320646193*^9}, 3.733586412127033*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nbs", "=", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sx", "=", "False"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sy", "=", "False"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ymax", "=", 
   RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"all", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"r", "=", "1"}], ",", 
   RowBox[{"r", "\[LessEqual]", 
    RowBox[{"nbs", "*", "2"}]}], ",", 
   RowBox[{"r", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"s", "=", "1"}], ",", 
     RowBox[{"s", "\[LessEqual]", "r"}], ",", 
     RowBox[{"s", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"i", "++"}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"y", "\[Equal]", "ymax"}], ",", 
        RowBox[{
         RowBox[{"y", "=", "0"}], ";", 
         RowBox[{"x", "++"}], ";", 
         RowBox[{"ymax", "--"}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"r", ">", "nbs"}], ",", " ", 
        RowBox[{"sx", "=", "True"}], ",", 
        RowBox[{"sx", "=", "False"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"s", ">", "nbs"}], ",", " ", 
        RowBox[{"sy", "=", "True"}], ",", 
        RowBox[{"sy", "=", "False"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"all", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"all", ",", 
         RowBox[{"baseboxD", "[", 
          RowBox[{
          "r", ",", "s", ",", "i", ",", "x", ",", "y", " ", ",", "sx", ",", 
           "sy", ",", "nbs", ",", "False"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"y", "--"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y", "++"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"all", "=", 
   RowBox[{"Append", "[", 
    RowBox[{"all", ",", 
     RowBox[{"baseboxD", "[", 
      RowBox[{
      "\"\<R\>\"", ",", "\"\<S\>\"", ",", "\"\<I\>\"", ",", "0", ",", "y", 
       " ", ",", "False", ",", "False", ",", "nbs", ",", "True"}], "]"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Graphics", "[", 
  RowBox[{"all", ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontSize", "\[Rule]", "20"}], ",", 
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "1000"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7335843642846203`*^9, 3.733584481979808*^9}, {
  3.7335845163978567`*^9, 3.733584607819091*^9}, {3.733584678981435*^9, 
  3.73358472791039*^9}, {3.73358478202602*^9, 3.7335848006533327`*^9}, {
  3.7335849075933647`*^9, 3.73358490916855*^9}, {3.733585228919416*^9, 
  3.733585242392322*^9}, {3.733585488646512*^9, 3.733585490013319*^9}, {
  3.733585527228594*^9, 3.733585528176412*^9}, {3.733585589990761*^9, 
  3.733585745369133*^9}, {3.733586196426633*^9, 3.733586201736829*^9}, {
  3.733587284934993*^9, 3.73358728778412*^9}, {3.733587334273164*^9, 
  3.733587365977847*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{0, 0}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], 
      NCache[{0.25, Rational[2, 3]}, {0.25, 0.6666666666666666}]], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], 
      NCache[{0.75, Rational[2, 3]}, {0.75, 0.6666666666666666}]], 
     InsetBox["1", 
      NCache[{0.5, Rational[1, 3]}, {0.5, 0.3333333333333333}]]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{1, 0}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], 
      NCache[{1.25, Rational[2, 3]}, {1.25, 0.6666666666666666}]], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], 
      NCache[{1.75, Rational[2, 3]}, {1.75, 0.6666666666666666}]], 
     InsetBox["2", 
      NCache[{1.5, Rational[1, 3]}, {1.5, 0.3333333333333333}]]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{1, -1}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], 
      NCache[{1.25, Rational[-1, 3]}, {1.25, -0.3333333333333333}]], 
     InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], 
      NCache[{1.75, Rational[-1, 3]}, {1.75, -0.3333333333333333}]], 
     InsetBox["3", 
      NCache[{1.5, Rational[-2, 3]}, {1.5, -0.6666666666666666}]]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{2, 0}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], 
      NCache[{2.25, Rational[2, 3]}, {2.25, 0.6666666666666666}]], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], 
      NCache[{2.75, Rational[2, 3]}, {2.75, 0.6666666666666666}]], 
     InsetBox["4", 
      NCache[{2.5, Rational[1, 3]}, {2.5, 0.3333333333333333}]]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{2, -1}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], 
      NCache[{2.25, Rational[-1, 3]}, {2.25, -0.3333333333333333}]], 
     InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], 
      NCache[{2.75, Rational[-1, 3]}, {2.75, -0.3333333333333333}]], 
     InsetBox["5", 
      NCache[{2.5, Rational[-2, 3]}, {2.5, -0.6666666666666666}]]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{2, -2}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], 
      NCache[{2.25, Rational[-4, 3]}, {2.25, -1.3333333333333333`}]], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], 
      NCache[{2.75, Rational[-4, 3]}, {2.75, -1.3333333333333333`}]], 
     InsetBox["6", 
      NCache[{2.5, Rational[-5, 3]}, {2.5, -1.6666666666666667`}]]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{3, 0}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], 
      NCache[{3.25, Rational[2, 3]}, {3.25, 0.6666666666666666}]], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], 
      NCache[{3.75, Rational[2, 3]}, {3.75, 0.6666666666666666}]], 
     InsetBox["7", 
      NCache[{3.5, Rational[1, 3]}, {3.5, 0.3333333333333333}]]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{3, -1}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], 
      NCache[{3.25, Rational[-1, 3]}, {3.25, -0.3333333333333333}]], 
     InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], 
      NCache[{3.75, Rational[-1, 3]}, {3.75, -0.3333333333333333}]], 
     InsetBox["8", 
      NCache[{3.5, Rational[-2, 3]}, {3.5, -0.6666666666666666}]]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{3, -2}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], 
      NCache[{3.25, Rational[-4, 3]}, {3.25, -1.3333333333333333`}]], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], 
      NCache[{3.75, Rational[-4, 3]}, {3.75, -1.3333333333333333`}]], 
     InsetBox["9", 
      NCache[{3.5, Rational[-5, 3]}, {3.5, -1.6666666666666667`}]]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{3, -3}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], 
      NCache[{3.25, Rational[-7, 3]}, {3.25, -2.3333333333333335`}]], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], 
      NCache[{3.75, Rational[-7, 3]}, {3.75, -2.3333333333333335`}]], 
     InsetBox["10", 
      NCache[{3.5, Rational[-8, 3]}, {3.5, -2.6666666666666665`}]]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{4, 0}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], 
      NCache[{4.25, Rational[2, 3]}, {4.25, 0.6666666666666666}]], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], 
      NCache[{4.75, Rational[2, 3]}, {4.75, 0.6666666666666666}]], 
     InsetBox["11", 
      NCache[{4.5, Rational[1, 3]}, {4.5, 0.3333333333333333}]]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{4, -1}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], 
      NCache[{4.25, Rational[-1, 3]}, {4.25, -0.3333333333333333}]], 
     InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], 
      NCache[{4.75, Rational[-1, 3]}, {4.75, -0.3333333333333333}]], 
     InsetBox["12", 
      NCache[{4.5, Rational[-2, 3]}, {4.5, -0.6666666666666666}]]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{4, -2}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], 
      NCache[{4.25, Rational[-4, 3]}, {4.25, -1.3333333333333333`}]], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], 
      NCache[{4.75, Rational[-4, 3]}, {4.75, -1.3333333333333333`}]], 
     InsetBox["13", 
      NCache[{4.5, Rational[-5, 3]}, {4.5, -1.6666666666666667`}]]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{4, -3}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], 
      NCache[{4.25, Rational[-7, 3]}, {4.25, -2.3333333333333335`}]], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], 
      NCache[{4.75, Rational[-7, 3]}, {4.75, -2.3333333333333335`}]], 
     InsetBox["14", 
      NCache[{4.5, Rational[-8, 3]}, {4.5, -2.6666666666666665`}]]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{4, -4}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], 
      NCache[{4.25, Rational[-10, 3]}, {4.25, -3.3333333333333335`}]], 
     InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], 
      NCache[{4.75, Rational[-10, 3]}, {4.75, -3.3333333333333335`}]], 
     InsetBox["15", 
      NCache[{4.5, Rational[-11, 3]}, {4.5, -3.6666666666666665`}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, 0}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], 
      NCache[{5.25, Rational[2, 3]}, {5.25, 0.6666666666666666}]], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], 
      NCache[{5.75, Rational[2, 3]}, {5.75, 0.6666666666666666}]], 
     InsetBox["16", 
      NCache[{5.5, Rational[1, 3]}, {5.5, 0.3333333333333333}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -1}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], 
      NCache[{5.25, Rational[-1, 3]}, {5.25, -0.3333333333333333}]], 
     InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], 
      NCache[{5.75, Rational[-1, 3]}, {5.75, -0.3333333333333333}]], 
     InsetBox["17", 
      NCache[{5.5, Rational[-2, 3]}, {5.5, -0.6666666666666666}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -2}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], 
      NCache[{5.25, Rational[-4, 3]}, {5.25, -1.3333333333333333`}]], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], 
      NCache[{5.75, Rational[-4, 3]}, {5.75, -1.3333333333333333`}]], 
     InsetBox["18", 
      NCache[{5.5, Rational[-5, 3]}, {5.5, -1.6666666666666667`}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -3}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], 
      NCache[{5.25, Rational[-7, 3]}, {5.25, -2.3333333333333335`}]], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], 
      NCache[{5.75, Rational[-7, 3]}, {5.75, -2.3333333333333335`}]], 
     InsetBox["19", 
      NCache[{5.5, Rational[-8, 3]}, {5.5, -2.6666666666666665`}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -4}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], 
      NCache[{5.25, Rational[-10, 3]}, {5.25, -3.3333333333333335`}]], 
     InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], 
      NCache[{5.75, Rational[-10, 3]}, {5.75, -3.3333333333333335`}]], 
     InsetBox["20", 
      NCache[{5.5, Rational[-11, 3]}, {5.5, -3.6666666666666665`}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -5}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], 
      NCache[{5.25, Rational[-13, 3]}, {5.25, -4.333333333333333}]], 
     InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], 
      NCache[{5.75, Rational[-13, 3]}, {5.75, -4.333333333333333}]], 
     InsetBox["21", 
      NCache[{5.5, Rational[-14, 3]}, {5.5, -4.666666666666667}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, 0}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], 
      NCache[{6.25, Rational[2, 3]}, {6.25, 0.6666666666666666}]], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], 
      NCache[{6.75, Rational[2, 3]}, {6.75, 0.6666666666666666}]], 
     InsetBox["22", 
      NCache[{6.5, Rational[1, 3]}, {6.5, 0.3333333333333333}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -1}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], 
      NCache[{6.25, Rational[-1, 3]}, {6.25, -0.3333333333333333}]], 
     InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], 
      NCache[{6.75, Rational[-1, 3]}, {6.75, -0.3333333333333333}]], 
     InsetBox["23", 
      NCache[{6.5, Rational[-2, 3]}, {6.5, -0.6666666666666666}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -2}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], 
      NCache[{6.25, Rational[-4, 3]}, {6.25, -1.3333333333333333`}]], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], 
      NCache[{6.75, Rational[-4, 3]}, {6.75, -1.3333333333333333`}]], 
     InsetBox["24", 
      NCache[{6.5, Rational[-5, 3]}, {6.5, -1.6666666666666667`}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -3}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], 
      NCache[{6.25, Rational[-7, 3]}, {6.25, -2.3333333333333335`}]], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], 
      NCache[{6.75, Rational[-7, 3]}, {6.75, -2.3333333333333335`}]], 
     InsetBox["25", 
      NCache[{6.5, Rational[-8, 3]}, {6.5, -2.6666666666666665`}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -4}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], 
      NCache[{6.25, Rational[-10, 3]}, {6.25, -3.3333333333333335`}]], 
     InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], 
      NCache[{6.75, Rational[-10, 3]}, {6.75, -3.3333333333333335`}]], 
     InsetBox["26", 
      NCache[{6.5, Rational[-11, 3]}, {6.5, -3.6666666666666665`}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -5}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], 
      NCache[{6.25, Rational[-13, 3]}, {6.25, -4.333333333333333}]], 
     InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], 
      NCache[{6.75, Rational[-13, 3]}, {6.75, -4.333333333333333}]], 
     InsetBox["27", 
      NCache[{6.5, Rational[-14, 3]}, {6.5, -4.666666666666667}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -6}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], 
      NCache[{6.25, Rational[-16, 3]}, {6.25, -5.333333333333333}]], 
     InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], 
      NCache[{6.75, Rational[-16, 3]}, {6.75, -5.333333333333333}]], 
     InsetBox["28", 
      NCache[{6.5, Rational[-17, 3]}, {6.5, -5.666666666666667}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, 0}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], 
      NCache[{7.25, Rational[2, 3]}, {7.25, 0.6666666666666666}]], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], 
      NCache[{7.75, Rational[2, 3]}, {7.75, 0.6666666666666666}]], 
     InsetBox["29", 
      NCache[{7.5, Rational[1, 3]}, {7.5, 0.3333333333333333}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -1}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], 
      NCache[{7.25, Rational[-1, 3]}, {7.25, -0.3333333333333333}]], 
     InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], 
      NCache[{7.75, Rational[-1, 3]}, {7.75, -0.3333333333333333}]], 
     InsetBox["30", 
      NCache[{7.5, Rational[-2, 3]}, {7.5, -0.6666666666666666}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -2}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], 
      NCache[{7.25, Rational[-4, 3]}, {7.25, -1.3333333333333333`}]], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], 
      NCache[{7.75, Rational[-4, 3]}, {7.75, -1.3333333333333333`}]], 
     InsetBox["31", 
      NCache[{7.5, Rational[-5, 3]}, {7.5, -1.6666666666666667`}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -3}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], 
      NCache[{7.25, Rational[-7, 3]}, {7.25, -2.3333333333333335`}]], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], 
      NCache[{7.75, Rational[-7, 3]}, {7.75, -2.3333333333333335`}]], 
     InsetBox["32", 
      NCache[{7.5, Rational[-8, 3]}, {7.5, -2.6666666666666665`}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -4}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], 
      NCache[{7.25, Rational[-10, 3]}, {7.25, -3.3333333333333335`}]], 
     InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], 
      NCache[{7.75, Rational[-10, 3]}, {7.75, -3.3333333333333335`}]], 
     InsetBox["33", 
      NCache[{7.5, Rational[-11, 3]}, {7.5, -3.6666666666666665`}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -5}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], 
      NCache[{7.25, Rational[-13, 3]}, {7.25, -4.333333333333333}]], 
     InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], 
      NCache[{7.75, Rational[-13, 3]}, {7.75, -4.333333333333333}]], 
     InsetBox["34", 
      NCache[{7.5, Rational[-14, 3]}, {7.5, -4.666666666666667}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -6}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], 
      NCache[{7.25, Rational[-16, 3]}, {7.25, -5.333333333333333}]], 
     InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], 
      NCache[{7.75, Rational[-16, 3]}, {7.75, -5.333333333333333}]], 
     InsetBox["35", 
      NCache[{7.5, Rational[-17, 3]}, {7.5, -5.666666666666667}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -7}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], 
      NCache[{7.25, Rational[-19, 3]}, {7.25, -6.333333333333333}]], 
     InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], 
      NCache[{7.75, Rational[-19, 3]}, {7.75, -6.333333333333333}]], 
     InsetBox["36", 
      NCache[{7.5, Rational[-20, 3]}, {7.5, -6.666666666666667}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, 0}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], 
      NCache[{8.25, Rational[2, 3]}, {8.25, 0.6666666666666666}]], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], 
      NCache[{8.75, Rational[2, 3]}, {8.75, 0.6666666666666666}]], 
     InsetBox["37", 
      NCache[{8.5, Rational[1, 3]}, {8.5, 0.3333333333333333}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -1}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], 
      NCache[{8.25, Rational[-1, 3]}, {8.25, -0.3333333333333333}]], 
     InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], 
      NCache[{8.75, Rational[-1, 3]}, {8.75, -0.3333333333333333}]], 
     InsetBox["38", 
      NCache[{8.5, Rational[-2, 3]}, {8.5, -0.6666666666666666}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -2}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], 
      NCache[{8.25, Rational[-4, 3]}, {8.25, -1.3333333333333333`}]], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], 
      NCache[{8.75, Rational[-4, 3]}, {8.75, -1.3333333333333333`}]], 
     InsetBox["39", 
      NCache[{8.5, Rational[-5, 3]}, {8.5, -1.6666666666666667`}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -3}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], 
      NCache[{8.25, Rational[-7, 3]}, {8.25, -2.3333333333333335`}]], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], 
      NCache[{8.75, Rational[-7, 3]}, {8.75, -2.3333333333333335`}]], 
     InsetBox["40", 
      NCache[{8.5, Rational[-8, 3]}, {8.5, -2.6666666666666665`}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -4}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], 
      NCache[{8.25, Rational[-10, 3]}, {8.25, -3.3333333333333335`}]], 
     InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], 
      NCache[{8.75, Rational[-10, 3]}, {8.75, -3.3333333333333335`}]], 
     InsetBox["41", 
      NCache[{8.5, Rational[-11, 3]}, {8.5, -3.6666666666666665`}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -5}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], 
      NCache[{8.25, Rational[-13, 3]}, {8.25, -4.333333333333333}]], 
     InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], 
      NCache[{8.75, Rational[-13, 3]}, {8.75, -4.333333333333333}]], 
     InsetBox["42", 
      NCache[{8.5, Rational[-14, 3]}, {8.5, -4.666666666666667}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -6}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], 
      NCache[{8.25, Rational[-16, 3]}, {8.25, -5.333333333333333}]], 
     InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], 
      NCache[{8.75, Rational[-16, 3]}, {8.75, -5.333333333333333}]], 
     InsetBox["43", 
      NCache[{8.5, Rational[-17, 3]}, {8.5, -5.666666666666667}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -7}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], 
      NCache[{8.25, Rational[-19, 3]}, {8.25, -6.333333333333333}]], 
     InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], 
      NCache[{8.75, Rational[-19, 3]}, {8.75, -6.333333333333333}]], 
     InsetBox["44", 
      NCache[{8.5, Rational[-20, 3]}, {8.5, -6.666666666666667}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -8}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], 
      NCache[{8.25, Rational[-22, 3]}, {8.25, -7.333333333333333}]], 
     InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], 
      NCache[{8.75, Rational[-22, 3]}, {8.75, -7.333333333333333}]], 
     InsetBox["45", 
      NCache[{8.5, Rational[-23, 3]}, {8.5, -7.666666666666667}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{9, 0}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], 
      NCache[{9.25, Rational[2, 3]}, {9.25, 0.6666666666666666}]], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], 
      NCache[{9.75, Rational[2, 3]}, {9.75, 0.6666666666666666}]], 
     InsetBox["46", 
      NCache[{9.5, Rational[1, 3]}, {9.5, 0.3333333333333333}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{9, -1}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], 
      NCache[{9.25, Rational[-1, 3]}, {9.25, -0.3333333333333333}]], 
     InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], 
      NCache[{9.75, Rational[-1, 3]}, {9.75, -0.3333333333333333}]], 
     InsetBox["47", 
      NCache[{9.5, Rational[-2, 3]}, {9.5, -0.6666666666666666}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{9, -2}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], 
      NCache[{9.25, Rational[-4, 3]}, {9.25, -1.3333333333333333`}]], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], 
      NCache[{9.75, Rational[-4, 3]}, {9.75, -1.3333333333333333`}]], 
     InsetBox["48", 
      NCache[{9.5, Rational[-5, 3]}, {9.5, -1.6666666666666667`}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{9, -3}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], 
      NCache[{9.25, Rational[-7, 3]}, {9.25, -2.3333333333333335`}]], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], 
      NCache[{9.75, Rational[-7, 3]}, {9.75, -2.3333333333333335`}]], 
     InsetBox["49", 
      NCache[{9.5, Rational[-8, 3]}, {9.5, -2.6666666666666665`}]]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{9, -4}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], 
      NCache[{9.25, Rational[-10, 3]}, {9.25, -3.3333333333333335`}]], 
     InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], 
      NCache[{9.75, Rational[-10, 3]}, {9.75, -3.3333333333333335`}]], 
     InsetBox["50", 
      NCache[{9.5, Rational[-11, 3]}, {9.5, -3.6666666666666665`}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{9, -5}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], 
      NCache[{9.25, Rational[-13, 3]}, {9.25, -4.333333333333333}]], 
     InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], 
      NCache[{9.75, Rational[-13, 3]}, {9.75, -4.333333333333333}]], 
     InsetBox["51", 
      NCache[{9.5, Rational[-14, 3]}, {9.5, -4.666666666666667}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{9, -6}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], 
      NCache[{9.25, Rational[-16, 3]}, {9.25, -5.333333333333333}]], 
     InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], 
      NCache[{9.75, Rational[-16, 3]}, {9.75, -5.333333333333333}]], 
     InsetBox["52", 
      NCache[{9.5, Rational[-17, 3]}, {9.5, -5.666666666666667}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{9, -7}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], 
      NCache[{9.25, Rational[-19, 3]}, {9.25, -6.333333333333333}]], 
     InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], 
      NCache[{9.75, Rational[-19, 3]}, {9.75, -6.333333333333333}]], 
     InsetBox["53", 
      NCache[{9.5, Rational[-20, 3]}, {9.5, -6.666666666666667}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{9, -8}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], 
      NCache[{9.25, Rational[-22, 3]}, {9.25, -7.333333333333333}]], 
     InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], 
      NCache[{9.75, Rational[-22, 3]}, {9.75, -7.333333333333333}]], 
     InsetBox["54", 
      NCache[{9.5, Rational[-23, 3]}, {9.5, -7.666666666666667}]]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{9, -9}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], 
      NCache[{9.25, Rational[-25, 3]}, {9.25, -8.333333333333334}]], 
     InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], 
      NCache[{9.75, Rational[-25, 3]}, {9.75, -8.333333333333334}]], 
     InsetBox["55", 
      NCache[{9.5, Rational[-26, 3]}, {9.5, -8.666666666666666}]]}}, 
   {GrayLevel[1], EdgeForm[Thickness[Tiny]], RectangleBox[{0, -9}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"\"R\"","\"x\""},
       "Superscript"], 
      NCache[{0.25, Rational[-25, 3]}, {0.25, -8.333333333333334}]], 
     InsetBox[
      TemplateBox[{"\"S\"","\"x\""},
       "Superscript"], 
      NCache[{0.75, Rational[-25, 3]}, {0.75, -8.333333333333334}]], 
     InsetBox["\<\"I\"\>", 
      NCache[{0.5, Rational[-26, 3]}, {0.5, -8.666666666666666}]]}}},
  BaseStyle->{FontSize -> 20, FontFamily -> "Times"},
  ImageSize->1000]], "Output",
 CellChangeTimes->{{3.733584587897697*^9, 3.733584608895172*^9}, {
   3.733584692788239*^9, 3.733584728368306*^9}, 3.733584802731763*^9, 
   3.733584914554326*^9, {3.733585222471187*^9, 3.733585243158605*^9}, 
   3.733585490640709*^9, 3.733585591959071*^9, {3.733585664119665*^9, 
   3.733585712113472*^9}, 3.73358574624594*^9, 3.733585871692317*^9, 
   3.733585939136757*^9, 3.733586028419203*^9, {3.733586180299363*^9, 
   3.733586202312622*^9}, {3.73358626078728*^9, 3.733586270695401*^9}, 
   3.73358632611742*^9, 3.733586415922594*^9, {3.733587349452486*^9, 
   3.7335873664170628`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nbs", "=", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sx", "=", "False"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sy", "=", "False"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xmax", "=", "9"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"all", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"r", "=", "1"}], ",", 
   RowBox[{"r", "\[LessEqual]", 
    RowBox[{"nbs", "*", "2"}]}], ",", 
   RowBox[{"r", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"s", "=", "1"}], ",", 
     RowBox[{"s", "\[LessEqual]", "r"}], ",", 
     RowBox[{"s", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"i", "++"}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"r", ">", "nbs"}], ",", " ", 
        RowBox[{"sx", "=", "True"}], ",", 
        RowBox[{"sx", "=", "False"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"s", ">", "nbs"}], ",", " ", 
        RowBox[{"sy", "=", "True"}], ",", 
        RowBox[{"sy", "=", "False"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"all", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"all", ",", 
         RowBox[{"baseboxD", "[", 
          RowBox[{"r", ",", "s", ",", "i", ",", "x", ",", 
           RowBox[{"y", " ", "+", 
            RowBox[{"(", 
             RowBox[{"y", "*", "0.2"}], ")"}]}], ",", "sx", ",", "sy", ",", 
           "nbs", ",", "False"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"x", "\[Equal]", "xmax"}], ",", 
        RowBox[{
         RowBox[{"x", "=", "0"}], ";", 
         RowBox[{"y", "--"}], ";"}], ",", 
        RowBox[{"x", "++"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}],
   "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y", "--"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"all", "=", 
   RowBox[{"Append", "[", 
    RowBox[{"all", ",", 
     RowBox[{"baseboxD", "[", 
      RowBox[{
      "\"\<P\>\"", ",", "\"\<Q\>\"", ",", "\"\<I\>\"", ",", "4.5", ",", 
       RowBox[{"y", " ", "+", 
        RowBox[{"(", 
         RowBox[{"y", "*", "0.2"}], ")"}]}], ",", "False", ",", "False", ",", 
       "nbs", ",", "True"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Graphics", "[", 
  RowBox[{"all", ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontSize", "\[Rule]", "20"}], ",", 
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "1000"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7335865406821337`*^9, 3.733586655830155*^9}, {
  3.733586705453322*^9, 3.733586750044897*^9}, {3.733586839400235*^9, 
  3.733586887665504*^9}, {3.7335873823429003`*^9, 3.733587394333371*^9}, {
  3.733588132197359*^9, 3.733588134220111*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{0, 0.}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], {0.25, 0.6666666666666666}], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], {0.75, 0.6666666666666666}], 
     InsetBox["1", {0.5, 0.3333333333333333}]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{1, 0.}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], {1.25, 0.6666666666666666}], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], {1.75, 0.6666666666666666}], 
     InsetBox["2", {1.5, 0.3333333333333333}]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{2, 0.}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], {2.25, 0.6666666666666666}], InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], {2.75, 0.6666666666666666}], 
     InsetBox["3", {2.5, 0.3333333333333333}]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{3, 0.}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], {3.25, 0.6666666666666666}], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], {3.75, 0.6666666666666666}], 
     InsetBox["4", {3.5, 0.3333333333333333}]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{4, 0.}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], {4.25, 0.6666666666666666}], InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], {4.75, 0.6666666666666666}], 
     InsetBox["5", {4.5, 0.3333333333333333}]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{5, 0.}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], {5.25, 0.6666666666666666}], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], {5.75, 0.6666666666666666}], 
     InsetBox["6", {5.5, 0.3333333333333333}]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{6, 0.}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], {6.25, 0.6666666666666666}], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], {6.75, 0.6666666666666666}], 
     InsetBox["7", {6.5, 0.3333333333333333}]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{7, 0.}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], {7.25, 0.6666666666666666}], InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], {7.75, 0.6666666666666666}], 
     InsetBox["8", {7.5, 0.3333333333333333}]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{8, 0.}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], {8.25, 0.6666666666666666}], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], {8.75, 0.6666666666666666}], 
     InsetBox["9", {8.5, 0.3333333333333333}]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{9, 0.}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], {9.25, 0.6666666666666666}], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], {9.75, 0.6666666666666666}], 
     InsetBox["10", {9.5, 0.3333333333333333}]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{0, -1.2}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], {0.25, -0.5333333333333333}], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], {0.75, -0.5333333333333333}], 
     InsetBox["11", {0.5, -0.8666666666666667}]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{1, -1.2}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], {1.25, -0.5333333333333333}], InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], {1.75, -0.5333333333333333}], 
     InsetBox["12", {1.5, -0.8666666666666667}]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{2, -1.2}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], {2.25, -0.5333333333333333}], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], {2.75, -0.5333333333333333}], 
     InsetBox["13", {2.5, -0.8666666666666667}]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{3, -1.2}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], {3.25, -0.5333333333333333}], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], {3.75, -0.5333333333333333}], 
     InsetBox["14", {3.5, -0.8666666666666667}]}}, 
   {RGBColor[0, 1, 1], EdgeForm[Thickness[Tiny]], RectangleBox[{4, -1.2}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], {4.25, -0.5333333333333333}], InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], {4.75, -0.5333333333333333}], 
     InsetBox["15", {4.5, -0.8666666666666667}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -1.2}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], {5.25, -0.5333333333333333}], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], {5.75, -0.5333333333333333}], 
     InsetBox["16", {5.5, -0.8666666666666667}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -1.2}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], {6.25, -0.5333333333333333}], InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], {6.75, -0.5333333333333333}], 
     InsetBox["17", {6.5, -0.8666666666666667}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -1.2}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], {7.25, -0.5333333333333333}], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], {7.75, -0.5333333333333333}], 
     InsetBox["18", {7.5, -0.8666666666666667}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -1.2}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], {8.25, -0.5333333333333333}], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], {8.75, -0.5333333333333333}], 
     InsetBox["19", {8.5, -0.8666666666666667}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{9, -1.2}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], {9.25, -0.5333333333333333}], InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], {9.75, -0.5333333333333333}], 
     InsetBox["20", {9.5, -0.8666666666666667}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{0, -2.4}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], {0.25, -1.7333333333333334`}], InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], {0.75, -1.7333333333333334`}], 
     InsetBox["21", {0.5, -2.0666666666666664`}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{1, -2.4}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], {1.25, -1.7333333333333334`}], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], {1.75, -1.7333333333333334`}], 
     InsetBox["22", {1.5, -2.0666666666666664`}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{2, -2.4}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], {2.25, -1.7333333333333334`}], InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], {2.75, -1.7333333333333334`}], 
     InsetBox["23", {2.5, -2.0666666666666664`}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{3, -2.4}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], {3.25, -1.7333333333333334`}], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], {3.75, -1.7333333333333334`}], 
     InsetBox["24", {3.5, -2.0666666666666664`}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{4, -2.4}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], {4.25, -1.7333333333333334`}], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], {4.75, -1.7333333333333334`}], 
     InsetBox["25", {4.5, -2.0666666666666664`}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -2.4}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], {5.25, -1.7333333333333334`}], InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], {5.75, -1.7333333333333334`}], 
     InsetBox["26", {5.5, -2.0666666666666664`}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -2.4}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], {6.25, -1.7333333333333334`}], InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], {6.75, -1.7333333333333334`}], 
     InsetBox["27", {6.5, -2.0666666666666664`}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -2.4}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], {7.25, -1.7333333333333334`}], InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], {7.75, -1.7333333333333334`}], 
     InsetBox["28", {7.5, -2.0666666666666664`}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -2.4}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], {8.25, -1.7333333333333334`}], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], {8.75, -1.7333333333333334`}], 
     InsetBox["29", {8.5, -2.0666666666666664`}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{9, -2.4}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], {9.25, -1.7333333333333334`}], InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], {9.75, -1.7333333333333334`}], 
     InsetBox["30", {9.5, -2.0666666666666664`}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{0, -3.6}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], {0.25, -2.9333333333333336`}], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], {0.75, -2.9333333333333336`}], 
     InsetBox["31", {0.5, -3.2666666666666666`}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{1, -3.6}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], {1.25, -2.9333333333333336`}], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], {1.75, -2.9333333333333336`}], 
     InsetBox["32", {1.5, -3.2666666666666666`}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{2, -3.6}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], {2.25, -2.9333333333333336`}], InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], {2.75, -2.9333333333333336`}], 
     InsetBox["33", {2.5, -3.2666666666666666`}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{3, -3.6}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], {3.25, -2.9333333333333336`}], InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], {3.75, -2.9333333333333336`}], 
     InsetBox["34", {3.5, -3.2666666666666666`}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{4, -3.6}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], {4.25, -2.9333333333333336`}], InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], {4.75, -2.9333333333333336`}], 
     InsetBox["35", {4.5, -3.2666666666666666`}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -3.6}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], {5.25, -2.9333333333333336`}], InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], {5.75, -2.9333333333333336`}], 
     InsetBox["36", {5.5, -3.2666666666666666`}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -3.6}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], {6.25, -2.9333333333333336`}], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], {6.75, -2.9333333333333336`}], 
     InsetBox["37", {6.5, -3.2666666666666666`}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -3.6}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], {7.25, -2.9333333333333336`}], InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], {7.75, -2.9333333333333336`}], 
     InsetBox["38", {7.5, -3.2666666666666666`}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -3.6}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], {8.25, -2.9333333333333336`}], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], {8.75, -2.9333333333333336`}], 
     InsetBox["39", {8.5, -3.2666666666666666`}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{9, -3.6}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], {9.25, -2.9333333333333336`}], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], {9.75, -2.9333333333333336`}], 
     InsetBox["40", {9.5, -3.2666666666666666`}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{0, -4.8}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], {0.25, -4.133333333333333}], InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], {0.75, -4.133333333333333}], 
     InsetBox["41", {0.5, -4.466666666666667}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{1, -4.8}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], {1.25, -4.133333333333333}], InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], {1.75, -4.133333333333333}], 
     InsetBox["42", {1.5, -4.466666666666667}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{2, -4.8}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], {2.25, -4.133333333333333}], InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], {2.75, -4.133333333333333}], 
     InsetBox["43", {2.5, -4.466666666666667}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{3, -4.8}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], {3.25, -4.133333333333333}], InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], {3.75, -4.133333333333333}], 
     InsetBox["44", {3.5, -4.466666666666667}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{4, -4.8}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], {4.25, -4.133333333333333}], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], {4.75, -4.133333333333333}], 
     InsetBox["45", {4.5, -4.466666666666667}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{5, -4.8}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], {5.25, -4.133333333333333}], InsetBox[
      TemplateBox[{"1","\"L\""},
       "Superscript"], {5.75, -4.133333333333333}], 
     InsetBox["46", {5.5, -4.466666666666667}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{6, -4.8}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], {6.25, -4.133333333333333}], InsetBox[
      TemplateBox[{"2","\"L\""},
       "Superscript"], {6.75, -4.133333333333333}], 
     InsetBox["47", {6.5, -4.466666666666667}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{7, -4.8}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], {7.25, -4.133333333333333}], InsetBox[
      TemplateBox[{"3","\"L\""},
       "Superscript"], {7.75, -4.133333333333333}], 
     InsetBox["48", {7.5, -4.466666666666667}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{8, -4.8}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], {8.25, -4.133333333333333}], InsetBox[
      TemplateBox[{"4","\"L\""},
       "Superscript"], {8.75, -4.133333333333333}], 
     InsetBox["49", {8.5, -4.466666666666667}]}}, 
   {RGBColor[1, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{9, -4.8}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], {9.25, -4.133333333333333}], InsetBox[
      TemplateBox[{"5","\"L\""},
       "Superscript"], {9.75, -4.133333333333333}], 
     InsetBox["50", {9.5, -4.466666666666667}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{0, -6.}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], {0.25, -5.333333333333333}], InsetBox[
      TemplateBox[{"1","\"S\""},
       "Superscript"], {0.75, -5.333333333333333}], 
     InsetBox["51", {0.5, -5.666666666666667}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{1, -6.}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], {1.25, -5.333333333333333}], InsetBox[
      TemplateBox[{"2","\"S\""},
       "Superscript"], {1.75, -5.333333333333333}], 
     InsetBox["52", {1.5, -5.666666666666667}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{2, -6.}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], {2.25, -5.333333333333333}], InsetBox[
      TemplateBox[{"3","\"S\""},
       "Superscript"], {2.75, -5.333333333333333}], 
     InsetBox["53", {2.5, -5.666666666666667}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{3, -6.}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], {3.25, -5.333333333333333}], InsetBox[
      TemplateBox[{"4","\"S\""},
       "Superscript"], {3.75, -5.333333333333333}], 
     InsetBox["54", {3.5, -5.666666666666667}]}}, 
   {RGBColor[0, 1, 0], EdgeForm[Thickness[Tiny]], RectangleBox[{4, -6.}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], {4.25, -5.333333333333333}], InsetBox[
      TemplateBox[{"5","\"S\""},
       "Superscript"], {4.75, -5.333333333333333}], 
     InsetBox["55", {4.5, -5.666666666666667}]}}, 
   {GrayLevel[1], EdgeForm[Thickness[Tiny]], RectangleBox[{4.5, -7.2}], 
    {GrayLevel[0], InsetBox[
      TemplateBox[{"\"P\"","\"x\""},
       "Superscript"], {4.75, -6.533333333333333}], InsetBox[
      TemplateBox[{"\"Q\"","\"x\""},
       "Superscript"], {5.25, -6.533333333333333}], 
     InsetBox["\<\"I\"\>", {5., -6.866666666666667}]}}},
  BaseStyle->{FontSize -> 20, FontFamily -> "Times"},
  ImageSize->1000]], "Output",
 CellChangeTimes->{
  3.7335866466974907`*^9, {3.7335867283188763`*^9, 3.733586754909727*^9}, {
   3.733586862663547*^9, 3.733586888766177*^9}, 3.733587394880362*^9, 
   3.733588134998206*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Lots of BFs", "Chapter",
 CellChangeTimes->{{3.733588259483062*^9, 3.733588268482136*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"nbs", "=", "45"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"i", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sx", "=", "False"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sy", "=", "False"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xmax", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"all", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"r", "=", "1"}], ",", 
   RowBox[{"r", "\[LessEqual]", 
    RowBox[{"nbs", "*", "2"}]}], ",", 
   RowBox[{"r", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"s", "=", "1"}], ",", 
     RowBox[{"s", "\[LessEqual]", "r"}], ",", 
     RowBox[{"s", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"i", "++"}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"r", ">", "nbs"}], ",", " ", 
        RowBox[{"sx", "=", "True"}], ",", 
        RowBox[{"sx", "=", "False"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"s", ">", "nbs"}], ",", " ", 
        RowBox[{"sy", "=", "True"}], ",", 
        RowBox[{"sy", "=", "False"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"all", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"all", ",", 
         RowBox[{"baseboxD", "[", 
          RowBox[{"r", ",", "s", ",", "i", ",", "x", ",", 
           RowBox[{"y", " ", "+", 
            RowBox[{"(", 
             RowBox[{"y", "*", "0.2"}], ")"}]}], ",", "sx", ",", "sy", ",", 
           "nbs", ",", "False"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"x", "\[Equal]", "xmax"}], ",", 
        RowBox[{
         RowBox[{"x", "=", "0"}], ";", 
         RowBox[{"y", "--"}], ";"}], ",", 
        RowBox[{"x", "++"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}],
   "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y", "--"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"all", "=", 
   RowBox[{"Append", "[", 
    RowBox[{"all", ",", 
     RowBox[{"baseboxD", "[", 
      RowBox[{
      "\"\<R\>\"", ",", "\"\<S\>\"", ",", "\"\<I\>\"", ",", "4.5", ",", 
       RowBox[{"y", " ", "+", 
        RowBox[{"(", 
         RowBox[{"y", "*", "0.2"}], ")"}]}], ",", "False", ",", "False", ",", 
       "nbs", ",", "True"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Graphics", "[", 
  RowBox[{"all", ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontSize", "\[Rule]", "1"}], ",", 
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "1000"}]}], "]"}]}], "Input"]
}, Open  ]]
},
WindowSize->{1441, 940},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (December 4, \
2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 100, 1, 65, "Chapter"],
Cell[683, 25, 1174, 32, 28, "Input"],
Cell[1860, 59, 3373, 99, 114, "Input"],
Cell[CellGroupData[{
Cell[5258, 162, 9240, 240, 284, "Input"],
Cell[14501, 404, 28182, 433, 1013, "Output"]
}, Open  ]],
Cell[42698, 840, 8774, 231, 267, "Input"],
Cell[CellGroupData[{
Cell[51497, 1075, 5161, 123, 454, "Input"],
Cell[56661, 1200, 16041, 249, 800, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[72751, 1455, 101, 1, 54, "Chapter"],
Cell[CellGroupData[{
Cell[72877, 1460, 3949, 98, 131, "Input"],
Cell[76829, 1560, 1105, 19, 374, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[77971, 1584, 3469, 86, 363, "Input"],
Cell[81443, 1672, 26496, 603, 1013, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[107976, 2280, 3229, 83, 352, "Input"],
Cell[111208, 2365, 19305, 399, 841, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[130562, 2770, 96, 1, 65, "Chapter"],
Cell[130661, 2773, 2968, 79, 352, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)