(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    243999,       6497]
NotebookOptionsPosition[    235942,       6272]
NotebookOutlinePosition[    236365,       6290]
CellTagsIndexPosition[    236322,       6287]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[StyleBox["2301520 Fundmentals of AMCS\nData Manipulation & \
Statistics",
 FontWeight->"Bold",
 FontColor->RGBColor[0, 0, 1]]], "Title",
 CellChangeTimes->{{3.51363560209375*^9, 3.513635604484375*^9}, {
  3.546205255046875*^9, 3.546205264859375*^9}, {3.576467183509595*^9, 
  3.576467185353345*^9}, {3.576881399140625*^9, 3.57688139959375*^9}, {
  3.7408913167940197`*^9, 3.740891336687755*^9}},
 TextAlignment->Center],

Cell[CellGroupData[{

Cell["Section 1 : Data Manipulation", "Section",
 CellChangeTimes->{3.576467231540845*^9}],

Cell["\<\
Data manipulation is a process of manipulating data so that it is easier to \
read or organized.\
\>", "DisplayText",
 CellChangeTimes->{{3.576467698915845*^9, 3.57646777311897*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["1.1 Data Import/Export",
 FontColor->RGBColor[0, 0, 1]]], "Subsection",
 CellChangeTimes->{
  3.576467232697095*^9, {3.57646788424397*^9, 3.576467890665845*^9}}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[GridBox[{
     {Cell[TextData[{
       StyleBox["Directory[", "MR"],
       " ",
       StyleBox["]", "MR"],
       " "
      }]], Cell["give your current working directory "]},
     {Cell[TextData[{
       StyleBox["SetDirectory[\"", "MR"],
       StyleBox["dir", "TI"],
       StyleBox["\"]", "MR"],
       " "
      }]], Cell["set your current working directory "]}
    },
    GridBoxAlignment->{
     "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, 
      "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], TraditionalForm]]],
 "\n",
 Cell[BoxData[
  FormBox[Cell[TextData[{
    StyleBox["Import[\"", "MR"],
    StyleBox["file", "TI"],
    StyleBox["\",", "MR"],
    " ",
    StyleBox["\"", "MR"],
    StyleBox["format", "TI"],
    StyleBox["\"]", "MR"],
    " imports data in the specified format from a file. "
   }]], TraditionalForm]]],
 StyleBox["\n",
  FontFamily->"Courier New"],
 StyleBox["Export[\"", "MR"],
 StyleBox["file", "TI"],
 StyleBox["\",", "MR"],
 " ",
 StyleBox["expr", "TI"],
 StyleBox[",", "MR"],
 " ",
 StyleBox["\"", "MR"],
 StyleBox["format", "TI"],
 StyleBox["\"]", "MR"],
 " exports data to a file, converting it to the specified format. \n          \
                                Acceptable formats are \"CSV\", \"XLS\", \
\"TABLE\", \"LIST\", etc.",
 StyleBox["\n",
  FontFamily->"Courier New"],
 Cell[BoxData[
  FormBox[GridBox[{
     {Cell[TextData[{
       StyleBox["<<", "MR"],
       " ",
       StyleBox["name", "TI"],
       " "
      }]], Cell[TextData[{
       "read in a ",
       StyleBox["Mathematica", "TI"],
       " input file "
      }]]},
     {Cell[TextData[{
       StyleBox["expr", "TI"],
       " ",
       StyleBox[">>", "MR"],
       " ",
       StyleBox["name", "TI"],
       " "
      }]], Cell[TextData[{
       "output ",
       StyleBox["expr", "TI"],
       " to a file as plain text "
      }]]},
     {Cell[TextData[{
       StyleBox["expr", "TI"],
       " ",
       StyleBox[">>>", "MR"],
       " ",
       StyleBox["name", "TI"],
       " "
      }]], Cell[TextData[{
       "append ",
       StyleBox["expr", "TI"],
       " to a file "
      }]]},
     {Cell[TextData[{
       StyleBox["!!", "MR"],
       StyleBox["name", "TI"],
       " "
      }]], Cell["display the contents of a plain text file "]}
    },
    GridBoxAlignment->{
     "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, 
      "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], TraditionalForm]],
  GridBoxOptions->{
  GridBoxDividers->{
   "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
    "RowsIndexed" -> {}},
  GridBoxSpacings->{"Columns" -> {
      Offset[0.27999999999999997`], {
       Offset[0.5599999999999999]}, 
      Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
      Offset[0.2], {
       Offset[0.16]}, 
      Offset[0.2]}, "RowsIndexed" -> {}}}]
}], "DisplayText"],

Cell[BoxData[
 RowBox[{"Directory", "[", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"thisDir", "=", 
  RowBox[{"ToFileName", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\"\<FileName\>\"", "/.", 
      RowBox[{"NotebookInformation", "[", 
       RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], ")"}], 
    "\[IndentingNewLine]", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "Get", " ", "the", " ", "path", " ", "to", " ", "directory", " ", "where", 
    " ", "this", " ", "Notebook", " ", 
    RowBox[{"resides", "."}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.57646751796272*^9, 3.57646756383772*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetDirectory", "[", "thisDir", "]"}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{"Directory", "[", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"data1", "=", 
  RowBox[{"Import", "[", 
   RowBox[{"\"\<linearfitdata.xls\>\"", ",", "\"\<XLS\>\""}], 
   "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"data2", "=", 
  RowBox[{"Import", "[", 
   RowBox[{"\"\<WeibullData.txt\>\"", ",", "\"\<Table\>\""}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.576473607290845*^9, 3.57647360946272*^9}, {
  3.576473675384595*^9, 3.576473677665845*^9}}],

Cell[BoxData[
 RowBox[{"data3", "=", 
  RowBox[{"Import", "[", 
   RowBox[{"\"\<anovadata.txt\>\"", ",", "\"\<Table\>\""}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"TableForm", "[", "data1", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"TableForm", "[", "data2", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"TableForm", "[", "data3", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<data3.xls\>\"", ",", " ", "data3", ",", " ", "\"\<XLS\>\""}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\<data2-1.txt\>\"", ",", " ", "data2", ",", " ", "\"\<List\>\""}], 
  "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"!!", 
  RowBox[{"data2", "-", 
   RowBox[{"1.", "txt"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"OutputForm", "[", 
   RowBox[{"TableForm", "[", 
    RowBox[{"data2", ",", " ", 
     RowBox[{"TableSpacing", "\[Rule]", " ", "0"}]}], "]"}], "]"}], " ", ">>",
   " ", "data2-2.txt"}]], "Input"],

Cell[BoxData[
 RowBox[{"!!", 
  RowBox[{"data2", "-", 
   RowBox[{"2.", "txt"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"OutputForm", "[", 
   RowBox[{"TableForm", "[", 
    RowBox[{"data3", ",", " ", 
     RowBox[{"TableSpacing", "\[Rule]", " ", "0"}]}], "]"}], "]"}], " ", ">>>",
   " ", "data2-2.txt"}]], "Input"],

Cell[BoxData[
 RowBox[{"!!", 
  RowBox[{"data2", "-", 
   RowBox[{"2.", "txt"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<formula.gif\>\"", ",", " ", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", "^", "2"}], "-", "1"}], ")"}]}], ",", "x"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.576468118697095*^9, 3.576468125009595*^9}, {
  3.576468185447095*^9, 3.576468229822095*^9}, {3.57646826130647*^9, 
  3.57646826218147*^9}}],

Cell[BoxData[
 RowBox[{"picture1", "=", 
  RowBox[{
  "Import", "[", 
   "\"\<http://www.chula.ac.th/wp-content/uploads/2014/03/logo-th@2x.png\>\"",
    "]"}]}]], "Input",
 CellChangeTimes->{{3.57646843458772*^9, 3.57646845986897*^9}, {
   3.57646861955647*^9, 3.576468626322095*^9}, 3.740890889815873*^9}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<chulalogo.gif\>\"", ",", "picture1"}], "]"}]], "Input",
 CellChangeTimes->{{3.576468631040845*^9, 3.576468692009595*^9}, {
  3.7408909214606695`*^9, 3.7408909270775166`*^9}}],

Cell[BoxData[
 RowBox[{"plotsample", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"Evaluate", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"BesselJ", "[", 
        RowBox[{"n", ",", "x"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", "4"}], "}"}]}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
    RowBox[{"Filling", "\[Rule]", "Axis"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.576468730072095*^9, 3.57646873665022*^9}, {
  3.57646879455647*^9, 3.576468798509595*^9}}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<plotsample.gif\>\"", ",", "plotsample"}], "]"}]], "Input",
 CellChangeTimes->{{3.576469042947095*^9, 3.57646904399397*^9}}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<plotsample.pdf\>\"", ",", "plotsample"}], "]"}]], "Input",
 CellChangeTimes->{{3.576468813353345*^9, 3.57646883552522*^9}}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<plotsample.svg\>\"", ",", "plotsample"}], "]"}]], "Input",
 CellChangeTimes->{{3.57646892340022*^9, 3.57646893921272*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["1.2 Handling Arrays of Data",
 FontColor->RGBColor[0, 0, 1]]], "Subsection",
 CellChangeTimes->{
  3.576467232697095*^9, {3.57646788424397*^9, 3.576467890665845*^9}, {
   3.57646998461897*^9, 3.57646998540022*^9}, {3.576470088134595*^9, 
   3.576470097790845*^9}}],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{
   ButtonBox["Table",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Table"], "[", 
   RowBox[{
    StyleBox["expr", "TI"], ",", 
    RowBox[{"{", 
     RowBox[{
      StyleBox["i", "TI"], ",", 
      SubscriptBox[
       StyleBox["i", "TI"], 
       StyleBox["min", "TI"]], ",", " ", 
      SubscriptBox[
       StyleBox["i", "TI"], 
       StyleBox["max", "TI"]]}], "}"}]}], "]"}]], "InlineFormula"],
 " generates a list of the values of ",
 Cell[BoxData[
  StyleBox["expr", "TI"]], "InlineFormula"],
 " when ",
 Cell[BoxData[
  StyleBox["i", "TI"]], "InlineFormula"],
 " runs from ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["i", "TI"], 
   StyleBox["min", "TI"]]]],
 " to ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["i", "TI"], 
   StyleBox["max", "TI"]]], "InlineFormula"],
 ". \n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Length",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Length"], "[", 
   StyleBox["expr", "TI"], "]"}]], "InlineFormula"],
 "   gives the number of elements in ",
 Cell[BoxData[
  StyleBox["expr", "TI"]], "InlineFormula"],
 ". \n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Dimensions",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Dimensions"], "[", 
   StyleBox["expr", "TI"], "]"}]], "InlineFormula"],
 "gives a list of the dimensions of ",
 Cell[BoxData[
  StyleBox["expr", "TI"]], "InlineFormula"],
 ".\n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Total",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Total"], "[", 
   StyleBox["list", "TI"], "]"}]], "InlineFormula"],
 "    gives the total of the elements in ",
 Cell[BoxData[
  StyleBox["list", "TI"]], "InlineFormula"],
 ". \n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Count",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Count"], "[", 
   RowBox[{
    StyleBox["list", "TI"], ",", 
    StyleBox["pattern", "TI"]}], "]"}]], "InlineFormula"],
 " gives the number of elements in ",
 Cell[BoxData[
  StyleBox["list", "TI"]], "InlineFormula"],
 " that match ",
 Cell[BoxData[
  StyleBox["pattern", "TI"]], "InlineFormula"],
 ".\n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Tally",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Tally"], "[", 
   StyleBox["list", "TI"], "]"}]], "InlineFormula"],
 " tallies the elements in ",
 Cell[BoxData[
  StyleBox["list", "TI"]], "InlineFormula"],
 ", listing all distinct elements together with their multiplicities.\n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["BinCounts",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/BinCounts"], "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      SubscriptBox[
       StyleBox["x", "TI"], 
       StyleBox["1", "TR"]], ",", 
      SubscriptBox[
       StyleBox["x", "TI"], 
       StyleBox["2", "TR"]], ",", 
      StyleBox["\[Ellipsis]", "TR"]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox[
        StyleBox["b", "TI"], 
        StyleBox["1", "TR"]], ",", 
       SubscriptBox[
        StyleBox["b", "TI"], 
        StyleBox["2", "TR"]], ",", 
       StyleBox["\[Ellipsis]", "TR"]}], "}"}], "}"}]}], "]"}]], 
  "InlineFormula"],
 "\[LineSeparator]counts the number of ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["x", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula"],
 " in the intervals ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"[", 
    RowBox[{
     SubscriptBox[
      StyleBox["b", "TI"], 
      StyleBox["1", "TR"]], ",", 
     SubscriptBox[
      StyleBox["b", "TI"], 
      StyleBox["2", "TR"]]}]}], ")"}]], "InlineFormula"],
 ", ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"[", 
    RowBox[{
     SubscriptBox[
      StyleBox["b", "TI"], 
      StyleBox["2", "TR"]], ",", 
     SubscriptBox[
      StyleBox["b", "TI"], 
      StyleBox["3", "TR"]]}]}], ")"}]], "InlineFormula"],
 ", ",
 Cell[BoxData[
  StyleBox["\[Ellipsis]", "TR"]], "InlineFormula"],
 ". "
}], "DisplayText",
 CellChangeTimes->{
  3.57647011571272*^9, 3.576470265915845*^9, {3.576470301478345*^9, 
   3.576470394415845*^9}, {3.57647050271272*^9, 3.57647051771272*^9}, {
   3.576470620728345*^9, 3.57647065265022*^9}, {3.576472592728345*^9, 
   3.57647259558772*^9}}],

Cell[BoxData[
 RowBox[{"data4", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"RandomInteger", "[", 
     RowBox[{"{", 
      RowBox[{"4", ",", "6"}], "}"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.57647054783772*^9, 3.57647055727522*^9}, {
  3.57647065849397*^9, 3.576470718509595*^9}}],

Cell[BoxData[
 RowBox[{"Length", "[", "data4", "]"}]], "Input",
 CellChangeTimes->{{3.57647072968147*^9, 3.57647073596272*^9}}],

Cell[BoxData[
 RowBox[{"Dimensions", "[", "data4", "]"}]], "Input",
 CellChangeTimes->{{3.57647260108772*^9, 3.576472612197095*^9}}],

Cell[BoxData[
 RowBox[{"Dimensions", "[", "data3", "]"}]], "Input",
 CellChangeTimes->{{3.576472627415845*^9, 3.57647262761897*^9}}],

Cell[BoxData[
 RowBox[{"Total", "[", "data4", "]"}]], "Input",
 CellChangeTimes->{{3.57647073968147*^9, 3.576470743822095*^9}}],

Cell[BoxData[
 RowBox[{"Count", "[", 
  RowBox[{"data4", ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.57647074727522*^9, 3.57647077493147*^9}}],

Cell[BoxData[
 RowBox[{"Tally", "[", "data4", "]"}]], "Input",
 CellChangeTimes->{{3.576470782509595*^9, 3.576470787259595*^9}}],

Cell[BoxData[
 RowBox[{"BinCounts", "[", 
  RowBox[{"data4", ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"0", ",", "5", ",", "7"}], "}"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.576470804884595*^9, 3.576470815697095*^9}, {
  3.57647085943147*^9, 3.576470886009595*^9}}],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{
   ButtonBox["Range",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Range"], "[", 
   SubscriptBox[
    StyleBox["i", "TI"], 
    StyleBox["max", "TI"]], "]"}]], "InlineFormula"],
 "                                                                    \
generates the list ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", 
    StyleBox["\[Ellipsis]", "TR"], ",", 
    SubscriptBox[
     StyleBox["i", "TI"], 
     StyleBox["max", "TI"]]}], "}"}]], "InlineFormula"],
 ".",
 StyleBox["\nPartition[", "MR"],
 StyleBox["list", "TI"],
 StyleBox[",", "MR"],
 " ",
 StyleBox["n", "TI"],
 StyleBox["]\t\t\t\t\t\t\t", "MR"],
 "partitions ",
 StyleBox["list", "TI"],
 " into non\[Hyphen]overlapping sublists of length ",
 StyleBox["n", "TI"],
 ". \n",
 StyleBox["Partition[", "MR"],
 StyleBox["list", "TI"],
 StyleBox[",", "MR"],
 " ",
 StyleBox["n", "TI"],
 StyleBox[",", "MR"],
 " ",
 StyleBox["d", "TI"],
 StyleBox["]\t\t\t\t\t\t", "MR"],
 "generates sublists with offset ",
 StyleBox["d", "TI"],
 ". "
}], "DisplayText",
 CellChangeTimes->{{3.57647102890022*^9, 3.576471037040845*^9}, {
  3.576472023322095*^9, 3.57647203540022*^9}, {3.57647296646272*^9, 
  3.57647298093147*^9}, {3.57647307971272*^9, 3.576473081103345*^9}}],

Cell[BoxData[
 RowBox[{"Range", "[", "12", "]"}]], "Input",
 CellChangeTimes->{{3.57647104243147*^9, 3.576471051822095*^9}}],

Cell[BoxData[
 RowBox[{"Partition", "[", 
  RowBox[{
   RowBox[{"Range", "[", "12", "]"}], ",", "3"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Partition", "[", 
  RowBox[{
   RowBox[{"Range", "[", "12", "]"}], ",", "3", ",", "1"}], "]"}]], "Input"],

Cell[TextData[{
 "Taking Parts of Array\n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["First",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/First"], "[", 
   StyleBox["expr", "TI"], "]"}]], "InlineFormula"],
 " gives the first element in ",
 Cell[BoxData[
  StyleBox["expr", "TI"]], "InlineFormula"],
 ".\n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Last",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Last"], "[", 
   StyleBox["expr", "TI"], "]"}]], "InlineFormula"],
 " gives the last element in ",
 Cell[BoxData[
  StyleBox["expr", "TI"]], "InlineFormula"],
 ".\n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Take",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Take"], "[", 
   RowBox[{
    StyleBox["list", "TI"], ",", 
    StyleBox["n", "TI"]}], "]"}]], "InlineFormula"],
 " gives the first ",
 Cell[BoxData[
  StyleBox["n", "TI"]], "InlineFormula"],
 " elements of ",
 Cell[BoxData[
  StyleBox["list", "TI"]], "InlineFormula"],
 ".\n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Take",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Take"], "[", 
   RowBox[{
    StyleBox["list", "TI"], ",", 
    RowBox[{"-", 
     StyleBox["n", "TI"]}]}], "]"}]], "InlineFormula"],
 "gives the last ",
 Cell[BoxData[
  StyleBox["n", "TI"]], "InlineFormula"],
 " elements of ",
 Cell[BoxData[
  StyleBox["list", "TI"]], "InlineFormula"],
 ".\n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Drop",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Drop"], "[", 
   RowBox[{
    StyleBox["list", "TI"], ",", 
    StyleBox["n", "TI"]}], "]"}]], "InlineFormula"],
 " gives ",
 Cell[BoxData[
  StyleBox["list", "TI"]], "InlineFormula"],
 " with its first ",
 Cell[BoxData[
  StyleBox["n", "TI"]], "InlineFormula"],
 " elements dropped.\n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Drop",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Drop"], "[", 
   RowBox[{
    StyleBox["list", "TI"], ",", 
    RowBox[{"-", 
     StyleBox["n", "TI"]}]}], "]"}]], "InlineFormula"],
 " gives ",
 Cell[BoxData[
  StyleBox["list", "TI"]], "InlineFormula"],
 " with its last ",
 Cell[BoxData[
  StyleBox["n", "TI"]], "InlineFormula"],
 " elements dropped.\n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Append",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Append"], "[", 
   RowBox[{
    StyleBox["expr", "TI"], ",", 
    StyleBox["elem", "TI"]}], "]"}]], "InlineFormula"],
 " gives ",
 Cell[BoxData[
  StyleBox["expr", "TI"]], "InlineFormula"],
 " with ",
 Cell[BoxData[
  StyleBox["elem", "TI"]], "InlineFormula"],
 " appended. \n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Prepend",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Prepend"], "[", 
   RowBox[{
    StyleBox["expr", "TI"], ",", 
    StyleBox["elem", "TI"]}], "]"}]], "InlineFormula"],
 " gives ",
 Cell[BoxData[
  StyleBox["expr", "TI"]], "InlineFormula"],
 " with ",
 Cell[BoxData[
  StyleBox["elem", "TI"]], "InlineFormula"],
 " prepended. \n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Insert",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Insert"], "[", 
   RowBox[{
    StyleBox["list", "TI"], ",", 
    StyleBox["elem", "TI"], ",", 
    StyleBox["n", "TI"]}], "]"}]], "InlineFormula"],
 " inserts ",
 Cell[BoxData[
  StyleBox["elem", "TI"]], "InlineFormula"],
 " at position ",
 Cell[BoxData[
  StyleBox["n", "TI"]], "InlineFormula"],
 " in ",
 Cell[BoxData[
  StyleBox["list", "TI"]], "InlineFormula"],
 ". If ",
 Cell[BoxData[
  StyleBox["n", "TI"]], "InlineFormula"],
 " is negative, the position is counted from the end. \n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Delete",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Delete"], "[", 
   RowBox[{
    StyleBox["expr", "TI"], ",", 
    StyleBox["n", "TI"]}], "]"}]], "InlineFormula"],
 "\[LineSeparator]deletes the element at position ",
 Cell[BoxData[
  StyleBox["n", "TI"]], "InlineFormula"],
 " in ",
 Cell[BoxData[
  StyleBox["expr", "TI"]], "InlineFormula"],
 ". If ",
 Cell[BoxData[
  StyleBox["n", "TI"]], "InlineFormula"],
 " is negative, the position is counted from the end.\n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["AppendTo",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/AppendTo"], "[", 
   RowBox[{
    StyleBox["s", "TI"], ",", 
    StyleBox["elem", "TI"]}], "]"}]], "InlineFormula"],
 " appends ",
 Cell[BoxData[
  StyleBox["elem", "TI"]], "InlineFormula"],
 " to the value of ",
 Cell[BoxData[
  StyleBox["s", "TI"]], "InlineFormula"],
 ", and resets ",
 Cell[BoxData[
  StyleBox["s", "TI"]], "InlineFormula"],
 " to the result.\n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["PrependTo",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/PrependTo"], "[", 
   RowBox[{
    StyleBox["s", "TI"], ",", 
    StyleBox["elem", "TI"]}], "]"}]], "InlineFormula"],
 " prepends ",
 Cell[BoxData[
  StyleBox["elem", "TI"]], "InlineFormula"],
 " to the value of ",
 Cell[BoxData[
  StyleBox["s", "TI"]], "InlineFormula"],
 ", and resets ",
 Cell[BoxData[
  StyleBox["s", "TI"]], "InlineFormula"],
 " to the result."
}], "DisplayText",
 CellChangeTimes->{{3.57647159030647*^9, 3.57647161627522*^9}, {
  3.576471650259595*^9, 3.57647166136897*^9}, {3.57647172636897*^9, 
  3.576471874415845*^9}, {3.576471908322095*^9, 3.57647192890022*^9}, {
  3.576472008009595*^9, 3.57647204205647*^9}, {3.576472277322095*^9, 
  3.576472298947095*^9}, {3.576472340165845*^9, 3.576472344009595*^9}, {
  3.57647238577522*^9, 3.576472388978345*^9}, {3.576472424384595*^9, 
  3.576472424697095*^9}, {3.57647247055647*^9, 3.57647250930647*^9}}],

Cell[BoxData["data4"], "Input",
 CellChangeTimes->{{3.576471667134595*^9, 3.576471668478345*^9}}],

Cell[BoxData[
 RowBox[{"First", "[", "data4", "]"}]], "Input",
 CellChangeTimes->{{3.57647167480647*^9, 3.576471679197095*^9}}],

Cell[BoxData[
 RowBox[{"Take", "[", 
  RowBox[{"data4", ",", " ", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.57647204636897*^9, 3.57647205724397*^9}}],

Cell[BoxData[
 RowBox[{"Drop", "[", 
  RowBox[{"data4", ",", " ", 
   RowBox[{"-", "5"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.57647206696272*^9, 3.57647207340022*^9}}],

Cell[BoxData[
 RowBox[{"Append", "[", 
  RowBox[{"data4", ",", " ", "7"}], "]"}]], "Input",
 CellChangeTimes->{{3.57647230105647*^9, 3.57647231390022*^9}}],

Cell[BoxData[
 RowBox[{"Prepend", "[", 
  RowBox[{"data4", ",", " ", "7"}], "]"}]], "Input",
 CellChangeTimes->{{3.576472350165845*^9, 3.57647235733772*^9}}],

Cell[BoxData[
 RowBox[{"Insert", "[", 
  RowBox[{"data4", ",", " ", "7", ",", " ", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.576472392884595*^9, 3.576472404790845*^9}}],

Cell[BoxData["data4"], "Input",
 CellChangeTimes->{{3.57647251949397*^9, 3.57647252252522*^9}}],

Cell[BoxData[
 RowBox[{"AppendTo", "[", 
  RowBox[{"data4", ",", " ", "7"}], "]"}]], "Input",
 CellChangeTimes->{{3.576472528384595*^9, 3.576472529040845*^9}}],

Cell[BoxData["data4"], "Input",
 CellChangeTimes->{{3.576472532353345*^9, 3.57647253386897*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["1.3 Data Visualization",
 FontColor->RGBColor[0, 0, 1]]], "Subsection",
 CellChangeTimes->{
  3.576467232697095*^9, {3.57646788424397*^9, 3.576467890665845*^9}, {
   3.57646998461897*^9, 3.57646998540022*^9}, {3.576470088134595*^9, 
   3.576470097790845*^9}, {3.576472670478345*^9, 3.57647269049397*^9}}],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{
   ButtonBox["ListPlot",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/ListPlot"], "[", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox[
      StyleBox["y", "TI"], 
      StyleBox["1", "TR"]], ",", 
     SubscriptBox[
      StyleBox["y", "TI"], 
      StyleBox["2", "TR"]], ",", 
     StyleBox["\[Ellipsis]", "TR"]}], "}"}], "]"}]], "InlineFormula"],
 "\[LineSeparator]plots points corresponding to a list of values, assumed to \
correspond to ",
 Cell[BoxData[
  StyleBox["x", "TI"]], "InlineFormula"],
 " coordinates 1, 2, \[Ellipsis].\n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["ListPlot",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/ListPlot"], "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SubscriptBox[
        StyleBox["x", "TI"], 
        StyleBox["1", "TR"]], ",", 
       SubscriptBox[
        StyleBox["y", "TI"], 
        StyleBox["1", "TR"]]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox[
        StyleBox["x", "TI"], 
        StyleBox["2", "TR"]], ",", 
       SubscriptBox[
        StyleBox["y", "TI"], 
        StyleBox["2", "TR"]]}], "}"}], ",", 
     StyleBox["\[Ellipsis]", "TR"]}], "}"}], "]"}]], "InlineFormula"],
 "\[LineSeparator]plots a list of points with specified ",
 Cell[BoxData[
  StyleBox["x", "TI"]], "InlineFormula"],
 " and ",
 Cell[BoxData[
  StyleBox["y", "TI"]], "InlineFormula"],
 " coordinates.\n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["ListPlot",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/ListPlot"], "[", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox[
      StyleBox["list", "TI"], 
      StyleBox["1", "TR"]], ",", 
     SubscriptBox[
      StyleBox["list", "TI"], 
      StyleBox["2", "TR"]], ",", 
     StyleBox["\[Ellipsis]", "TR"]}], "}"}], "]"}]], "InlineFormula"],
 "\[LineSeparator]plots several lists of points."
}], "DisplayText",
 CellChangeTimes->{{3.57647270246272*^9, 3.57647275318147*^9}}],

Cell[BoxData["data2"], "Input",
 CellChangeTimes->{{3.57647374336897*^9, 3.576473748478345*^9}, {
  3.576474492259595*^9, 3.57647449380647*^9}}],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"data2", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.576472803728345*^9, 3.57647283843147*^9}, {
  3.57647447755647*^9, 3.57647448346272*^9}}],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"data2", "[", 
    RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
   RowBox[{"Joined", "\[Rule]", " ", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.57647381477522*^9, 3.576473819009595*^9}, {
  3.57647450002522*^9, 3.57647450133772*^9}}],

Cell[BoxData[
 RowBox[{"data5", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"Sin", "[", "x", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", 
      RowBox[{"2", "  ", "Pi"}], ",", "0.5"}], "}"}]}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.576473858853345*^9, 3.57647394368147*^9}, {
   3.57647400693147*^9, 3.576474007822095*^9}, 3.57647405077522*^9, {
   3.576474101822095*^9, 3.57647410465022*^9}, 3.57647418446272*^9}],

Cell[BoxData[
 RowBox[{"plot1", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"data5", ",", "  ", 
    RowBox[{"Filling", "\[Rule]", "Axis"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.576473963822095*^9, {3.576474022259595*^9, 3.57647402449397*^9}, {
   3.576474227134595*^9, 3.57647424530647*^9}}],

Cell[BoxData[
 RowBox[{"plot2", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", " ", 
      RowBox[{"2", " ", "Pi"}]}], "}"}], ",", " ", 
    RowBox[{"PlotStyle", "\[Rule]", " ", "Red"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.576473975103345*^9, 3.576473998165845*^9}, {
  3.576474028572095*^9, 3.57647403024397*^9}, {3.57647409852522*^9, 
  3.57647409874397*^9}, {3.57647415530647*^9, 3.57647416374397*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"plot1", ",", " ", "plot2"}], "]"}]], "Input",
 CellChangeTimes->{{3.57647401661897*^9, 3.576474038415845*^9}}],

Cell[BoxData[
 RowBox[{"data2WithNoise", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"data2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "i", "]"}], "]"}], "+", 
     RowBox[{"RandomReal", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2"}], ",", "2"}], "}"}], "]"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", " ", "1", ",", " ", 
      RowBox[{"Length", "[", 
       RowBox[{"data2", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.57647467427522*^9, 3.57647477921272*^9}}],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"data2", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", "data2WithNoise"}], "}"}], ",", 
   " ", 
   RowBox[{"Joined", "\[Rule]", " ", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.57647430149397*^9, 3.576474442447095*^9}, {
  3.57647451721272*^9, 3.576474594915845*^9}, {3.576474660072095*^9, 
  3.57647466527522*^9}, {3.576474759009595*^9, 3.57647476236897*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["1.4 Data Transforms and Smoothing",
 FontColor->RGBColor[0, 0, 1]]], "Subsection",
 CellChangeTimes->{
  3.576467232697095*^9, {3.57646740068147*^9, 3.576467410072095*^9}, {
   3.57647126546272*^9, 3.576471267728345*^9}, {3.576475028978345*^9, 
   3.576475029165845*^9}, {3.576475158665845*^9, 3.57647517277522*^9}}],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{
   ButtonBox["Rescale",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Rescale"], "[", 
   RowBox[{
    StyleBox["x", "TI"], ",", 
    RowBox[{"{", 
     RowBox[{
      StyleBox["min", "TI"], ",", 
      StyleBox["max", "TI"]}], "}"}]}], "]"}]], "InlineFormula"],
 " gives ",
 Cell[BoxData[
  StyleBox["x", "TI"]], "InlineFormula"],
 " rescaled to run from 0 to 1 over the range ",
 Cell[BoxData[
  StyleBox["min", "TI"]], "InlineFormula"],
 " to ",
 Cell[BoxData[
  StyleBox["max", "TI"]], "InlineFormula"],
 ".\n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["MovingAverage",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/MovingAverage"], "[", 
   RowBox[{
    StyleBox["list", "TI"], ",", 
    StyleBox["r", "TI"]}], "]"}]], "InlineFormula"],
 " gives the moving average of ",
 Cell[BoxData[
  StyleBox["list", "TI"]], "InlineFormula"],
 ", computed by averaging runs of ",
 Cell[BoxData[
  StyleBox["r", "TI"]], "InlineFormula"],
 " elements."
}], "DisplayText",
 CellChangeTimes->{
  3.576475035228345*^9, {3.57647519711897*^9, 3.576475217384595*^9}}],

Cell[BoxData[
 RowBox[{"data6", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"x", "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"4", "+", 
        RowBox[{"RandomReal", "[", "]"}]}], ")"}], " ", 
      RowBox[{"Sin", "[", "x", "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"RandomReal", "[", "]"}]}], ")"}], " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"5", " ", "x"}], "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "9.9", ",", "0.1"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.5136351070625*^9, 3.513635109078125*^9}, 
   3.576475363384595*^9}],

Cell[BoxData[
 RowBox[{"plotdata", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"data6", ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PointSize", "[", "0.013", "]"}], ",", 
       RowBox[{"RGBColor", "[", 
        RowBox[{"1", ",", "0", ",", "0"}], "]"}]}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{3.57647536824397*^9}],

Cell[BoxData[
 RowBox[{"data7", " ", "=", " ", 
  RowBox[{"Rescale", "[", 
   RowBox[{"data6", ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Min", "[", "data6", "]"}], ",", " ", 
      RowBox[{"Max", "[", "data6", "]"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.576475383884595*^9, 3.576475427540845*^9}}],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"data7", ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PointSize", "[", "0.013", "]"}], ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "1", ",", "0"}], "]"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.57647544733772*^9, 3.576475464634595*^9}}],

Cell[BoxData[
 RowBox[{"MovingAverage", "[", 
  RowBox[{"data6", ",", "3"}], "]"}]], "Input",
 CellChangeTimes->{3.576475372072095*^9}],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"MovingAverage", "[", 
   RowBox[{"data6", ",", "3"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.576469818134595*^9, 3.576469845447095*^9}, 
   3.57647537608772*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["1.5 Curve Fitting",
 FontColor->RGBColor[0, 0, 1]]], "Subsection",
 CellChangeTimes->{
  3.521436105048457*^9, {3.5214373201961193`*^9, 3.521437323274934*^9}, {
   3.521437751339509*^9, 3.5214377621071324`*^9}, 3.5534796045625*^9, 
   3.576475650353345*^9}],

Cell[TextData[{
 StyleBox["Fit[", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["data", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[",", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["funs", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[",", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["vars", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["]", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" finds a least\[Hyphen]squares fit to a list of data as a linear \
combination of the functions ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["funs", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" of variables ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["vars", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[". \n",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["FindFit[", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["data", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[",", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["expr", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[",", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["pars", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[",", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["vars", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["]", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" finds numerical values of the parameters ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["pars", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" that make ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["expr", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" give a best fit to ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["data", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" as a function of ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["vars", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[". \n",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[
  RowBox[{
   StyleBox["FindFit", "MR",
    FontColor->RGBColor[1, 0, 0]], "[", 
   RowBox[{
    StyleBox["data", "TI"], ",", 
    RowBox[{"{", 
     RowBox[{
      StyleBox["expr", "TI"], ",", 
      StyleBox["cons", "TI"]}], "}"}], ",", 
    StyleBox["pars", "TI"], ",", 
    StyleBox["vars", "TI"]}], "]"}]], "InlineFormula",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["  finds a best fit subject to the parameter constraints ",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[
  StyleBox["cons", "TI"]], "InlineFormula",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[".",
  FontColor->RGBColor[1, 0, 0]]
}], "DisplayText",
 CellChangeTimes->{{3.52143678809258*^9, 3.521436790186799*^9}, {
  3.5214371986376467`*^9, 3.521437208092889*^9}, {3.521437652708085*^9, 
  3.521437683386831*^9}, {3.553479563984375*^9, 3.553479590671875*^9}}],

Cell[CellGroupData[{

Cell["1.5.1 Fit", "Subsubsection",
 CellChangeTimes->{{3.5214368158956814`*^9, 3.5214368209905725`*^9}, {
  3.576475671103345*^9, 3.576475674134595*^9}}],

Cell[BoxData[
 RowBox[{"data1", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"3", "+", 
          RowBox[{"0.5", 
           RowBox[{"Random", "[", "]"}]}]}], ")"}], 
        SuperscriptBox["x", "2"]}], "+", 
       RowBox[{"2", "x"}], "-", "3", "+", 
       RowBox[{"2", 
        RowBox[{"Random", "[", "]"}]}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "1"}], ",", "2", ",", "0.1"}], "}"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"plotdata1", "=", 
  RowBox[{"ListPlot", "[", "data1", "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"fit1", "=", 
  RowBox[{"Fit", "[", 
   RowBox[{"data1", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "x", ",", 
      SuperscriptBox["x", "2"]}], "}"}], ",", "x"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"plotfit1", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{"fit1", ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", " ", 
    RowBox[{"PlotStyle", "\[Rule]", " ", "Red"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.576475849009595*^9, 3.576475854603345*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"plotdata1", ",", "plotfit1"}], "]"}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["1.5.2 FindFit", "Subsubsection",
 CellChangeTimes->{{3.5214368257728934`*^9, 3.521436826773117*^9}, 
   3.5214377270216026`*^9, {3.55347955734375*^9, 3.553479558125*^9}, {
   3.57647567783772*^9, 3.57647567993147*^9}}],

Cell[BoxData[
 RowBox[{"model2", "=", 
  RowBox[{"a", "+", 
   RowBox[{"b", " ", "x"}], " ", "+", " ", 
   RowBox[{"c", " ", 
    SuperscriptBox["x", "2"]}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"fit2", "=", 
  RowBox[{"FindFit", "[", 
   RowBox[{"data1", ",", "model2", ",", 
    RowBox[{"{", 
     RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "x"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"plotfit2", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"model2", " ", "/.", " ", "fit2"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", " ", 
    RowBox[{"PlotStyle", "\[Rule]", "Magenta"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5214368725646224`*^9, 3.5214368782846537`*^9}, {
  3.57647599018147*^9, 3.576476028728345*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"plotdata1", ",", "plotfit2"}], "]"}]], "Input",
 CellChangeTimes->{{3.521436896163657*^9, 3.521436931468439*^9}}],

Cell[BoxData[
 RowBox[{"data2", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{
       RowBox[{"3", 
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"4", " ", "x"}], " ", "+", " ", "3", "+", 
          RowBox[{"Random", "[", "]"}]}], "]"}]}], " ", "+", " ", 
       RowBox[{"Random", "[", "]"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "\[Pi]"}], ",", "\[Pi]", ",", "0.05"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{
  3.5214369563490105`*^9, {3.5534800060625*^9, 3.5534800164375*^9}}],

Cell[BoxData[
 RowBox[{"plotdata2", "=", 
  RowBox[{"ListPlot", "[", "data2", "]"}]}]], "Input",
 CellChangeTimes->{{3.5214369635224924`*^9, 3.5214369658042536`*^9}}],

Cell[BoxData[
 RowBox[{"model3", "=", 
  RowBox[{
   RowBox[{"a", " ", 
    RowBox[{"Sin", "[", 
     RowBox[{
      RowBox[{"b", " ", "x"}], " ", "+", " ", "c"}], "]"}]}], "+", 
   "d"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"fit3", "=", 
  RowBox[{"FindFit", "[", 
   RowBox[{"data2", ",", "model3", ",", 
    RowBox[{"{", 
     RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{3.521438137379895*^9}],

Cell[BoxData[
 RowBox[{"plotfit3", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"model3", "/.", "fit3"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"RGBColor", "[", 
      RowBox[{"0", ",", "0", ",", "1"}], "]"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"plotdata2", ",", "plotfit3"}], "]"}]], "Input",
 CellChangeTimes->{3.521436998858531*^9}],

Cell[BoxData[
 RowBox[{"fit3b", "=", 
  RowBox[{"FindFit", "[", 
   RowBox[{"data2", ",", "model3", ",", 
    RowBox[{"{", 
     RowBox[{"a", ",", 
      RowBox[{"{", 
       RowBox[{"b", ",", "4.1"}], "}"}], ",", "c", ",", "d"}], "}"}], ",", 
    "x"}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.5214370176439877`*^9, {3.553479820421875*^9, 3.553479824453125*^9}, {
   3.55347991353125*^9, 3.553479958296875*^9}, {3.553480038953125*^9, 
   3.55348012834375*^9}, {3.55348019353125*^9, 3.553480202265625*^9}}],

Cell[BoxData[
 RowBox[{"plotfit3b", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"model3", "/.", "fit3b"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Pink"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.57647609883772*^9, 3.57647609940022*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"plotdata2", ",", "plotfit3b"}], "]"}]], "Input",
 CellChangeTimes->{3.5214370318034086`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["1.6 Interpolation and Splines",
 FontColor->RGBColor[0, 0, 1]]], "Subsection",
 CellChangeTimes->{
  3.521437333621001*^9, {3.57647574755647*^9, 3.576475750415845*^9}}],

Cell[TextData[{
 StyleBox["Interpolation[", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["data", "TI",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["]", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" constructs an ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["InterpolatingFunction", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" object which represents an approximate function that interpolates \
the data. ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["\n", "MR",
  FontColor->RGBColor[1, 0, 0]],
 Cell[BoxData[
  FormBox[GridBox[{
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\<\"Spline[\"\>", "MR"], 
         StyleBox["\<\"points\"\>", "TI"], 
         StyleBox[",", "MR"], "\<\" \"\>", 
         StyleBox["\<\"type\"\>", "TI"], 
         StyleBox["\<\"]\"\>", "MR"], "\<\" \"\>"}], TraditionalForm]]], Cell[
      BoxData[
       FormBox["\<\"a spline curve graphics primitive\"\>", TraditionalForm]]]}
    },
    GridBoxAlignment->{
     "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, 
      "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], TraditionalForm]],
  FontColor->RGBColor[1, 0, 0],
  GridBoxOptions->{
  GridBoxDividers->{
   "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
    "RowsIndexed" -> {}},
  GridBoxSpacings->{"Columns" -> {
      Offset[0.27999999999999997`], {
       Offset[0.5599999999999999]}, 
      Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
      Offset[0.2], {
       Offset[0.16]}, 
      Offset[0.2]}, "RowsIndexed" -> {}}}],
 StyleBox[" (Supported types are ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["Cubic", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[", ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["Bezier", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[", and ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["CompositeBezier", "MR",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[")",
  FontColor->RGBColor[1, 0, 0]]
}], "DisplayText"],

Cell[CellGroupData[{

Cell["1.6.1 Interpolation", "Subsubsection",
 CellChangeTimes->{{3.521437338903434*^9, 3.5214373402631135`*^9}, {
  3.57647579761897*^9, 3.57647579811897*^9}}],

Cell[BoxData[
 RowBox[{"data1", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        SuperscriptBox["x", "2"]}]]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "2"}], ",", "2", ",", "0.4"}], "}"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"plotdata1", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"data1", ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PointSize", "[", "0.015", "]"}], ",", 
       RowBox[{"RGBColor", "[", 
        RowBox[{"1", ",", "0", ",", "0"}], "]"}]}], "}"}]}]}], 
   "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"f1", "=", 
  RowBox[{"Interpolation", "[", "data1", "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"plotf1", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"f1", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"RGBColor", "[", 
      RowBox[{"0", ",", "0", ",", "1"}], "]"}]}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"plotdata1", ",", "plotf1"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"f11", "=", 
  RowBox[{"Interpolation", "[", 
   RowBox[{"data1", ",", " ", 
    RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"plotf2", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"f11", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"RGBColor", "[", 
      RowBox[{"0", ",", "0", ",", "1"}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.55348030084375*^9, 3.553480308234375*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"plotdata1", ",", "plotf2"}], "]"}]], "Input",
 CellChangeTimes->{{3.553480312453125*^9, 3.553480312609375*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["1.6.2 Spline", "Subsubsection",
 CellChangeTimes->{{3.5214373450141773`*^9, 3.521437345592432*^9}, {
  3.576475802197095*^9, 3.576475804353345*^9}}],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<Splines`\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.5214374207498884`*^9, 3.5214374652129707`*^9}}],

Cell[BoxData[
 RowBox[{"spline1", "=", 
  RowBox[{"Spline", "[", 
   RowBox[{"data1", ",", "Cubic"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"Graphics", "[", "spline1", "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"plotdata1", ",", 
   RowBox[{"Graphics", "[", "spline1", "]"}]}], "]"}]], "Input"]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Section 2 : Statistics", "Section",
 CellChangeTimes->{3.576467236165845*^9}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["2.1 Descriptive Statistics",
 FontColor->RGBColor[0, 0, 1]]], "Subsection",
 CellChangeTimes->{3.576467238447095*^9}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   StyleBox[GridBox[{
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<Mean[\>\"", "MR"], 
          StyleBox["\"\<data\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{"\"\<average value \>\"", Cell[BoxData[
           FormBox[
            RowBox[{
             FractionBox["1", 
              StyleBox["n", "TI"]], 
             UnderscriptBox["\[Sum]", 
              StyleBox["i", "TI"],
              LimitsPositioning->True], 
             SubscriptBox[
              StyleBox["x", "TI"], 
              StyleBox["i", "TI"]]}], TraditionalForm]], "InlineFormula"]}], 
         TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<Median[\>\"", "MR"], 
          StyleBox["\"\<data\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox["\"\<median (central value)\>\"", TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<Mode[\>\"", "MR"], 
          StyleBox["\"\<data\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox["\"\<mode \>\"", TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<GeometricMean[\>\"", "MR"], 
          StyleBox["\"\<data\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{"\"\<geometric mean \>\"", Cell[BoxData[
           FormBox[
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               UnderscriptBox["\[Product]", 
                StyleBox["i", "TI"],
                LimitsPositioning->True], 
               SubscriptBox[
                StyleBox["x", "TI"], 
                StyleBox["i", "TI"]]}], ")"}], 
             FractionBox["1", 
              StyleBox["n", "TI"]]], TraditionalForm]], "InlineFormula"], 
          "\"\< \>\""}], TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<HarmonicMean[\>\"", "MR"], 
          StyleBox["\"\<data\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{"\"\<harmonic mean \>\"", Cell[BoxData[
           FormBox[
            RowBox[{
             StyleBox["n", "TI"], "/", 
             UnderscriptBox["\[Sum]", 
              StyleBox["i", "TI"],
              LimitsPositioning->True], 
             FractionBox["1", 
              SubscriptBox[
               StyleBox["x", "TI"], 
               StyleBox["i", "TI"]]]}], TraditionalForm]], "InlineFormula"]}],
          TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<RootMeanSquare[\>\"", "MR"], 
          StyleBox["\"\<data\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{"\"\<root mean square \>\"", Cell[BoxData[
           FormBox[
            SqrtBox[
             RowBox[{
              FractionBox["1", 
               StyleBox["n", "TI"]], 
              UnderscriptBox["\[Sum]", 
               StyleBox["i", "TI"],
               LimitsPositioning->True], 
              SubsuperscriptBox[
               StyleBox["x", "TI"], 
               StyleBox["i", "TI"], "2"]}]], TraditionalForm]], 
           "InlineFormula"], "\"\< \>\""}], TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<TrimmedMean[\>\"", "MR"], 
          StyleBox["\"\<data\>\"", "TI"], 
          StyleBox[",", "MR"], "\"\< \>\"", 
          StyleBox["\"\<f\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{"\"\<mean of remaining entries, when a fraction \>\"", 
          StyleBox["\"\<f\>\"", "TI"], 
          "\"\< is removed from each end of the sorted list of data \>\""}], 
         TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<TrimmedMean[\>\"", "MR"], 
          StyleBox["\"\<data\>\"", "TI"], 
          StyleBox[",", "MR"], "\"\< \>\"", Cell[BoxData[
           FormBox["{", TraditionalForm]], "InlineFormula"], Cell[BoxData[
           FormBox[
            SubscriptBox[
             StyleBox["\"\<f\>\"", "TI"], "\"\<1\>\""], TraditionalForm]], 
           "InlineFormula"], 
          StyleBox[",", "MR"], "\"\< \>\"", Cell[BoxData[
           FormBox[
            SubscriptBox[
             StyleBox["\"\<f\>\"", "TI"], "\"\<2\>\""], TraditionalForm]], 
           "InlineFormula"], Cell[BoxData[
           FormBox["}", TraditionalForm]], "InlineFormula"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{
         "\"\<mean of remaining entries, when fractions \>\"", Cell[BoxData[
           FormBox[
            SubscriptBox[
             StyleBox["\"\<f\>\"", "TI"], "\"\<1\>\""], TraditionalForm]], 
           "InlineFormula"], "\"\< and \>\"", Cell[BoxData[
           FormBox[
            SubscriptBox[
             StyleBox["\"\<f\>\"", "TI"], "\"\<2\>\""], TraditionalForm]], 
           "InlineFormula"], 
          "\"\< are dropped from each end of the sorted data \>\""}], 
         TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<Quantile[\>\"", "MR"], 
          StyleBox["\"\<data\>\"", "TI"], 
          StyleBox[",", "MR"], "\"\< \>\"", 
          StyleBox["\"\<q\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{Cell[BoxData[
           FormBox[
            StyleBox["q", "TI"], TraditionalForm]], "InlineFormula"], Cell[
          BoxData[
           FormBox[
            SuperscriptBox["\[Null]", "\"\<th\>\""], TraditionalForm]], 
           "InlineFormula"], "\"\< quantile \>\""}], TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<InterpolatedQuantile[\>\"", "MR"], 
          StyleBox["\"\<data\>\"", "TI"], 
          StyleBox[",", "MR"], "\"\< \>\"", 
          StyleBox["\"\<q\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{Cell[BoxData[
           FormBox[
            StyleBox["q", "TI"], TraditionalForm]], "InlineFormula"], Cell[
          BoxData[
           FormBox[
            SuperscriptBox["\[Null]", "\"\<th\>\""], TraditionalForm]], 
           "InlineFormula"], 
          "\"\< quantile of the distribution inferred by linear interpolation \
of the entries in the list of data \>\""}], TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<Quartiles[\>\"", "MR"], 
          StyleBox["\"\<data\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox["\"\<list of quartiles \>\"", TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<LocationReport[\>\"", "MR"], 
          StyleBox["\"\<data\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{
          RowBox[{"\"\<list of location statistics including \>\"", 
           StyleBox["\"\<Mean\>\"", "MR"]}], ",", " ", 
          StyleBox["\"\<HarmonicMean\>\"", "MR"], ",", " ", 
          RowBox[{"and", " ", 
           StyleBox["\"\<Median\>\"", "MR"], "\"\< \>\""}]}], 
         TraditionalForm]]]}
     },
     GridBoxAlignment->{
      "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, 
       "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}],
    FontColor->RGBColor[1, 0, 0]], TraditionalForm]],
  GridBoxOptions->{
  GridBoxDividers->{
   "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
    "Rows" -> {
     False, False, False, False, False, False, False, False, False, False, 
      False, {True}, False}, "RowsIndexed" -> {}},
  GridBoxSpacings->{"Columns" -> {
      Offset[0.27999999999999997`], {
       Offset[0.5599999999999999]}, 
      Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
      Offset[0.2], {
       Offset[0.16]}, 
      Offset[0.2]}, "RowsIndexed" -> {}}}],
 "\n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Variance",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/Variance"], "[", 
   StyleBox["list", "TI"], "]"}]], "InlineFormula"],
 "gives the sample variance of the elements in ",
 Cell[BoxData[
  StyleBox["list", "TI"]], "InlineFormula"],
 ".\n",
 Cell[BoxData[
  RowBox[{
   ButtonBox["StandardDeviation",
    BaseStyle->"Link",
    ButtonData->"paclet:ref/StandardDeviation"], "[", 
   StyleBox["list", "TI"], "]"}]], "InlineFormula"],
 " gives the sample standard deviation of the elements in ",
 Cell[BoxData[
  StyleBox["list", "TI"]], "InlineFormula"],
 "."
}], "DisplayText",
 CellChangeTimes->{{3.576476756853345*^9, 3.57647680165022*^9}}],

Cell[BoxData[
 RowBox[{"data1", "=", 
  RowBox[{"RandomInteger", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"10", ",", "90"}], "}"}], ",", "200"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Mean", "[", "data1", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Variance", "[", "data1", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Quantile", "[", 
  RowBox[{"data1", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "/", "4"}], ",", 
     RowBox[{"3", "/", "4"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.57647685915022*^9, 3.576476870884595*^9}, {
  3.576476941478345*^9, 3.57647695040022*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"<<", "\"\<Histograms`\>\""}], ";"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.513634561515625*^9, 3.51363456646875*^9}, {
  3.576477445353345*^9, 3.57647745155647*^9}}],

Cell[BoxData[
 RowBox[{"Histogram", "[", "data1", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"data2", "=", 
  RowBox[{"RandomInteger", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"10", ",", "90"}], "}"}], ",", "200"}], "]"}]}]], "Input",
 CellChangeTimes->{3.57647727315022*^9}],

Cell[BoxData[
 RowBox[{"data3", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"data1", "[", 
       RowBox[{"[", "i", "]"}], "]"}], ",", " ", 
      RowBox[{"data2", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", " ", "1", ",", " ", 
      RowBox[{"Length", "[", "data1", "]"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.576477293197095*^9, 3.57647733483772*^9}}],

Cell[BoxData[
 RowBox[{"Histogram3D", "[", "data3", "]"}]], "Input",
 CellChangeTimes->{{3.576477350978345*^9, 3.57647737336897*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["2.2 Discrete Distributions",
 FontColor->RGBColor[0, 0, 1]]], "Subsection",
 CellChangeTimes->{3.57646724049397*^9}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[GridBox[{
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<BernoulliDistribution[\>\"", "MR"], 
         StyleBox["\"\<p\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox[
        RowBox[{"\"\<Bernoulli distribution with mean \>\"", Cell[BoxData[
          FormBox[
           StyleBox["p", "TI"], TraditionalForm]], "InlineFormula"], 
         "\"\< \>\""}], TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<BinomialDistribution[\>\"", "MR"], 
         StyleBox["\"\<n\>\"", "TI"], 
         StyleBox[",", "MR"], "\"\< \>\"", 
         StyleBox["\"\<p\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox[
        RowBox[{
        "\"\<binomial distribution for the number of successes that occur in \
\>\"", Cell[BoxData[
          FormBox[
           StyleBox["n", "TI"], TraditionalForm]], "InlineFormula"], 
         "\"\< trials, \\\\nwhere the probability of success in a trial is \>\
\"", Cell[BoxData[
          FormBox[
           StyleBox["p", "TI"], TraditionalForm]], "InlineFormula"], 
         "\"\< \>\""}], TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<DiscreteUniformDistribution[\>\"", "MR"], 
         StyleBox["\"\<n\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox[
        RowBox[{"\"\<discrete uniform distribution with \>\"", Cell[BoxData[
          FormBox[
           StyleBox["n", "TI"], TraditionalForm]], "InlineFormula"], 
         "\"\< states \>\""}], TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<GeometricDistribution[\>\"", "MR"], 
         StyleBox["\"\<p\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox[
        RowBox[{
        "\"\<geometric distribution for the number of trials before the first \
success,\\\\n where the probability of success in a trial is \>\"", Cell[
         BoxData[
          FormBox[
           StyleBox["p", "TI"], TraditionalForm]], "InlineFormula"], 
         "\"\< \>\""}], TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<HypergeometricDistribution[\>\"", "MR"], 
         StyleBox["\"\<n\>\"", "TI"], 
         StyleBox[",", "MR"], "\"\< \>\"", Cell[BoxData[
          FormBox[
           SubscriptBox[
            StyleBox["\"\<n\>\"", "TI"], 
            StyleBox[
             RowBox[{"\"\<s\>\"", "\"\<u\>\"", "\"\<c\>\"", "\"\<c\>\""}], 
             "TI"]], TraditionalForm]], "InlineFormula"], 
         StyleBox[",", "MR"], "\"\< \>\"", Cell[BoxData[
          FormBox[
           SubscriptBox[
            StyleBox["\"\<n\>\"", "TI"], 
            StyleBox[
             RowBox[{"\"\<t\>\"", "\"\<o\>\"", "\"\<t\>\""}], "TI"]], 
           TraditionalForm]], "InlineFormula"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox[
        RowBox[{
         RowBox[{
         "\"\<hypergeometric distribution for the number of successes out of \
a sample of size \>\"", Cell[BoxData[
           FormBox[
            StyleBox["n", "TI"], TraditionalForm]], "InlineFormula"]}], ",", 
         "\[IndentingNewLine]", " ", 
         RowBox[{
         "from", " ", "a", " ", "population", " ", "of", " ", "size", " ", 
          Cell[BoxData[
           FormBox[
            SubscriptBox[
             StyleBox["\"\<n\>\"", "TI"], 
             StyleBox[
              RowBox[{"\"\<t\>\"", "\"\<o\>\"", "\"\<t\>\""}], "TI"]], 
            TraditionalForm]], "InlineFormula"], "\"\< containing \>\"", Cell[
          BoxData[
           FormBox[
            SubscriptBox[
             StyleBox["\"\<n\>\"", "TI"], 
             StyleBox[
              RowBox[{"\"\<s\>\"", "\"\<u\>\"", "\"\<c\>\"", "\"\<c\>\""}], 
              "TI"]], TraditionalForm]], "InlineFormula"], 
          "\"\< successes \>\""}]}], TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<LogSeriesDistribution[\>\"", "MR"], 
         StyleBox["\"\<theta\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox[
        RowBox[{
        "\"\<logarithmic series distribution with parameter \>\"", Cell[
         BoxData[
          FormBox["\[Theta]", TraditionalForm]], "InlineFormula"], 
         "\"\< \>\""}], TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<NegativeBinomialDistribution[\>\"", "MR"], 
         StyleBox["\"\<n\>\"", "TI"], 
         StyleBox[",", "MR"], "\"\< \>\"", 
         StyleBox["\"\<p\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox[
        RowBox[{
        "\"\<negative binomial distribution for the number of failures that \
occur before achieving \>\"", Cell[BoxData[
          FormBox[
           StyleBox["n", "TI"], TraditionalForm]], "InlineFormula"], 
         "\"\< successes, \\\\nwhere the probability of success in a trial is \
\>\"", Cell[BoxData[
          FormBox[
           StyleBox["p", "TI"], TraditionalForm]], "InlineFormula"], 
         "\"\< \>\""}], TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<PoissonDistribution[\>\"", "MR"], 
         StyleBox["\"\<mu\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox[
        RowBox[{"\"\<Poisson distribution with mean \>\"", Cell[BoxData[
          FormBox["\[Mu]", TraditionalForm]], "InlineFormula"], "\"\< \>\""}],
         TraditionalForm]]]}
    },
    GridBoxAlignment->{
     "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, 
      "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], TraditionalForm]],
  FontColor->RGBColor[1, 0, 0],
  GridBoxOptions->{
  GridBoxDividers->{
   "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
    "RowsIndexed" -> {}},
  GridBoxSpacings->{"Columns" -> {
      Offset[0.27999999999999997`], {
       Offset[0.5599999999999999]}, 
      Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
      Offset[0.2], {
       Offset[0.16]}, 
      Offset[0.2]}, "RowsIndexed" -> {}}}],
 "\n\n",
 StyleBox["Functions available in Statistics`Common`  that is included in \
other Statistics package and is not meant to be loaded individually.",
  FontWeight->"Plain",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 "\n",
 Cell[BoxData[
  FormBox[GridBox[{
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<PDF[\>\"", "MR"], 
         StyleBox["\"\<dist\>\"", "TI"], 
         StyleBox[",", "MR"], "\"\< \>\"", 
         StyleBox["\"\<x\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox[
        RowBox[{"\"\<probability density function at \>\"", Cell[BoxData[
          FormBox[
           StyleBox["x", "TI"], TraditionalForm]], "InlineFormula"], 
         "\"\< \>\""}], TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<CDF[\>\"", "MR"], 
         StyleBox["\"\<dist\>\"", "TI"], 
         StyleBox[",", "MR"], "\"\< \>\"", 
         StyleBox["\"\<x\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox[
        RowBox[{"\"\<cumulative distribution function at \>\"", Cell[BoxData[
          FormBox[
           StyleBox["x", "TI"], TraditionalForm]], "InlineFormula"], 
         "\"\< \>\""}], TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<Quantile[\>\"", "MR"], 
         StyleBox["\"\<dist\>\"", "TI"], 
         StyleBox[",", "MR"], "\"\< \>\"", 
         StyleBox["\"\<q\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox[
        RowBox[{Cell[BoxData[
          FormBox[
           StyleBox["q", "TI"], TraditionalForm]], "InlineFormula"], Cell[
         BoxData[
          FormBox[
           SuperscriptBox["\[Null]", "\"\<th\>\""], TraditionalForm]], 
          "InlineFormula"], "\"\< quantile \>\""}], TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<Domain[\>\"", "MR"], 
         StyleBox["\"\<dist\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox[
       "\"\<range of values of the variable (support) \>\"", 
        TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<Mean[\>\"", "MR"], 
         StyleBox["\"\<dist\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox["\"\<mean \>\"", TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<Variance[\>\"", "MR"], 
         StyleBox["\"\<dist\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox["\"\<variance \>\"", TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<StandardDeviation[\>\"", "MR"], 
         StyleBox["\"\<dist\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox["\"\<standard deviation \>\"", TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<Skewness[\>\"", "MR"], 
         StyleBox["\"\<dist\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox["\"\<coefficient of skewness \>\"", TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<Kurtosis[\>\"", "MR"], 
         StyleBox["\"\<dist\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox["\"\<coefficient of kurtosis \>\"", TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<KurtosisExcess[\>\"", "MR"], 
         StyleBox["\"\<dist\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox["\"\<kurtosis excess \>\"", TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<CharacteristicFunction[\>\"", "MR"], 
         StyleBox["\"\<dist\>\"", "TI"], 
         StyleBox[",", "MR"], "\"\< \>\"", 
         StyleBox["\"\<t\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox[
        RowBox[{"\"\<characteristic function \>\"", Cell[BoxData[
          FormBox[
           RowBox[{"\[Phi]", 
            RowBox[{"(", 
             StyleBox["t", "TI"], ")"}]}], TraditionalForm]], 
          "InlineFormula"], "\"\< \>\""}], TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<ExpectedValue[\>\"", "MR"], 
         StyleBox["\"\<f\>\"", "TI"], 
         StyleBox[",", "MR"], "\"\< \>\"", 
         StyleBox["\"\<dist\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox[
        RowBox[{"\"\<expected value of pure function \>\"", Cell[BoxData[
          FormBox[
           StyleBox["f", "TI"], TraditionalForm]], "InlineFormula"], 
         "\"\< with respect to the specified distribution \>\""}], 
        TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<ExpectedValue[\>\"", "MR"], 
         StyleBox["\"\<f\>\"", "TI"], 
         StyleBox[",", "MR"], "\"\< \>\"", 
         StyleBox["\"\<dist\>\"", "TI"], 
         StyleBox[",", "MR"], "\"\< \>\"", 
         StyleBox["\"\<x\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox[
        RowBox[{"\"\<expected value of function \>\"", Cell[BoxData[
          FormBox[
           StyleBox["f", "TI"], TraditionalForm]], "InlineFormula"], 
         "\"\< of \>\"", Cell[BoxData[
          FormBox[
           StyleBox["x", "TI"], TraditionalForm]], "InlineFormula"], 
         "\"\< with respect to the specified distribution \>\""}], 
        TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<Random[\>\"", "MR"], 
         StyleBox["\"\<dist\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox[
       "\"\<pseudorandom number with specified distribution \>\"", 
        TraditionalForm]]]},
     {Cell[BoxData[
       FormBox[
        RowBox[{
         StyleBox["\"\<RandomArray[\>\"", "MR"], 
         StyleBox["\"\<dist\>\"", "TI"], 
         StyleBox[",", "MR"], "\"\< \>\"", 
         StyleBox["\"\<dims\>\"", "TI"], 
         StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], Cell[
      BoxData[
       FormBox[
        RowBox[{
         RowBox[{"\"\<pseudorandom array with dimensionality \>\"", 
          StyleBox["\"\<dims\>\"", "TI"]}], ",", " ", 
         RowBox[{
         "and", " ", "elements", " ", "from", " ", "the", " ", "specified", 
          " ", "distribution", " "}]}], TraditionalForm]]]}
    },
    GridBoxAlignment->{
     "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, 
      "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], TraditionalForm]],
  FontColor->RGBColor[1, 0, 0],
  GridBoxOptions->{
  GridBoxDividers->{
   "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
    "RowsIndexed" -> {}},
  GridBoxSpacings->{"Columns" -> {
      Offset[0.27999999999999997`], {
       Offset[0.5599999999999999]}, 
      Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
      Offset[0.2], {
       Offset[0.16]}, 
      Offset[0.2]}, "RowsIndexed" -> {}}}]
}], "DisplayText"],

Cell[BoxData[
 RowBox[{"bnmdist1", "=", 
  RowBox[{"BinomialDistribution", "[", 
   RowBox[{"30", ",", 
    RowBox[{"1", "/", "4"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"PDF", "[", 
   RowBox[{"bnmdist1", ",", "10"}], "]"}], " ", "//", "N"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CDF", "[", 
   RowBox[{"bnmdist1", ",", "10"}], "]"}], "//", "N"}]], "Input"],

Cell[BoxData[
 RowBox[{"ExpectedValue", "[", 
  RowBox[{"x", ",", 
   RowBox[{"BinomialDistribution", "[", 
    RowBox[{"n", ",", "p"}], "]"}], ",", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"ex", " ", "=", 
  RowBox[{"Assuming", "[", 
   RowBox[{
    RowBox[{"p", "<", "1"}], ",", 
    RowBox[{"Simplify", "[", "%", "]"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"ExpectedValue", "[", 
  RowBox[{
   SuperscriptBox["x", "2"], ",", 
   RowBox[{"BinomialDistribution", "[", 
    RowBox[{"n", ",", "p"}], "]"}], ",", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"exsq", "=", 
  RowBox[{"Assuming", "[", 
   RowBox[{
    RowBox[{"p", "<", "1"}], ",", 
    RowBox[{"Simplify", "[", "%", "]"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"ExpectedValue", "[", 
  RowBox[{
   SuperscriptBox["x", "2"], ",", "bnmdist1", ",", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Mean", "[", 
  RowBox[{"BinomialDistribution", "[", 
   RowBox[{"n", ",", "p"}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Variance", "[", 
  RowBox[{"BinomialDistribution", "[", 
   RowBox[{"n", ",", "p"}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Var", 
     RowBox[{"(", "X", ")"}]}], "=", 
    RowBox[{
     RowBox[{"E", "[", 
      SuperscriptBox["X", "2"], "]"}], "-", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"E", "[", "X", "]"}], ")"}], "2"]}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"Simplify", "[", 
   RowBox[{"exsq", "-", 
    RowBox[{"ex", "^", "2"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"RandomInteger", "[", 
  RowBox[{"bnmdist1", ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.51363493728125*^9, 3.513634938953125*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["2.3 Continuous Distributions",
 FontColor->RGBColor[0, 0, 1]]], "Subsection",
 CellChangeTimes->{3.57646724240022*^9}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[GridBox[{
     {
      StyleBox[Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<ChiSquareDistribution[\>\"", "MR"], 
          StyleBox["\"\<n\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]],
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox[Cell[BoxData[
        FormBox[
         RowBox[{"\"\<chi\[Hyphen]square distribution with \>\"", 
          StyleBox["\"\<n\>\"", "TI"], "\"\< degrees of freedom \>\""}], 
         TraditionalForm]]],
       FontColor->RGBColor[1, 0, 0]]},
     {
      StyleBox[Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<FRatioDistribution[\>\"", "MR"], Cell[BoxData[
           FormBox[
            SubscriptBox[
             StyleBox["\"\<n\>\"", "TI"], "\"\<1\>\""], TraditionalForm]], 
           "InlineFormula"], 
          StyleBox[",", "MR"], "\"\< \>\"", Cell[BoxData[
           FormBox[
            SubscriptBox[
             StyleBox["\"\<n\>\"", "TI"], "\"\<2\>\""], TraditionalForm]], 
           "InlineFormula"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]],
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox[Cell[BoxData[
        FormBox[
         RowBox[{Cell[BoxData[
           FormBox[
            StyleBox["F", "TI"], TraditionalForm]], "InlineFormula"], 
          "\"\<\[Hyphen]ratio distribution with \>\"", Cell[BoxData[
           FormBox[
            SubscriptBox[
             StyleBox["\"\<n\>\"", "TI"], "\"\<1\>\""], TraditionalForm]], 
           "InlineFormula"], "\"\< numerator and \>\"", Cell[BoxData[
           FormBox[
            SubscriptBox[
             StyleBox["\"\<n\>\"", "TI"], "\"\<2\>\""], TraditionalForm]], 
           "InlineFormula"], "\"\< denominator degrees of freedom \>\""}], 
         TraditionalForm]]],
       FontColor->RGBColor[1, 0, 0]]},
     {
      StyleBox[Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<NormalDistribution[\>\"", "MR"], Cell[BoxData[
           FormBox["\[Mu]", TraditionalForm]], "InlineFormula"], 
          StyleBox[",", "MR"], "\"\< \>\"", Cell[BoxData[
           FormBox["\[Sigma]", TraditionalForm]], "InlineFormula"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]],
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox[Cell[BoxData[
        FormBox[
         RowBox[{
         "\"\<normal (Gaussian) distribution with mean \>\"", Cell[BoxData[
           FormBox["\[Mu]", TraditionalForm]], "InlineFormula"], 
          "\"\< and standard deviation \>\"", Cell[BoxData[
           FormBox["\[Sigma]", TraditionalForm]], "InlineFormula"], 
          "\"\< \>\""}], TraditionalForm]]],
       FontColor->RGBColor[1, 0, 0]]},
     {
      StyleBox[Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<StudentTDistribution[\>\"", "MR"], 
          StyleBox["\"\<n\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]],
       FontColor->RGBColor[1, 0, 0]], 
      StyleBox[Cell[BoxData[
        FormBox[
         RowBox[{"\"\<Student \>\"", Cell[BoxData[
           FormBox[
            StyleBox["t", "TI"], TraditionalForm]], "InlineFormula"], 
          "\"\< distribution with \>\"", Cell[BoxData[
           FormBox[
            StyleBox["n", "TI"], TraditionalForm]], "InlineFormula"], 
          "\"\< degrees of freedom \>\""}], TraditionalForm]]],
       FontColor->RGBColor[1, 0, 0]]}
    },
    GridBoxAlignment->{
     "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, 
      "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], TraditionalForm]],
  GridBoxOptions->{
  GridBoxDividers->{
   "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
    "RowsIndexed" -> {}},
  GridBoxSpacings->{"Columns" -> {
      Offset[0.27999999999999997`], {
       Offset[0.5599999999999999]}, 
      Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
      Offset[0.2], {
       Offset[0.16]}, 
      Offset[0.2]}, "RowsIndexed" -> {}}}],
 "\n\n",
 Cell[BoxData[
  FormBox[
   StyleBox[GridBox[{
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<BetaDistribution[\>\"", "MR"], 
          StyleBox["\"\<alpha\>\"", "TI"], 
          StyleBox[",", "MR"], "\"\< \>\"", 
          StyleBox["\"\<beta\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{
         "\"\<continuous beta distribution with shape parameters \>\"", Cell[
          BoxData[
           FormBox["\[Alpha]", TraditionalForm]], "InlineFormula"], 
          "\"\< and \>\"", Cell[BoxData[
           FormBox["\[Beta]", TraditionalForm]], "InlineFormula"], 
          "\"\< \>\""}], TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<CauchyDistribution[\>\"", "MR"], 
          StyleBox["\"\<a\>\"", "TI"], 
          StyleBox[",", "MR"], "\"\< \>\"", 
          StyleBox["\"\<b\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{
         "\"\<Cauchy distribution with location parameter \>\"", Cell[BoxData[
           FormBox[
            StyleBox["a", "TI"], TraditionalForm]], "InlineFormula"], 
          "\"\< and scale parameter \>\"", Cell[BoxData[
           FormBox[
            StyleBox["b", "TI"], TraditionalForm]], "InlineFormula"], 
          "\"\< \>\""}], TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<ChiDistribution[\>\"", "MR"], 
          StyleBox["\"\<n\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{"\"\<chi distribution with \>\"", 
          StyleBox["\"\<n\>\"", "TI"], "\"\< degrees of freedom \>\""}], 
         TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<ExponentialDistribution[\>\"", "MR"], 
          StyleBox["\"\<lambda\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{
         "\"\<exponential distribution with scale inversely proportional to \
parameter \>\"", Cell[BoxData[
           FormBox["\[Lambda]", TraditionalForm]], "InlineFormula"], 
          "\"\< \>\""}], TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<ExtremeValueDistribution[\>\"", "MR"], 
          StyleBox["\"\<alpha\>\"", "TI"], 
          StyleBox[",", "MR"], "\"\< \>\"", 
          StyleBox["\"\<beta\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{
         "\"\<extreme value (Fisher\[Hyphen]Tippett) distribution with \
location parameter \>\"", Cell[BoxData[
           FormBox["\[Alpha]", TraditionalForm]], "InlineFormula"], 
          "\"\< and scale parameter \>\"", Cell[BoxData[
           FormBox["\[Beta]", TraditionalForm]], "InlineFormula"], 
          "\"\< \>\""}], TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<GammaDistribution[\>\"", "MR"], 
          StyleBox["\"\<alpha\>\"", "TI"], 
          StyleBox[",", "MR"], "\"\< \>\"", 
          StyleBox["\"\<lambda\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{
         "\"\<gamma distribution with shape parameter \>\"", Cell[BoxData[
           FormBox["\[Alpha]", TraditionalForm]], "InlineFormula"], 
          "\"\< and scale parameter \>\"", Cell[BoxData[
           FormBox["\[Lambda]", TraditionalForm]], "InlineFormula"], 
          "\"\< \>\""}], TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<HalfNormalDistribution[\>\"", "MR"], 
          StyleBox["\"\<theta\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{
         "\"\<half\[Hyphen]normal distribution with scale inversely \
proportional to parameter \>\"", Cell[BoxData[
           FormBox["\[Theta]", TraditionalForm]], "InlineFormula"], 
          "\"\< \>\""}], TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<LaplaceDistribution[\>\"", "MR"], 
          StyleBox["\"\<mu\>\"", "TI"], 
          StyleBox[",", "MR"], "\"\< \>\"", 
          StyleBox["\"\<beta\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{
         "\"\<Laplace (double exponential) distribution with mean \>\"", Cell[
          BoxData[
           FormBox["\[Mu]", TraditionalForm]], "InlineFormula"], 
          "\"\< and scale parameter \>\"", Cell[BoxData[
           FormBox["\[Beta]", TraditionalForm]], "InlineFormula"], 
          "\"\< \>\""}], TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<LogisticDistribution[\>\"", "MR"], 
          StyleBox["\"\<mu\>\"", "TI"], 
          StyleBox[",", "MR"], "\"\< \>\"", 
          StyleBox["\"\<beta\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{"\"\<logistic distribution with mean \>\"", Cell[BoxData[
           FormBox["\[Mu]", TraditionalForm]], "InlineFormula"], 
          "\"\< and scale parameter \>\"", Cell[BoxData[
           FormBox["\[Beta]", TraditionalForm]], "InlineFormula"], 
          "\"\< \>\""}], TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<LogNormalDistribution[\>\"", "MR"], 
          StyleBox["\"\<mu\>\"", "TI"], 
          StyleBox[",", "MR"], "\"\< \>\"", 
          StyleBox["\"\<sigma\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{
         "\"\<lognormal distribution based on a normal distribution with mean \
\>\"", Cell[BoxData[
           FormBox["\[Mu]", TraditionalForm]], "InlineFormula"], 
          "\"\< and standard deviation \>\"", Cell[BoxData[
           FormBox["\[Sigma]", TraditionalForm]], "InlineFormula"], 
          "\"\< \>\""}], TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<ParetoDistribution[\>\"", "MR"], 
          StyleBox["\"\<k\>\"", "TI"], 
          StyleBox[",", "MR"], "\"\< \>\"", 
          StyleBox["\"\<alpha\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{
         "\"\<Pareto distribution with minimum value parameter \>\"", Cell[
          BoxData[
           FormBox[
            StyleBox["k", "TI"], TraditionalForm]], "InlineFormula"], 
          "\"\< and shape parameter \>\"", Cell[BoxData[
           FormBox["\[Alpha]", TraditionalForm]], "InlineFormula"], 
          "\"\< \>\""}], TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<RayleighDistribution[\>\"", "MR"], 
          StyleBox["\"\<sigma\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{
         "\"\<Rayleigh distribution with scale parameter \>\"", Cell[BoxData[
           FormBox["\[Sigma]", TraditionalForm]], "InlineFormula"], 
          "\"\< \>\""}], TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<UniformDistribution[\>\"", "MR"], 
          StyleBox["\"\<min\>\"", "TI"], 
          StyleBox[",", "MR"], "\"\< \>\"", 
          StyleBox["\"\<max\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{"\"\<uniform distribution on the interval \>\"", Cell[BoxData[
           FormBox["{", TraditionalForm]], "InlineFormula"], 
          StyleBox["\"\<min\>\"", "TI"], 
          StyleBox[",", "MR"], "\"\< \>\"", 
          StyleBox["\"\<max\>\"", "TI"], Cell[BoxData[
           FormBox["}", TraditionalForm]], "InlineFormula"], "\"\< \>\""}], 
         TraditionalForm]]]},
      {Cell[BoxData[
        FormBox[
         RowBox[{
          StyleBox["\"\<WeibullDistribution[\>\"", "MR"], 
          StyleBox["\"\<alpha\>\"", "TI"], 
          StyleBox[",", "MR"], "\"\< \>\"", 
          StyleBox["\"\<beta\>\"", "TI"], 
          StyleBox["\"\<]\>\"", "MR"], "\"\< \>\""}], TraditionalForm]]], 
       Cell[BoxData[
        FormBox[
         RowBox[{
         "\"\<Weibull distribution with shape parameter \>\"", Cell[BoxData[
           FormBox["\[Alpha]", TraditionalForm]], "InlineFormula"], 
          "\"\< and scale parameter \>\"", Cell[BoxData[
           FormBox["\[Beta]", TraditionalForm]], "InlineFormula"], 
          "\"\< \>\""}], TraditionalForm]]]}
     },
     GridBoxAlignment->{
      "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, 
       "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}],
    FontColor->RGBColor[1, 0, 0]], TraditionalForm]],
  GridBoxOptions->{
  GridBoxDividers->{
   "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
    "RowsIndexed" -> {}},
  GridBoxSpacings->{"Columns" -> {
      Offset[0.27999999999999997`], {
       Offset[0.5599999999999999]}, 
      Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
      Offset[0.2], {
       Offset[0.16]}, 
      Offset[0.2]}, "RowsIndexed" -> {}}}]
}], "DisplayText"],

Cell[BoxData[
 RowBox[{"?", "NormalDistribution"}]], "Input"],

Cell[BoxData[
 RowBox[{"normal1", "=", 
  RowBox[{"NormalDistribution", "[", 
   RowBox[{"50", ",", "10"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"PDF", "[", 
  RowBox[{"normal1", ",", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{"%", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "20", ",", "80"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", 
   RowBox[{"-", "\[Infinity]"}], "x"], 
  RowBox[{
   RowBox[{"PDF", "[", 
    RowBox[{"normal1", ",", "t"}], "]"}], 
   RowBox[{"\[DifferentialD]", "t"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"CDF", "[", 
  RowBox[{"normal1", ",", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{"%", ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "20", ",", "80"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Mean", "[", "normal1", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Variance", "[", "normal1", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"?", "Quantile"}]], "Input"],

Cell[BoxData[
 RowBox[{"Quantile", "[", 
  RowBox[{"normal1", ",", "0.5"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Quantile", "[", 
  RowBox[{"normal1", ",", "0.99"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"CDF", "[", 
  RowBox[{"normal1", ",", "%"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"stdnormal", "=", 
  RowBox[{"NormalDistribution", "[", 
   RowBox[{"0", ",", "1"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CDF", "[", 
   RowBox[{"stdnormal", ",", "1"}], "]"}], "-", 
  RowBox[{"CDF", "[", 
   RowBox[{"stdnormal", ",", 
    RowBox[{"-", "1"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"%", "//", "N"}]], "Input"],

Cell[BoxData[
 RowBox[{"ExpectedValue", "[", 
  RowBox[{
   SuperscriptBox["x", "4"], ",", "stdnormal", ",", "x"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", 
   RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], 
  RowBox[{
   SuperscriptBox["x", "4"], 
   RowBox[{"PDF", "[", 
    RowBox[{"stdnormal", ",", "x"}], "]"}], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{"RandomReal", "[", 
  RowBox[{"stdnormal", ",", "100"}], "]"}]], "Input",
 CellChangeTimes->{{3.513635018609375*^9, 3.513635032515625*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Section 3 : Statistical Charts and Graphs", "Section",
 CellChangeTimes->{{3.576467443697095*^9, 3.576467444665845*^9}}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[GridBox[{
     {Cell[TextData[{
       StyleBox["BarChart[", "MR"],
       StyleBox["list", "TI"],
       StyleBox["]\n", "MR"],
       Cell[BoxData[
        FormBox[Cell[TextData[{
          StyleBox["BarChart[", "MR",
           GridBoxOptions->{
           GridBoxDividers->{
            "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{False}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.5599999999999999]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.16]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}}],
          Cell[BoxData[
           FormBox[
            SubscriptBox[
             StyleBox["datalist", "TI"], "1"], TraditionalForm]], 
           "InlineFormula",
           GridBoxOptions->{
           GridBoxDividers->{
            "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {
              False, False, False, True, False, False, True, {False}, False}, 
             "RowsIndexed" -> {}},
           
           GridBoxItemSize->{
            "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{1.}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.5599999999999999]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.16]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}}],
          StyleBox[", ", "MR",
           GridBoxOptions->{
           GridBoxDividers->{
            "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{False}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.5599999999999999]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.16]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}}],
          Cell[BoxData[
           FormBox[
            SubscriptBox[
             StyleBox["datalist", "TI"], "2"], TraditionalForm]], 
           "InlineFormula",
           GridBoxOptions->{
           GridBoxDividers->{
            "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {
              False, False, False, True, False, False, True, {False}, False}, 
             "RowsIndexed" -> {}},
           
           GridBoxItemSize->{
            "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{1.}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.5599999999999999]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.16]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}}],
          StyleBox[", \[Ellipsis]  ]\n", "MR",
           GridBoxOptions->{
           GridBoxDividers->{
            "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{False}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.5599999999999999]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.16]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}}],
          Cell[BoxData[
           FormBox[Cell[TextData[{
             StyleBox["StackedBarChart[", "MR",
              GridBoxOptions->{
              GridBoxDividers->{
               "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{False}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.5599999999999999]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.16]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}}],
             Cell[BoxData[
              FormBox[
               SubscriptBox[
                StyleBox["datalist", "TI"], "1"], TraditionalForm]], 
              "InlineFormula",
              GridBoxOptions->{
              GridBoxDividers->{
               "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                 False, False, False, True, False, False, True, {False}, 
                  False}, "RowsIndexed" -> {}},
              
              GridBoxItemSize->{
               "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{1.}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.5599999999999999]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.16]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}}],
             StyleBox[",", "MR",
              GridBoxOptions->{
              GridBoxDividers->{
               "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{False}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.5599999999999999]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.16]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}}],
             Cell[BoxData[
              FormBox[
               SubscriptBox[
                StyleBox["datalist", "TI"], "2"], TraditionalForm]], 
              "InlineFormula",
              GridBoxOptions->{
              GridBoxDividers->{
               "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                 False, False, False, True, False, False, True, {False}, 
                  False}, "RowsIndexed" -> {}},
              
              GridBoxItemSize->{
               "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{1.}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.5599999999999999]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.16]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}}],
             StyleBox[", \[Ellipsis]  ]\n", "MR",
              GridBoxOptions->{
              GridBoxDividers->{
               "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{False}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.5599999999999999]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.16]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}}],
             Cell[BoxData[
              FormBox[Cell[TextData[{
                StyleBox["PercentileBarChart[", "MR",
                 GridBoxOptions->{
                 GridBoxDividers->{
                  "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{False}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.16]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}],
                Cell[BoxData[
                 FormBox[
                  SubscriptBox[
                   StyleBox["datalist", "TI"], "1"], TraditionalForm]], 
                 "InlineFormula",
                 GridBoxOptions->{
                 GridBoxDividers->{
                  "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    False, False, False, True, False, False, True, {False}, 
                    False}, "RowsIndexed" -> {}},
                 
                 GridBoxItemSize->{
                  "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{1.}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.16]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}],
                StyleBox[",", "MR",
                 GridBoxOptions->{
                 GridBoxDividers->{
                  "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{False}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.16]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}],
                Cell[BoxData[
                 FormBox[
                  SubscriptBox[
                   StyleBox["datalist", "TI"], "2"], TraditionalForm]], 
                 "InlineFormula",
                 GridBoxOptions->{
                 GridBoxDividers->{
                  "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    False, False, False, True, False, False, True, {False}, 
                    False}, "RowsIndexed" -> {}},
                 
                 GridBoxItemSize->{
                  "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{1.}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.16]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}],
                StyleBox[", \[Ellipsis]  ]", "MR",
                 GridBoxOptions->{
                 GridBoxDividers->{
                  "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{False}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.16]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}],
                StyleBox[" ",
                 GridBoxOptions->{
                 GridBoxDividers->{
                  "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {{False}}, "RowsIndexed" -> {}},
                 GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                   "Rows" -> {
                    Offset[0.2], {
                    Offset[0.16]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}]
               }],
                GridBoxOptions->{
                GridBoxDividers->{
                 "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {{False}}, "RowsIndexed" -> {}},
                GridBoxSpacings->{"Columns" -> {
                    Offset[0.27999999999999997`], {
                    Offset[0.5599999999999999]}, 
                    Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                  "Rows" -> {
                    Offset[0.2], {
                    Offset[0.16]}, 
                    Offset[0.2]}, "RowsIndexed" -> {}}}], TraditionalForm]],
              GridBoxOptions->{
              GridBoxDividers->{
               "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{False}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.5599999999999999]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.16]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}}],
             StyleBox[" ",
              GridBoxOptions->{
              GridBoxDividers->{
               "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
                "Rows" -> {{False}}, "RowsIndexed" -> {}},
              GridBoxSpacings->{"Columns" -> {
                  Offset[0.27999999999999997`], {
                   Offset[0.5599999999999999]}, 
                  Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
                "Rows" -> {
                  Offset[0.2], {
                   Offset[0.16]}, 
                  Offset[0.2]}, "RowsIndexed" -> {}}}]
            }],
             GridBoxOptions->{
             GridBoxDividers->{
              "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{False}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.5599999999999999]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.16]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}}], TraditionalForm]],
           GridBoxOptions->{
           GridBoxDividers->{
            "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
             "Rows" -> {{False}}, "RowsIndexed" -> {}},
           GridBoxSpacings->{"Columns" -> {
               Offset[0.27999999999999997`], {
                Offset[0.5599999999999999]}, 
               Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
               Offset[0.2], {
                Offset[0.16]}, 
               Offset[0.2]}, "RowsIndexed" -> {}}}]
         }],
          GridBoxOptions->{
          GridBoxDividers->{
           "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
            "Rows" -> {{False}}, "RowsIndexed" -> {}},
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
              Offset[0.2], {
               Offset[0.16]}, 
              Offset[0.2]}, "RowsIndexed" -> {}}}], TraditionalForm]],
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       " "
      }]], Cell[TextData[{
       "plot a list of data as a bar chart \n",
       StyleBox[
       "generate a bar chart of the data sets\ngenerate a stacked bar chart \
of the data sets\n",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[
       "generate a stacked bar chart of the data sets, where the data for \
each group of bars are scaled so that the absolute values of the heights sum \
to one ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}]
      }]]},
     {Cell[TextData[{
       StyleBox["PieChart[", "MR"],
       StyleBox["list", "TI"],
       StyleBox["]", "MR"],
       " "
      }]], Cell["plot a list of data as a pie chart "]}
    },
    GridBoxAlignment->{
     "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, 
      "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], TraditionalForm]],
  GridBoxOptions->{
  GridBoxDividers->{
   "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
    "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
  GridBoxSpacings->{"Columns" -> {
      Offset[0.27999999999999997`], {
       Offset[0.5599999999999999]}, 
      Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
      Offset[0.2], {
       Offset[0.16]}, 
      Offset[0.2]}, "RowsIndexed" -> {}}}],
 StyleBox["\n",
  FontFamily->"Courier New"],
 Cell[BoxData[
  FormBox[GridBox[{
     {Cell[TextData[{
       StyleBox["TextListPlot[{", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["y", "TI"], "1"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["y", "TI"], "2"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", \[Ellipsis] }]", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[" ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}]
      }],
       GridBoxOptions->{
       GridBoxDividers->{
        "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {False, False, False, True, False, False, {True}, False}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.16]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[TextData[{
       StyleBox["plot ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["y", "TI"], "1"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["y", "TI"], "2"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"\[Ellipsis]", " "}], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[" at ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         StyleBox["x", "TI"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[" values ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox["1", TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox["2", TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"\[Ellipsis]", " "}], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", rendering the points as ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox["1", TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox["2", TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"\[Ellipsis]", " "}], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}]
      }],
       GridBoxOptions->{
       GridBoxDividers->{
        "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {False, False, False, True, False, False, {True}, False}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.16]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}}]},
     {Cell[TextData[{
       StyleBox["TextListPlot[{{", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["x", "TI"], "1"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["y", "TI"], "1"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox["}, {", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["x", "TI"], "2"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["y", "TI"], "2"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox["}, \[Ellipsis] }]", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[" ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}]
      }],
       GridBoxOptions->{
       GridBoxDividers->{
        "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {False, False, False, True, False, False, {True}, False}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.16]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[TextData[{
       StyleBox["plot points ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"(", 
          RowBox[{
           SubscriptBox[
            StyleBox["x", "TI"], "1"], ",", " ", 
           SubscriptBox[
            StyleBox["y", "TI"], "1"]}], ")"}], TraditionalForm]], 
        "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"(", 
          RowBox[{
           SubscriptBox[
            StyleBox["x", "TI"], "2"], ",", " ", 
           SubscriptBox[
            StyleBox["y", "TI"], "2"]}], ")"}], TraditionalForm]], 
        "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"\[Ellipsis]", " "}], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", rendering the points as ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox["1", TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox["2", TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"\[Ellipsis]", " "}], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}]
      }],
       GridBoxOptions->{
       GridBoxDividers->{
        "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {False, False, False, True, False, False, {True}, False}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.16]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}}]},
     {Cell[TextData[{
       StyleBox["TextListPlot[{{", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["x", "TI"], "1"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["y", "TI"], "1"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["expr", "TI"], "1"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox["}, {", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["x", "TI"], "2"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["y", "TI"], "2"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["expr", "TI"], "2"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox["}, \[Ellipsis] }]", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[" ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}]
      }],
       GridBoxOptions->{
       GridBoxDividers->{
        "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {False, False, False, True, False, False, {True}, False}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.16]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[TextData[{
       StyleBox["plot points ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"(", 
          RowBox[{
           SubscriptBox[
            StyleBox["x", "TI"], "1"], ",", " ", 
           SubscriptBox[
            StyleBox["y", "TI"], "1"]}], ")"}], TraditionalForm]], 
        "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"(", 
          RowBox[{
           SubscriptBox[
            StyleBox["x", "TI"], "2"], ",", " ", 
           SubscriptBox[
            StyleBox["y", "TI"], "2"]}], ")"}], TraditionalForm]], 
        "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"\[Ellipsis]", " "}], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", rendering the points as ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["expr", "TI"], "1"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["expr", "TI"], "2"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"\[Ellipsis]", " "}], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}]
      }],
       GridBoxOptions->{
       GridBoxDividers->{
        "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {False, False, False, True, False, False, {True}, False}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.16]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}}]},
     {Cell[TextData[{
       StyleBox["LabeledListPlot[{", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["y", "TI"], "1"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["y", "TI"], "2"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", \[Ellipsis] }]", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[" ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}]
      }],
       GridBoxOptions->{
       GridBoxDividers->{
        "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {False, False, False, True, False, False, {True}, False}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.16]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[TextData[{
       StyleBox["plot ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["y", "TI"], "1"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["y", "TI"], "2"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"\[Ellipsis]", " "}], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[" at ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         StyleBox["x", "TI"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[" values ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox["1", TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox["2", TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"\[Ellipsis]", " "}], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", labeling the points as ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox["1", TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox["2", TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"\[Ellipsis]", " "}], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}]
      }],
       GridBoxOptions->{
       GridBoxDividers->{
        "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {False, False, False, True, False, False, {True}, False}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.16]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}}]},
     {Cell[TextData[{
       StyleBox["LabeledListPlot[{{", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["x", "TI"], "1"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["y", "TI"], "1"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox["}, {", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["x", "TI"], "2"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["y", "TI"], "2"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox["}, \[Ellipsis] }]", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[" ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}]
      }],
       GridBoxOptions->{
       GridBoxDividers->{
        "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {False, False, False, True, False, False, {True}, False}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.16]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[TextData[{
       StyleBox["plot points ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"(", 
          RowBox[{
           SubscriptBox[
            StyleBox["x", "TI"], "1"], ",", " ", 
           SubscriptBox[
            StyleBox["y", "TI"], "1"]}], ")"}], TraditionalForm]], 
        "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"(", 
          RowBox[{
           SubscriptBox[
            StyleBox["x", "TI"], "2"], ",", " ", 
           SubscriptBox[
            StyleBox["y", "TI"], "2"]}], ")"}], TraditionalForm]], 
        "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"\[Ellipsis]", " "}], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", labeling the points as ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox["1", TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox["2", TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"\[Ellipsis]", " "}], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}]
      }],
       GridBoxOptions->{
       GridBoxDividers->{
        "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {False, False, False, True, False, False, {True}, False}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.16]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}}]},
     {Cell[TextData[{
       StyleBox["LabeledListPlot[{{", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["x", "TI"], "1"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["y", "TI"], "1"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["expr", "TI"], "1"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox["}, {", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["x", "TI"], "2"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["y", "TI"], "2"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["expr", "TI"], "2"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox["}, \[Ellipsis] }]", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[" ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}]
      }],
       GridBoxOptions->{
       GridBoxDividers->{
        "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {False, False, False, True, False, False, {True}, False}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.16]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[TextData[{
       StyleBox["plot points ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"(", 
          RowBox[{
           SubscriptBox[
            StyleBox["x", "TI"], "1"], ",", " ", 
           SubscriptBox[
            StyleBox["y", "TI"], "1"]}], ")"}], TraditionalForm]], 
        "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"(", 
          RowBox[{
           SubscriptBox[
            StyleBox["x", "TI"], "2"], ",", " ", 
           SubscriptBox[
            StyleBox["y", "TI"], "2"]}], ")"}], TraditionalForm]], 
        "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"\[Ellipsis]", " "}], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", labeling the points as ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["expr", "TI"], "1"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["expr", "TI"], "2"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         RowBox[{"\[Ellipsis]", " "}], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}]
      }],
       GridBoxOptions->{
       GridBoxDividers->{
        "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {False, False, False, True, False, False, {True}, False}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.16]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}}]},
     {Cell[TextData[{
       StyleBox["ErrorListPlot[{{", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["y", "TI"], "1"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["d", "TI"], "1"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox["}, {", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["y", "TI"], "2"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["d", "TI"], "2"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox["}, \[Ellipsis] }]", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[" ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {False, False, False, True, False, False, {True}, False}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}]
      }],
       GridBoxOptions->{
       GridBoxDividers->{
        "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {False, False, False, True, False, False, {True}, False}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.16]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[TextData[StyleBox[
      "generate a list plot with error bars ",
       GridBoxOptions->{
       GridBoxDividers->{
        "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {False, False, False, True, False, False, {True}, False}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.16]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}}]],
       GridBoxOptions->{
       GridBoxDividers->{
        "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
         "Rows" -> {False, False, False, True, False, False, {True}, False}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.16]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}}]}
    },
    GridBoxAlignment->{
     "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, 
      "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], TraditionalForm]],
  GridBoxOptions->{
  GridBoxDividers->{
   "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
    "Rows" -> {False, False, False, True, False, False, {True}, False}, 
    "RowsIndexed" -> {}},
  GridBoxSpacings->{"Columns" -> {
      Offset[0.27999999999999997`], {
       Offset[0.5599999999999999]}, 
      Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
      Offset[0.2], {
       Offset[0.16]}, 
      Offset[0.2]}, "RowsIndexed" -> {}}}],
 StyleBox["\n",
  FontFamily->"Courier New"],
 Cell[BoxData[
  FormBox[GridBox[{
     {Cell[TextData[{
       StyleBox["Histogram[{", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["x", "TI"], "1"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", ", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       Cell[BoxData[
        FormBox[
         SubscriptBox[
          StyleBox["x", "TI"], "2"], TraditionalForm]], "InlineFormula",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
           False, False, False, True, False, False, True, {False}, False}, 
          "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[", \[Ellipsis] }]", "MR",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}],
       StyleBox[" ",
        GridBoxOptions->{
        GridBoxDividers->{
         "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
          "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.5599999999999999]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.16]}, 
            Offset[0.2]}, "RowsIndexed" -> {}}}]
      }],
       GridBoxOptions->{
       GridBoxDividers->{
        "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.16]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[TextData[StyleBox[
      "generate a histogram of the raw data",
       GridBoxOptions->{
       GridBoxDividers->{
        "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.16]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}}]],
       GridBoxOptions->{
       GridBoxDividers->{
        "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.5599999999999999]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.16]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}}]}
    },
    GridBoxAlignment->{
     "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, 
      "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], TraditionalForm]],
  GridBoxOptions->{
  GridBoxDividers->{
   "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
    "RowsIndexed" -> {}},
  GridBoxSpacings->{"Columns" -> {
      Offset[0.27999999999999997`], {
       Offset[0.5599999999999999]}, 
      Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
      Offset[0.2], {
       Offset[0.16]}, 
      Offset[0.2]}, "RowsIndexed" -> {}}}]
}], "DisplayText"],

Cell[BoxData[
 RowBox[{
  RowBox[{"<<", "\"\<BarCharts`\>\""}], ";", 
  RowBox[{"<<", "\"\<Histograms`\>\""}], ";", 
  RowBox[{"<<", "\"\<PieCharts`\>\""}]}]], "Input"],

Cell[BoxData[
 RowBox[{"p", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Prime", "[", "n", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "10"}], "}"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"BarChart", "[", "p", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"BarChart", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "3"}], ",", "4", ",", "5", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "6", ",", "4", ",", "3"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"StackedBarChart", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "3"}], ",", "4", ",", "5", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "6", ",", "4", ",", "3"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"PercentileBarChart", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "3"}], ",", "4", ",", "5", ",", "2", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "6", ",", "4", ",", "3"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"PieChart", "[", "p", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"PieChart", "[", 
  RowBox[{"p", ",", 
   RowBox[{"PieExploded", "\[Rule]", "All"}]}], " ", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"PieChart", "[", 
  RowBox[{"p", ",", 
   RowBox[{"PieExploded", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"3", ",", "8"}], "}"}]}]}], " ", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"<<", "\"\<Graphics`\>\""}], ";"}]], "Input",
 CellChangeTimes->{{3.513635496203125*^9, 3.51363551521875*^9}}],

Cell[BoxData[
 RowBox[{"TextListPlot", "[", 
  RowBox[{"p", ",", " ", 
   RowBox[{"Axes", "\[Rule]", " ", "True"}], ",", " ", 
   RowBox[{"AxesOrigin", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"LabeledListPlot", "[", 
  RowBox[{"p", ",", " ", 
   RowBox[{"AxesOrigin", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"expdata", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{
       RowBox[{"0.92", " ", 
        SuperscriptBox["10", 
         RowBox[{"0.94", " ", "x"}]]}], "+", 
       RowBox[{"RandomReal", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1."}], ",", "1."}], "}"}], "]"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0.2", ",", "1.2", ",", "0.1"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.57647646374397*^9, 3.57647647946272*^9}}],

Cell[BoxData[
 RowBox[{"erexpdata", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Append", "[", 
      RowBox[{"#1", ",", 
       RowBox[{"RandomReal", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "2."}], "}"}], "]"}]}], "]"}], "&"}], ")"}], "/@", 
   "expdata"}]}]], "Input",
 CellChangeTimes->{3.57647649208772*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"<<", "\"\<ErrorBarPlots`\>\""}], ";"}]], "Input",
 CellChangeTimes->{{3.576476504853345*^9, 3.57647651121272*^9}}],

Cell[BoxData[
 RowBox[{"ErrorListPlot", "[", "erexpdata", "]"}]], "Input"],

Cell[BoxData["data"], "Input"],

Cell[BoxData[
 RowBox[{"Histogram", "[", "data", "]"}]], "Input"]
}, Closed]]
},
ScreenStyleEnvironment->"Working",
WindowSize->{1254, 774},
WindowMargins->{{Automatic, -1662}, {Automatic, 470}},
ShowSelection->True,
Magnification->1.25,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Demo.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 433, 8, 122, "Title"],
Cell[CellGroupData[{
Cell[1003, 32, 90, 1, 92, "Section"],
Cell[1096, 35, 192, 4, 80, "DisplayText"],
Cell[CellGroupData[{
Cell[1313, 43, 185, 3, 57, "Subsection"],
Cell[1501, 48, 2911, 104, 302, "DisplayText"],
Cell[4415, 154, 57, 1, 46, "Input"],
Cell[4475, 157, 622, 15, 102, "Input"],
Cell[5100, 174, 89, 2, 46, "Input"],
Cell[5192, 178, 57, 1, 46, "Input"],
Cell[5252, 181, 148, 4, 46, "Input"],
Cell[5403, 187, 262, 6, 46, "Input"],
Cell[5668, 195, 142, 3, 46, "Input"],
Cell[5813, 200, 66, 1, 46, "Input"],
Cell[5882, 203, 66, 1, 46, "Input"],
Cell[5951, 206, 66, 1, 46, "Input"],
Cell[6020, 209, 135, 3, 46, "Input"],
Cell[6158, 214, 141, 4, 46, "Input"],
Cell[6302, 220, 94, 3, 46, "Input"],
Cell[6399, 225, 229, 6, 46, "Input"],
Cell[6631, 233, 94, 3, 46, "Input"],
Cell[6728, 238, 230, 6, 46, "Input"],
Cell[6961, 246, 94, 3, 46, "Input"],
Cell[7058, 251, 442, 12, 46, "Input"],
Cell[7503, 265, 306, 7, 46, "Input"],
Cell[7812, 274, 228, 4, 46, "Input"],
Cell[8043, 280, 562, 15, 46, "Input"],
Cell[8608, 297, 177, 3, 46, "Input"],
Cell[8788, 302, 177, 3, 46, "Input"],
Cell[8968, 307, 176, 3, 46, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[9181, 315, 288, 5, 47, "Subsection"],
Cell[9472, 322, 4125, 151, 277, "DisplayText"],
Cell[13600, 475, 378, 10, 46, "Input"],
Cell[13981, 487, 127, 2, 46, "Input"],
Cell[14111, 491, 132, 2, 46, "Input"],
Cell[14246, 495, 132, 2, 46, "Input"],
Cell[14381, 499, 127, 2, 46, "Input"],
Cell[14511, 503, 149, 3, 46, "Input"],
Cell[14663, 508, 128, 2, 46, "Input"],
Cell[14794, 512, 288, 7, 46, "Input"],
Cell[15085, 521, 1280, 45, 133, "DisplayText"],
Cell[16368, 568, 124, 2, 46, "Input"],
Cell[16495, 572, 119, 3, 46, "Input"],
Cell[16617, 577, 129, 3, 46, "Input"],
Cell[16749, 582, 5458, 197, 447, "DisplayText"],
Cell[22210, 781, 97, 1, 46, "Input"],
Cell[22310, 784, 127, 2, 46, "Input"],
Cell[22440, 788, 153, 3, 46, "Input"],
Cell[22596, 793, 172, 4, 46, "Input"],
Cell[22771, 799, 155, 3, 46, "Input"],
Cell[22929, 804, 157, 3, 46, "Input"],
Cell[23089, 809, 172, 3, 46, "Input"],
Cell[23264, 814, 95, 1, 46, "Input"],
Cell[23362, 817, 159, 3, 46, "Input"],
Cell[23524, 822, 96, 1, 46, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[23657, 828, 328, 5, 47, "Subsection"],
Cell[23988, 835, 1969, 67, 200, "DisplayText"],
Cell[25960, 904, 144, 2, 46, "Input"],
Cell[26107, 908, 229, 5, 46, "Input"],
Cell[26339, 915, 302, 7, 46, "Input"],
Cell[26644, 924, 506, 12, 46, "Input"],
Cell[27153, 938, 301, 7, 46, "Input"],
Cell[27457, 947, 500, 11, 46, "Input"],
Cell[27960, 960, 158, 3, 46, "Input"],
Cell[28121, 965, 627, 18, 46, "Input"],
Cell[28751, 985, 466, 11, 46, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[29254, 1001, 340, 5, 47, "Subsection"],
Cell[29597, 1008, 1102, 39, 110, "DisplayText"],
Cell[30702, 1049, 647, 20, 46, "Input"],
Cell[31352, 1071, 380, 11, 46, "Input"],
Cell[31735, 1084, 328, 8, 46, "Input"],
Cell[32066, 1094, 363, 9, 46, "Input"],
Cell[32432, 1105, 135, 3, 46, "Input"],
Cell[32570, 1110, 220, 5, 46, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[32827, 1120, 281, 5, 47, "Subsection"],
Cell[33111, 1127, 2926, 95, 307, "DisplayText"],
Cell[CellGroupData[{
Cell[36062, 1226, 153, 2, 85, "Subsubsection"],
Cell[36218, 1230, 559, 18, 78, "Input"],
Cell[36780, 1250, 96, 2, 71, "Input"],
Cell[36879, 1254, 209, 6, 78, "Input"],
Cell[37091, 1262, 324, 8, 71, "Input"],
Cell[37418, 1272, 95, 2, 71, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[37550, 1279, 224, 3, 63, "Subsubsection"],
Cell[37777, 1284, 171, 5, 75, "Input"],
Cell[37951, 1291, 200, 5, 71, "Input"],
Cell[38154, 1298, 416, 10, 71, "Input"],
Cell[38573, 1310, 161, 3, 71, "Input"],
Cell[38737, 1315, 603, 18, 71, "Input"],
Cell[39343, 1335, 166, 3, 71, "Input"],
Cell[39512, 1340, 200, 7, 71, "Input"],
Cell[39715, 1349, 256, 7, 71, "Input"],
Cell[39974, 1358, 360, 10, 71, "Input"],
Cell[40337, 1370, 137, 3, 71, "Input"],
Cell[40477, 1375, 509, 12, 71, "Input"],
Cell[40989, 1389, 354, 9, 71, "Input"],
Cell[41346, 1400, 140, 3, 71, "Input"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[41535, 1409, 192, 3, 47, "Subsection"],
Cell[41730, 1414, 1975, 58, 235, "DisplayText"],
Cell[CellGroupData[{
Cell[43730, 1476, 159, 2, 85, "Subsubsection"],
Cell[43892, 1480, 350, 11, 93, "Input"],
Cell[44245, 1493, 340, 10, 116, "Input"],
Cell[44588, 1505, 94, 2, 71, "Input"],
Cell[44685, 1509, 347, 10, 71, "Input"],
Cell[45035, 1521, 93, 2, 71, "Input"],
Cell[45131, 1525, 172, 4, 71, "Input"],
Cell[45306, 1531, 413, 11, 71, "Input"],
Cell[45722, 1544, 159, 3, 71, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[45918, 1552, 154, 2, 63, "Subsubsection"],
Cell[46075, 1556, 143, 2, 71, "Input"],
Cell[46221, 1560, 120, 3, 71, "Input"],
Cell[46344, 1565, 98, 2, 71, "Input"],
Cell[46445, 1569, 130, 3, 71, "Input"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[46636, 1579, 83, 1, 52, "Section"],
Cell[CellGroupData[{
Cell[46744, 1584, 141, 2, 57, "Subsection"],
Cell[46888, 1588, 9362, 248, 521, "DisplayText"],
Cell[56253, 1838, 172, 5, 46, "Input"],
Cell[56428, 1845, 61, 1, 46, "Input"],
Cell[56492, 1848, 65, 1, 46, "Input"],
Cell[56560, 1851, 302, 8, 46, "Input"],
Cell[56865, 1861, 230, 5, 46, "Input"],
Cell[57098, 1868, 66, 1, 46, "Input"],
Cell[57167, 1871, 213, 6, 46, "Input"],
Cell[57383, 1879, 475, 13, 46, "Input"],
Cell[57861, 1894, 133, 2, 46, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[58031, 1901, 140, 2, 47, "Subsection"],
Cell[58174, 1905, 14353, 373, 756, "DisplayText"],
Cell[72530, 2280, 153, 4, 46, "Input"],
Cell[72686, 2286, 117, 3, 46, "Input"],
Cell[72806, 2291, 112, 3, 46, "Input"],
Cell[72921, 2296, 172, 4, 46, "Input"],
Cell[73096, 2302, 176, 5, 46, "Input"],
Cell[73275, 2309, 197, 5, 51, "Input"],
Cell[73475, 2316, 173, 5, 46, "Input"],
Cell[73651, 2323, 131, 3, 51, "Input"],
Cell[73785, 2328, 128, 3, 46, "Input"],
Cell[73916, 2333, 132, 3, 46, "Input"],
Cell[74051, 2338, 436, 15, 75, "Input"],
Cell[74490, 2355, 162, 3, 46, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[74689, 2363, 142, 2, 47, "Subsection"],
Cell[74834, 2367, 13835, 338, 541, "DisplayText"],
Cell[88672, 2707, 61, 1, 46, "Input"],
Cell[88736, 2710, 126, 3, 46, "Input"],
Cell[88865, 2715, 85, 2, 46, "Input"],
Cell[88953, 2719, 141, 4, 46, "Input"],
Cell[89097, 2725, 229, 7, 68, "Input"],
Cell[89329, 2734, 85, 2, 46, "Input"],
Cell[89417, 2738, 141, 4, 46, "Input"],
Cell[89561, 2744, 63, 1, 46, "Input"],
Cell[89627, 2747, 67, 1, 46, "Input"],
Cell[89697, 2750, 51, 1, 46, "Input"],
Cell[89751, 2753, 92, 2, 46, "Input"],
Cell[89846, 2757, 93, 2, 46, "Input"],
Cell[89942, 2761, 85, 2, 46, "Input"],
Cell[90030, 2765, 126, 3, 46, "Input"],
Cell[90159, 2770, 193, 6, 46, "Input"],
Cell[90355, 2778, 50, 1, 46, "Input"],
Cell[90408, 2781, 132, 3, 51, "Input"],
Cell[90543, 2786, 271, 8, 68, "Input"],
Cell[90817, 2796, 162, 3, 46, "Input"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[91028, 2805, 126, 1, 52, "Section"],
Cell[91157, 2808, 141320, 3337, 433, "DisplayText"],
Cell[232480, 6147, 168, 4, 46, "Input"],
Cell[232651, 6153, 191, 6, 46, "Input"],
Cell[232845, 6161, 61, 1, 46, "Input"],
Cell[232909, 6164, 263, 7, 46, "Input"],
Cell[233175, 6173, 270, 7, 46, "Input"],
Cell[233448, 6182, 273, 7, 46, "Input"],
Cell[233724, 6191, 61, 1, 46, "Input"],
Cell[233788, 6194, 131, 3, 46, "Input"],
Cell[233922, 6199, 180, 5, 46, "Input"],
Cell[234105, 6206, 144, 3, 46, "Input"],
Cell[234252, 6211, 244, 6, 46, "Input"],
Cell[234499, 6219, 191, 5, 46, "Input"],
Cell[234693, 6226, 558, 17, 51, "Input"],
Cell[235254, 6245, 342, 11, 46, "Input"],
Cell[235599, 6258, 149, 3, 46, "Input"],
Cell[235751, 6263, 74, 1, 46, "Input"],
Cell[235828, 6266, 30, 0, 46, "Input"],
Cell[235861, 6268, 65, 1, 46, "Input"]
}, Closed]]
}
]
*)

(* End of internal cache information *)