(* 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", "=", "\"\\""}], ";", "\[IndentingNewLine]", RowBox[{"local", "=", RowBox[{"NotebookDirectory", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"theSource", "=", "web"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "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[{"\"\\"", ",", "t0"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"time", "=", RowBox[{"Timing", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"theData", "=", RowBox[{"Import", "[", " ", "\[IndentingNewLine]", RowBox[{"theSource", "<>", "\"\\""}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"t1", "=", RowBox[{"DateString", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "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", "<>", "\"\\""}], "\[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", "]"}], "]"}], "==", "\"\\""}], "&"}]}], "]"}]}], ";", "\[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[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";", "\[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[{"\"\\"", ",", "15406"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", "8386"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", "12248"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", "21329"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", "2502"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\"\\"", ",", "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[{"\"\\"", ",", "\"\\""}], "}"}]}], " ", RowBox[{"(*", " ", "\"\\"", " ", "*)"}], "\[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[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "\[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[{"\"\\"", ",", "\"\\""}], "}"}]}], "\[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[{"\"\\"", ",", "\"\\""}], "}"}]}], "\[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[{ "\"\\"", ",", "\"\< 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[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "\[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[{"\"\\"", ",", "\"\\""}], "}"}]}], "\[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\>\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\<\\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[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ".", "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[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\