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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    237308,       4909]
NotebookOptionsPosition[    232136,       4730]
NotebookOutlinePosition[    232596,       4748]
CellTagsIndexPosition[    232553,       4745]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Textbook Analysis", "Title",
 CellChangeTimes->{{3.5441912944973087`*^9, 3.544191303928438*^9}}],

Cell["The Case of High School Algebra", "Subtitle",
 CellChangeTimes->{{3.544191336025622*^9, 3.544191358748252*^9}}],

Cell[CellGroupData[{

Cell["Project Personnel", "Chapter",
 CellChangeTimes->{{3.5441924573919153`*^9, 3.544192490668304*^9}, 
   3.6347818227824497`*^9, 3.6347818537248507`*^9}],

Cell[CellGroupData[{

Cell["Mary Ann Huntley", "Section",
 CellChangeTimes->{{3.544192537012405*^9, 3.5441925680952883`*^9}, {
  3.544192638940053*^9, 3.5441926403807287`*^9}}],

Cell["PI (Cornell University)", "Text",
 CellChangeTimes->{3.544192650029248*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Jennifer Mayer", "Section",
 CellChangeTimes->{{3.544192655724531*^9, 3.5441926594921618`*^9}}],

Cell["Teacher Consultant (Christina School District, DE)", "Text",
 CellChangeTimes->{{3.544192669187639*^9, 3.544192687970666*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Other Project Personnel", "Section",
 CellChangeTimes->{{3.544192723060011*^9, 3.5441927322147818`*^9}}],

Cell["\<\
Maria Terrell -- Senior Personnel (Cornell University)
Tisha Riley -- Teacher Consultant (Moravia School District, NY)
Richard Furnas -- Statistical Consultant (Cornell University)\
\>", "Text",
 CellChangeTimes->{{3.544192744451063*^9, 3.54419280951362*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Project Advisors/Consultants", "Section",
 CellChangeTimes->{{3.544192841096467*^9, 3.544192849640284*^9}}],

Cell["\<\
Hyman Bass (University of Michigan)
Herb Clemens (Ohio State University)
Jim Hiebert (University of Delaware)
Sarah Theule Lubienski (University of Illinois Urbana-Champagne)
Wei Pan (University of Cincinnati)
Maria Araceli Ruiz-Primo (University of Colorado Denver)
Norman Webb (University of Wisconsin Madison)\
\>", "Text",
 CellChangeTimes->{{3.544192887014673*^9, 3.544192916321477*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Bring in the Data", "Chapter",
 CellChangeTimes->{{3.634780571713076*^9, 3.6347805724065247`*^9}, 
   3.6347810803870163`*^9}],

Cell[CellGroupData[{

Cell["Read it in", "Subchapter",
 CellChangeTimes->{{3.5441915308614388`*^9, 3.544191536618239*^9}, 
   3.634781089947331*^9}],

Cell["\<\
This takes a while so is done as a separate Mathematica Chapter allowing \
other operations e.g. sanity checks and any subsequent processing to be quick \
and independent of reading in the data.
\
\>", "Text",
 CellChangeTimes->{{3.634820626072513*^9, 3.634820663090406*^9}}],

Cell[CellGroupData[{

Cell["theSource", "Section",
 CellChangeTimes->{{3.646349640414339*^9, 3.6463496613060923`*^9}}],

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"web", ",", "local"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
    "web", "=", 
     "\"\<http://www.math.cornell.edu/twiki/pub/MH/TextbookCoding/\>\""}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{"local", "=", 
     RowBox[{"NotebookDirectory", "[", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"theSource", "=", "web"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"\"\<Data to be retrieved from: \>\"", ",", "theSource"}], 
     "]"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.646349681443015*^9, 3.646349702361084*^9}, {
   3.646349738631605*^9, 3.6463498357432747`*^9}, 3.646349934906621*^9, {
   3.646350058073721*^9, 3.646350211527665*^9}, {3.646350429397027*^9, 
   3.646350462733436*^9}, {3.647946013735931*^9, 3.6479460144135942`*^9}, {
   3.6480807918214006`*^9, 3.648080798659437*^9}, {3.6480809212712708`*^9, 
   3.6480809367834473`*^9}, {3.648081000635931*^9, 3.648081001690645*^9}, {
   3.64808127187775*^9, 3.648081273324827*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["theData", "Section",
 CellChangeTimes->{{3.634820586736511*^9, 3.6348205885660133`*^9}, {
  3.6463454532721157`*^9, 3.646345454983279*^9}}],

Cell[TextData[{
 StyleBox["seriesData.ods",
  FontFamily->"Courier"],
 " retrieved from ",
 StyleBox["theSource",
  FontFamily->"Courier"]
}], "Text",
 CellChangeTimes->{{3.544194189664481*^9, 3.544194219031506*^9}, {
   3.634818138085493*^9, 3.634818217875744*^9}, 3.634820538468864*^9, {
   3.634820691302712*^9, 3.634820692823448*^9}, {3.6463502890698957`*^9, 
   3.646350290964608*^9}, 3.646350410299848*^9, {3.646366686352428*^9, 
   3.6463666891192303`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"time", ",", "t0", ",", "t1"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"t0", "=", 
      RowBox[{"DateString", "[", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{"\"\<Import starting: \>\"", ",", "t0"}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"time", "=", 
      RowBox[{"Timing", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"theData", "=", 
         RowBox[{"Import", "[", " ", "\[IndentingNewLine]", 
          RowBox[{"theSource", "<>", "\"\<seriesData.ods\>\""}], 
          "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"t1", "=", 
      RowBox[{"DateString", "[", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{
      "\"\<Import completed: \>\"", ",", "t1", ",", 
       "\"\<\\nTiming reports \>\"", ",", 
       RowBox[{"time", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "\"\< seconds to import.\>\""}], 
      "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.5441264835735273`*^9, 3.544126488146475*^9}, {
   3.544126677810543*^9, 3.544126741033276*^9}, {3.544189801695512*^9, 
   3.544189815972803*^9}, 3.5441898460685863`*^9, {3.544190403857646*^9, 
   3.544190404270877*^9}, {3.5441918928705053`*^9, 3.54419191553971*^9}, {
   3.54419338473414*^9, 3.544193521670519*^9}, {3.544194369035714*^9, 
   3.5441943948173857`*^9}, {3.544194486784605*^9, 3.54419448714642*^9}, {
   3.548509552415769*^9, 3.548509696141762*^9}, {3.634781014554595*^9, 
   3.634781054174999*^9}, {3.634781182841673*^9, 3.6347811843357973`*^9}, {
   3.6348171520110598`*^9, 3.634817193477277*^9}, {3.634817988484684*^9, 
   3.6348179893794613`*^9}, 3.634820515869071*^9, {3.6348206764965343`*^9, 
   3.634820679709943*^9}, {3.64634541016026*^9, 3.6463454454153976`*^9}, {
   3.646345482199029*^9, 3.646345611503838*^9}, 3.646345732676024*^9, {
   3.646349856128085*^9, 3.646349865836385*^9}, {3.648081016636464*^9, 
   3.648081047812801*^9}, {3.6480859444824047`*^9, 3.648085945415555*^9}, {
   3.6539542688839827`*^9, 3.6539543144033813`*^9}, {3.653959157413556*^9, 
   3.653959354195984*^9}, {3.653959393827251*^9, 3.653959431927969*^9}, {
   3.653959882913661*^9, 3.653959913254815*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["theContext", "Section",
 CellChangeTimes->{{3.6348206015599194`*^9, 3.6348206038944597`*^9}}],

Cell[TextData[{
 StyleBox["contextData.ods",
  FontFamily->"Courier"],
 " retrieved from ",
 StyleBox["theSource",
  FontFamily->"Courier"],
 ". Context information with valid codes and various \
\[OpenCurlyDoubleQuote]handles\[CloseCurlyDoubleQuote] for them."
}], "Text",
 CellChangeTimes->{{3.634820699942606*^9, 3.6348207961373053`*^9}, {
   3.646350360473291*^9, 3.6463503855981817`*^9}, 3.646366703331253*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "time", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"time", "=", 
      RowBox[{"Timing", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"theContext", "=", 
         RowBox[{"Import", "[", "\[IndentingNewLine]", 
          RowBox[{"theSource", "<>", "\"\<seriesContext.ods\>\""}], 
          "\[IndentingNewLine]", "]"}]}], ";"}], " ", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Print", "[", 
      RowBox[{
       RowBox[{"time", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       "\"\< seconds to import. Imported on: \>\"", ",", 
       RowBox[{"DateString", "[", "]"}]}], "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.5441264835735273`*^9, 3.544126488146475*^9}, {
   3.544126677810543*^9, 3.544126741033276*^9}, {3.544189801695512*^9, 
   3.544189815972803*^9}, 3.5441898460685863`*^9, {3.544190403857646*^9, 
   3.544190404270877*^9}, {3.5441918928705053`*^9, 3.54419191553971*^9}, {
   3.54419338473414*^9, 3.544193521670519*^9}, {3.544194369035714*^9, 
   3.5441943948173857`*^9}, {3.544194486784605*^9, 3.54419448714642*^9}, {
   3.548509552415769*^9, 3.548509696141762*^9}, {3.634781014554595*^9, 
   3.634781054174999*^9}, {3.634781182841673*^9, 3.6347811843357973`*^9}, {
   3.6348171520110598`*^9, 3.634817193477277*^9}, {3.634817988484684*^9, 
   3.6348179893794613`*^9}, 3.634820515869071*^9, {3.646345434400447*^9, 
   3.646345438831159*^9}, {3.6463456495979633`*^9, 3.646345750987095*^9}, {
   3.646349882461587*^9, 3.646349901549326*^9}, {3.6480810897912827`*^9, 
   3.648081091023789*^9}, {3.6480859511200943`*^9, 3.648085952103837*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Analysis", "Chapter",
 CellChangeTimes->{{3.63478061520019*^9, 3.634780616879273*^9}}],

Cell[CellGroupData[{

Cell["Preparation", "Subchapter",
 CellChangeTimes->{{3.6347807132775087`*^9, 3.634780745327805*^9}}],

Cell[CellGroupData[{

Cell["Utility Definitions", "Section",
 CellChangeTimes->{{3.6013048504695253`*^9, 3.601304853364834*^9}, {
  3.634781457740971*^9, 3.634781464573347*^9}}],

Cell[CellGroupData[{

Cell["enable local Sanity Checks", "Subsection",
 CellChangeTimes->{{3.6348272009335213`*^9, 3.634827208197118*^9}, {
  3.634828366360421*^9, 3.634828367396617*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"localSanityChecks", "=", "True"}], ";"}]], "Input",
 CellChangeTimes->{{3.634827216395789*^9, 3.6348272317783422`*^9}, {
  3.634827289389838*^9, 3.634827304338853*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["for Printing", "Subsection",
 CellChangeTimes->{{3.6348183776081877`*^9, 3.63481840763069*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Pretty", " ", "Print", " ", "a", " ", "table", " ", "which", " ", "has", 
    " ", "labels", " ", "in", " ", "its", " ", "first", " ", "row"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"prettyPrintTable", "[", "theTable_", "]"}], ":=", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#", ",", "Bold"}], "]"}], "&"}], "/@", 
         RowBox[{"First", "@", "theTable"}]}], "}"}], "\[IndentingNewLine]", 
       "~", "Join", "~", 
       RowBox[{"Rest", "@", "theTable"}]}], "\[IndentingNewLine]", "//", 
      "TableForm"}], "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.5441264835735273`*^9, 3.544126488146475*^9}, {
   3.544126677810543*^9, 3.544126741033276*^9}, {3.544189801695512*^9, 
   3.544189815972803*^9}, 3.5441898460685863`*^9, {3.544190403857646*^9, 
   3.544190404270877*^9}, {3.5441918928705053`*^9, 3.54419191553971*^9}, {
   3.54419338473414*^9, 3.544193538267372*^9}, {3.544193612222192*^9, 
   3.544193679384438*^9}, {3.544193791363274*^9, 3.544193794177157*^9}, {
   3.544193840389694*^9, 3.54419384177297*^9}, {3.544193903236042*^9, 
   3.54419391730412*^9}, {3.544194078050856*^9, 3.544194122807917*^9}, {
   3.544194171132862*^9, 3.54419417669837*^9}, {3.544194400925475*^9, 
   3.544194469957333*^9}, {3.54419460544976*^9, 3.544194749295916*^9}, {
   3.544194888690159*^9, 3.544194906111842*^9}, {3.544194953559477*^9, 
   3.5441949693533583`*^9}, {3.544195126076168*^9, 3.544195162915016*^9}, {
   3.544195197942974*^9, 3.544195280456834*^9}, {3.544223791385442*^9, 
   3.544223890131219*^9}, {3.544223925100746*^9, 3.5442240405436363`*^9}, {
   3.544224074124619*^9, 3.544224080135832*^9}, {3.5442242566216173`*^9, 
   3.54422428620875*^9}, {3.544872419390452*^9, 3.544872537368205*^9}, {
   3.5448725678896847`*^9, 3.5448726948864*^9}, {3.5448727266017513`*^9, 
   3.544872731183704*^9}, {3.54487281180161*^9, 3.54487285487947*^9}, {
   3.544874037112276*^9, 3.544874131106935*^9}, {3.5448741846779623`*^9, 
   3.5448742149572983`*^9}, {3.544874314552046*^9, 3.544874328503149*^9}, {
   3.5448744071224337`*^9, 3.544874408601022*^9}, 3.544874527167474*^9, {
   3.5448767782722273`*^9, 3.544876799781443*^9}, {3.544876926595635*^9, 
   3.5448769278660383`*^9}, {3.5483681518258457`*^9, 3.548368236915311*^9}, {
   3.548368433801371*^9, 3.5483685813317327`*^9}, {3.548368676350389*^9, 
   3.548368720839703*^9}, {3.5483688793594303`*^9, 3.5483688800446587`*^9}, {
   3.5483689950384083`*^9, 3.5483690210017433`*^9}, {3.548373071165708*^9, 
   3.5483730712899847`*^9}, {3.548373318261594*^9, 3.548373344579743*^9}, {
   3.548377703940304*^9, 3.54837770487567*^9}, {3.54837775516787*^9, 
   3.548378103660128*^9}, {3.548378192177165*^9, 3.548378192813674*^9}, {
   3.5483785289212437`*^9, 3.548378529278213*^9}, {3.548378659548023*^9, 
   3.548378660410055*^9}, {3.54850744580359*^9, 3.5485075574122953`*^9}, {
   3.54850758763029*^9, 3.548507639442111*^9}, {3.5485077118557453`*^9, 
   3.548507756878469*^9}, {3.54850779965071*^9, 3.548507848113216*^9}, {
   3.548507901774527*^9, 3.548508054166018*^9}, {3.548509526423264*^9, 
   3.548509526989037*^9}, {3.548509732656053*^9, 3.548509826622005*^9}, {
   3.54851020277635*^9, 3.5485103657166023`*^9}, {3.54851041750042*^9, 
   3.548510533864105*^9}, {3.548510567939425*^9, 3.5485106356915283`*^9}, {
   3.5485106763120623`*^9, 3.548510681910288*^9}, {3.5998315504146767`*^9, 
   3.599831575660718*^9}, {3.601304879746892*^9, 3.6013049503171988`*^9}, {
   3.601304997857749*^9, 3.601305024689179*^9}, {3.601305084100366*^9, 
   3.601305085644874*^9}, {3.601305143831593*^9, 3.601305145935816*^9}, {
   3.601305239412005*^9, 3.601305242940425*^9}, {3.601305274227296*^9, 
   3.601305276217502*^9}, {3.601305311323615*^9, 3.6013053127310343`*^9}, {
   3.6347788310414267`*^9, 3.6347788612498617`*^9}, {3.634778922486195*^9, 
   3.6347789269124403`*^9}, {3.634779840157873*^9, 3.634779874045474*^9}, 
   3.634780850278404*^9, {3.634781558250317*^9, 3.634781602529299*^9}, {
   3.634781657735834*^9, 3.6347816862906437`*^9}, 3.6348183661648417`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["for theContext", "Subsection",
 CellChangeTimes->{{3.634818416217105*^9, 3.634818427158025*^9}}],

Cell["\<\
Note that Topics, especially have lots of \[OpenCurlyDoubleQuote]handles\
\[CloseCurlyDoubleQuote] with levels of emphasis.\
\>", "Text",
 CellChangeTimes->{{3.6348186020915813`*^9, 3.634818651699676*^9}, {
  3.6348208268442783`*^9, 3.634820871313013*^9}, {3.634823016580679*^9, 
  3.634823018998148*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"theContextLength", "=", 
   RowBox[{"Length", "@", "theContext"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"kTopics", ",", "kCogBeh", ",", "kOther"}], "}"}], "=", 
    RowBox[{"Range", "@", "theContextLength"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Sheets", "\[IndentingNewLine]", "in", " ", "theContext"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"kContextRows", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"theContext", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"Length", "[", 
         RowBox[{"theContext", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "theContextLength"}], "}"}]}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "cCode", ",", "cLegend", ",", "cShort", ",", "cCat", ",", "cSixChar", 
      ",", "cDescription", ",", "cCharLen8", ",", "cCheckLength", ",", 
      "cByCode", ",", "cPieLegend"}], "}"}], "=", 
    RowBox[{"Range", "@", "10"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Columns", "\[IndentingNewLine]", "in", " ", "theContext"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"If", "[", 
  RowBox[{"localSanityChecks", ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"prettyPrintTable", "[", "\[IndentingNewLine]", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"theContext", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"1", ";;", "4"}], ",", "#"}], "]"}], "]"}], "&"}], "/@", 
         
         RowBox[{"{", 
          RowBox[{
          "cCode", ",", "cLegend", ",", "cDescription", ",", "cPieLegend"}], 
          "}"}]}], "]"}], "\[IndentingNewLine]", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "theContextLength"}], "}"}]}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"kContextRows", "//", "TableForm"}]}]}], "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellChangeTimes->{{3.6348186677507963`*^9, 3.634818683791503*^9}, {
   3.634818714111175*^9, 3.634818954560512*^9}, {3.6348190052691813`*^9, 
   3.634819007074621*^9}, {3.6348191803482656`*^9, 3.634819314302541*^9}, {
   3.6348196795486526`*^9, 3.634819680030136*^9}, {3.63482016124603*^9, 
   3.634820182089038*^9}, {3.634820976903446*^9, 3.634821038253499*^9}, {
   3.634821084043654*^9, 3.634821100277378*^9}, {3.63482124204849*^9, 
   3.634821307279645*^9}, {3.63482139575924*^9, 3.63482141609093*^9}, {
   3.634821448929943*^9, 3.63482145204608*^9}, {3.634821492140217*^9, 
   3.6348215641118107`*^9}, {3.634822247451015*^9, 3.634822296772807*^9}, {
   3.6348223316596527`*^9, 3.634822366351419*^9}, {3.6348224031064377`*^9, 
   3.6348224209464283`*^9}, {3.634822453757674*^9, 3.634822477177067*^9}, {
   3.634822553615369*^9, 3.634822580255628*^9}, {3.6348226137847767`*^9, 
   3.634822682316194*^9}, {3.634822848539068*^9, 3.634822851656789*^9}, {
   3.63482296625502*^9, 3.6348229765393744`*^9}, {3.634823078627666*^9, 
   3.634823084211627*^9}, {3.634823182542728*^9, 3.634823187978644*^9}, {
   3.6348258641896677`*^9, 3.634825924159358*^9}, {3.634825957959277*^9, 
   3.634825962635078*^9}, 3.63482603142978*^9, {3.634826063731879*^9, 
   3.634826068878397*^9}, {3.6348262016651363`*^9, 3.6348263235153017`*^9}, 
   3.6348263809917393`*^9, {3.634826466636462*^9, 3.634826470163546*^9}, {
   3.634826549115657*^9, 3.634826559282192*^9}, {3.634827257075954*^9, 
   3.6348272791177073`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["for theData", "Subsection",
 CellChangeTimes->{{3.63481834422042*^9, 3.6348183467805443`*^9}}],

Cell["\<\
 Note that row 4 of the Data sheets (which was empty in all the data sheets) \
has been usurped to contain the short and long names of the series as used \
here. \
\>", "Text",
 CellChangeTimes->{{3.63478150924745*^9, 3.634781525318947*^9}, {
  3.634818283125236*^9, 3.63481828409242*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"theDataLength", "=", 
    RowBox[{"Length", "[", "theData", "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Sheets", " ", "found", "\[IndentingNewLine]", "which", " ", "is", " ", 
    "the", " ", "number", " ", "of", " ", "series", " ", "found", " ", "in", 
    " ", "import"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"kMetaDataRow", "=", "4"}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"by", " ", "convention"}], ",", " ", 
    RowBox[{
    "contains", " ", "short", " ", "and", " ", "long", " ", "names", " ", 
     "of", " ", "the", " ", "series", " ", "as", " ", "used", " ", "in", " ", 
     "output"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"kShortNameColumn", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"kLongNameColumn", "=", "3"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "kCME", ",", "kCPMP", ",", "kDM", ",", "kGlencoe", ",", "kIMP", ",", 
      "kUCSMP"}], "}"}], "=", 
    RowBox[{"Range", "[", "theDataLength", "]"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Sheets", "\[IndentingNewLine]", "in", " ", "theData"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"kDataRows", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"theData", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "kMetaDataRow", ",", "kShortNameColumn"}], "]"}], 
         "]"}], ",", 
        RowBox[{"Length", "[", 
         RowBox[{"theData", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "theDataLength"}], "}"}]}], "]"}]}], ";"}],
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "cItem", ",", "cTopic1", ",", "cTopic2", ",", "cTopic3", ",", "cCogBeh", 
      ",", "cC", ",", "cM", ",", "cContext", ",", "cComment", ",", "cJ", ",", 
      "cRowNumber", ",", "cHead"}], "}"}], "=", 
    RowBox[{"Range", "@", "12"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Columns", "\[IndentingNewLine]", "in", " ", 
    RowBox[{"theData", ".", " ", "Address"}], " ", "columns", " ", "of", " ", 
    "data", " ", "by", " ", "name"}], " ", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "mySeriesBenchmarks", ",", "myChapterBenchmarks", ",", 
      "localSanityChecks"}], "}"}], ",", 
    RowBox[{"(*", " ", 
     RowBox[{"GOAL", ":", "\[IndentingNewLine]", 
      RowBox[{
      "Automatic", " ", "generation", " ", "of", " ", "Benchmarks", " ", 
       "for", " ", "both", " ", "Series", " ", "and", " ", "Chapters"}]}], 
     " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"localSanityChecks", "=", "False"}], ";", "\[IndentingNewLine]", 
     
     RowBox[{"If", "[", 
      RowBox[{"localSanityChecks", ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"mySeriesBenchmarks", "=", 
         RowBox[{"Table", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Module", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"d", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"d", "=", 
               RowBox[{"theData", "[", 
                RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
              
              RowBox[{"b", "=", 
               RowBox[{"Select", "[", 
                RowBox[{"d", ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"#", "[", 
                    RowBox[{"[", "cJ", "]"}], "]"}], "\[NotEqual]", 
                   "\"\<\>\""}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
              RowBox[{"Transpose", "@", 
               RowBox[{"Table", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"b", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "cRowNumber"}], "]"}], "]"}], ",", 
                    "Dashed"}], "}"}], ",", 
                   RowBox[{"b", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "cJ"}], "]"}], "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"i", ",", 
                   RowBox[{"Length", "@", "b"}]}], "}"}]}], "]"}]}]}]}], 
            "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"j", ",", "1", ",", "theDataLength"}], "}"}]}], "]"}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"myChapterBenchmarks", "=", 
         RowBox[{"Table", "[", "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{"Print", "@", 
             RowBox[{"theData", "[", 
              RowBox[{"[", 
               RowBox[{"j", ",", "kMetaDataRow", ",", "kShortNameColumn"}], 
               "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"Print", "@"}]}], "*)"}], 
          RowBox[{
           RowBox[{"Module", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"d", ",", "b"}], "}"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"d", "=", 
               RowBox[{"theData", "[", 
                RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
              
              RowBox[{"b", "=", 
               RowBox[{"Select", "[", 
                RowBox[{"d", ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"#", "[", 
                    RowBox[{"[", "cHead", "]"}], "]"}], "==", 
                   "\"\<Book\>\""}], "&"}]}], "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"Table", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"b", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "cRowNumber"}], "]"}], "]"}], ",", 
                    "Dashed"}], "}"}], ",", 
                  RowBox[{"b", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "cItem"}], "]"}], "]"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"i", ",", 
                  RowBox[{"Length", "@", "b"}]}], "}"}]}], "]"}]}]}], 
            "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"j", ",", "1", ",", "theDataLength"}], "}"}]}], "]"}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"Table", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"Print", "@", 
            RowBox[{"theData", "[", 
             RowBox[{"[", 
              RowBox[{"j", ",", "kMetaDataRow", ",", "kShortNameColumn"}], 
              "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Print", "@", 
            RowBox[{"theSeriesBenchmarks", "[", 
             RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Print", "@", 
            RowBox[{"mySeriesBenchmarks", "[", 
             RowBox[{"[", "j", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"j", ",", "1", ",", "theDataLength"}], "}"}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{"localSanityChecks", ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"myColumns", ",", "myColumnNames"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"myColumns", "=", 
         RowBox[{"{", 
          RowBox[{
          "cItem", ",", "cTopic1", ",", "kLongNameColumn", ",", "cCogBeh", 
           ",", "cJ", ",", "cHead"}], "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"myColumnNames", "=", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Item\>\"", ",", "\"\<Topic1\>\"", ",", 
           "\"\<LongNameColumn\>\"", ",", "\"\<CogBeh\>\"", ",", "\"\<J\>\"", 
           ",", "\"\<Head\>\""}], "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"prettyPrintTable", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"theData", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"4", ",", "#"}], "]"}], "]"}], "&"}], "/@", 
              "myColumns"}], "}"}], "~", "Join", "~", 
            RowBox[{"Transpose", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"theData", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"1", ";;", "9"}], ",", "#"}], "]"}], "]"}], "&"}], "/@",
               "myColumns"}], "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", "theDataLength"}], "}"}]}], "]"}], ";",
         "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"kDataRows", "//", "TableForm"}], "]"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"kDataRows", "//", "InputForm"}]}]}], "\[IndentingNewLine]", 
   "]"}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.5441264835735273`*^9, 3.544126488146475*^9}, {
   3.544126677810543*^9, 3.544126741033276*^9}, {3.544189801695512*^9, 
   3.544189815972803*^9}, 3.5441898460685863`*^9, {3.544190403857646*^9, 
   3.544190404270877*^9}, {3.5441918928705053`*^9, 3.54419191553971*^9}, {
   3.54419338473414*^9, 3.544193538267372*^9}, {3.544193612222192*^9, 
   3.544193679384438*^9}, {3.544193791363274*^9, 3.544193794177157*^9}, {
   3.544193840389694*^9, 3.54419384177297*^9}, {3.544193903236042*^9, 
   3.54419391730412*^9}, {3.544194078050856*^9, 3.544194122807917*^9}, {
   3.544194171132862*^9, 3.54419417669837*^9}, {3.544194400925475*^9, 
   3.544194469957333*^9}, {3.54419460544976*^9, 3.544194749295916*^9}, {
   3.544194888690159*^9, 3.544194906111842*^9}, {3.544194953559477*^9, 
   3.5441949693533583`*^9}, {3.544195126076168*^9, 3.544195162915016*^9}, {
   3.544195197942974*^9, 3.544195280456834*^9}, {3.544223791385442*^9, 
   3.544223890131219*^9}, {3.544223925100746*^9, 3.5442240405436363`*^9}, {
   3.544224074124619*^9, 3.544224080135832*^9}, {3.5442242566216173`*^9, 
   3.54422428620875*^9}, {3.544872419390452*^9, 3.544872537368205*^9}, {
   3.5448725678896847`*^9, 3.5448726948864*^9}, {3.5448727266017513`*^9, 
   3.544872731183704*^9}, {3.54487281180161*^9, 3.54487285487947*^9}, {
   3.544874037112276*^9, 3.544874131106935*^9}, {3.5448741846779623`*^9, 
   3.5448742149572983`*^9}, {3.544874314552046*^9, 3.544874328503149*^9}, {
   3.5448744071224337`*^9, 3.544874408601022*^9}, 3.544874527167474*^9, {
   3.5448767782722273`*^9, 3.544876799781443*^9}, {3.544876926595635*^9, 
   3.5448769278660383`*^9}, {3.5483681518258457`*^9, 3.548368236915311*^9}, {
   3.548368433801371*^9, 3.5483685813317327`*^9}, {3.548368676350389*^9, 
   3.548368720839703*^9}, {3.5483688793594303`*^9, 3.5483688800446587`*^9}, {
   3.5483689950384083`*^9, 3.5483690210017433`*^9}, {3.548373071165708*^9, 
   3.5483730712899847`*^9}, {3.548373318261594*^9, 3.548373344579743*^9}, {
   3.548377703940304*^9, 3.54837770487567*^9}, {3.54837775516787*^9, 
   3.548378103660128*^9}, {3.548378192177165*^9, 3.548378192813674*^9}, {
   3.5483785289212437`*^9, 3.548378529278213*^9}, {3.548378659548023*^9, 
   3.548378660410055*^9}, {3.54850744580359*^9, 3.5485075574122953`*^9}, {
   3.54850758763029*^9, 3.548507639442111*^9}, {3.5485077118557453`*^9, 
   3.548507756878469*^9}, {3.54850779965071*^9, 3.548507848113216*^9}, {
   3.548507901774527*^9, 3.548508054166018*^9}, {3.548509526423264*^9, 
   3.548509526989037*^9}, {3.548509732656053*^9, 3.548509826622005*^9}, {
   3.54851020277635*^9, 3.5485103657166023`*^9}, {3.54851041750042*^9, 
   3.548510533864105*^9}, {3.548510567939425*^9, 3.5485106356915283`*^9}, {
   3.5485106763120623`*^9, 3.548510681910288*^9}, {3.5998315504146767`*^9, 
   3.599831575660718*^9}, {3.601304879746892*^9, 3.6013049503171988`*^9}, {
   3.601304997857749*^9, 3.601305024689179*^9}, {3.601305084100366*^9, 
   3.601305085644874*^9}, {3.601305143831593*^9, 3.601305145935816*^9}, {
   3.601305239412005*^9, 3.601305242940425*^9}, {3.601305274227296*^9, 
   3.601305276217502*^9}, {3.601305311323615*^9, 3.6013053127310343`*^9}, {
   3.6347788310414267`*^9, 3.6347788612498617`*^9}, {3.634778922486195*^9, 
   3.6347789269124403`*^9}, {3.634779840157873*^9, 3.634779874045474*^9}, 
   3.634780850278404*^9, {3.634781558250317*^9, 3.634781602529299*^9}, {
   3.634781657735834*^9, 3.6347816862906437`*^9}, 3.6348183661648417`*^9, {
   3.634819201750237*^9, 3.634819204437161*^9}, {3.6348234571547117`*^9, 
   3.634823611692086*^9}, {3.634823643173127*^9, 3.6348237369156103`*^9}, {
   3.634823869123208*^9, 3.6348238718335752`*^9}, {3.634823950297472*^9, 
   3.6348240520032673`*^9}, {3.634824091722574*^9, 3.6348241016146584`*^9}, {
   3.634824140993948*^9, 3.6348242565425043`*^9}, {3.634824317576679*^9, 
   3.634824330826603*^9}, {3.634824406466877*^9, 3.634824428446397*^9}, {
   3.63482448892255*^9, 3.634824513336636*^9}, {3.634824680178175*^9, 
   3.634824702359517*^9}, {3.634824754034379*^9, 3.634824775467895*^9}, {
   3.634824913728879*^9, 3.634824930571073*^9}, 3.63482499600248*^9, {
   3.6348266689880123`*^9, 3.634826788442854*^9}, {3.634826824129075*^9, 
   3.6348268261235*^9}, {3.634826924206875*^9, 3.634826924808893*^9}, 
   3.634827057715446*^9, {3.634827330059105*^9, 3.6348274050061207`*^9}, {
   3.6348274595874557`*^9, 3.634827521107642*^9}, {3.634830185588724*^9, 
   3.6348302876390333`*^9}, {3.634830372530164*^9, 3.6348304172981243`*^9}, {
   3.634830547955696*^9, 3.634830606621751*^9}, {3.6348306451506968`*^9, 
   3.634830656919138*^9}, 3.634830706959393*^9, {3.6348314172963448`*^9, 
   3.6348315120950937`*^9}, 3.634831993430966*^9, {3.6348320619206676`*^9, 
   3.63483207482899*^9}, {3.634832130333756*^9, 3.63483214670478*^9}, {
   3.634832185169177*^9, 3.634832186628528*^9}, {3.64544387953012*^9, 
   3.645443882336608*^9}, {3.645923458137203*^9, 3.645923459514233*^9}, 
   3.647951550038948*^9, {3.648127817084837*^9, 3.64812781776385*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Manually Update These!", "Section",
 CellChangeTimes->{{3.634780874795203*^9, 3.634780879794033*^9}, {
  3.634781419377286*^9, 3.634781419840218*^9}, {3.6347817014393797`*^9, 
  3.6347817285800047`*^9}}],

Cell[CellGroupData[{

Cell["\<\
UPDATE MANUALLY Manually Entered Values for Sanity Checks UPDATE MANUALLY as \
more or revised data come in.\
\>", "Subsection",
 CellChangeTimes->{{3.634782967694084*^9, 3.6347829833338127`*^9}, {
  3.6347830340362253`*^9, 3.63478303510356*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"kExpectedRows", "=", 
   RowBox[{"{", " ", 
    RowBox[{"(*", " ", 
     RowBox[{"Manually", " ", "Updated"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<CME\>\"", ",", "15406"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<CPMP\>\"", ",", "8386"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<DM\>\"", ",", "12248"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<Glencoe\>\"", ",", "21329"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<IMP\>\"", ",", "2502"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<UCSMP\>\"", ",", "18050"}], "}"}]}], "\[IndentingNewLine]",
     "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{"localSanityChecks", ",", "\[IndentingNewLine]", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"kDataRows", "\[NotEqual]", "kExpectedRows"}], ",", 
      RowBox[{"(", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"kExpectedRows2", "=", 
         RowBox[{"Sort", "@", "kDataRows"}]}], ";", " ", 
        RowBox[{"(*", " ", 
         RowBox[{
         "Row", " ", "names", " ", "should", " ", "already", " ", "be", " ", 
          "aplhabetized", " ", "above"}], " ", "*)"}], "\[IndentingNewLine]", 
        
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"kExpectedRows", "!=", "kExpectedRows2"}], ",", " ", 
          RowBox[{"kExpectedRows2", "//", "InputForm"}]}], "]"}]}], ")"}]}], 
     "\[IndentingNewLine]", "]"}]}], "]"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"**", 
    RowBox[{
    "*", " ", "Further", " ", "UPDATE", " ", "MANUALLY", " ", "Benchmark", 
     " ", "Values", " ", "for", " ", 
     RowBox[{"Books", "/", "Series"}]}]}], " ", 
   "****)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"theSeriesBenchmarks", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", 
      RowBox[{"{", "theDataLength", "}"}]}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Initialize", " ", "the", " ", "set", " ", "of", " ", "lists"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"theSeriesBenchmarks", "[", 
    RowBox[{"[", "kCME", "]"}], "]"}], "=", "\[IndentingNewLine]", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7992", ",", "Dashed"}], "}"}]}], "}"}], " ", 
     RowBox[{"(*", " ", 
      RowBox[{"{", 
       RowBox[{
       "LowerBoundayRowNumber", ",", " ", "LineFormatInTimelineGraph"}], 
       "}"}], " ", "*)"}], "\[IndentingNewLine]", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<Algebra 1\>\"", ",", "\"\<Algebra 2\>\""}], "}"}]}], " ", 
    RowBox[{"(*", " ", "\"\<BenchmarkName\>\"", " ", "*)"}], 
    "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"theSeriesBenchmarks", "[", 
    RowBox[{"[", "kCPMP", "]"}], "]"}], "=", "\[IndentingNewLine]", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3084", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5382", ",", "Dashed"}], "}"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Course 1\>\"", ",", "\"\<Course 2\>\"", ",", "\"\<Course 3\>\""}], 
      "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"theSeriesBenchmarks", "[", 
    RowBox[{"[", "kDM", "]"}], "]"}], "=", "\[IndentingNewLine]", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5627", ",", "Dashed"}], "}"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<Algebra\>\"", ",", "\"\<Advanced Algebra\>\""}], "}"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"theSeriesBenchmarks", "[", 
    RowBox[{"[", "kGlencoe", "]"}], "]"}], "=", "\[IndentingNewLine]", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"9553", ",", "Dashed"}], "}"}]}], "}"}], 
     "\[IndentingNewLine]", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<Algebra 1\>\"", ",", "\"\<Algebra 2\>\""}], "}"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"theSeriesBenchmarks", "[", 
    RowBox[{"[", "kIMP", "]"}], "]"}], "=", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"YES", " ", "UNIT", " ", "MARKERS", "\[IndentingNewLine]", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "Dashed"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"255", ",", "Dotted"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"746", ",", "Dashed"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1046", ",", "Dotted"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1392", ",", "Dotted"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1651", ",", "Dashed"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2059", ",", "Dotted"}], "}"}]}], "}"}], 
       "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<Year 1: Patterns,\>\"", ",", "\"\< 1: Overland Trail,\>\"", ",", 
         "\"\<\\tYear 2: Cookies,\>\"", ",", "\"\< 2: Fireworks,\>\"", ",", 
         "\"\< 2: All About Alice,\>\"", ",", 
         "\"\<\\tYear 3: Meadows or Malls,\>\"", ",", 
         "\"\< 3: Small World\>\"", ",", "\"\<\>\""}], "}"}]}], 
      "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Year", " ", "Markers", " ", "Only"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"746", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1651", ",", "Dashed"}], "}"}]}], "}"}], 
     "\[IndentingNewLine]", ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Year 1\>\"", ",", "\"\<Year 2\>\"", ",", "\"\<Year 3\>\""}], 
      "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"theSeriesBenchmarks", "[", 
    RowBox[{"[", "kUCSMP", "]"}], "]"}], "=", "\[IndentingNewLine]", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"8628", ",", "Dashed"}], "}"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"\"\<Algebra\>\"", ",", "\"\<Advanced Algebra\>\""}], "}"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5441264835735273`*^9, 3.544126488146475*^9}, {
   3.544126677810543*^9, 3.544126741033276*^9}, {3.544189801695512*^9, 
   3.544189815972803*^9}, 3.5441898460685863`*^9, {3.544190403857646*^9, 
   3.544190404270877*^9}, {3.5441918928705053`*^9, 3.54419191553971*^9}, {
   3.54419338473414*^9, 3.544193538267372*^9}, {3.544193612222192*^9, 
   3.544193679384438*^9}, {3.544193791363274*^9, 3.544193794177157*^9}, {
   3.544193840389694*^9, 3.54419384177297*^9}, {3.544193903236042*^9, 
   3.54419391730412*^9}, {3.544194078050856*^9, 3.544194122807917*^9}, {
   3.544194171132862*^9, 3.54419417669837*^9}, {3.544194400925475*^9, 
   3.544194469957333*^9}, {3.54419460544976*^9, 3.544194749295916*^9}, {
   3.544194888690159*^9, 3.544194906111842*^9}, {3.544194953559477*^9, 
   3.5441949693533583`*^9}, {3.544195126076168*^9, 3.544195162915016*^9}, {
   3.544195197942974*^9, 3.544195280456834*^9}, {3.544223791385442*^9, 
   3.544223890131219*^9}, {3.544223925100746*^9, 3.5442240405436363`*^9}, {
   3.544224074124619*^9, 3.544224080135832*^9}, {3.5442242566216173`*^9, 
   3.54422428620875*^9}, {3.544872419390452*^9, 3.544872537368205*^9}, {
   3.5448725678896847`*^9, 3.5448726948864*^9}, {3.5448727266017513`*^9, 
   3.544872731183704*^9}, {3.54487281180161*^9, 3.54487285487947*^9}, {
   3.544874037112276*^9, 3.544874131106935*^9}, {3.5448741846779623`*^9, 
   3.5448742149572983`*^9}, {3.544874314552046*^9, 3.544874328503149*^9}, {
   3.5448744071224337`*^9, 3.544874408601022*^9}, 3.544874527167474*^9, {
   3.5448767782722273`*^9, 3.544876799781443*^9}, {3.544876926595635*^9, 
   3.5448769278660383`*^9}, {3.5483681518258457`*^9, 3.548368236915311*^9}, {
   3.548368433801371*^9, 3.5483685813317327`*^9}, {3.548368676350389*^9, 
   3.548368720839703*^9}, {3.5483688793594303`*^9, 3.5483688800446587`*^9}, {
   3.5483689950384083`*^9, 3.5483690210017433`*^9}, {3.548373071165708*^9, 
   3.5483730712899847`*^9}, {3.548373318261594*^9, 3.548373344579743*^9}, {
   3.548377703940304*^9, 3.54837770487567*^9}, {3.54837775516787*^9, 
   3.548378103660128*^9}, {3.548378192177165*^9, 3.548378192813674*^9}, {
   3.5483785289212437`*^9, 3.548378529278213*^9}, {3.548378659548023*^9, 
   3.548378660410055*^9}, {3.54850744580359*^9, 3.5485075574122953`*^9}, {
   3.54850758763029*^9, 3.548507639442111*^9}, {3.5485077118557453`*^9, 
   3.548507756878469*^9}, {3.54850779965071*^9, 3.548507848113216*^9}, {
   3.548507901774527*^9, 3.548508054166018*^9}, {3.548509526423264*^9, 
   3.548509526989037*^9}, {3.548509732656053*^9, 3.548509826622005*^9}, {
   3.54851020277635*^9, 3.5485103657166023`*^9}, {3.54851041750042*^9, 
   3.548510533864105*^9}, {3.548510567939425*^9, 3.5485106356915283`*^9}, {
   3.5485106763120623`*^9, 3.548510681910288*^9}, {3.5998315504146767`*^9, 
   3.599831575660718*^9}, {3.601304879746892*^9, 3.6013049503171988`*^9}, {
   3.601304997857749*^9, 3.601305024689179*^9}, {3.601305084100366*^9, 
   3.601305085644874*^9}, {3.601305143831593*^9, 3.601305145935816*^9}, {
   3.601305239412005*^9, 3.601305242940425*^9}, {3.601305274227296*^9, 
   3.601305276217502*^9}, {3.601305311323615*^9, 3.6013053127310343`*^9}, {
   3.6347788310414267`*^9, 3.6347788612498617`*^9}, {3.634778922486195*^9, 
   3.6347789269124403`*^9}, {3.634779840157873*^9, 3.634779874045474*^9}, 
   3.634780850278404*^9, 3.634780922571416*^9, {3.6347829591150627`*^9, 
   3.634782962547697*^9}, {3.634783052118863*^9, 3.634783053586109*^9}, {
   3.6348234413209753`*^9, 3.6348234433031*^9}, 3.634825383264875*^9, 
   3.634825420718994*^9, {3.634827810691554*^9, 3.634827979167017*^9}, {
   3.6348281412249947`*^9, 3.634828142368971*^9}, 3.634828187967369*^9, 
   3.634828247659301*^9, {3.6454439399304934`*^9, 3.6454440527000847`*^9}, {
   3.645444106442691*^9, 3.645444107451457*^9}, {3.6454904233212967`*^9, 
   3.645490424888208*^9}, {3.6454904599435787`*^9, 3.6454904606215553`*^9}, {
   3.645923517248852*^9, 3.645923526416806*^9}, {3.647951568791656*^9, 
   3.647951576838883*^9}, {3.648127784187676*^9, 3.64812778436931*^9}, 
   3.648127847490553*^9, 3.648131577710882*^9}],

Cell[BoxData[
 RowBox[{"kExpectedRows", "!=", "kDataRows"}]], "Input",
 CellChangeTimes->{{3.634828059142626*^9, 3.634828078385667*^9}}]
}, Open  ]],

Cell["Also Confirm that Valid Code definitions are correct.", "Subsection",
 CellChangeTimes->{{3.634783065274516*^9, 3.634783096586822*^9}, {
  3.634783134696204*^9, 3.634783274705089*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Basic Sanity Check", "Section",
 CellChangeTimes->{{3.634780956859556*^9, 3.634780976360799*^9}, {
  3.634781409523513*^9, 3.6347814120785217`*^9}, {3.634781443622101*^9, 
  3.6347814448592443`*^9}}],

Cell["Quick sanity check and summary of the data.", "Text",
 CellChangeTimes->{{3.544208944262838*^9, 3.544209045308385*^9}, 
   3.63478150438503*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"theSeriesNames", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"theData", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "kMetaDataRow", ",", "kShortNameColumn"}], "]"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "theDataLength"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"theSeriesLongNames", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"theData", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "kMetaDataRow", ",", "kLongNameColumn"}], "]"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "theDataLength"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"theSeriesRows", "=", 
   RowBox[{
    RowBox[{"Transpose", "[", 
     RowBox[{"Map", "[", 
      RowBox[{"Dimensions", ",", "theData"}], "]"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"theSeriesSummary", "=", 
    RowBox[{"{", 
     RowBox[{
     "theSeriesNames", ",", "kExpectedRows", ",", "theSeriesRows", ",", 
      "theSeriesLongNames"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Output", " ", "a", " ", "table", " ", "for", " ", "sanity", " ", "check", 
    " ", "inspection"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"prettyPrintTable", "@", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\\nName\>\"", ",", "\"\<Expected\\nName/Rows\\n\>\"", ",", 
       "\"\<Actual\\nRows\>\"", ",", "\"\<\\nDescription\>\""}], "}"}], "}"}],
     ",", 
    RowBox[{"Transpose", "[", "theSeriesSummary", "]"}]}], "]"}], 
  " "}]}], "Input",
 CellChangeTimes->{{3.5441264835735273`*^9, 3.544126488146475*^9}, {
   3.544126677810543*^9, 3.544126741033276*^9}, {3.544189801695512*^9, 
   3.544189815972803*^9}, 3.5441898460685863`*^9, {3.544190403857646*^9, 
   3.544190404270877*^9}, {3.5441918928705053`*^9, 3.54419191553971*^9}, {
   3.54419338473414*^9, 3.544193538267372*^9}, {3.544193612222192*^9, 
   3.544193679384438*^9}, {3.544193791363274*^9, 3.544193794177157*^9}, {
   3.544193840389694*^9, 3.54419384177297*^9}, {3.544193903236042*^9, 
   3.54419391730412*^9}, {3.544194078050856*^9, 3.544194122807917*^9}, {
   3.544194171132862*^9, 3.54419417669837*^9}, {3.544194400925475*^9, 
   3.544194469957333*^9}, {3.54419460544976*^9, 3.544194749295916*^9}, {
   3.544194888690159*^9, 3.544194906111842*^9}, {3.544194953559477*^9, 
   3.5441949693533583`*^9}, {3.544195126076168*^9, 3.544195162915016*^9}, {
   3.544195197942974*^9, 3.544195280456834*^9}, {3.544223791385442*^9, 
   3.544223890131219*^9}, {3.544223925100746*^9, 3.5442240405436363`*^9}, {
   3.544224074124619*^9, 3.544224080135832*^9}, {3.5442242566216173`*^9, 
   3.54422428620875*^9}, {3.544872419390452*^9, 3.544872537368205*^9}, {
   3.5448725678896847`*^9, 3.5448726948864*^9}, {3.5448727266017513`*^9, 
   3.544872731183704*^9}, {3.54487281180161*^9, 3.54487285487947*^9}, {
   3.544874037112276*^9, 3.544874131106935*^9}, {3.5448741846779623`*^9, 
   3.5448742149572983`*^9}, {3.544874314552046*^9, 3.544874328503149*^9}, {
   3.5448744071224337`*^9, 3.544874408601022*^9}, 3.544874527167474*^9, {
   3.5448767782722273`*^9, 3.544876799781443*^9}, {3.544876926595635*^9, 
   3.5448769278660383`*^9}, {3.5483681518258457`*^9, 3.548368236915311*^9}, {
   3.548368433801371*^9, 3.5483685813317327`*^9}, {3.548368676350389*^9, 
   3.548368720839703*^9}, {3.5483688793594303`*^9, 3.5483688800446587`*^9}, {
   3.5483689950384083`*^9, 3.5483690210017433`*^9}, {3.548373071165708*^9, 
   3.5483730712899847`*^9}, {3.548373318261594*^9, 3.548373344579743*^9}, {
   3.548377703940304*^9, 3.54837770487567*^9}, {3.54837775516787*^9, 
   3.548378103660128*^9}, {3.548378192177165*^9, 3.548378192813674*^9}, {
   3.5483785289212437`*^9, 3.548378529278213*^9}, {3.548378659548023*^9, 
   3.548378660410055*^9}, {3.54850744580359*^9, 3.5485075574122953`*^9}, {
   3.54850758763029*^9, 3.548507639442111*^9}, {3.5485077118557453`*^9, 
   3.548507756878469*^9}, {3.54850779965071*^9, 3.548507848113216*^9}, {
   3.548507901774527*^9, 3.548508054166018*^9}, {3.548509526423264*^9, 
   3.548509526989037*^9}, {3.548509732656053*^9, 3.548509826622005*^9}, {
   3.54851020277635*^9, 3.5485103657166023`*^9}, {3.54851041750042*^9, 
   3.548510533864105*^9}, {3.548510567939425*^9, 3.5485106356915283`*^9}, {
   3.5485106763120623`*^9, 3.548510681910288*^9}, {3.5998315504146767`*^9, 
   3.599831575660718*^9}, {3.601304879746892*^9, 3.6013049503171988`*^9}, {
   3.601304997857749*^9, 3.601305024689179*^9}, {3.601305084100366*^9, 
   3.601305085644874*^9}, {3.601305143831593*^9, 3.601305145935816*^9}, {
   3.601305239412005*^9, 3.601305242940425*^9}, {3.601305274227296*^9, 
   3.601305276217502*^9}, {3.601305311323615*^9, 3.6013053127310343`*^9}, {
   3.6347788310414267`*^9, 3.6347788612498617`*^9}, {3.634778922486195*^9, 
   3.6347789269124403`*^9}, {3.634779840157873*^9, 3.634779874045474*^9}, 
   3.634780850278404*^9, 3.634780922571416*^9, {3.634781639566164*^9, 
   3.6347816431824207`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Set Useful Parameters", "Subchapter",
 CellChangeTimes->{{3.544195436766633*^9, 3.544195446495223*^9}}],

Cell[CellGroupData[{

Cell["Filename Infixes", "Section",
 CellChangeTimes->{{3.601305529009427*^9, 3.601305533671825*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"seriesTimeline", "=", "\"\<_Timeline_Graph\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"seriesPie", "=", "\"\<_PieChart\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"seriesBar", "=", "\"\<_BarChart\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"seriesWordCloud", "=", "\"\<_WordCloud\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"outputDirectory", "=", " ", 
   RowBox[{"CreateDirectory", "[", 
    RowBox[{
     RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
     RowBox[{"FileBaseName", "[", 
      RowBox[{"NotebookFileName", "[", "]"}], "]"}], "<>", 
     "\"\<_Output/\>\""}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5441956110050707`*^9, 3.544195670634129*^9}, 
   3.5441957325318203`*^9, {3.544196143087018*^9, 3.544196171744062*^9}, {
   3.544204662938942*^9, 3.5442046767415237`*^9}, {3.54420479425994*^9, 
   3.544204818787203*^9}, {3.544206619929596*^9, 3.5442067168320017`*^9}, {
   3.544206755864189*^9, 3.5442067949715242`*^9}, {3.544206845558703*^9, 
   3.544206984992578*^9}, {3.544210794357174*^9, 3.544210812667519*^9}, {
   3.544913949118499*^9, 3.5449143526044607`*^9}, {3.548375205492942*^9, 
   3.548375213739892*^9}, {3.548375435007678*^9, 3.548375438754509*^9}, {
   3.5483760566794577`*^9, 3.548376058366488*^9}, {3.548404391765457*^9, 
   3.548404436762765*^9}, {3.548406204728876*^9, 3.548406207343433*^9}, {
   3.5485081172163353`*^9, 3.5485081367393*^9}, {3.5485082218503437`*^9, 
   3.548508221970025*^9}, {3.548508303551868*^9, 3.548508428227171*^9}, {
   3.54850855054846*^9, 3.5485085608509274`*^9}, 3.548508620841791*^9, {
   3.5485086535049562`*^9, 3.548508699866927*^9}, {3.5485087353390093`*^9, 
   3.54850877112576*^9}, 3.548511182997733*^9, {3.601305394263361*^9, 
   3.6013054280466137`*^9}, 3.601305554510632*^9, {3.605368001580456*^9, 
   3.605368071600745*^9}, {3.605368325749398*^9, 3.605368370692667*^9}, {
   3.605372803550682*^9, 3.605372893028934*^9}, 3.605373201829096*^9, {
   3.6346091634122267`*^9, 3.6346092629454203`*^9}, {3.6346094050123777`*^9, 
   3.634609445157995*^9}, 3.634609483871024*^9, 3.634609533518684*^9, {
   3.6463509135341377`*^9, 3.646350934221011*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Graphing Dimensions", "Section",
 CellChangeTimes->{{3.6013055687652073`*^9, 3.601305592173551*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"buffer", "=", "50."}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "Used", " ", "in", " ", "graphs", " ", "to", " ", "prevent", " ", "points",
     " ", "from", " ", "being", " ", "at", " ", "the", " ", "edge", " ", "of",
     " ", "the", " ", "region", " ", "of", " ", "the", " ", "plot"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"imageSize", "=", 
    RowBox[{"72", "*", "20"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "nominal", " ", "72", " ", "dpi", " ", "and", " ", "20", " ", "inches"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pointSize", "=", ".002"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "dimension", " ", "of", " ", "a", " ", "point", " ", "in", " ", "the", " ",
     "timeline", " ", "graph", " ", "as", " ", "fraction", " ", "of", " ", 
    "full", " ", "size"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pointOpacity", "=", ".33"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "opacity", " ", "of", " ", "a", " ", "point", " ", "in", " ", "the", " ", 
    "timeline", " ", "graph"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5441956110050707`*^9, 3.544195670634129*^9}, 
   3.5441957325318203`*^9, {3.544196143087018*^9, 3.544196171744062*^9}, {
   3.544204662938942*^9, 3.5442046767415237`*^9}, {3.54420479425994*^9, 
   3.544204818787203*^9}, {3.544206619929596*^9, 3.5442067168320017`*^9}, {
   3.544206755864189*^9, 3.5442067949715242`*^9}, {3.544206845558703*^9, 
   3.544206984992578*^9}, {3.544210794357174*^9, 3.544210812667519*^9}, {
   3.544913949118499*^9, 3.5449143526044607`*^9}, {3.548375205492942*^9, 
   3.548375213739892*^9}, {3.548375435007678*^9, 3.548375438754509*^9}, {
   3.5483760566794577`*^9, 3.548376058366488*^9}, {3.548404391765457*^9, 
   3.548404436762765*^9}, {3.548406204728876*^9, 3.548406207343433*^9}, {
   3.5485081172163353`*^9, 3.5485081367393*^9}, {3.5485082218503437`*^9, 
   3.548508221970025*^9}, {3.548508303551868*^9, 3.548508428227171*^9}, {
   3.54850855054846*^9, 3.5485085608509274`*^9}, 3.548508620841791*^9, {
   3.5485086535049562`*^9, 3.548508699866927*^9}, {3.5485087353390093`*^9, 
   3.54850877112576*^9}, 3.548511182997733*^9, {3.601305394263361*^9, 
   3.6013054280466137`*^9}, 3.601305554510632*^9, 3.6013056031096563`*^9, {
   3.634614264860334*^9, 3.634614275245949*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tools for Tweaking", "Section",
 CellChangeTimes->{{3.602097727631349*^9, 3.6020977315100613`*^9}, {
  3.602101323949937*^9, 3.602101333347458*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Convert", " ", "RGB", " ", "COlor", " ", "to", " ", "Gray", " ", 
    "Scale"}], " ", "*)"}], 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"RGBToGray", "[", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"r_", ",", "g_", ",", "b_"}], "]"}], "]"}], ":=", 
     RowBox[{"GrayLevel", "[", 
      RowBox[{
       RowBox[{".299", "r"}], "+", 
       RowBox[{".587", "g"}], "+", 
       RowBox[{".144", "b"}]}], "]"}]}], " ", 
    RowBox[{"(*", " ", 
     RowBox[{"As", " ", "defined", " ", "in", " ", "GrayLevel", " ", "help"}],
      " ", "*)"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "Rearrange", " ", "CogBeh", " ", "triplets", "\[IndentingNewLine]", " ", 
      "Standard", " ", "form", " ", "is", " ", 
      RowBox[{"alphabetized", ":", " ", "a"}]}], ",", "k", ",", 
     RowBox[{
     "r", "\[IndentingNewLine]", " ", "want", " ", "to", " ", "rearrange", 
      " ", "so", " ", "Applying", " ", "is", " ", "in", " ", "the", " ", 
      "middle", "\[IndentingNewLine]", " ", "so", " ", "pie", " ", "charts", 
      " ", "have", " ", "Knowing", " ", "and", " ", "Reasoning", 
      "\[IndentingNewLine]", " ", "on", " ", "either", " ", "side", " ", "of",
       " ", "reference", " ", "direction", " ", "here", " ", "probably", " ", 
      "vertical", " ", 
      RowBox[{"(", 
       RowBox[{"Pi", "/", "2"}], ")"}]}]}], "\[IndentingNewLine]", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"permuteCogBeh", "=", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "\[IndentingNewLine]", 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<a\>\"", ",", "\"\<k\>\"", ",", "\"\<r\>\""}], "}"}], ".", 
    "permuteCogBeh"}]}]}]], "Input",
 CellChangeTimes->{{3.602097770231282*^9, 3.60209781738363*^9}, {
  3.602100088639082*^9, 3.602100115978652*^9}, {3.602100166102406*^9, 
  3.6021002040118103`*^9}, {3.60210062738731*^9, 3.602100631261839*^9}, {
  3.6021006710993547`*^9, 3.602100681880568*^9}, {3.602101242450055*^9, 
  3.6021013028519707`*^9}, {3.602101386105133*^9, 3.6021014139300632`*^9}, {
  3.602101465261156*^9, 3.602101669391206*^9}, {3.602102070676269*^9, 
  3.602102088553488*^9}, {3.6347775018899508`*^9, 3.634777581197866*^9}, {
  3.6347777183136673`*^9, 3.634777752504971*^9}, {3.6347788022025137`*^9, 
  3.6347788045843153`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Valid Codes, their Names, and Legends", "Section",
 CellChangeTimes->{{3.6013056219327602`*^9, 3.6013056251550426`*^9}, {
  3.634610321605936*^9, 3.634610350016851*^9}}],

Cell[CellGroupData[{

Cell["Topics", "Subsection",
 CellChangeTimes->{{3.634782505238426*^9, 3.6347825065286407`*^9}}],

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "validTopics", "\[IndentingNewLine]", "Private", " ", "definitions", " ", 
     "of", " ", "valid", " ", "values"}], ",", " ", 
    RowBox[{"Exports", " ", "public", " ", "lists"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"values", ",", "desc"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"values", "=", 
     RowBox[{"{", " ", 
      RowBox[{"(*", " ", 
       RowBox[{"Hard", "-", 
        RowBox[{"coded", " ", "list", " ", "from", " ", "K"}], "-", 
        RowBox[{"12", " ", "Math", " ", "Taxonomy", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Rev", ".", "10"}], "-", "25", "-", "12"}], ")"}]}]}], " ",
        "*)"}], "\[IndentingNewLine]", 
      RowBox[{
      "100", ",", "101", ",", "102", ",", "103", ",", "104", ",", "105", ",", 
       "106", ",", "107", ",", "108", ",", "109", ",", "110", ",", "111", ",",
        "112", ",", "113", ",", "114", ",", "115", ",", "116", ",", "117", 
       ",", "118", ",", "119", ",", "190", ",", "\[IndentingNewLine]", "200", 
       ",", "201", ",", "202", ",", "203", ",", "204", ",", "205", ",", "206",
        ",", "207", ",", "208", ",", "209", ",", "210", ",", "211", ",", 
       "212", ",", "213", ",", "214", ",", "215", ",", "216", ",", "217", ",",
        "218", ",", "290", ",", "\[IndentingNewLine]", "300", ",", "301", ",",
        "302", ",", "303", ",", "304", ",", "305", ",", "306", ",", "307", 
       ",", "308", ",", "309", ",", "310", ",", "311", ",", "312", ",", "313",
        ",", "314", ",", "315", ",", "316", ",", "317", ",", "390", ",", 
       "\[IndentingNewLine]", "400", ",", "401", ",", "402", ",", "403", ",", 
       "490", ",", "\[IndentingNewLine]", "500", ",", "501", ",", "502", ",", 
       "503", ",", "504", ",", "505", ",", "506", ",", "507", ",", "508", ",",
        "509", ",", "510", ",", "511", ",", "512", ",", "513", ",", "514", 
       ",", "515", ",", "516", ",", "590", ",", "\[IndentingNewLine]", "600", 
       ",", "601", ",", "602", ",", "603", ",", "604", ",", "605", ",", "606",
        ",", "607", ",", "608", ",", "609", ",", "610", ",", "611", ",", 
       "612", ",", "613", ",", "614", ",", "615", ",", "616", ",", "690", ",",
        "\[IndentingNewLine]", "700", ",", "701", ",", "702", ",", "703", ",",
        "704", ",", "705", ",", "706", ",", "707", ",", "708", ",", "709", 
       ",", "710", ",", "711", ",", "712", ",", "713", ",", "714", ",", "715",
        ",", "716", ",", "717", ",", "790", ",", "\[IndentingNewLine]", "800",
        ",", "801", ",", "802", ",", "803", ",", "804", ",", "805", ",", 
       "806", ",", "807", ",", "808", ",", "890", ",", "\[IndentingNewLine]", 
       "900", ",", "901", ",", "902", ",", "903", ",", "904", ",", "905", ",",
        "906", ",", "907", ",", "908", ",", "909", ",", "910", ",", "911", 
       ",", "990", ",", "\[IndentingNewLine]", "1000", ",", "1001", ",", 
       "1002", ",", "1003", ",", "1004", ",", "1005", ",", "1006", ",", 
       "1007", ",", "1008", ",", "1009", ",", "1010", ",", "1011", ",", 
       "1012", ",", "1013", ",", "1090", ",", "\[IndentingNewLine]", "1100", 
       ",", "1101", ",", "1102", ",", "1103", ",", "1104", ",", "1105", ",", 
       "1106", ",", "1107", ",", "1108", ",", "1109", ",", "1190", ",", 
       "\[IndentingNewLine]", "1200", ",", "1201", ",", "1202", ",", "1203", 
       ",", "1204", ",", "1205", ",", "1206", ",", "1207", ",", "1290", ",", 
       "\[IndentingNewLine]", "1300", ",", "1301", ",", "1302", ",", "1303", 
       ",", "1304", ",", "1305", ",", "1306", ",", "1307", ",", "1308", ",", 
       "1309", ",", "1390", ",", "\[IndentingNewLine]", "1400", ",", "1401", 
       ",", "1402", ",", "1403", ",", "1404", ",", "1405", ",", "1406", ",", 
       "1407", ",", "1408", ",", "1409", ",", "1410", ",", "1490", ",", 
       "\[IndentingNewLine]", "1500", ",", "1501", ",", "1502", ",", "1503", 
       ",", "1504", ",", "1505", ",", "1506", ",", "1507", ",", "1508", ",", 
       "1509", ",", "1510", ",", "1511", ",", "1512", ",", "1513", ",", 
       "1514", ",", "1515", ",", "1516", ",", "1517", ",", "1518", ",", 
       "1590", ",", "\[IndentingNewLine]", "1600", ",", "1601", ",", "1602", 
       ",", "1603", ",", "1604", ",", "1605", ",", "1690"}], 
      "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"desc", "=", 
     RowBox[{"{", 
      RowBox[{"(*", " ", 
       RowBox[{"Hard", "-", 
        RowBox[{"coded", " ", "list", " ", "from", " ", "K"}], "-", 
        RowBox[{"12", " ", "Math", " ", "Taxonomy", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Rev", ".", "10"}], "-", "25", "-", "12"}], ")"}]}]}], " ",
        "*)"}], "\[IndentingNewLine]", 
      RowBox[{
      "\"\<Number Sense/Properties/Relationships\>\"", ",", 
       "\"\<Place Value\>\"", ",", "\"\<Whole Numbers and Integers\>\"", ",", 
       "\"\<Operations\>\"", ",", "\"\<Fractions\>\"", ",", 
       "\"\<Decimals\>\"", ",", "\"\<Percents\>\"", ",", 
       "\"\<Ratio and Proportion\>\"", ",", "\"\<Patterns\>\"", ",", 
       "\"\<Real and/or Rational Numbers\>\"", ",", 
       "\"\<Integer Exponents and Scientific Notation\>\"", ",", 
       "\"\<Factors, Multiples, and Divisibility\>\"", ",", 
       "\"\<Odd/Even/Prime/Composite/Square Numbers\>\"", ",", 
       "\"\<Estimation\>\"", ",", "\"\<Number Comparisons\>\"", ",", 
       "\"\<Order of Operations\>\"", ",", "\"\<Computational Algorithms\>\"",
        ",", "\"\<Relationships between Operations\>\"", ",", 
       "\"\<Number Theory\>\"", ",", "\"\<Mathematical Properties\>\"", ",", 
       "\"\<Other\>\"", ",", "\"\<Operations\>\"", ",", 
       "\"\<Add/Subtract Whole Numbers and Integers\>\"", ",", 
       "\"\<Multiply Whole Numbers and Integers\>\"", ",", 
       "\"\<Divide Whole Numbers and Integers\>\"", ",", 
       "\"\<Combinations of Operations on Whole Numbers and Integers\>\"", 
       ",", "\"\<Equivalent and Non-equivalent Fractions\>\"", ",", 
       "\"\<Add/Subtract Fractions\>\"", ",", "\"\<Multiply Fractions\>\"", 
       ",", "\"\<Divide Fractions\>\"", ",", 
       "\"\<Combinations of Operations on Fractions\>\"", ",", 
       "\"\<Ratio and Proportion\>\"", ",", 
       "\"\<Representation of Fractions\>\"", ",", 
       "\"\<Equivalence of Decimals, Fractions, and Percents\>\"", ",", 
       "\"\<Add/Subtract Decimals\>\"", ",", "\"\<Multiply Decimals\>\"", 
       ",", "\"\<Divide Decimals\>\"", ",", 
       "\"\<Combinations of Operations on Decimals\>\"", ",", 
       "\"\<Computing with Percents\>\"", ",", 
       "\"\<Computing with Exponents and Radicals\>\"", ",", "\"\<Other\>\"", 
       ",", "\"\<Measurement\>\"", ",", 
       "\"\<Use of Measuring Instruments\>\"", ",", 
       "\"\<Theory (arbitrary, standard units and unit size)\>\"", ",", 
       "\"\<Conversions\>\"", ",", "\"\<Metric (SI) System\>\"", ",", 
       "\"\<Length and Perimeter\>\"", ",", "\"\<Area and Volume\>\"", ",", 
       "\"\<Surface Area\>\"", ",", "\"\<Direction, Location, Navigation\>\"",
        ",", "\"\<Angles\>\"", ",", "\"\<Circles\>\"", ",", 
       "\"\<Mass (weight)\>\"", ",", "\"\<Time and Temperature\>\"", ",", 
       "\"\<Money\>\"", ",", "\"\<Derived Measures\>\"", ",", 
       "\"\<Calendar\>\"", ",", "\"\<Accuracy and Precision\>\"", ",", 
       "\"\<Units\>\"", ",", "\"\<Other\>\"", ",", 
       "\"\<Consumer Applications\>\"", ",", "\"\<Simple Interest\>\"", ",", 
       "\"\<Compound Interest\>\"", ",", 
       "\"\<Rates (e.g., Discount and Commission, tips, sales tax, unit cost, \
appreciation)\>\"", ",", "\"\<Other\>\"", ",", "\"\<Basic Algebra\>\"", ",", 
       "\"\<Absolute Value\>\"", ",", "\"\<Use of Variables\>\"", ",", 
       "\"\<Evaluation of Formulas (explicit or recursive), Expressions, and \
Equations\>\"", ",", "\"\<One-Step Equations\>\"", ",", 
       "\"\<Coordinate Planes\>\"", ",", "\"\<Patterns\>\"", ",", 
       "\"\<Multi-step Equations\>\"", ",", "\"\<Inequalities\>\"", ",", 
       "\"\<Linear and Non-linear Relations\>\"", ",", 
       "\"\<Rate of Change/Slope/Line\>\"", ",", 
       "\"\<Operations on Polynomials\>\"", ",", "\"\<Factoring\>\"", ",", 
       "\"\<Square Roots and Radicals\>\"", ",", 
       "\"\<Operations on and with Square Roots and Radicals\>\"", ",", 
       "\"\<Rational Expressions and Equations\>\"", ",", 
       "\"\<Polynomial Expressions\>\"", ",", "\"\<Other\>\"", ",", 
       "\"\<Advanced Algebra\>\"", ",", "\"\<Quadratic Equations\>\"", ",", 
       "\"\<Systems of Linear Equations\>\"", ",", 
       "\"\<Systems of Linear Inequalities\>\"", ",", 
       "\"\<Compound Linear Inequalities\>\"", ",", 
       "\"\<Matrices and Determinants\>\"", ",", "\"\<Conic Sections\>\"", 
       ",", "\"\<Rational, Negative Exponents/Radicals\>\"", ",", 
       "\"\<Rules for Exponents\>\"", ",", "\"\<Complex Numbers\>\"", ",", 
       "\"\<Binomial Theorem\>\"", ",", "\"\<Factor/Remainder Theorem\>\"", 
       ",", "\"\<Field Properties of Real Number System\>\"", ",", 
       "\"\<Finite Sequences and Series\>\"", ",", 
       "\"\<Other Algebraic Expressions and Equations in one Variable\>\"", 
       ",", "\"\<Logarithmic Expressions and Equations\>\"", ",", 
       "\"\<Exponential Expressions and Equations\>\"", ",", "\"\<Other\>\"", 
       ",", "\"\<Geometric Concepts\>\"", ",", "\"\<Basic Terminology\>\"", 
       ",", "\"\<Points, Lines, Rays, Segments, and Vectors\>\"", ",", 
       "\"\<Patterns\>\"", ",", "\"\<Congruence\>\"", ",", 
       "\"\<Similarity\>\"", ",", "\"\<Parallels\>\"", ",", 
       "\"\<Triangles\>\"", ",", "\"\<Quadrilaterals\>\"", ",", 
       "\"\<Circles\>\"", ",", "\"\<Angles\>\"", ",", "\"\<Polygons\>\"", 
       ",", "\"\<Polyhedra\>\"", ",", "\"\<Models\>\"", ",", 
       "\"\<3-D Relationships\>\"", ",", "\"\<Symmetry\>\"", ",", 
       "\"\<Transformations\>\"", ",", "\"\<Pythagorean Theorem\>\"", ",", 
       "\"\<Other\>\"", ",", "\"\<Advanced Geometry\>\"", ",", 
       "\"\<Logic, Reasoning, and Proofs\>\"", ",", "\"\<Loci\>\"", ",", 
       "\"\<Spheres, Cones, and Cylinders\>\"", ",", 
       "\"\<Coordinate Geometry\>\"", ",", "\"\<Vectors\>\"", ",", 
       "\"\<Analytic Geometry\>\"", ",", "\"\<Non-Euclidean Geometry\>\"", 
       ",", "\"\<Topology\>\"", ",", "\"\<Other\>\"", ",", 
       "\"\<Data Displays\>\"", ",", 
       "\"\<Summarize Data in a Table or Graph\>\"", ",", 
       "\"\<Bar graph and Histograms\>\"", ",", 
       "\"\<Pie Charts and Circle Graphs\>\"", ",", "\"\<Pictographs\>\"", 
       ",", "\"\<Line Graphs\>\"", ",", "\"\<Stem and Leaf Plots\>\"", ",", 
       "\"\<Scatter Plots\>\"", ",", "\"\<Box Plots\>\"", ",", 
       "\"\<Line Plots\>\"", ",", "\"\<Classification and Venn diagrams\>\"", 
       ",", "\"\<Tree diagrams\>\"", ",", "\"\<Other\>\"", ",", 
       "\"\<Statistics\>\"", ",", 
       "\"\<Mean (arithmetic & geometric), Median, and Mode\>\"", ",", 
       "\"\<Variability, Standard Deviation, and Range\>\"", ",", 
       "\"\<Line or Curve of Best Fit\>\"", ",", 
       "\"\<Quartiles and Percentiles\>\"", ",", 
       "\"\<Bivariate Distribution\>\"", ",", "\"\<Confidence Intervals\>\"", 
       ",", "\"\<Correlation\>\"", ",", "\"\<Hypothesis Testing\>\"", ",", 
       "\"\<Chi Square\>\"", ",", "\"\<Data Transformation\>\"", ",", 
       "\"\<Central Limit Theorem\>\"", ",", "\"\<Distributions\>\"", ",", 
       "\"\<Experimental Design\>\"", ",", "\"\<Other\>\"", ",", 
       "\"\<Probability\>\"", ",", "\"\<Simple probability\>\"", ",", 
       "\"\<Compound Probability\>\"", ",", "\"\<Conditional Probability\>\"",
        ",", "\"\<Empirical Probability\>\"", ",", 
       "\"\<Sampling and Sample Spaces\>\"", ",", 
       "\"\<Independent vs Dependent Events\>\"", ",", 
       "\"\<Expected Value\>\"", ",", "\"\<Binomial Distribution\>\"", ",", 
       "\"\<Normal Curve\>\"", ",", "\"\<Other\>\"", ",", "\"\<Analysis\>\"", 
       ",", "\"\<Sequences and Series\>\"", ",", "\"\<Limits\>\"", ",", 
       "\"\<Continuity\>\"", ",", "\"\<Rates of Change\>\"", ",", 
       "\"\<Maxima, Minima, and Range\>\"", ",", "\"\<Differentiation\>\"", 
       ",", "\"\<Integration\>\"", ",", "\"\<Other\>\"", ",", 
       "\"\<Trigonometry\>\"", ",", "\"\<Basic Ratios\>\"", ",", 
       "\"\<Radian measure\>\"", ",", "\"\<Right Triangle Trigonometry\>\"", 
       ",", "\"\<Law of Sines and Cosines\>\"", ",", "\"\<Identities\>\"", 
       ",", "\"\<Trigonometric Equations\>\"", ",", 
       "\"\<Polar Coordinates\>\"", ",", "\"\<Periodicity\>\"", ",", 
       "\"\<Amplitude\>\"", ",", "\"\<Other\>\"", ",", 
       "\"\<Special Topics\>\"", ",", "\"\<Sets\>\"", ",", "\"\<Logic\>\"", 
       ",", "\"\<Mathematical Induction\>\"", ",", 
       "\"\<Linear Programming\>\"", ",", "\"\<Networks\>\"", ",", 
       "\"\<Iteration and Recursion\>\"", ",", 
       "\"\<Permutations Combinations\>\"", ",", "\"\<Simulations\>\"", ",", 
       "\"\<Fractals\>\"", ",", "\"\<History of Mathematics\>\"", ",", 
       "\"\<Other\>\"", ",", "\"\<Functions\>\"", ",", "\"\<Notation\>\"", 
       ",", "\"\<Relations\>\"", ",", "\"\<Linear\>\"", ",", 
       "\"\<Quadratic\>\"", ",", "\"\<Polynomial\>\"", ",", 
       "\"\<Rational\>\"", ",", "\"\<Logarithmic\>\"", ",", 
       "\"\<Exponential\>\"", ",", "\"\<Trigonometric and Circular\>\"", ",", 
       "\"\<Inverse\>\"", ",", "\"\<Composition\>\"", ",", 
       "\"\<Absolute Value Functions\>\"", ",", 
       "\"\<Other Algebraic Functions of One Variable\>\"", ",", 
       "\"\<Transformations of Functions\>\"", ",", "\"\<Power Functions\>\"",
        ",", "\"\<Step Functions\>\"", ",", 
       "\"\<Multi-Variable Functions\>\"", ",", 
       "\"\<Piecewise-Defined Functions\>\"", ",", "\"\<Other\>\"", ",", 
       "\"\<Instructional Technology\>\"", ",", 
       "\"\<Use of Scientific Calculators\>\"", ",", 
       "\"\<Use of Graphing Calculators\>\"", ",", 
       "\"\<Use of Computers and Internet\>\"", ",", 
       "\"\<Computer Programming\>\"", ",", "\"\<Use of Spreadsheets\>\"", 
       ",", "\"\<Other\>\""}], "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"validTopics", "=", "values"}], ";"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.5441956110050707`*^9, 3.544195670634129*^9}, 
   3.5441957325318203`*^9, {3.544196143087018*^9, 3.544196171744062*^9}, {
   3.544204662938942*^9, 3.5442046767415237`*^9}, {3.54420479425994*^9, 
   3.544204818787203*^9}, {3.544206619929596*^9, 3.5442067168320017`*^9}, {
   3.544206755864189*^9, 3.5442067949715242`*^9}, {3.544206845558703*^9, 
   3.544206984992578*^9}, {3.544210794357174*^9, 3.544210812667519*^9}, {
   3.544913949118499*^9, 3.5449143526044607`*^9}, {3.548375205492942*^9, 
   3.548375213739892*^9}, {3.548375435007678*^9, 3.548375438754509*^9}, {
   3.5483760566794577`*^9, 3.548376058366488*^9}, {3.548404391765457*^9, 
   3.548404436762765*^9}, {3.548406204728876*^9, 3.548406207343433*^9}, {
   3.5485081172163353`*^9, 3.5485081367393*^9}, {3.5485082218503437`*^9, 
   3.548508221970025*^9}, {3.548508303551868*^9, 3.548508428227171*^9}, {
   3.54850855054846*^9, 3.5485085608509274`*^9}, 3.548508620841791*^9, {
   3.5485086535049562`*^9, 3.548508699866927*^9}, {3.5485087353390093`*^9, 
   3.54850877112576*^9}, 3.548511182997733*^9, {3.601305394263361*^9, 
   3.6013054280466137`*^9}, 3.601305554510632*^9, 3.6013056031096563`*^9, 
   3.601305635789275*^9, {3.6020301191439953`*^9, 3.602030125196198*^9}, {
   3.6020969236587543`*^9, 3.602096937937899*^9}, {3.634568925119296*^9, 
   3.6345689466200027`*^9}, {3.634608527197728*^9, 3.634608628112092*^9}, {
   3.634608713344124*^9, 3.634608751037057*^9}, {3.634608782586693*^9, 
   3.63460880747197*^9}, {3.634608864643148*^9, 3.634608926719432*^9}, {
   3.6346099970828133`*^9, 3.634610032782406*^9}, {3.634610118631201*^9, 
   3.634610159623334*^9}, {3.634610471917841*^9, 3.634610761167675*^9}, {
   3.634612968660424*^9, 3.634613102417466*^9}, {3.634613141663452*^9, 
   3.6346132433579397`*^9}, {3.6346133673497543`*^9, 3.634613477411647*^9}, {
   3.634613580631596*^9, 3.634613587109716*^9}, {3.6346136674129972`*^9, 
   3.6346136881050243`*^9}, {3.634613779433585*^9, 3.634613915709238*^9}, {
   3.634613946380165*^9, 3.634613964886684*^9}, {3.634614030811054*^9, 
   3.634614115207882*^9}, {3.634614453548058*^9, 3.634614547959531*^9}, {
   3.634614612180731*^9, 3.634614927426537*^9}, {3.6346149593272753`*^9, 
   3.6346149716345177`*^9}, {3.634615006730835*^9, 3.634615048772593*^9}, {
   3.634615141686702*^9, 3.634615146859494*^9}, {3.63461532159512*^9, 
   3.6346153362705317`*^9}, {3.634615379221415*^9, 3.634615398302333*^9}, {
   3.634615506262486*^9, 3.6346155934738626`*^9}, {3.634615699580021*^9, 
   3.634616098640265*^9}, {3.634616145864132*^9, 3.634616279839922*^9}, {
   3.634616314610743*^9, 3.6346163887400723`*^9}, {3.634616420389202*^9, 
   3.6346164994950542`*^9}, {3.634616556227282*^9, 3.634616584797241*^9}, {
   3.6346166170477543`*^9, 3.634616668207568*^9}, {3.6346167118057747`*^9, 
   3.6346167370691032`*^9}, {3.634616778929966*^9, 3.634616917397451*^9}, {
   3.634617040537812*^9, 3.634617152075077*^9}, {3.6346174335595627`*^9, 
   3.6346174741272907`*^9}, 3.634617531752638*^9, {3.634617569803906*^9, 
   3.634617633261773*^9}, {3.6346185176047573`*^9, 3.634618523176296*^9}, {
   3.634744612209893*^9, 3.634744630117175*^9}, {3.634744705723555*^9, 
   3.634744711086739*^9}, {3.634744762105031*^9, 3.6347447807679977`*^9}, {
   3.634744870904435*^9, 3.634745003633869*^9}, {3.634745047174274*^9, 
   3.6347450576870403`*^9}, {3.634745412939962*^9, 3.634745438789895*^9}, {
   3.6347454897728977`*^9, 3.634745612355925*^9}, {3.6347456510247993`*^9, 
   3.6347457564861917`*^9}, {3.634745846531052*^9, 3.634745901207447*^9}, 
   3.6347459322710114`*^9, {3.634745995793212*^9, 3.634745999237714*^9}, {
   3.634746032009047*^9, 3.6347460810432873`*^9}, {3.634746120336191*^9, 
   3.634746120887167*^9}, {3.634746153416462*^9, 3.6347461543169622`*^9}, {
   3.6347463213411303`*^9, 3.6347463511380796`*^9}, {3.634746498484241*^9, 
   3.634746554338076*^9}, {3.634746624231491*^9, 3.634746654816593*^9}, {
   3.6347467832981577`*^9, 3.634746838354501*^9}, {3.6347469912453213`*^9, 
   3.634747012304257*^9}, {3.6347745555618773`*^9, 3.6347745997762814`*^9}, {
   3.634774642839191*^9, 3.6347746632725897`*^9}, {3.634774703027163*^9, 
   3.634774752389579*^9}, {3.6347747845213823`*^9, 3.634774842597208*^9}, {
   3.634774885197804*^9, 3.634774898652732*^9}, {3.6347749395621653`*^9, 
   3.63477495238934*^9}, {3.6347750393771133`*^9, 3.634775045843536*^9}, {
   3.634775123455016*^9, 3.6347752404140472`*^9}, {3.634775311344446*^9, 
   3.634775387110139*^9}, {3.63477546922379*^9, 3.634775474937422*^9}, {
   3.634775546507983*^9, 3.634775547243874*^9}, {3.634775595015554*^9, 
   3.63477560667523*^9}, {3.63477567876624*^9, 3.6347757928686047`*^9}, {
   3.63477583027731*^9, 3.634775966148041*^9}, {3.634776027974567*^9, 
   3.634776100277256*^9}, {3.634776454034684*^9, 3.634776525588161*^9}, {
   3.634776560025193*^9, 3.6347765927564697`*^9}, {3.6347766230183973`*^9, 
   3.634776726230549*^9}, {3.634776797873605*^9, 3.6347768441140413`*^9}, {
   3.634776882644141*^9, 3.634776883386558*^9}, {3.634776923963045*^9, 
   3.634776971549983*^9}, {3.634777047202971*^9, 3.6347770720110817`*^9}, {
   3.6347771158640537`*^9, 3.63477727721916*^9}, {3.634777322086677*^9, 
   3.6347773849016533`*^9}, {3.6347774434771833`*^9, 3.634777469388748*^9}, {
   3.634777608147029*^9, 3.634777630359232*^9}, {3.6347776705991898`*^9, 
   3.634777688493989*^9}, {3.6347777722348423`*^9, 3.6347778131776752`*^9}, {
   3.634777865659822*^9, 3.634777872036275*^9}, {3.634779013729495*^9, 
   3.634779046922311*^9}, {3.634779639834958*^9, 3.6347796806217947`*^9}, {
   3.6347797257663717`*^9, 3.6347797280382*^9}, {3.6347822942647657`*^9, 
   3.6347822994785337`*^9}, 3.6347825257991*^9, {3.634782562808062*^9, 
   3.634782576979805*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Major Content", "Subsection",
 CellChangeTimes->{{3.634782592772911*^9, 3.634782608411313*^9}}],

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "theContentLegend", "\[IndentingNewLine]", "Private", " ", "definitions", 
     " ", "of", " ", "valid", " ", "values"}], ",", " ", 
    RowBox[{"Exports", " ", "public", " ", "lists"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "myContentLegend", ",", "validMajorTopics", ",", "validMajorTopicsLegend",
      ",", "highlightMajorTopicsLegend"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"myContentLegend", "=", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<Topic\>\"", ",", "\"\<Legend\>\"", ",", "\"\<PieLegend\>\""}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"100", ",", " ", "\"\<Numbers\>\"", ",", " ", "\"\<\>\""}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"200", ",", " ", "\"\<Operations\>\"", ",", " ", "\"\<\>\""}],
         "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "300", ",", " ", "\"\<Measurement\>\"", ",", " ", "\"\<\>\""}], "}"}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "400", ",", " ", "\"\<Consumer Applications\>\"", ",", " ", 
         "\"\<\>\""}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "500", ",", " ", "\"\<Algebra\>\"", ",", " ", "\"\<Algebra\>\""}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "600", ",", " ", "\"\<Advanced Algebra\>\"", ",", " ", 
         "\"\<Advanced Algebra\>\""}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"700", ",", " ", "\"\<Geometry\>\"", ",", " ", "\"\<\>\""}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "800", ",", " ", "\"\<Advanced Geometry\>\"", ",", " ", "\"\<\>\""}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "900", ",", " ", "\"\<Data Displays\>\"", ",", " ", "\"\<\>\""}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "1000", ",", " ", "\"\<Statistics\>\"", ",", " ", "\"\<\>\""}], "}"}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "1100", ",", " ", "\"\<Probability\>\"", ",", " ", "\"\<\>\""}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"1200", ",", " ", "\"\<Analysis\>\"", ",", " ", "\"\<\>\""}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "1300", ",", " ", "\"\<Trigonometry\>\"", ",", " ", "\"\<\>\""}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "1400", ",", " ", "\"\<Special Topics\>\"", ",", " ", "\"\<\>\""}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "1500", ",", " ", "\"\<Functions\>\"", ",", " ", 
         "\"\<Functions\>\""}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "1600", ",", " ", "\"\<Instructional Technology\>\"", ",", " ", 
         "\"\<\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "validMajorTopics", ",", "validMajorTopicsLegend", ",", 
       "highlightMajorTopicsLegend"}], "}"}], "=", 
     RowBox[{"Transpose", "@", "myContentLegend"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{
     "Replace", " ", "spaces", " ", "with", " ", "newlines", " ", "in", " ", 
      "Legend", " ", "sections"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"myContentLegend", "=", 
     RowBox[{"Transpose", "@", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{"validMajorTopics", ",", "\[IndentingNewLine]", 
        RowBox[{"StringReplace", "[", 
         RowBox[{"validMajorTopicsLegend", ",", 
          RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\\n\>\""}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"StringReplace", "[", 
         RowBox[{"highlightMajorTopicsLegend", ",", 
          RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\\n\>\""}]}], "]"}]}], 
       "\[IndentingNewLine]", "}"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{"Spit", " ", "out", " ", "the", " ", "table"}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"prettyPrintTable", "[", "myContentLegend", "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{
     "Export", " ", "codes", " ", "for", " ", "Content", " ", "scoring"}], 
     " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"theContentLegend", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"Rest", "@", "myContentLegend"}], "]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.5441956110050707`*^9, 3.544195670634129*^9}, 
   3.5441957325318203`*^9, {3.544196143087018*^9, 3.544196171744062*^9}, {
   3.544204662938942*^9, 3.5442046767415237`*^9}, {3.54420479425994*^9, 
   3.544204818787203*^9}, {3.544206619929596*^9, 3.5442067168320017`*^9}, {
   3.544206755864189*^9, 3.5442067949715242`*^9}, {3.544206845558703*^9, 
   3.544206984992578*^9}, {3.544210794357174*^9, 3.544210812667519*^9}, {
   3.544913949118499*^9, 3.5449143526044607`*^9}, {3.548375205492942*^9, 
   3.548375213739892*^9}, {3.548375435007678*^9, 3.548375438754509*^9}, {
   3.5483760566794577`*^9, 3.548376058366488*^9}, {3.548404391765457*^9, 
   3.548404436762765*^9}, {3.548406204728876*^9, 3.548406207343433*^9}, {
   3.5485081172163353`*^9, 3.5485081367393*^9}, {3.5485082218503437`*^9, 
   3.548508221970025*^9}, {3.548508303551868*^9, 3.548508428227171*^9}, {
   3.54850855054846*^9, 3.5485085608509274`*^9}, 3.548508620841791*^9, {
   3.5485086535049562`*^9, 3.548508699866927*^9}, {3.5485087353390093`*^9, 
   3.54850877112576*^9}, 3.548511182997733*^9, {3.601305394263361*^9, 
   3.6013054280466137`*^9}, 3.601305554510632*^9, 3.6013056031096563`*^9, 
   3.601305635789275*^9, {3.6020301191439953`*^9, 3.602030125196198*^9}, {
   3.6020969236587543`*^9, 3.602096937937899*^9}, {3.634568925119296*^9, 
   3.6345689466200027`*^9}, {3.634608527197728*^9, 3.634608628112092*^9}, {
   3.634608713344124*^9, 3.634608751037057*^9}, {3.634608782586693*^9, 
   3.63460880747197*^9}, {3.634608864643148*^9, 3.634608926719432*^9}, {
   3.6346099970828133`*^9, 3.634610032782406*^9}, {3.634610118631201*^9, 
   3.634610159623334*^9}, {3.634610471917841*^9, 3.634610761167675*^9}, {
   3.634612968660424*^9, 3.634613102417466*^9}, {3.634613141663452*^9, 
   3.6346132433579397`*^9}, {3.6346133673497543`*^9, 3.634613477411647*^9}, {
   3.634613580631596*^9, 3.634613587109716*^9}, {3.6346136674129972`*^9, 
   3.6346136881050243`*^9}, {3.634613779433585*^9, 3.634613915709238*^9}, {
   3.634613946380165*^9, 3.634613964886684*^9}, {3.634614030811054*^9, 
   3.634614115207882*^9}, {3.634614453548058*^9, 3.634614547959531*^9}, {
   3.634614612180731*^9, 3.634614927426537*^9}, {3.6346149593272753`*^9, 
   3.6346149716345177`*^9}, {3.634615006730835*^9, 3.634615048772593*^9}, {
   3.634615141686702*^9, 3.634615146859494*^9}, {3.63461532159512*^9, 
   3.6346153362705317`*^9}, {3.634615379221415*^9, 3.634615398302333*^9}, {
   3.634615506262486*^9, 3.6346155934738626`*^9}, {3.634615699580021*^9, 
   3.634616098640265*^9}, {3.634616145864132*^9, 3.634616279839922*^9}, {
   3.634616314610743*^9, 3.6346163887400723`*^9}, {3.634616420389202*^9, 
   3.6346164994950542`*^9}, {3.634616556227282*^9, 3.634616584797241*^9}, {
   3.6346166170477543`*^9, 3.634616668207568*^9}, {3.6346167118057747`*^9, 
   3.6346167370691032`*^9}, {3.634616778929966*^9, 3.634616917397451*^9}, {
   3.634617040537812*^9, 3.634617152075077*^9}, {3.6346174335595627`*^9, 
   3.6346174741272907`*^9}, 3.634617531752638*^9, {3.634617569803906*^9, 
   3.634617633261773*^9}, {3.6346185176047573`*^9, 3.634618523176296*^9}, {
   3.634744612209893*^9, 3.634744630117175*^9}, {3.634744705723555*^9, 
   3.634744711086739*^9}, {3.634744762105031*^9, 3.6347447807679977`*^9}, {
   3.634744870904435*^9, 3.634745003633869*^9}, {3.634745047174274*^9, 
   3.6347450576870403`*^9}, {3.634745412939962*^9, 3.634745438789895*^9}, {
   3.6347454897728977`*^9, 3.634745612355925*^9}, {3.6347456510247993`*^9, 
   3.6347457564861917`*^9}, {3.634745846531052*^9, 3.634745901207447*^9}, 
   3.6347459322710114`*^9, {3.634745995793212*^9, 3.634745999237714*^9}, {
   3.634746032009047*^9, 3.6347460810432873`*^9}, {3.634746120336191*^9, 
   3.634746120887167*^9}, {3.634746153416462*^9, 3.6347461543169622`*^9}, {
   3.6347463213411303`*^9, 3.6347463511380796`*^9}, {3.634746498484241*^9, 
   3.634746554338076*^9}, {3.634746624231491*^9, 3.634746654816593*^9}, {
   3.6347467832981577`*^9, 3.634746838354501*^9}, {3.6347469912453213`*^9, 
   3.634747012304257*^9}, {3.6347745555618773`*^9, 3.6347745997762814`*^9}, {
   3.634774642839191*^9, 3.6347746632725897`*^9}, {3.634774703027163*^9, 
   3.634774752389579*^9}, {3.6347747845213823`*^9, 3.634774842597208*^9}, {
   3.634774885197804*^9, 3.634774898652732*^9}, {3.6347749395621653`*^9, 
   3.63477495238934*^9}, {3.6347750393771133`*^9, 3.634775045843536*^9}, {
   3.634775123455016*^9, 3.6347752404140472`*^9}, {3.634775311344446*^9, 
   3.634775387110139*^9}, {3.63477546922379*^9, 3.634775474937422*^9}, {
   3.634775546507983*^9, 3.634775547243874*^9}, {3.634775595015554*^9, 
   3.63477560667523*^9}, {3.63477567876624*^9, 3.6347757928686047`*^9}, {
   3.63477583027731*^9, 3.634775966148041*^9}, {3.634776027974567*^9, 
   3.634776100277256*^9}, {3.634776454034684*^9, 3.634776525588161*^9}, {
   3.634776560025193*^9, 3.6347765927564697`*^9}, {3.6347766230183973`*^9, 
   3.634776726230549*^9}, {3.634776797873605*^9, 3.6347768441140413`*^9}, {
   3.634776882644141*^9, 3.634776883386558*^9}, {3.634776923963045*^9, 
   3.634776971549983*^9}, {3.634777047202971*^9, 3.6347770720110817`*^9}, {
   3.6347771158640537`*^9, 3.63477727721916*^9}, {3.634777322086677*^9, 
   3.6347773849016533`*^9}, {3.6347774434771833`*^9, 3.634777469388748*^9}, {
   3.634777608147029*^9, 3.634777630359232*^9}, {3.6347776705991898`*^9, 
   3.634777688493989*^9}, {3.6347777722348423`*^9, 3.6347778131776752`*^9}, {
   3.634777865659822*^9, 3.634777872036275*^9}, {3.634779013729495*^9, 
   3.634779046922311*^9}, {3.634779639834958*^9, 3.6347796806217947`*^9}, {
   3.6347797257663717`*^9, 3.6347797280382*^9}, {3.6347822942647657`*^9, 
   3.6347822994785337`*^9}, 3.6347825257991*^9, {3.634782562808062*^9, 
   3.634782576979805*^9}, 3.634782620313325*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["CogBeh and Other", "Subsection",
 CellChangeTimes->{{3.634782649117134*^9, 3.634782655876748*^9}}],

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "CogBeh", " ", "and", " ", "Other", "\[IndentingNewLine]", "Private", " ",
      "definitions", " ", "of", " ", "valid", " ", "values"}], ",", " ", 
    RowBox[{"Exports", " ", "public", " ", "lists"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "myValidCogBeh", ",", "validCogBeh", ",", "validCogBehLegend", ",", 
     "\[IndentingNewLine]", "myValidOther", ",", "validOther", ",", 
     "validOtherLegend"}], "}"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"myValidCogBeh", "=", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\"\<CogBeh\>\"", ",", "\"\<Legend\>\""}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"\"\<A\>\"", ",", "\"\<Applying\>\""}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"\"\<K\>\"", ",", "\"\<Knowing\>\""}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"\"\<R\>\"", ",", "\"\<Reasoning\>\""}], "}"}]}], 
      "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"myValidOther", "=", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\"\<Other\>\"", ",", "\"\<Legend\>\""}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"\"\<C\>\"", ",", "\"\<Calculator/Computer\>\""}], "}"}], ",",
        "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"\"\<M\>\"", ",", "\"\<Manipulatives\>\""}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"\"\<X\>\"", ",", "\"\<Real-World Context\>\""}], "}"}]}], 
      "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"validCogBeh", ",", "validCogBehLegend"}], "}"}], "=", 
     RowBox[{"Transpose", "@", "myValidCogBeh"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"prettyPrintTable", "[", "myValidCogBeh", "]"}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"validOther", ",", "validOtherLegend"}], "}"}], "=", 
     RowBox[{"Transpose", "@", "myValidOther"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"prettyPrintTable", "[", "myValidOther", "]"}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{
     "Export", " ", "codes", " ", "for", " ", "CogBeh", " ", "scoring"}], " ",
      "*)"}], "\[IndentingNewLine]", 
    RowBox[{"theCogBehValid", "=", 
     RowBox[{
      RowBox[{"Rest", "[", "validCogBeh", "]"}], ".", "permuteCogBeh"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{"theCogBehLegend", "=", 
     RowBox[{
      RowBox[{"Rest", "[", "validCogBehLegend", "]"}], ".", 
      "permuteCogBeh"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{
     "Export", " ", "codes", " ", "for", " ", "Other", " ", "scoring"}], " ", 
     "*)"}], "\[IndentingNewLine]", 
    RowBox[{"theOtherValid", "=", 
     RowBox[{"Rest", "@", "validOther"}]}], ";", " ", "\[IndentingNewLine]", 
    RowBox[{"theOtherLegend", "=", 
     RowBox[{"Rest", "@", "validOtherLegend"}]}], ";"}]}], " ", 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.5441956110050707`*^9, 3.544195670634129*^9}, 
   3.5441957325318203`*^9, {3.544196143087018*^9, 3.544196171744062*^9}, {
   3.544204662938942*^9, 3.5442046767415237`*^9}, {3.54420479425994*^9, 
   3.544204818787203*^9}, {3.544206619929596*^9, 3.5442067168320017`*^9}, {
   3.544206755864189*^9, 3.5442067949715242`*^9}, {3.544206845558703*^9, 
   3.544206984992578*^9}, {3.544210794357174*^9, 3.544210812667519*^9}, {
   3.544913949118499*^9, 3.5449143526044607`*^9}, {3.548375205492942*^9, 
   3.548375213739892*^9}, {3.548375435007678*^9, 3.548375438754509*^9}, {
   3.5483760566794577`*^9, 3.548376058366488*^9}, {3.548404391765457*^9, 
   3.548404436762765*^9}, {3.548406204728876*^9, 3.548406207343433*^9}, {
   3.5485081172163353`*^9, 3.5485081367393*^9}, {3.5485082218503437`*^9, 
   3.548508221970025*^9}, {3.548508303551868*^9, 3.548508428227171*^9}, {
   3.54850855054846*^9, 3.5485085608509274`*^9}, 3.548508620841791*^9, {
   3.5485086535049562`*^9, 3.548508699866927*^9}, {3.5485087353390093`*^9, 
   3.54850877112576*^9}, 3.548511182997733*^9, {3.601305394263361*^9, 
   3.6013054280466137`*^9}, 3.601305554510632*^9, 3.6013056031096563`*^9, 
   3.601305635789275*^9, {3.6020301191439953`*^9, 3.602030125196198*^9}, {
   3.6020969236587543`*^9, 3.602096937937899*^9}, {3.634568925119296*^9, 
   3.6345689466200027`*^9}, {3.634608527197728*^9, 3.634608628112092*^9}, {
   3.634608713344124*^9, 3.634608751037057*^9}, {3.634608782586693*^9, 
   3.63460880747197*^9}, {3.634608864643148*^9, 3.634608926719432*^9}, {
   3.6346099970828133`*^9, 3.634610032782406*^9}, {3.634610118631201*^9, 
   3.634610159623334*^9}, {3.634610471917841*^9, 3.634610761167675*^9}, {
   3.634612968660424*^9, 3.634613102417466*^9}, {3.634613141663452*^9, 
   3.6346132433579397`*^9}, {3.6346133673497543`*^9, 3.634613477411647*^9}, {
   3.634613580631596*^9, 3.634613587109716*^9}, {3.6346136674129972`*^9, 
   3.6346136881050243`*^9}, {3.634613779433585*^9, 3.634613915709238*^9}, {
   3.634613946380165*^9, 3.634613964886684*^9}, {3.634614030811054*^9, 
   3.634614115207882*^9}, {3.634614453548058*^9, 3.634614547959531*^9}, {
   3.634614612180731*^9, 3.634614927426537*^9}, {3.6346149593272753`*^9, 
   3.6346149716345177`*^9}, {3.634615006730835*^9, 3.634615048772593*^9}, {
   3.634615141686702*^9, 3.634615146859494*^9}, {3.63461532159512*^9, 
   3.6346153362705317`*^9}, {3.634615379221415*^9, 3.634615398302333*^9}, {
   3.634615506262486*^9, 3.6346155934738626`*^9}, {3.634615699580021*^9, 
   3.634616098640265*^9}, {3.634616145864132*^9, 3.634616279839922*^9}, {
   3.634616314610743*^9, 3.6346163887400723`*^9}, {3.634616420389202*^9, 
   3.6346164994950542`*^9}, {3.634616556227282*^9, 3.634616584797241*^9}, {
   3.6346166170477543`*^9, 3.634616668207568*^9}, {3.6346167118057747`*^9, 
   3.6346167370691032`*^9}, {3.634616778929966*^9, 3.634616917397451*^9}, {
   3.634617040537812*^9, 3.634617152075077*^9}, {3.6346174335595627`*^9, 
   3.6346174741272907`*^9}, 3.634617531752638*^9, {3.634617569803906*^9, 
   3.634617633261773*^9}, {3.6346185176047573`*^9, 3.634618523176296*^9}, {
   3.634744612209893*^9, 3.634744630117175*^9}, {3.634744705723555*^9, 
   3.634744711086739*^9}, {3.634744762105031*^9, 3.6347447807679977`*^9}, {
   3.634744870904435*^9, 3.634745003633869*^9}, {3.634745047174274*^9, 
   3.6347450576870403`*^9}, {3.634745412939962*^9, 3.634745438789895*^9}, {
   3.6347454897728977`*^9, 3.634745612355925*^9}, {3.6347456510247993`*^9, 
   3.6347457564861917`*^9}, {3.634745846531052*^9, 3.634745901207447*^9}, 
   3.6347459322710114`*^9, {3.634745995793212*^9, 3.634745999237714*^9}, {
   3.634746032009047*^9, 3.6347460810432873`*^9}, {3.634746120336191*^9, 
   3.634746120887167*^9}, {3.634746153416462*^9, 3.6347461543169622`*^9}, {
   3.6347463213411303`*^9, 3.6347463511380796`*^9}, {3.634746498484241*^9, 
   3.634746554338076*^9}, {3.634746624231491*^9, 3.634746654816593*^9}, {
   3.6347467832981577`*^9, 3.634746838354501*^9}, {3.6347469912453213`*^9, 
   3.634747012304257*^9}, {3.6347745555618773`*^9, 3.6347745997762814`*^9}, {
   3.634774642839191*^9, 3.6347746632725897`*^9}, {3.634774703027163*^9, 
   3.634774752389579*^9}, {3.6347747845213823`*^9, 3.634774842597208*^9}, {
   3.634774885197804*^9, 3.634774898652732*^9}, {3.6347749395621653`*^9, 
   3.63477495238934*^9}, {3.6347750393771133`*^9, 3.634775045843536*^9}, {
   3.634775123455016*^9, 3.6347752404140472`*^9}, {3.634775311344446*^9, 
   3.634775387110139*^9}, {3.63477546922379*^9, 3.634775474937422*^9}, {
   3.634775546507983*^9, 3.634775547243874*^9}, {3.634775595015554*^9, 
   3.63477560667523*^9}, {3.63477567876624*^9, 3.6347757928686047`*^9}, {
   3.63477583027731*^9, 3.634775966148041*^9}, {3.634776027974567*^9, 
   3.634776100277256*^9}, {3.634776454034684*^9, 3.634776525588161*^9}, {
   3.634776560025193*^9, 3.6347765927564697`*^9}, {3.6347766230183973`*^9, 
   3.634776726230549*^9}, {3.634776797873605*^9, 3.6347768441140413`*^9}, {
   3.634776882644141*^9, 3.634776883386558*^9}, {3.634776923963045*^9, 
   3.634776971549983*^9}, {3.634777047202971*^9, 3.6347770720110817`*^9}, {
   3.6347771158640537`*^9, 3.63477727721916*^9}, {3.634777322086677*^9, 
   3.6347773849016533`*^9}, {3.6347774434771833`*^9, 3.634777469388748*^9}, {
   3.634777608147029*^9, 3.634777630359232*^9}, {3.6347776705991898`*^9, 
   3.634777688493989*^9}, {3.6347777722348423`*^9, 3.6347778131776752`*^9}, {
   3.634777865659822*^9, 3.634777872036275*^9}, {3.634779013729495*^9, 
   3.634779046922311*^9}, {3.634779639834958*^9, 3.6347796806217947`*^9}, {
   3.6347797257663717`*^9, 3.6347797280382*^9}, {3.6347822942647657`*^9, 
   3.6347822994785337`*^9}, 3.6347825257991*^9, {3.634782562808062*^9, 
   3.634782576979805*^9}, 3.634782620313325*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Color Palettes", "Section",
 CellChangeTimes->{{3.601305640085658*^9, 3.6013056466678753`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"colorsResistorColorCode", "=", 
   RowBox[{"{", 
    RowBox[{
    "Brown", ",", "Red", ",", "Orange", ",", "Yellow", ",", "Green", ",", 
     "Blue", ",", "Purple", ",", "Gray", ",", "White", ",", "Black"}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"colorsLightResistorColorCode", "=", 
   RowBox[{"{", 
    RowBox[{
    "LightBrown", ",", "LightRed", ",", "LightOrange", ",", "LightYellow", 
     ",", "LightGreen", ",", "LightBlue", ",", "LightPurple", ",", 
     "LightGray", ",", "White", ",", "Gray"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"colorsCogBeh", "=", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "14", " ", "*)"}], 
     RowBox[{
      RowBox[{"RGBColor", "[", 
       RowBox[{".99", ",", ".99", ",", ".59"}], "]"}], 
      RowBox[{"(*", 
       RowBox[{"Pastel", " ", "Yellow"}], "*)"}], ",", "\[IndentingNewLine]", 
      
      RowBox[{"(*", " ", "16", " ", "*)"}], 
      RowBox[{"RGBColor", "[", 
       RowBox[{".68", ",", ".78", ",", ".81"}], "]"}], 
      RowBox[{"(*", 
       RowBox[{"Pastel", " ", "Blue"}], "*)"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "12", " ", "*)"}], 
      RowBox[{"RGBColor", "[", 
       RowBox[{"1", ",", ".412", ",", ".38"}], "]"}]}], 
     RowBox[{"(*", 
      RowBox[{"Pastel", " ", "Red"}], "*)"}], "\[IndentingNewLine]", "}"}], 
    ".", "permuteCogBeh"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5441956110050707`*^9, 3.544195670634129*^9}, 
   3.5441957325318203`*^9, {3.544196143087018*^9, 3.544196171744062*^9}, {
   3.544204662938942*^9, 3.5442046767415237`*^9}, {3.54420479425994*^9, 
   3.544204818787203*^9}, {3.544206619929596*^9, 3.5442067168320017`*^9}, {
   3.544206755864189*^9, 3.5442067949715242`*^9}, {3.544206845558703*^9, 
   3.544206984992578*^9}, {3.544210794357174*^9, 3.544210812667519*^9}, {
   3.544913949118499*^9, 3.5449143526044607`*^9}, {3.548375205492942*^9, 
   3.548375213739892*^9}, {3.548375435007678*^9, 3.548375438754509*^9}, {
   3.5483760566794577`*^9, 3.548376058366488*^9}, {3.548404391765457*^9, 
   3.548404436762765*^9}, {3.548406204728876*^9, 3.548406207343433*^9}, {
   3.5485081172163353`*^9, 3.5485081367393*^9}, {3.5485082218503437`*^9, 
   3.548508221970025*^9}, {3.548508303551868*^9, 3.548508428227171*^9}, {
   3.54850855054846*^9, 3.5485085608509274`*^9}, 3.548508620841791*^9, {
   3.5485086535049562`*^9, 3.548508699866927*^9}, {3.5485087353390093`*^9, 
   3.54850877112576*^9}, 3.548511182997733*^9, {3.601305394263361*^9, 
   3.6013054280466137`*^9}, 3.601305554510632*^9, 3.6013056031096563`*^9, 
   3.601305635789275*^9, {3.601305725339617*^9, 3.6013057442308197`*^9}, {
   3.602029326288658*^9, 3.60202939051784*^9}, {3.602030141817803*^9, 
   3.602030145792781*^9}, {3.602096973193272*^9, 3.6020969751747303`*^9}, {
   3.602097755968066*^9, 3.6020977576555223`*^9}}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Topic Summaries", "Subchapter",
 CellChangeTimes->{{3.544195954563271*^9, 3.544195965359908*^9}}],

Cell[CellGroupData[{

Cell["Cognitive Behavior", "Section",
 CellChangeTimes->{{3.544200461870632*^9, 3.544200466029958*^9}}],

Cell[BoxData[
 RowBox[{"PieChart", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{"1", ",", 
     RowBox[{"{", "3", "}"}]}], "]"}], " ", 
   RowBox[{"(*", " ", "Legend", " ", "*)"}], "\[IndentingNewLine]", ",", 
   RowBox[{"ChartLabels", "\[Rule]", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"theCogBehLegend", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        "Larger"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Cognitive Behavior Legend\>\"", ",", 
      RowBox[{"FontFamily", "->", "\"\<Helvetica\>\""}], ",", "18"}], "]"}]}],
    "\[IndentingNewLine]", ",", 
   RowBox[{"ChartBaseStyle", "\[Rule]", 
    RowBox[{"EdgeForm", "[", "None", "]"}]}], "\[IndentingNewLine]", ",", 
   RowBox[{"ChartStyle", "\[Rule]", "colorsCogBeh"}], "\[IndentingNewLine]", 
   ",", 
   RowBox[{"SectorOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Pi", "/", "2"}], ",", "\"\<Counterclockwise\>\""}], "}"}], 
      ",", "0"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.601305774579879*^9, 3.601305778963479*^9}, {
  3.602030764214204*^9, 3.602030772669053*^9}, {3.602097879662301*^9, 
  3.602097881923705*^9}, {3.602097912814183*^9, 3.602097954366548*^9}, {
  3.602101810855192*^9, 3.602101813054056*^9}, {3.602101940817371*^9, 
  3.602101957872064*^9}, {3.6021025686248693`*^9, 3.6021025690312634`*^9}}],

Cell[BoxData[{
 RowBox[{"theCogBehPies", "=", 
  RowBox[{"GraphicsGrid", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{"w", "=", 
           RowBox[{
            RowBox[{"Transpose", "[", "\[IndentingNewLine]", 
             RowBox[{"Select", "[", 
              RowBox[{
               RowBox[{"Sort", "[", 
                RowBox[{"Tally", "[", 
                 RowBox[{
                  RowBox[{"Transpose", "[", "\[IndentingNewLine]", 
                   RowBox[{"Select", "[", 
                    RowBox[{
                    RowBox[{"theData", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "cHead", "]"}], "]"}], "==", 
                    "\"\<Data\>\""}], "&"}]}], "]"}], "]"}], "[", 
                  RowBox[{"[", "cCogBeh", "]"}], "]"}], "]"}], "]"}], 
               "\[IndentingNewLine]", ",", 
               RowBox[{
                RowBox[{"MemberQ", "[", 
                 RowBox[{"theCogBehValid", ",", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "&"}]}], "]"}], 
             "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"PieChart", "[", 
          RowBox[{
           RowBox[{"w", 
            RowBox[{"(*", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"w", "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", 
               RowBox[{"w", "[", 
                RowBox[{"[", "2", "]"}], "]"}], ",", 
               RowBox[{"w", "[", 
                RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "*)"}], ".", 
            "permuteCogBeh"}], "\[IndentingNewLine]", ",", 
           RowBox[{"ChartLabels", "\[Rule]", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{"theCogBehLegend", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                "Small"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], 
           "\[IndentingNewLine]", ",", 
           RowBox[{"PlotLabel", "\[Rule]", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"theSeriesNames", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ",", 
              RowBox[{"FontFamily", "->", "\"\<Helvetica\>\""}], ",", "18"}], 
             "]"}]}], "\[IndentingNewLine]", ",", 
           RowBox[{"ChartBaseStyle", "\[Rule]", 
            RowBox[{"EdgeForm", "[", "None", "]"}]}], "\[IndentingNewLine]", 
           ",", 
           RowBox[{"ChartStyle", "\[Rule]", "colorsCogBeh"}], 
           "\[IndentingNewLine]", ",", 
           RowBox[{"SectorOrigin", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Pi", "/", "2"}], ",", "\"\<Counterclockwise\>\""}], 
               "}"}], ",", "0"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], 
        "]"}], "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "theDataLength"}], "}"}]}], "]"}], 
     "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", ",", 
    RowBox[{"ImageSize", "\[Rule]", "Full"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "outputDirectory", "<>", "\"\<CogBeh\>\"", "<>", "seriesPie", "<>", 
     "\"\<.pdf\>\""}], ",", "theCogBehPies", ",", 
    RowBox[{"ImageSize", "\[Rule]", " ", "imageSize"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "outputDirectory", "<>", "\"\<CogBeh\>\"", "<>", "seriesPie", "<>", 
     "\"\<.png\>\""}], ",", "theCogBehPies", ",", " ", 
    RowBox[{"ImageSize", "\[Rule]", " ", "imageSize"}], ",", " ", 
    RowBox[{"ImageResolution", "\[Rule]", " ", "192"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.544200496186593*^9, 3.544200553873086*^9}, {
   3.5442006176075573`*^9, 3.5442006949700937`*^9}, 3.54420072907812*^9, {
   3.5442007734186983`*^9, 3.544200773738285*^9}, {3.544200837970142*^9, 
   3.544200883116065*^9}, {3.5442009207894773`*^9, 3.5442010452350883`*^9}, 
   3.5442011347117977`*^9, {3.544201171640127*^9, 3.544201279467944*^9}, {
   3.544201332263713*^9, 3.544201338342372*^9}, {3.544201564186871*^9, 
   3.5442015645515957`*^9}, {3.544202106603397*^9, 3.544202123170534*^9}, {
   3.54420224147675*^9, 3.544202243960499*^9}, {3.5442067274299917`*^9, 
   3.544206741998591*^9}, {3.5442068003241367`*^9, 3.544206814955369*^9}, {
   3.544914764622315*^9, 3.544914773181429*^9}, {3.544948616251446*^9, 
   3.544948626298128*^9}, {3.544949862436781*^9, 3.544949922783217*^9}, {
   3.548362320464476*^9, 3.54836239042213*^9}, {3.548362592641075*^9, 
   3.548362592928254*^9}, {3.548362990599663*^9, 3.548363130723151*^9}, {
   3.548363162219861*^9, 3.548363187665998*^9}, {3.548363287800802*^9, 
   3.548363377678244*^9}, {3.5483655108410797`*^9, 3.548365552429685*^9}, {
   3.548365610467691*^9, 3.548365627425333*^9}, {3.5483657271412487`*^9, 
   3.5483657517959013`*^9}, {3.548365834319077*^9, 3.548365844245084*^9}, {
   3.548365921970263*^9, 3.548365937718316*^9}, {3.548365996358151*^9, 
   3.548366002364257*^9}, {3.548366050962027*^9, 3.5483661393806343`*^9}, {
   3.5483662000280724`*^9, 3.5483662273465652`*^9}, {3.548366392639955*^9, 
   3.5483663941979427`*^9}, {3.548366863778503*^9, 3.548366920552129*^9}, {
   3.548366968223711*^9, 3.548367005301456*^9}, {3.5483672892568913`*^9, 
   3.548367333032227*^9}, {3.5483697974673567`*^9, 3.5483698347632513`*^9}, 
   3.548412341085081*^9, {3.602030205297237*^9, 3.602030303194686*^9}, {
   3.602096290571206*^9, 3.602096294092443*^9}, {3.60209663777851*^9, 
   3.6020966440781603`*^9}, 3.6020967266440353`*^9, {3.60209702833037*^9, 
   3.6020970302309113`*^9}, {3.602097253355919*^9, 3.60209725692267*^9}, {
   3.602097968643922*^9, 3.602097969992937*^9}, {3.602101822467518*^9, 
   3.6021018244427958`*^9}, {3.602101922309108*^9, 3.602101928556604*^9}, {
   3.605368411634439*^9, 3.6053684129884243`*^9}, {3.6346186810808372`*^9, 
   3.634618700751823*^9}, {3.6467369484551897`*^9, 3.646736960519084*^9}, {
   3.64673700419072*^9, 3.646737009596236*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Word Clouds for Cognitive Behavior and Other Aspects", "Section",
 CellChangeTimes->{{3.6463507558798523`*^9, 3.6463507634945107`*^9}, {
  3.646421047485779*^9, 3.646421054188654*^9}, {3.6464222715948267`*^9, 
  3.646422284688047*^9}}],

Cell[BoxData[{
 RowBox[{"theCogBehWordClouds", "=", 
  RowBox[{"GraphicsGrid", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Table", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "akr", ",", "other", ",", "data", ",", "fullList", ",", "useWords", 
           ",", "map", ",", "oops"}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"map", "=", 
             RowBox[{"\[LeftAssociation]", 
              RowBox[{
               RowBox[{"\"\<A\>\"", "\[Rule]", "\"\<Applying\>\""}], ",", 
               RowBox[{"\"\<K\>\"", "\[Rule]", "\"\<Knowing\>\""}], ",", 
               RowBox[{"\"\<R\>\"", "\[Rule]", "\"\<Reasoning\>\""}], ",", 
               RowBox[{"\"\<C/C/CO\>\"", "->", "\"\<CComputer\>\""}], ",", 
               RowBox[{"\"\<C/CO\>\"", "\[Rule]", "\"\<CComputer\>\""}], ",", 
               
               RowBox[{"\"\<C/CO/C\>\"", "\[Rule]", "\"\<CComputer\>\""}], 
               ",", 
               RowBox[{"\"\<C\>\"", "\[Rule]", "\"\<Calculator\>\""}], ",", 
               RowBox[{"\"\<M\>\"", "\[Rule]", "\"\<Manipulatives\>\""}], ",", 
               RowBox[{"\"\<X\>\"", "\[Rule]", "\"\<Context\>\""}]}], 
              "\[RightAssociation]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"data", "=", 
             RowBox[{"Transpose", "[", "\[IndentingNewLine]", 
              RowBox[{"Select", "[", 
               RowBox[{
                RowBox[{"theData", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{
                  RowBox[{"#", "[", 
                   RowBox[{"[", "cHead", "]"}], "]"}], "==", "\"\<Data\>\""}],
                  "&"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"akr", "=", 
             RowBox[{"data", "[", 
              RowBox[{"[", "cCogBeh", "]"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"other", "=", 
             RowBox[{"data", "[", 
              RowBox[{"[", 
               RowBox[{"cC", ";;", "cContext"}], "]"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"fullList", "=", 
             RowBox[{"Flatten", "[", 
              RowBox[{"{", 
               RowBox[{"akr", ",", "other"}], "}"}], "]"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"fullList", "=", 
             RowBox[{"ToUpperCase", "/@", "fullList"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"(*", " ", 
             RowBox[{
              RowBox[{"Fix", " ", "non"}], "-", 
              RowBox[{
              "canonical", " ", "input", " ", "so", " ", "tallies", " ", 
               "are", " ", "accurate"}]}], " ", "*)"}], "\[IndentingNewLine]", 
            RowBox[{"fullList", "=", 
             RowBox[{
              RowBox[{
               RowBox[{"StringReplace", "[", 
                RowBox[{"#", ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}], ",", 
                   RowBox[{"\"\<C/C/CO\>\"", "\[Rule]", "\"\<C/CO\>\""}], ",", 
                   RowBox[{"\"\<CO\>\"", "\[Rule]", "\"\<C/CO\>\""}], ",", 
                   RowBox[{"\"\<O\>\"", "\[Rule]", "\"\<C/CO\>\""}]}], 
                  "}"}]}], "]"}], "&"}], "/@", "fullList"}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"fullList", "=", 
             RowBox[{"Select", "[", 
              RowBox[{"fullList", ",", 
               RowBox[{
                RowBox[{"#", "\[NotEqual]", "\"\<\>\""}], "&"}]}], "]"}]}], 
            ";", " ", 
            RowBox[{"(*", " ", 
             RowBox[{
              RowBox[{"Only", " ", "tally", " ", "non"}], "-", 
              RowBox[{"empty", " ", "entries"}]}], " ", "*)"}], 
            "\[IndentingNewLine]", 
            RowBox[{"fullList", "=", 
             RowBox[{"Sort", "@", 
              RowBox[{"Tally", "[", 
               RowBox[{"map", "/@", "fullList"}], "]"}]}]}], ";"}], 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"fullList", "=", 
             RowBox[{"Drop", "[", 
              RowBox[{"fullList", ",", "1"}], "]"}]}], "*)"}], ";"}], 
          RowBox[{"(*", " ", 
           RowBox[{
           "Remove", " ", "Applying", " ", "from", " ", "the", " ", "list"}], 
           " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{"Print", "[", 
            RowBox[{"TableForm", "[", 
             RowBox[{"Transpose", "@", "fullList"}], "]"}], "]"}], "*)"}], 
          ";", 
          RowBox[{"(*", " ", 
           RowBox[{
            RowBox[{
            "Debug", " ", "tallies", " ", "looking", " ", "for", " ", "non"}],
             "-", 
            RowBox[{"canonical", " ", "input"}]}], " ", "*)"}], 
          "\[IndentingNewLine]", 
          RowBox[{"useWords", "=", "fullList"}], ";", "\[IndentingNewLine]", 
          RowBox[{"WordCloud", "[", 
           RowBox[{"useWords", ",", 
            RowBox[{"Disk", "[", "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"PlotLabel", "\[Rule]", 
             RowBox[{"Style", "[", 
              RowBox[{
               RowBox[{"theSeriesNames", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ",", 
               RowBox[{"FontFamily", "->", "\"\<Helvetica\>\""}], ",", "18"}],
               "]"}]}], ",", "\[IndentingNewLine]", 
            RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], 
           "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}], 
       "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "theDataLength"}], "}"}]}], "]"}], 
     "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", ",", 
    RowBox[{"ImageSize", "\[Rule]", "Full"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "outputDirectory", "<>", "\"\<CogBehOther\>\"", "<>", "seriesWordCloud", 
     "<>", "\"\<.pdf\>\""}], ",", "theCogBehWordClouds", ",", 
    RowBox[{"ImageSize", "\[Rule]", " ", "imageSize"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "outputDirectory", "<>", "\"\<CogBehOther\>\"", "<>", "seriesWordCloud", 
     "<>", "\"\<.png\>\""}], ",", "theCogBehWordClouds", ",", " ", 
    RowBox[{"ImageSize", "\[Rule]", " ", "imageSize"}], ",", " ", 
    RowBox[{"ImageResolution", "\[Rule]", " ", "192"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.544200496186593*^9, 3.544200553873086*^9}, {
   3.5442006176075573`*^9, 3.5442006949700937`*^9}, 3.54420072907812*^9, {
   3.5442007734186983`*^9, 3.544200773738285*^9}, {3.544200837970142*^9, 
   3.544200883116065*^9}, {3.5442009207894773`*^9, 3.5442010452350883`*^9}, 
   3.5442011347117977`*^9, {3.544201171640127*^9, 3.544201279467944*^9}, {
   3.544201332263713*^9, 3.544201338342372*^9}, {3.544201564186871*^9, 
   3.5442015645515957`*^9}, {3.544202106603397*^9, 3.544202123170534*^9}, {
   3.54420224147675*^9, 3.544202243960499*^9}, {3.5442067274299917`*^9, 
   3.544206741998591*^9}, {3.5442068003241367`*^9, 3.544206814955369*^9}, {
   3.544914764622315*^9, 3.544914773181429*^9}, {3.544948616251446*^9, 
   3.544948626298128*^9}, {3.544949862436781*^9, 3.544949922783217*^9}, {
   3.548362320464476*^9, 3.54836239042213*^9}, {3.548362592641075*^9, 
   3.548362592928254*^9}, {3.548362990599663*^9, 3.548363130723151*^9}, {
   3.548363162219861*^9, 3.548363187665998*^9}, {3.548363287800802*^9, 
   3.548363377678244*^9}, {3.5483655108410797`*^9, 3.548365552429685*^9}, {
   3.548365610467691*^9, 3.548365627425333*^9}, {3.5483657271412487`*^9, 
   3.5483657517959013`*^9}, {3.548365834319077*^9, 3.548365844245084*^9}, {
   3.548365921970263*^9, 3.548365937718316*^9}, {3.548365996358151*^9, 
   3.548366002364257*^9}, {3.548366050962027*^9, 3.5483661393806343`*^9}, {
   3.5483662000280724`*^9, 3.5483662273465652`*^9}, {3.548366392639955*^9, 
   3.5483663941979427`*^9}, {3.548366863778503*^9, 3.548366920552129*^9}, {
   3.548366968223711*^9, 3.548367005301456*^9}, {3.5483672892568913`*^9, 
   3.548367333032227*^9}, {3.5483697974673567`*^9, 3.5483698347632513`*^9}, 
   3.548412341085081*^9, {3.602030205297237*^9, 3.602030303194686*^9}, {
   3.602096290571206*^9, 3.602096294092443*^9}, {3.60209663777851*^9, 
   3.6020966440781603`*^9}, 3.6020967266440353`*^9, {3.60209702833037*^9, 
   3.6020970302309113`*^9}, {3.602097253355919*^9, 3.60209725692267*^9}, {
   3.602097968643922*^9, 3.602097969992937*^9}, {3.602101822467518*^9, 
   3.6021018244427958`*^9}, {3.602101922309108*^9, 3.602101928556604*^9}, {
   3.605368411634439*^9, 3.6053684129884243`*^9}, {3.6346186810808372`*^9, 
   3.634618700751823*^9}, {3.6463506124239817`*^9, 3.646350624151496*^9}, {
   3.646350660416625*^9, 3.6463506630485163`*^9}, {3.646350697351037*^9, 
   3.646350709648527*^9}, {3.646350796773773*^9, 3.646350876122732*^9}, {
   3.646351105860669*^9, 3.646351127395681*^9}, {3.6463511894692783`*^9, 
   3.646351189998337*^9}, {3.646351221724598*^9, 3.64635122883876*^9}, 
   3.646351340237473*^9, {3.646351446340111*^9, 3.64635144845877*^9}, {
   3.646351572537355*^9, 3.646351643749432*^9}, {3.6463516756770267`*^9, 
   3.6463518246457157`*^9}, {3.6463519906651583`*^9, 
   3.6463520143998747`*^9}, {3.6463520575913963`*^9, 3.646352128435707*^9}, {
   3.646352162051734*^9, 3.646352181685964*^9}, {3.646352214419354*^9, 
   3.646352238706649*^9}, {3.6463523041132603`*^9, 3.646352308022787*^9}, {
   3.646352353658759*^9, 3.6463523540269127`*^9}, {3.6463523965923147`*^9, 
   3.646352435703168*^9}, {3.646352496944832*^9, 3.64635250720932*^9}, {
   3.646352681456768*^9, 3.6463526823259487`*^9}, {3.6464181318410397`*^9, 
   3.646418189525763*^9}, {3.6464184615241213`*^9, 3.646418534017647*^9}, {
   3.646418568513092*^9, 3.646418580479465*^9}, {3.6464189456571302`*^9, 
   3.6464189605981703`*^9}, {3.646419020216446*^9, 3.6464190305770283`*^9}, {
   3.6464190697292633`*^9, 3.6464191335045033`*^9}, {3.646419174105282*^9, 
   3.646419201343933*^9}, {3.646419233896595*^9, 3.6464192452229156`*^9}, {
   3.646419294365394*^9, 3.646419337239753*^9}, {3.646419474042192*^9, 
   3.646419489882451*^9}, {3.646419522181711*^9, 3.646419524652158*^9}, {
   3.646419640968961*^9, 3.64641975584195*^9}, {3.646419805869275*^9, 
   3.6464199221909657`*^9}, {3.646419953995605*^9, 3.646419971796823*^9}, {
   3.6464200071082783`*^9, 3.646420024421273*^9}, {3.6464201072798777`*^9, 
   3.646420114150589*^9}, {3.6464202120574408`*^9, 3.646420258658476*^9}, {
   3.646420325677537*^9, 3.646420480794505*^9}, {3.646420605540905*^9, 
   3.646420708654525*^9}, {3.646420766584579*^9, 3.6464207733958073`*^9}, {
   3.6464208531935387`*^9, 3.6464208639198627`*^9}, {3.646420896723749*^9, 
   3.646420903827187*^9}, {3.6464211582788277`*^9, 3.646421240397154*^9}, 
   3.646421283516386*^9, {3.6464223464842653`*^9, 3.646422354716942*^9}, {
   3.646422985903039*^9, 3.646423143284692*^9}}],

Cell[BoxData[{
 RowBox[{"theCogBehWordCloudsNoA", "=", 
  RowBox[{"GraphicsGrid", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Table", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "akr", ",", "other", ",", "data", ",", "fullList", ",", "useWords", 
           ",", "map", ",", "oops"}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"map", "=", 
            RowBox[{"\[LeftAssociation]", 
             RowBox[{
              RowBox[{"\"\<A\>\"", "\[Rule]", "\"\<Applying\>\""}], ",", 
              RowBox[{"\"\<K\>\"", "\[Rule]", "\"\<Knowing\>\""}], ",", 
              RowBox[{"\"\<R\>\"", "\[Rule]", "\"\<Reasoning\>\""}], ",", 
              RowBox[{"\"\<C/C/CO\>\"", "->", "\"\<CComputer\>\""}], ",", 
              RowBox[{"\"\<C/CO\>\"", "\[Rule]", "\"\<CComputer\>\""}], ",", 
              RowBox[{"\"\<C/CO/C\>\"", "\[Rule]", "\"\<CComputer\>\""}], ",", 
              RowBox[{"\"\<C\>\"", "\[Rule]", "\"\<Calculator\>\""}], ",", 
              RowBox[{"\"\<M\>\"", "\[Rule]", "\"\<Manipulatives\>\""}], ",", 
              
              RowBox[{"\"\<X\>\"", "\[Rule]", "\"\<Context\>\""}]}], 
             "\[RightAssociation]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Transpose", "[", "\[IndentingNewLine]", 
             RowBox[{"Select", "[", 
              RowBox[{
               RowBox[{"theData", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "cHead", "]"}], "]"}], "==", "\"\<Data\>\""}], 
                "&"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"akr", "=", 
            RowBox[{"data", "[", 
             RowBox[{"[", "cCogBeh", "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"other", "=", 
            RowBox[{"data", "[", 
             RowBox[{"[", 
              RowBox[{"cC", ";;", "cContext"}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"fullList", "=", 
            RowBox[{"Flatten", "[", 
             RowBox[{"{", 
              RowBox[{"akr", ",", "other"}], "}"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"fullList", "=", 
            RowBox[{"ToUpperCase", "/@", "fullList"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"fullList", "=", 
            RowBox[{
             RowBox[{
              RowBox[{"StringReplace", "[", 
               RowBox[{"#", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}], ",", 
                  RowBox[{"\"\<C/C/CO\>\"", "\[Rule]", "\"\<C/CO\>\""}], ",", 
                  
                  RowBox[{"\"\<CO\>\"", "\[Rule]", "\"\<C/CO\>\""}], ",", 
                  RowBox[{"\"\<O\>\"", "\[Rule]", "\"\<C/CO\>\""}]}], "}"}]}],
                "]"}], "&"}], "/@", "fullList"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"fullList", "=", 
            RowBox[{"Select", "[", 
             RowBox[{"fullList", ",", 
              RowBox[{
               RowBox[{"#", "\[NotEqual]", "\"\<\>\""}], "&"}]}], "]"}]}], 
           ";", "\[IndentingNewLine]", 
           RowBox[{"fullList", "=", 
            RowBox[{"Sort", "@", 
             RowBox[{"Tally", "[", 
              RowBox[{"map", "/@", "fullList"}], "]"}]}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"fullList", "=", 
            RowBox[{"Drop", "[", 
             RowBox[{"fullList", ",", "1"}], "]"}]}], ";"}], 
          RowBox[{"(*", " ", 
           RowBox[{
           "Remove", " ", "Applying", " ", "from", " ", "the", " ", "list"}], 
           " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{"Print", "[", 
            RowBox[{"TableForm", "[", 
             RowBox[{"Transpose", "@", "fullList"}], "]"}], "]"}], "*)"}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"useWords", "=", "fullList"}], ";", "\[IndentingNewLine]", 
          RowBox[{"WordCloud", "[", 
           RowBox[{"useWords", ",", 
            RowBox[{"Disk", "[", "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"PlotLabel", "\[Rule]", 
             RowBox[{"Style", "[", 
              RowBox[{
               RowBox[{"theSeriesNames", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ",", 
               RowBox[{"FontFamily", "->", "\"\<Helvetica\>\""}], ",", "18"}],
               "]"}]}], ",", "\[IndentingNewLine]", 
            RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], 
           "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}], 
       "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "theDataLength"}], "}"}]}], "]"}], 
     "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", ",", 
    RowBox[{"ImageSize", "\[Rule]", "Full"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "outputDirectory", "<>", "\"\<CogBehOther\>\"", "<>", "seriesWordCloud", 
     "<>", "\"\<NoA.pdf\>\""}], ",", "theCogBehWordCloudsNoA", ",", 
    RowBox[{"ImageSize", "\[Rule]", " ", "imageSize"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "outputDirectory", "<>", "\"\<CogBehOther\>\"", "<>", "seriesWordCloud", 
     "<>", "\"\<NoA.png\>\""}], ",", "theCogBehWordCloudsNoA", ",", " ", 
    RowBox[{"ImageSize", "\[Rule]", " ", "imageSize"}], ",", " ", 
    RowBox[{"ImageResolution", "\[Rule]", " ", "192"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.544200496186593*^9, 3.544200553873086*^9}, {
   3.5442006176075573`*^9, 3.5442006949700937`*^9}, 3.54420072907812*^9, {
   3.5442007734186983`*^9, 3.544200773738285*^9}, {3.544200837970142*^9, 
   3.544200883116065*^9}, {3.5442009207894773`*^9, 3.5442010452350883`*^9}, 
   3.5442011347117977`*^9, {3.544201171640127*^9, 3.544201279467944*^9}, {
   3.544201332263713*^9, 3.544201338342372*^9}, {3.544201564186871*^9, 
   3.5442015645515957`*^9}, {3.544202106603397*^9, 3.544202123170534*^9}, {
   3.54420224147675*^9, 3.544202243960499*^9}, {3.5442067274299917`*^9, 
   3.544206741998591*^9}, {3.5442068003241367`*^9, 3.544206814955369*^9}, {
   3.544914764622315*^9, 3.544914773181429*^9}, {3.544948616251446*^9, 
   3.544948626298128*^9}, {3.544949862436781*^9, 3.544949922783217*^9}, {
   3.548362320464476*^9, 3.54836239042213*^9}, {3.548362592641075*^9, 
   3.548362592928254*^9}, {3.548362990599663*^9, 3.548363130723151*^9}, {
   3.548363162219861*^9, 3.548363187665998*^9}, {3.548363287800802*^9, 
   3.548363377678244*^9}, {3.5483655108410797`*^9, 3.548365552429685*^9}, {
   3.548365610467691*^9, 3.548365627425333*^9}, {3.5483657271412487`*^9, 
   3.5483657517959013`*^9}, {3.548365834319077*^9, 3.548365844245084*^9}, {
   3.548365921970263*^9, 3.548365937718316*^9}, {3.548365996358151*^9, 
   3.548366002364257*^9}, {3.548366050962027*^9, 3.5483661393806343`*^9}, {
   3.5483662000280724`*^9, 3.5483662273465652`*^9}, {3.548366392639955*^9, 
   3.5483663941979427`*^9}, {3.548366863778503*^9, 3.548366920552129*^9}, {
   3.548366968223711*^9, 3.548367005301456*^9}, {3.5483672892568913`*^9, 
   3.548367333032227*^9}, {3.5483697974673567`*^9, 3.5483698347632513`*^9}, 
   3.548412341085081*^9, {3.602030205297237*^9, 3.602030303194686*^9}, {
   3.602096290571206*^9, 3.602096294092443*^9}, {3.60209663777851*^9, 
   3.6020966440781603`*^9}, 3.6020967266440353`*^9, {3.60209702833037*^9, 
   3.6020970302309113`*^9}, {3.602097253355919*^9, 3.60209725692267*^9}, {
   3.602097968643922*^9, 3.602097969992937*^9}, {3.602101822467518*^9, 
   3.6021018244427958`*^9}, {3.602101922309108*^9, 3.602101928556604*^9}, {
   3.605368411634439*^9, 3.6053684129884243`*^9}, {3.6346186810808372`*^9, 
   3.634618700751823*^9}, {3.6463506124239817`*^9, 3.646350624151496*^9}, {
   3.646350660416625*^9, 3.6463506630485163`*^9}, {3.646350697351037*^9, 
   3.646350709648527*^9}, {3.646350796773773*^9, 3.646350876122732*^9}, {
   3.646351105860669*^9, 3.646351127395681*^9}, {3.6463511894692783`*^9, 
   3.646351189998337*^9}, {3.646351221724598*^9, 3.64635122883876*^9}, 
   3.646351340237473*^9, {3.646351446340111*^9, 3.64635144845877*^9}, {
   3.646351572537355*^9, 3.646351643749432*^9}, {3.6463516756770267`*^9, 
   3.6463518246457157`*^9}, {3.6463519906651583`*^9, 
   3.6463520143998747`*^9}, {3.6463520575913963`*^9, 3.646352128435707*^9}, {
   3.646352162051734*^9, 3.646352181685964*^9}, {3.646352214419354*^9, 
   3.646352238706649*^9}, {3.6463523041132603`*^9, 3.646352308022787*^9}, {
   3.646352353658759*^9, 3.6463523540269127`*^9}, {3.6463523965923147`*^9, 
   3.646352435703168*^9}, {3.646352496944832*^9, 3.64635250720932*^9}, {
   3.646352681456768*^9, 3.6463526823259487`*^9}, {3.6464181318410397`*^9, 
   3.646418189525763*^9}, {3.6464184615241213`*^9, 3.646418534017647*^9}, {
   3.646418568513092*^9, 3.646418580479465*^9}, {3.6464189456571302`*^9, 
   3.6464189605981703`*^9}, {3.646419020216446*^9, 3.6464190305770283`*^9}, {
   3.6464190697292633`*^9, 3.6464191335045033`*^9}, {3.646419174105282*^9, 
   3.646419201343933*^9}, {3.646419233896595*^9, 3.6464192452229156`*^9}, {
   3.646419294365394*^9, 3.646419337239753*^9}, {3.646419474042192*^9, 
   3.646419489882451*^9}, {3.646419522181711*^9, 3.646419524652158*^9}, {
   3.646419640968961*^9, 3.64641975584195*^9}, {3.646419805869275*^9, 
   3.6464199221909657`*^9}, {3.646419953995605*^9, 3.646419971796823*^9}, {
   3.6464200071082783`*^9, 3.646420024421273*^9}, {3.6464201072798777`*^9, 
   3.646420114150589*^9}, {3.6464202120574408`*^9, 3.646420258658476*^9}, {
   3.646420325677537*^9, 3.646420480794505*^9}, {3.646420605540905*^9, 
   3.646420708654525*^9}, {3.646420766584579*^9, 3.6464207733958073`*^9}, {
   3.6464208531935387`*^9, 3.6464208639198627`*^9}, {3.646420896723749*^9, 
   3.646420903827187*^9}, {3.6464211582788277`*^9, 3.646421240397154*^9}, {
   3.646421309837051*^9, 3.6464213318132067`*^9}, {3.646421484027845*^9, 
   3.64642156224986*^9}, {3.646421598698174*^9, 3.646421609975543*^9}, {
   3.646421646756591*^9, 3.646421670117037*^9}, {3.646421786573451*^9, 
   3.6464217927252007`*^9}, {3.6464223603104887`*^9, 
   3.6464223622055407`*^9}, {3.651167502899444*^9, 3.65116750743286*^9}, 
   3.651167540052916*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Word Clouds for Content", "Section",
 CellChangeTimes->{{3.646424313805876*^9, 3.6464243192862377`*^9}}],

Cell[CellGroupData[{

Cell["By Number", "Subsection",
 CellChangeTimes->{{3.646443091641636*^9, 3.646443096592751*^9}}],

Cell[BoxData[{
 RowBox[{"theContentWordClouds", "=", 
  RowBox[{"GraphicsGrid", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Table", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "topic", ",", "data", ",", "working", ",", "fullList", ",", 
           "useWords", ",", "map", ",", "oops", ",", "topN"}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{"map", "=", 
           RowBox[{"\[LeftAssociation]", 
            RowBox[{
             RowBox[{"\"\<A\>\"", "\[Rule]", "\"\<Applying\>\""}], ",", 
             RowBox[{"\"\<K\>\"", "\[Rule]", "\"\<Knowing\>\""}], ",", 
             RowBox[{"\"\<R\>\"", "\[Rule]", "\"\<Reasoning\>\""}], ",", 
             RowBox[{"\"\<C/C/CO\>\"", "->", "\"\<CComputer\>\""}], ",", 
             RowBox[{"\"\<C/CO\>\"", "\[Rule]", "\"\<CComputer\>\""}], ",", 
             RowBox[{"\"\<C/CO/C\>\"", "\[Rule]", "\"\<CComputer\>\""}], ",", 
             
             RowBox[{"\"\<C\>\"", "\[Rule]", "\"\<Calculator\>\""}], ",", 
             RowBox[{"\"\<M\>\"", "\[Rule]", "\"\<Manipulatives\>\""}], ",", 
             RowBox[{"\"\<X\>\"", "\[Rule]", "\"\<Context\>\""}]}], 
            "\[RightAssociation]"}]}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"topN", "=", "20"}], ";", " ", 
               RowBox[{"(*", " ", 
                RowBox[{"**", 
                 RowBox[{"*", " ", 
                  RowBox[{"EDIT", " ", "**"}], "*", " ", "for", " ", "how", 
                  " ", "many", " ", "to", " ", "list"}]}], " ", "*)"}], 
               "\[IndentingNewLine]", 
               RowBox[{"data", "=", 
                RowBox[{"Transpose", "[", "\[IndentingNewLine]", 
                 RowBox[{"Select", "[", 
                  RowBox[{
                   RowBox[{"theData", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "cHead", "]"}], "]"}], "==", 
                    "\"\<Data\>\""}], "&"}]}], "]"}], "]"}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"topic", "=", 
                RowBox[{"data", "[", 
                 RowBox[{"[", 
                  RowBox[{"cTopic1", ";;", "cTopic3"}], "]"}], "]"}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"working", "=", 
                RowBox[{"Flatten", "[", "topic", "]"}]}], ";"}], 
              "\[IndentingNewLine]", 
              RowBox[{"(*", 
               RowBox[{"Print", "[", 
                RowBox[{"TableForm", "[", 
                 RowBox[{"Short", "@", "fullList"}], "]"}], "]"}], "*)"}], 
              ";", " ", 
              RowBox[{"(*", " ", "Debug", " ", "*)"}], "\[IndentingNewLine]", 
              
              RowBox[{"working", "=", 
               RowBox[{"ToString", "/@", "working"}]}], ";"}], 
             "\[IndentingNewLine]", 
             RowBox[{"(*", 
              RowBox[{"Print", "[", 
               RowBox[{"TableForm", "[", 
                RowBox[{"Short", "@", "fullList"}], "]"}], "]"}], "*)"}], 
             ";"}], " ", 
            RowBox[{"(*", " ", "Debug", " ", "*)"}], "\[IndentingNewLine]", 
            RowBox[{"(*", 
             RowBox[{"fullList", "=", 
              RowBox[{
               RowBox[{
                RowBox[{"StringReplace", "[", 
                 RowBox[{"#", ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}], ",", 
                    RowBox[{"\"\<C/C/CO\>\"", "\[Rule]", "\"\<C/CO\>\""}], 
                    ",", 
                    RowBox[{"\"\<CO\>\"", "\[Rule]", "\"\<C/CO\>\""}], ",", 
                    RowBox[{"\"\<O\>\"", "\[Rule]", "\"\<C/CO\>\""}]}], 
                   "}"}]}], "]"}], "&"}], "/@", "fullList"}]}], "*)"}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"working", "=", 
             RowBox[{"Select", "[", 
              RowBox[{"working", ",", 
               RowBox[{
                RowBox[{"#", "\[NotEqual]", "\"\<\>\""}], "&"}]}], "]"}]}], 
            ";"}], "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"Print", "[", 
             RowBox[{"TableForm", "[", 
              RowBox[{"Short", "@", "fullList"}], "]"}], "]"}], "*)"}], ";", 
           " ", 
           RowBox[{"(*", " ", "Debug", " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"fullList", "=", 
            RowBox[{"Sort", "[", 
             RowBox[{
              RowBox[{"Tally", "[", "working", "]"}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{"#1", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], ">", 
                RowBox[{"#2", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}]}], ";"}], 
          "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{"Print", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"theSeriesNames", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "<>", "\"\< top \>\"", "<>", 
              RowBox[{"ToString", "[", "topN", "]"}], "<>", 
              "\"\< tallies of \>\""}], ",", 
             RowBox[{"Length", "[", "fullList", "]"}], ",", 
             "\"\< distinct Topic Codes used, \>\"", ",", 
             RowBox[{"Length", "[", "working", "]"}], ",", 
             "\"\< Topic Codes Assigned.\\n\>\"", ",", 
             RowBox[{"TableForm", "[", 
              RowBox[{"Transpose", "@", 
               RowBox[{"fullList", "[", 
                RowBox[{"[", 
                 RowBox[{"1", ";;", "topN"}], "]"}], "]"}]}], "]"}]}], "]"}], 
           "*)"}], ";", " ", 
          RowBox[{"(*", " ", "Debug", " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{
            RowBox[{"\"\<\\n\\n\>\"", "<>", 
             RowBox[{"theSeriesNames", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "<>", "\"\< Top \>\"", "<>", 
             RowBox[{"ToString", "[", "topN", "]"}], "<>", 
             "\"\< tallies:\\n\>\""}], ",", "\[IndentingNewLine]", 
            RowBox[{"Length", "[", "working", "]"}], ",", 
            "\"\< Topic Codes assigned.\\n\>\"", ",", "\[IndentingNewLine]", 
            RowBox[{"Length", "[", 
             RowBox[{"topic", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
            "\"\< items coded, for an average of \>\"", ",", 
            RowBox[{"N", "[", 
             RowBox[{
              RowBox[{"Length", "[", "working", "]"}], "/", 
              RowBox[{"Length", "[", 
               RowBox[{"topic", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], ",", 
            "\"\< Topics per item.\\n\>\"", ",", "\[IndentingNewLine]", 
            RowBox[{"Length", "[", "fullList", "]"}], ",", 
            "\"\< distinct Topic Codes used.\>\""}], 
           RowBox[{"(*", 
            RowBox[{",", "\[IndentingNewLine]", 
             RowBox[{"TableForm", "[", 
              RowBox[{"fullList", "[", 
               RowBox[{"[", 
                RowBox[{"1", ";;", "topN"}], "]"}], "]"}], "]"}]}], "*)"}], 
           "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"prettyPrintTable", "[", 
           RowBox[{"Prepend", "[", 
            RowBox[{
             RowBox[{"fullList", "[", 
              RowBox[{"[", 
               RowBox[{"1", ";;", "topN"}], "]"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"\"\<Topic\>\"", ",", 
               RowBox[{"\"\<Tally for \>\"", "<>", 
                RowBox[{"theSeriesNames", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "<>", "\"\< top \>\"", "<>", 
                
                RowBox[{"ToString", "[", "topN", "]"}], "<>", "\"\<.\>\""}]}],
               "}"}]}], "]"}], "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"useWords", "=", "fullList"}], ";", "\[IndentingNewLine]", 
          RowBox[{"WordCloud", "[", 
           RowBox[{"useWords", ",", 
            RowBox[{"Disk", "[", "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"PlotLabel", "\[Rule]", 
             RowBox[{"Style", "[", 
              RowBox[{
               RowBox[{"theSeriesNames", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ",", 
               RowBox[{"FontFamily", "->", "\"\<Helvetica\>\""}], ",", "18"}],
               "]"}]}], ",", "\[IndentingNewLine]", 
            RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], 
           "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}], 
       "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "theDataLength"}], "}"}]}], "]"}], 
     "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", ",", 
    RowBox[{"ImageSize", "\[Rule]", "Full"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "outputDirectory", "<>", "\"\<Content\>\"", "<>", "seriesWordCloud", 
     "<>", "\"\<.pdf\>\""}], ",", "theContentWordClouds", ",", 
    RowBox[{"ImageSize", "\[Rule]", " ", "imageSize"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "outputDirectory", "<>", "\"\<Content\>\"", "<>", "seriesWordCloud", 
     "<>", "\"\<.png\>\""}], ",", "theContentWordClouds", ",", " ", 
    RowBox[{"ImageSize", "\[Rule]", " ", "imageSize"}], ",", " ", 
    RowBox[{"ImageResolution", "\[Rule]", " ", "192"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.646424351649065*^9, 3.646424442546402*^9}, {
   3.6464244951482763`*^9, 3.646424620527915*^9}, {3.64642466003209*^9, 
   3.6464247280879993`*^9}, 3.646424759220942*^9, {3.646424915851921*^9, 
   3.646424965679627*^9}, {3.646425003412342*^9, 3.646425123259987*^9}, {
   3.646425203634015*^9, 3.646425211466477*^9}, {3.646425252643313*^9, 
   3.646425260494248*^9}, {3.64642537859593*^9, 3.6464253800334997`*^9}, 
   3.6464254275912437`*^9, {3.646425616229495*^9, 3.646425619923711*^9}, {
   3.646425708199045*^9, 3.646425737622628*^9}, {3.64642581434311*^9, 
   3.646425823592029*^9}, {3.6464258901950607`*^9, 3.646425894040597*^9}, {
   3.646425981339284*^9, 3.6464259871220827`*^9}, {3.646426022421239*^9, 
   3.646426039476853*^9}, 3.646426082361659*^9, {3.646426158256116*^9, 
   3.646426159229834*^9}, {3.646426198190466*^9, 3.646426201525013*^9}, {
   3.646426233004778*^9, 3.646426314536828*^9}, {3.6464264193362722`*^9, 
   3.646426552805058*^9}, {3.646426611045308*^9, 3.646426659374702*^9}, {
   3.646426718053752*^9, 3.646426725357645*^9}, {3.6464268405967503`*^9, 
   3.646426932314197*^9}, {3.646426963477639*^9, 3.646426966235847*^9}, {
   3.646427062084784*^9, 3.646427227997982*^9}, {3.646427396225316*^9, 
   3.646427504900126*^9}, {3.6464275403837*^9, 3.646427565707572*^9}, {
   3.646428268429263*^9, 3.646428282524004*^9}, {3.646428323348075*^9, 
   3.64642832750912*^9}, {3.646428365664012*^9, 3.646428379623067*^9}, {
   3.646428418151219*^9, 3.646428464097434*^9}, {3.646428556615129*^9, 
   3.6464285573408337`*^9}, {3.646428610017338*^9, 3.646428703657529*^9}, 
   3.6464287618767147`*^9, {3.646428827088827*^9, 3.646428836540444*^9}, 
   3.64642915769864*^9, {3.646429244480641*^9, 3.646429250111452*^9}, {
   3.6464294916594543`*^9, 3.646429494737451*^9}, {3.651244432706682*^9, 
   3.651244435402659*^9}, {3.651244481374539*^9, 3.651244530490407*^9}, {
   3.651401930095664*^9, 3.651402094647808*^9}, {3.651402126641762*^9, 
   3.6514022444794617`*^9}, {3.651402501289528*^9, 3.651402550182454*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["By Major Number 00", "Subsection",
 CellChangeTimes->{{3.646443115162271*^9, 3.646443147585875*^9}}],

Cell[BoxData[{
 RowBox[{"theContentWordClouds00", "=", 
  RowBox[{"GraphicsGrid", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Table", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "topic", ",", "data", ",", "working", ",", "fullList", ",", 
           "useWords", ",", "map", ",", "oops"}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{"map", "=", 
           RowBox[{"\[LeftAssociation]", 
            RowBox[{
             RowBox[{"\"\<A\>\"", "\[Rule]", "\"\<Applying\>\""}], ",", 
             RowBox[{"\"\<K\>\"", "\[Rule]", "\"\<Knowing\>\""}], ",", 
             RowBox[{"\"\<R\>\"", "\[Rule]", "\"\<Reasoning\>\""}], ",", 
             RowBox[{"\"\<C/C/CO\>\"", "->", "\"\<CComputer\>\""}], ",", 
             RowBox[{"\"\<C/CO\>\"", "\[Rule]", "\"\<CComputer\>\""}], ",", 
             RowBox[{"\"\<C/CO/C\>\"", "\[Rule]", "\"\<CComputer\>\""}], ",", 
             
             RowBox[{"\"\<C\>\"", "\[Rule]", "\"\<Calculator\>\""}], ",", 
             RowBox[{"\"\<M\>\"", "\[Rule]", "\"\<Manipulatives\>\""}], ",", 
             RowBox[{"\"\<X\>\"", "\[Rule]", "\"\<Context\>\""}]}], 
            "\[RightAssociation]"}]}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"data", "=", 
                 RowBox[{"Transpose", "[", "\[IndentingNewLine]", 
                  RowBox[{"Select", "[", 
                   RowBox[{
                    RowBox[{"theData", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "cHead", "]"}], "]"}], "==", 
                    "\"\<Data\>\""}], "&"}]}], "]"}], "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"topic", "=", 
                 RowBox[{"data", "[", 
                  RowBox[{"[", 
                   RowBox[{"cTopic1", ";;", "cTopic3"}], "]"}], "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"working", "=", 
                 RowBox[{"Flatten", "[", "topic", "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"working", "=", 
                 RowBox[{"Select", "[", 
                  RowBox[{"working", ",", 
                   RowBox[{
                    RowBox[{"#", "\[NotEqual]", "\"\<\>\""}], "&"}]}], 
                  "]"}]}], ";", "\[IndentingNewLine]", 
                RowBox[{"working", "=", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Floor", "[", 
                    RowBox[{"#", ",", "100"}], "]"}], "&"}], "/@", 
                  "working"}]}], ";"}], "\[IndentingNewLine]", 
               RowBox[{"(*", 
                RowBox[{"Print", "[", 
                 RowBox[{"TableForm", "[", 
                  RowBox[{"Short", "@", "fullList"}], "]"}], "]"}], "*)"}], 
               ";", " ", 
               RowBox[{"(*", " ", "Debug", " ", "*)"}], "\[IndentingNewLine]", 
               RowBox[{"working", "=", 
                RowBox[{"ToString", "/@", "working"}]}], ";"}], 
              "\[IndentingNewLine]", 
              RowBox[{"(*", 
               RowBox[{"Print", "[", 
                RowBox[{"TableForm", "[", 
                 RowBox[{"Short", "@", "fullList"}], "]"}], "]"}], "*)"}], 
              ";"}], " ", 
             RowBox[{"(*", " ", "Debug", " ", "*)"}], "\[IndentingNewLine]", 
             RowBox[{"(*", 
              RowBox[{"fullList", "=", 
               RowBox[{
                RowBox[{
                 RowBox[{"StringReplace", "[", 
                  RowBox[{"#", ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}], ",", 
                    RowBox[{"\"\<C/C/CO\>\"", "\[Rule]", "\"\<C/CO\>\""}], 
                    ",", 
                    RowBox[{"\"\<CO\>\"", "\[Rule]", "\"\<C/CO\>\""}], ",", 
                    RowBox[{"\"\<O\>\"", "\[Rule]", "\"\<C/CO\>\""}]}], 
                    "}"}]}], "]"}], "&"}], "/@", "fullList"}]}], "*)"}], 
             ";"}], "\[IndentingNewLine]", 
            RowBox[{"(*", 
             RowBox[{"working", "=", 
              RowBox[{"Select", "[", 
               RowBox[{"working", ",", 
                RowBox[{
                 RowBox[{"#", "\[NotEqual]", "\"\<\>\""}], "&"}]}], "]"}]}], 
             "*)"}], ";"}], "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"Print", "[", 
             RowBox[{"TableForm", "[", 
              RowBox[{"Short", "@", "fullList"}], "]"}], "]"}], "*)"}], ";", 
           " ", 
           RowBox[{"(*", " ", "Debug", " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"fullList", "=", 
            RowBox[{"Sort", "[", 
             RowBox[{
              RowBox[{"Tally", "[", "working", "]"}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{"#1", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], ">", 
                RowBox[{"#2", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}]}], ";"}], 
          "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{"Print", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"theSeriesNames", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "<>", 
              "\"\< 00 Level tallies of \>\""}], ",", 
             RowBox[{"Length", "[", "fullList", "]"}], ",", 
             "\"\< distinct 00 Level Topic Codes used, \>\"", ",", 
             RowBox[{"Length", "[", "working", "]"}], ",", 
             "\"\< Topic Codes Assigned.\\n\>\"", ",", 
             RowBox[{"TableForm", "[", 
              RowBox[{"Transpose", "@", "fullList"}], "]"}]}], "]"}], "*)"}], 
          ";", " ", 
          RowBox[{"(*", " ", "Debug", " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"theSeriesNames", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "<>", 
             "\"\< 00 Level tallies:\\n\>\""}], ",", "\[IndentingNewLine]", 
            RowBox[{"Length", "[", "working", "]"}], ",", 
            "\"\< Topic Codes assigned.\\n\>\"", ",", "\[IndentingNewLine]", 
            RowBox[{"Length", "[", 
             RowBox[{"topic", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
            "\"\< items coded, for an average of \>\"", ",", 
            RowBox[{"N", "[", 
             RowBox[{
              RowBox[{"Length", "[", "working", "]"}], "/", 
              RowBox[{"Length", "[", 
               RowBox[{"topic", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], ",", 
            "\"\< Topics per item.\\n\>\"", ",", "\[IndentingNewLine]", 
            RowBox[{"Length", "[", "fullList", "]"}], ",", 
            "\"\< distinct 00 Level Topic Codes used.\\n\>\""}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"prettyPrintTable", "[", 
           RowBox[{"Prepend", "[", 
            RowBox[{"fullList", ",", 
             RowBox[{"{", 
              RowBox[{"\"\<Topic\>\"", ",", 
               RowBox[{"\"\<Tally for \>\"", "<>", 
                RowBox[{"theSeriesNames", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}]}], "]"}], "]"}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"useWords", "=", "fullList"}], ";", "\[IndentingNewLine]", 
          RowBox[{"WordCloud", "[", 
           RowBox[{"useWords", ",", 
            RowBox[{"Disk", "[", "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"PlotLabel", "\[Rule]", 
             RowBox[{"Style", "[", 
              RowBox[{
               RowBox[{"theSeriesNames", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ",", 
               RowBox[{"FontFamily", "->", "\"\<Helvetica\>\""}], ",", "18"}],
               "]"}]}], ",", "\[IndentingNewLine]", 
            RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], 
           "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}], 
       "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "theDataLength"}], "}"}]}], "]"}], 
     "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", ",", 
    RowBox[{"ImageSize", "\[Rule]", "Full"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "outputDirectory", "<>", "\"\<Content\>\"", "<>", "seriesWordCloud", 
     "<>", "\"\<00.pdf\>\""}], ",", "theContentWordClouds00", ",", 
    RowBox[{"ImageSize", "\[Rule]", " ", "imageSize"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "outputDirectory", "<>", "\"\<Content\>\"", "<>", "seriesWordCloud", 
     "<>", "\"\<00.png\>\""}], ",", "theContentWordClouds00", ",", " ", 
    RowBox[{"ImageSize", "\[Rule]", " ", "imageSize"}], ",", " ", 
    RowBox[{"ImageResolution", "\[Rule]", " ", "192"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.646424351649065*^9, 3.646424442546402*^9}, {
   3.6464244951482763`*^9, 3.646424620527915*^9}, {3.64642466003209*^9, 
   3.6464247280879993`*^9}, 3.646424759220942*^9, {3.646424915851921*^9, 
   3.646424965679627*^9}, {3.646425003412342*^9, 3.646425123259987*^9}, {
   3.646425203634015*^9, 3.646425211466477*^9}, {3.646425252643313*^9, 
   3.646425260494248*^9}, {3.64642537859593*^9, 3.6464253800334997`*^9}, 
   3.6464254275912437`*^9, {3.646425616229495*^9, 3.646425619923711*^9}, {
   3.646425708199045*^9, 3.646425737622628*^9}, {3.64642581434311*^9, 
   3.646425823592029*^9}, {3.6464258901950607`*^9, 3.646425894040597*^9}, {
   3.646425981339284*^9, 3.6464259871220827`*^9}, {3.646426022421239*^9, 
   3.646426039476853*^9}, 3.646426082361659*^9, {3.646426158256116*^9, 
   3.646426159229834*^9}, {3.646426198190466*^9, 3.646426201525013*^9}, {
   3.646426233004778*^9, 3.646426314536828*^9}, {3.6464264193362722`*^9, 
   3.646426552805058*^9}, {3.646426611045308*^9, 3.646426659374702*^9}, {
   3.646426718053752*^9, 3.646426725357645*^9}, {3.6464268405967503`*^9, 
   3.646426932314197*^9}, {3.646426963477639*^9, 3.646426966235847*^9}, {
   3.646427062084784*^9, 3.646427227997982*^9}, {3.646427396225316*^9, 
   3.646427504900126*^9}, {3.6464275403837*^9, 3.646427565707572*^9}, {
   3.646428268429263*^9, 3.646428282524004*^9}, {3.646428323348075*^9, 
   3.64642832750912*^9}, {3.646428365664012*^9, 3.646428379623067*^9}, {
   3.646428418151219*^9, 3.646428464097434*^9}, {3.646428556615129*^9, 
   3.6464285573408337`*^9}, {3.646428610017338*^9, 3.646428703657529*^9}, 
   3.6464287618767147`*^9, {3.646428827088827*^9, 3.646428836540444*^9}, 
   3.64642915769864*^9, {3.646429244480641*^9, 3.646429250111452*^9}, {
   3.6464294916594543`*^9, 3.646429494737451*^9}, {3.646442175068791*^9, 
   3.646442295416923*^9}, {3.646442796093747*^9, 3.646442824325033*^9}, {
   3.646442887843164*^9, 3.6464429242751617`*^9}, {3.6464440969224167`*^9, 
   3.6464441030333757`*^9}, {3.651244382304845*^9, 3.651244397176588*^9}, {
   3.651402646606265*^9, 3.651402772285242*^9}, {3.651402934394347*^9, 
   3.6514029377168093`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["By (00 Level) Major Description", "Subsection",
 CellChangeTimes->{{3.646443161523549*^9, 3.646443172954486*^9}, {
  3.651402975796195*^9, 3.65140299050184*^9}}],

Cell[BoxData[
 RowBox[{"AssociationThread", "[", 
  RowBox[{
   RowBox[{"theContentLegend", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", 
   RowBox[{"theContentLegend", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.646443182394115*^9, 3.646443259156723*^9}}],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"100", "\[Rule]", "\"\<Numbers\>\""}], ",", 
   RowBox[{"200", "\[Rule]", "\"\<Operations\>\""}], ",", 
   RowBox[{"300", "\[Rule]", "\"\<Measurement\>\""}], ",", 
   RowBox[{"400", "\[Rule]", "\"\<Consumer_Applications\>\""}], ",", 
   RowBox[{"500", "\[Rule]", "\"\<Algebra\>\""}], ",", 
   RowBox[{"600", "\[Rule]", "\"\<Advanced_Algebra\>\""}], ",", 
   RowBox[{"700", "\[Rule]", "\"\<Geometry\>\""}], ",", 
   RowBox[{"800", "\[Rule]", "\"\<Advanced_Geometry\>\""}], ",", 
   RowBox[{"900", "\[Rule]", "\"\<Data_Displays\>\""}], ",", 
   RowBox[{"1000", "\[Rule]", "\"\<Statistics\>\""}], ",", 
   RowBox[{"1100", "\[Rule]", "\"\<Probability\>\""}], ",", 
   RowBox[{"1200", "\[Rule]", "\"\<Analysis\>\""}], ",", 
   RowBox[{"1300", "\[Rule]", "\"\<Trigonometry\>\""}], ",", 
   RowBox[{"1400", "\[Rule]", "\"\<Special_Topics\>\""}], ",", 
   RowBox[{"1500", "\[Rule]", "\"\<Functions\>\""}], ",", 
   RowBox[{"1600", "\[Rule]", "\"\<Instructional_Technology\>\""}]}], 
  "\[RightAssociation]"}]], "Input",
 CellChangeTimes->{{3.646443636380576*^9, 3.646443682500143*^9}}],

Cell[BoxData[{
 RowBox[{"theContentWordCloudsByName", "=", 
  RowBox[{"GraphicsGrid", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Table", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "topic", ",", "data", ",", "working", ",", "fullList", ",", 
           "useWords", ",", "map", ",", "oops"}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{"map", "=", 
           RowBox[{"AssociationThread", "[", 
            RowBox[{
             RowBox[{"theContentLegend", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "\[Rule]", 
             RowBox[{"theContentLegend", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"map", "=", 
                 RowBox[{"\[LeftAssociation]", " ", 
                  RowBox[{"(*", " ", 
                   RowBox[{
                   "Legend", " ", "names", " ", "edited", " ", "for", " ", 
                    "length"}], " ", "*)"}], "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"100", "\[Rule]", "\"\<Numbers\>\""}], ",", 
                   RowBox[{"200", "\[Rule]", "\"\<Operations\>\""}], ",", 
                   RowBox[{"300", "\[Rule]", "\"\<Measurement\>\""}], ",", 
                   RowBox[{"400", "\[Rule]", "\"\<Consumer_Apps\>\""}], ",", 
                   RowBox[{"500", "\[Rule]", "\"\<Algebra\>\""}], ",", 
                   RowBox[{"600", "\[Rule]", "\"\<AAlgebra\>\""}], ",", 
                   RowBox[{"700", "\[Rule]", "\"\<Geometry\>\""}], ",", 
                   RowBox[{"800", "\[Rule]", "\"\<AGeometry\>\""}], ",", 
                   RowBox[{"900", "\[Rule]", "\"\<Data_Displays\>\""}], ",", 
                   RowBox[{"1000", "\[Rule]", "\"\<Statistics\>\""}], ",", 
                   RowBox[{"1100", "\[Rule]", "\"\<Probability\>\""}], ",", 
                   RowBox[{"1200", "\[Rule]", "\"\<Analysis\>\""}], ",", 
                   RowBox[{"1300", "\[Rule]", "\"\<Trigonometry\>\""}], ",", 
                   RowBox[{"1400", "\[Rule]", "\"\<Special_Topics\>\""}], ",", 
                   RowBox[{"1500", "\[Rule]", "\"\<Functions\>\""}], ",", 
                   RowBox[{"1600", "\[Rule]", "\"\<Instr_Technology\>\""}]}], 
                  "\[IndentingNewLine]", "\[RightAssociation]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"data", "=", 
                 RowBox[{"Transpose", "[", "\[IndentingNewLine]", 
                  RowBox[{"Select", "[", 
                   RowBox[{
                    RowBox[{"theData", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "cHead", "]"}], "]"}], "==", 
                    "\"\<Data\>\""}], "&"}]}], "]"}], "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"topic", "=", 
                 RowBox[{"data", "[", 
                  RowBox[{"[", 
                   RowBox[{"cTopic1", ";;", "cTopic3"}], "]"}], "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"working", "=", 
                 RowBox[{"Flatten", "[", "topic", "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"working", "=", 
                 RowBox[{"Select", "[", 
                  RowBox[{"working", ",", 
                   RowBox[{
                    RowBox[{"#", "\[NotEqual]", "\"\<\>\""}], "&"}]}], 
                  "]"}]}], ";", "\[IndentingNewLine]", 
                RowBox[{"working", "=", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"Floor", "[", 
                    RowBox[{"#", ",", "100"}], "]"}], "&"}], "/@", 
                  "working"}]}], ";"}], "\[IndentingNewLine]", 
               RowBox[{"(*", 
                RowBox[{"Print", "[", 
                 RowBox[{"TableForm", "[", 
                  RowBox[{"Short", "@", "fullList"}], "]"}], "]"}], "*)"}], 
               ";", " ", 
               RowBox[{"(*", " ", "Debug", " ", "*)"}], "\[IndentingNewLine]", 
               RowBox[{"working", "=", 
                RowBox[{"map", "/@", "working"}]}], ";"}], 
              "\[IndentingNewLine]", 
              RowBox[{"(*", 
               RowBox[{"Print", "[", 
                RowBox[{"TableForm", "[", 
                 RowBox[{"Short", "@", "fullList"}], "]"}], "]"}], "*)"}], 
              ";"}], " ", 
             RowBox[{"(*", " ", "Debug", " ", "*)"}], "\[IndentingNewLine]", 
             RowBox[{"(*", 
              RowBox[{"fullList", "=", 
               RowBox[{
                RowBox[{
                 RowBox[{"StringReplace", "[", 
                  RowBox[{"#", ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}], ",", 
                    RowBox[{"\"\<C/C/CO\>\"", "\[Rule]", "\"\<C/CO\>\""}], 
                    ",", 
                    RowBox[{"\"\<CO\>\"", "\[Rule]", "\"\<C/CO\>\""}], ",", 
                    RowBox[{"\"\<O\>\"", "\[Rule]", "\"\<C/CO\>\""}]}], 
                    "}"}]}], "]"}], "&"}], "/@", "fullList"}]}], "*)"}], 
             ";"}], "\[IndentingNewLine]", 
            RowBox[{"(*", 
             RowBox[{"working", "=", 
              RowBox[{"Select", "[", 
               RowBox[{"working", ",", 
                RowBox[{
                 RowBox[{"#", "\[NotEqual]", "\"\<\>\""}], "&"}]}], "]"}]}], 
             "*)"}], ";"}], "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"Print", "[", 
             RowBox[{"TableForm", "[", 
              RowBox[{"Short", "@", "fullList"}], "]"}], "]"}], "*)"}], ";", 
           " ", 
           RowBox[{"(*", " ", "Debug", " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"fullList", "=", 
            RowBox[{"Sort", "[", 
             RowBox[{
              RowBox[{"Tally", "[", "working", "]"}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{"#1", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], ">", 
                RowBox[{"#2", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}]}], ";"}], 
          "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{"Print", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"theSeriesNames", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "<>", 
              "\"\< Major Description (00 Level) tallies of \>\""}], ",", 
             RowBox[{"Length", "[", "fullList", "]"}], ",", 
             "\"\< distinct Topic Codes used, \>\"", ",", 
             RowBox[{"Length", "[", "working", "]"}], ",", 
             "\"\< Topic Codes Assigned.\\n\>\"", ",", 
             RowBox[{"TableForm", "[", 
              RowBox[{"Transpose", "@", 
               RowBox[{"fullList", "[", 
                RowBox[{"[", 
                 RowBox[{"1", ";;", "20"}], "]"}], "]"}]}], "]"}]}], "]"}], 
           "*)"}], ";", " ", 
          RowBox[{"(*", " ", "Debug", " ", "*)"}], "\[IndentingNewLine]", 
          RowBox[{"Print", "[", 
           RowBox[{
            RowBox[{"\"\<\\n\\n\>\"", "<>", 
             RowBox[{"theSeriesNames", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "<>", 
             "\"\< Major Description (00 Level) Topic Codes \
tallies:\\n\>\""}], ",", "\[IndentingNewLine]", 
            RowBox[{"Length", "[", "working", "]"}], ",", 
            "\"\< Topic Codes assigned.\\n\>\"", ",", "\[IndentingNewLine]", 
            RowBox[{"Length", "[", 
             RowBox[{"topic", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
            "\"\< items coded, for an average of \>\"", ",", 
            RowBox[{"N", "[", 
             RowBox[{
              RowBox[{"Length", "[", "working", "]"}], "/", 
              RowBox[{"Length", "[", 
               RowBox[{"topic", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], ",", 
            "\"\< Topics per item.\\n\>\"", ",", "\[IndentingNewLine]", 
            RowBox[{"Length", "[", "fullList", "]"}], ",", 
            "\"\< distinct Major Description (00 Level) Topic Codes \
used.\>\""}], "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"prettyPrintTable", "[", 
           RowBox[{"Prepend", "[", 
            RowBox[{"fullList", ",", 
             RowBox[{"{", 
              RowBox[{"\"\<Topic\>\"", ",", 
               RowBox[{
               "\"\<Tally of Major Description (00 Level) Topic Codes for \
\>\"", "<>", 
                RowBox[{"theSeriesNames", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}]}], "]"}], "]"}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"useWords", "=", "fullList"}], ";", "\[IndentingNewLine]", 
          RowBox[{"WordCloud", "[", 
           RowBox[{"useWords", ",", 
            RowBox[{"Disk", "[", "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"PlotLabel", "\[Rule]", 
             RowBox[{"Style", "[", 
              RowBox[{
               RowBox[{"theSeriesNames", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ",", 
               RowBox[{"FontFamily", "->", "\"\<Helvetica\>\""}], ",", "18"}],
               "]"}]}], ",", "\[IndentingNewLine]", 
            RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], 
           "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}], 
       "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "theDataLength"}], "}"}]}], "]"}], 
     "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", ",", 
    RowBox[{"ImageSize", "\[Rule]", "Full"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "outputDirectory", "<>", "\"\<Content\>\"", "<>", "seriesWordCloud", 
     "<>", "\"\<Named.pdf\>\""}], ",", "theContentWordCloudsByName", ",", 
    RowBox[{"ImageSize", "\[Rule]", " ", "imageSize"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "outputDirectory", "<>", "\"\<Content\>\"", "<>", "seriesWordCloud", 
     "<>", "\"\<Named.png\>\""}], ",", "theContentWordCloudsByName", ",", " ", 
    RowBox[{"ImageSize", "\[Rule]", " ", "imageSize"}], ",", " ", 
    RowBox[{"ImageResolution", "\[Rule]", " ", "192"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.646424351649065*^9, 3.646424442546402*^9}, {
   3.6464244951482763`*^9, 3.646424620527915*^9}, {3.64642466003209*^9, 
   3.6464247280879993`*^9}, 3.646424759220942*^9, {3.646424915851921*^9, 
   3.646424965679627*^9}, {3.646425003412342*^9, 3.646425123259987*^9}, {
   3.646425203634015*^9, 3.646425211466477*^9}, {3.646425252643313*^9, 
   3.646425260494248*^9}, {3.64642537859593*^9, 3.6464253800334997`*^9}, 
   3.6464254275912437`*^9, {3.646425616229495*^9, 3.646425619923711*^9}, {
   3.646425708199045*^9, 3.646425737622628*^9}, {3.64642581434311*^9, 
   3.646425823592029*^9}, {3.6464258901950607`*^9, 3.646425894040597*^9}, {
   3.646425981339284*^9, 3.6464259871220827`*^9}, {3.646426022421239*^9, 
   3.646426039476853*^9}, 3.646426082361659*^9, {3.646426158256116*^9, 
   3.646426159229834*^9}, {3.646426198190466*^9, 3.646426201525013*^9}, {
   3.646426233004778*^9, 3.646426314536828*^9}, {3.6464264193362722`*^9, 
   3.646426552805058*^9}, {3.646426611045308*^9, 3.646426659374702*^9}, {
   3.646426718053752*^9, 3.646426725357645*^9}, {3.6464268405967503`*^9, 
   3.646426932314197*^9}, {3.646426963477639*^9, 3.646426966235847*^9}, {
   3.646427062084784*^9, 3.646427227997982*^9}, {3.646427396225316*^9, 
   3.646427504900126*^9}, {3.6464275403837*^9, 3.646427565707572*^9}, {
   3.646428268429263*^9, 3.646428282524004*^9}, {3.646428323348075*^9, 
   3.64642832750912*^9}, {3.646428365664012*^9, 3.646428379623067*^9}, {
   3.646428418151219*^9, 3.646428464097434*^9}, {3.646428556615129*^9, 
   3.6464285573408337`*^9}, {3.646428610017338*^9, 3.646428703657529*^9}, 
   3.6464287618767147`*^9, {3.646428827088827*^9, 3.646428836540444*^9}, 
   3.64642915769864*^9, {3.646429244480641*^9, 3.646429250111452*^9}, {
   3.6464294916594543`*^9, 3.646429494737451*^9}, {3.646442175068791*^9, 
   3.646442295416923*^9}, {3.646442796093747*^9, 3.646442824325033*^9}, {
   3.646442887843164*^9, 3.6464429242751617`*^9}, 3.6464429674780483`*^9, {
   3.64644328056173*^9, 3.6464433696696157`*^9}, {3.646443406528943*^9, 
   3.6464434288332376`*^9}, {3.6464435061362753`*^9, 3.64644352400101*^9}, {
   3.646443702392757*^9, 3.646443715473419*^9}, {3.646443883566289*^9, 
   3.646444017740535*^9}, {3.646444153815237*^9, 3.646444163999938*^9}, {
   3.651244076296924*^9, 3.651244116062861*^9}, 3.651244232304072*^9, 
   3.651244294809778*^9, {3.651402866792367*^9, 3.651402880838934*^9}, {
   3.65140305597269*^9, 3.6514030644049177`*^9}, {3.651403103815381*^9, 
   3.651403107174796*^9}, {3.651403162006197*^9, 3.651403187547806*^9}, {
   3.651403247439188*^9, 3.651403250053215*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Content", "Section",
 CellChangeTimes->{{3.544200461870632*^9, 3.544200466029958*^9}, {
  3.544202397202986*^9, 3.544202398344697*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"colorsContent", "=", 
   RowBox[{"{", 
    RowBox[{"(*", 
     RowBox[{"per", " ", "Mary", " ", "Ann", " ", "Huntley"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{"100", " ", "Numbers"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"RGBColor", "[", 
      RowBox[{"1", ",", "0", ",", "0"}], "]"}], " ", 
     RowBox[{"(*", "red", "*)"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"200", " ", "Operations"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"RGBColor", "[", 
      RowBox[{
       FractionBox["1", "2"], ",", "0", ",", "1"}], "]"}], 
     RowBox[{"(*", "purple", "*)"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"300", " ", "Measurement"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"RGBColor", "[", 
      RowBox[{"1", ",", 
       FractionBox["1", "2"], ",", "1"}], "]"}], 
     RowBox[{"(*", 
      RowBox[{"carnation", " ", "pink"}], "*)"}], ",", "\[IndentingNewLine]", 
     
     RowBox[{"(*", 
      RowBox[{"400", " ", "Consumer", " ", "Applications"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"GrayLevel", "[", ".81", "]"}], 
     RowBox[{"(*", 
      RowBox[{"Pastel", " ", "Gray"}], "*)"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"500", " ", "Algebra"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"RGBColor", "[", 
      RowBox[{"1", ",", "1", ",", "0"}], "]"}], 
     RowBox[{"(*", "yellow", "*)"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"600", " ", "Advanced", " ", "Algebra"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"RGBColor", "[", 
      RowBox[{
       FractionBox["1", "2"], ",", "1", ",", "1"}], "]"}], 
     RowBox[{"(*", 
      RowBox[{"light", " ", "turquoise"}], "*)"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"700", " ", "Geometry"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"RGBColor", "[", 
      RowBox[{"0", ",", 
       FractionBox["1", "2"], ",", "0"}], "]"}], 
     RowBox[{"(*", 
      RowBox[{"kelly", " ", "green"}], "*)"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"800", " ", "Advanced", " ", "Geometry"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"RGBColor", "[", 
      RowBox[{
       FractionBox["1", "2"], ",", "0", ",", "0"}], "]"}], 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"ugly", " ", "brick", " ", "red"}], "=", 
       RowBox[{"dark", " ", "red"}]}], "*)"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"900", " ", "Data", " ", "Displays"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"RGBColor", "[", 
      RowBox[{
       FractionBox["1", "2"], ",", 
       FractionBox["1", "2"], ",", "0"}], "]"}], 
     RowBox[{"(*", 
      RowBox[{"ugly", " ", "army", " ", "green"}], "*)"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"1000", " ", "Statistics"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"RGBColor", "[", 
      RowBox[{
       FractionBox["1", "2"], ",", 
       FractionBox["1", "2"], ",", "1"}], "]"}], 
     RowBox[{"(*", 
      RowBox[{"bluish", " ", "pink"}], "*)"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"1100", " ", "Probability"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"RGBColor", "[", 
      RowBox[{".51", ",", ".41", ",", ".33"}], "]"}], 
     RowBox[{"(*", 
      RowBox[{"Pastel", " ", "Brown"}], "*)"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"1200", " ", "Analysis"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"RGBColor", "[", 
      RowBox[{"0", ",", 
       FractionBox["1", "2"], ",", "1"}], "]"}], 
     RowBox[{"(*", 
      RowBox[{"blue", "=", "\"\<blue\>\""}], "*)"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"1300", " ", "Trigonometry"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"RGBColor", "[", 
      RowBox[{"1", ",", "0", ",", "1"}], "]"}], 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"brightest", " ", "pink"}], "=", "magenta"}], "*)"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"1400", " ", "Special", " ", "Topics"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"RGBColor", "[", 
      RowBox[{"1", ",", 
       FractionBox["1", "2"], ",", "0"}], "]"}], 
     RowBox[{"(*", "orange", "*)"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"1500", " ", "Functions"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"RGBColor", "[", 
      RowBox[{
       FractionBox["1", "2"], ",", "1", ",", "0"}], "]"}], 
     RowBox[{"(*", 
      RowBox[{"lime", " ", "green"}], "*)"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"1600", " ", "Instructional", " ", "Technology"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"RGBColor", "[", 
      RowBox[{"0", ",", "0", ",", "1"}], "]"}]}], 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", "bright", ")"}], "blue"}], "=", "blue"}], "*)"}], 
    "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"theContentPies", "=", 
  RowBox[{"GraphicsGrid", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{"w", "=", 
           RowBox[{"Transpose", "[", 
            RowBox[{"Select", "[", 
             RowBox[{
              RowBox[{"Sort", "[", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"Tally", "[", "\[IndentingNewLine]", 
                 RowBox[{"Floor", "[", 
                  RowBox[{
                   RowBox[{"Select", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"Transpose", "[", "\[IndentingNewLine]", 
                    RowBox[{"Select", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"theData", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "\[IndentingNewLine]", 
                    ",", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "cHead", "]"}], "]"}], "==", 
                    "\"\<Data\>\""}], "&"}]}], "]"}], "]"}], 
                    "\[IndentingNewLine]", "[", 
                    RowBox[{"[", 
                    RowBox[{"cTopic1", ";;", "cTopic3"}], "]"}], "]"}], 
                    "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", 
                    "IntegerQ"}], "]"}], ",", "100"}], "]"}], 
                 "\[IndentingNewLine]", "]"}], ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"#1", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "<", 
                  RowBox[{"#2", "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], "&"}]}], "]"}], 
              "\[IndentingNewLine]", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], ">", "99"}], "&"}]}], "]"}], 
            "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"PieChart", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"w", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "}"}], "\[IndentingNewLine]", 
           ",", 
           RowBox[{"ChartLabels", "\[Rule]", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"theContentLegend", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{"FontFamily", "->", "\"\<Helvetica\>\""}], ",", 
                "Larger"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", "16"}], "}"}]}], "]"}]}], 
           "\[IndentingNewLine]", ",", 
           RowBox[{"PlotLabel", "\[Rule]", 
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"theSeriesNames", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ",", 
              RowBox[{"FontFamily", "->", "\"\<Helvetica\>\""}], ",", "18"}], 
             "]"}]}], "\[IndentingNewLine]", ",", 
           RowBox[{"ChartBaseStyle", "\[Rule]", 
            RowBox[{"EdgeForm", "[", "None", "]"}]}], "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{",", 
             RowBox[{"ChartStyle", "\[Rule]", 
              RowBox[{"Table", "[", 
               RowBox[{
                RowBox[{"Hue", "[", 
                 RowBox[{"i", "/", "16"}], "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"i", ",", "1", ",", "16"}], "}"}]}], "]"}]}]}], " ", 
            "*)"}], "\[IndentingNewLine]", " ", ",", 
           RowBox[{"ChartStyle", "\[Rule]", "colorsContent"}], 
           "\[IndentingNewLine]", ",", 
           RowBox[{"SectorOrigin", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Pi", "/", "2"}], ",", "\"\<Clockwise\>\""}], "}"}], 
              ",", "0"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "]"}], 
       "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "theDataLength"}], "}"}]}], "]"}], 
     "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", ",", 
    RowBox[{"ImageSize", "\[Rule]", "Full"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "outputDirectory", "<>", "\"\<Content\>\"", "<>", "seriesPie", "<>", 
     "\"\<.pdf\>\""}], ",", "theContentPies", ",", 
    RowBox[{"ImageSize", "\[Rule]", " ", "imageSize"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "outputDirectory", "<>", "\"\<Content\>\"", "<>", "seriesPie", "<>", 
     "\"\<.png\>\""}], ",", "theContentPies", ",", " ", 
    RowBox[{"ImageSize", "\[Rule]", " ", "imageSize"}], ",", " ", 
    RowBox[{"ImageResolution", "\[Rule]", " ", "192"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.544200496186593*^9, 3.544200553873086*^9}, {
   3.5442006176075573`*^9, 3.5442006949700937`*^9}, 3.54420072907812*^9, {
   3.5442007734186983`*^9, 3.544200773738285*^9}, {3.544200837970142*^9, 
   3.544200883116065*^9}, {3.5442009207894773`*^9, 3.5442010452350883`*^9}, 
   3.5442011347117977`*^9, {3.544201171640127*^9, 3.544201279467944*^9}, {
   3.544201332263713*^9, 3.544201338342372*^9}, {3.544201564186871*^9, 
   3.5442015645515957`*^9}, {3.544202106603397*^9, 3.544202123170534*^9}, {
   3.54420224147675*^9, 3.544202243960499*^9}, {3.544202285052451*^9, 
   3.5442023536471157`*^9}, 3.5442044479351873`*^9, {3.5442045277310457`*^9, 
   3.544204543342864*^9}, {3.544204605545042*^9, 3.544204630103812*^9}, {
   3.544215865028893*^9, 3.544215866739332*^9}, {3.544914387366089*^9, 
   3.544914505649197*^9}, {3.544914726348061*^9, 3.544914726675726*^9}, {
   3.544914875496161*^9, 3.544914900181341*^9}, {3.544915462521439*^9, 
   3.544915464816284*^9}, {3.544915673345605*^9, 3.544915702335774*^9}, {
   3.544915824104293*^9, 3.5449158460381002`*^9}, 3.544916080646541*^9, {
   3.544916141007197*^9, 3.544916263998617*^9}, {3.544916301938238*^9, 
   3.5449163925948343`*^9}, 3.5449167889852457`*^9, {3.5449168588574677`*^9, 
   3.544916911054575*^9}, {3.5449170103217697`*^9, 3.544917055113112*^9}, {
   3.544947788891514*^9, 3.544947803631813*^9}, {3.544947968900084*^9, 
   3.544947971198422*^9}, {3.54494800291518*^9, 3.544948037872096*^9}, {
   3.544948075833672*^9, 3.544948128433444*^9}, {3.544948211170372*^9, 
   3.544948218009091*^9}, {3.544948331478847*^9, 3.544948338037409*^9}, {
   3.5449484234767*^9, 3.544948429507675*^9}, {3.5449485458769007`*^9, 
   3.5449485735941973`*^9}, 3.544948847803192*^9, {3.544948965106131*^9, 
   3.544949025888343*^9}, {3.54494905933925*^9, 3.544949059769973*^9}, {
   3.5449491672146187`*^9, 3.544949280390441*^9}, {3.544949366906392*^9, 
   3.54494942271922*^9}, {3.5449495418886757`*^9, 3.544949732156152*^9}, {
   3.544949783469039*^9, 3.544949783701623*^9}, 3.544949845976116*^9, {
   3.544953004220889*^9, 3.544953048408402*^9}, {3.5449531443375273`*^9, 
   3.544953234478232*^9}, {3.548288348419817*^9, 3.5482884135838337`*^9}, {
   3.548300189647538*^9, 3.548300190213945*^9}, {3.548300240561517*^9, 
   3.548300294506784*^9}, {3.548361439767366*^9, 3.548361456851116*^9}, {
   3.548361503475209*^9, 3.5483615158019733`*^9}, {3.5483615859397917`*^9, 
   3.5483615984266644`*^9}, {3.548361631334147*^9, 3.548361656090073*^9}, {
   3.5483617895678797`*^9, 3.548361795053474*^9}, {3.548361943717683*^9, 
   3.548361948146854*^9}, {3.548365352075938*^9, 3.548365384789983*^9}, {
   3.5483654521882343`*^9, 3.5483654713380623`*^9}, {3.548366294361875*^9, 
   3.548366360034712*^9}, {3.548366415235877*^9, 3.5483665179519587`*^9}, {
   3.5483668457087393`*^9, 3.5483668464913607`*^9}, {3.5483673478598833`*^9, 
   3.548367349874844*^9}, 3.548412355731428*^9, 3.548500492387136*^9, {
   3.548500553985846*^9, 3.548500594601376*^9}, 3.5485006872333603`*^9, {
   3.548500964864846*^9, 3.548501000974964*^9}, 3.5485010376696167`*^9, 
   3.548501117499324*^9, {3.548501149971099*^9, 3.548501176514217*^9}, {
   3.548501254504681*^9, 3.548501418285143*^9}, {3.548501619769504*^9, 
   3.5485016323925323`*^9}, {3.548501695798972*^9, 3.548501706583488*^9}, {
   3.5485029751541033`*^9, 3.548502986789132*^9}, 3.5485088892186728`*^9, {
   3.548508929812338*^9, 3.548508943589267*^9}, {3.548509107001696*^9, 
   3.5485092419974813`*^9}, {3.605368414429933*^9, 3.605368414807732*^9}}],

Cell[BoxData[{
 RowBox[{"theContentLegendPie", "=", 
  RowBox[{"PieChart", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Table", "[", 
      RowBox[{"1", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "16"}], "}"}]}], "]"}], "}"}], 
    "\[IndentingNewLine]", ",", 
    RowBox[{"ChartLabels", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{
            RowBox[{"ToString", "@", 
             RowBox[{"theContentLegend", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "i"}], "]"}], "]"}]}], 
            RowBox[{"(*", 
             RowBox[{"<>", "\"\< \>\"", "<>", 
              RowBox[{"ToString", "@", 
               RowBox[{"theContentLegend", "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "i"}], "]"}], "]"}]}]}], "*)"}], ",", 
            RowBox[{"FontFamily", "->", "\"\<Helvetica\>\""}], ",", 
            "Larger"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", "16"}], "}"}]}], "]"}], ",", 
        "\"\<RadialEdge\>\""}], "]"}], "}"}]}], "\[IndentingNewLine]", ",", 
    RowBox[{"PlotLabel", "\[Rule]", 
     RowBox[{"Style", "[", 
      RowBox[{"\"\<Content Legend\>\"", ",", 
       RowBox[{"FontFamily", "->", "\"\<Helvetica\>\""}], ",", "18"}], 
      "]"}]}], "\[IndentingNewLine]", ",", 
    RowBox[{"ChartBaseStyle", "\[Rule]", 
     RowBox[{"EdgeForm", "[", "None", "]"}]}], "\[IndentingNewLine]", ",", 
    RowBox[{"ChartStyle", "\[Rule]", "colorsContent"}], "\[IndentingNewLine]",
     ",", 
    RowBox[{"ChartLegends", "\[Rule]", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"StringReplace", "[", 
        RowBox[{
         RowBox[{"ToString", "@", 
          RowBox[{"theContentLegend", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "i"}], "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"\"\<\\n\>\"", ".."}], "\[Rule]", "\"\< \>\""}]}], "]"}], 
       RowBox[{"(*", 
        RowBox[{"<>", "\"\< \>\"", "<>", 
         RowBox[{"ToString", "@", 
          RowBox[{"theContentLegend", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "i"}], "]"}], "]"}]}]}], "*)"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "@", 
          RowBox[{"theContentLegend", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}]}], "]"}]}], 
    "\[IndentingNewLine]", ",", 
    RowBox[{"SectorOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Pi", "/", "2"}], ",", "\"\<Clockwise\>\""}], "}"}], ",", 
       "0"}], "}"}]}], "\[IndentingNewLine]", ",", 
    RowBox[{"ImagePadding", "\[Rule]", "256"}], "\[IndentingNewLine]", ",", 
    RowBox[{"ImageSize", "\[Rule]", "imageSize"}], "\[IndentingNewLine]", ",", 
    RowBox[{"ImageMargins", "\[Rule]", "20"}]}], "\[IndentingNewLine]", 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "outputDirectory", "<>", "\"\<Content_Legend\>\"", "<>", "seriesPie", 
     "<>", "\"\<.png\>\""}], ",", "theContentLegendPie", ",", " ", 
    RowBox[{"ImageSize", "\[Rule]", " ", "imageSize"}], ",", " ", 
    RowBox[{"ImageResolution", "\[Rule]", " ", "192"}]}], "]"}], ";", 
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "outputDirectory", "<>", "\"\<Content_Legend\>\"", "<>", "seriesPie", 
     "<>", "\"\<.pdf\>\""}], ",", "theContentLegendPie", ",", 
    RowBox[{"ImageSize", "\[Rule]", " ", 
     RowBox[{"2", "*", "imageSize"}]}]}], "]"}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.544914566252228*^9, 3.5449145878100557`*^9}, {
   3.5449149259949217`*^9, 3.544914952976892*^9}, {3.544914995323902*^9, 
   3.544915046371077*^9}, {3.5449150909568872`*^9, 3.5449150913475113`*^9}, {
   3.544915197402361*^9, 3.544915250588791*^9}, {3.5449154284472923`*^9, 
   3.544915443749691*^9}, 3.5449157294066257`*^9, 3.5449160875956078`*^9, 
   3.544916421444646*^9, {3.5449164571294527`*^9, 3.5449164604961653`*^9}, {
   3.544916521750928*^9, 3.544916554583765*^9}, {3.544916610060938*^9, 
   3.544916610459956*^9}, {3.5449166968232117`*^9, 3.544916749313673*^9}, 
   3.54491689831672*^9, {3.544948278114634*^9, 3.544948279016452*^9}, {
   3.544948488927216*^9, 3.54494849058232*^9}, {3.5449530683173027`*^9, 
   3.544953068740117*^9}, {3.544953324308815*^9, 3.54495332466798*^9}, {
   3.544991607489461*^9, 3.544991662583563*^9}, {3.5449917261588507`*^9, 
   3.544991751528083*^9}, {3.5449917949114323`*^9, 3.544991924017393*^9}, {
   3.5449919590802593`*^9, 3.54499196182226*^9}, 3.548288381001852*^9, {
   3.548289221752594*^9, 3.548289259028315*^9}, {3.5482893131221733`*^9, 
   3.548289314097144*^9}, {3.54828934984121*^9, 3.5482893529525003`*^9}, {
   3.548289411448248*^9, 3.548289411622549*^9}, {3.54828944350344*^9, 
   3.548289493492523*^9}, {3.548289537628921*^9, 3.548289538899559*^9}, {
   3.548289639930705*^9, 3.5482896557206*^9}, {3.548289708024432*^9, 
   3.548289744526729*^9}, {3.548356388518056*^9, 3.5483563893240147`*^9}, {
   3.548356420572843*^9, 3.548356458434279*^9}, {3.5483615481746063`*^9, 
   3.5483615507185802`*^9}, {3.548367380530443*^9, 3.5483673808572807`*^9}, {
   3.548367529167673*^9, 3.548367530277522*^9}, {3.5483675605338097`*^9, 
   3.5483676283560867`*^9}, {3.548406069544004*^9, 3.54840610695967*^9}, 
   3.5484061603497667`*^9, 3.548428200535615*^9, {3.548428234757194*^9, 
   3.54842827000994*^9}, {3.5484340539356823`*^9, 3.548434099689436*^9}, {
   3.548434130090432*^9, 3.548434161873817*^9}, {3.548508955030195*^9, 
   3.5485089639658012`*^9}, 3.548509001124881*^9, {3.6053684196499767`*^9, 
   3.605368420715465*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Other Properties", "Section",
 CellChangeTimes->{{3.544200461870632*^9, 3.544200466029958*^9}, {
  3.544202397202986*^9, 3.544202398344697*^9}, {3.544205013626141*^9, 
  3.5442050162230263`*^9}}],

Cell[BoxData[{
 RowBox[{"theOtherChart", "=", 
  RowBox[{"GraphicsGrid", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Module", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"v", ",", "w"}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"v", "=", 
           RowBox[{"Select", "[", 
            RowBox[{
             RowBox[{"theData", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "cHead", "]"}], "]"}], "\[Equal]", 
               "\"\<Data\>\""}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"w", "=", 
           RowBox[{"Transpose", "[", 
            RowBox[{"Select", "[", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Sort", "[", 
               RowBox[{"Tally", "[", 
                RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"Transpose", "[", "v", "]"}], "[", 
                  RowBox[{"[", 
                   RowBox[{"cC", ";;", "cContext"}], "]"}], "]"}], 
                 "\[IndentingNewLine]", "]"}], "]"}], "]"}], 
              "\[IndentingNewLine]", ",", 
              RowBox[{
               RowBox[{"MemberQ", "[", 
                RowBox[{"theOtherValid", ",", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "&"}]}], "]"}], 
            "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"BarChart", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Reverse", "[", 
              RowBox[{"w", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}], "}"}], 
            "\[IndentingNewLine]", ",", 
            RowBox[{"ChartLabels", "\[Rule]", 
             RowBox[{"Placed", "[", 
              RowBox[{
               RowBox[{"Reverse", "[", "theOtherLegend", "]"}], ",", 
               "Center"}], "]"}]}], "\[IndentingNewLine]", ",", 
            RowBox[{"PlotLabel", "\[Rule]", 
             RowBox[{"Style", "[", 
              RowBox[{
               RowBox[{"theSeriesNames", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ",", 
               RowBox[{"FontFamily", "->", "\"\<Helvetica\>\""}], ",", "18"}],
               "]"}]}], "\[IndentingNewLine]", ",", 
            RowBox[{"ChartLayout", "\[Rule]", "\"\<Stacked\>\""}], 
            "\[IndentingNewLine]", ",", 
            RowBox[{"ChartStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Yellow", ",", "Red", ",", "Cyan"}], "}"}]}], 
            "\[IndentingNewLine]", ",", 
            RowBox[{"ChartBaseStyle", "\[Rule]", 
             RowBox[{"Directive", "[", 
              RowBox[{"EdgeForm", "[", "None", "]"}], "]"}]}], 
            "\[IndentingNewLine]", ",", 
            RowBox[{"PlotRange", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"0", ",", 
               RowBox[{"Length", "[", "v", "]"}]}], "}"}]}]}], 
           "\[IndentingNewLine]", "]"}]}]}], "]"}], "\[IndentingNewLine]", 
       ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "theDataLength"}], "}"}]}], "]"}], 
     "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", ",", 
    RowBox[{"ImageSize", "\[Rule]", "Full"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "outputDirectory", "<>", "\"\<Other\>\"", "<>", "seriesBar", "<>", 
     "\"\<.pdf\>\""}], ",", "theOtherChart", ",", 
    RowBox[{"ImageSize", "\[Rule]", " ", "imageSize"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "outputDirectory", "<>", "\"\<Other\>\"", "<>", "seriesBar", "<>", 
     "\"\<.png\>\""}], ",", "theOtherChart", ",", " ", 
    RowBox[{"ImageSize", "\[Rule]", " ", "imageSize"}], ",", " ", 
    RowBox[{"ImageResolution", "\[Rule]", " ", "192"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.544200496186593*^9, 3.544200553873086*^9}, {
   3.5442006176075573`*^9, 3.5442006949700937`*^9}, 3.54420072907812*^9, {
   3.5442007734186983`*^9, 3.544200773738285*^9}, {3.544200837970142*^9, 
   3.544200883116065*^9}, {3.5442009207894773`*^9, 3.5442010452350883`*^9}, 
   3.5442011347117977`*^9, {3.544201171640127*^9, 3.544201279467944*^9}, {
   3.544201332263713*^9, 3.544201338342372*^9}, {3.544201564186871*^9, 
   3.5442015645515957`*^9}, {3.544202106603397*^9, 3.544202123170534*^9}, {
   3.54420224147675*^9, 3.544202243960499*^9}, {3.544202285052451*^9, 
   3.5442023536471157`*^9}, 3.5442044479351873`*^9, {3.5442045277310457`*^9, 
   3.544204543342864*^9}, {3.544204605545042*^9, 3.544204630103812*^9}, {
   3.544205035885335*^9, 3.544205037995578*^9}, {3.5442050721176023`*^9, 
   3.5442051113786163`*^9}, 3.5442055017810373`*^9, 3.544209667468017*^9, {
   3.5442097009749823`*^9, 3.544209737407816*^9}, {3.54420978580124*^9, 
   3.544209834113245*^9}, {3.544209916144731*^9, 3.5442100225581417`*^9}, {
   3.544210195680448*^9, 3.5442102367689877`*^9}, {3.5442103066965017`*^9, 
   3.544210310159971*^9}, {3.544210400763579*^9, 3.5442104308020153`*^9}, {
   3.5442108266496*^9, 3.544210836400228*^9}, {3.544213831282208*^9, 
   3.544213851113847*^9}, {3.544213889132215*^9, 3.544213929734625*^9}, {
   3.544213973179422*^9, 3.54421407917321*^9}, {3.544214253219191*^9, 
   3.544214254475032*^9}, {3.544214343811037*^9, 3.54421438318847*^9}, {
   3.544214504148665*^9, 3.544214524168221*^9}, {3.544214617976738*^9, 
   3.544214634608712*^9}, {3.544214690322991*^9, 3.544214691305667*^9}, {
   3.5448732528953257`*^9, 3.544873292429975*^9}, {3.5449503574512377`*^9, 
   3.544950401359383*^9}, {3.5483703486891823`*^9, 3.548370358962406*^9}, {
   3.5483704059768867`*^9, 3.5483704596363707`*^9}, 3.548370571670597*^9, {
   3.548370632492568*^9, 3.548370691235824*^9}, {3.5483707460822*^9, 
   3.548370777857458*^9}, {3.54837082715361*^9, 3.5483708627306213`*^9}, {
   3.5483709031831636`*^9, 3.548370924388123*^9}, 3.548412368521517*^9, {
   3.6053684220622807`*^9, 3.605368423130454*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Timeline Graphs", "Section",
 CellChangeTimes->{{3.544877807758871*^9, 3.544877810677123*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Automatically", " ", "generate", " ", "the", " ", "timeline", " ", 
    "graphs", " ", "one", " ", "at", " ", "a", " ", "time", " ", "from", " ", 
    "1", " ", "to", " ", "theDataLength"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"timelineGraphs", "=", "\[IndentingNewLine]", 
    RowBox[{"First", "@", 
     RowBox[{"Last", "@", 
      RowBox[{"Reap", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Do", "[", " ", 
         RowBox[{"(*", 
          RowBox[{
          "Generate", " ", "the", " ", "timeline", " ", "graphs", " ", "one", 
           " ", "at", " ", "a", " ", "time", " ", "from", " ", "1", " ", "to",
            " ", "theDataLength"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"myData", "=", "\[IndentingNewLine]", 
            RowBox[{"Transpose", "[", "\[IndentingNewLine]", 
             RowBox[{"Select", "[", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"theData", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "\[IndentingNewLine]", ",", 
               RowBox[{
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "cHead", "]"}], "]"}], "==", "\"\<Data\>\""}], 
                "&"}]}], "]"}], "\[IndentingNewLine]", "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{
             RowBox[{"\"\<\\nmyData Rows for series \>\"", "<>", 
              RowBox[{"theSeriesNames", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "<>", "\"\<: \>\""}], ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "myData", "]"}], "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"myTopicCodes", "=", 
            RowBox[{"Join", "[", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"myData", "[", 
                  RowBox[{"[", "cRowNumber", "]"}], "]"}], ",", 
                 RowBox[{"myData", "[", 
                  RowBox[{"[", "cTopic1", "]"}], "]"}]}], "}"}], "]"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"myData", "[", 
                  RowBox[{"[", "cRowNumber", "]"}], "]"}], ",", 
                 RowBox[{"myData", "[", 
                  RowBox[{"[", "cTopic2", "]"}], "]"}]}], "}"}], "]"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"Transpose", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"myData", "[", 
                  RowBox[{"[", "cRowNumber", "]"}], "]"}], ",", 
                 RowBox[{"myData", "[", 
                  RowBox[{"[", "cTopic3", "]"}], "]"}]}], "}"}], "]"}]}], 
             "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Print", "[", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"theSeriesNames", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", 
             "\"\< Topic Codes slots available: \>\"", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "myTopicCodes", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"myValidTopicCodes", "=", 
            RowBox[{
             RowBox[{"Select", "[", 
              RowBox[{"myTopicCodes", ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"MemberQ", "[", 
                 RowBox[{"validTopics", ",", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "&"}]}], "]"}], "//",
              "Sort"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{"**", "**", " ", "BEGIN"}], " ", "Extract", " ", 
             "tallies", " ", "of", " ", "00", " ", "level", " ", 
             RowBox[{"topics", " ", "**", "**"}]}], " ", "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", 
              RowBox[{
               RowBox[{"Length", "[", "myValidTopicCodes", "]"}], ",", 
               "\"\< myValidTopicCodes:\\n\>\"", ",", 
               RowBox[{"Short", "[", "myValidTopicCodes", "]"}]}], "]"}], 
             ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"my00LevelTopics", "=", 
            RowBox[{"Union", "@", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"#", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], ",", 
                  RowBox[{"Floor", "[", 
                   RowBox[{
                    RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ",", "100"}], "]"}]}], 
                 "}"}], "&"}], "/@", "myValidTopicCodes"}], ")"}]}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"Print", "[", 
              RowBox[{
               RowBox[{"Length", "[", "my00LevelTopics", "]"}], ",", 
               "\"\< my00LevelTopics:\\n\>\"", ",", 
               RowBox[{"Short", "[", "my00LevelTopics", "]"}]}], "]"}], ";"}],
             "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
           RowBox[{"my00LevelTopicsTally", "=", 
            RowBox[{"Sort", "@", 
             RowBox[{"Tally", "[", 
              RowBox[{
               RowBox[{"Transpose", "[", "my00LevelTopics", "]"}], "[", 
               RowBox[{"[", "2", "]"}], "]"}], "]"}]}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{
             RowBox[{"Length", "[", "my00LevelTopicsTally", "]"}], ",", 
             "\"\< total count of distinct 00 Level Topics used in \>\"", ",", 
             RowBox[{"theSeriesNames", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", "\[IndentingNewLine]", 
             "\"\< which has \\n\>\"", ",", 
             RowBox[{
              RowBox[{"Dimensions", "[", "myData", "]"}], "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             "\"\< Data Rows, and\\n\>\"", ",", 
             RowBox[{"Length", "[", 
              RowBox[{"Union", "[", 
               RowBox[{
                RowBox[{"Transpose", "[", "my00LevelTopics", "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ",", 
             "\"\< Rows represented.\>\"", ",", "\"\<\\n\>\""}], 
            RowBox[{"(*", 
             RowBox[{",", "\[IndentingNewLine]", 
              RowBox[{"TableForm", "[", "my00LevelTopicsTally", "]"}]}], 
             "*)"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
            "\[IndentingNewLine]", 
           RowBox[{"prettyPrintTable", "[", 
            RowBox[{"Prepend", "[", 
             RowBox[{"my00LevelTopicsTally", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<Topic\>\"", ",", 
                RowBox[{"\"\<Tally by Item (data row) for \>\"", "<>", 
                 RowBox[{"theSeriesNames", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], "<>", "\"\< (\>\"", "<>", 
                 RowBox[{"ToString", "[", 
                  RowBox[{
                   RowBox[{"Dimensions", "[", "myData", "]"}], "[", 
                   RowBox[{"[", "2", "]"}], "]"}], "]"}], "<>", 
                 "\"\< Data Rows)\>\""}]}], "}"}]}], "]"}], "]"}], ";", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{
             RowBox[{"**", "**", " ", "END"}], " ", "Extract", " ", "tallies",
              " ", "of", " ", "00", " ", "level", " ", 
             RowBox[{"topics", " ", "**", "**"}]}], " ", "*)"}], 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"myInvalidTopicCodesRaw", "=", 
            RowBox[{
             RowBox[{"Select", "[", 
              RowBox[{"myTopicCodes", ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"\[Not]", 
                 RowBox[{"MemberQ", "[", 
                  RowBox[{"validTopics", ",", 
                   RowBox[{"#", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "&"}]}], "]"}],
              "//", "Sort"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"myInvalidTopicCodes", "=", 
            RowBox[{
             RowBox[{"Select", "[", 
              RowBox[{"myInvalidTopicCodesRaw", ",", "\[IndentingNewLine]", 
               RowBox[{"(*", 
                RowBox[{"IntegerQ", "[", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], "]"}], "*)"}], 
               RowBox[{
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], "!=", "\"\<\>\""}], "&"}]}],
               "]"}], "//", "Sort"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Print", "[", 
             RowBox[{
              RowBox[{"ToString", "@", 
               RowBox[{"theSeriesNames", "[", 
                RowBox[{"[", "i", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
              "\"\< Invalid Topic Codes assigned:\\n\>\"", ",", 
              "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{"myInvalidTopicCodes", "\[Equal]", 
                   RowBox[{"{", "}"}]}], ",", 
                  RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{"\"\<\>\"", ",", "\"\<All codes valid.\>\""}], 
                    "}"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"{", 
                    RowBox[{"\"\<Row\>\"", ",", "\"\<Code\>\""}], "}"}], 
                   "}"}]}], "]"}], "~", "Join", "~", "myInvalidTopicCodes"}], 
               "//", "TableForm"}], ",", "\[IndentingNewLine]", 
              "\"\<\\nValid Topic Codes Assigned: \>\"", ",", 
              "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Dimensions", "[", "myValidTopicCodes", "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
            RowBox[{"Print", "[", 
             RowBox[{
              RowBox[{"ToString", "@", 
               RowBox[{"theSeriesNames", "[", 
                RowBox[{"[", "i", "]"}], "]"}]}], "<>", "\"\<\\n\>\"", "<>", 
              RowBox[{"ToString", "@", 
               RowBox[{"kExpectedRows", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "<>", 
              "\"\< Rows in Spreadsheet\\n\>\"", "\[IndentingNewLine]", "<>", 
              
              RowBox[{"ToString", "@", 
               RowBox[{
                RowBox[{"Dimensions", "[", "myData", "]"}], "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], "<>", 
              "\"\< Items coded.\\n\>\"", "\[IndentingNewLine]", "<>", 
              RowBox[{"ToString", "@", 
               RowBox[{
                RowBox[{"Dimensions", "[", "myValidTopicCodes", "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], "<>", 
              "\"\< Total number of Codes Assigned.\>\""}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Max", "[", 
            RowBox[{
             RowBox[{"Transpose", "[", "myValidTopicCodes", "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"theXMarkers", "=", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"\"\<\\t\\t\\t\>\"", "<>", 
               RowBox[{"theSeriesBenchmarks", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "2", ",", "j"}], "]"}], "]"}], "<>", 
               "\"\< \[LongRightArrow]\>\""}], ",", 
              RowBox[{"{", 
               RowBox[{"j", ",", 
                RowBox[{"Length", "[", 
                 RowBox[{
                  RowBox[{"theSeriesBenchmarks", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "[", 
                  RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], 
           ";", "\[IndentingNewLine]", 
           RowBox[{"theXMarkerPoints", "=", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"theSeriesBenchmarks", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "1", ",", "j", ",", "1"}], "]"}], "]"}], 
                 ",", "buffer"}], "}"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"j", ",", "1", ",", 
                RowBox[{"Length", "[", "theXMarkers", "]"}]}], "}"}]}], 
             "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"theYMarkers", "=", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"theContentLegend", "[", 
               RowBox[{"[", 
                RowBox[{"2", ",", "j"}], "]"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"j", ",", 
                RowBox[{"Length", "[", 
                 RowBox[{"theContentLegend", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], 
           ";", "\[IndentingNewLine]", 
           RowBox[{"theYMarkerPoints", "=", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"kExpectedRows", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "/", "24."}], 
                 ",", 
                 RowBox[{"50", "+", "j"}]}], "}"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"j", ",", "100", ",", "1600", ",", "100"}], "}"}]}], 
             "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"thePlot", "=", 
            RowBox[{"ListPlot", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"Append", "[", 
                RowBox[{"theXMarkerPoints", ",", "myValidTopicCodes"}], "]"}],
                "~", "Join", "~", "theYMarkerPoints"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"PlotMarkers", "\[Rule]", 
               RowBox[{"theXMarkers", "~", "Append", "~", 
                RowBox[{"{", "}"}], "~", "Join", "~", "theYMarkers"}]}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"PlotRange", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"kExpectedRows", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "/", "12"}], "-", 
                    RowBox[{"buffer", "/", "3"}]}], ",", 
                   RowBox[{"Ceiling", " ", "[", 
                    RowBox[{
                    RowBox[{"theSeriesRows", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ",", "buffer"}], "]"}]}], 
                  "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"buffer", "/", "3"}], ",", 
                   RowBox[{"Ceiling", "[", 
                    RowBox[{
                    RowBox[{"Max", "[", 
                    RowBox[{
                    RowBox[{"Transpose", "[", "myValidTopicCodes", "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", 
                    RowBox[{"5", "*", "buffer"}]}], "]"}]}], "}"}]}], "}"}]}],
               ",", "\[IndentingNewLine]", 
              RowBox[{"AxesOrigin", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "buffer"}], ",", 
                 RowBox[{"100", "-", 
                  RowBox[{"buffer", "/", "4"}]}]}], "}"}]}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"Axes", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"True", ",", "False"}], "}"}]}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"PlotLabel", "\[Rule]", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"\"\<\\n\>\"", "<>", 
                  RowBox[{"theSeriesLongNames", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "<>", "\"\< Data [\>\"", "<>", 
                  RowBox[{"theSeriesNames", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "<>", "\"\<]\\n\>\""}], 
                 ",", "18"}], "]"}]}], ",", "\[IndentingNewLine]", 
              RowBox[{"Ticks", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"None", ",", "None"}], "}"}]}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"AxesLabel", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"\"\<Timeline\>\"", 
                 RowBox[{"(*", 
                  RowBox[{"\"\<\>\"", "\[IndentingNewLine]", "<>", 
                   RowBox[{"ToString", "@", 
                    RowBox[{"kExpectedRows", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "<>", 
                   "\"\< Rows\\n\>\"", "\[IndentingNewLine]", "<>", 
                   RowBox[{"ToString", "@", 
                    RowBox[{
                    RowBox[{"Dimensions", "[", "myData", "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "<>", 
                   "\"\< Data Rows\\n\>\"", "\[IndentingNewLine]", "<>", 
                   RowBox[{"ToString", "@", 
                    RowBox[{
                    RowBox[{"Dimensions", "[", "myValidTopicCodes", "]"}], 
                    "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "<>", 
                   "\"\< Codes Assigned\>\""}], "*)"}], "\[IndentingNewLine]",
                  ",", "\"\<  Topic Code\>\""}], "}"}]}], ",", " ", 
              "\[IndentingNewLine]", 
              RowBox[{"GridLines", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"theSeriesBenchmarks", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
                 RowBox[{"Table", "[", 
                  RowBox[{"i", ",", 
                   RowBox[{"{", 
                    RowBox[{"i", ",", "0", ",", 
                    RowBox[{"Ceiling", " ", "[", 
                    RowBox[{
                    RowBox[{"Max", "[", "myValidTopicCodes", "]"}], ",", 
                    "100"}], "]"}], ",", "100"}], "}"}]}], "]"}]}], "}"}]}], 
              ",", "\[IndentingNewLine]", 
              RowBox[{"GridLinesStyle", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"Directive", "[", 
                  RowBox[{"Gray", ",", "Dotted"}], "]"}], ",", 
                 RowBox[{"Directive", "[", "LightGray", "]"}]}], "}"}]}], ",",
               "\[IndentingNewLine]", 
              RowBox[{"PlotStyle", "\[Rule]", 
               RowBox[{"Directive", "[", 
                RowBox[{
                 RowBox[{"PointSize", "[", "pointSize", "]"}], ",", "Black", 
                 ",", 
                 RowBox[{"Opacity", "[", "pointOpacity", "]"}]}], "]"}]}], 
              ",", "\[IndentingNewLine]", 
              RowBox[{"AspectRatio", "\[Rule]", 
               RowBox[{"1", "/", "GoldenRatio"}]}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"ImagePadding", "\[Rule]", "All"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"ImageSize", "\[Rule]", "Full"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Export", "[", 
            RowBox[{
             RowBox[{"outputDirectory", "<>", 
              RowBox[{"theSeriesNames", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "<>", "seriesTimeline", "<>", 
              "\"\<.pdf\>\""}], ",", "thePlot", ",", 
             RowBox[{"ImageSize", "\[Rule]", " ", "imageSize"}]}], "]"}], ";",
            "\[IndentingNewLine]", 
           RowBox[{"Export", "[", 
            RowBox[{
             RowBox[{"outputDirectory", "<>", 
              RowBox[{"theSeriesNames", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "<>", "seriesTimeline", "<>", 
              "\"\<.png\>\""}], ",", "thePlot", ",", " ", 
             RowBox[{"ImageSize", "\[Rule]", " ", "imageSize"}], ",", " ", 
             RowBox[{"ImageResolution", "\[Rule]", " ", "192"}]}], "]"}], ";",
            "\[IndentingNewLine]", 
           RowBox[{"Sow", "[", "thePlot", "]"}], ";"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", "theDataLength", ",", "1"}], "}"}]}], 
         "]"}], ";"}], "\[IndentingNewLine]", "]"}]}]}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.544215410509212*^9, 3.544215532547249*^9}, {
   3.5442155656877527`*^9, 3.544215642093255*^9}, {3.54421567535968*^9, 
   3.5442157145630493`*^9}, {3.5442157478389482`*^9, 3.544215776812533*^9}, {
   3.544215891580168*^9, 3.5442159251203537`*^9}, {3.5442163616426067`*^9, 
   3.5442163658175697`*^9}, {3.544216400209881*^9, 3.5442164043946657`*^9}, {
   3.544216448926921*^9, 3.5442164980949993`*^9}, 3.544216536240937*^9, {
   3.5442165754219646`*^9, 3.5442165783645163`*^9}, {3.5442166104567738`*^9, 
   3.54421696422675*^9}, {3.544217004845068*^9, 3.544217027018311*^9}, {
   3.5442170696853533`*^9, 3.5442171104875183`*^9}, {3.5442171584056063`*^9, 
   3.544217183215259*^9}, {3.54421723905029*^9, 3.5442172716627007`*^9}, {
   3.5442173647001963`*^9, 3.544217393286964*^9}, {3.544217719216056*^9, 
   3.5442177280155907`*^9}, {3.544219150730492*^9, 3.544219150928927*^9}, {
   3.54422002178236*^9, 3.544220021964596*^9}, {3.544220109151276*^9, 
   3.544220127087572*^9}, {3.544220222065967*^9, 3.544220313799629*^9}, {
   3.544220492482108*^9, 3.5442205743650827`*^9}, {3.544220916675149*^9, 
   3.544220917640408*^9}, {3.544221437099415*^9, 3.5442214381687107`*^9}, {
   3.5442220820788383`*^9, 3.544222089405559*^9}, {3.544222132723418*^9, 
   3.5442221400088263`*^9}, {3.544222503024582*^9, 3.544222583908711*^9}, {
   3.544874600234078*^9, 3.544874643563294*^9}, {3.544874674844549*^9, 
   3.544874678731731*^9}, {3.544874710011674*^9, 3.544874794893326*^9}, 
   3.544874987096089*^9, {3.544875085711732*^9, 3.544875112916479*^9}, {
   3.5448751559549093`*^9, 3.544875193185791*^9}, {3.544875410163954*^9, 
   3.544875440016974*^9}, {3.5448755334614277`*^9, 3.5448755335947*^9}, {
   3.544875689477666*^9, 3.5448757103217793`*^9}, {3.54487774096603*^9, 
   3.5448777865480423`*^9}, {3.544880003089855*^9, 3.544880038513584*^9}, {
   3.54488011056601*^9, 3.544880125498993*^9}, {3.544880248116693*^9, 
   3.54488028157598*^9}, {3.544880317190782*^9, 3.5448803245897007`*^9}, {
   3.544880873630616*^9, 3.54488100654121*^9}, 3.544881054990489*^9, 
   3.544881099398065*^9, 3.544881155142477*^9, {3.544881281010404*^9, 
   3.54488134261061*^9}, {3.544881472317416*^9, 3.5448816031579523`*^9}, {
   3.544881665243794*^9, 3.544881665439972*^9}, {3.544881707608033*^9, 
   3.544881806961603*^9}, {3.544881855833919*^9, 3.544881979341282*^9}, {
   3.544882029254963*^9, 3.544882029391013*^9}, {3.544882059668282*^9, 
   3.544882267067264*^9}, {3.544882486156912*^9, 3.54488250722731*^9}, {
   3.544985734982112*^9, 3.544985735200925*^9}, {3.544985811374353*^9, 
   3.544985850811901*^9}, {3.54498589847049*^9, 3.544985960658338*^9}, 
   3.544986006719648*^9, {3.544992215680722*^9, 3.5449922542557592`*^9}, {
   3.544992317710327*^9, 3.5449923210227547`*^9}, {3.544992385426571*^9, 
   3.544992444622529*^9}, {3.544992510569346*^9, 3.544992523062297*^9}, 
   3.544992563515356*^9, {3.544992662058507*^9, 3.544992663201971*^9}, {
   3.5483709927959747`*^9, 3.548371031484602*^9}, {3.5483717623806467`*^9, 
   3.548371912912619*^9}, {3.548372033909919*^9, 3.548372057541044*^9}, {
   3.548372106388913*^9, 3.548372330480194*^9}, {3.5483723890399837`*^9, 
   3.548372389859274*^9}, {3.5483724198682127`*^9, 3.548372427996098*^9}, {
   3.5483724832369137`*^9, 3.548372530183344*^9}, {3.54837256709054*^9, 
   3.5483725718679028`*^9}, {3.548372646793023*^9, 3.5483726478112307`*^9}, {
   3.548372692317089*^9, 3.54837270084708*^9}, {3.5483727968690367`*^9, 
   3.548372816012188*^9}, {3.548372909237093*^9, 3.548372910089142*^9}, {
   3.548372946785008*^9, 3.5483729817741957`*^9}, {3.5483731833400917`*^9, 
   3.54837325051313*^9}, {3.548373298226039*^9, 3.548373298598012*^9}, {
   3.548373381968958*^9, 3.5483733867436113`*^9}, {3.54837344252728*^9, 
   3.548373497644082*^9}, {3.5483735508687553`*^9, 3.548373563843698*^9}, {
   3.54837363072365*^9, 3.548373630951469*^9}, {3.548373727082039*^9, 
   3.548373728503294*^9}, {3.548373761968355*^9, 3.548373857549774*^9}, {
   3.548373897742874*^9, 3.548373917307291*^9}, {3.54837395173944*^9, 
   3.548374034443705*^9}, {3.548374091580977*^9, 3.548374119372744*^9}, {
   3.5483741809422073`*^9, 3.548374206355096*^9}, {3.548374238354784*^9, 
   3.5483742434614563`*^9}, {3.5483742946188*^9, 3.54837433328857*^9}, {
   3.548374387281241*^9, 3.5483746831189203`*^9}, {3.5483747276248817`*^9, 
   3.5483747408066187`*^9}, {3.548374793960751*^9, 3.548374811958569*^9}, {
   3.548374879022059*^9, 3.548374879892374*^9}, {3.548374923086216*^9, 
   3.548374923411283*^9}, {3.548374972937162*^9, 3.5483749996316547`*^9}, {
   3.5483750653861723`*^9, 3.5483751074996967`*^9}, {3.548375156812129*^9, 
   3.548375157547213*^9}, 3.5483752605958*^9, {3.5483753296355333`*^9, 
   3.5483754040765533`*^9}, {3.5483754910708237`*^9, 3.548375501563382*^9}, {
   3.54837553968708*^9, 3.548375539865793*^9}, {3.548375602589754*^9, 
   3.548375610979104*^9}, {3.5483757134963083`*^9, 3.548375732387415*^9}, {
   3.5483757781274557`*^9, 3.548375852526944*^9}, 3.548375884228993*^9, {
   3.548375985916506*^9, 3.5483760341427393`*^9}, {3.548376131285486*^9, 
   3.5483761627038927`*^9}, {3.5483761941377907`*^9, 3.548376194307035*^9}, {
   3.548376224824136*^9, 3.548376241265458*^9}, {3.5483763035970182`*^9, 
   3.548376398451736*^9}, {3.548378803468274*^9, 3.5483788187797747`*^9}, {
   3.548378918691839*^9, 3.548378943419739*^9}, 3.548404589968039*^9, 
   3.548404649455522*^9, {3.5484047260839567`*^9, 3.548404742394665*^9}, {
   3.548404878897067*^9, 3.5484048794726543`*^9}, {3.548404943143495*^9, 
   3.5484049435980577`*^9}, 3.548404996758547*^9, 3.548405047652961*^9, {
   3.5484050972681932`*^9, 3.548405118787179*^9}, {3.548405204992229*^9, 
   3.5484052288638773`*^9}, {3.5484052787436447`*^9, 3.548405309541462*^9}, {
   3.5484053872374077`*^9, 3.5484054007082367`*^9}, {3.548405436765046*^9, 
   3.548405437546986*^9}, {3.548405478281621*^9, 3.548405478560382*^9}, {
   3.548405512129531*^9, 3.548405538093174*^9}, {3.548405639425619*^9, 
   3.548405659466193*^9}, {3.5484057265322523`*^9, 3.548405749179536*^9}, {
   3.5484059397123823`*^9, 3.54840599783815*^9}, {3.5484066044419518`*^9, 
   3.548406668453644*^9}, {3.548411696142873*^9, 3.548411712587146*^9}, {
   3.548412714759008*^9, 3.548412715279419*^9}, {3.548414424756772*^9, 
   3.548414437892462*^9}, {3.548414671717276*^9, 3.5484147023254232`*^9}, {
   3.5484147860469*^9, 3.548414787252255*^9}, {3.548415139637385*^9, 
   3.548415186771637*^9}, {3.548415399637332*^9, 3.548415474327887*^9}, {
   3.5484214318444557`*^9, 3.54842149533959*^9}, {3.5484215298751907`*^9, 
   3.5484217262889767`*^9}, {3.548509405748527*^9, 3.548509411532321*^9}, {
   3.5485110301608887`*^9, 3.548511033906885*^9}, {3.54851118745116*^9, 
   3.548511189448454*^9}, {3.57467776621037*^9, 3.574677773779378*^9}, {
   3.575121803201275*^9, 3.5751218963810053`*^9}, {3.575121968417136*^9, 
   3.575122001824479*^9}, {3.5751220331540117`*^9, 3.575122105446423*^9}, {
   3.575124543913726*^9, 3.5751245658967*^9}, {3.575150596774517*^9, 
   3.5751506038791523`*^9}, {3.575150789585966*^9, 3.575150811247753*^9}, {
   3.575150863364621*^9, 3.575150913011589*^9}, {3.575150958799362*^9, 
   3.57515097261383*^9}, {3.575151267003924*^9, 3.5751512692664557`*^9}, {
   3.575151329562729*^9, 3.575151344475305*^9}, {3.5751514490793056`*^9, 
   3.57515146650419*^9}, {3.575151512987514*^9, 3.575151571933711*^9}, 
   3.57515164190585*^9, {3.575151672165463*^9, 3.575151801405835*^9}, {
   3.575151878359376*^9, 3.575151880215313*^9}, {3.5751519223184357`*^9, 
   3.5751519227729387`*^9}, {3.57515196050519*^9, 3.575151974131599*^9}, {
   3.5751520493273697`*^9, 3.575152049588935*^9}, {3.57515210295332*^9, 
   3.575152157983762*^9}, {3.575152229112599*^9, 3.5751523225305367`*^9}, {
   3.599837266996585*^9, 3.5998372720507*^9}, {3.605368424883533*^9, 
   3.605368426149582*^9}, {3.634565780012458*^9, 3.634565828495646*^9}, {
   3.6345659851644087`*^9, 3.63456600632054*^9}, {3.634566051249517*^9, 
   3.634566098937565*^9}, {3.63456617509164*^9, 3.634566255413127*^9}, {
   3.634566294625407*^9, 3.6345663396557817`*^9}, {3.634566401275578*^9, 
   3.6345664677460423`*^9}, {3.634569005981966*^9, 3.6345690079807158`*^9}, {
   3.634569051996811*^9, 3.63456911672584*^9}, {3.634569762166798*^9, 
   3.634569932300506*^9}, {3.6345700070813017`*^9, 3.6345700295392647`*^9}, {
   3.634570071923349*^9, 3.634570101409548*^9}, 3.634570490736314*^9, {
   3.6345705371335783`*^9, 3.634570538238327*^9}, {3.634570724947837*^9, 
   3.6345707299582148`*^9}, {3.634570770464634*^9, 3.634570781573044*^9}, 
   3.634570821507874*^9, {3.6345709864770308`*^9, 3.634571002502913*^9}, {
   3.634571423318075*^9, 3.634571442432786*^9}, {3.6345715387862597`*^9, 
   3.634571560209025*^9}, {3.634572671399371*^9, 3.634572738565414*^9}, {
   3.634573088795918*^9, 3.6345731062986813`*^9}, {3.634574369032599*^9, 
   3.634574408780278*^9}, {3.634780146781309*^9, 3.634780164734021*^9}, {
   3.6347802262748737`*^9, 3.6347802381283083`*^9}, {3.651239557702582*^9, 
   3.65123959177308*^9}, {3.651239627419945*^9, 3.651239647826351*^9}, {
   3.651239831006102*^9, 3.651239928657222*^9}, {3.651239993288128*^9, 
   3.6512400387000437`*^9}, {3.651240093220076*^9, 3.651240133654808*^9}, {
   3.651240166874383*^9, 3.65124029658948*^9}, 3.6512403821382513`*^9, {
   3.651240427319058*^9, 3.651240441771943*^9}, {3.6512404854894257`*^9, 
   3.651240522549335*^9}, {3.6512405628801823`*^9, 3.65124056493507*^9}, {
   3.651240630075111*^9, 3.651240639634037*^9}, {3.6512407218283587`*^9, 
   3.651240822772801*^9}, {3.6512408752919407`*^9, 3.6512408777950277`*^9}, {
   3.651240935066539*^9, 3.651240939482975*^9}, {3.651241122974317*^9, 
   3.65124114039255*^9}, {3.651241234486198*^9, 3.651241279262579*^9}, {
   3.6512413441104517`*^9, 3.651241355901773*^9}, {3.651241705282323*^9, 
   3.651241722889536*^9}, {3.651241902609152*^9, 3.651242052637537*^9}, {
   3.65124209199226*^9, 3.651242220224875*^9}, {3.6512422557278223`*^9, 
   3.6512422601507883`*^9}, {3.6512423278034773`*^9, 3.651242328058935*^9}, {
   3.6512423827485867`*^9, 3.651242429331105*^9}, {3.6513168537106447`*^9, 
   3.651316874415164*^9}, 3.651401106620322*^9, 3.651401155381706*^9, 
   3.651401188823882*^9, {3.651401228498292*^9, 3.651401233148788*^9}, {
   3.651401271488289*^9, 3.651401379717413*^9}, {3.651401455903572*^9, 
   3.651401482205633*^9}, {3.651401578665971*^9, 3.65140159683832*^9}, {
   3.6514017508985*^9, 3.6514017521931458`*^9}, {3.651401838060335*^9, 
   3.651401844491329*^9}, {3.6514066631944027`*^9, 3.651406664735322*^9}, {
   3.6514067006357393`*^9, 3.651406707161146*^9}, {3.651406890110963*^9, 
   3.651406904821331*^9}}],

Cell[BoxData[
 RowBox[{"timelineGraphs", "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.575122208315372*^9, 3.575122296597262*^9}}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"outputDirectory", "<>", "\"\<index.html\>\""}], ",", 
   RowBox[{"EvaluationNotebook", "[", "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.634945909801268*^9, 3.634945921576715*^9}, {
  3.634946083636262*^9, 3.634946138114171*^9}, {3.634946184264872*^9, 
  3.634946184357522*^9}, {3.634946223308652*^9, 3.6349462296842422`*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1074, 755},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"10.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (October 9, \
2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 102, 1, 92, "Title"],
Cell[684, 25, 117, 1, 51, "Subtitle"],
Cell[CellGroupData[{
Cell[826, 30, 156, 2, 65, "Chapter"],
Cell[CellGroupData[{
Cell[1007, 36, 154, 2, 64, "Section"],
Cell[1164, 40, 81, 1, 30, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1282, 46, 101, 1, 64, "Section"],
Cell[1386, 49, 132, 1, 30, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1555, 55, 110, 1, 64, "Section"],
Cell[1668, 58, 269, 5, 68, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1974, 68, 113, 1, 64, "Section"],
Cell[2090, 71, 402, 9, 144, "Text"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[2541, 86, 132, 2, 54, "Chapter"],
Cell[CellGroupData[{
Cell[2698, 92, 126, 2, 62, "Subchapter"],
Cell[2827, 96, 285, 6, 68, "Text"],
Cell[CellGroupData[{
Cell[3137, 106, 96, 1, 64, "Section"],
Cell[3236, 109, 1105, 22, 114, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4378, 136, 145, 2, 64, "Section"],
Cell[4526, 140, 464, 11, 31, "Text"],
Cell[4993, 153, 2435, 47, 216, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7465, 205, 99, 1, 64, "Section"],
Cell[7567, 208, 415, 10, 31, "Text"],
Cell[7985, 220, 1751, 33, 148, "Input"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[9797, 260, 92, 1, 65, "Chapter"],
Cell[CellGroupData[{
Cell[9914, 265, 101, 1, 62, "Subchapter"],
Cell[CellGroupData[{
Cell[10040, 270, 155, 2, 64, "Section"],
Cell[CellGroupData[{
Cell[10220, 276, 165, 2, 44, "Subsection"],
Cell[10388, 280, 203, 4, 28, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10628, 289, 101, 1, 44, "Subsection"],
Cell[10732, 292, 4258, 68, 97, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15027, 365, 102, 1, 44, "Subsection"],
Cell[15132, 368, 315, 6, 30, "Text"],
Cell[15450, 376, 3859, 86, 250, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19346, 467, 100, 1, 44, "Subsection"],
Cell[19449, 470, 299, 6, 49, "Text"],
Cell[19751, 478, 14793, 314, 845, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[34593, 798, 209, 3, 64, "Section"],
Cell[CellGroupData[{
Cell[34827, 805, 256, 5, 69, "Subsection"],
Cell[35086, 812, 11566, 256, 930, "Input"],
Cell[46655, 1070, 136, 2, 28, "Input"]
}, Open  ]],
Cell[46806, 1075, 190, 2, 44, "Subsection"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47033, 1082, 205, 3, 64, "Section"],
Cell[47241, 1087, 150, 2, 30, "Text"],
Cell[47394, 1091, 5171, 98, 131, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[52614, 1195, 109, 1, 62, "Subchapter"],
Cell[CellGroupData[{
Cell[52748, 1200, 101, 1, 64, "Section"],
Cell[52852, 1203, 2238, 41, 97, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55127, 1249, 106, 1, 64, "Section"],
Cell[55236, 1252, 2441, 49, 80, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57714, 1306, 154, 2, 64, "Section"],
Cell[57871, 1310, 2736, 62, 267, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60644, 1377, 175, 2, 64, "Section"],
Cell[CellGroupData[{
Cell[60844, 1383, 96, 1, 44, "Subsection"],
Cell[60943, 1386, 20064, 305, 1338, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81044, 1696, 101, 1, 44, "Subsection"],
Cell[81148, 1699, 10728, 197, 607, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[91913, 1901, 104, 1, 44, "Subsection"],
Cell[92020, 1904, 9163, 159, 539, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[101232, 2069, 101, 1, 64, "Section"],
Cell[101336, 2072, 2920, 57, 148, "Input"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[104305, 2135, 103, 1, 62, "Subchapter"],
Cell[CellGroupData[{
Cell[104433, 2140, 103, 1, 64, "Section"],
Cell[104539, 2143, 1692, 39, 131, "Input"],
Cell[106234, 2184, 6653, 137, 318, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112924, 2326, 241, 3, 64, "Section"],
Cell[113168, 2331, 11110, 210, 522, "Input"],
Cell[124281, 2543, 10526, 194, 488, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[134844, 2742, 110, 1, 64, "Section"],
Cell[CellGroupData[{
Cell[134979, 2747, 97, 1, 44, "Subsection"],
Cell[135079, 2750, 11793, 242, 692, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[146909, 2997, 106, 1, 44, "Subsection"],
Cell[147018, 3000, 11416, 234, 658, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[158471, 3239, 167, 2, 44, "Subsection"],
Cell[158641, 3243, 303, 7, 28, "Input"],
Cell[158947, 3252, 1145, 20, 80, "Input"],
Cell[160095, 3274, 13297, 265, 794, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[173441, 3545, 141, 2, 64, "Section"],
Cell[173585, 3549, 13758, 296, 1265, "Input"],
Cell[187346, 3847, 5776, 120, 335, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[193159, 3972, 201, 3, 64, "Section"],
Cell[193363, 3977, 6153, 126, 369, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[199553, 4108, 100, 1, 64, "Section"],
Cell[199656, 4111, 31894, 600, 1440, "Input"],
Cell[231553, 4713, 137, 2, 28, "Input"],
Cell[231693, 4717, 391, 7, 28, "Input"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)