Mathematica Software Expert needed asap

(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 98499, 2572] NotebookOptionsPosition[ 65614, 1865] NotebookOutlinePosition[ 83203, 2325] CellTagsIndexPosition[ 83160, 2322] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ ESI-3215 Evaluation of Engineering Data\ \>", "Title", PageWidth->PaperWidth,ExpressionUUID->"eb3f0d93-97f4-47a7-a55e-11fce273dfdd"], Cell["Project: data analysis using statistical tools.", "Subtitle", PageWidth->PaperWidth,ExpressionUUID->"1c5cbeaf-101a-4717-b944-a3b6d7e7798f"], Cell[CellGroupData[{ Cell["Initialization", "Subsubsection", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10000.},ExpressionUUID->"ea33ab29-27ca-448b-add1-0cde0726f62b"], Cell["\<\ Declared styles can be used to format outputs. You do not have to use them, \ however, they might be very helpful when formatting outputs. \ \>", "Text", PageWidth->PaperWidth,ExpressionUUID->"c6f1036e-2817-4d14-be45-1e45a0479410"], Cell["\<\ \[OpenCurlyDoubleQuote]AutoCollapse[]\[CloseCurlyDoubleQuote] \[Dash] custom \ function which automatically closes the input cell. \ \>", "Text", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10001.},ExpressionUUID->"d9f28fd2-0564-423c-b3f2-8464907cc29f"], Cell["\<\ Although these optional styles and functions might be very useful, you are \ not required to use them. \ \>", "Text", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10001.},ExpressionUUID->"3dfbbb46-fd1f-4dc7-8100-fbb767277d77"], Cell["\<\ Note: the cell below is the Initialization cell that will be evaluated prior \ to evaluation of any other cell.\ \>", "Text", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10001.},ExpressionUUID->"9e9fe3fc-e01a-436b-a342-dc3b431583cc"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"AutoCollapse", "[", "]"}], ":=", RowBox[{"(", RowBox[{"If", "[", RowBox[{ RowBox[{"$FrontEnd", "=!=", "$Failed"}], ",", RowBox[{ RowBox[{"SelectionMove", "[", RowBox[{ RowBox[{"EvaluationNotebook", "[", "]"}], ",", "All", ",", "GeneratedCell"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ "FrontEndTokenExecute", "[", "\"\<SelectionCloseUnselectedCells\>\"", "]"}], ";"}]}], "]"}], ")"}]}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"TEXT", " ", "style"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"textStyle", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", "\"\<Text\>\"", ",", RowBox[{"LineIndent", "\[Rule]", "0"}], ",", RowBox[{"Hyphenation", "\[Rule]", "True"}], ",", RowBox[{"TextAlignment", "\[Rule]", "Left"}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"textBlueStyle", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", "\"\<Text\>\"", ",", "Blue", ",", RowBox[{"LineIndent", "\[Rule]", "0"}], ",", RowBox[{"Hyphenation", "\[Rule]", "True"}], ",", RowBox[{"TextAlignment", "\[Rule]", "Left"}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"textRedStyle", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", "\"\<Text\>\"", ",", "Red", ",", RowBox[{"LineIndent", "\[Rule]", "0"}], ",", RowBox[{"Hyphenation", "\[Rule]", "True"}], ",", RowBox[{"TextAlignment", "\[Rule]", "Left"}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"correctStyle", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", "\"\<Text\>\"", ",", "Red", ",", RowBox[{"LineIndent", "\[Rule]", "0"}], ",", RowBox[{"Hyphenation", "\[Rule]", "True"}], ",", RowBox[{"TextAlignment", "\[Rule]", "Left"}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"textStyle18", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", "\"\<Text\>\"", ",", "18"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"textStyle14", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", "\"\<Text\>\"", ",", "14"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"textStyle12", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", "\"\<Text\>\"", ",", "12"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"textStyle10", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", "\"\<Text\>\"", ",", "10"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"textStyle8", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", "\"\<Text\>\"", ",", "8"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"textStyle6", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", "\"\<Text\>\"", ",", "6"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"textStyle5", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", "\"\<Text\>\"", ",", "5"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"TIMES", " ", "STYLES"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"timesStyle", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", "\"\<Text\>\"", ",", "18", ",", "Bold", ",", RowBox[{"LineIndent", "\[Rule]", "0"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"times1Style", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", "\"\<Text\>\"", ",", "18", ",", "Blue", ",", RowBox[{"LineIndent", "\[Rule]", "0"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"timesStyle28", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "28", ",", RowBox[{"LineIndent", "\[Rule]", "0"}], ",", RowBox[{"Hyphenation", "\[Rule]", "True"}], ",", RowBox[{"TextAlignment", "\[Rule]", "Left"}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"timesStyle24", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "24", ",", RowBox[{"LineIndent", "\[Rule]", "0"}], ",", RowBox[{"Hyphenation", "\[Rule]", "True"}], ",", RowBox[{"TextAlignment", "\[Rule]", "Left"}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"timesStyle18", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "18", ",", RowBox[{"LineIndent", "\[Rule]", "0"}], ",", RowBox[{"Hyphenation", "\[Rule]", "True"}], ",", RowBox[{"TextAlignment", "\[Rule]", "Left"}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"timesStyle14", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "14", ",", RowBox[{"LineIndent", "\[Rule]", "0"}], ",", RowBox[{"Hyphenation", "\[Rule]", "True"}], ",", RowBox[{"TextAlignment", "\[Rule]", "Left"}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"timesStyle12", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "12", ",", RowBox[{"LineIndent", "\[Rule]", "0"}], ",", RowBox[{"Hyphenation", "\[Rule]", "True"}], ",", RowBox[{"TextAlignment", "\[Rule]", "Left"}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"timesStyle10", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "10", ",", RowBox[{"LineIndent", "\[Rule]", "0"}], ",", RowBox[{"Hyphenation", "\[Rule]", "True"}], ",", RowBox[{"TextAlignment", "\[Rule]", "Left"}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"timesStyle8", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "8", ",", RowBox[{"LineIndent", "\[Rule]", "0"}], ",", RowBox[{"Hyphenation", "\[Rule]", "True"}], ",", RowBox[{"TextAlignment", "\[Rule]", "Left"}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"timesStyle6", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "6"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"timesStyle5", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "5"}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"SLIDES", " ", "STYLES"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slideStyle", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", "\"\<Text\>\"", ",", "Bold", ",", "Blue", ",", RowBox[{"LineIndent", "\[Rule]", "0"}]}], "]"}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"slide1Style", "=", RowBox[{ RowBox[{"Style", "[", RowBox[{"#", ",", "\"\<Text\>\"", ",", "Blue", ",", RowBox[{"LineIndent", "\[Rule]", "0"}]}], "]"}], "&"}]}], ";"}]}], "Input", PageWidth->PaperWidth, CellGroupingRules->{"GroupTogetherGrouping", 10000.}, InitializationCell->True, CellLabel->"In[42]:=",ExpressionUUID->"5dccf58c-9d61-4d53-b35d-4f67fccea655"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"title1", "=", "\"\<DonQuixoteIEnglish\>\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"title2", "=", "\"\<Hamlet\>\""}], ";"}], "\[IndentingNewLine]", RowBox[{"timesStyle24", "@", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<Comparative statistical analysis of \>\"", ",", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<FullTitle\>\""}], "]"}], ",", "\"\< and \>\"", ",", ",", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title2"}], "}"}], ",", "\"\<FullTitle\>\""}], "]"}], ",", "\"\< texts.\>\""}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"AutoCollapse", "[", "]"}]}], "Input", PageWidth->PaperWidth, CellGroupingRules->{"GroupTogetherGrouping", 10000.}, InitializationCell->True, CellLabel-> "In[143]:=",ExpressionUUID->"2e096828-a6de-4768-9504-0576d0e5a211"], Cell[BoxData[ StyleBox[ TemplateBox[{ "\"Comparative statistical analysis of \"", "\"The Adventures of Don Quixote, Volume One, by Miguel de Cervantes\"", "\" and \"","","\"Hamlet, Prince of Denmark, by William Shakespeare\"", "\" texts.\""}, "RowDefault"], StripOnInput->False, TextAlignment->Left, Hyphenation->True, LineIndent->0, FontFamily->"Times", FontSize->24]], "Output", PageWidth->PaperWidth, CellLabel-> "Out[145]=",ExpressionUUID->"9caff45e-b645-4293-bd64-f1bcce476f56"] }, {2}]], Cell[TextData[{ "Source of data: texts can be loaded from Wolfram server and displayed in \ Wolfram ", StyleBox["Mathematica", FontSlant->"Italic"], " notebook as formatted text using ", StyleBox["Mathematica", FontSlant->"Italic"], " built-in function ExampleData[]" }], "Subsubtitle", PageWidth->PaperWidth,ExpressionUUID->"0961aa58-6693-4fbe-aaa7-0d1a08e55616"], Cell["2021, Spring", "Subsubtitle", PageWidth->PaperWidth,ExpressionUUID->"bd8e91f4-3d61-4055-a21d-30d3a11bb8d4"], Cell[CellGroupData[{ Cell["Project data texts:", "Section", PageWidth->PaperWidth,ExpressionUUID->"28541ebe-b37c-4c6d-ac90-ccd3875e41d0"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<\[OpenCurlyDoubleQuote]\>\"", ",", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<Title\>\""}], "]"}], ",", "\"\<\[CloseCurlyDoubleQuote]\>\"", ",", "\"\< by \>\"", ",", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<Author\>\""}], "]"}], ",", "\"\<\\nand\\n\[OpenCurlyDoubleQuote]\>\"", ",", ",", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title2"}], "}"}], ",", "\"\<Title\>\""}], "]"}], ",", "\"\<\[CloseCurlyDoubleQuote]\>\"", ",", "\"\< by \>\"", ",", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title2"}], "}"}], ",", "\"\<Author\>\""}], "]"}]}], "}"}], "]"}], "\[IndentingNewLine]", ",", "\"\<Section\>\"", ",", RowBox[{"LineIndent", "\[Rule]", "0"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"AutoCollapse", "[", "]"}]}], "Input", PageWidth->PaperWidth, InitializationCell->True, CellLabel->"In[81]:=",ExpressionUUID->"c2847e46-a2e4-4936-aab3-dfbe05e2ceb5"], Cell[BoxData[ StyleBox[ TemplateBox[{ "\"\[OpenCurlyDoubleQuote]\"","\"Don Quixote, Volume One\"", "\"\[CloseCurlyDoubleQuote]\"","\" by \"", "\"Miguel de Cervantes Saavedra\"","\"\\nand\\n\[OpenCurlyDoubleQuote]\"", "","\"Hamlet\"","\"\[CloseCurlyDoubleQuote]\"","\" by \"", "\"William Shakespeare\""}, "RowDefault"], "Section", StripOnInput->False, LineIndent->0]], "Output", PageWidth->PaperWidth, CellLabel->"Out[81]=",ExpressionUUID->"89497532-7f26-4960-9bd0-57ef80f2d03c"] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell["Subject description", "Section", PageWidth->PaperWidth,ExpressionUUID->"1689b050-84e2-4e9b-a541-d476d31e97b9"], Cell[CellGroupData[{ Cell["\[OpenCurlyDoubleQuote]Don Quixote\[CloseCurlyDoubleQuote] by Miguel de \ Cervantes (in English language)", "Subsection", PageWidth->PaperWidth,ExpressionUUID->"68f5a431-de78-413b-b409-7fe43507dd58"], Cell[BoxData[{ RowBox[{ RowBox[{"imageCervantes", "=", RowBox[{ "Import", "[", "\"\<https://upload.wikimedia.org/wikipedia/commons/0/09/Cervantes_J%C3%\ A1uregui.jpg\>\"", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Image", "[", RowBox[{"imageCervantes", ",", RowBox[{"ImageSize", "\[Rule]", " ", "100"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"AutoCollapse", "[", "]"}]}], "Input", PageWidth->PaperWidth, InitializationCell->True, CellLabel->"In[83]:=",ExpressionUUID->"39b8bb2d-1698-4f8f-96d2-4a18f31fc878"], Cell["\<\ Miguel de Cervantes Saavedra (29 September 1547 (assumed) \[Dash] 22 April \ 1616) was a Spanish writer who is widely regarded as the greatest writer in \ the Spanish language and one of the world\[CloseCurlyQuote]s preeminent \ novelists. \ \>", "Text", PageWidth->PaperWidth,ExpressionUUID->"c0eeb331-852e-41db-b7b8-91ace2ab4939"], Cell["\<\ \[OpenCurlyDoubleQuote]Don Quixote\[CloseCurlyDoubleQuote], fully titled \ \[OpenCurlyDoubleQuote]The history of the valorous and wittie Knight-Errant \ Don-Quixote of the Mancha\[CloseCurlyDoubleQuote] (\[OpenCurlyDoubleQuote]El \ Ingenioso Hidalgo Don Quijote de la Mancha\[CloseCurlyDoubleQuote]) by Miguel \ de Cervantes Saavedra was published in two volumes, in 1605 and 1615. \ \>", "Text", PageWidth->PaperWidth,ExpressionUUID->"a194a801-6827-4543-93b3-4cf88ca27e67"], Cell["\<\ Don Quixote is considered the most influential work of literature from the \ Spanish Golden Age and the entire Spanish literary canon.\ \>", "Text", PageWidth->PaperWidth,ExpressionUUID->"e8115d1f-2b25-46b4-90d4-95e34a581514"], Cell["\<\ The story follows the adventures of a hidalgo named Mr. Alonso Quixano who \ reads so many chivalric romances that he loses his sanity and decides to set \ out to revive chivalry, undo wrongs, and bring justice to the world, under \ the name Don Quixote de la Mancha. He recruits a simple farmer, Sancho Panza, \ as his squire, who often employs a unique, earthy wit in dealing with Don \ Quixote's rhetorical orations on antiquated knighthood. \ \>", "Text", PageWidth->PaperWidth,ExpressionUUID->"140e6c7a-a54b-4ddd-a292-42aa45ad7d66"], Cell["\<\ Don Quixote, in the first part of the book, does not see the world for what \ it is and prefers to imagine that he is living out a knightly story.\ \>", "Text", PageWidth->PaperWidth,ExpressionUUID->"966cab0e-4efc-4cca-8ab0-52668fd3a2a0"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Hyperlink", "[", RowBox[{ "\"\<Don Quixote on wikipedia.org\>\"", ",", " ", "\"\<https://en.wikipedia.org/wiki/Don_Quixote\>\"", ",", RowBox[{"Appearance", "\[Rule]", "\"\<Palette\>\""}]}], "]"}], "\[IndentingNewLine]", RowBox[{"AutoCollapse", "[", "]"}]}], "Input", PageWidth->PaperWidth, InitializationCell->True, CellLabel-> "In[36627]:=",ExpressionUUID->"8f6237a0-87de-4cd5-8f0d-1a4ed864ed75"], Cell[BoxData[ TemplateBox[{"\"Don Quixote on wikipedia.org\"",{ URL["https://en.wikipedia.org/wiki/Don_Quixote"], None}, "https://en.wikipedia.org/wiki/Don_Quixote","Hyperlink",{ "HyperlinkActive"},BaseStyle -> {"Hyperlink"},Appearance -> "Palette"}, "HyperlinkTemplate"]], "Output", PageWidth->PaperWidth, CellLabel-> "Out[36627]=",ExpressionUUID->"ce6b75c8-5344-4fed-99fb-794826b9321c"] }, {2}]], Cell[BoxData[{ RowBox[{ RowBox[{"imageDQ", "=", RowBox[{ "Import", "[", "\"\<https://upload.wikimedia.org/wikipedia/commons/d/d8/El_ingenioso_\ hidalgo_don_Quijote_de_la_Mancha.jpg\>\"", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Image", "[", RowBox[{"imageDQ", ",", RowBox[{"ImageSize", "\[Rule]", " ", "200"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"AutoCollapse", "[", "]"}]}], "Input", PageWidth->PaperWidth, InitializationCell->True, CellLabel->"In[86]:=",ExpressionUUID->"c7d4aeee-1f47-4660-9eec-de9ba19ebb77"] }, Open ]], Cell[CellGroupData[{ Cell["\[OpenCurlyDoubleQuote]Hamlet\[CloseCurlyDoubleQuote] by William \ Shakespeare", "Subsection", PageWidth->PaperWidth,ExpressionUUID->"c5e338ff-c8bf-412f-99b0-d6af2e92eaa4"], Cell[BoxData[{ RowBox[{ RowBox[{"imageShakespeare", "=", RowBox[{ "Import", "[", "\"\<https://upload.wikimedia.org/wikipedia/commons/a/a2/Shakespeare.jpg\>\ \"", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Image", "[", RowBox[{"imageShakespeare", ",", RowBox[{"ImageSize", "\[Rule]", " ", "100"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"AutoCollapse", "[", "]"}]}], "Input", PageWidth->PaperWidth, InitializationCell->True, CellLabel->"In[89]:=",ExpressionUUID->"3d01150a-c2db-45d1-b7a5-38434723d53a"], Cell["\<\ William Shakespeare (26 April 1564 \[Dash] 23 April 1616) was an English \ poet, playwright and actor, widely regarded as the greatest writer in the \ English language and the world\[CloseCurlyQuote]s greatest dramatist. He is \ often called England\[CloseCurlyQuote]s national poet and the \ \[OpenCurlyDoubleQuote]Bard of Avon\[CloseCurlyDoubleQuote]. His extant \ works, including collaborations, consist of approximately 39 plays, 154 \ sonnets, two long narrative poems, and a few other verses, some of uncertain \ authorship. His plays have been translated into every major living language \ and are performed more often than those of any other playwright.\ \>", "Text", PageWidth->PaperWidth,ExpressionUUID->"b6888388-9502-42c1-b8bb-1ca86088568f"], Cell["\<\ \[OpenCurlyDoubleQuote]The Tragedy of Hamlet, Prince of Denmark\ \[CloseCurlyDoubleQuote], often shortened to \[OpenCurlyDoubleQuote]Hamlet\ \[CloseCurlyDoubleQuote] (/\:02c8h\[AE]ml\:026at/), is a tragedy written by \ William Shakespeare at an uncertain date between 1599 and 1602. Hamlet is \ Shakespeare\[CloseCurlyQuote]s longest play, and is among the most powerful \ and influential tragedies in English literature. [https://en.wikipedia.org/wiki/Hamlet]\ \>", "Text", PageWidth->PaperWidth,ExpressionUUID->"b75517b1-7550-4e56-8989-ddfe6ea98fdf"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Hyperlink", "[", RowBox[{ "\"\<Hamlet on wikipedia.org\>\"", ",", " ", "\"\<https://en.wikipedia.org/wiki/Hamlet\>\"", ",", RowBox[{"Appearance", "\[Rule]", "\"\<Palette\>\""}]}], "]"}], "\[IndentingNewLine]", RowBox[{"AutoCollapse", "[", "]"}]}], "Input", PageWidth->PaperWidth, InitializationCell->True, CellLabel->"In[45]:=",ExpressionUUID->"d1ab3cee-eaf5-43bc-a822-5547ca4d2dbb"], Cell[BoxData[ TemplateBox[{"\"Hamlet on wikipedia.org\"",{ URL["https://en.wikipedia.org/wiki/Hamlet"], None}, "https://en.wikipedia.org/wiki/Hamlet","Hyperlink",{"HyperlinkActive"}, BaseStyle -> {"Hyperlink"},Appearance -> "Palette"}, "HyperlinkTemplate"]], "Output", PageWidth->PaperWidth, CellLabel->"Out[45]=",ExpressionUUID->"34bd3f8c-041f-4b1d-a8e7-29ac02cccd43"] }, {2}]], Cell["\<\ The play, set in Denmark, recounts how Prince Hamlet exacts revenge on his \ uncle Claudius, who has murdered Hamlet\[CloseCurlyQuote]s father, the King, \ and then taken the throne and married Hamlet\[CloseCurlyQuote]s mother. The \ play vividly charts the course of real and feigned madness\[LongDash]from \ overwhelming grief to seething rage\[LongDash]and explores themes of \ treachery, revenge, incest, and moral corruption. [https://en.wikisource.org/wiki/The_Tragedy_of_Hamlet,_Prince_of_Denmark]\ \>", "Text", PageWidth->PaperWidth,ExpressionUUID->"efc92163-66c1-4685-bce4-5c08d1db9c4d"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Hyperlink", "[", RowBox[{ "\"\<Hamlet on wikisource.org\>\"", ",", " ", "\"\<https://en.wikisource.org/wiki/The_Tragedy_of_Hamlet,_Prince_of_\ Denmark\>\"", ",", RowBox[{"Appearance", "\[Rule]", "\"\<Palette\>\""}]}], "]"}], "\[IndentingNewLine]", RowBox[{"AutoCollapse", "[", "]"}]}], "Input", PageWidth->PaperWidth, InitializationCell->True, CellLabel->"In[47]:=",ExpressionUUID->"d8c11638-573d-48b8-85dd-8b05cc6bfab6"], Cell[BoxData[ TemplateBox[{"\"Hamlet on wikisource.org\"",{ URL["https://en.wikisource.org/wiki/The_Tragedy_of_Hamlet,_Prince_of_\ Denmark"], None}, "https://en.wikisource.org/wiki/The_Tragedy_of_Hamlet,_Prince_of_Denmark", "Hyperlink",{"HyperlinkActive"},BaseStyle -> {"Hyperlink"},Appearance -> "Palette"}, "HyperlinkTemplate"]], "Output", PageWidth->PaperWidth, CellLabel->"Out[47]=",ExpressionUUID->"66a3e345-b9a3-4ae2-b367-08b865e102db"] }, {2}]], Cell[BoxData[{ RowBox[{ RowBox[{"imageHamlet", "=", RowBox[{ "Import", "[", "\"\<http://www.theateronline.com/headshot/40760_A.JPG\>\"", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Image", "[", RowBox[{"imageHamlet", ",", RowBox[{"ImageSize", "\[Rule]", " ", "200"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"AutoCollapse", "[", "]"}]}], "Input", PageWidth->PaperWidth, InitializationCell->True, CellLabel->"In[92]:=",ExpressionUUID->"2e99947a-5e1c-4d16-b924-bed3ea045111"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source of text data", "Section", PageWidth->PaperWidth,ExpressionUUID->"5db2c504-895b-4ecc-b421-3a17e080e80e"], Cell[CellGroupData[{ Cell[TextData[{ "Subject texts are available in Wolfram ", StyleBox["Mathematica", FontSlant->"Italic"], " and can be retrieved using built-in function ExampleData[]" }], "Item", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10001.},ExpressionUUID->"07277d9b-5635-4093-88ed-7d8056a9e781"], Cell[BoxData[ RowBox[{"?", "ExampleData"}]], "Input", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10001.},ExpressionUUID->"76c33547-7395-4dcd-991b-8e313d74c187"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Texts can be loaded and displayed in ", StyleBox["Mathematica", FontSlant->"Italic"], " notebook as formatted text" }], "Item", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10000.},ExpressionUUID->"4def5d46-89b2-4fbc-86d8-84c08f4cba4e"], Cell[BoxData[{ RowBox[{ RowBox[{"formattedText1", "=", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<FormattedText\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"formattedText2", "=", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title2"}], "}"}], ",", "\"\<FormattedText\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"textStyle", "@", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<Title\>\""}], "]"}], ",", RowBox[{"Panel", "@", RowBox[{"Pane", "[", RowBox[{"formattedText1", ",", " ", RowBox[{"{", RowBox[{"Automatic", ",", " ", "150"}], "}"}], ",", " ", RowBox[{"Scrollbars", " ", "->", " ", "True"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title2"}], "}"}], ",", "\"\<Title\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Panel", "@", RowBox[{"Pane", "[", RowBox[{"formattedText2", ",", " ", RowBox[{"{", RowBox[{"Automatic", ",", " ", "150"}], "}"}], ",", " ", RowBox[{"Scrollbars", " ", "->", " ", "True"}]}], "]"}]}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"AutoCollapse", "[", "]"}]}], "Input", PageWidth->PaperWidth, CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellLabel-> "In[1286]:=",ExpressionUUID->"0c88c248-639f-4f41-9537-f9a4d1f3d21a"] }, Open ]], Cell[TextData[{ "Note: find more information about ExampleData[] function in ", StyleBox["Mathematica", FontSlant->"Italic"], " help." }], "Text", PageWidth->PaperWidth,ExpressionUUID->"5b40461e-dbf6-4bdd-bc2b-a51dba6b2833"] }, Open ]], Cell[CellGroupData[{ Cell["Project topic description", "Section", PageWidth->PaperWidth,ExpressionUUID->"9586a62f-9eed-4745-8f4b-fedf2695ace1"], Cell["\<\ More details on project description and structure can be found in the Module: \ Project \[OpenCurlyDoubleQuote]Data analysis using statistical tools\ \[CloseCurlyDoubleQuote].\ \>", "Text", PageWidth->PaperWidth,ExpressionUUID->"ba5bfa3d-0ac3-4dac-8d29-c1d001f12fca"], Cell["Your project paper may include the following items. ", "Subsection", PageWidth->PaperWidth,ExpressionUUID->"65375e8c-5ad6-4bbc-87a3-32871d58ba03"], Cell["\<\ However, don\[CloseCurlyQuote]t limit yourself to shown below suggested \ sections, be creative.\ \>", "Text", PageWidth->PaperWidth,ExpressionUUID->"4c0fdb0a-5ae9-45bf-a94c-2503288877c1"], Cell["\<\ Describe the project subject, the conditions under which the data were \ collected, the structure of the data, how the results were analyzed.\ \>", "Item", PageWidth->PaperWidth,ExpressionUUID->"c0fbc64c-6bcb-46bf-b92b-e84e288ccfbb"], Cell[CellGroupData[{ Cell["\<\ Justify the importance of analysis of given texts. Why do we need to perform \ such analysis? How such analysis can help us to gain new knowledge?\ \>", "Item", PageWidth->PaperWidth,ExpressionUUID->"fb6da3ff-3aaf-4430-b66d-a3ebd8aef32d"], Cell["\<\ Describe the project subject, the conditions under which the data were \ collected, the structure of the data, limitations, instruments used. Define \ the populations.\ \>", "Item", PageWidth->PaperWidth,ExpressionUUID->"6fe0e284-d9f7-4be4-9893-5eed67d16376"], Cell[CellGroupData[{ Cell["\<\ Generate arrays with text strings, words, and word string lengths for given \ texts. \ \>", "Item", PageWidth->PaperWidth,ExpressionUUID->"6e4ca49d-95be-43dc-9d30-5a0b991be063"], Cell["\<\ Attempt to exclude special characters, like punctuation symbols, from the \ text string for the purpose of more accurate statistical analysis.\ \>", "Item", PageWidth->PaperWidth,ExpressionUUID->"c002cf3d-5a8e-4087-808d-09465b1ed72b"], Cell["\<\ Analyze the presence of stop-words in the texts and the need of their removal.\ \>", "Item", PageWidth->PaperWidth,ExpressionUUID->"1a135727-bd03-4d45-9ead-86988596e0c3"], Cell[TextData[{ "Compose arrays with ", StyleBox["relevant", FontVariations->{"Underline"->True}], " information for both texts. " }], "Item", PageWidth->PaperWidth,ExpressionUUID->"464482c8-c71c-44b6-b8af-959812242f9a"], Cell[TextData[{ "Provide all ", StyleBox["relevant", FontVariations->{"Underline"->True}], " statistical and graphical summaries describing both texts. It is advisable \ to place the statistics in easily readable tables." }], "Item", PageWidth->PaperWidth,ExpressionUUID->"3fc9549e-a8a5-4858-ba71-807328ef962b"], Cell["\<\ Make side by side statistical comparison of the texts under study.\ \>", "Item", PageWidth->PaperWidth,ExpressionUUID->"d8e84f1d-93bb-46ef-a4b1-5e473f2a8eef"], Cell["\<\ Compare distributions with at several standard continuous and discrete \ distribution models of your choice (for example, probability density \ functions of Binomial, Rayleigh, extreme values, Gumbel, normal distributions \ etc.). Find which model gives better approximation of sample data \ distribution using corresponding probability plots.\ \>", "Item", PageWidth->PaperWidth,ExpressionUUID->"009c02c5-cc6f-49e2-a52a-e6b031f2fc07"], Cell["\<\ Extract random set of words (simple random sample) of size \[LessSlantEqual] \ 5% out of the entire set of words in original books (your population). Do \ your sample word string length distribution statistics correctly represent \ the entire population parameters? How confident can you be that the simple \ random sample word string length mean correctly represents the population \ mean? Learn the concept of \[OpenCurlyDoubleQuote]Confidence Interval\ \[CloseCurlyDoubleQuote] and use it to describe how accurately the sample can \ represent the entire population (original text).\ \>", "Item", PageWidth->PaperWidth,ExpressionUUID->"ca69e5dd-8e91-4afd-91ae-9091fa4ca0c8"], Cell[TextData[{ "Compare word string length distribution in both texts with distribution of \ word string length in corresponding dictionaries (", StyleBox["Mathematica", FontSlant->"Italic"], " function \[OpenCurlyDoubleQuote]DictionaryLookup[]\[CloseCurlyDoubleQuote] \ provides information about various dictionaries)" }], "Item", PageWidth->PaperWidth,ExpressionUUID->"bd73c95e-f912-46f0-a602-e198f52b632e"], Cell["\<\ Thoroughly explain what the main sources of your error are and how you would \ correct them.\ \>", "Item", PageWidth->PaperWidth,ExpressionUUID->"1c1a7740-8b9f-44bd-8807-8e99427e1746"], Cell["\<\ Provide comprehensive explanations of every step, and interpret in details \ the meaning of the results.\ \>", "Item", PageWidth->PaperWidth,ExpressionUUID->"6666a420-1c75-468b-9b23-155033b941f8"], Cell["\<\ What valuable conclusions can you make based on results of each step of your \ statistical analysis of the data?\ \>", "Item", PageWidth->PaperWidth,ExpressionUUID->"a1094923-6e8a-49e5-923b-ac3499c031d4"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Help, tips and examples", "Section", PageWidth->PaperWidth,ExpressionUUID->"59e1cc4c-0508-4f72-9546-75e9fd0af8e3"], Cell[TextData[{ "You can find below few scripts which may ", StyleBox["help you to get an idea of how to load and manipulate data and how \ to extract needed parts of the set based on selected criteria", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], ". " }], "Text", PageWidth->PaperWidth,ExpressionUUID->"375d092f-1e44-4d12-bf5e-bd850b8504e0"], Cell["\<\ These examples are given for illustration purposes only. You can use them, \ but make sure to modify them to meet your ideas. Be creative.\ \>", "Text", PageWidth->PaperWidth,ExpressionUUID->"250425b0-1f99-48ac-b98b-fb0f03d0c111"], Cell["\<\ Note, shown below examples were given here to illustrate how data can be \ technically manipulated. They may not be considered as a solution or as a \ part of the solution. \ \>", "Text", PageWidth->PaperWidth,ExpressionUUID->"1fb5bc24-d771-4d0a-a603-3b31ae1e6f7e"], Cell["\<\ You don\[CloseCurlyQuote]t have to necessarily use them, but you have to come \ up with your own way of data manipulation and analysis.\ \>", "Text", PageWidth->PaperWidth,ExpressionUUID->"f5a2f390-a2b0-4edf-b1aa-fc2878126f7c"], Cell[CellGroupData[{ Cell["\[WarningSign] Important message", "Subsubsection", PageWidth->PaperWidth,ExpressionUUID->"072ade48-6fa4-44a0-856c-18b41bc8b2c3"], Cell["\<\ This helpful examples are shown for informative purposes only. \ \>", "Subitem", PageWidth->PaperWidth,ExpressionUUID->"d212281e-97bb-44d2-879a-2565d184bf0d"], Cell["\<\ The examples should be considered as help when starting a project.\ \>", "Subitem", PageWidth->PaperWidth,ExpressionUUID->"e34039d3-7b2e-48d0-b956-437a8098dc43"], Cell["\<\ Some examples below show how data can be manipulated and prepared for further \ statistical analysis.\ \>", "Subitem", PageWidth->PaperWidth,ExpressionUUID->"5e5a64b4-91d9-469c-8905-58a69e761405"], Cell[TextData[{ "These examples can be used in the project if needed, but this is ", StyleBox["absolutely not enough", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], " for successful project report." }], "Text", PageWidth->PaperWidth,ExpressionUUID->"c7daf091-8a88-424f-bdd5-a3aae8be0595"] }, Open ]], Cell[CellGroupData[{ Cell["Open grouped cells below to see examples:", "Subsubsection", PageWidth->PaperWidth,ExpressionUUID->"f7b156db-ae4b-4be6-a559-ed0acce6daed"], Cell[CellGroupData[{ Cell["Example: available properties of the example text", "ItemNumbered", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10000.},ExpressionUUID->"62c73e10-7c9f-41cf-9606-3703de24858d"], Cell["\<\ Text properties can be retrieved and then used in the report.\ \>", "Text",ExpressionUUID->"50c18cff-9e63-4950-94b0-d8f752e096da"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "dysplay", " ", "properties", " ", "of", " ", "the", " ", "texts"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"textStyle", "@", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"textBlueStyle", "@", "\"\<Text properties:\>\""}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{ RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<Properties\>\""}], "]"}], ",", "\"\< | \>\""}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"textBlueStyle", "@", "\"\<Text No.1\>\""}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<Text title: \>\"", ",", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<Title\>\""}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<Text language: \>\"", ",", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<Language\>\""}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<Text author: \>\"", ",", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<Author\>\""}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"textBlueStyle", "@", "\"\<Text No.2\>\""}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<Text title: \>\"", ",", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title2"}], "}"}], ",", "\"\<Title\>\""}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<Text language: \>\"", ",", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title2"}], "}"}], ",", "\"\<Language\>\""}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<Text author: \>\"", ",", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title2"}], "}"}], ",", "\"\<Author\>\""}], "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}]}]], "Input", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10000.},ExpressionUUID->"fccf629c-2d6e-43d6-867a-22f891e07beb"] }, Closed]], Cell[CellGroupData[{ Cell["Example: word counts in each text", "ItemNumbered", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10001.},ExpressionUUID->"472ca743-22a8-4fd7-999b-aa824e49f0b7"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "load", " ", "text", " ", "as", " ", "a", " ", "list", " ", "of", " ", "words"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wordsText1", "=", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<Words\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"wordsText2", "=", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title2"}], "}"}], ",", "\"\<Words\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "count", " ", "numer", " ", "of", " ", "all", " ", "words", " ", "in", " ", "each", " ", "text"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"words1", "=", RowBox[{"Length", "[", "wordsText1", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"words2", "=", RowBox[{"Length", "[", "wordsText2", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"display", " ", "information"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"textBlueStyle", "@", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<Number of words in \>\"", ",", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<Title\>\""}], "]"}], ",", "\"\< is \>\"", ",", RowBox[{"textRedStyle", "@", "words1"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<Number of words in \>\"", ",", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title2"}], "}"}], ",", "\"\<Title\>\""}], "]"}], ",", "\"\< is \>\"", ",", RowBox[{"textRedStyle", "@", "words2"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"AutoCollapse", "[", "]"}], " ", RowBox[{"(*", " ", RowBox[{"collaps", " ", "input", " ", "cell"}], " ", "*)"}]}]}]], "Input",\ PageWidth->PaperWidth, CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellLabel-> "In[128]:=",ExpressionUUID->"9d910918-a969-4c7d-aa9f-5703cf4a997a"] }, Closed]], Cell[CellGroupData[{ Cell["Example of both texts as a list of words", "ItemNumbered", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10002.},ExpressionUUID->"7e451349-0812-4a44-ad26-daf52d65bc23"], Cell["The texts as a list of words can now be inspected visually. ", "Text", PageWidth->PaperWidth,ExpressionUUID->"47ea19b9-f6e8-41ef-bf11-e9c54655eff3"], Cell[TextData[{ "When reviewing texts, it becomes clear that some words contain ", StyleBox["punctuation", FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], " marks \[Dash] they must be removed for proper analysis." }], "Text", PageWidth->PaperWidth,ExpressionUUID->"2ba0016e-9a30-4ae8-a0b9-53dcd983769d"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "display", " ", "texts", " ", "as", " ", "a", " ", "list", " ", "of", " ", "words"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"textStyle", "@", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<Title\>\""}], "]"}], ",", RowBox[{"textStyle10", "@", RowBox[{"Pane", "[", RowBox[{"wordsText1", ",", " ", RowBox[{"{", RowBox[{"Automatic", ",", " ", "150"}], "}"}], ",", " ", RowBox[{"Scrollbars", " ", "->", " ", "True"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title2"}], "}"}], ",", "\"\<Title\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"textStyle10", "@", RowBox[{"Pane", "[", RowBox[{"wordsText2", ",", " ", RowBox[{"{", RowBox[{"Automatic", ",", " ", "150"}], "}"}], ",", " ", RowBox[{"Scrollbars", " ", "->", " ", "True"}]}], "]"}]}]}], "\[IndentingNewLine]", "}"}], "]"}]}]}]], "Input", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10002.},ExpressionUUID->"a9dcc560-918d-461f-94e1-2832855fd607"] }, Closed]], Cell[CellGroupData[{ Cell["Example of both texts as a string", "ItemNumbered", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10003.},ExpressionUUID->"e6ca35f6-01a4-4637-9027-57c7715c053a"], Cell["Text can be also loaded as a string.", "Text", PageWidth->PaperWidth,ExpressionUUID->"518c28c5-1b13-47d4-a996-b8f8e1274d58"], Cell["It takes several seconds", "Text", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10003.},ExpressionUUID->"d644e858-bf0c-44fd-bd1b-9dab7ec92cb5"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"display", " ", "text", " ", "as", " ", "a", " ", "string"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"stringText1", "=", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<String\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"stringText2", "=", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title2"}], "}"}], ",", "\"\<String\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"textStyle", "@", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<Title\>\""}], "]"}], ",", RowBox[{"textStyle10", "@", RowBox[{"Pane", "[", RowBox[{"stringText1", ",", " ", RowBox[{"{", RowBox[{"Automatic", ",", " ", "150"}], "}"}], ",", " ", RowBox[{"Scrollbars", " ", "->", " ", "True"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title2"}], "}"}], ",", "\"\<Title\>\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"textStyle10", "@", RowBox[{"Pane", "[", RowBox[{"stringText2", ",", " ", RowBox[{"{", RowBox[{"Automatic", ",", " ", "150"}], "}"}], ",", " ", RowBox[{"Scrollbars", " ", "->", " ", "True"}]}], "]"}]}]}], "\[IndentingNewLine]", "}"}], "]"}]}]}]}]], "Input", PageWidth->PaperWidth, CellGroupingRules->{"GroupTogetherGrouping", 10003.}, CellLabel-> "In[106]:=",ExpressionUUID->"e41d95ef-3f76-4c8f-b965-23cee85cd791"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "In Wolfram ", StyleBox["Mathematica", FontSlant->"Italic"], " v.11, 12, punctuation characters are defined in built-in variable \ \[OpenCurlyDoubleQuote]PunctuationCharacter\[CloseCurlyDoubleQuote]" }], "ItemNumbered", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10002.},ExpressionUUID->"0ebba92a-7ced-43ea-b3e8-76882d932ca7"], Cell["\<\ Note that for adequate analysis, such words or symbols like \ \[OpenCurlyDoubleQuote]*\[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]_\ \[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]\[Dash]\ \[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]\[TripleDot]\ \[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]\[Section]\ \[CloseCurlyDoubleQuote], \[OpenCurlyDoubleQuote]?\[CloseCurlyDoubleQuote], \ \[OpenCurlyDoubleQuote]--\[OpenCurlyDoubleQuote], etc. have to be removed \ from the plain text.\ \>", "Text", PageWidth->PaperWidth,ExpressionUUID->"028f8b46-1524-4ae5-ad5e-701fa2a27c19"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"display", " ", "punctuation", " ", "characters"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Flatten", "@", RowBox[{"StringCases", "[", RowBox[{ RowBox[{"CharacterRange", "[", RowBox[{"1", ",", "256"}], "]"}], ",", "PunctuationCharacter"}], "]"}]}]}]], "Input", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10002.},ExpressionUUID->"9d44ee5c-2aaf-4610-80e2-dda0aa81b861"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Example: The following function can be used to search for a specific \ character code.\ \>", "ItemNumbered", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10001.},ExpressionUUID->"c835aee8-bf21-4fe9-b481-8d7a42a3297b"], Cell["\<\ It allows you to create custom list of punctuation characters you want to \ remove from the text.\ \>", "Text", PageWidth->PaperWidth,ExpressionUUID->"c29034ad-5304-4553-b10f-7d09192b1af5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "search", " ", "for", " ", "specific", " ", "character", " ", "code"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"ToCharacterCode", "[", RowBox[{"{", RowBox[{ "\"\<\[DownExclamation]\>\"", ",", "\"\<\[AAcute]\>\"", ",", "\"\<\[EAcute]\>\"", ",", "\"\<\[UAcute]\>\"", ",", "\"\<\[NTilde]\>\""}], "}"}], "]"}]}]], "Input", PageWidth->PaperWidth, CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellLabel-> "In[110]:=",ExpressionUUID->"8b2486a0-1792-4b6d-8e5c-e2543f56a9bf"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "161", "}"}], ",", RowBox[{"{", "225", "}"}], ",", RowBox[{"{", "233", "}"}], ",", RowBox[{"{", "250", "}"}], ",", RowBox[{"{", "241", "}"}]}], "}"}]], "Output", PageWidth->PaperWidth, CellLabel-> "Out[110]=",ExpressionUUID->"7712de51-4780-4eb3-8c03-b4d5950ddf9e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Example: The following function can be used to search for the character \ corresponding to its code.\ \>", "ItemNumbered", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10000.},ExpressionUUID->"5210e6f6-8935-43ce-bc93-db671d85c724"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "sdisplay", " ", "character", " ", "with", " ", "specified", " ", "code"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"FromCharacterCode", "[", RowBox[{"{", RowBox[{"161", ",", "225", ",", "241"}], "}"}], "]"}]}]], "Input", PageWidth->PaperWidth, CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellLabel-> "In[113]:=",ExpressionUUID->"e570e447-3a91-4de5-b3d0-95291030078d"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ An example of a manually constructed string of selected punctuation \ characters: \[OpenCurlyDoubleQuote]punctuationString\[CloseCurlyDoubleQuote]\ \>", "ItemNumbered", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10001.},ExpressionUUID->"8c9f7d9c-aeb4-4530-a11c-21e427e410a0"], Cell["\<\ Note: more special characters may be added to \ \[OpenCurlyDoubleQuote]punctuationString\[CloseCurlyDoubleQuote]\ \>", "Text", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10001.},ExpressionUUID->"022c0761-464e-48aa-b38c-6b9e99f31aba"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"construct", " ", "custom", " ", "\"\<punctuationString\>\""}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"punctuationCodes", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"32", ",", "47"}], "]"}], ",", RowBox[{"Range", "[", RowBox[{"58", ",", "64"}], "]"}], ",", RowBox[{"Range", "[", RowBox[{"91", ",", "96"}], "]"}], ",", RowBox[{"Range", "[", RowBox[{"8210", ",", "8212"}], "]"}], ",", RowBox[{"Range", "[", RowBox[{"8220", ",", "8221"}], "]"}], ",", RowBox[{"{", "8230", "}"}], ",", RowBox[{"{", "124", "}"}], ",", RowBox[{"{", "126", "}"}], ",", RowBox[{"{", "161", "}"}], ",", RowBox[{"{", "167", "}"}], ",", RowBox[{"{", "177", "}"}], ",", RowBox[{"{", "171", "}"}], ",", RowBox[{"{", "187", "}"}], ",", RowBox[{"{", "191", "}"}], ",", RowBox[{"{", "10", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"punctuationString", "=", RowBox[{ "FromCharacterCode", "[", "punctuationCodes", "]"}]}]}]}]], "Input", PageWidth->PaperWidth, CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellLabel-> "In[114]:=",ExpressionUUID->"18140d37-6611-4019-b62a-04fdd40c5b1c"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Example: content of variable with punctuation characters: \ \[OpenCurlyDoubleQuote]punctuation\[CloseCurlyDoubleQuote]\ \>", "ItemNumbered", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10000.},ExpressionUUID->"1bc0447f-151c-438d-b7c8-bef4993ec121"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"display", " ", "custom", " ", "\"\<punctuationString\>\""}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"punctuation", "=", RowBox[{"Alternatives", "@@", RowBox[{"Characters", "[", "punctuationString", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"textStyle", "@", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\<Variable with punctuation characters: \>\"", ",", "punctuation"}], "}"}], "]"}]}]}]}]], "Input", PageWidth->PaperWidth, CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellLabel-> "In[118]:=",ExpressionUUID->"fe9a8659-e6ac-459c-9314-0b5dcc82d812"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Example: remove some punctuation characters from \ \[OpenCurlyDoubleQuote]stringText1\[CloseCurlyDoubleQuote] and convert the \ string to the list of individual words\ \>", "ItemNumbered", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10001.},ExpressionUUID->"6df460c2-78f9-41cb-b266-4d57a0640ce7"], Cell["\<\ Visually inspect the output and compare it to the original text shown as a \ list of words.\ \>", "Text", PageWidth->PaperWidth,ExpressionUUID->"f9c330b6-77ad-42e4-b489-337db1568217"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "remove", " ", "some", " ", "punctuation", " ", "characters", " ", "from", " ", "\"\<stringText1\>\"", " ", "and", " ", "break", " ", "the", " ", "string", " ", "into", " ", "individual", " ", "words"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"stringTextCorrected1", "=", RowBox[{"StringSplit", "[", RowBox[{"StringReplace", "[", RowBox[{"stringText1", ",", RowBox[{"punctuation", "\[RuleDelayed]", RowBox[{"FromCharacterCode", "[", "32", "]"}]}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"textStyle", "@", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<Title\>\""}], "]"}], ",", RowBox[{"Panel", "@", RowBox[{"Pane", "[", RowBox[{"stringTextCorrected1", ",", " ", RowBox[{"{", RowBox[{"Automatic", ",", " ", "150"}], "}"}], ",", " ", RowBox[{"Scrollbars", " ", "->", " ", "True"}]}], "]"}]}]}], "\[IndentingNewLine]", "}"}], "]"}]}]}]}]], "Input", PageWidth->PaperWidth, CellGroupingRules->{"GroupTogetherGrouping", 10001.}, CellLabel-> "In[120]:=",ExpressionUUID->"2a2b2d29-f4cf-476c-9475-139da1720053"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Example: find word lengths and compose list of those for text1 with \ punctuation characters removed\ \>", "ItemNumbered", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10000.},ExpressionUUID->"71948e31-185c-48aa-b3c1-3f3c4c9094fd"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "convert", " ", "the", " ", "list", " ", "of", " ", "words", " ", "to", " ", "the", " ", "list", " ", "of", " ", "word", " ", "lengths"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wordNumberText1", "=", RowBox[{"Length", "[", "stringTextCorrected1", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"wordLengthText1", "=", RowBox[{"StringLength", "[", "stringTextCorrected1", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"textStyle", "@", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<Number of words in \>\"", ",", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<Title\>\""}], "]"}], ",", "\"\< is \>\"", ",", "wordNumberText1"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<List of word lengths in \>\"", ",", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<Title\>\""}], "]"}], ",", "\"\< is \>\""}], "}"}], "]"}], ",", RowBox[{"Panel", "@", RowBox[{"Pane", "[", RowBox[{"wordLengthText1", ",", " ", RowBox[{"{", RowBox[{"Automatic", ",", " ", "150"}], "}"}], ",", " ", RowBox[{"Scrollbars", " ", "->", " ", "True"}]}], "]"}]}]}], "\[IndentingNewLine]", "}"}], "]"}]}]}]}]], "Input", PageWidth->PaperWidth, CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellLabel-> "In[122]:=",ExpressionUUID->"0178f548-594c-48c1-9986-03398e59dc7d"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Example: find frequency of the first characters in a word and plot them\ \>", "ItemNumbered", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10001.},ExpressionUUID->"d93abaa8-8887-49ea-9a41-3a4c632d1b96"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "frequency", " ", "of", " ", "the", " ", "first", " ", "characters", " ", "in", " ", "a", " ", "word"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"BarChart", "[", RowBox[{ RowBox[{"Counts", "[", RowBox[{"Sort", "[", RowBox[{"StringTake", "[", RowBox[{"stringTextCorrected1", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"ChartLabels", "\[Rule]", "Automatic"}], ",", RowBox[{"LabelingFunction", "\[Rule]", "Above"}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{ "textStyle", "@", "\"\<Frequency of the first characters\>\""}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<First character in a word\>\"", ",", "\"\<Counts\>\""}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "Full"}]}], "]"}]}]], "Input", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10001.},ExpressionUUID->"dbfb684a-8970-46f3-a1f2-d1a3f1b2216c"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Example of histogram (with bin width = 2) of word length distribution in text1\ \>", "ItemNumbered", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10000.},ExpressionUUID->"c1e10b58-77cf-4618-9687-0f96378c9f0d"], Cell[CellGroupData[{ Cell["Histogram with absolute counts", "Subitem", PageWidth->PaperWidth,ExpressionUUID->"40f431fb-dd3e-480a-b914-863295480678"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Histogram", " ", "with", " ", "absolute", " ", "frequency"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Histogram", "[", RowBox[{"wordLengthText1", ",", RowBox[{"{", "2", "}"}], ",", RowBox[{"LabelingFunction", "\[Rule]", "Above"}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"textStyle", "@", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<Word length distribution in \>\"", ",", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<Title\>\""}], "]"}]}], "}"}], "]"}]}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<Word length\>\"", ",", "\"\<Word counts\>\""}], "}"}]}]}], "]"}]}]], "Input", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10000.},ExpressionUUID->"1bd1ae64-3a75-4615-a447-9ef4b30a53c3"] }, Open ]], Cell[CellGroupData[{ Cell["Histogram with relative counts", "Subitem", PageWidth->PaperWidth,ExpressionUUID->"3111c65b-1ce3-4b90-ae03-de5c7c561c0d"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Histogram", " ", "with", " ", "relative", " ", "frequency"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Histogram", "[", RowBox[{"wordLengthText1", ",", RowBox[{"{", "2", "}"}], ",", "\"\<Probability\>\"", ",", RowBox[{"LabelingFunction", "\[Rule]", "Above"}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"textStyle", "@", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<Word length distribution in \>\"", ",", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<Title\>\""}], "]"}]}], "}"}], "]"}]}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<Word length\>\"", ",", "\"\<Relative word counts\>\""}], "}"}]}]}], "]"}]}]], "Input", PageWidth->PaperWidth,ExpressionUUID->"660d0fd2-1acc-44df-a52c-0e1128ef24fa"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Example: average length of words in each text", "ItemNumbered", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10001.},ExpressionUUID->"e6406bd8-e7f6-4d22-9993-638a22e94fa3"], Cell[BoxData[{ RowBox[{ RowBox[{"meanText1", "=", RowBox[{"Mean", "[", "wordLengthText1", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"textBlueStyle", "@", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<Average length of words in \>\"", ",", RowBox[{"ExampleData", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", "title1"}], "}"}], ",", "\"\<Title\>\""}], "]"}], ",", "\"\< is \>\"", ",", RowBox[{"textRedStyle", "@", RowBox[{"Round", "[", RowBox[{"meanText1", ",", "0.01"}], "]"}]}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"AutoCollapse", "[", "]"}]}], "Input", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10001.},ExpressionUUID->"99e79181-1ead-4b13-8f00-1180439706fc"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Example: Bigram transitional probability from one to another character.\ \>", "ItemNumbered", PageWidth->PaperWidth, CellGroupingRules->{ "GroupTogetherGrouping", 10001.},ExpressionUUID->"6f677cf3-12ae-43d6-9dcd-8852c1f9a50b"], Cell["\<\ A bigram is a sequence of two adjacent elements from a string of tokens, \ which are typically letters, syllables, or words.\ \>", "Text", PageWidth->PaperWidth,ExpressionUUID->"dde4ccf5-ad63-4888-8542-21d5c176e0b9"], Cell["The bigram matrix plot is a kind of text fingerprint.", "Text", PageWidth->PaperWidth,ExpressionUUID->"f254d39f-ed20-4e9f-9ea5-69f3bc57e105"], Cell[BoxData[{ RowBox[{ RowBox[{"text1Lower", "=", RowBox[{"ToLowerCase", "@", "stringText1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"text1Unique", "=", RowBox[{"Union", "@", RowBox[{"Characters", "@", "text1Lower"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"text1Bigram", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"StringCount", "[", RowBox[{"text1Lower", ",", RowBox[{"pre", "~~", "pro"}]}], "]"}], "/", RowBox[{"StringCount", "[", RowBox[{"text1Lower", ",", "pre"}], "]"}]}], ",", RowBox[{"{", RowBox[{"pre", ",", "text1Unique"}], "}"}], ",", RowBox[{"{", RowBox[{"pro", ",", "text1Unique"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Labeled", "[", RowBox[{ RowBox[{"MatrixPlot", "[", RowBox[{"text1Bigram", ",", RowBox[{"ColorFunction", "\[Rule]", "GrayLevel"}], ",", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Range", "@", RowBox[{"Length", "@", "text1Unique"}]}], ",", "text1Unique"}], "}"}], "\[Transpose]"}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"min", ",", "max"}], "}"}], ",", RowBox[{"Range", "[", RowBox[{ RowBox[{"Floor", "@", "min"}], ",", RowBox[{"Ceiling", "@", "max"}]}], "]"}]}], "]"}]}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\<GridLinesInFront\>\"", "\[Rule]", "True"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"textStyle", "@", "\"\<Bigram transitional probability\>\""}], ",", RowBox[{"textStyle", "@", "\"\<From this character...\>\""}], ",", RowBox[{"textStyle", "@", "\"\<...To this character\>\""}]}], "}"}], ",", RowBox[{"{", RowBox[{"Top", ",", "Left", ",", "Bottom"}], "}"}], ",", RowBox[{"RotateLabel", "\[Rule]", "True"}]}], "]"}]}], "Input", PageWidth->PaperWidth, CellLabel-> "In[139]:=",ExpressionUUID->"5c8993f6-57b5-44cc-ac9c-dba43f410ff5"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Comments", "Subsubsection", PageWidth->PaperWidth,ExpressionUUID->"5448010d-bc38-4512-b886-adf35e581866"], Cell["\<\ Note 1: See available \[OpenCurlyDoubleQuote]001-Good-scripts.nb\ \[CloseCurlyDoubleQuote] file for more details on text manipulation.\ \>", "Item", PageWidth->PaperWidth,ExpressionUUID->"c30be716-f969-4956-8fa0-ef5ee3fae70a"], Cell[TextData[{ "Note 2: ", StyleBox["Mathematica", FontSlant->"Italic"], " 11 or later has built-in variable \ \[OpenCurlyDoubleQuote]PunctuationCharacter\[CloseCurlyDoubleQuote] which \ holds most of, but not all, punctuation characters." }], "Item", PageWidth->PaperWidth,ExpressionUUID->"283dd958-e5b6-406b-9656-08910ebd7a82"], Cell[TextData[{ "Note 3: ", StyleBox["Mathematica", FontSlant->"Italic"], " 11 or later has several new effective functions which can effectively \ manipulate text strings." }], "Item", PageWidth->PaperWidth,ExpressionUUID->"1a4d6ead-e2ce-49b2-a5a8-f8fdc95f2280"] }, Closed]] }, Open ]] }, Open ]] }, CellGrouping->Manual, WindowSize->{1305, 987}, WindowMargins->{{42, Automatic}, {Automatic, 25}}, PrintingStartingPageNumber->1, PageHeaders->{{ Cell[ TextData[ StyleBox[ "FIU", FontFamily -> "Times", FontSize -> 10, FontWeight -> "Regular", FontSlant -> "Plain"]], "Header", CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], Cell[ TextData[ StyleBox[ "Project", "Header", FontFamily -> "Times", FontSize -> 10, FontWeight -> "Regular", FontSlant -> "Plain"]], "Header"], Cell[ TextData[ StyleBox[ RowBox[{"EIN", "-", "3235"}], FontFamily -> "Times", FontSize -> 10, FontWeight -> "Regular", FontSlant -> "Plain"]], "Header", CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}, { Cell[ TextData[ StyleBox[ RowBox[{"EIN", "-", "3235"}], FontFamily -> "Times", FontSize -> 10, FontWeight -> "Regular", FontSlant -> "Plain"]], "Header", CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], Cell[ TextData[ StyleBox[ "Project", "Header", FontFamily -> "Times", FontSize -> 10, FontWeight -> "Regular", FontSlant -> "Plain"]], "Header"], Cell[ TextData[ StyleBox[ "FIU", FontFamily -> "Times", FontSize -> 10, FontWeight -> "Regular", FontSlant -> "Plain"]], "Header", CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}}, PageFooters->{{ Cell[ TextData[ StyleBox[ RowBox[{"Instructor", ":", " ", "Dr", ".", " ", "Vlasov"}], FontFamily -> "Times", FontSize -> 10, FontWeight -> "Regular", FontSlant -> "Plain"]], "Footer", CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, Cell[ TextData[ StyleBox[ RowBox[{"Page", " ", CounterBox["Page", CounterFunction :> Identity], " ", "of", " ", CounterBox["LastPage", CounterFunction :> Identity]}], FontFamily -> "Times", FontSize -> 10, FontWeight -> "Regular", FontSlant -> "Plain"]], "Footer", CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}, { Cell[ TextData[ StyleBox[ RowBox[{"Page", " ", CounterBox["Page", CounterFunction :> Identity], " ", "of", " ", CounterBox["LastPage", CounterFunction :> Identity]}], FontFamily -> "Times", FontSize -> 10, FontWeight -> "Regular", FontSlant -> "Plain"]], "Footer", CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, Cell[ TextData[ StyleBox[ RowBox[{"Instructor", ":", " ", "Dr", ".", " ", "Vlasov"}], FontFamily -> "Times", FontSize -> 10, FontWeight -> "Regular", FontSlant -> "Plain"]], "Footer", CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}}, PageHeaderLines->{True, True}, PageFooterLines->{True, True}, PrintingOptions->{"FacingPages"->True, "FirstPageFace"->Right, "FirstPageFooter"->True, "FirstPageHeader"->False, "PaperOrientation"->"Portrait", "PaperSize"->{612, 792}, "PrintCellBrackets"->False, "PrintMultipleHorizontalPages"->False, "PrintRegistrationMarks"->False, "PrintingMargins"->42.5196855}, Magnification:>1.5 Inherited, FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \ 2018)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ CellGroupData[{ Cell["Styles for Text", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Text"], FontFamily -> "Times", FontColor -> GrayLevel[0]], Cell[ StyleData[ "Text", "SlideShow", StyleDefinitions -> StyleData["Text"]]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Items", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["ItemNumbered"], CellDingbat -> Cell[ TextData[{ CounterBox["ItemNumbered"], "."}], FontWeight -> "Bold", FontColor -> RGBColor[0, 0., 0.]], ShowGroupOpener -> True, FontFamily -> "Times", PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, FontColor -> GrayLevel[0]], Cell[ StyleData[ "ItemNumbered", "SlideShow", StyleDefinitions -> StyleData["ItemNumbered"]]]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["SubitemNumbered"], CellDingbat -> Cell[ TextData[{ CounterBox["ItemNumbered"], ".", CounterBox["SubitemNumbered"], "."}], FontWeight -> "Bold", FontColor -> RGBColor[0., 0., 0.]], FontFamily -> "Times", FontWeight -> "Regular", FontSlant -> "Plain", PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, FontColor -> GrayLevel[0]], Cell[ StyleData[ "SubitemNumbered", "SlideShow", StyleDefinitions -> StyleData["SubitemNumbered"]]]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Item"], CellDingbat -> "\[FilledSmallCircle]", ShowGroupOpener -> True, FontFamily -> "Times", PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, FontColor -> GrayLevel[0]], Cell[ StyleData[ "Item", "SlideShow", StyleDefinitions -> StyleData["Item"]], CellDingbat -> "\[FilledSmallCircle]", ShowGroupOpener -> True], Cell[ StyleData["Item", "Printout"], CellDingbat -> StyleBox[ AdjustmentBox[ "\[FilledSmallCircle]", BoxBaselineShift -> -0.3, BoxMargins -> {{0., 0.}, {0.3, -0.3}}], FontColor -> GrayLevel[0]], CellMargins -> {{34, Inherited}, {Inherited, Inherited}}, CellFrameLabelMargins -> 4]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subitem"], CellDingbat -> "\[FilledSmallSquare]", ShowGroupOpener -> True, FontFamily -> "Times", FontColor -> GrayLevel[0]], Cell[ StyleData[ "Subitem", "SlideShow", StyleDefinitions -> StyleData["Subitem"]], CellDingbat -> "\[FilledSmallSquare]", ShowGroupOpener -> True], Cell[ StyleData["Subitem", "Printout"], CellDingbat -> StyleBox[ AdjustmentBox[ "\[FilledSmallSquare]", BoxBaselineShift -> -0.3, BoxMargins -> {{0., 0.}, {0.3, -0.3}}], FontColor -> GrayLevel[0]], CellMargins -> {{58, Inherited}, {Inherited, Inherited}}, CellFrameLabelMargins -> 4]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["ItemParagraph"], FontFamily -> "Times", PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, FontColor -> GrayLevel[0]], Cell[ StyleData[ "ItemParagraph", "SlideShow", StyleDefinitions -> StyleData["ItemParagraph"]]], Cell[ StyleData["ItemParagraph", "Printout"], CellMargins -> {{34, Inherited}, {Inherited, Inherited}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SubitemParagraph"], FontFamily -> "Times", FontColor -> GrayLevel[0]], Cell[ StyleData[ "SubitemParagraph", "SlideShow", StyleDefinitions -> StyleData["SubitemParagraph"]]], Cell[ StyleData["SubitemParagraph", "Printout"], CellMargins -> {{58, Inherited}, {Inherited, Inherited}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SubsubitemParagraph"], FontFamily -> "Times", FontColor -> GrayLevel[0]], Cell[ StyleData[ "SubsubitemParagraph", "SlideShow", StyleDefinitions -> StyleData["SubsubitemParagraph"]]], Cell[ StyleData["SubsubitemParagraph", "Printout"], CellMargins -> {{82, Inherited}, {Inherited, Inherited}}]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Input and Output", "Section"], Cell[ StyleData["Input"], ShowCellLabel -> False, Background -> GrayLevel[0.9]], Cell[ StyleData["Output"], ShowCellLabel -> False, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Sections", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Section"], ShowGroupOpener -> True, FontFamily -> "Times", FontColor -> GrayLevel[0]], Cell[ StyleData[ "Section", "SlideShow", StyleDefinitions -> StyleData["Section"]], ShowGroupOpener -> True], Cell[ StyleData["Section", "Printout"], FontSize -> 46]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], ShowGroupOpener -> True, FontFamily -> "Times", FontColor -> Automatic], Cell[ StyleData[ "Subsection", "SlideShow", StyleDefinitions -> StyleData["Subsection"]]], Cell[ StyleData["Subsection", "Printout"], CellMargins -> {{10, Inherited}, {8., 16}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], ShowGroupOpener -> True, FontFamily -> "Times", FontWeight -> "Plain", FontColor -> Automatic], Cell[ StyleData[ "Subsubsection", "SlideShow", StyleDefinitions -> StyleData["Subsubsection"]]], Cell[ StyleData["Subsubsection", "Printout"], CellMargins -> {{10, Inherited}, {6, 16}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Chapter"], CellFrame -> {{0, 0}, {2, 0}}, FontFamily -> "Times", FontSize -> 64, FontWeight -> "SemiBold", PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, FontColor -> RGBColor[0., 0., 0.4258945601586938]], Cell[ StyleData[ "Chapter", "SlideShow", StyleDefinitions -> StyleData["Chapter"]], ShowGroupOpener -> True]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subchapter"], CellFrame -> {{0, 0}, {2, 0}}, CellDingbat -> None, FontFamily -> "Times", FontSize -> 56, FontWeight -> "SemiBold", FontColor -> RGBColor[0., 0., 0.4258945601586938]], Cell[ StyleData[ "Subchapter", "SlideShow", StyleDefinitions -> StyleData["Subchapter"]], ShowGroupOpener -> True]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Headings", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Title"], ShowGroupOpener -> True, FontFamily -> "Times", FontWeight -> "Plain", FontSlant -> "Plain", FontVariations -> {"StrikeThrough" -> False, "Underline" -> False}, PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, FontColor -> Automatic], Cell[ StyleData[ "Title", "SlideShow", StyleDefinitions -> StyleData["Title"]], FontSize -> 72, FontSlant -> "Plain", FontVariations -> {"StrikeThrough" -> False, "Underline" -> False}, PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}], Cell[ StyleData["Title", "Printout"]]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], FontFamily -> "Times", FontSlant -> "Plain", FontColor -> Automatic], Cell[ StyleData[ "Subtitle", "SlideShow", StyleDefinitions -> StyleData["Subtitle"]]], Cell[ StyleData["Subtitle", "Printout"]]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle"], FontFamily -> "Times", FontColor -> RGBColor[0., 0., 0.5]], Cell[ StyleData[ "Subsubtitle", "SlideShow", StyleDefinitions -> StyleData["Subsubtitle"]]], Cell[ StyleData["Subsubtitle", "Printout"]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Special Styles", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"], FontFamily -> "Times", FontWeight -> "Regular", FontSlant -> "Plain", PrivateFontOptions -> {"FontPostScriptName" -> "Automatic"}, FontColor -> GrayLevel[0]], Cell[ StyleData[ "DisplayFormula", "SlideShow", StyleDefinitions -> StyleData["DisplayFormula"]]], Cell[ StyleData["DisplayFormula", "Printout"], CellMargins -> {{58, Inherited}, {Inherited, Inherited}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Formula-Times-36"], TextAlignment -> Center, MenuSortingValue -> 10000, FontFamily -> "Times", FontSize -> 36, FontColor -> GrayLevel[0]], Cell[ StyleData[ "Formula-Times-36", "SlideShow", StyleDefinitions -> StyleData["Formula-Times-36"]]]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Formula-Times-32"], TextAlignment -> Center, MenuSortingValue -> 10000, FontFamily -> "Times", FontSize -> 32, FontColor -> GrayLevel[0]], Cell[ StyleData[ "Formula-Times-32", "SlideShow", StyleDefinitions -> StyleData["Formula-Times-32"]]]}, Open]], Cell[ StyleData["Text-14"], CellMargins -> {{30, 1}, {4, 4}}, MenuSortingValue -> 10000, FontFamily -> "Times", FontSize -> 14, FontColor -> GrayLevel[0]], Cell[ StyleData["Text-16"], CellMargins -> {{36, 1}, {4, 4}}, MenuSortingValue -> 10000, FontFamily -> "Times", FontSize -> 16, FontColor -> GrayLevel[0]], Cell[ CellGroupData[{ Cell[ StyleData[ "DisplayFormulaNumbered", StyleDefinitions -> StyleData["DisplayFormula"]], CellFrameLabels -> {{None, Cell[ TextData[{"(", CounterBox["DisplayFormulaNumbered"], ")"}], "DisplayFormulaEquationNumber"]}, {None, None}}, CounterIncrements -> "DisplayFormulaNumbered", MenuSortingValue -> 1710], Cell[ StyleData["DisplayFormulaNumbered", "Presentation"], CellMargins -> {{100, Inherited}, {1.5 Inherited, 1.5 Inherited}}, LineSpacing -> {1, 5}], Cell[ StyleData["DisplayFormulaNumbered", "SlideShow"], CellMargins -> {{ 0.135 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}], 0.03 FrontEnd`AbsoluteCurrentValue[{WindowSize, 1}]}, { 1.5 Inherited, 1.5 Inherited}}], Cell[ StyleData["DisplayFormulaNumbered", "Condensed"], CellMargins -> {{50, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["DisplayFormulaNumbered", "Printout"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["DisplayFormulaNumbered", "PrintoutGray"], CellMargins -> {{49, Inherited}, {Inherited, Inherited}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormulaEquationNumber"], FontFamily -> "Times", FontColor -> GrayLevel[0]], Cell[ StyleData[ "DisplayFormulaEquationNumber", "SlideShow", StyleDefinitions -> StyleData["DisplayFormulaEquationNumber"]]], Cell[ StyleData["DisplayFormulaEquationNumber", "Printout"]]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["HeaderTitle"], StyleMenuListing -> None, FontColor -> GrayLevel[0]], Cell[ StyleData["HeaderTitle", "Printout"], Magnification -> 1.], Cell[ StyleData["HeaderTitle", "PrintoutGray"], Magnification -> 1.]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["FooterSection"], StyleMenuListing -> None, FontColor -> GrayLevel[0]], Cell[ StyleData["FooterSection", "Printout"], Magnification -> 1.], Cell[ StyleData["FooterSection", "PrintoutGray"], Magnification -> 1.]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["FooterTitle"], StyleMenuListing -> None, FontColor -> GrayLevel[0]], Cell[ StyleData["FooterTitle", "Printout"], Magnification -> 1.], Cell[ StyleData["FooterTitle", "PrintoutGray"], Magnification -> 1.]}, Closed]], Cell[ StyleData["Definition"], CellFrame -> 2, CellMargins -> {{100, 100}, {10, 10}}, MenuSortingValue -> 10000, FontFamily -> "Times", FontSize -> 18, Background -> RGBColor[0.94, 0.91, 0.88]]}, Closed]]}, Visible -> False, FrontEndVersion -> "11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, 2018)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 143, 4, 276, "Title",ExpressionUUID->"eb3f0d93-97f4-47a7-a55e-11fce273dfdd"], Cell[725, 28, 146, 1, 69, "Subtitle",ExpressionUUID->"1c5cbeaf-101a-4717-b944-a3b6d7e7798f"], Cell[CellGroupData[{ Cell[896, 33, 180, 4, 60, "Subsubsection",ExpressionUUID->"ea33ab29-27ca-448b-add1-0cde0726f62b", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[1079, 39, 242, 4, 72, "Text",ExpressionUUID->"c6f1036e-2817-4d14-be45-1e45a0479410"], Cell[1324, 45, 296, 7, 45, "Text",ExpressionUUID->"d9f28fd2-0564-423c-b3f2-8464907cc29f", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[1623, 54, 268, 7, 72, "Text",ExpressionUUID->"3dfbbb46-fd1f-4dc7-8100-fbb767277d77", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[1894, 63, 276, 7, 72, "Text",ExpressionUUID->"9e9fe3fc-e01a-436b-a342-dc3b431583cc", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[2173, 72, 8001, 219, 1822, "Input",ExpressionUUID->"5dccf58c-9d61-4d53-b35d-4f67fccea655", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[10211, 296, 1016, 26, 280, "Input",ExpressionUUID->"2e096828-a6de-4768-9504-0576d0e5a211", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, InitializationCell->True], Cell[11230, 324, 520, 16, 243, "Output",ExpressionUUID->"9caff45e-b645-4293-bd64-f1bcce476f56"] }, {2}]], Cell[11762, 343, 374, 10, 90, "Subsubtitle",ExpressionUUID->"0961aa58-6693-4fbe-aaa7-0d1a08e55616"], Cell[12139, 355, 114, 1, 39, "Subsubtitle",ExpressionUUID->"bd8e91f4-3d61-4055-a21d-30d3a11bb8d4"], Cell[CellGroupData[{ Cell[12278, 360, 117, 1, 90, "Section",ExpressionUUID->"28541ebe-b37c-4c6d-ac90-ccd3875e41d0"], Cell[CellGroupData[{ Cell[12420, 365, 1371, 34, 241, "Input",ExpressionUUID->"c2847e46-a2e4-4936-aab3-dfbe05e2ceb5", InitializationCell->True], Cell[13794, 401, 509, 12, 204, "Output",ExpressionUUID->"89497532-7f26-4960-9bd0-57ef80f2d03c"] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell[14349, 419, 117, 1, 90, "Section",ExpressionUUID->"1689b050-84e2-4e9b-a541-d476d31e97b9"], Cell[CellGroupData[{ Cell[14491, 424, 206, 2, 106, "Subsection",ExpressionUUID->"68f5a431-de78-413b-b409-7fe43507dd58"], Cell[14700, 428, 547, 14, 226, "Input",ExpressionUUID->"39b8bb2d-1698-4f8f-96d2-4a18f31fc878", InitializationCell->True], Cell[15250, 444, 343, 6, 101, "Text",ExpressionUUID->"c0eeb331-852e-41db-b7b8-91ace2ab4939"], Cell[15596, 452, 485, 7, 129, "Text",ExpressionUUID->"a194a801-6827-4543-93b3-4cf88ca27e67"], Cell[16084, 461, 237, 4, 74, "Text",ExpressionUUID->"e8115d1f-2b25-46b4-90d4-95e34a581514"], Cell[16324, 467, 548, 8, 184, "Text",ExpressionUUID->"140e6c7a-a54b-4ddd-a292-42aa45ad7d66"], Cell[16875, 477, 249, 4, 74, "Text",ExpressionUUID->"966cab0e-4efc-4cca-8ab0-52668fd3a2a0"], Cell[CellGroupData[{ Cell[17149, 485, 445, 11, 579, "Input",ExpressionUUID->"8f6237a0-87de-4cd5-8f0d-1a4ed864ed75", InitializationCell->True], Cell[17597, 498, 405, 8, 63, "Output",ExpressionUUID->"ce6b75c8-5344-4fed-99fb-794826b9321c"] }, {2}]], Cell[18014, 509, 558, 15, 257, "Input",ExpressionUUID->"c7d4aeee-1f47-4660-9eec-de9ba19ebb77", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[18609, 529, 179, 2, 73, "Subsection",ExpressionUUID->"c5e338ff-c8bf-412f-99b0-d6af2e92eaa4"], Cell[18791, 533, 539, 14, 226, "Input",ExpressionUUID->"3d01150a-c2db-45d1-b7a5-38434723d53a", InitializationCell->True], Cell[19333, 549, 765, 11, 239, "Text",ExpressionUUID->"b6888388-9502-42c1-b8bb-1ca86088568f"], Cell[20101, 562, 563, 9, 185, "Text",ExpressionUUID->"b75517b1-7550-4e56-8989-ddfe6ea98fdf"], Cell[CellGroupData[{ Cell[20689, 575, 429, 10, 9264, "Input",ExpressionUUID->"d1ab3cee-eaf5-43bc-a822-5547ca4d2dbb", InitializationCell->True], Cell[21121, 587, 384, 7, 63, "Output",ExpressionUUID->"34bd3f8c-041f-4b1d-a8e7-29ac02cccd43"] }, {2}]], Cell[21517, 597, 607, 9, 239, "Text",ExpressionUUID->"efc92163-66c1-4685-bce4-5c08d1db9c4d"], Cell[CellGroupData[{ Cell[22149, 610, 467, 11, 9264, "Input",ExpressionUUID->"d8c11638-573d-48b8-85dd-8b05cc6bfab6", InitializationCell->True], Cell[22619, 623, 461, 9, 63, "Output",ExpressionUUID->"66a3e345-b9a3-4ae2-b367-08b865e102db"] }, {2}]], Cell[23092, 635, 509, 13, 195, "Input",ExpressionUUID->"2e99947a-5e1c-4d16-b924-bed3ea045111", InitializationCell->True] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23650, 654, 117, 1, 90, "Section",ExpressionUUID->"5db2c504-895b-4ecc-b421-3a17e080e80e"], Cell[CellGroupData[{ Cell[23792, 659, 324, 9, 66, "Item",ExpressionUUID->"07277d9b-5635-4093-88ed-7d8056a9e781", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[24119, 670, 195, 5, 70, "Input",ExpressionUUID->"76c33547-7395-4dcd-991b-8e313d74c187", CellGroupingRules->{"GroupTogetherGrouping", 10001.}] }, Open ]], Cell[CellGroupData[{ Cell[24351, 680, 290, 9, 66, "Item",ExpressionUUID->"4def5d46-89b2-4fbc-86d8-84c08f4cba4e", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[24644, 691, 1794, 47, 443, "Input",ExpressionUUID->"0c88c248-639f-4f41-9537-f9a4d1f3d21a", CellGroupingRules->{"GroupTogetherGrouping", 10000.}] }, Open ]], Cell[26453, 741, 230, 6, 74, "Text",ExpressionUUID->"5b40461e-dbf6-4bdd-bc2b-a51dba6b2833"] }, Open ]], Cell[CellGroupData[{ Cell[26720, 752, 123, 1, 90, "Section",ExpressionUUID->"9586a62f-9eed-4745-8f4b-fedf2695ace1"], Cell[26846, 755, 278, 5, 74, "Text",ExpressionUUID->"ba5bfa3d-0ac3-4dac-8d29-c1d001f12fca"], Cell[27127, 762, 153, 1, 73, "Subsection",ExpressionUUID->"65375e8c-5ad6-4bbc-87a3-32871d58ba03"], Cell[27283, 765, 199, 4, 66, "Text",ExpressionUUID->"4c0fdb0a-5ae9-45bf-a94c-2503288877c1"], Cell[27485, 771, 244, 4, 66, "Item",ExpressionUUID->"c0fbc64c-6bcb-46bf-b92b-e84e288ccfbb"], Cell[CellGroupData[{ Cell[27754, 779, 249, 4, 90, "Item",ExpressionUUID->"fb6da3ff-3aaf-4430-b66d-a3ebd8aef32d"], Cell[28006, 785, 270, 5, 90, "Item",ExpressionUUID->"6fe0e284-d9f7-4be4-9893-5eed67d16376"], Cell[CellGroupData[{ Cell[28301, 794, 188, 4, 66, "Item",ExpressionUUID->"6e4ca49d-95be-43dc-9d30-5a0b991be063"], Cell[28492, 800, 245, 4, 66, "Item",ExpressionUUID->"c002cf3d-5a8e-4087-808d-09465b1ed72b"], Cell[28740, 806, 181, 3, 66, "Item",ExpressionUUID->"1a135727-bd03-4d45-9ead-86988596e0c3"], Cell[28924, 811, 226, 6, 41, "Item",ExpressionUUID->"464482c8-c71c-44b6-b8af-959812242f9a"], Cell[29153, 819, 317, 7, 66, "Item",ExpressionUUID->"3fc9549e-a8a5-4858-ba71-807328ef962b"], Cell[29473, 828, 169, 3, 41, "Item",ExpressionUUID->"d8e84f1d-93bb-46ef-a4b1-5e473f2a8eef"], Cell[29645, 833, 446, 7, 139, "Item",ExpressionUUID->"009c02c5-cc6f-49e2-a52a-e6b031f2fc07"], Cell[30094, 842, 687, 10, 213, "Item",ExpressionUUID->"ca69e5dd-8e91-4afd-91ae-9091fa4ca0c8"], Cell[30784, 854, 417, 8, 115, "Item",ExpressionUUID->"bd73c95e-f912-46f0-a602-e198f52b632e"], Cell[31204, 864, 195, 4, 66, "Item",ExpressionUUID->"1c1a7740-8b9f-44bd-8807-8e99427e1746"], Cell[31402, 870, 207, 4, 66, "Item",ExpressionUUID->"6666a420-1c75-468b-9b23-155033b941f8"], Cell[31612, 876, 215, 4, 66, "Item",ExpressionUUID->"a1094923-6e8a-49e5-923b-ac3499c031d4"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[31888, 887, 121, 1, 90, "Section",ExpressionUUID->"59e1cc4c-0508-4f72-9546-75e9fd0af8e3"], Cell[32012, 890, 380, 9, 101, "Text",ExpressionUUID->"375d092f-1e44-4d12-bf5e-bd850b8504e0"], Cell[32395, 901, 241, 4, 74, "Text",ExpressionUUID->"250425b0-1f99-48ac-b98b-fb0f03d0c111"], Cell[32639, 907, 276, 5, 101, "Text",ExpressionUUID->"1fb5bc24-d771-4d0a-a603-3b31ae1e6f7e"], Cell[32918, 914, 238, 4, 74, "Text",ExpressionUUID->"f5a2f390-a2b0-4edf-b1aa-fc2878126f7c"], Cell[CellGroupData[{ Cell[33181, 922, 136, 1, 60, "Subsubsection",ExpressionUUID->"072ade48-6fa4-44a0-856c-18b41bc8b2c3"], Cell[33320, 925, 169, 3, 34, "Subitem",ExpressionUUID->"d212281e-97bb-44d2-879a-2565d184bf0d"], Cell[33492, 930, 172, 3, 34, "Subitem",ExpressionUUID->"e34039d3-7b2e-48d0-b956-437a8098dc43"], Cell[33667, 935, 207, 4, 58, "Subitem",ExpressionUUID->"5e5a64b4-91d9-469c-8905-58a69e761405"], Cell[33877, 941, 324, 8, 74, "Text",ExpressionUUID->"c7daf091-8a88-424f-bdd5-a3aae8be0595"] }, Open ]], Cell[CellGroupData[{ Cell[34238, 954, 145, 1, 60, "Subsubsection",ExpressionUUID->"f7b156db-ae4b-4be6-a559-ed0acce6daed"], Cell[CellGroupData[{ Cell[34408, 959, 214, 4, 41, "ItemNumbered",ExpressionUUID->"62c73e10-7c9f-41cf-9606-3703de24858d", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[34625, 965, 140, 2, 46, "Text",ExpressionUUID->"50c18cff-9e63-4950-94b0-d8f752e096da"], Cell[34768, 969, 3078, 81, 722, "Input",ExpressionUUID->"fccf629c-2d6e-43d6-867a-22f891e07beb", CellGroupingRules->{"GroupTogetherGrouping", 10000.}] }, Closed]], Cell[CellGroupData[{ Cell[37883, 1055, 198, 4, 33, "ItemNumbered",ExpressionUUID->"472ca743-22a8-4fd7-999b-aa824e49f0b7", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[38084, 1061, 2587, 68, 598, "Input",ExpressionUUID->"9d910918-a969-4c7d-aa9f-5703cf4a997a", CellGroupingRules->{"GroupTogetherGrouping", 10001.}] }, Closed]], Cell[CellGroupData[{ Cell[40708, 1134, 205, 4, 33, "ItemNumbered",ExpressionUUID->"7e451349-0812-4a44-ad26-daf52d65bc23", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[40916, 1140, 155, 1, 46, "Text",ExpressionUUID->"47ea19b9-f6e8-41ef-bf11-e9c54655eff3"], Cell[41074, 1143, 337, 8, 74, "Text",ExpressionUUID->"2ba0016e-9a30-4ae8-a0b9-53dcd983769d"], Cell[41414, 1153, 1438, 37, 319, "Input",ExpressionUUID->"a9dcc560-918d-461f-94e1-2832855fd607", CellGroupingRules->{"GroupTogetherGrouping", 10002.}] }, Closed]], Cell[CellGroupData[{ Cell[42889, 1195, 198, 4, 33, "ItemNumbered",ExpressionUUID->"e6ca35f6-01a4-4637-9027-57c7715c053a", CellGroupingRules->{"GroupTogetherGrouping", 10003.}], Cell[43090, 1201, 131, 1, 46, "Text",ExpressionUUID->"518c28c5-1b13-47d4-a996-b8f8e1274d58"], Cell[43224, 1204, 181, 4, 46, "Text",ExpressionUUID->"d644e858-bf0c-44fd-bd1b-9dab7ec92cb5", CellGroupingRules->{"GroupTogetherGrouping", 10003.}], Cell[43408, 1210, 1961, 51, 381, "Input",ExpressionUUID->"e41d95ef-3f76-4c8f-b965-23cee85cd791", CellGroupingRules->{"GroupTogetherGrouping", 10003.}] }, Closed]], Cell[CellGroupData[{ Cell[45406, 1266, 381, 10, 58, "ItemNumbered",ExpressionUUID->"0ebba92a-7ced-43ea-b3e8-76882d932ca7", CellGroupingRules->{"GroupTogetherGrouping", 10002.}], Cell[45790, 1278, 597, 10, 74, "Text",ExpressionUUID->"028f8b46-1524-4ae5-ad5e-701fa2a27c19"], Cell[46390, 1290, 495, 14, 133, "Input",ExpressionUUID->"9d44ee5c-2aaf-4610-80e2-dda0aa81b861", CellGroupingRules->{"GroupTogetherGrouping", 10002.}] }, Closed]], Cell[CellGroupData[{ Cell[46922, 1309, 259, 7, 58, "ItemNumbered",ExpressionUUID->"c835aee8-bf21-4fe9-b481-8d7a42a3297b", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[47184, 1318, 200, 4, 74, "Text",ExpressionUUID->"c29034ad-5304-4553-b10f-7d09192b1af5"], Cell[CellGroupData[{ Cell[47409, 1326, 578, 15, 102, "Input",ExpressionUUID->"8b2486a0-1792-4b6d-8e5c-e2543f56a9bf", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[47990, 1343, 340, 10, 52, "Output",ExpressionUUID->"7712de51-4780-4eb3-8c03-b4d5950ddf9e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[48379, 1359, 273, 7, 58, "ItemNumbered",ExpressionUUID->"5210e6f6-8935-43ce-bc93-db671d85c724", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[48655, 1368, 464, 12, 102, "Input",ExpressionUUID->"e570e447-3a91-4de5-b3d0-95291030078d", CellGroupingRules->{"GroupTogetherGrouping", 10000.}] }, Closed]], Cell[CellGroupData[{ Cell[49156, 1385, 319, 7, 58, "ItemNumbered",ExpressionUUID->"8c9f7d9c-aeb4-4530-a11c-21e427e410a0", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[49478, 1394, 277, 7, 46, "Text",ExpressionUUID->"022c0761-464e-48aa-b38c-6b9e99f31aba", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[49758, 1403, 1384, 36, 257, "Input",ExpressionUUID->"18140d37-6611-4019-b62a-04fdd40c5b1c", CellGroupingRules->{"GroupTogetherGrouping", 10001.}] }, Closed]], Cell[CellGroupData[{ Cell[51179, 1444, 291, 7, 33, "ItemNumbered",ExpressionUUID->"1bc0447f-151c-438d-b7c8-bef4993ec121", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[51473, 1453, 717, 20, 226, "Input",ExpressionUUID->"fe9a8659-e6ac-459c-9314-0b5dcc82d812", CellGroupingRules->{"GroupTogetherGrouping", 10000.}] }, Closed]], Cell[CellGroupData[{ Cell[52227, 1478, 339, 8, 58, "ItemNumbered",ExpressionUUID->"6df460c2-78f9-41cb-b266-4d57a0640ce7", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[52569, 1488, 194, 4, 74, "Text",ExpressionUUID->"f9c330b6-77ad-42e4-b489-337db1568217"], Cell[52766, 1494, 1442, 36, 381, "Input",ExpressionUUID->"2a2b2d29-f4cf-476c-9475-139da1720053", CellGroupingRules->{"GroupTogetherGrouping", 10001.}] }, Closed]], Cell[CellGroupData[{ Cell[54245, 1535, 273, 7, 58, "ItemNumbered",ExpressionUUID->"71948e31-185c-48aa-b3c1-3f3c4c9094fd", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[54521, 1544, 1905, 48, 443, "Input",ExpressionUUID->"0178f548-594c-48c1-9986-03398e59dc7d", CellGroupingRules->{"GroupTogetherGrouping", 10000.}] }, Closed]], Cell[CellGroupData[{ Cell[56463, 1597, 244, 6, 33, "ItemNumbered",ExpressionUUID->"d93abaa8-8887-49ea-9a41-3a4c632d1b96", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[56710, 1605, 1073, 26, 319, "Input",ExpressionUUID->"dbfb684a-8970-46f3-a1f2-d1a3f1b2216c", CellGroupingRules->{"GroupTogetherGrouping", 10001.}] }, Closed]], Cell[CellGroupData[{ Cell[57820, 1636, 251, 6, 58, "ItemNumbered",ExpressionUUID->"c1e10b58-77cf-4618-9687-0f96378c9f0d", CellGroupingRules->{"GroupTogetherGrouping", 10000.}], Cell[CellGroupData[{ Cell[58096, 1646, 128, 1, 34, "Subitem",ExpressionUUID->"40f431fb-dd3e-480a-b914-863295480678"], Cell[58227, 1649, 1057, 27, 319, "Input",ExpressionUUID->"1bd1ae64-3a75-4615-a447-9ef4b30a53c3", CellGroupingRules->{"GroupTogetherGrouping", 10000.}] }, Open ]], Cell[CellGroupData[{ Cell[59321, 1681, 128, 1, 32, "Subitem",ExpressionUUID->"3111c65b-1ce3-4b90-ae03-de5c7c561c0d"], Cell[59452, 1684, 1035, 24, 319, "Input",ExpressionUUID->"660d0fd2-1acc-44df-a52c-0e1128ef24fa"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[60536, 1714, 210, 4, 33, "ItemNumbered",ExpressionUUID->"e6406bd8-e7f6-4d22-9993-638a22e94fa3", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[60749, 1720, 811, 22, 226, "Input",ExpressionUUID->"99e79181-1ead-4b13-8f00-1180439706fc", CellGroupingRules->{"GroupTogetherGrouping", 10001.}] }, Closed]], Cell[CellGroupData[{ Cell[61597, 1747, 244, 6, 33, "ItemNumbered",ExpressionUUID->"6f677cf3-12ae-43d6-9dcd-8852c1f9a50b", CellGroupingRules->{"GroupTogetherGrouping", 10001.}], Cell[61844, 1755, 227, 4, 74, "Text",ExpressionUUID->"dde4ccf5-ad63-4888-8542-21d5c176e0b9"], Cell[62074, 1761, 148, 1, 46, "Text",ExpressionUUID->"f254d39f-ed20-4e9f-9ea5-69f3bc57e105"], Cell[62225, 1764, 2337, 64, 598, "Input",ExpressionUUID->"5c8993f6-57b5-44cc-ac9c-dba43f410ff5"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[64611, 1834, 112, 1, 60, "Subsubsection",ExpressionUUID->"5448010d-bc38-4512-b886-adf35e581866"], Cell[64726, 1837, 237, 4, 66, "Item",ExpressionUUID->"c30be716-f969-4956-8fa0-ef5ee3fae70a"], Cell[64966, 1843, 336, 8, 90, "Item",ExpressionUUID->"283dd958-e5b6-406b-9656-08910ebd7a82"], Cell[65305, 1853, 269, 7, 66, "Item",ExpressionUUID->"1a4d6ead-e2ce-49b2-a5a8-f8fdc95f2280"] }, Closed]] }, Open ]] }, Open ]] } ] *)