Documentation.nb

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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    270378,       7962]
NotebookOptionsPosition[    221223,       7111]
NotebookOutlinePosition[    222877,       7157]
CellTagsIndexPosition[    222670,       7148]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{"<<", "NCFPS`"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SNC", "[", 
   RowBox[{"x0", ",", "x1", ",", "x2"}], "]"}], ";"}]}], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.5831918853399305`*^9, 3.5831918950054836`*^9}, 
   3.721909842646302*^9, {3.7219099567491503`*^9, 
   3.7219099615123215`*^9}},ExpressionUUID->"1bec0b65-857e-48af-b1af-\
5126cf30d4f3"],

Cell[CellGroupData[{

Cell["NCFPS", "Title",
 CellChangeTimes->{{3.578756438019226*^9, 3.5787564386392612`*^9}},
 TextAlignment->Center,ExpressionUUID->"2334d109-8743-4cbd-83cf-f8b7c4ae2fa5"],

Cell["\<\
Noncommutative Formal Power Series
Commands for Mathematica\
\>", "Subtitle",
 CellChangeTimes->{{3.5787564431265182`*^9, 3.5787564534111066`*^9}, {
  3.580060074444807*^9, 3.5800600973731184`*^9}, {3.7219106860756063`*^9, 
  3.7219106877492695`*^9}},
 TextAlignment->Center,ExpressionUUID->"895c9b54-143e-47b3-9ac5-4ea1c53660f2"],

Cell[TextData[{
 "Lance Berlin, Luis A. Duffaut Espinosa,\nW. Steven Gray\n\n",
 StyleBox["Maur\[IAcute]cio de Oliveira, J. William Helton, \nBenjamin C. \
Greenberg",
  FontSize->14],
 "\n\nAugust 30, 2021"
}], "Subsubtitle",
 CellChangeTimes->{{3.5787564816487217`*^9, 3.5787564894641685`*^9}, {
  3.580060111495926*^9, 3.580060141855663*^9}, {3.580060259311381*^9, 
  3.5800602793195252`*^9}, {3.58180218800811*^9, 3.581802188647147*^9}, {
  3.5818811797636647`*^9, 3.581881181473668*^9}, {3.5820647261295385`*^9, 
  3.58206472877269*^9}, {3.5831852326514187`*^9, 3.583185233699479*^9}, {
  3.5850885785019073`*^9, 3.5850885835001936`*^9}, {3.586123113027714*^9, 
  3.586123113911764*^9}, {3.646464054478896*^9, 3.646464060119794*^9}, {
  3.7219098539156337`*^9, 3.7219098627819724`*^9}, {3.7894856224958525`*^9, 
  3.789485630185444*^9}, {3.789485680855414*^9, 3.7894857361037683`*^9}, {
  3.817753100737914*^9, 3.817753107498518*^9}, {3.8393683047524633`*^9, 
  3.8393683343921976`*^9}},
 TextAlignment->Center,ExpressionUUID->"b6bc05ae-5c56-47b4-bdc1-30e496097d1b"],

Cell[CellGroupData[{

Cell["0 Reserved Labels", "Section",
 CellChangeTimes->{{3.646463744491295*^9, 
  3.646463767857879*^9}},ExpressionUUID->"e819e21d-ada4-47b9-bc26-\
5255d26d6022"],

Cell[CellGroupData[{

Cell["A", "Subsection",
 CellChangeTimes->{3.6464637770013633`*^9},
 CellTags->"A",ExpressionUUID->"3fc1cb1b-44a8-4289-ba7e-87b08ae4f09c"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.6464637844970803`*^9, 
  3.646463787659444*^9}},ExpressionUUID->"aff82b6c-221c-4f02-8ff0-\
5d1971e741c8"],

Cell[TextData[{
 "For any \[Eta] \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["X", "*"], TraditionalForm]],ExpressionUUID->
  "7ab55ff6-1034-42be-8ba4-1ec9565ff536"],
 ", the coefficient, or coordinate, functions ",
 Cell[BoxData[
  FormBox[
   SubsuperscriptBox["a", "\[Eta]", "k"], TraditionalForm]],ExpressionUUID->
  "6e7a3891-c10c-4855-b2ca-e88f8985cf4b"],
 " are maps on formal series ",
 Cell[BoxData[
  FormBox[
   RowBox[{"c", "\[Element]", 
    RowBox[{
     SuperscriptBox["\[DoubleStruckCapitalR]", "m"], 
     RowBox[{"\[LeftAngleBracket]", 
      RowBox[{"\[LeftAngleBracket]", "X", "\[RightAngleBracket]"}], 
      "\[RightAngleBracket]"}]}]}], TraditionalForm]],ExpressionUUID->
  "b63aafca-af44-4680-b500-0e2bc1518e31"],
 " yielding coeffcients"
}], "Text",
 CellChangeTimes->{{3.6464638100861626`*^9, 3.646463880818349*^9}, {
  3.6464640738589306`*^9, 3.6464640795789967`*^9}, {3.646464115598151*^9, 
  3.646464261293911*^9}, {3.6464643057815266`*^9, 3.646464396111915*^9}, {
  3.6594904164001536`*^9, 3.6594904260179987`*^9}, {3.6594904870295935`*^9, 
  3.6594905184378247`*^9}, {3.659490715667622*^9, 3.659490718110361*^9}, {
  3.6594912297342143`*^9, 
  3.6594912298202634`*^9}},ExpressionUUID->"2dd1cb52-67aa-4d69-aa52-\
674e53c8e1da"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubsuperscriptBox["a", "\[Eta]", "k"], "(", "c", ")"}], ":=", 
    RowBox[{"\[LeftAngleBracket]", 
     RowBox[{
      SubscriptBox["c", "k"], ",", "\[Eta]"}]}]}], TraditionalForm]],
  ExpressionUUID->"3093651b-ceba-476b-81fa-61f15a59377d"],
 "\[RightAngleBracket]"
}], "Text",
 CellChangeTimes->{{3.646464411116306*^9, 3.6464644367458715`*^9}, {
  3.6594907382759986`*^9, 3.6594907567150326`*^9}, {3.6594912204417796`*^9, 
  3.6594912250770206`*^9}},
 TextAlignment->Center,ExpressionUUID->"c35bbd9d-d805-478a-a621-d5c174ed6e5e"],

Cell[TextData[{
 "where ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["c", "k"], "=", 
    RowBox[{
     SubscriptBox["\[CapitalSigma]", 
      RowBox[{"\[Eta]", "\[Element]", 
       RowBox[{"\[LeftAngleBracket]", "X", "\[RightAngleBracket]"}]}]], 
     RowBox[{"\[LeftAngleBracket]", 
      RowBox[{
       SubscriptBox["c", "i"], ",", "\[Eta]"}], "\[RightAngleBracket]"}], 
     "\[Eta]"}]}], TraditionalForm]],ExpressionUUID->
  "d1ac9216-7e7f-4829-8b52-9dec735bb79b"]
}], "Text",
 CellChangeTimes->{{3.659490578142342*^9, 3.659490604928481*^9}, {
  3.659490722663913*^9, 3.659490723224329*^9}, {3.6594912334148245`*^9, 
  3.6594912335018854`*^9}},ExpressionUUID->"2c8f41f7-ab33-4e8e-b6e7-\
300b5555c3da"],

Cell[TextData[{
 "This letter is reserved as the head for such functions and is used \
primarily with the functions ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    PaneSelectorBox[{False->"\<\"RhoRightAugment\"\>", True->
     StyleBox["\<\"RhoRightAugment\"\>", "HyperlinkActive"]}, Dynamic[
      CurrentValue["MouseOver"]],
     BaseStyle->{"Hyperlink"},
     FrameMargins->0,
     ImageSize->Automatic],
    BaseStyle->"Hyperlink",
    ButtonData:>{
      NotebookObject[
       FrontEndObject[
        LinkObject["5tas2_shm", 3, 1]], 58], "RhoRightAugment"},
    ButtonNote->ButtonData],
   Annotation[#, {
     NotebookObject[
      FrontEndObject[
       LinkObject["5tas2_shm", 3, 1]], 58], "RhoRightAugment"}, 
    "Hyperlink"]& ]],
  CellChangeTimes->{
   3.6464754914501286`*^9, {3.646475553467413*^9, 3.6464755831679063`*^9}},
  ExpressionUUID->"e2d68233-1ee4-442b-8724-a0b5cfeca96e"],
 ", ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    PaneSelectorBox[{False->"\<\"RightAugment\"\>", True->
     StyleBox["\<\"RightAugment\"\>", "HyperlinkActive"]}, Dynamic[
      CurrentValue["MouseOver"]],
     BaseStyle->{"Hyperlink"},
     FrameMargins->0,
     ImageSize->Automatic],
    BaseStyle->"Hyperlink",
    ButtonData:>{
      NotebookObject[
       FrontEndObject[
        LinkObject["5tas2_shm", 3, 1]], 58], "RightAugment"},
    ButtonNote->ButtonData],
   Annotation[#, {
     NotebookObject[
      FrontEndObject[
       LinkObject["5tas2_shm", 3, 1]], 58], "RightAugment"}, "Hyperlink"]& ]],
  
  CellChangeTimes->{3.6464754914501286`*^9, 3.646475553467413*^9},
  ExpressionUUID->"54486255-2b78-484d-aff8-ad49bc6f72b1"],
 ", ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    PaneSelectorBox[{False->"\<\"MapCoordinateFunctions\"\>", True->
     StyleBox["\<\"MapCoordinateFunctions\"\>", "HyperlinkActive"]}, Dynamic[
      CurrentValue["MouseOver"]],
     BaseStyle->{"Hyperlink"},
     FrameMargins->0,
     ImageSize->Automatic],
    BaseStyle->"Hyperlink",
    ButtonData:>{
      NotebookObject[
       FrontEndObject[
        LinkObject["s8j2i_shm", 3, 1]], 15], "MapCoordinateFunctions"},
    ButtonNote->ButtonData],
   Annotation[#, {
     NotebookObject[
      FrontEndObject[
       LinkObject["s8j2i_shm", 3, 1]], 15], "MapCoordinateFunctions"}, 
    "Hyperlink"]& ]],
  CellChangeTimes->{3.646479137601983*^9},ExpressionUUID->
  "e1f693ee-776f-4101-8c82-5630c9135488"],
 ", and ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    PaneSelectorBox[{False->"\<\"Antipode\"\>", True->
     StyleBox["\<\"Antipode\"\>", "HyperlinkActive"]}, Dynamic[
      CurrentValue["MouseOver"]],
     BaseStyle->{"Hyperlink"},
     FrameMargins->0,
     ImageSize->Automatic],
    BaseStyle->"Hyperlink",
    ButtonData:>{
      NotebookObject[
       FrontEndObject[
        LinkObject["5tas2_shm", 3, 1]], 58], "Antipode"},
    ButtonNote->ButtonData],
   Annotation[#, {
     NotebookObject[
      FrontEndObject[
       LinkObject["5tas2_shm", 3, 1]], 58], "Antipode"}, "Hyperlink"]& ]],
  CellChangeTimes->{
   3.6464754914501286`*^9, {3.646475553467413*^9, 3.6464755984067335`*^9}},
  ExpressionUUID->"f6d33c2c-c6af-4c1e-a313-4f5ecd342037"],
 "."
}], "Text",
 CellChangeTimes->{{3.646464460846573*^9, 3.646464500672797*^9}, {
   3.646475056121998*^9, 3.64647510360911*^9}, 3.6464751474028006`*^9, {
   3.64647517910949*^9, 3.646475179110469*^9}, {3.6464754618547077`*^9, 
   3.6464754722057486`*^9}, {3.6464755422858887`*^9, 3.646475607347088*^9}, {
   3.6464790401876016`*^9, 3.646479046639144*^9}, 
   3.6464791431169043`*^9},ExpressionUUID->"14e1b53d-b0b3-4a7c-b6a7-\
cf6c3b0b8dbb"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.6464645569981475`*^9, 
  3.6464645582170115`*^9}},ExpressionUUID->"188f86e0-15b4-421c-a899-\
bc013b7feded"],

Cell[BoxData[
 RowBox[{"A", "[", 
  RowBox[{"index", ",", "word"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.646464608725217*^9, 3.6464646185173335`*^9}, {
  3.6594907641002893`*^9, 3.6594907642623916`*^9}, {3.6594909080474815`*^9, 
  3.6594909204062967`*^9}},ExpressionUUID->"aee07f5e-adad-42af-a6d3-\
71d32a17c4e9"],

Cell[TextData[{
 StyleBox["index",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is the ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["k", "th"], TraditionalForm]],ExpressionUUID->
  "16e69b6f-9f51-4374-81c0-49399f84e6e5"],
 " element of ",
 StyleBox["c",
  FontSlant->"Italic"],
 " and ",
 StyleBox["word",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is the noncommutative word, \[Eta], which index a coordinate function ",
 Cell[BoxData[
  FormBox[
   SubsuperscriptBox["a", "\[Eta]", "k"], TraditionalForm]],ExpressionUUID->
  "a9e58d30-6cc6-4fef-99db-0c09ecf00e5f"],
 ".\n",
 StyleBox["DO NOT",
  FontVariations->{"Underline"->True}],
 " include the series from which the function is to draw coefficients. \
Instead use the function MapCoordinateFunctions. This label exists for \
algebraic purposes."
}], "Text",
 CellChangeTimes->{{3.646464642100362*^9, 3.646464824139533*^9}, {
  3.6594907845717344`*^9, 3.659490816378064*^9}, {3.6594908624903393`*^9, 
  3.6594909884126387`*^9}, {3.6594912381501937`*^9, 
  3.659491242692719*^9}},ExpressionUUID->"af41dfa5-ed53-4eef-ace8-\
524aa18947ff"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.6464648649063454`*^9, 
  3.6464648658830957`*^9}},ExpressionUUID->"57f83e58-6b11-4dd3-9456-\
75cbda02b7e5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "[", 
  RowBox[{"2", ",", 
   RowBox[{"x0", "**", "x1"}]}], "]"}]], "Code",
 CellChangeTimes->{{3.6464649277324486`*^9, 3.6464649387817163`*^9}, {
  3.6594910039173512`*^9, 
  3.659491004015405*^9}},ExpressionUUID->"434289e5-3489-48e0-9f18-\
5efab4399942"],

Cell[BoxData[
 RowBox[{"A", "[", 
  RowBox[{"2", ",", 
   RowBox[{"x0", "**", "x1"}]}], "]"}]], "Output",
 CellChangeTimes->{3.646473692643252*^9, 
  3.6594910230147786`*^9},ExpressionUUID->"99d5d988-2f47-43b4-a98f-\
55834593011d"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["1 Elementary Commands", "Section",
 CellChangeTimes->{{3.578423827811129*^9, 
  3.5784238429439945`*^9}},ExpressionUUID->"a6d422eb-d2cf-4113-9c55-\
dfa31f2d10b1"],

Cell[CellGroupData[{

Cell["CharacteristicSeries", "Subsection",
 CellChangeTimes->{{3.578423853390592*^9, 3.5784238579748545`*^9}, {
  3.5784239340202036`*^9, 
  3.5784239419706583`*^9}},ExpressionUUID->"18b9a6eb-2424-4ff8-96ac-\
4d9c365014e9"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.578423987316252*^9, 
  3.5784239921805305`*^9}},ExpressionUUID->"282a6052-3c02-4ee4-b2be-\
32fb567ccc1c"],

Cell[TextData[{
 "Given a subset ",
 StyleBox["L",
  FontSlant->"Italic"],
 " \[SubsetEqual] ",
 StyleBox["X",
  FontSlant->"Italic"],
 "*, the characteristic series of ",
 StyleBox["L",
  FontSlant->"Italic"],
 " is the element in \[DoubleStruckCapitalR]\[LeftAngleBracket]\
\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket] defined by char(",
 StyleBox["L",
  FontSlant->"Italic"],
 ") =",
 Cell[BoxData[
  FormBox[
   UnderscriptBox["\[Sum]", 
    RowBox[{
     StyleBox["\[Nu]",
      FontSize->9], 
     StyleBox["\[Element]",
      FontSize->9], 
     StyleBox["L",
      FontSize->9], " "}]], TraditionalForm]],ExpressionUUID->
  "fc11fb7f-cd9a-4883-8e7c-199fe482c85e"],
 "\[Nu]."
}], "Text",
 CellChangeTimes->{
  3.578424007146386*^9, {3.578424040551297*^9, 3.578424090198137*^9}, {
   3.5784242914796495`*^9, 3.578424298365043*^9}, {3.5784245460202084`*^9, 
   3.578424547642301*^9}, {3.57842462997801*^9, 3.5784246493471184`*^9}, 
   3.5787565162076983`*^9, {3.5787565545838933`*^9, 3.578756665474236*^9}, {
   3.5787566994741807`*^9, 3.5787567022643404`*^9}, 3.578761842526862*^9, {
   3.5787625419888687`*^9, 
   3.5787625462241116`*^9}},ExpressionUUID->"6af7caa3-b46e-4730-bcc7-\
34cb23820ef1"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.578423987316252*^9, 3.5784239921805305`*^9}, {
  3.578756920231807*^9, 
  3.5787569249400764`*^9}},ExpressionUUID->"a7d5530d-c4f3-4853-8d06-\
2bec2d1c8dbd"],

Cell[BoxData[
 RowBox[{"CharacteristicSeries", "[", "list", "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.578756744690767*^9, 3.578756754554331*^9}, {
  3.578756937205778*^9, 3.578756956048856*^9}, {3.578757155630271*^9, 
  3.5787571671529303`*^9}, {3.5787612940974936`*^9, 
  3.5787612951975565`*^9}},ExpressionUUID->"ce1d8128-961f-4dc0-9098-\
a232eba8ec3a"],

Cell[TextData[{
 StyleBox["list",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a list of words describing the language ",
 StyleBox["L",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.5787612864740577`*^9, 3.578761297743702*^9}, {
  3.5787613550419793`*^9, 3.578761425368002*^9}, {3.5800617130205283`*^9, 
  3.5800617338317184`*^9}, {3.5818812656763487`*^9, 
  3.581881266788851*^9}},ExpressionUUID->"87e96d93-bab5-47d0-a2d3-\
b6626f877693"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.578423987316252*^9, 3.5784239921805305`*^9}, {
  3.578761445685164*^9, 
  3.5787614493483734`*^9}},ExpressionUUID->"9fc94b92-a450-417b-abdd-\
3d7077028506"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"L", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x0", "**", "x0"}], ",", "x1", ",", 
     RowBox[{"x2", "**", "x1"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{"CharacteristicSeries", "[", "L", "]"}]}], "Code",
 CellChangeTimes->{{3.578756759972641*^9, 3.5787568153658094`*^9}, {
  3.5787615117819443`*^9, 3.5787615231195927`*^9}, {3.580068313710066*^9, 
  3.580068316856246*^9}},ExpressionUUID->"dd20e6ae-4012-4290-8d03-\
5f9ce9c6d1a4"],

Cell[BoxData[
 RowBox[{"x1", "+", 
  RowBox[{"x0", "**", "x0"}], "+", 
  RowBox[{"x2", "**", "x1"}]}]], "Output",
 CellChangeTimes->{3.578761583319036*^9, 3.580069731903182*^9, 
  3.5804219053992357`*^9},ExpressionUUID->"cf089261-7c3a-40b1-8f29-\
9ad113d55bc5"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["FirstLetter", "Subsection",
 CellChangeTimes->{{3.580060445482029*^9, 
  3.58006045074833*^9}},ExpressionUUID->"f153f19e-ba35-498c-bbfe-\
ddae95d4e700"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.5800604902055874`*^9, 
  3.580060492246704*^9}},ExpressionUUID->"c4cd9f07-b959-4594-8b27-\
e72e0de5a921"],

Cell[TextData[{
 "Given \[Eta] = ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    SubscriptBox["i", "1"]], TraditionalForm]],ExpressionUUID->
  "1cfb75eb-9859-4ec9-b2c5-8d2619f265fe"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    SubscriptBox["i", "2"]], TraditionalForm]],ExpressionUUID->
  "c658ad94-eaef-4682-b660-ee3381d28ebb"],
 "\[CenterEllipsis]",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    SubscriptBox["i", "k"]], TraditionalForm]],ExpressionUUID->
  "6c21f644-92d6-4f23-a913-231c489ad332"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["X", "*"], TraditionalForm]],ExpressionUUID->
  "8d43e582-6aa0-4ce7-bee2-dd3dfabac2e7"],
 ", the first letter of \[Eta] is ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    SubscriptBox["i", "1"]], TraditionalForm]],ExpressionUUID->
  "f80d3f79-6164-47ab-a86b-9dd2aacd6d5a"],
 " . The definition is extended linearly to series."
}], "Text",
 CellChangeTimes->{{3.5800605725782986`*^9, 3.5800605797077065`*^9}, {
  3.5800606615743885`*^9, 3.580060725007017*^9}, {3.5800607897237186`*^9, 
  3.580060884207123*^9}},ExpressionUUID->"00ea0de7-ca76-45bf-8b7b-\
0bb2b58011a8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5800614663784213`*^9, 
  3.5800614677665005`*^9}},ExpressionUUID->"81dd2a32-ca61-49a6-81fb-\
9a924979c29a"],

Cell[BoxData[
 RowBox[{"FirstLetter", "[", "series", "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.5800615263718524`*^9, 
  3.5800615532423897`*^9}},ExpressionUUID->"ea7e014a-e6b7-4044-adf0-\
c352af85ecad"],

Cell[TextData[{
 StyleBox["series",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is noncommutative formal power series."
}], "Text",
 CellChangeTimes->{{3.580061763161396*^9, 3.5800617804223833`*^9}, {
  3.580061818814579*^9, 3.580061835224518*^9}, {3.5818815263494587`*^9, 
  3.5818815275094614`*^9}},ExpressionUUID->"c7682762-fab8-4c67-80cf-\
d5a1febbae28"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.5800618891085997`*^9, 
  3.58006189155774*^9}},ExpressionUUID->"7893bcb8-096d-416d-a886-\
394348efab2c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FirstLetter", "[", 
  RowBox[{
   RowBox[{"x1", "**", "x0"}], "+", 
   RowBox[{"2", 
    RowBox[{"x1", "**", "x0", "**", "x0"}]}]}], "]"}]], "Code",
 CellChangeTimes->{{3.5800619787527275`*^9, 
  3.5800620006099777`*^9}},ExpressionUUID->"a8680197-59e0-406f-b751-\
5c39a12ddcda"],

Cell[BoxData[
 RowBox[{"3", " ", "x1"}]], "Output",
 CellChangeTimes->{{3.580069731979186*^9, 3.580069732280204*^9}, 
   3.580421905497241*^9},ExpressionUUID->"8ac9f7c6-dda1-4d50-b33e-\
be4a9a9745bd"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["ImproperPart", "Subsection",
 CellChangeTimes->{{3.580151866325014*^9, 3.580151867906104*^9}, {
   3.647195732980257*^9, 3.64719573419512*^9}, 
   3.647195831790491*^9},ExpressionUUID->"15d1017c-9f1a-43a7-9066-\
80bc38088c75"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.580151873395418*^9, 
  3.5801518748895035`*^9}},ExpressionUUID->"02fa9138-d2d6-427c-87f0-\
47c1376a15f4"],

Cell[TextData[{
 "The improper part of a series ",
 StyleBox["c",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"fc0ff389-3ced-4a96-8e78-2bd9d9aabb7b"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket] is (",
 StyleBox["c",
  FontSlant->"Italic"],
 ", \[EmptySet]). The current implementation assumes \[ScriptL] = 1."
}], "Text",
 CellChangeTimes->{{3.5801518820519133`*^9, 3.580151943341419*^9}, {
  3.5801520045479198`*^9, 3.5801520543187666`*^9}, {3.580152419489653*^9, 
  3.580152421152748*^9}, {3.6471957386853113`*^9, 
  3.647195757864232*^9}},ExpressionUUID->"ac8ab75c-cc08-4242-bad7-\
f94b0a8faacd"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.580152059303052*^9, 
  3.5801520604031143`*^9}},ExpressionUUID->"9fa16aa8-aa9f-4683-8a0e-\
c56d3da34de5"],

Cell[BoxData[
 RowBox[{"ImproperPart", "[", "series", "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.5801520705436945`*^9, 3.580152077960119*^9}, {
  3.6471957627897153`*^9, 
  3.6471957645428905`*^9}},ExpressionUUID->"ecf25f3e-d785-4c26-b05f-\
9035e3fec292"],

Cell[TextData[{
 StyleBox["series ",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 "is a noncommutative formal power series."
}], "Text",
 CellChangeTimes->{{3.5801521341633334`*^9, 3.580152217072076*^9}, {
  3.580152524390653*^9, 3.580152525101694*^9}, {3.580155178647468*^9, 
  3.580155190531148*^9}, {3.581881658357238*^9, 
  3.5818816592972393`*^9}},ExpressionUUID->"bb32fb14-00d0-44ca-a588-\
e2a4dd398770"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.580152222489385*^9, 
  3.58015222344344*^9}},ExpressionUUID->"cb3f90cc-4977-4941-ad4e-\
9694fad27110"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ImproperPart", "[", 
  RowBox[{"1", "+", "x0", "+", 
   RowBox[{"x0", "**", "x0"}], "+", 
   RowBox[{"x0", "**", "x0", "**", "x0"}]}], "]"}]], "Code",
 CellChangeTimes->{{3.5801522734372997`*^9, 3.580152290812293*^9}, {
   3.647195771125641*^9, 3.647195772201344*^9}, 
   3.647195826626808*^9},ExpressionUUID->"f6df272e-d690-4ed6-82bf-\
13f9f68dadcc"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.5804219057002525`*^9, {3.647195819689397*^9, 
   3.647195834899708*^9}},ExpressionUUID->"d7f2ee3a-8eb9-4b85-9fd6-\
c44860a2b4da"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["LanguageFilter", "Subsection",
 CellChangeTimes->{{3.659539863604553*^9, 
  3.65953986649862*^9}},ExpressionUUID->"ed57f470-baab-4864-b8f3-\
7af849f9d69d"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.659539870498417*^9, 
  3.659539876903967*^9}},ExpressionUUID->"acc17642-1d3a-49f7-b90a-\
cccd761efd6b"],

Cell[TextData[{
 "The polynomial ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["c", "*"], TraditionalForm]],ExpressionUUID->
  "2f4de93e-ac21-4c8d-af2b-3d6a0cd747b9"],
 " is the largest polynomial in ",
 StyleBox["c",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"2a7a96fc-530b-496d-9540-63b8e83419c8"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket] such that ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"supp", "(", 
     SuperscriptBox["c", "*"], ")"}], "\[SubsetEqual]", "L", "\[Subset]", 
    SuperscriptBox["X", "*"]}], TraditionalForm]],ExpressionUUID->
  "a1630ced-7ecd-474a-81c8-f924087bc90c"],
 ". The current implementation assumes \[ScriptL] = 1."
}], "Text",
 CellChangeTimes->{{3.6595401062181873`*^9, 3.6595401856427655`*^9}, {
  3.6595402176806726`*^9, 
  3.6595403781405163`*^9}},ExpressionUUID->"5a2d1c78-ae63-4314-9991-\
e7749afc6c78"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.6595398817632475`*^9, 
  3.659539884678435*^9}},ExpressionUUID->"050654fe-7854-4fd5-b607-\
5317d7711320"],

Cell[BoxData[
 RowBox[{"LanguageFilter", "[", 
  RowBox[{"c", ",", "L"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.6595399162765064`*^9, 3.6595399239379454`*^9}, {
  3.6595404794299417`*^9, 
  3.6595404843474607`*^9}},ExpressionUUID->"5d38dcc6-7296-498a-8bc5-\
b9fd658adcee"],

Cell[TextData[{
 "returns the largest polynomial in the noncommutative series ",
 StyleBox["c",
  FontFamily->"Courier New",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " such that the support of that polynomial is a subset of the language ",
 StyleBox["L",
  FontFamily->"Courier New",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 "."
}], "Text",
 CellChangeTimes->{{3.6595405097037535`*^9, 3.659540522532887*^9}, {
  3.659540558218483*^9, 
  3.659540663323693*^9}},ExpressionUUID->"1127bc83-caa6-472a-ad0a-\
203e73c34a02"],

Cell[BoxData[
 RowBox[{"LanguageFilter", "[", 
  RowBox[{"c", ",", "Y", ",", "X"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.659539928439151*^9, 3.6595399320357175`*^9}, {
  3.659540666569003*^9, 
  3.659540671770705*^9}},ExpressionUUID->"745c8862-a3af-4c70-b212-\
7d47fc97a3ef"],

Cell[TextData[{
 "returns the largest polynomial in the noncommutative series ",
 StyleBox["c",
  FontFamily->"Courier New",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " such that the support of that polynomial is a subset of the language ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox[
     StyleBox["Y",
      FontFamily->"Courier New",
      FontWeight->"Bold",
      FontSlant->"Plain",
      FontColor->RGBColor[0, 0, 1]], "*"], "\[Subset]", 
    SuperscriptBox[
     StyleBox["X",
      FontFamily->"Courier New",
      FontWeight->"Bold",
      FontSlant->"Plain",
      FontColor->RGBColor[0, 0, 1]], "*"]}], TraditionalForm]],ExpressionUUID->
  "9be47c59-2f7c-4d5e-a276-c6554be7bb95"],
 ", where ",
 StyleBox["Y",
  FontFamily->"Courier New",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " and ",
 StyleBox["X",
  FontFamily->"Courier New",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " are each noncommutative alphabets such that ",
 StyleBox["Y",
  FontFamily->"Courier New",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 " \[Subset] ",
 StyleBox["X",
  FontFamily->"Courier New",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 "."
}], "Text",
 CellChangeTimes->{{3.6595406752401752`*^9, 3.659540720112136*^9}, {
  3.6595407509198647`*^9, 3.659540800187852*^9}, {3.6595409682596493`*^9, 
  3.6595410548911333`*^9}},ExpressionUUID->"c4b821b0-51e0-4526-bd46-\
793080f86d5a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.6595398874874315`*^9, 
  3.6595398885951176`*^9}},ExpressionUUID->"ddaf4b9c-ae86-43f5-9b46-\
d29ddca15ea4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"c", "=", 
   RowBox[{"2", "+", "x0", "-", 
    RowBox[{"3", 
     RowBox[{"x1", "**", "x0"}]}], "+", 
    RowBox[{"4", 
     RowBox[{"x0", "**", "x1", "**", "x0"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"lang", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "x0", ",", "x1", ",", 
     RowBox[{"x1", "**", "x0"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{"LanguageFilter", "[", 
  RowBox[{"c", ",", "lang"}], "]"}]}], "Code",
 CellChangeTimes->{{3.6595398981716037`*^9, 3.6595399095577087`*^9}, {
  3.65954084574203*^9, 3.6595409398815117`*^9}, {3.6595410937153053`*^9, 
  3.6595410937803526`*^9}},ExpressionUUID->"9abd2a05-43a1-43b9-b13d-\
8603836cd098"],

Cell[BoxData[
 RowBox[{"2", "+", "x0", "-", 
  RowBox[{"3", " ", 
   RowBox[{"x1", "**", "x0"}]}]}]], "Output",
 CellChangeTimes->{
  3.6595414530566015`*^9},ExpressionUUID->"e1fa96cf-6916-4439-aa69-\
9aef9da0d4f7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"c", "=", 
   RowBox[{"2", "+", "x0", "+", 
    RowBox[{"3", 
     RowBox[{"x1", "**", "x0"}]}], "-", 
    RowBox[{"4", 
     RowBox[{"x2", "**", "x0"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"y", "=", 
   RowBox[{"{", 
    RowBox[{"x0", ",", "x1"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{"{", 
    RowBox[{"x0", ",", "x1", ",", "x2"}], "}"}]}], ";"}], "\n", 
 RowBox[{"LanguageFilter", "[", 
  RowBox[{"c", ",", "y", ",", "x"}], "]"}]}], "Code",
 CellChangeTimes->{{3.6595410888848667`*^9, 3.659541105780616*^9}, {
  3.6595412467602453`*^9, 3.6595412483613915`*^9}, {3.659541369899602*^9, 
  3.6595414150487547`*^9}},ExpressionUUID->"dcd49778-0f79-4edb-a2c9-\
c847458a7595"],

Cell[BoxData[
 RowBox[{"2", "+", "x0", "+", 
  RowBox[{"3", " ", 
   RowBox[{"x1", "**", "x0"}]}]}]], "Output",
 CellChangeTimes->{
  3.6595414603678083`*^9},ExpressionUUID->"98b1ac1c-fbc6-4190-aa3b-\
42ae02a73ea6"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["NCDegree", "Subsection",
 CellChangeTimes->{{3.580063650936371*^9, 
  3.5800636532055006`*^9}},ExpressionUUID->"01e2d044-8f1f-4d7a-97be-\
5940ce0b7aef"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.580063699517149*^9, 
  3.580063702166301*^9}},ExpressionUUID->"365bc1a8-9ba0-4508-8e4d-\
06144fd41d7c"],

Cell[TextData[{
 "Given ",
 StyleBox["p",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"5dd8d400-f7fd-4baf-940f-3b4b654778a0"],
 "\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket], the degree of ",
 StyleBox["p",
  FontSlant->"Italic"],
 " is deg(",
 StyleBox["p",
  FontSlant->"Italic"],
 ") = max{|\[Eta]| : \[Eta] \[Element] supp(",
 StyleBox["p",
  FontSlant->"Italic"],
 ")}. By definition, deg(0) = -\[Infinity]. The partial degree with respect \
to ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "i"], TraditionalForm]],ExpressionUUID->
  "d13f444c-c104-4fe2-8b23-fb6438bef1e3"],
 " \[Element] ",
 StyleBox["X",
  FontSlant->"Italic"],
 " is ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["deg", 
    SubscriptBox["x", "i"]], TraditionalForm]],ExpressionUUID->
  "2fb0a935-4a30-40c7-9b8f-bff8592ab77f"],
 "(",
 StyleBox["p",
  FontSlant->"Italic"],
 ") = max{",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
    SubscriptBox["x", "i"]], TraditionalForm]],ExpressionUUID->
  "50552ae5-2662-40e9-9f11-4c2d7fc8d434"],
 " : \[Eta] \[Element] supp(",
 StyleBox["p",
  FontSlant->"Italic"],
 ")}. By definition, ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["deg", 
    SubscriptBox["x", "i"]], TraditionalForm]],ExpressionUUID->
  "def71c4e-63cf-4583-90b7-5df5d5578358"],
 "(0) = -\[Infinity]. The current implementation assumes \[ScriptL] = 1."
}], "Text",
 CellChangeTimes->{{3.580063717330168*^9, 3.5800637634758077`*^9}, {
  3.580063892605193*^9, 3.5800638988325496`*^9}, {3.5800639485043907`*^9, 
  3.5800639485103908`*^9}, {3.5800639994703054`*^9, 3.5800640363634157`*^9}, {
  3.580064072032456*^9, 3.5800641619035964`*^9}, {3.5800642975103526`*^9, 
  3.5800643135752716`*^9}, {3.580064355261656*^9, 3.580064423799576*^9}, {
  3.5800650279241295`*^9, 3.580065096660061*^9}, {3.5800652191200657`*^9, 
  3.580065247188671*^9}, {3.5800658483830576`*^9, 3.580065910039584*^9}, {
  3.580065983151766*^9, 3.580066000850778*^9}, {3.580066084094539*^9, 
  3.5800660902688923`*^9}, {3.5804218275697837`*^9, 
  3.5804218294418907`*^9}},ExpressionUUID->"8a2c6b29-a0ad-4595-bffa-\
c12190883210"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5800663489866905`*^9, 
  3.5800663503117657`*^9}},ExpressionUUID->"15616037-5ba8-476d-8b12-\
3d1175b943df"],

Cell[BoxData[
 RowBox[{"NCDegree", "[", "polynomial", "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.5800664478453445`*^9, 3.580066454896748*^9}, {
  3.580066511949011*^9, 
  3.580066515146194*^9}},ExpressionUUID->"a08e5672-df66-4535-8b04-\
831d2083c24b"],

Cell[TextData[{
 StyleBox["polynomial",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a non-commutative formal polynomial."
}], "Text",
 CellChangeTimes->{{3.5800668267420163`*^9, 3.5800669464008603`*^9}, {
  3.5800670232222548`*^9, 3.5800670477166557`*^9}, {3.5818815385194855`*^9, 
  3.581881539424487*^9}},ExpressionUUID->"deff1d6d-8e67-4f1e-ae2a-\
698fae35bc20"],

Cell[BoxData[
 RowBox[{"NCDegree", "[", 
  RowBox[{"polynomial", ",", "symbol"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.5800670566151648`*^9, 
  3.5800670674287825`*^9}},ExpressionUUID->"c85a2a79-2992-4123-93a2-\
f4ef312ff58d"],

Cell[TextData[{
 StyleBox["symbol",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a letter in a noncommutative alphabet."
}], "Text",
 CellChangeTimes->{{3.580067208695863*^9, 3.580067267499226*^9}, {
  3.5818815621420345`*^9, 
  3.5818815632420373`*^9}},ExpressionUUID->"09ce16ce-ae17-4b86-b2e9-\
ef330d342b8e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.5800677994626527`*^9, 
  3.580067800794729*^9}},ExpressionUUID->"5a7bf1bd-8bf5-4bde-842c-\
64df1f058b78"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NCDegree", "[", 
  RowBox[{
   RowBox[{"x1", "**", "x0", "**", "x0", "**", "x1"}], "+", 
   RowBox[{"x1", "**", "x1", "**", "x1"}]}], "]"}]], "Code",
 CellChangeTimes->{{3.580067806072031*^9, 3.580067816181609*^9}, {
   3.580067865310419*^9, 3.5800679084668875`*^9}, 
   3.580067959505807*^9},ExpressionUUID->"77b02d39-aa8f-41e8-99df-\
1867af5fdde4"],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.5800697320651913`*^9, 
  3.580421905530243*^9},ExpressionUUID->"68d17ad4-9ca5-4a04-b4b3-\
79a573254e5f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NCDegree", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x1", "**", "x0", "**", "x0", "**", "x1"}], "+", 
    RowBox[{"x1", "**", "x1", "**", "x1"}]}], ",", "x1"}], "]"}]], "Code",
 CellChangeTimes->{{3.5800683735714903`*^9, 3.5800683781917543`*^9}, {
  3.5800684538220797`*^9, 
  3.580068487534008*^9}},ExpressionUUID->"206bf057-c418-42a7-9cce-\
203d2a1ed7a5"],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{3.580069732094193*^9, 
  3.580421905563245*^9},ExpressionUUID->"4137b456-125a-4893-b601-\
944f2ecccfd3"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["NCOrder", "Subsection",
 CellChangeTimes->{{3.5800685655824723`*^9, 3.580068567370575*^9}, {
  3.580068616406379*^9, 
  3.580068623463783*^9}},ExpressionUUID->"fbb92f24-a3a6-4691-882f-\
45cb20409692"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.580068683981244*^9, 
  3.580068692230716*^9}},ExpressionUUID->"f65c2d27-88d1-49aa-9496-\
6891469a0cee"],

Cell[TextData[{
 "Given ",
 StyleBox["c",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"6825081d-6446-43e5-b914-d41883a659c9"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket], the order of ",
 StyleBox["c",
  FontSlant->"Italic"],
 " is ord(",
 StyleBox["c",
  FontSlant->"Italic"],
 ") = min{|\[Eta]| : \[Eta] \[Element] supp(",
 StyleBox["c",
  FontSlant->"Italic"],
 ")}. By definition, ord(0) = \[Infinity]. The partial order with respect to ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "i"], TraditionalForm]],ExpressionUUID->
  "b5d9e47a-b1ce-4df1-acc9-6dc30d1d372c"],
 " \[Element] ",
 StyleBox["X",
  FontSlant->"Italic"],
 " is ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["ord", 
    SubscriptBox["x", "i"]], TraditionalForm]],ExpressionUUID->
  "95b01608-9377-428d-8b89-d4f62be857bf"],
 "(",
 StyleBox["c",
  FontSlant->"Italic"],
 ") = min{",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
    SubscriptBox["x", "i"]], TraditionalForm]],ExpressionUUID->
  "57419528-59d6-4d06-9976-0e4f31e9f6a2"],
 " : \[Eta] \[Element] supp(",
 StyleBox["c",
  FontSlant->"Italic"],
 ")}. By definition, ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["ord", 
    SubscriptBox["x", "i"]], TraditionalForm]],ExpressionUUID->
  "bb82c6c2-783f-444b-9792-0eb635713d59"],
 "(0) = \[Infinity]. The current implementation assumes \[ScriptL] = 1."
}], "Text",
 CellChangeTimes->{{3.5800686967239733`*^9, 3.5800688280974874`*^9}, {
  3.580068947081293*^9, 3.580068974151841*^9}, {3.5800690083927994`*^9, 
  3.5800690268338547`*^9}, {3.580069056939576*^9, 3.5800690570655837`*^9}, {
  3.5800691208122296`*^9, 
  3.580069145909665*^9}},ExpressionUUID->"5ccda1d3-3c88-4d03-b945-\
cb728b7d31e7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.580069181099678*^9, 
  3.5800691915122733`*^9}},ExpressionUUID->"91d93b31-5a1e-4877-b169-\
8435eb774b4e"],

Cell[BoxData[
 RowBox[{"NCOrder", "[", "series", "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.5800691976346235`*^9, 
  3.580069215327636*^9}},ExpressionUUID->"ad042459-dfd3-46bb-b32f-\
301f1a1da76e"],

Cell[TextData[{
 StyleBox["series",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a noncommutative formal power series."
}], "Text",
 CellChangeTimes->{{3.580069228846409*^9, 3.5800692446383123`*^9}, 
   3.5800694700942073`*^9, {3.580069510510519*^9, 3.5800695118795977`*^9}, {
   3.5818815965221057`*^9, 
   3.5818815977671084`*^9}},ExpressionUUID->"15f8921b-9af6-490c-aa46-\
81848cfff1fd"],

Cell[BoxData[
 RowBox[{"NCOrder", "[", 
  RowBox[{"series", ",", "symbol"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.5800692559029565`*^9, 
  3.580069264426444*^9}},ExpressionUUID->"2529ba11-eac8-4b32-baa8-\
85b9132771b8"],

Cell[TextData[{
 StyleBox["symbol",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a letter in a noncommutative alphabet."
}], "Text",
 CellChangeTimes->{{3.5800692790902824`*^9, 3.5800693088609858`*^9}, 
   3.5800694900553493`*^9, {3.581881601957117*^9, 
   3.581881603152119*^9}},ExpressionUUID->"3219b5d4-20ca-4e32-bcea-\
58b989ecde43"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.580069332213321*^9, 
  3.580069333575399*^9}},ExpressionUUID->"2bc94956-28d9-4c11-b136-\
8b2ea56fabc7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NCOrder", "[", 
  RowBox[{
   RowBox[{"x1", "**", "x0", "**", "x0", "**", "x1"}], "+", 
   RowBox[{"x1", "**", "x1", "**", "x1"}]}], "]"}]], "Code",
 CellChangeTimes->{{3.580069340831814*^9, 
  3.5800693793570175`*^9}},ExpressionUUID->"3d35a609-beeb-4e3a-a71d-\
6ddaf5ba71c8"],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{
  3.580069732182198*^9, 3.5804219055962467`*^9, {3.581802224112176*^9, 
   3.581802252798816*^9}},ExpressionUUID->"cab9fe9e-c29f-45ff-8c3a-\
a8399cddb734"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NCOrder", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x1", "**", "x0", "**", "x0", "**", "x1"}], "+", 
    RowBox[{"x1", "**", "x1", "**", "x1"}]}], ",", "x1"}], "]"}]], "Code",
 CellChangeTimes->{{3.5800693853493605`*^9, 
  3.580069415282072*^9}},ExpressionUUID->"b330846f-2a61-4b3c-9808-\
c360a153a4ac"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{
  3.5800697322111998`*^9, 3.5804219056302485`*^9, {3.581802228820445*^9, 
   3.581802255020943*^9}},ExpressionUUID->"89b5b767-ee6b-4a20-8f96-\
2f846ac2fcc4"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["NCPrefix", "Subsection",
 CellChangeTimes->{{3.58015065149853*^9, 
  3.5801506536336517`*^9}},ExpressionUUID->"bea9e9b9-a3e7-4aaa-9f3e-\
5a1a56d3ed35"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.5801506773820105`*^9, 
  3.5801506811992283`*^9}},ExpressionUUID->"7210e6e2-6dbf-48f2-9df1-\
4adae6affe22"],

Cell[TextData[{
 "Given words \[Eta], \[Nu] \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["X", "*"], TraditionalForm]],ExpressionUUID->
  "aeb0f85c-bad0-442e-8490-59186d02b5c4"],
 ", the word \[Eta] is a prefix of the word \[Eta]\[Nu]."
}], "Text",
 CellChangeTimes->{{3.580150685860495*^9, 3.580150706321666*^9}, {
  3.581881633652187*^9, 
  3.581881633834687*^9}},ExpressionUUID->"50a4a9e4-8d48-4486-9a93-\
57ed341ec4ad"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.580150725001734*^9, 
  3.5801507263238096`*^9}},ExpressionUUID->"961f7ad4-b87a-42ab-9f35-\
5ad6b178184e"],

Cell[BoxData[
 RowBox[{"NCPrefix", "[", 
  RowBox[{"monomial", ",", "list"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.580150730603054*^9, 
  3.5801507462429485`*^9}},ExpressionUUID->"53160aa5-7f3d-414e-90a6-\
103da21d0f98"],

Cell[TextData[{
 StyleBox["monomial",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a noncommutative monomial, and ",
 StyleBox["list",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a list of noncommutative monomials."
}], "Text",
 CellChangeTimes->{{3.580150755403473*^9, 3.5801507879133325`*^9}, {
  3.5801521006304154`*^9, 3.5801521205705557`*^9}, {3.5818816396996994`*^9, 
  3.581881641207202*^9}},ExpressionUUID->"7b9c0db2-a99a-4982-985d-\
596a8a40a644"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.580150835057029*^9, 
  3.5801508362620974`*^9}},ExpressionUUID->"ea8593ad-99cc-4c78-8c3a-\
ea1236164506"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NCPrefix", "[", 
  RowBox[{
   RowBox[{"x1", "**", "x0"}], ",", 
   RowBox[{"{", 
    RowBox[{"x1", ",", 
     RowBox[{"x0", "**", "x1"}]}], "}"}]}], "]"}]], "Code",
 CellChangeTimes->{{3.5801508441435485`*^9, 3.5801508603624763`*^9}, {
  3.5801517351875134`*^9, 
  3.5801517434789877`*^9}},ExpressionUUID->"7d3aa671-0c93-4c35-8893-\
dafabfed1c2e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x1", "**", "x0", "**", "x1"}], ",", 
   RowBox[{"x1", "**", "x0", "**", "x0", "**", "x1"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.580421905665251*^9},ExpressionUUID->"4215d8a2-c137-4c13-9fc3-\
998cf9ff92a0"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["ProperPart", "Subsection",
 CellChangeTimes->{{3.580151866325014*^9, 
  3.580151867906104*^9}},ExpressionUUID->"9c89c587-532c-4ae4-abf7-\
0f82f93f0291"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.580151873395418*^9, 
  3.5801518748895035`*^9}},ExpressionUUID->"fa3ccfe1-3803-4529-b04f-\
0b94609eb126"],

Cell[TextData[{
 "The proper part of a series ",
 StyleBox["c",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"3b47a53f-fa56-42ef-b204-adb14c45e6b0"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket] is ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["c", "\[Prime]"], TraditionalForm]],ExpressionUUID->
  "1ae274c8-ee43-42f6-8aef-1541a4cdb242"],
 " = ",
 StyleBox["c",
  FontSlant->"Italic"],
 " - (",
 StyleBox["c",
  FontSlant->"Italic"],
 ", \[EmptySet]). The current implementation assumes \[ScriptL] = 1."
}], "Text",
 CellChangeTimes->{{3.5801518820519133`*^9, 3.580151943341419*^9}, {
  3.5801520045479198`*^9, 3.5801520543187666`*^9}, {3.580152419489653*^9, 
  3.580152421152748*^9}},ExpressionUUID->"acb0754d-c4bb-44e0-bd8b-\
9fe8fbf80c02"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.580152059303052*^9, 
  3.5801520604031143`*^9}},ExpressionUUID->"2563efbe-cffb-4bbd-a953-\
3c0f82c2c61a"],

Cell[BoxData[
 RowBox[{"ProperPart", "[", "series", "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.5801520705436945`*^9, 
  3.580152077960119*^9}},ExpressionUUID->"6346d5c9-b829-4ddc-8c27-\
97ee542d5deb"],

Cell[TextData[{
 StyleBox["series ",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 "is a noncommutative formal power series."
}], "Text",
 CellChangeTimes->{{3.5801521341633334`*^9, 3.580152217072076*^9}, {
  3.580152524390653*^9, 3.580152525101694*^9}, {3.580155178647468*^9, 
  3.580155190531148*^9}, {3.581881658357238*^9, 
  3.5818816592972393`*^9}},ExpressionUUID->"d47632ec-10d9-4c46-a805-\
2270ea260e41"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.580152222489385*^9, 
  3.58015222344344*^9}},ExpressionUUID->"e53fbfcb-4845-46e8-bc7e-\
04ae528ac343"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ProperPart", "[", 
  RowBox[{"1", "+", "x0", "+", 
   RowBox[{"x0", "**", "x0"}], "+", 
   RowBox[{"x0", "**", "x0", "**", "x0"}]}], "]"}]], "Code",
 CellChangeTimes->{{3.5801522734372997`*^9, 
  3.580152290812293*^9}},ExpressionUUID->"0e23cd0b-b1a2-49c4-8f3c-\
a963b12bbf46"],

Cell[BoxData[
 RowBox[{"x0", "+", 
  RowBox[{"x0", "**", "x0"}], "+", 
  RowBox[{"x0", "**", "x0", "**", "x0"}]}]], "Output",
 CellChangeTimes->{
  3.5804219057002525`*^9},ExpressionUUID->"e3327d0a-9750-4402-91df-\
058c013708fd"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["ProperQ", "Subsection",
 CellChangeTimes->{{3.580152304347067*^9, 
  3.580152305857154*^9}},ExpressionUUID->"7c1f8c1e-3f63-4664-8a68-\
fcaddc244356"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.5801523099083853`*^9, 
  3.580152311491476*^9}},ExpressionUUID->"7584991b-0df5-4169-be18-\
af60e882c6cc"],

Cell[TextData[{
 "The proper part of a series ",
 StyleBox["c",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"ebe84930-ec84-4993-83ec-987e8cfbe6db"],
 "\[LeftAngleBracket]\[LeftAngleBracket]X\[RightAngleBracket]\
\[RightAngleBracket] is ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["c", "\[Prime]"], TraditionalForm]],ExpressionUUID->
  "e995e10e-b4c6-408b-bd6d-636a3133cb53"],
 " = ",
 StyleBox["c",
  FontSlant->"Italic"],
 " \[Minus] (",
 StyleBox["c",
  FontSlant->"Italic"],
 ", \[EmptySet]). The current implementation assumes \[ScriptL] = 1."
}], "Text",
 CellChangeTimes->{{3.5801523335157356`*^9, 
  3.5801524176075454`*^9}},ExpressionUUID->"5f1ef3e4-1943-4f34-8b59-\
d8b167993877"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5801524329374228`*^9, 
  3.5801524626591225`*^9}},ExpressionUUID->"d4b1525c-a44f-42de-a32e-\
3a4c2ff93686"],

Cell[BoxData[
 RowBox[{"ProperQ", "[", "series", "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.5801524703025594`*^9, 
  3.5801524752538424`*^9}},ExpressionUUID->"0f1f32e6-5fc7-476c-a031-\
471da1023e00"],

Cell[TextData[{
 StyleBox["series",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a noncommutative formal power series."
}], "Text",
 CellChangeTimes->{{3.5801525076666965`*^9, 3.5801525357313013`*^9}, {
  3.581881671344762*^9, 
  3.5818816723297634`*^9}},ExpressionUUID->"c2d4200e-7105-4563-8207-\
3ba089c844e0"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.5801525514442005`*^9, 
  3.5801525523672533`*^9}},ExpressionUUID->"48076383-717f-40b2-aa2f-\
db6889ae26ae"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ProperQ", "[", 
  RowBox[{"1", "+", "x0", "+", 
   RowBox[{"x0", "**", "x0"}], "+", 
   RowBox[{"x0", "**", "x0", "**", "x0"}]}], "]"}]], "Code",
 CellChangeTimes->{{3.5801525597286744`*^9, 3.5801525754585743`*^9}, 
   3.5804219288535767`*^9},ExpressionUUID->"e45f56fc-ed08-4f06-a1b8-\
a59a77c6113f"],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{
  3.580421930062646*^9},ExpressionUUID->"d7742d18-a50a-4a9d-97a7-\
b9c7752956fc"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["RelativeDegree", "Subsection",
 CellChangeTimes->{{3.5801525898423967`*^9, 
  3.5801525932005887`*^9}},ExpressionUUID->"aca5fc3f-0471-452f-a4f1-\
30fddc7588b8"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.580152597625842*^9, 
  3.58015259933994*^9}},ExpressionUUID->"333b9edd-7c30-47cb-ae25-\
648f862d7c4d"],

Cell[TextData[{
 "Suppose ",
 StyleBox["X",
  FontSlant->"Italic"],
 " = {",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],ExpressionUUID->
  "32112be3-a4f7-43da-942a-e5ac7ca3da0b"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "1"], TraditionalForm]],ExpressionUUID->
  "2021d911-3165-46c8-acc1-5950283f927b"],
 ", \[Ellipsis] , ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "m"], TraditionalForm]],ExpressionUUID->
  "e47c6fc3-2556-4c9a-8f3b-845d0caa8b4d"],
 "}. Any series ",
 StyleBox["c",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"7ea2ed16-f548-4478-abb4-84e42d856329"],
 "\[LeftAngleBracket]\[LeftAngleBracket]X\[RightAngleBracket]\
\[RightAngleBracket] can be written as ",
 StyleBox["c",
  FontSlant->"Italic"],
 " = ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["c", "N"], TraditionalForm]],ExpressionUUID->
  "73fcd7bc-6b2e-4102-a9c6-32d1499885da"],
 " + ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["c", "F"], TraditionalForm]],ExpressionUUID->
  "d935ee78-8c52-4847-9841-cc85b54628dd"],
 " , where ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["c", "N"], TraditionalForm]],ExpressionUUID->
  "ee30815b-6313-43f1-ad7a-d3a6777f9a83"],
 " := ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderscriptBox["\[Sum]", 
     RowBox[{"k", "\[GreaterEqual]", "0"}]], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"c", ",", 
       SubsuperscriptBox["x", "0", "k"]}], ")"}], 
     SubsuperscriptBox["x", "0", "k"]}]}], TraditionalForm]],ExpressionUUID->
  "3f4fd74b-e9a8-4d6f-a7be-c3186191763c"],
 " and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["c", "F"], TraditionalForm]],ExpressionUUID->
  "110cccae-23d5-4b94-bf21-3438d6a6e9ef"],
 " := ",
 StyleBox["c",
  FontSlant->"Italic"],
 " \[Minus] ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["c", "N"], TraditionalForm]],ExpressionUUID->
  "3354b073-7c40-4967-8540-b3731f5a9d25"],
 ". The distinguished letter ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],ExpressionUUID->
  "6c2568c4-760b-45e6-aca1-359e857ada05"],
 " is called the drift letter. For each component series ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["c", "i"], TraditionalForm]],ExpressionUUID->
  "22d8a7ec-b10f-4f88-8697-1d2bad00ba4f"],
 " \[Element] \[DoubleStruckCapitalR]\[LeftAngleBracket]\[LeftAngleBracket]X\
\[RightAngleBracket]\[RightAngleBracket], ",
 StyleBox["i",
  FontSlant->"Italic"],
 " = 1, 2,\[Ellipsis], \[ScriptL], let ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["r", "i"], TraditionalForm]],ExpressionUUID->
  "5896b00d-6490-4302-86d0-7f2530d662a0"],
 " \[GreaterEqual] 1 be the largest integer such that supp(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["c", 
    RowBox[{"i", ",", "F"}]], TraditionalForm]],ExpressionUUID->
  "95788047-65a3-4eec-8b8d-a685e2f68942"],
 ") \[SubsetEqual] ",
 Cell[BoxData[
  FormBox[
   SubsuperscriptBox["x", "0", 
    RowBox[{
     SubscriptBox["r", "i"], "-", "1"}]], TraditionalForm]],ExpressionUUID->
  "357c08db-8c2b-488f-b377-6638ab264619"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox["X", "*"], TraditionalForm]],ExpressionUUID->
  "06ce4610-fac1-414d-b212-79b84312b08e"],
 ". Then ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["c", "i"], TraditionalForm]],ExpressionUUID->
  "643b1df2-782f-4de8-847b-574c7590ccc3"],
 " has ",
 StyleBox["relative degree",
  FontSlant->"Italic"],
 " ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["r", "i"], TraditionalForm]],ExpressionUUID->
  "f7954562-4580-47de-99e1-bab5c9f9e8c5"],
 " if the linear word ",
 Cell[BoxData[
  FormBox[
   SubsuperscriptBox["x", "0", 
    RowBox[{
     SubscriptBox["r", "i"], "-", "1"}]], TraditionalForm]],ExpressionUUID->
  "69e20b05-86f3-4337-a755-bf0538ceefa3"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "j"], TraditionalForm]],ExpressionUUID->
  "f5d7f640-6773-4783-9e75-dc01a6581f13"],
 " \[Element] supp(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["c", "i"], TraditionalForm]],ExpressionUUID->
  "694d0c2c-00e4-4dd8-be74-882045e49d3f"],
 ") for some ",
 StyleBox["j",
  FontSlant->"Italic"],
 " \[Element] {0, 1,\[Ellipsis],",
 StyleBox["m",
  FontSlant->"Italic"],
 "}, otherwise it is not well defined. In addition, ",
 StyleBox["c",
  FontSlant->"Italic"],
 " has (vector) relative degree {",
 Cell[BoxData[
  FormBox[
   SubscriptBox["r", "1"], TraditionalForm]],ExpressionUUID->
  "aca9c547-ae88-4891-a760-04b18efec806"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["r", "2"], TraditionalForm]],ExpressionUUID->
  "9ca9b64c-8fb1-4c7b-9c1f-cd88298d169a"],
 ",\[Ellipsis], ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["r", "\[ScriptL]"], TraditionalForm]],ExpressionUUID->
  "1c2ae813-4ad0-4058-a3d7-f6e89ee43240"],
 "} if the \[ScriptL] \[Times] ",
 StyleBox["m ",
  FontSlant->"Italic"],
 "matrix"
}], "Text",
 CellChangeTimes->{{3.580152611870657*^9, 3.5801528048006916`*^9}, 
   3.5801528696233993`*^9, {3.5801529238615017`*^9, 3.5801530163627925`*^9}, {
   3.58015318591549*^9, 3.580153568731386*^9}, 3.580153649308995*^9, 
   3.5801536801767607`*^9, {3.581881824945118*^9, 
   3.5818818321476345`*^9}},ExpressionUUID->"e3949d20-0a99-4a66-8e78-\
6aa9eecb6e33"],

Cell[TextData[{
 StyleBox["A",
  FontSlant->"Italic"],
 " = ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", GridBox[{
      {
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["c", "1"], ",", 
         RowBox[{
          SubsuperscriptBox["x", "0", 
           RowBox[{
            SubscriptBox["r", "1"], "-", "1"}]], 
          SubscriptBox["x", "1"]}]}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["c", "1"], ",", 
         RowBox[{
          SubsuperscriptBox["x", "0", 
           RowBox[{
            SubscriptBox["r", "1"], "-", "1"}]], 
          SubscriptBox["x", "2"]}]}], ")"}], "\[CenterEllipsis]", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["c", "1"], ",", 
         RowBox[{
          SubsuperscriptBox["x", "0", 
           RowBox[{
            SubscriptBox["r", "1"], "-", "1"}]], 
          SubscriptBox["x", "m"]}]}], ")"}]},
      {
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["c", "2"], ",", 
         RowBox[{
          SubsuperscriptBox["x", "0", 
           RowBox[{
            SubscriptBox["r", "2"], "-", "1"}]], 
          SubscriptBox["x", "1"]}]}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["c", "1"], ",", 
         RowBox[{
          SubsuperscriptBox["x", "0", 
           RowBox[{
            SubscriptBox["r", "2"], "-", "1"}]], 
          SubscriptBox["x", "2"]}]}], ")"}], "\[CenterEllipsis]", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["c", "1"], ",", 
         RowBox[{
          SubsuperscriptBox["x", "0", 
           RowBox[{
            SubscriptBox["r", "1"], "-", "1"}]], 
          SubscriptBox["x", "m"]}]}], ")"}]},
      {"\[VerticalEllipsis]", "\[VerticalEllipsis]", "\[DescendingEllipsis]", 
       "\[VerticalEllipsis]"},
      {
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["c", "\[ScriptL]"], ",", 
         RowBox[{
          SubsuperscriptBox["x", "0", 
           RowBox[{
            SubscriptBox["r", "\[ScriptL]"], "-", "1"}]], 
          SubscriptBox["x", "1"]}]}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["c", "\[ScriptL]"], ",", 
         RowBox[{
          SubsuperscriptBox["x", "0", 
           RowBox[{
            SubscriptBox["r", "\[ScriptL]"], "-", "1"}]], 
          SubscriptBox["x", "2"]}]}], ")"}], "\[CenterEllipsis]", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["c", "\[ScriptL]"], ",", 
         RowBox[{
          SubsuperscriptBox["x", "0", 
           RowBox[{
            SubscriptBox["r", "\[ScriptL]"], "-", "1"}]], 
          SubscriptBox["x", "m"]}]}], ")"}]}
     }], ")"}], TraditionalForm]],ExpressionUUID->
  "94901d01-92a8-460d-87e7-76fa3d083644"]
}], "Text",
 CellChangeTimes->{{3.580153710138474*^9, 3.5801537124736075`*^9}, {
  3.5801537546210184`*^9, 3.5801541795173206`*^9}},
 TextAlignment->Center,ExpressionUUID->"28a7ecad-85c0-4c6b-ad6b-b0e6282339e8"],

Cell[TextData[{
 "has full rank. Otherwise, ",
 StyleBox["c",
  FontSlant->"Italic"],
 " does not have relative degree. By far, the most common occurrence of this \
definition is for the case where \[ScriptL] = ",
 StyleBox["m",
  FontSlant->"Italic"],
 ". In which case, the condition on ",
 StyleBox["A ",
  FontSlant->"Italic"],
 "is equivalent to det(",
 StyleBox["A",
  FontSlant->"Italic"],
 ") \[NotEqual] 0."
}], "Text",
 CellChangeTimes->{{3.5801542690934443`*^9, 3.580154347130908*^9}, {
   3.5818818464176683`*^9, 3.5818818555026913`*^9}, 
   3.721054007800764*^9},ExpressionUUID->"6d05bc50-8456-4e8c-ae32-\
7d1242bf6bdb"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5801544778293834`*^9, 
  3.580154479415474*^9}},ExpressionUUID->"ac748693-237c-465d-ab0f-\
b10759c0b048"],

Cell[BoxData[
 RowBox[{"RelativeDegree", "[", 
  RowBox[{"series", ",", "list", ",", "symbol"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.580154604074604*^9, 3.5801546137851596`*^9}, {
  3.721910609955526*^9, 
  3.721910614132868*^9}},ExpressionUUID->"a8a07be9-dbaf-4ea0-9a98-\
9f05d0931eb1"],

Cell[TextData[{
 StyleBox["series",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a noncommutative formal power series in the alphabet defined by ",
 StyleBox["list",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 ". ",
 StyleBox["symbol",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is the drift letter."
}], "Text",
 CellChangeTimes->{{3.5801546220326314`*^9, 3.580154666472173*^9}, {
  3.5801551978045635`*^9, 3.5801552520406656`*^9}, {3.581881865787716*^9, 
  3.58188186744022*^9}, {3.7219106184804277`*^9, 
  3.721910629601547*^9}},ExpressionUUID->"329db6aa-ed42-421e-aa26-\
759515dca40d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.5801555709339056`*^9, 
  3.5801555732490377`*^9}},ExpressionUUID->"b282a241-8830-4dfb-96b6-\
0d972eb28c3c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RelativeDegree", "[", 
  RowBox[{
   RowBox[{"x0", "+", 
    RowBox[{"x0", "**", "x1"}], "+", 
    RowBox[{"x0", "**", "x0", "**", "x1"}], "+", 
    RowBox[{"x0", "**", "x1", "**", "x0"}], "+", 
    RowBox[{"x0", "**", "x1", "**", "x0", "**", "x1"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x0", ",", "x1"}], "}"}], ",", "x0"}], "]"}]], "Code",
 CellChangeTimes->{{3.580155593657205*^9, 3.580155601974681*^9}, {
  3.580155633468482*^9, 3.5801556440680885`*^9}, {3.5801556763209333`*^9, 
  3.5801557131840415`*^9}, {3.5801557445178337`*^9, 3.5801557674621463`*^9}, {
  3.5804232535793467`*^9, 
  3.5804232588376474`*^9}},ExpressionUUID->"05f2db6f-bfbc-43d6-9c43-\
97d2d7695d37"],

Cell[BoxData[
 RowBox[{"{", "2", "}"}]], "Output",
 CellChangeTimes->{3.5804219058332605`*^9, 
  3.5804232595896907`*^9},ExpressionUUID->"e80910ea-5722-4744-9816-\
4307cf924eb7"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["RhoRightAugment", "Subsection",
 CellChangeTimes->{{3.64646352047054*^9, 3.6464635366680684`*^9}, {
  3.646471212024599*^9, 3.64647121240676*^9}},
 CellTags->
  "RhoRightAugment",ExpressionUUID->"f6f7311f-6467-4c24-be57-b8495e762790"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.646463543850212*^9, 
  3.646463548017173*^9}},ExpressionUUID->"be61a8d0-c0a4-4666-b1ea-\
9c01fb26bd1e"],

Cell[TextData[{
 "Let ",
 Cell[BoxData[
  FormBox[
   SubsuperscriptBox[
    OverscriptBox["\[Theta]", "~"], "i", "\[Rho]"], TraditionalForm]],
  ExpressionUUID->"ba2a974f-88eb-4c73-9aa8-52bc721c5ac9"],
 " denote the antipodal right-augmentation operator and ",
 Cell[BoxData[
  FormBox[
   RowBox[{"X", "=", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["x", "0"], ",", 
      SubscriptBox["x", "1"], ",", "\[Ellipsis]", ",", 
      SubscriptBox["x", "m"]}], "}"}]}], TraditionalForm]],ExpressionUUID->
  "2ebfdb65-0c32-4f45-8341-0c2143eaee9c"],
 ". This mapping operates on coordinate functions (see ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    PaneSelectorBox[{False->"\<\"A\"\>", True->
     StyleBox["\<\"A\"\>", "HyperlinkActive"]}, Dynamic[
      CurrentValue["MouseOver"]],
     BaseStyle->{"Hyperlink"},
     FrameMargins->0,
     ImageSize->Automatic],
    BaseStyle->"Hyperlink",
    ButtonData:>{
      NotebookObject[
       FrontEndObject[
        LinkObject["5tas2_shm", 3, 1]], 58], "A"},
    ButtonNote->ButtonData],
   Annotation[#, {
     NotebookObject[
      FrontEndObject[
       LinkObject["5tas2_shm", 3, 1]], 58], "A"}, "Hyperlink"]& ]],
  CellChangeTimes->{3.646475780751833*^9},ExpressionUUID->
  "b427f1eb-2a39-4555-9687-f2e1ddc9b59a"],
 ") according to "
}], "Text",
 CellChangeTimes->{{3.6464650310109625`*^9, 3.6464651538510942`*^9}, {
   3.6464651904123125`*^9, 3.646465228692524*^9}, {3.6464724929529305`*^9, 
   3.6464725143626766`*^9}, {3.646472554898282*^9, 3.646472667769637*^9}, 
   3.64647580109088*^9, 3.6594910675376396`*^9, {3.6594913923783207`*^9, 
   3.6594914320108814`*^9}, {3.659491474330572*^9, 
   3.659491494907668*^9}},ExpressionUUID->"69dfe5c2-34f6-4103-9dbf-\
178da8143a65"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubsuperscriptBox[
      OverscriptBox["\[Theta]", "~"], "i", "\[Rho]"], "(", 
     SubsuperscriptBox["a", "\[Eta]", "k"], ")"}], ":=", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Theta]", "~"], "i"], "(", 
       SubsuperscriptBox["a", "\[Eta]", "k"], ")"}]}], "   ", 
     RowBox[{"\[ForAll]", " ", 
      RowBox[{"i", "\[NotEqual]", "0"}]}]}]}], TraditionalForm]],
  ExpressionUUID->"092d91fb-3a84-4543-9881-18479ea41fac"],
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubsuperscriptBox[
      OverscriptBox["\[Theta]", "~"], "0", "\[Rho]"], "(", 
     SubsuperscriptBox["a", "\[Eta]", "k"], ")"}], ":=", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SubscriptBox[
        OverscriptBox["\[Theta]", "~"], "0"], "(", 
       SubsuperscriptBox["a", "\[Eta]", "k"], ")"}]}], "+", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"r", "=", "1"}], "m"], 
      RowBox[{
       SubsuperscriptBox["a", "\[EmptySet]", "r"], 
       RowBox[{
        SubscriptBox[
         OverscriptBox["\[Theta]", "~"], "r"], "(", 
        SubsuperscriptBox["a", "\[Eta]", "k"], ")"}]}]}]}]}], 
   TraditionalForm]],ExpressionUUID->"1f1df73f-b1af-4b0d-b29b-abb8b739f5a1"]
}], "Text",
 CellChangeTimes->{{3.646465247903713*^9, 3.646465343164982*^9}, {
  3.6464654095371203`*^9, 3.646465442407878*^9}, {3.646472680124955*^9, 
  3.646472761006084*^9}, {3.6464728181670074`*^9, 3.6464729336198673`*^9}, {
  3.659491074252441*^9, 3.659491208707368*^9}, {3.659491264172945*^9, 
  3.659491345942277*^9}},
 TextAlignment->Center,ExpressionUUID->"fba52d06-ce77-4c2a-87e9-93822700c30f"],

Cell[TextData[{
 "See ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    PaneSelectorBox[{False->"\<\"RightAugment\"\>", True->
     StyleBox["\<\"RightAugment\"\>", "HyperlinkActive"]}, Dynamic[
      CurrentValue["MouseOver"]],
     BaseStyle->{"Hyperlink"},
     FrameMargins->0,
     ImageSize->Automatic],
    BaseStyle->"Hyperlink",
    ButtonData:>{
      NotebookObject[
       FrontEndObject[
        LinkObject["5tas2_shm", 3, 1]], 58], "RightAugment"},
    ButtonNote->ButtonData],
   Annotation[#, {
     NotebookObject[
      FrontEndObject[
       LinkObject["5tas2_shm", 3, 1]], 58], "RightAugment"}, "Hyperlink"]& ]],
  
  CellChangeTimes->{3.6464754914501286`*^9, 3.646475553467413*^9},
  ExpressionUUID->"c737c994-4a0a-4541-bbfe-bc246b21847a"],
 "."
}], "Text",
 CellChangeTimes->{{3.6464748544051743`*^9, 3.6464748606774893`*^9}, {
  3.6464757076866465`*^9, 
  3.6464757294384165`*^9}},ExpressionUUID->"59eab73d-839e-4d50-a48d-\
aeebeb596008"],

Cell["This operator acts as a derivation", "Text",
 CellChangeTimes->{{3.6464661311737723`*^9, 
  3.6464661389432907`*^9}},ExpressionUUID->"f1fa0cc3-71de-4bba-b85d-\
76043a9e0faa"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubsuperscriptBox[
      OverscriptBox["\[Theta]", "~"], "i", "\[Rho]"], "(", 
     RowBox[{
      SubsuperscriptBox["a", 
       SubscriptBox["\[Eta]", "1"], 
       SubscriptBox["k", "1"]], "\[CenterEllipsis]", " ", 
      SubsuperscriptBox["a", 
       SubscriptBox["\[Eta]", "s"], 
       SubscriptBox["k", "s"]]}], ")"}], ":=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"j", "=", "1"}], "s"], 
     RowBox[{
      SubsuperscriptBox["a", 
       SubscriptBox["\[Eta]", "1"], 
       SubscriptBox["k", "1"]], "\[CenterEllipsis]", " ", 
      RowBox[{
       SubsuperscriptBox[
        OverscriptBox["\[Theta]", "~"], "i", "\[Rho]"], "(", 
       SubsuperscriptBox["a", 
        SubscriptBox["\[Eta]", "j"], 
        SubscriptBox["k", "j"]], ")"}], "\[CenterEllipsis]", " ", 
      SubsuperscriptBox["a", 
       SubscriptBox["\[Eta]", "s"], 
       SubscriptBox["k", "s"]]}]}]}], TraditionalForm]],ExpressionUUID->
  "ea97fb83-55f0-43a2-9143-f72ea8e099ab"],
 " "
}], "Text",
 CellChangeTimes->{{3.6464661620231752`*^9, 3.646466246183858*^9}, {
  3.646466291315136*^9, 3.6464662943250217`*^9}, {3.6464663367111807`*^9, 
  3.646466487071561*^9}, {3.6464665340491543`*^9, 3.646466588176315*^9}, {
  3.6464731623858776`*^9, 3.646473212359662*^9}, {3.646473277692148*^9, 
  3.6464732817520695`*^9}, {3.6594915143040676`*^9, 3.6594915798289576`*^9}},
 TextAlignment->Center,ExpressionUUID->"ca7e35f3-ec6b-44d8-853f-21fa8a868723"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.6464666137552958`*^9, 
  3.646466614971162*^9}},ExpressionUUID->"2dbf1551-073b-4b35-81c5-\
eeac24201aa9"],

Cell[BoxData[
 RowBox[{"RhoRightAugment", "[", 
  RowBox[{"cfunc", ",", "ind", ",", "alph"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.646466627193166*^9, 3.646466662221887*^9}, {
  3.6464723846986637`*^9, 3.6464723851249733`*^9}, {3.646473397859256*^9, 
  3.646473398268528*^9}},ExpressionUUID->"76cab8c6-e766-4483-b906-\
d3a5450efd73"],

Cell[TextData[{
 StyleBox["cfunc",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a coordinate function of the type described in ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    PaneSelectorBox[{False->"\<\"A\"\>", True->
     StyleBox["\<\"A\"\>", "HyperlinkActive"]}, Dynamic[
      CurrentValue["MouseOver"]],
     BaseStyle->{"Hyperlink"},
     FrameMargins->0,
     ImageSize->Automatic],
    BaseStyle->"Hyperlink",
    ButtonData:>{
      NotebookObject[
       FrontEndObject[
        LinkObject["5tas2_shm", 3, 1]], 58], "A"},
    ButtonNote->ButtonData],
   Annotation[#, {
     NotebookObject[
      FrontEndObject[
       LinkObject["5tas2_shm", 3, 1]], 58], "A"}, "Hyperlink"]& ]],
  CellChangeTimes->{3.646475780751833*^9},ExpressionUUID->
  "0427f3d7-b57c-4a76-925e-19a3d979dd3a"],
 ", ",
 StyleBox["ind",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is the index of the corresponding letter in the alphabet ",
 StyleBox["alph",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 "."
}], "Text",
 CellChangeTimes->{{3.646466677270379*^9, 3.6464667042875013`*^9}, 
   3.6464736204429493`*^9, 
   3.64647580317037*^9},ExpressionUUID->"035e5ab4-d674-4208-8020-\
07ec42609233"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.6464711303108816`*^9, 
  3.646471138341585*^9}},ExpressionUUID->"1c18982d-c366-4e62-9413-\
94b2350ccdc0"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"X", "=", 
   RowBox[{"{", 
    RowBox[{"x0", ",", "x1"}], "}"}]}], ";"}], "\n", 
 RowBox[{"RhoRightAugment", "[", 
  RowBox[{
   RowBox[{"A", "[", 
    RowBox[{"1", ",", 
     RowBox[{"x0", "**", "x1"}]}], "]"}], ",", "0", ",", "X"}], 
  "]"}]}], "Code",
 CellChangeTimes->{{3.6464711454042654`*^9, 3.6464711929764175`*^9}, {
  3.64647238102141*^9, 3.64647238162684*^9}, {3.6594916734369926`*^9, 
  3.659491673584095*^9}},ExpressionUUID->"0a5eeda9-dcd3-4f4d-83ab-\
cc742c4f8d07"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"A", "[", 
    RowBox[{"1", ",", 
     RowBox[{"x0", "**", "x1", "**", "x0"}]}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"A", "[", 
    RowBox[{"1", ",", "1"}], "]"}], " ", 
   RowBox[{"A", "[", 
    RowBox[{"1", ",", 
     RowBox[{"x0", "**", "x1", "**", "x1"}]}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.6464736587827797`*^9, 
  3.6594919649122505`*^9},ExpressionUUID->"359e4410-d43a-4f1a-993b-\
04667f4a9517"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["RightAugment", "Subsection",
 CellChangeTimes->{{3.64646352047054*^9, 3.6464635366680684`*^9}},
 CellTags->
  "RightAugment",ExpressionUUID->"e732671d-7eda-4d62-9e9b-b3130b44510a"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.646463543850212*^9, 
  3.646463548017173*^9}},ExpressionUUID->"cf047c15-094a-4f67-aa98-\
0842a7a6ed29"],

Cell[TextData[{
 "Let ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["\[Theta]", "~"], "i"], TraditionalForm]],ExpressionUUID->
  "0a8c4a89-b862-4f3c-9763-62c5380ed359"],
 " denote the right-augmentation operator and ",
 Cell[BoxData[
  FormBox[
   RowBox[{"X", "=", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["x", "0"], ",", 
      SubscriptBox["x", "1"], ",", "\[Ellipsis]", ",", 
      SubscriptBox["x", "m"]}], "}"}]}], TraditionalForm]],ExpressionUUID->
  "db8ab8e3-da2c-4757-9753-333e50db5eb2"],
 ". This endomorphism adds letters to the right of a specified coordinate \
function (see ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    PaneSelectorBox[{False->"\<\"A\"\>", True->
     StyleBox["\<\"A\"\>", "HyperlinkActive"]}, Dynamic[
      CurrentValue["MouseOver"]],
     BaseStyle->{"Hyperlink"},
     FrameMargins->0,
     ImageSize->Automatic],
    BaseStyle->"Hyperlink",
    ButtonData:>{
      NotebookObject[
       FrontEndObject[
        LinkObject["5tas2_shm", 3, 1]], 58], "A"},
    ButtonNote->ButtonData],
   Annotation[#, {
     NotebookObject[
      FrontEndObject[
       LinkObject["5tas2_shm", 3, 1]], 58], "A"}, "Hyperlink"]& ]],
  CellChangeTimes->{3.646475780751833*^9},ExpressionUUID->
  "92271db6-a046-48a5-8d04-65beace4d3c8"],
 ")"
}], "Text",
 CellChangeTimes->{{3.6464650310109625`*^9, 3.6464651538510942`*^9}, {
   3.6464651904123125`*^9, 3.646465228692524*^9}, 3.646475809937628*^9, {
   3.6594919790574207`*^9, 
   3.6594919992508125`*^9}},ExpressionUUID->"af179b5c-9ee1-45c2-b261-\
2f1b80d844ac"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Theta]", "~"], "i"], "(", 
     SubsuperscriptBox["a", "\[Eta]", "k"], ")"}], ":=", 
    SubsuperscriptBox["a", 
     SubscriptBox["\[Eta]x", "i"], "k"]}], TraditionalForm]],ExpressionUUID->
  "6f809d16-8d9a-4f63-92ad-b30fffaed05b"],
 "\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Theta]", "~"], "i"], "(", "1", ")"}], "=", "0"}], 
   TraditionalForm]],ExpressionUUID->"dc1564a4-0c7e-4ac2-9cad-d7551130c671"]
}], "Text",
 CellChangeTimes->{{3.646465247903713*^9, 3.646465343164982*^9}, {
  3.6464654095371203`*^9, 3.646465442407878*^9}, {3.6594920343932185`*^9, 
  3.659492049579093*^9}},
 TextAlignment->Center,ExpressionUUID->"be80a906-8627-4df2-b3d6-88afd8b7e324"],

Cell[TextData[{
 "May need to overhaul to implement the following functionality:\nFor a word ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Eta]", ":=", 
    RowBox[{
     SubscriptBox["x", 
      SubscriptBox["i", "1"]], "\[CenterEllipsis]", " ", 
     SubscriptBox["x", 
      SubscriptBox["i", "r"]]}]}], TraditionalForm]],ExpressionUUID->
  "028f2a0a-4694-47db-9260-9e627e7cb549"],
 " and an arbitrary word \[Psi]",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Element]", 
    SuperscriptBox["X", "*"]}], TraditionalForm]],ExpressionUUID->
  "8ad07bf3-a89e-4db9-b8c3-1628f3467c34"]
}], "Text",
 CellChangeTimes->{{3.6464654625897846`*^9, 3.6464655272838087`*^9}, {
  3.646465559394804*^9, 3.646465611962846*^9}, {3.64646603271548*^9, 
  3.6464660750164833`*^9}, {3.6464668488102493`*^9, 3.6464668639749928`*^9}, {
  3.6594923281426992`*^9, 
  3.6594923285549936`*^9}},ExpressionUUID->"45a370af-5df9-46a1-991a-\
84f9cb3a25c9"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SubscriptBox[
     OverscriptBox["\[Theta]", "~"], "\[Eta]"], "(", 
    SubsuperscriptBox["a", "\[Eta]", "k"], ")"}], "=", 
   RowBox[{
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Theta]", "~"], 
      SubscriptBox["i", "r"]], "\[SmallCircle]", " ", "\[CenterEllipsis]", 
     " ", "\[SmallCircle]", 
     SubscriptBox[
      OverscriptBox[
       RowBox[{" ", "\[Theta]"}], "~"], 
      SubscriptBox["i", "1"]]}], 
    RowBox[{"(", 
     SubsuperscriptBox["a", "\[Psi]", "k"], ")"}]}]}], 
  TraditionalForm]],ExpressionUUID->"9ba808ce-2cb9-4f84-a504-602bd329116b"]], \
"Text",
 CellChangeTimes->{{3.6464656372099743`*^9, 3.6464657415798492`*^9}, {
  3.6464658738281326`*^9, 3.6464659584108095`*^9}, {3.6464660191689825`*^9, 
  3.646466023929383*^9}, {3.659492056679163*^9, 3.6594920625803623`*^9}, {
  3.65949232394271*^9, 3.659492324656218*^9}},
 TextAlignment->Center,ExpressionUUID->"9deb98cf-cc24-4ee5-b634-850b8fa33341"],

Cell["This operator acts as a derivation", "Text",
 CellChangeTimes->{{3.6464661311737723`*^9, 
  3.6464661389432907`*^9}},ExpressionUUID->"739f863f-7ef6-4b99-b67c-\
b38834a3660f"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox[
      OverscriptBox["\[Theta]", "~"], "i"], "(", 
     RowBox[{
      SubsuperscriptBox["a", 
       SubscriptBox["\[Eta]", "1"], 
       SubscriptBox["k", "1"]], "\[CenterEllipsis]", " ", 
      SubsuperscriptBox["a", 
       SubscriptBox["\[Eta]", "s"], 
       SubscriptBox["k", "s"]]}], ")"}], ":=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"j", "=", "1"}], "s"], 
     RowBox[{
      SubsuperscriptBox["a", 
       SubscriptBox["\[Eta]", "1"], 
       SubscriptBox["k", "1"]], "\[CenterEllipsis]", " ", 
      SubsuperscriptBox["a", 
       RowBox[{
        SubscriptBox["\[Eta]", "j"], 
        SubscriptBox["x", "i"]}], 
       SubscriptBox["k", "j"]], "\[CenterEllipsis]", " ", 
      SubsuperscriptBox["a", 
       SubscriptBox["\[Eta]", "s"], 
       SubscriptBox["k", "s"]]}]}]}], TraditionalForm]],ExpressionUUID->
  "ec503b22-4349-40d2-9d5e-898f49e2bf10"],
 " "
}], "Text",
 CellChangeTimes->{{3.6464661620231752`*^9, 3.646466246183858*^9}, {
  3.646466291315136*^9, 3.6464662943250217`*^9}, {3.6464663367111807`*^9, 
  3.646466487071561*^9}, {3.6464665340491543`*^9, 3.646466588176315*^9}, {
  3.646473144024832*^9, 3.646473149370636*^9}, {3.6464732595689936`*^9, 
  3.6464732643362026`*^9}, {3.6594920741706553`*^9, 3.6594921721163807`*^9}},
 TextAlignment->Center,ExpressionUUID->"73cc0014-1a18-49d7-b007-57773bc2c04d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.6464666137552958`*^9, 
  3.646466614971162*^9}},ExpressionUUID->"98bce535-b299-4dd0-9cf1-\
5938c1b7fb05"],

Cell[BoxData[
 RowBox[{"RightAugment", "[", 
  RowBox[{"cfunc", ",", "ind", ",", "alph"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.646466627193166*^9, 
  3.646466662221887*^9}},ExpressionUUID->"8e529396-380d-42f0-8ad8-\
e771b668a873"],

Cell[TextData[{
 StyleBox["cfunc",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a coordinate function of the type described in ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    PaneSelectorBox[{False->"\<\"A\"\>", True->
     StyleBox["\<\"A\"\>", "HyperlinkActive"]}, Dynamic[
      CurrentValue["MouseOver"]],
     BaseStyle->{"Hyperlink"},
     FrameMargins->0,
     ImageSize->Automatic],
    BaseStyle->"Hyperlink",
    ButtonData:>{
      NotebookObject[
       FrontEndObject[
        LinkObject["5tas2_shm", 3, 1]], 58], "A"},
    ButtonNote->ButtonData],
   Annotation[#, {
     NotebookObject[
      FrontEndObject[
       LinkObject["5tas2_shm", 3, 1]], 58], "A"}, "Hyperlink"]& ]],
  CellChangeTimes->{3.646475780751833*^9},ExpressionUUID->
  "197c774a-1e36-4cc6-b000-bbb228d9c1ee"],
 ", ",
 StyleBox["ind",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is the index of the corresponding letter in the alphabet ",
 StyleBox["alph",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 "."
}], "Text",
 CellChangeTimes->{{3.646466677270379*^9, 3.6464667042875013`*^9}, {
   3.646473529084383*^9, 3.6464736070005045`*^9}, 
   3.6464758123253202`*^9},ExpressionUUID->"c548b875-c8c6-4171-96ba-\
4abb47ca6a72"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.6464711303108816`*^9, 
  3.646471138341585*^9}},ExpressionUUID->"71c956f3-9a6e-4672-a724-\
8be4ff822e5d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"X", "=", 
   RowBox[{"{", 
    RowBox[{"x0", ",", "x1"}], "}"}]}], ";"}], "\n", 
 RowBox[{"RightAugment", "[", 
  RowBox[{
   RowBox[{"A", "[", 
    RowBox[{"1", ",", 
     RowBox[{"x0", "**", "x1"}]}], "]"}], ",", "0", ",", "X"}], 
  "]"}]}], "Code",
 CellChangeTimes->{{3.6464711454042654`*^9, 3.6464711929764175`*^9}, {
  3.659491948670431*^9, 
  3.659491948810506*^9}},ExpressionUUID->"ee666f69-2e2c-48cd-9893-\
26f338550e0d"],

Cell[BoxData[
 RowBox[{"A", "[", 
  RowBox[{"1", ",", 
   RowBox[{"x0", "**", "x1", "**", "x0"}]}], "]"}]], "Output",
 CellChangeTimes->{3.6464736513701787`*^9, 
  3.6594919497321424`*^9},ExpressionUUID->"e47c1703-c063-4c99-9252-\
66b001f21916"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Support", "Subsection",
 CellChangeTimes->{{3.580156828639842*^9, 
  3.580156829788908*^9}},ExpressionUUID->"0116876b-8138-4520-bce7-\
c93438862473"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.5801568359712615`*^9, 
  3.580156837656358*^9}},ExpressionUUID->"9d5c9854-eabc-4125-ae6a-\
cc391de96df6"],

Cell[TextData[{
 "Given ",
 StyleBox["c",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"4109cc41-d5e3-40dd-8ad4-e4c60aa75d93"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket], the support of ",
 StyleBox["c",
  FontSlant->"Italic"],
 " is supp(",
 StyleBox["c",
  FontSlant->"Italic"],
 ") = {\[Eta] \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["X", "*"], TraditionalForm]],ExpressionUUID->
  "c28c610a-3525-433c-b60a-bca11fe70efd"],
 " : (",
 StyleBox["c",
  FontSlant->"Italic"],
 ", \[Eta]) \[NotEqual] 0}. The current implementation ",
 "\[ScriptL] = 1."
}], "Text",
 CellChangeTimes->{{3.5801568901203585`*^9, 3.580156998330548*^9}, {
  3.5801570341125946`*^9, 
  3.580157081326295*^9}},ExpressionUUID->"fc130072-f46c-4ce6-83c4-\
0f61fafe95d9"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5801571110719967`*^9, 
  3.580157112326068*^9}},ExpressionUUID->"1bbf6f35-f99a-4b4b-bb51-\
97b8aa78a522"],

Cell[BoxData[
 RowBox[{"Support", "[", "series", "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.580157182856102*^9, 
  3.580157185840273*^9}},ExpressionUUID->"85defd72-6780-4486-8000-\
29d796f79e3a"],

Cell[TextData[{
 StyleBox["series",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is noncommutative formal power series."
}], "Text",
 CellChangeTimes->{{3.5801571914655943`*^9, 3.580157220705267*^9}, {
  3.5818819461054*^9, 
  3.581881947162902*^9}},ExpressionUUID->"85fb867d-a42d-4fdf-8119-\
146e52b03543"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.5801573112384453`*^9, 
  3.5801573122435026`*^9}},ExpressionUUID->"f9b2993c-e7e0-4f67-8575-\
13822827340f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Support", "[", 
  RowBox[{
   RowBox[{"x1", "**", "x0"}], "+", 
   RowBox[{"2", 
    RowBox[{"x1", "**", "x0", "**", "x0"}]}]}], "]"}]], "Code",
 CellChangeTimes->{{3.580157318326851*^9, 
  3.580157339940087*^9}},ExpressionUUID->"9f16d385-59fe-4abf-a367-\
c9c0a46749cd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"x1", "**", "x0"}], ",", 
   RowBox[{"x1", "**", "x0", "**", "x0"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.580421905898264*^9},ExpressionUUID->"0a8edd80-20e1-494e-997f-\
3c504e287c4d"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["TruncateSeries", "Subsection",
 CellChangeTimes->{{3.5801575448598075`*^9, 
  3.580157549715085*^9}},ExpressionUUID->"4f7254ae-b408-4b2d-91e8-\
f0bfe289bc71"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.5801575633018627`*^9, 
  3.580157564903954*^9}},ExpressionUUID->"48e406b3-e6f4-4ea1-a093-\
845f017d0b87"],

Cell[TextData[{
 "A series ",
 StyleBox["c",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"9237b808-6900-4ad0-ad16-9367754ab4a2"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket] is truncated to a polynomial in ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"f23427a5-5534-4f07-89df-034b9b9ae426"],
 "\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket] of degree ",
 StyleBox["n",
  FontSlant->"Italic"],
 ". The current implementation assumes ",
 StyleBox["m",
  FontSlant->"Italic"],
 " = \[ScriptL] = 1."
}], "Text",
 CellChangeTimes->{{3.580157568001131*^9, 
  3.5801576619415045`*^9}},ExpressionUUID->"05ad63f9-b1af-4bdd-9f54-\
eb543647f692"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5801576763513284`*^9, 
  3.580157678024424*^9}},ExpressionUUID->"f494e10b-fba3-4c26-ab54-\
d228edbaf553"],

Cell[BoxData[
 RowBox[{"TruncateSeries", "[", 
  RowBox[{"series", ",", "integer"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.580157683035711*^9, 
  3.58015769700951*^9}},ExpressionUUID->"517f3513-fc8f-4140-bc12-\
ec177596f457"],

Cell[TextData[{
 StyleBox["series",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a noncommutative formal power series, and ",
 StyleBox["integer",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a nonnegative integer."
}], "Text",
 CellChangeTimes->{{3.5801577115853434`*^9, 3.5801577772490997`*^9}, {
  3.581881984605487*^9, 
  3.5818819852904887`*^9}},ExpressionUUID->"03759343-7b50-41f3-a6d2-\
69aa9b475d63"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.580157780829304*^9, 
  3.580157781785359*^9}},ExpressionUUID->"b04e0420-3a14-4a9b-9c84-\
150d7ed13774"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TruncateSeries", "[", 
  RowBox[{
   RowBox[{"1", "+", "x0", "+", 
    RowBox[{"x0", "**", "x0"}], "+", 
    RowBox[{"x0", "**", "x0", "**", "x0"}]}], ",", "2"}], "]"}]], "Code",
 CellChangeTimes->{{3.580157787902709*^9, 
  3.580157815160268*^9}},ExpressionUUID->"38b2b637-0571-4eeb-acff-\
d2743d89fe30"],

Cell[BoxData[
 RowBox[{"1", "+", "x0", "+", 
  RowBox[{"x0", "**", "x0"}]}]], "Output",
 CellChangeTimes->{
  3.5804219059302654`*^9},ExpressionUUID->"83b400ed-fc15-46fc-9eb9-\
a709b1a1fbc3"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["WordLength", "Subsection",
 CellChangeTimes->{{3.5801578351244097`*^9, 
  3.580157839044634*^9}},ExpressionUUID->"dbafa208-114a-47f4-b5de-\
c8c83d988620"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.5801578439269133`*^9, 
  3.580157845845023*^9}},ExpressionUUID->"8329cf42-5626-4e3b-9b38-\
11bcd0897565"],

Cell[TextData[{
 "Given \[Eta] \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["X", "*"], TraditionalForm]],ExpressionUUID->
  "3d05dba4-1994-47bc-91d4-42f90f0aef9b"],
 ", the word length, |\[Eta]|, is the number of symbols in \[Eta]. The word \
length with respect to ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "i"], TraditionalForm]],ExpressionUUID->
  "a4f14584-9143-40c5-b82c-2f5314a441d1"],
 " \[Element] ",
 StyleBox["X",
  FontSlant->"Italic"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
    SubscriptBox["x", "i"]], TraditionalForm]],ExpressionUUID->
  "6c864694-bcd9-45b2-a536-a8f361580afd"],
 ", is the number of symbols in \[Eta] that match ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "i"], TraditionalForm]],ExpressionUUID->
  "52aa5ccd-cc96-4148-8c96-f4bb626d67c4"],
 "."
}], "Text",
 CellChangeTimes->{{3.5801578603738537`*^9, 
  3.5801579428345704`*^9}},ExpressionUUID->"c26c0687-1c6d-4d6c-b2eb-\
1f556faee358"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.580157953444177*^9, 
  3.5801579547122498`*^9}},ExpressionUUID->"2705aa80-d8da-448c-b32c-\
8c479c9cd6d8"],

Cell[BoxData[
 RowBox[{"WordLength", "[", "list", "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.580157958516467*^9, 
  3.58015796345975*^9}},ExpressionUUID->"e09b56a2-9300-4c51-ad47-\
093013c76813"],

Cell[TextData[{
 StyleBox["list",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a list of monic noncommutative monomials."
}], "Text",
 CellChangeTimes->{{3.580157973784341*^9, 3.5801579947925425`*^9}, {
  3.5801580371529655`*^9, 3.580158044288373*^9}, {3.5818819959980116`*^9, 
  3.581881996950513*^9}},ExpressionUUID->"18c2dd52-4be5-45e6-899f-\
54a87fa2c004"],

Cell[BoxData[
 RowBox[{"WordLength", "[", 
  RowBox[{"list", ",", "symbol"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.5801579974396935`*^9, 
  3.580158003388034*^9}},ExpressionUUID->"0bb7f8b5-8a27-483b-8f4b-\
6b916d1e8baa"],

Cell[TextData[{
 StyleBox["symbol",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a letter in ",
 StyleBox["X",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.580158009823402*^9, 
  3.580158053641908*^9}},ExpressionUUID->"56b6a2d4-b10b-429e-9ccd-\
2c24fdf3c69e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.580158060756315*^9, 
  3.5801580617283707`*^9}},ExpressionUUID->"6933dba8-c8ea-401d-b6e8-\
a761b6a568c5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WordLength", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x1", "**", "x0", "**", "x0", "**", "x1"}], ",", "1", ",", 
    RowBox[{"x1", "**", "x1", "**", "x0"}]}], "}"}], "]"}]], "Code",
 CellChangeTimes->{{3.5801580677637157`*^9, 
  3.580158132586424*^9}},ExpressionUUID->"1be04007-5b9e-4b4b-aef9-\
da9c653a3a19"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"4", ",", "0", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5804219059642677`*^9},ExpressionUUID->"b4fef3b3-fb7d-4a04-9ded-\
67b50795d487"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WordLength", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x1", "**", "x0", "**", "x0", "**", "x1"}], ",", "1", ",", 
     RowBox[{"x1", "**", "x1", "**", "x0"}]}], "}"}], ",", "x0"}], 
  "]"}]], "Code",
 CellChangeTimes->{{3.5801581390887957`*^9, 
  3.580158160870041*^9}},ExpressionUUID->"4039e5e1-c6b9-48c7-b7c0-\
0385cd17e264"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", "0", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5804219059962697`*^9},ExpressionUUID->"cf96ff9f-8111-4817-a26d-\
d21472a7b8a8"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["2 Unitary Commands", "Section",
 CellChangeTimes->{{3.580158278997798*^9, 
  3.5801582849511385`*^9}},ExpressionUUID->"9bcf76e5-3336-4431-9f15-\
75b0f2f2287f"],

Cell[CellGroupData[{

Cell["Antipode", "Subsection",
 CellChangeTimes->{{3.6464737097609777`*^9, 3.6464737111659765`*^9}},
 CellTags->"Antipode",ExpressionUUID->"a7ded4d2-ce0f-4b0e-870f-e9aa23792be5"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.64647371618466*^9, 
  3.6464737177816772`*^9}},ExpressionUUID->"b163c66f-3fd5-4317-8b82-\
8f12f8fddb8b"],

Cell[TextData[{
 "For a word ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Eta]", ":=", 
    RowBox[{
     RowBox[{
      SubscriptBox["x", 
       SubscriptBox["i", "1"]], "\[CenterEllipsis]", " ", 
      SubscriptBox["x", 
       SubscriptBox["i", "r"]]}], "\[NotEqual]", "\[EmptySet]"}]}], 
   TraditionalForm]],ExpressionUUID->"bb59ae57-6648-4420-b20e-760c28aa1659"],
 ", the antipode ",
 Cell[BoxData[
  FormBox["S", TraditionalForm]],ExpressionUUID->
  "8e9bbef1-8249-4afd-8931-64fa1c826054"],
 " can be written"
}], "Text",
 CellChangeTimes->{{3.646474329853507*^9, 3.6464743784662857`*^9}, {
  3.6464744136324277`*^9, 3.6464744338941317`*^9}, {3.647105249884432*^9, 
  3.647105256666998*^9}, {3.659492260478704*^9, 
  3.6594922609760404`*^9}},ExpressionUUID->"d6f78224-f894-4024-b289-\
00e5d537b9a0"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"S", "(", 
    SubsuperscriptBox["a", "\[Eta]", "k"], ")"}], "=", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}], 
     RowBox[{"r", "-", "1"}]], 
    RowBox[{
     SubsuperscriptBox[
      OverscriptBox["\[CapitalTheta]", "~"], "\[Eta]", "\[Rho]"], "(", 
     SubsuperscriptBox["a", "\[EmptySet]", "k"], ")"}]}]}], 
  TraditionalForm]],ExpressionUUID->"8dfe78c2-5fc9-4f95-95dc-8fa574cc1d65"]], \
"Text",
 CellChangeTimes->{{3.6464744554919043`*^9, 3.6464745419435797`*^9}, {
  3.6464746172738476`*^9, 3.646474618663951*^9}, {3.6471052602584786`*^9, 
  3.6471052627262487`*^9}, {3.659492209666703*^9, 3.659492255761328*^9}},
 TextAlignment->Center,ExpressionUUID->"afe497b0-f782-43ab-8559-72f8864a29d0"],

Cell["where ", "Text",
 CellChangeTimes->{{3.6464745476805935`*^9, 3.6464745939915447`*^9}, 
   3.6464746255791287`*^9},ExpressionUUID->"0d997b66-4423-48a9-b193-\
d756140ff88b"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   SubsuperscriptBox[
    OverscriptBox["\[CapitalTheta]", "~"], "\[Eta]", "\[Rho]"], ":=", 
   RowBox[{
    SubsuperscriptBox[
     OverscriptBox["\[Theta]", "~"], 
     SubscriptBox["i", "r"], "\[Rho]"], "\[SmallCircle]", " ", 
    "\[CenterEllipsis]", " ", "\[SmallCircle]", 
    SubsuperscriptBox[
     OverscriptBox["\[Theta]", "~"], 
     SubscriptBox["i", "1"], "\[Rho]"]}]}], 
  TraditionalForm]],ExpressionUUID->"011169fb-c327-4113-83fc-47433abea3e5"]], \
"Text",
 CellChangeTimes->{{3.6464746491293974`*^9, 3.6464746715266685`*^9}, {
  3.6464747259263706`*^9, 3.6464748270745754`*^9}, {3.6464748796662374`*^9, 
  3.6464749105339537`*^9}, {3.6594923134313383`*^9, 3.659492313837529*^9}},
 TextAlignment->Center,ExpressionUUID->"b24dbb19-4325-4f87-9c20-c2f31883ab1d"],

Cell[TextData[{
 "See ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    PaneSelectorBox[{False->"\<\"RhoRightAugment\"\>", True->
     StyleBox["\<\"RhoRightAugment\"\>", "HyperlinkActive"]}, Dynamic[
      CurrentValue["MouseOver"]],
     BaseStyle->{"Hyperlink"},
     FrameMargins->0,
     ImageSize->Automatic],
    BaseStyle->"Hyperlink",
    ButtonData:>{
      NotebookObject[
       FrontEndObject[
        LinkObject["5tas2_shm", 3, 1]], 58], "RhoRightAugment"},
    ButtonNote->ButtonData],
   Annotation[#, {
     NotebookObject[
      FrontEndObject[
       LinkObject["5tas2_shm", 3, 1]], 58], "RhoRightAugment"}, 
    "Hyperlink"]& ]],
  CellChangeTimes->{
   3.6464754914501286`*^9, {3.646475553467413*^9, 3.6464755831679063`*^9}},
  ExpressionUUID->"76c3d819-d838-42dc-83c5-99deff5c353f"],
 "."
}], "Text",
 CellChangeTimes->{{3.646474918948922*^9, 3.646474923105649*^9}, {
  3.646475668657163*^9, 
  3.646475677035789*^9}},ExpressionUUID->"e99cf2ce-f9ba-485d-8097-\
b2f1014c3940"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.6464737220997443`*^9, 
  3.646473723394664*^9}},ExpressionUUID->"81b4dff4-8fd5-4f0a-8d6c-\
12d8fc319807"],

Cell[BoxData[
 RowBox[{"Antipode", "[", 
  RowBox[{"cfunc", ",", "alph"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.646473733408778*^9, 
  3.6464737635652103`*^9}},ExpressionUUID->"adf2ce09-9d8b-4d84-abdb-\
9996d2759728"],

Cell[TextData[{
 StyleBox["cfunc",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a coordinate function of the type described in ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    PaneSelectorBox[{False->"\<\"A\"\>", True->
     StyleBox["\<\"A\"\>", "HyperlinkActive"]}, Dynamic[
      CurrentValue["MouseOver"]],
     BaseStyle->{"Hyperlink"},
     FrameMargins->0,
     ImageSize->Automatic],
    BaseStyle->"Hyperlink",
    ButtonData:>{
      NotebookObject[
       FrontEndObject[
        LinkObject["5tas2_shm", 3, 1]], 58], "A"},
    ButtonNote->ButtonData],
   Annotation[#, {
     NotebookObject[
      FrontEndObject[
       LinkObject["5tas2_shm", 3, 1]], 58], "A"}, "Hyperlink"]& ]],
  CellChangeTimes->{3.646475780751833*^9},ExpressionUUID->
  "5cb98a10-26c2-4712-b2de-a3084aade414"],
 ", ",
 StyleBox["alph",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is the alphabet for the context being operated in."
}], "Text",
 CellChangeTimes->{{3.646473768177517*^9, 3.646473836352936*^9}, 
   3.6464757911348033`*^9},ExpressionUUID->"e8993f0b-e47a-4893-a71e-\
2eec86122bce"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.6464737278618383`*^9, 
  3.646473728859551*^9}},ExpressionUUID->"5752f379-4c0e-4522-9ef9-\
5cb3201854d8"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"X", "=", 
   RowBox[{"{", 
    RowBox[{"x0", ",", "x1"}], "}"}]}], ";"}], "\n", 
 RowBox[{"Antipode", "[", 
  RowBox[{
   RowBox[{"A", "[", 
    RowBox[{"1", ",", 
     RowBox[{"x0", "**", "x1"}]}], "]"}], ",", "X"}], "]"}]}], "Code",
 CellChangeTimes->{{3.6464738535604763`*^9, 3.646473887460165*^9}, {
  3.659491860008918*^9, 
  3.65949186014301*^9}},ExpressionUUID->"4ebe84f3-607c-48cf-b785-\
9583e843d647"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   RowBox[{"A", "[", 
    RowBox[{"1", ",", "x1"}], "]"}], "2"], "-", 
  RowBox[{"A", "[", 
   RowBox[{"1", ",", 
    RowBox[{"x0", "**", "x1"}]}], "]"}], "+", 
  RowBox[{
   RowBox[{"A", "[", 
    RowBox[{"1", ",", "1"}], "]"}], " ", 
   RowBox[{"A", "[", 
    RowBox[{"1", ",", 
     RowBox[{"x1", "**", "x1"}]}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.6464738917992277`*^9, 
  3.6594918640147657`*^9},ExpressionUUID->"ed053275-3306-43d0-9cdd-\
f407ada3f947"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["CauchyInverse", "Subsection",
 CellChangeTimes->{{3.5801582926445785`*^9, 
  3.5801583003330183`*^9}},ExpressionUUID->"8da27951-dc38-46e3-b96f-\
44de14ec41a1"],

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.580158326155495*^9, 
  3.580158328606635*^9}},ExpressionUUID->"d26e4f55-a1af-49fc-9936-\
afc319694e7f"],

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.580158336617093*^9, 
  3.5801583378291626`*^9}},ExpressionUUID->"220d6f58-6d8f-4340-a5c4-\
c561562bc2c4"],

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.5801583412233567`*^9, 
  3.5801583422164135`*^9}},ExpressionUUID->"0b41ee43-b4f9-474f-b3aa-\
1132f4d99fa8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["CompositionInverse", "Subsection",
 CellChangeTimes->{{3.839368851900772*^9, 
  3.8393688592022896`*^9}},ExpressionUUID->"6b155859-e3f4-4c57-be57-\
d1131ffda82f"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.839368880255601*^9, 
  3.839368882637493*^9}},ExpressionUUID->"07236e77-c200-4d9b-845c-\
e434467a8342"],

Cell[TextData[{
 "Calculates the compositional inverse of a series, ",
 Cell[BoxData[
  FormBox["c", TraditionalForm]],ExpressionUUID->
  "7e5c893d-85cb-4cb9-bd33-2440f503085f"],
 ", such that"
}], "Text",
 CellChangeTimes->{{3.8393693558246107`*^9, 3.839369406483657*^9}, {
   3.839369656198497*^9, 3.839369667944193*^9}, {3.83937175203755*^9, 
   3.839371784622714*^9}, {3.839371929556652*^9, 3.839371960531599*^9}, {
   3.8393725532090197`*^9, 3.839372585664296*^9}, {3.8393726978154607`*^9, 
   3.839372747759473*^9}, {3.839372810692037*^9, 3.839372890289903*^9}, {
   3.8393729317955103`*^9, 3.8393729631632247`*^9}, 3.8393746818081236`*^9, {
   3.8393748330311356`*^9, 3.839374838886388*^9}, 3.839374996558427*^9, {
   3.8393761609489527`*^9, 
   3.8393761965451956`*^9}},ExpressionUUID->"b03303f0-8f9c-40dd-987b-\
ce25a32a9329"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"c", " ", "\[SmallCircle]", " ", 
    SuperscriptBox["c", 
     RowBox[{"-", "1"}]]}], " ", "=", " ", "\[Delta]"}], 
  TraditionalForm]],ExpressionUUID->"8e2c510a-43db-45c2-8b75-f01bcdaa4967"]], \
"Text",
 CellChangeTimes->{{3.8393753102103567`*^9, 3.839375329881215*^9}, {
  3.839375381234872*^9, 3.8393754401868043`*^9}},
 TextAlignment->Center,ExpressionUUID->"a8da4e1c-ca2a-4641-9a7e-c1a488245d03"],

Cell["where", "Text",
 CellChangeTimes->{{3.8393754479506207`*^9, 
  3.8393754487156196`*^9}},ExpressionUUID->"0907c320-0303-4b7e-be8e-\
defb416964e5"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"c", " ", "\[SmallCircle]", " ", "\[Delta]"}], " ", "=", " ", 
   RowBox[{"c", "   ", 
    RowBox[{"\[ForAll]", " ", 
     RowBox[{"c", " ", "\[Element]", " ", 
      RowBox[{"\[DoubleStruckCapitalR]", 
       RowBox[{
        RowBox[{"\[LeftAngleBracket]", 
         RowBox[{"\[LeftAngleBracket]", "X", "\[RightAngleBracket]"}], 
         "\[RightAngleBracket]"}], " ", ".", " "}]}]}]}]}]}], 
  TraditionalForm]],ExpressionUUID->"9b1abf95-c30b-4fd9-8f3c-d3e71876357d"]], \
"Text",
 CellChangeTimes->{{3.8393754668081636`*^9, 3.839375559213271*^9}, {
  3.839375600511306*^9, 3.839375600511306*^9}, {3.839375803652237*^9, 
  3.839375804703781*^9}, {3.8393758480596747`*^9, 3.8393758529356556`*^9}, {
  3.839376096296253*^9, 3.839376096296253*^9}},
 TextAlignment->Center,ExpressionUUID->"834857da-a863-45cb-b21d-0fe51d11732a"],

Cell[TextData[{
 "The current version only supports the single-input, single-output case \
where ",
 Cell[BoxData[
  FormBox[
   RowBox[{"c", " ", "\[Element]", " ", 
    RowBox[{"\[DoubleStruckCapitalR]", 
     RowBox[{"\[LeftAngleBracket]", 
      RowBox[{"\[LeftAngleBracket]", "X", "\[RightAngleBracket]"}], 
      "\[RightAngleBracket]"}]}]}], TraditionalForm]],ExpressionUUID->
  "dd43029e-9e5e-4b22-b69f-a93363e6103d"],
 " for ",
 Cell[BoxData[
  FormBox[
   RowBox[{"X", "=", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["x", "0"], ",", 
      SubscriptBox["x", "1"]}], "}"}]}], TraditionalForm]],ExpressionUUID->
  "a528a223-fb92-4bcc-ae49-e951be6039bb"],
 "."
}], "Text",
 CellChangeTimes->{{3.8393758786831865`*^9, 3.8393758801571865`*^9}, {
   3.8393759242234325`*^9, 3.8393759616636868`*^9}, {3.8393760238961935`*^9, 
   3.8393760291256185`*^9}, 3.839376082626118*^9, {3.839376112905944*^9, 
   3.839376135845039*^9}, {3.8393768657091846`*^9, 
   3.8393768657091846`*^9}},ExpressionUUID->"129bd57d-5488-4c0a-a794-\
800a737c4572"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.8393688975708055`*^9, 
  3.83936890038192*^9}},ExpressionUUID->"80eb2062-625d-41e3-82d2-\
12a41d741728"],

Cell[BoxData[
 RowBox[{"CompositionInverse", "[", 
  RowBox[{"series", ",", " ", "alphabet", ",", " ", "degree"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8393731338157816`*^9, 3.8393731696757402`*^9}, {
  3.8393734055422907`*^9, 
  3.8393734101812496`*^9}},ExpressionUUID->"1804615d-8845-4a91-986e-\
d0f517034260"],

Cell[TextData[{
 StyleBox["series",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a noncommutative formal power series, ",
 StyleBox["alphabet",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a list of letters, ",
 StyleBox["degree",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is an integer that specifies the maximum degree of the resulting series."
}], "Text",
 CellChangeTimes->{{3.8393734126057053`*^9, 3.8393734428992643`*^9}, {
  3.839373507665441*^9, 3.8393735951589847`*^9}, {3.8393736487671704`*^9, 
  3.839373685283328*^9}, {3.839374180166393*^9, 
  3.839374250703685*^9}},ExpressionUUID->"361aae56-ca1f-47ac-924a-\
f03ecdec71df"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.8393689142682962`*^9, 
  3.8393689168684607`*^9}},ExpressionUUID->"70630e02-cd0a-4938-86f0-\
9e9fa0020107"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"x0", ",", " ", "x1"}], "}"}]}], ";"}], "\n", 
 RowBox[{"CompositionInverse", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x0", "**", "x1"}], " ", "+", " ", 
    RowBox[{"2", " ", "x1"}]}], ",", " ", "x", ",", " ", "3"}], 
  "]"}]}], "Code",
 CellChangeTimes->{{3.839373750261015*^9, 3.8393737612604065`*^9}, {
  3.8393738164527216`*^9, 3.8393738360109787`*^9}, {3.839373941425684*^9, 
  3.8393739495651703`*^9}, {3.839374003914958*^9, 
  3.839374043798253*^9}},ExpressionUUID->"eca5f8fa-2746-49ed-b872-\
66a38b6ab4b0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", "x1"}], "+", 
  RowBox[{"3", " ", 
   RowBox[{"x0", "**", "x1"}]}]}]], "Output",
 CellChangeTimes->{
  3.8393765740983095`*^9},ExpressionUUID->"e89ad602-ef55-4a50-a0c6-\
e2fa49348179"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["GlobalGrowthConstants", "Subsection",
 CellChangeTimes->{{3.580158514963294*^9, 
  3.580158519330544*^9}},ExpressionUUID->"557b366c-454c-4203-9c3e-\
6f0ef0aab83f"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.580158523920807*^9, 
  3.580158525608903*^9}},ExpressionUUID->"be64c14b-f2c6-49c4-8478-\
7ef7350be4d6"],

Cell[TextData[{
 "A series ",
 StyleBox["c",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"ce390406-f35a-4317-951a-2a2c49a383f9"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket] is said to be ",
 StyleBox["globally convergent",
  FontSlant->"Italic"],
 " if there exists real numbers ",
 StyleBox["K",
  FontSlant->"Italic"],
 ",",
 StyleBox["M",
  FontSlant->"Italic"],
 " > 0 such that |(",
 StyleBox["c",
  FontSlant->"Italic"],
 ", \[Eta])| \[LessEqual] ",
 StyleBox["K",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox["M", 
    RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}]], 
   TraditionalForm]],ExpressionUUID->"559b4465-d205-45e0-ba51-cce1506551e9"],
 " for all \[Eta] \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["X", "*"], TraditionalForm]],ExpressionUUID->
  "8fa86e55-1474-47a5-94fe-5e03a32289e0"],
 ", where |",
 StyleBox["z",
  FontSlant->"Italic"],
 "| = ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["max", "i"], TraditionalForm]],ExpressionUUID->
  "2e69036c-9b6d-45a2-851e-87d12eaf1cd8"],
 " |",
 Cell[BoxData[
  FormBox[
   SubscriptBox["z", "i"], TraditionalForm]],ExpressionUUID->
  "c33cb985-684b-4f0c-b098-4dbc49197185"],
 "| when ",
 StyleBox["z",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"d5c9dadb-4740-45fb-b58e-284384bb52c1"],
 ", and |\[Eta]| denotes the length of the word \[Eta]. The smallest such \
constants are called the ",
 StyleBox["global growth constants",
  FontSlant->"Italic"],
 ". When possible, this command returns the minimal ",
 StyleBox["K",
  FontSlant->"Italic"],
 ",",
 StyleBox["M",
  FontSlant->"Italic"],
 " (in this order) and plots log(|(",
 StyleBox["c",
  FontSlant->"Italic"],
 ", \[Eta])|) versus word length, as well as the uniform bound log(",
 StyleBox["M",
  FontSlant->"Italic"],
 ")|\[Eta]| + log(",
 StyleBox["K",
  FontSlant->"Italic"],
 ").\n\nAssume there exists an expression such that |(",
 StyleBox["c",
  FontSlant->"Italic"],
 ", \[Eta])| \[LessEqual] ",
 StyleBox["K",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubsuperscriptBox["M", "0", 
    SubscriptBox[
     RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
     SubscriptBox["x", "0"]]], TraditionalForm]],ExpressionUUID->
  "39b68bda-24cb-48a1-b865-2f7082656fd3"],
 Cell[BoxData[
  FormBox[
   SubsuperscriptBox["M", "1", 
    SubscriptBox[
     RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
     SubscriptBox["x", "1"]]], TraditionalForm]],ExpressionUUID->
  "eeab4c28-ca4d-4d46-a443-4246ba36e4cb"],
 "\[CenterEllipsis]",
 Cell[BoxData[
  FormBox[
   SubsuperscriptBox["M", "m", 
    SubscriptBox[
     RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
     SubscriptBox["x", "m"]]], TraditionalForm]],ExpressionUUID->
  "edc24ae8-d4ae-457d-b36f-41faf0494e28"],
 "for all \[Eta] \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["X", "*"], TraditionalForm]],ExpressionUUID->
  "c9f6778c-d4a8-45d8-827b-ed7586f2a913"],
 " and ",
 StyleBox["X ",
  FontSlant->"Italic"],
 "= {",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],ExpressionUUID->
  "515feba9-5286-4216-b06b-f58daf54e344"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "1"], TraditionalForm]],ExpressionUUID->
  "13363a2b-23e5-48e5-b857-3a6157836d33"],
 ", \[Ellipsis], ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "m"], TraditionalForm]],ExpressionUUID->
  "d671274e-4731-4fa1-a8b5-7069aa11ee1e"],
 "}. When including a list alphabet, the command returns the minimal ",
 StyleBox["K,",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "0"], TraditionalForm]],ExpressionUUID->
  "c2f6d87c-c141-470c-9ad8-f89c1ea0fa3b"],
 StyleBox[",",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "1"], TraditionalForm]],ExpressionUUID->
  "22d76b9a-c927-40d4-9f60-c31e3e036ee4"],
 StyleBox[",...,",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "m"], TraditionalForm]],ExpressionUUID->
  "cb36a22d-d16a-4a10-9aec-12ffe656769e"],
 " (in this order) as well as showing a table of error values for the \
linearized fit of the form log(|(",
 StyleBox["c",
  FontSlant->"Italic"],
 ", \[Eta])|) = log(",
 StyleBox["K",
  FontSlant->"Italic"],
 ") + log(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "0"], TraditionalForm]],ExpressionUUID->
  "683da80f-e515-4083-b416-4d1d9f3be0c2"],
 ")",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
    SubscriptBox["x", "0"]], TraditionalForm]],ExpressionUUID->
  "71f0e2e1-6a96-4209-baf4-838bb3d81c9b"],
 "+ log(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "1"], TraditionalForm]],ExpressionUUID->
  "e1a29e02-a0db-4d23-9257-c68582d36fac"],
 ")",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
    SubscriptBox["x", "1"]], TraditionalForm]],ExpressionUUID->
  "8c68c3fc-0806-4ff6-a38c-d73c6e97b3b1"],
 "+ \[CenterEllipsis] + log(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "m"], TraditionalForm]],ExpressionUUID->
  "240d6d02-7d3a-46c0-ae2d-4ab319d3ce5c"],
 ")",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
    SubscriptBox["x", "m"]], TraditionalForm]],ExpressionUUID->
  "c38fd40a-f64d-4f9c-8535-6f1c96ceed3a"]
}], "Text",
 CellChangeTimes->{{3.5801585416328197`*^9, 3.5801587598563013`*^9}, {
  3.5909363429560685`*^9, 3.590936346563275*^9}, {3.5909367553936586`*^9, 
  3.590936760296939*^9}, {3.59093710648774*^9, 3.590937144235899*^9}, {
  3.5909371767757597`*^9, 3.5909371786868696`*^9}, {3.590938148601345*^9, 
  3.5909381932018967`*^9}, {3.590938282712016*^9, 3.5909383208671985`*^9}, {
  3.590938420103874*^9, 3.5909385316152525`*^9}, {3.590938581811124*^9, 
  3.5909386341521173`*^9}, {3.590938682737896*^9, 3.5909386894242787`*^9}, {
  3.5909388602670507`*^9, 3.5909389386265326`*^9}, {3.5909392414298515`*^9, 
  3.5909392469161654`*^9}, {3.590939777353505*^9, 3.5909397816137486`*^9}, {
  3.5909408447345552`*^9, 3.590941012149131*^9}, {3.5909410949508667`*^9, 
  3.5909410955218997`*^9}, {3.5909412441484003`*^9, 3.5909414001213217`*^9}, {
  3.590941843000653*^9, 
  3.5909418635308275`*^9}},ExpressionUUID->"06db8297-311d-48d5-8a76-\
84bd076d7ffd"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5801588102981863`*^9, 
  3.5801588115782595`*^9}},ExpressionUUID->"da5ff92c-37c5-4777-be43-\
11e6717bfcda"],

Cell[BoxData[
 RowBox[{"GlobalGrowthConstants", "[", "series", "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.5801588154704823`*^9, 3.5801588207787857`*^9}, {
  3.580158917233303*^9, 
  3.580158919229417*^9}},ExpressionUUID->"6ebf4578-c42c-436f-bff3-\
71ad1a2c417f"],

Cell[TextData[{
 StyleBox["series",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a noncommutative formal power series."
}], "Text",
 CellChangeTimes->{{3.580158924127697*^9, 3.5801589700313225`*^9}, {
  3.581882021883069*^9, 
  3.5818820228630714`*^9}},ExpressionUUID->"10cab2ab-4c63-4ffe-8857-\
36ce855d6630"],

Cell[BoxData[
 RowBox[{"GlobalGrowthConstants", "[", 
  RowBox[{"series", ",", "list"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.5909207692507715`*^9, 3.590920788580799*^9}, {
  3.5909211313412786`*^9, 3.59092113239128*^9}, {3.590921178031344*^9, 
  3.5909211812713485`*^9}},ExpressionUUID->"4d9aada6-f1ab-4ccd-83cc-\
9c73d63170bd"],

Cell[TextData[{
 StyleBox["list",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a list containing an alphabet of letters."
}], "Text",
 CellChangeTimes->{{3.5909208203908434`*^9, 3.5909208597908983`*^9}, {
  3.590921137521287*^9, 3.590921141331292*^9}, {3.5909211870513563`*^9, 
  3.5909211875313573`*^9}, {3.590921359491598*^9, 3.5909213595815983`*^9}, {
  3.5909382241986694`*^9, 
  3.5909382304050245`*^9}},ExpressionUUID->"c95229c0-1b46-4414-aff9-\
69903fb786a3"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.5801590594574375`*^9, 
  3.580159060883519*^9}},ExpressionUUID->"8f1e98c9-9318-490c-bb86-\
6168121eb37c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"c", " ", "=", " ", 
   RowBox[{"CharacteristicSeries", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"CatalanNumber", "[", "n", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", "10"}], "}"}]}], "]"}], "*", 
     RowBox[{"KleeneStar", "[", 
      RowBox[{
       RowBox[{"{", "x0", "}"}], ",", "9"}], "]"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"GlobalGrowthConstants", "[", "c", "]"}]}], "Code",
 CellChangeTimes->{{3.5801590959225235`*^9, 3.58015915950916*^9}, {
  3.5801592117661495`*^9, 3.5801592127842073`*^9}, {3.5804117659241896`*^9, 
  3.5804117666041903`*^9}, {3.580422410156106*^9, 3.580422427856118*^9}, {
  3.580422479756087*^9, 
  3.5804224982341433`*^9}},ExpressionUUID->"b3a8a6b8-417d-4233-b3ce-\
876bf9d8f910"],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {RGBColor[1, 0, 0], 
     PointBox[{{0., 0.}, {1., 0.6931471805599453}, {2., 
      1.6094379124341003`}, {3., 2.6390573296152584`}, {4., 
      3.7376696182833684`}, {5., 4.882801922586371}, {6., 
      6.061456918928017}, {7., 7.265429723253953}, {8., 8.48920515487607}, {
      9., 9.728896041804084}}]}, {}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVy3881HcAx3Hyq66TjsjP+/X19SvEHm2NR/m8S9vyI+XHrZK2nF8tpZTr
h9OKkjyM3ST5MQ9kLGuclrZozFCXn5VrWY5N3D16CJW4dH6u/fF6PP968YSH
g6KWaGlpbXvf/xZ9LdR3j8zwMmZ47/1obZZXq5zrv5P7FfGaCvPbUBNLFu81
nuNyT5HbHq/HFqViUtSUydHjppPj/XUNz6QZ5OBG0aFpTj55XMWu6JEWEvns
/pzXnEpyzizQskN6nRgohuzHOXVE4XsgRCa9Q0rbi+NHOW3EQHU8/q60g1RL
0xUHXftIyhZri/6n/SSGPMofOzpMXjUIOoriVCRO5ThcWz1C+JVhLuxtY4TB
O2//78evSWuWxkUwOEGyVnY4le6bJAFCSWdCqJoIFSF/6HS+JfEzcYGWHA2J
v3teeNh+huz0HLd36JkjN44wg8195klHuqJZxtdCqTj2hdtOLfy2SxnZqL0E
KcVzgVNj2giYym5/1qQDLfkgfk/UgSyCtdvjhB7sEqJPhjjp4ZtbN/vkQQZQ
qq98vrxBH/PyWU7himXwVR04nR2/FPWPY3aVv2IgQClZw2YzsLuyrG5YxsSL
FuHZ+1XLUeab+k/A2RVwZT2x8f7SEDYxn4gXXFeCQdTh/ZMr4GVkNTJqyMJn
46HTfMFKpF5LeZi4yMLfzZHaoc4sNKwJ6iwbM8ati61fcNUs+F2echxuM0G0
nmiwu9sYi68ctFvrViHiqPgWs8AEy9zdPO/km2JtzJpu//BV0A0rTvMXmeGB
sfNykYcp6JMlAWciVuNOdUqhs44Zvk9MOHF/kznE2k47OgfM4BHXZ3HzAwsw
+hO3xtWuhszv2sP1HEuoKng5xUnm+MnIZ6Rn1hI5Dha6dQIL1LaKxUajVpAU
RMvCuZYw3Zd8WNhujdCcvd3M55aIUr08sb3cBu+2lGuKG63Qv+elZiCbjWHV
5pPNadaovN00kHKEg6sb3a26wm2w/Vx2UaQbF1WpIlaMCxvHbFzns0u4SBNE
+Omo2ZD8PB+dtYKHD/tLK9O6ONi0LjezL5WHPMfCqi4/LqzXmqvc1TycacrM
86vjIoMfoXl6iI9tVoLydlseJhhDq7cr+dgUJ9vDSuchJdo35kEQhWJroW3n
+6+iXnyspJ2CbcuPuQF7+HibnFuT5GkLiUuzU08jH15eqmn6mi2iJ3UftTlR
sJicm+VwaAhvvOGmf0uBY7XgRmfROJgSPOf7HQWz3n2jqyQ0RMG1vcxLFJiX
Wsp1s2lcVIuyJLkUNIx0S+VlGtUemtkrRRTkMya6ZUU0NH8uPqm4TuFCn2Mv
t4qGpIeZ2SqjMJ4vOG3dSaOg7ND+C20UlILb65ndNMoSur23dlB4yrJ6M/uA
xq9mkpmObgr30gejFXIa/aEm++V/USg5FbujQEHDftjCe2iYQvDuZMp8lIZb
bSL7BxUFH1PlgME4Dc9UhSbqOQU8+jRv+iUNf/uimpEXFJx9mIa9b2gcjeWy
JyYo6HtceXt5hkbShmTNL5MU5qc0NalzNFINhx4nqClM1oTFihZo5EnLMt69
ozDowB8MWWKHq2d1Y+pnKPQqzxds0bXD9cCozUlzFLpKnoes07dDLf+ejdcC
hZYwXyPbpXZonLTTLC5SqDevajNh2OE/oWYtYg==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"|\[Eta]|\"", TraditionalForm], 
    FormBox["\"ln[|(c,\[Eta])|]\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 9.}, {0., 9.728896041804084}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Print",
 CellChangeTimes->{{3.5804224820262165`*^9, 3.580422499100193*^9}, 
   3.58508863588619*^9},ExpressionUUID->"e053ddee-6bee-4980-b428-\
c65997b31f44"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.`", ",", "3.0100847797094157`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.580421906147278*^9, {3.5804224126352477`*^9, 3.5804224283701477`*^9}, {
   3.5804224819912148`*^9, 3.5804224991151943`*^9}, 
   3.5850886359031906`*^9},ExpressionUUID->"29ee6f0e-d3bd-4b61-8674-\
6ddde597fa14"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"c", "=", 
   RowBox[{"2", "+", 
    RowBox[{"3", "x0"}], "+", 
    RowBox[{"5", "x1"}], "+", 
    RowBox[{"7", 
     RowBox[{"x0", "**", "x0"}]}], "+", 
    RowBox[{"9", 
     RowBox[{"x0", "**", "x1"}]}], "+", 
    RowBox[{"11", 
     RowBox[{"x1", "**", "x0"}]}], "+", 
    RowBox[{"12", 
     RowBox[{"x0", "**", "x1", "**", "x0"}]}], "+", 
    RowBox[{"15", 
     RowBox[{"x0", "**", "x0", "**", "x0"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"X", "=", 
   RowBox[{"{", 
    RowBox[{"x0", ",", "x1"}], "}"}]}], ";"}], "\n", 
 RowBox[{"GlobalGrowthConstants", "[", 
  RowBox[{"c", ",", "X"}], "]"}]}], "Code",
 CellChangeTimes->{{3.5909210225411263`*^9, 3.5909210264711313`*^9}, {
  3.590921119521262*^9, 3.5909211207312636`*^9}, {3.5909211937813663`*^9, 
  3.590921209861388*^9}, {3.5909371912665887`*^9, 3.5909372485158634`*^9}, {
  3.5909375498721*^9, 
  3.5909375629718494`*^9}},ExpressionUUID->"40c36ecf-a3a4-4f7d-a7f2-\
c1071b9c18d7"],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"1", "0.6854001980547738`", "0.15815171830401023`", 
      "4.333814424559396`", "0.007472397212477348`"},
     {"x0", "0.6173531711944139`", "0.07907585915200512`", 
      "7.807100394669058`", "0.0005525733510116449`"},
     {"x1", "0.869612733839985`", "0.1531297427913796`", "5.678927672625462`",
       "0.002357913557474261`"}
    },
    AutoDelete->False,
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
    GridBoxDividers->{
     "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
      "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{
     "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
   "Grid"], "DialogStyle",
  StripOnInput->False]], "Print",
 CellChangeTimes->{
  3.590937827032953*^9},ExpressionUUID->"eb203171-00c4-420b-9b0f-\
b1861fcfdadb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.9845658960469947`", ",", "1.8540142833651112`", ",", 
   "2.3859866626892026`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5909378270359526`*^9},ExpressionUUID->"0de1fcf2-c757-4de3-b903-\
06f9826413f8"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["HankelRank", "Subsection",
 CellChangeTimes->{{3.580159233848412*^9, 
  3.58015923590653*^9}},ExpressionUUID->"2fce950f-3a92-42f7-95c4-\
075adcdee337"],

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.5801592403137817`*^9, 
  3.58015924342796*^9}},ExpressionUUID->"b29bbab0-fea7-4e65-ae8a-\
786f343ab2db"],

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.580159246716148*^9, 
  3.580159247846213*^9}},ExpressionUUID->"25569c26-11e9-422d-bf47-\
a20fd3b913d2"],

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.580159252066454*^9, 
  3.580159252959505*^9}},ExpressionUUID->"24270f0e-9b28-423c-95b3-\
2825aae8afc7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["IteratedIntegal", "Subsection",
 CellChangeTimes->{{3.58015925829181*^9, 
  3.5801592611209717`*^9}},ExpressionUUID->"da33ad87-6c9a-4211-9415-\
e3d34b4fb501"],

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.580159264373158*^9, 
  3.580159266211263*^9}},ExpressionUUID->"fe099418-6a07-43bd-b728-\
4abc759af4cc"],

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.580159290575657*^9, 
  3.580159291562713*^9}},ExpressionUUID->"7a96a152-547d-4172-9fa2-\
8a899b46c2d0"],

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.580159294062856*^9, 
  3.5801592959799657`*^9}},ExpressionUUID->"55a6a35a-3d0e-4167-b428-\
95c6fcf0008f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["KleeneStar", "Subsection",
 CellChangeTimes->{{3.580159306136547*^9, 
  3.5801593082496676`*^9}},ExpressionUUID->"e03a8091-1ddf-4cb3-ab8d-\
1a20a442218d"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.580159354571317*^9, 
  3.5801593570564594`*^9}},ExpressionUUID->"df556e89-cd66-49df-bb93-\
946390c869e4"],

Cell[TextData[{
 "Given languages ",
 StyleBox["L",
  FontSlant->"Italic"],
 ", ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["L", "_"], TraditionalForm]],ExpressionUUID->
  "10546275-faa7-43d7-a3b9-c4d25d7229bb"],
 " \[SubsetEqual], define the product ",
 StyleBox["L",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   OverscriptBox["L", "_"], TraditionalForm]],ExpressionUUID->
  "5c6e015a-4826-4724-96c6-941983c85666"],
 " = {\[Eta]",
 Cell[BoxData[
  FormBox[
   OverscriptBox["\[Eta]", "_"], TraditionalForm]],ExpressionUUID->
  "733a01b7-235d-4ac7-9053-7797208e54b5"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["X", "*"], TraditionalForm]],ExpressionUUID->
  "f981b2e6-9a6b-4169-916b-01b427d8fc3a"],
 " : \[Eta] \[Element] ",
 StyleBox["L",
  FontSlant->"Italic"],
 ", ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["\[Eta]", "_"], TraditionalForm]],ExpressionUUID->
  "b80a99bd-a6c7-4bd5-a49f-5f4e8f481149"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["L", "_"], TraditionalForm]],ExpressionUUID->
  "7e75ef97-79be-44f6-a474-4bdb00e843aa"],
 "}. The Kleene star of ",
 StyleBox["L",
  FontSlant->"Italic"],
 " is ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["L", "*"], TraditionalForm]],ExpressionUUID->
  "a54c87b7-e144-4e26-a8d0-6fcb2a0eb808"],
 " = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"k", "=", "0"}], "\[Infinity]"], 
    SuperscriptBox["L", "k"]}], TraditionalForm]],ExpressionUUID->
  "823b20ee-3e18-4167-8a66-56b367238927"],
 " where ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["L", "0"], TraditionalForm]],ExpressionUUID->
  "afc1c6a5-8c0e-45f9-86eb-af897358f06e"],
 " denotes the empty word, and ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["L", 
    RowBox[{"k", "+", "1"}]], TraditionalForm]],ExpressionUUID->
  "0b4172b7-3527-4b81-98be-983fe199a784"],
 " = ",
 StyleBox["L",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox["L", "k"], TraditionalForm]],ExpressionUUID->
  "60dccd58-c99c-41ac-9c0d-362aa81b1349"],
 ". In practice, only the first ",
 StyleBox["n",
  FontSlant->"Italic"],
 " + 1 terms of the summation can be computed, where ",
 StyleBox["n",
  FontSlant->"Italic"],
 " \[GreaterEqual]0."
}], "Text",
 CellChangeTimes->{{3.5801593704592257`*^9, 3.5801594213431363`*^9}, {
  3.5801594652506475`*^9, 
  3.5801596126040754`*^9}},ExpressionUUID->"afcf0d0c-170f-4d95-a9c7-\
5b551c0b54a3"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5801596353443766`*^9, 
  3.580159637035473*^9}},ExpressionUUID->"26897ed4-d2c6-40c1-a31f-\
0fa9a709ad11"],

Cell[BoxData[
 RowBox[{"KleeneStar", "[", 
  RowBox[{"list", ",", "integer"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.5801596440208726`*^9, 
  3.580159653205398*^9}},ExpressionUUID->"a6548f05-9fe4-4f25-a861-\
8124c80f498a"],

Cell[TextData[{
 StyleBox["list",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a list of monic monomials, and ",
 StyleBox["integer",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a nonnegative integer."
}], "Text",
 CellChangeTimes->{{3.58015965900673*^9, 3.5801597313588676`*^9}, {
  3.5818820823482065`*^9, 
  3.581882086355716*^9}},ExpressionUUID->"275563db-f9ff-4a62-a548-\
55e11b694ed7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.5801597384482737`*^9, 
  3.5801597394563313`*^9}},ExpressionUUID->"9977e951-517a-47e1-8b02-\
5a50b2b91970"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"KleeneStar", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x0", ",", "x1"}], "}"}], ",", "2"}], "]"}]], "Code",
 CellChangeTimes->{{3.5801597517030315`*^9, 
  3.5801597646937747`*^9}},ExpressionUUID->"07c4ddf6-98ca-4057-bd2d-\
516683548290"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "x0", ",", "x1", ",", 
   RowBox[{"x0", "**", "x0"}], ",", 
   RowBox[{"x0", "**", "x1"}], ",", 
   RowBox[{"x1", "**", "x0"}], ",", 
   RowBox[{"x1", "**", "x1"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5804219061802797`*^9},ExpressionUUID->"81482f7c-f4c4-4312-808d-\
ee8c06e491e0"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["LeftShift", "Subsection",
 CellChangeTimes->{{3.5788815533807077`*^9, 3.5788815818753376`*^9}, {
  3.5788816195034895`*^9, 
  3.5788816215756083`*^9}},ExpressionUUID->"22157834-d9da-4eac-a560-\
3c023b3013ab"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.5788817005981283`*^9, 
  3.5788817028072543`*^9}},ExpressionUUID->"1fb3df03-68f1-478a-99b4-\
05c44698f12b"],

Cell[TextData[{
 "Given any \[Xi] \[Element] ",
 StyleBox["X",
  FontSlant->"Italic"],
 "*, the corresponding left-shift operator on ",
 StyleBox["X",
  FontSlant->"Italic"],
 "* is defined as"
}], "Text",
 CellChangeTimes->{{3.578881710524696*^9, 3.5788817392993417`*^9}, {
   3.578881817562818*^9, 3.578881872111938*^9}, 
   3.578881911550194*^9},ExpressionUUID->"7b9f418b-733a-4e40-aa3e-\
98098ab16bd1"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Xi]", 
    RowBox[{"-", "1"}]], TraditionalForm]],ExpressionUUID->
  "4b0fcc3a-065a-4eed-9e93-77e88c7824dd"],
 " : ",
 StyleBox["X",
  FontSlant->"Italic"],
 "* \[RightArrow] \[DoubleStruckCapitalR]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket] : \[Eta] \[RightTeeArrow] ",
 Cell[BoxData[
  FormBox[
   TagBox[GridBox[{
      {"\[Piecewise]", GridBox[{
         {
          RowBox[{"\[Eta]", "'"}], 
          RowBox[{"\[Eta]", "=", 
           RowBox[{"\[Xi]\[Eta]", "'"}]}]},
         {"0", 
          RowBox[{"otherwise", "."}]}
        },
        AllowedDimensions->{2, Automatic},
        Editable->True,
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.84]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
          "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}},
        Selectable->True]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.35]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    "Piecewise",
    DeleteWithContents->True,
    Editable->False,
    SelectWithContents->True,
    Selectable->False], TraditionalForm]],ExpressionUUID->
  "c9809f5e-53d1-495f-80cc-f3ed0ebf8eff"]
}], "Text",
 CellChangeTimes->{{3.5788819587518935`*^9, 3.5788819807811537`*^9}, {
  3.5788820536583223`*^9, 3.57888205606246*^9}, {3.578882087978285*^9, 
  3.5788821385321765`*^9}, {3.578882246486351*^9, 3.5788822775961304`*^9}, {
  3.57888231919751*^9, 3.578882329202082*^9}, {3.5788830583817887`*^9, 
  3.578883058388789*^9}, {3.578883104290415*^9, 3.5788831886102376`*^9}},
 TextAlignment->Center,ExpressionUUID->"96e4449c-2f19-4b8f-9b8a-c015efe85994"],

Cell[TextData[{
 "Note that in the second half of this definition, \[Eta] is being mapped to \
the zero polynomial, i.e., ",
 StyleBox["p ",
  FontSlant->"Italic"],
 "= 0, as opposed to the empty word \[EmptySet]. So this operator is a \
mapping into \[DoubleStruckCapitalR]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket] and not into ",
 StyleBox["X",
  FontSlant->"Italic"],
 "*. For any c \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"d2b90e77-e776-452a-9200-ea732331ce8d"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket], this definition is extended \
linearly as"
}], "Text",
 CellChangeTimes->{
  3.578883213326651*^9, {3.5788832651916175`*^9, 3.578883271413974*^9}, {
   3.578883309249138*^9, 3.5788833421640205`*^9}, {3.57888456984324*^9, 
   3.5788846076574025`*^9}},ExpressionUUID->"661dedcb-1144-45fa-b2ec-\
35e254ea5938"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Xi]", 
    RowBox[{"-", "1"}]], TraditionalForm]],ExpressionUUID->
  "a9d23d90-b12e-4473-8be6-9ac59475bc69"],
 "(c) = ",
 Cell[BoxData[
  FormBox[
   UnderscriptBox["\[Sum]", 
    RowBox[{"\[Eta]", "\[Element]", 
     SuperscriptBox["X", "*"]}]], TraditionalForm]],ExpressionUUID->
  "1cc79e15-91b9-4f1c-a49a-7e1bac2facd3"],
 "(c,\[Eta])",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    SuperscriptBox["\[Xi]", 
     RowBox[{"-", "1"}]]}], TraditionalForm]],ExpressionUUID->
  "728bf50e-92b1-4b43-8262-515a34fcb122"],
 "(\[Eta]) = ",
 Cell[BoxData[
  FormBox[
   UnderscriptBox[
    UnderscriptBox[
     StyleBox["\[Sum]",
      FontSize->24], " "], 
    RowBox[{"\[Eta]", "\[Element]", 
     SuperscriptBox["X", "*"]}]], TraditionalForm]],ExpressionUUID->
  "09855104-2083-4299-8fd8-f7d6ec34bda7"],
 "(c,\[Xi]\[Eta])\[Eta]."
}], "Text",
 CellChangeTimes->{{3.5788833691985664`*^9, 3.578883392386893*^9}, {
  3.5788834295710196`*^9, 3.5788834599237556`*^9}, {3.578883517832068*^9, 
  3.578883751864454*^9}, {3.5788837899716334`*^9, 3.5788838154990935`*^9}, {
  3.5788838501650763`*^9, 3.578883926397436*^9}, {3.5788839578772373`*^9, 
  3.5788839751492248`*^9}},
 TextAlignment->Center,ExpressionUUID->"1580cd31-225f-4e65-8271-394813a0a882"],

Cell["The current implementation assumes \[ScriptL] = 1.", "Text",
 CellChangeTimes->{
  3.578884027753234*^9, {3.5788840714737344`*^9, 
   3.578884080086227*^9}},ExpressionUUID->"7a51e11a-05d8-4b99-8596-\
ce72216bf488"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5788840870686264`*^9, 
  3.5788840889017315`*^9}},ExpressionUUID->"5d6aa355-580e-4d65-bc6a-\
a95504ebc9ac"],

Cell[BoxData[
 RowBox[{"LeftShift", "[", 
  RowBox[{"series", ",", "monomial"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.578884097929248*^9, 
  3.5788841200975156`*^9}},ExpressionUUID->"3e421c3e-4cdd-403a-b701-\
d865d037bbc4"],

Cell[TextData[{
 StyleBox["series",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a noncommutative formal power series, and ",
 StyleBox["monomial",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a monic noncommutative monomial."
}], "Text",
 CellChangeTimes->{{3.5850901897110634`*^9, 
  3.5850902366687493`*^9}},ExpressionUUID->"1a56df23-2140-45ee-8a63-\
55963269c0ec"],

Cell[BoxData[
 RowBox[{"LeftShift", "[", 
  RowBox[{"series", ",", "monomial", ",", "power"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.583183165505185*^9, 
  3.5831831856293364`*^9}},ExpressionUUID->"26f09b2b-f100-4201-925d-\
4280495211c0"],

Cell[TextData[{
 StyleBox["power",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a nonnegative integer."
}], "Text",
 CellChangeTimes->{{3.5831834503374767`*^9, 3.5831834710566616`*^9}, {
  3.721910403696666*^9, 
  3.721910405964772*^9}},ExpressionUUID->"2e56a00e-2a3d-4f2a-9883-\
5efa52dfcbe9"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.57888429955578*^9, 
  3.578884301247877*^9}},ExpressionUUID->"c9340ad6-52ad-4428-906e-\
2d7d83b0d948"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LeftShift", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"2", 
     RowBox[{"x0", "**", "x1"}]}], "+", 
    RowBox[{"x0", "**", "x1", "**", "x0"}], "+", 
    RowBox[{"x1", "**", "x0", "**", "x0"}], "+", 
    RowBox[{"x0", "**", "x0", "**", "x0"}]}], ",", 
   RowBox[{"x0", "**", "x1"}]}], "]"}]], "Code",
 CellChangeTimes->{{3.5788843100023775`*^9, 
  3.5788843698147984`*^9}},ExpressionUUID->"8263b39d-9107-4fbd-9897-\
a951eb370a14"],

Cell[BoxData[
 RowBox[{"2", "+", "x0"}]], "Output",
 CellChangeTimes->{
  3.5788843744690647`*^9, 3.578884432049358*^9, 3.5788847737058997`*^9, {
   3.580421906215282*^9, 
   3.5804219079743824`*^9}},ExpressionUUID->"cfc7a234-f70c-4754-9269-\
f9995333dafc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LeftShift", "[", 
  RowBox[{
   RowBox[{"x0", "**", "x1", "**", "x0", "**", "x1", "**", "x0", "**", "x0"}],
    ",", 
   RowBox[{"x0", "**", "x1"}], ",", "2"}], "]"}]], "Code",
 CellChangeTimes->{{3.583183557188588*^9, 3.5831835596277275`*^9}, {
  3.5831836649827538`*^9, 
  3.5831836829547815`*^9}},ExpressionUUID->"0df3b39e-ebbe-4a6d-a2cd-\
aa242a90a204"],

Cell[BoxData[
 RowBox[{"x0", "**", "x0"}]], "Output",
 CellChangeTimes->{
  3.5831853473739805`*^9},ExpressionUUID->"772005c9-1ff4-43cf-b0b5-\
d70be471481a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LeftShift", "[", 
  RowBox[{
   RowBox[{"x0", "**", "x1", "**", "x0", "**", "x1", "**", "x0", "**", "x0"}],
    ",", 
   RowBox[{"x0", "**", "x1"}], ",", "0"}], "]"}]], "Code",
 CellChangeTimes->{{3.583183557188588*^9, 3.5831835596277275`*^9}, {
  3.5831836649827538`*^9, 3.5831836829547815`*^9}, {3.721910423394539*^9, 
  3.721910423535172*^9}},ExpressionUUID->"d24b6459-83be-45db-9c87-\
5068acf0497e"],

Cell[BoxData[
 RowBox[{"x0", "**", "x1", "**", "x0", "**", "x1", "**", "x0", "**", 
  "x0"}]], "Output",
 CellChangeTimes->{
  3.7219104265048246`*^9},ExpressionUUID->"4c0ac50b-e0cb-4a0a-9b65-\
bfffe719d211"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["LieRank", "Subsection",
 CellChangeTimes->{{3.5804106622126446`*^9, 
  3.580410664062647*^9}},ExpressionUUID->"d514e6d5-4159-4fcd-aa5d-\
1dc55ac68b94"],

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.5804106698526554`*^9, 
  3.5804106719926577`*^9}},ExpressionUUID->"c7b9c2e9-00aa-4953-b41d-\
f9a8c54faa4a"],

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.580410675602663*^9, 
  3.580410677692666*^9}},ExpressionUUID->"9502d2d6-b83f-42b5-af4e-\
2c15a1d29a93"],

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.5804106816026716`*^9, 
  3.580410682712673*^9}},ExpressionUUID->"5923624a-7fe6-48d8-b82e-\
ee3f2138e419"]
}, Open  ]],

Cell[CellGroupData[{

Cell["LocalGrowthConstants", "Subsection",
 CellChangeTimes->{{3.5804107050127044`*^9, 
  3.5804107180027227`*^9}},ExpressionUUID->"d2b3f7f4-2219-42c8-a564-\
4799118b2a9c"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.580410729202738*^9, 
  3.5804107309827404`*^9}},ExpressionUUID->"d17caea4-95cd-4a51-822c-\
fd690afce21e"],

Cell[TextData[{
 "A series ",
 StyleBox["c",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"e08f06bc-38de-4552-a57a-f53a2b6aaaa1"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket] is said to be ",
 StyleBox["locally convergent",
  FontSlant->"Italic"],
 " if there exists real numbers ",
 StyleBox["K,M",
  FontSlant->"Italic"],
 " > 0 such that |(",
 StyleBox["c",
  FontSlant->"Italic"],
 ", \[Eta])| \[LessEqual] ",
 StyleBox["K",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox["M", 
    RowBox[{"|", "\[Eta]", "|"}]], TraditionalForm]],ExpressionUUID->
  "3d2eb7ec-2eee-4a53-b62e-5b3c67fa973e"],
 "|\[Eta]|! for all \[Eta] \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["X", "*"], TraditionalForm]],ExpressionUUID->
  "3f1ca654-7b66-4bcb-9f24-7b66b58073d7"],
 ", where |\[ScriptZ]| = ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["max", "i"], TraditionalForm]],ExpressionUUID->
  "fef1a102-2fbe-464f-985a-dc00008f0794"],
 " |",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[ScriptZ]", "i"], TraditionalForm]],ExpressionUUID->
  "c40c7473-2d95-47c0-a01f-09218bece488"],
 "| when \[ScriptZ] \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"857084f7-740d-4123-8c8d-d6ff52be69a1"],
 ", and |\[Eta]| denotes the length of the word \[Eta]. The smallest such \
constants are called the ",
 StyleBox["local growth constants",
  FontSlant->"Italic"],
 ". When possible, this command returns the minimal ",
 StyleBox["K,M ",
  FontSlant->"Italic"],
 "(in this order) and plots log(\[LeftBracketingBar](",
 StyleBox["c,",
  FontSlant->"Italic"],
 "\[Eta])\[RightBracketingBar]/\[LeftBracketingBar]\[Eta]\[RightBracketingBar]\
!) versus word length, as well as the uniform bound log(",
 StyleBox["M",
  FontSlant->"Italic"],
 ") \[LeftBracketingBar]\[Eta]\[RightBracketingBar] + log(",
 StyleBox["K",
  FontSlant->"Italic"],
 ").\n\nAssume there exists an expression such that |(",
 StyleBox["c",
  FontSlant->"Italic"],
 ", \[Eta])| \[LessEqual] ",
 StyleBox["K",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubsuperscriptBox["M", "0", 
    SubscriptBox[
     RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
     SubscriptBox["x", "0"]]], TraditionalForm]],ExpressionUUID->
  "3df7fb1b-68bc-41dc-8005-4b5b4c6189ac"],
 Cell[BoxData[
  FormBox[
   SubsuperscriptBox["M", "1", 
    SubscriptBox[
     RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
     SubscriptBox["x", "1"]]], TraditionalForm]],ExpressionUUID->
  "f2dbb228-abdc-421d-9a04-0c40db60a13a"],
 "\[CenterEllipsis]",
 Cell[BoxData[
  FormBox[
   SubsuperscriptBox["M", "m", 
    SubscriptBox[
     RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
     SubscriptBox["x", "m"]]], TraditionalForm]],ExpressionUUID->
  "129850d3-6bc2-4601-89a0-31c11ae25ca7"],
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
    SubscriptBox["x", "0"]], TraditionalForm]],ExpressionUUID->
  "0d498898-ff98-4600-9874-b53eceecc8c8"],
 "!",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
    SubscriptBox["x", "1"]], TraditionalForm]],ExpressionUUID->
  "2412a072-c528-4d16-96d9-e8e0965da369"],
 "!\[CenterEllipsis]",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
    SubscriptBox["x", "m"]], TraditionalForm]],ExpressionUUID->
  "5ea6686b-64dc-495c-8bc9-34d000fb83dd"],
 "! for all \[Eta] \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["X", "*"], TraditionalForm]],ExpressionUUID->
  "edb6eb28-af42-4ea3-930e-5e3fef789569"],
 " and ",
 StyleBox["X ",
  FontSlant->"Italic"],
 "= {",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],ExpressionUUID->
  "40287170-ed7d-4454-89c7-f631b17d1901"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "1"], TraditionalForm]],ExpressionUUID->
  "3ce3db2a-abb5-4c05-9468-35bdbeb5913a"],
 ", \[Ellipsis], ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "m"], TraditionalForm]],ExpressionUUID->
  "637851ad-221f-4444-b3c7-8f424151baff"],
 "}. When including a list alphabet, the command returns the minimal ",
 StyleBox["K,",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "0"], TraditionalForm]],ExpressionUUID->
  "409a5da1-1cab-41af-b620-974d3a9b9085"],
 StyleBox[",",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "1"], TraditionalForm]],ExpressionUUID->
  "4cce973d-7b70-4b2d-be90-6409bb7a385e"],
 StyleBox[",...,",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "m"], TraditionalForm]],ExpressionUUID->
  "f4482479-5093-48f8-acca-45d8cecd48ee"],
 " (in this order) as well as showing a table of error values for the \
linearized fit of the form log[|(",
 StyleBox["c",
  FontSlant->"Italic"],
 ", \[Eta])|/(",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
    SubscriptBox["x", "0"]], TraditionalForm]],ExpressionUUID->
  "4ff2d8f2-9c96-4d0f-b7f8-688481dec821"],
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
    SubscriptBox["x", "1"]], TraditionalForm]],ExpressionUUID->
  "84a0f2c1-79fc-4fb6-87c9-ff8b9384f17e"],
 "\[CenterEllipsis]",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
    SubscriptBox["x", "m"]], TraditionalForm]],ExpressionUUID->
  "222b07ea-2cde-4b4f-9d0a-27956b892edf"],
 ")] = log(",
 StyleBox["K",
  FontSlant->"Italic"],
 ") + log(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "0"], TraditionalForm]],ExpressionUUID->
  "69aa4ef8-b5e0-4145-9d97-3671d5c4b37f"],
 ")",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
    SubscriptBox["x", "0"]], TraditionalForm]],ExpressionUUID->
  "ba0275f3-5fb4-4b82-9c20-f0e36effdd19"],
 "+ log(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "1"], TraditionalForm]],ExpressionUUID->
  "234af3c1-0a42-46fe-b69d-98f1000f5f57"],
 ")",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
    SubscriptBox["x", "1"]], TraditionalForm]],ExpressionUUID->
  "80ccb683-810b-4312-8896-3934f983a06b"],
 "+ \[CenterEllipsis] + log(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["M", "m"], TraditionalForm]],ExpressionUUID->
  "78cea9b4-7eb3-4599-b395-bb4bfecaee4b"],
 ")",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    RowBox[{"\[LeftBracketingBar]", "\[Eta]", "\[RightBracketingBar]"}], 
    SubscriptBox["x", "m"]], TraditionalForm]],ExpressionUUID->
  "8f61f849-177e-49af-be7c-294c68e82c3f"]
}], "Text",
 CellChangeTimes->{{3.5804107655827894`*^9, 3.5804107996428366`*^9}, {
  3.580410833402884*^9, 3.5804108616329236`*^9}, {3.5804109108829927`*^9, 
  3.5804109467730427`*^9}, {3.5804109780830865`*^9, 3.5804110199631453`*^9}, {
  3.5804110502631874`*^9, 3.5804110588431997`*^9}, {3.580411095293251*^9, 
  3.580411597633954*^9}, {3.5804120143345375`*^9, 3.5804120451045804`*^9}, {
  3.590941422230586*^9, 3.5909414227116137`*^9}, {3.5909416868997245`*^9, 
  3.590941810478793*^9}, {3.5909418888882775`*^9, 3.59094189539865*^9}, {
  3.5909419352909317`*^9, 3.590941952514917*^9}, {3.5909420118863125`*^9, 
  3.590942051338569*^9}},ExpressionUUID->"5853bb39-651c-4afa-9744-\
4a87dd83ccd0"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5804107339927444`*^9, 
  3.5804107360027475`*^9}},ExpressionUUID->"7e95060c-e17a-4c66-80fe-\
6bd030e88abd"],

Cell[BoxData[
 RowBox[{"LocalGrowthConstants", "[", "series", "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.58041160910397*^9, 
  3.5804116223939886`*^9}},ExpressionUUID->"d29baced-0efc-485f-96f8-\
af40e3633b48"],

Cell[TextData[{
 StyleBox["series",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a noncommutative formal power series."
}], "Text",
 CellChangeTimes->{{3.580411627673996*^9, 3.5804116480440245`*^9}, 
   3.580411679154068*^9, {3.5818821774509597`*^9, 
   3.581882178330962*^9}},ExpressionUUID->"1a5ca23e-60a2-4b3d-bf9f-\
6d26c8292ef8"],

Cell[BoxData[
 RowBox[{"LocalGrowthConstants", "[", 
  RowBox[{"series", ",", "list"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.590921327391553*^9, 
  3.5909213355015645`*^9}},ExpressionUUID->"2bfc6359-5bf1-4599-911e-\
28c836ab7d20"],

Cell[TextData[{
 StyleBox["list",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a list containing an alphabet of letters."
}], "Text",
 CellChangeTimes->{{3.590921340881572*^9, 3.5909213734116173`*^9}, {
  3.5909382396045504`*^9, 
  3.590938246795962*^9}},ExpressionUUID->"3f579e92-b718-4a38-b0f2-\
f0de3db0aaa8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.580410739202752*^9, 
  3.5804107402227535`*^9}},ExpressionUUID->"ce066c3a-9326-46bb-a740-\
fa5eb1aeeab9"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"c", " ", "=", " ", 
   RowBox[{"ShuffleInverse", "[", 
    RowBox[{
     RowBox[{"1", "-", 
      RowBox[{"2", "x0"}]}], ",", "10"}], "]"}]}], ";"}], "\n", 
 RowBox[{"LocalGrowthConstants", "[", "c", "]"}]}], "Code",
 CellChangeTimes->{{3.5804116887340813`*^9, 3.580411734694146*^9}, 
   3.5804117772142057`*^9},ExpressionUUID->"8c431acf-c776-4ed4-ab83-\
d0ec2b03f5ce"],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {RGBColor[1, 0, 0], 
     PointBox[{{0., 0.}, {1., 0.6931471805599453}, {2., 
      1.3862943611198906`}, {3., 2.0794415416798357`}, {4., 
      2.772588722239781}, {5., 3.4657359027997265`}, {6., 
      4.1588830833596715`}, {7., 4.852030263919617}, {8., 
      5.545177444479562}, {9., 6.238324625039508}, {10., 
      6.931471805599453}}]}, {}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVj3s0lHkAhhmLMC1jMGPGfBi+8Yk23TTk9HtrEdJFoYu2iyKXWptsHJe0
IV3QkXJpimq0tauitaUzsUtrk7VKu1JEiyFKm0huzbD2j+e8/z3veayDo9aH
sDQ0NFbP8P96niyyCrfOWja88KvI9O7UZRILW9cceSRhlzu7RDC7SF+b31ig
PIGsb7eLAXOArFT0P5XKT5KRby5mOzApZMx+0e/2chnxuLfVyprJIY+7Wt3E
8hLydaeiT8jIyb2q63GU/B5hfQhfZc6Uk1sOubkW8gbim7hczWN+I61tSUM/
/tlOytRBuptG/yabthcYPtndS6TMamX8tQ6SU7pyx1y8JXPylPmjZ5RkuCq2
hHk+RPLGK/hNlf2kyeG61611H0nKWjvW2Yx/iWJjx90L3AkSxuKJq3YOkYbo
8bTJWhX5kFNZpDX0gTzUj58MFWrA7eK8v4j/KJm/9KDsyIQm7gS9c2IPjJNv
S4MzWyu08D473v1RwCeyWlh7I2yfNgynry3a/bOazHklr7D30kVpZjbjYaOB
7pEDxhItPThvXszZEKiJi8H3A/2V+vBXTRnay1kYqkurVyjY6FWYq/tfa0G0
3yVza/TnaHGW1coF2rhauViUb2eEbSdWXJaE6OBGt+d5Sx0OVsrWbSku0IWz
lGeEMQ7qUlKZN32zcFxPLFMpjaFI1+s1d9JHvar4UUs1F2zvjwnuwQbIsOwb
9S4zwWiXjv2Sm2y47b5U13bKFJAml9n2zMYd29xS3UgzqH7wkqi4hig38clo
3MTD1Qlha+MXRrggOci55cyHptqTLXtoBP2wnSfn2pnD7m2qj28UB8vpdAtP
rgA64QPJw8bGCPmMDkwcFOCMe5o4t8QYbO6R1FUvhRg0WNAk8uPi0pcbg6RV
FpicbzxweYCL6cFQ75o8EX7pFagtUkzQ2bDYUZlKYU2asyDBzhSl9YkV4mBL
ZKWkFbdUm+JwQo1MzVihYF+fi9keM1jJNcrG860QcCfRbQOLhyuzOh7X6Fij
IcPVOe0cDwPa5hHPkqzBXmuwVEb4YEyyn396aw11lOGNm618SBRhNXtDxFAk
SuZ8f9gceoUdt0teiOHECy08bSuA8nTWoQlvGwQatSYnVglwyLKoJqfGBl4f
t+312SWEUdXAc7f5tngj5T8wnRIiPf/pp/JCW3joT5q1nLVAtYFlQawpjX11
76LjXUUYPFWs75NKw11p5mbRLIJne1C39CiNV+LYpX+0iFDIcBV2x2icCH7m
Gtcqgm/Nd+HaGTSauvJcml+KcG1428PqHBpbOvlLMl6LEBxgfnSJnEZ0h2CB
akqEZkGWJn2fRuEzimm3p+Cwx6OVW0tjOS/Z7oQjhSPlqjLWAxo9gf9IpPMo
OPlG7uisp2HfUkSfWUQhM8nrV9kTGrebrWx8CQXPTlaScReNhidiqtKfwgVH
hb+mcqaHkyKK2EhhJG6/4/seGkZ+Sgv+FgqXOZ0vGvtpBDTJhTHbKUyvqHI9
/p5G1yNbc8cICoGnYozjhmmkfp7Gb9tL4eYLhzehIzSYNb28Y1EUtsacK3Af
n/E3XjHriaFQXu23f+HkjH+2jtnpWAr6s/W8xSoaP/mGmiKews7N1VacqZm/
jAcm7xIp3L0SOz49TWOsQWJyPpnCf/IAD64=
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"|\[Eta]|\"", TraditionalForm], 
    FormBox["\"ln[|(c,\[Eta])|/|\[Eta]|!]\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{{0., 10.}, {0., 6.931471805599453}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Print",
 CellChangeTimes->{
  3.580421907524357*^9},ExpressionUUID->"1bcab716-9ca1-48bb-875d-\
9bc633f11213"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.000000000000004`", ",", "1.9999999999999993`"}], "}"}]], "Output",\

 CellChangeTimes->{
  3.580421907596361*^9},ExpressionUUID->"98222e0c-3cdf-41a4-a8c5-\
d532769b141e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"c", "=", 
   RowBox[{"2", "+", 
    RowBox[{"3", "x0"}], "+", 
    RowBox[{"5", "x1"}], "+", 
    RowBox[{"7", 
     RowBox[{"x0", "**", "x0"}]}], "+", 
    RowBox[{"9", 
     RowBox[{"x0", "**", "x1"}]}], "+", 
    RowBox[{"11", 
     RowBox[{"x1", "**", "x0"}]}], "+", 
    RowBox[{"12", 
     RowBox[{"x0", "**", "x1", "**", "x0"}]}], "+", 
    RowBox[{"15", 
     RowBox[{"x0", "**", "x0", "**", "x0"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"X", "=", 
   RowBox[{"{", 
    RowBox[{"x0", ",", "x1"}], "}"}]}], ";"}], "\n", 
 RowBox[{"LocalGrowthConstants", "[", 
  RowBox[{"c", ",", "X"}], "]"}]}], "Code",
 CellChangeTimes->{{3.5909213904816413`*^9, 3.590921406611664*^9}, {
  3.59093784587403*^9, 
  3.590937851139332*^9}},ExpressionUUID->"4a81ece8-9d33-4dac-8a70-\
4f2bb26d26e6"],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"1", "0.9738400785222877`", "0.33965629306935274`", 
      "2.8671339185917692`", "0.035112114136815815`"},
     {"x0", 
      RowBox[{"-", "0.11321734502495605`"}], "0.16982814653467637`", 
      RowBox[{"-", "0.6666583092092968`"}], "0.5345141432064873`"},
     {"x1", "1.0011300383683401`", "0.32887079162303723`", 
      "3.044143973466239`", "0.028614980694572155`"}
    },
    AutoDelete->False,
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
    GridBoxDividers->{
     "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
      "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{
     "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
   "Grid"], "DialogStyle",
  StripOnInput->False]], "Print",
 CellChangeTimes->{
  3.590937851859373*^9},ExpressionUUID->"149bf669-5e28-4331-890f-\
9a1121511e4a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2.648093847968046`", ",", "0.8929565593576843`", ",", 
   "2.721355327480007`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.590937851864373*^9},ExpressionUUID->"c43229cd-aeb5-47b3-83fa-\
254f5ee96f67"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["NCExponential", "Subsection",
 CellChangeTimes->{{3.5804117906942244`*^9, 
  3.580411792804227*^9}},ExpressionUUID->"b3984d3d-55a9-4967-a0dc-\
470a38f7f99a"],

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.580411795534231*^9, 
  3.580411805484245*^9}},ExpressionUUID->"07d85c3d-236e-4a97-80a1-\
09b5d6b5c8ba"],

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5804118089142494`*^9, 
  3.580411811044253*^9}},ExpressionUUID->"20f59c92-b290-412a-b735-\
fa2d70dd3710"],

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.580411815634259*^9, 
  3.5804118165442605`*^9}},ExpressionUUID->"a8759bd5-9c17-4c91-9128-\
a24336863ef2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["NCLogarithm", "Subsection",
 CellChangeTimes->{{3.5804118207342663`*^9, 
  3.5804118231742697`*^9}},ExpressionUUID->"8917c694-d5ba-4fda-9a58-\
b4e0d0dee8d7"],

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.580411845674301*^9, 
  3.5804118486243052`*^9}},ExpressionUUID->"ba608f0e-4acb-41c7-a485-\
ccdb04dda8df"],

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5804118517043095`*^9, 
  3.580411853244312*^9}},ExpressionUUID->"93617d89-e5e7-4bae-8dac-\
3cf42eaf85c6"],

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.5804118558443155`*^9, 
  3.5804118568143167`*^9}},ExpressionUUID->"818431d6-ed67-4472-b676-\
4e31b1e4f7d7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["RadiusOfConvergence", "Subsection",
 CellChangeTimes->{{3.5804118672443314`*^9, 
  3.580411871194337*^9}},ExpressionUUID->"9557fd72-86cf-49b1-84b7-\
cf3d5804a99b"],

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.580411874774342*^9, 
  3.580411876634344*^9}},ExpressionUUID->"b0c2f3cf-8e75-4718-8252-\
33bf3127d600"],

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5804118799843493`*^9, 
  3.5804118811943507`*^9}},ExpressionUUID->"443fa9bc-f0aa-4b2f-b0c9-\
20cf4b816b33"],

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.5804118861843576`*^9, 
  3.5804118871743593`*^9}},ExpressionUUID->"e398f0c2-9940-4257-8949-\
e58a91b1dbce"]
}, Open  ]],

Cell[CellGroupData[{

Cell["ShuffleInverse", "Subsection",
 CellChangeTimes->{{3.5804118914043655`*^9, 
  3.58041189491437*^9}},ExpressionUUID->"c799bef7-f10b-43ab-a7cd-\
3e649f4ec926"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.5804118987143755`*^9, 
  3.5804119003843775`*^9}},ExpressionUUID->"e4d34173-e37e-4f61-98e6-\
aedfb96c433a"],

Cell[TextData[{
 "Let ",
 StyleBox["c",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"9ae88e24-8dd9-4cee-93d8-4eaf128f4cc9"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket] with (",
 StyleBox["c",
  FontSlant->"Italic"],
 ", \[EmptySet]) \[NotEqual] 0. The shuffle inverse of ",
 StyleBox["c",
  FontSlant->"Italic"],
 " is"
}], "Text",
 CellChangeTimes->{{3.5804119243244114`*^9, 3.5804119886045012`*^9}, {
  3.580412058434599*^9, 3.58041208060463*^9}, {3.580412134974706*^9, 
  3.580412140544714*^9}},ExpressionUUID->"798246bf-6801-4ed9-b01f-\
0cebf05b0945"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SuperscriptBox["c", 
    RowBox[{"\:0448", " ", "-", "1"}]], TraditionalForm]],ExpressionUUID->
  "450517ee-fc6b-47a3-a4a1-329b7b094414"],
 " = ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", ",", " ", "\[EmptySet]"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", " ", "-", " ", 
        SuperscriptBox["c", "\[Prime]"]}], ")"}]}], ")"}], 
    RowBox[{"\:0448", " ", "-", "1"}]], TraditionalForm]],ExpressionUUID->
  "f333d00f-0eaf-4794-8abd-934e7f7ee7dd"],
 " = ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", ",", " ", "\[EmptySet]"}], ")"}], 
    RowBox[{"-", "1"}]], TraditionalForm]],ExpressionUUID->
  "5662dcff-0e79-4dc5-98bd-26dae20b2b66"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"k", "=", "0"}], "\[Infinity]"], 
    SuperscriptBox[
     RowBox[{"(", 
      SuperscriptBox["c", "\[Prime]"], ")"}], 
     RowBox[{"\:0448", " ", "k"}]]}], TraditionalForm]],ExpressionUUID->
  "367a57ca-933c-41dc-a983-450f592ceb78"],
 "."
}], "Text",
 CellChangeTimes->{{3.5804127972233095`*^9, 3.5804129547573195`*^9}, {
  3.580413042240323*^9, 3.580413158823992*^9}, {3.5804214754106417`*^9, 
  3.5804214871433125`*^9}, {3.5818822477511296`*^9, 3.5818822477511296`*^9}},
 TextAlignment->Center,ExpressionUUID->"9d2dc6ee-0bee-4582-a8a4-02243bae771d"],

Cell[TextData[{
 "The inverse is approximated to order ",
 StyleBox["n",
  FontSlant->"Italic"],
 " \[GreaterEqual] 0 if the upper bound of the summation above is ",
 StyleBox["n",
  FontSlant->"Italic"],
 ". The current implementation assumes ",
 "\[ScriptL] = 1."
}], "Text",
 CellChangeTimes->{{3.5804131678565083`*^9, 
  3.58041322575882*^9}},ExpressionUUID->"0bb6f049-7298-45fe-be7f-\
62c8b3e2922e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5804132383825417`*^9, 
  3.5804132394036007`*^9}},ExpressionUUID->"61364e36-2df8-4392-b5e2-\
657e9d6d920b"],

Cell[BoxData[
 RowBox[{"ShuffleInverse", "[", 
  RowBox[{"series", ",", "integer"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.5804132434658327`*^9, 
  3.580413250467233*^9}},ExpressionUUID->"59fbcfff-028c-4632-ad7e-\
041b3b47437a"],

Cell[TextData[{
 StyleBox["series",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a noncommutative formal power series, and ",
 StyleBox["integer",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a nonnegative integer."
}], "Text",
 CellChangeTimes->{{3.580413254412459*^9, 3.580413272300482*^9}, {
  3.58041546399584*^9, 3.5804154839369802`*^9}, {3.5818822599561586`*^9, 
  3.5818822608436604`*^9}},ExpressionUUID->"d1be31fc-2f6d-4935-8141-\
ec344fa99026"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.580413275565669*^9, 
  3.5804132765727262`*^9}},ExpressionUUID->"17c96d5f-db67-44dc-92c3-\
8a969ae4b12b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"c", " ", "=", " ", 
   RowBox[{"1", "+", "x0", "+", "x1"}]}], ";"}], "\n", 
 RowBox[{"cinv", " ", "=", " ", 
  RowBox[{"NCExpand", "[", 
   RowBox[{"ShuffleInverse", "[", 
    RowBox[{"c", ",", "3"}], "]"}], "]"}]}], "\n", 
 RowBox[{"NCExpand", "[", 
  RowBox[{"ShuffleProduct", "[", 
   RowBox[{"c", ",", "cinv"}], "]"}], "]"}]}], "Code",
 CellChangeTimes->{{3.580413283209106*^9, 3.5804133796606226`*^9}, {
  3.5804226199751067`*^9, 
  3.5804226377751245`*^9}},ExpressionUUID->"b81fdb10-a776-40c3-ab47-\
fbe671b00a16"],

Cell[BoxData[
 RowBox[{"1", "-", "x0", "-", "x1", "+", 
  RowBox[{"2", " ", 
   RowBox[{"x0", "**", "x0"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"x0", "**", "x1"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"x1", "**", "x0"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"x1", "**", "x1"}]}], "-", 
  RowBox[{"6", " ", 
   RowBox[{"x0", "**", "x0", "**", "x0"}]}], "-", 
  RowBox[{"6", " ", 
   RowBox[{"x0", "**", "x0", "**", "x1"}]}], "-", 
  RowBox[{"6", " ", 
   RowBox[{"x0", "**", "x1", "**", "x0"}]}], "-", 
  RowBox[{"6", " ", 
   RowBox[{"x0", "**", "x1", "**", "x1"}]}], "-", 
  RowBox[{"6", " ", 
   RowBox[{"x1", "**", "x0", "**", "x0"}]}], "-", 
  RowBox[{"6", " ", 
   RowBox[{"x1", "**", "x0", "**", "x1"}]}], "-", 
  RowBox[{"6", " ", 
   RowBox[{"x1", "**", "x1", "**", "x0"}]}], "-", 
  RowBox[{"6", " ", 
   RowBox[{"x1", "**", "x1", "**", "x1"}]}]}]], "Output",
 CellChangeTimes->{
  3.580421907703367*^9, {3.580422628844614*^9, 
   3.5804226385341682`*^9}},ExpressionUUID->"54ef9061-afd4-4f6a-92ca-\
ab7fb9327c26"],

Cell[BoxData[
 RowBox[{"1", "-", 
  RowBox[{"24", " ", 
   RowBox[{"x0", "**", "x0", "**", "x0", "**", "x0"}]}], "-", 
  RowBox[{"24", " ", 
   RowBox[{"x0", "**", "x0", "**", "x0", "**", "x1"}]}], "-", 
  RowBox[{"24", " ", 
   RowBox[{"x0", "**", "x0", "**", "x1", "**", "x0"}]}], "-", 
  RowBox[{"24", " ", 
   RowBox[{"x0", "**", "x0", "**", "x1", "**", "x1"}]}], "-", 
  RowBox[{"24", " ", 
   RowBox[{"x0", "**", "x1", "**", "x0", "**", "x0"}]}], "-", 
  RowBox[{"24", " ", 
   RowBox[{"x0", "**", "x1", "**", "x0", "**", "x1"}]}], "-", 
  RowBox[{"24", " ", 
   RowBox[{"x0", "**", "x1", "**", "x1", "**", "x0"}]}], "-", 
  RowBox[{"24", " ", 
   RowBox[{"x0", "**", "x1", "**", "x1", "**", "x1"}]}], "-", 
  RowBox[{"24", " ", 
   RowBox[{"x1", "**", "x0", "**", "x0", "**", "x0"}]}], "-", 
  RowBox[{"24", " ", 
   RowBox[{"x1", "**", "x0", "**", "x0", "**", "x1"}]}], "-", 
  RowBox[{"24", " ", 
   RowBox[{"x1", "**", "x0", "**", "x1", "**", "x0"}]}], "-", 
  RowBox[{"24", " ", 
   RowBox[{"x1", "**", "x0", "**", "x1", "**", "x1"}]}], "-", 
  RowBox[{"24", " ", 
   RowBox[{"x1", "**", "x1", "**", "x0", "**", "x0"}]}], "-", 
  RowBox[{"24", " ", 
   RowBox[{"x1", "**", "x1", "**", "x0", "**", "x1"}]}], "-", 
  RowBox[{"24", " ", 
   RowBox[{"x1", "**", "x1", "**", "x1", "**", "x0"}]}], "-", 
  RowBox[{"24", " ", 
   RowBox[{"x1", "**", "x1", "**", "x1", "**", "x1"}]}]}]], "Output",
 CellChangeTimes->{
  3.580421907703367*^9, {3.580422628844614*^9, 
   3.5804226385371685`*^9}},ExpressionUUID->"c9923724-53e7-4c2a-ab07-\
df88b3a99c82"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["3 Binary Commands", "Section",
 CellChangeTimes->{{3.580413447733516*^9, 
  3.5804134518237505`*^9}},ExpressionUUID->"5ada73ba-3006-46bd-9866-\
c71fdcc34df1"],

Cell[CellGroupData[{

Cell["CompositionProduct", "Subsection",
 CellChangeTimes->{{3.58041346703562*^9, 
  3.5804134702208023`*^9}},ExpressionUUID->"66827418-ab22-412c-903d-\
186c491e7830"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.580413511159144*^9, 
  3.5804135128502407`*^9}},ExpressionUUID->"ef36417b-52d2-4a7c-915f-\
1fe05dfe51ed"],

Cell[TextData[{
 "Suppose ",
 StyleBox["X",
  FontSlant->"Italic"],
 " = {",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],ExpressionUUID->
  "d3970fc4-5390-4a0e-8dd3-298f8e70b1f1"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "1"], TraditionalForm]],ExpressionUUID->
  "6cb162c6-18b3-474d-be06-63a2726aae97"],
 ",\[Ellipsis], ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "m"], TraditionalForm]],ExpressionUUID->
  "e341808c-c90e-43b2-940a-a01427d7b315"],
 "}, ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["X", "~"], TraditionalForm]],ExpressionUUID->
  "88d72b2d-345b-4980-bbc4-9f11e657010f"],
 " = {",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["x", "~"], "0"], TraditionalForm]],ExpressionUUID->
  "614866bd-0cce-4072-844f-2b2395d4f564"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["x", "~"], "1"], TraditionalForm]],ExpressionUUID->
  "f6541ace-2046-4324-9fe2-a0e16e0ae479"],
 ", . . . , ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["x", "~"], 
    OverscriptBox["m", "~"]], TraditionalForm]],ExpressionUUID->
  "97cd95bb-b6e9-45a9-9d9c-51bcee2d03ee"],
 "}, ",
 StyleBox["c",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", 
    OverscriptBox["\[ScriptL]", "~"]], TraditionalForm]],ExpressionUUID->
  "74669206-9900-4c6d-928c-76a4925b6b3b"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 Cell[BoxData[
  FormBox[
   OverscriptBox["X", "~"], TraditionalForm]],ExpressionUUID->
  "fa3162c1-3376-46ce-ab98-3d18687a31e4"],
 "\[RightAngleBracket]\[RightAngleBracket] and ",
 StyleBox["d",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", 
    OverscriptBox["m", "~"]], TraditionalForm]],ExpressionUUID->
  "a0cae940-5626-4da2-b4fe-c7396a4b4078"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket]. Define the family of mappings"
}], "Text",
 CellChangeTimes->{{3.5804135248279257`*^9, 
  3.580413750359825*^9}},ExpressionUUID->"2f209921-1d9c-4235-aabf-\
4581d8332df4"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["D", 
    SubscriptBox[
     OverscriptBox["x", "~"], "i"]], TraditionalForm]],ExpressionUUID->
  "9d5af3e2-008f-4f91-8238-eacf3578fdc4"],
 " : \[DoubleStruckCapitalR]\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket] \[RightArrow] \
\[DoubleStruckCapitalR]\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket] : \[ScriptE] \[RightTeeArrow] ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],ExpressionUUID->
  "da504736-efbd-4be8-843b-2f6f08f54f8e"],
 "(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["d", "i"], TraditionalForm]],ExpressionUUID->
  "945fa239-1e16-4852-90c3-73fe1c39ef81"],
 " ",
 "\:0448",
 " \[ScriptE]),"
}], "Text",
 CellChangeTimes->{
  3.5804137822466493`*^9, {3.5804138156415596`*^9, 3.580413971524475*^9}, {
   3.5804157884593983`*^9, 3.580415814771903*^9}, 3.5804214631029377`*^9},
 TextAlignment->Center,ExpressionUUID->"103b9784-787e-4d56-bb90-155a5af70222"],

Cell[TextData[{
 StyleBox["i",
  FontSlant->"Italic"],
 " = 0, 1,\[Ellipsis], ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["m", "~"], TraditionalForm]],ExpressionUUID->
  "f18f01fd-ddf1-43f9-b050-f7b13ab3d958"],
 " with ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["d", "0"], TraditionalForm]],ExpressionUUID->
  "280ae186-68e2-41c2-8e3d-2de050a882fa"],
 " = 1. Assume ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["D", "\[EmptySet]"], TraditionalForm]],ExpressionUUID->
  "d1aff754-01c5-4207-b2e5-0a5218a18fcc"],
 " is the identity map on \[DoubleStruckCapitalR]\[LeftAngleBracket]\
\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket] and compose these operators in the \
obvious way so that ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["D", 
    RowBox[{
     SubscriptBox[
      OverscriptBox["x", "~"], "i"], 
     SubscriptBox[
      OverscriptBox["x", "~"], "j"]}]], TraditionalForm]],ExpressionUUID->
  "96314d72-7c72-4158-96f5-8785c3dfb2eb"],
 " =: ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["D", 
    SubscriptBox[
     OverscriptBox["x", "~"], "i"]], TraditionalForm]],ExpressionUUID->
  "b30429fb-5a33-4861-8f68-05548393bf3b"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["D", 
    SubscriptBox[
     OverscriptBox["x", "~"], "j"]], TraditionalForm]],ExpressionUUID->
  "fbcc61ab-307b-4bea-9864-6d01fbd43a47"],
 ". The composition of a word \[Eta] \[Element] ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["X", "~"], TraditionalForm]],ExpressionUUID->
  "ac974609-a673-4358-9552-8d91fc0ceb8c"],
 " and ",
 StyleBox["d",
  FontSlant->"Italic"],
 " is defined as"
}], "Text",
 CellChangeTimes->{{3.580414099312784*^9, 3.5804142734427443`*^9}, {
   3.5804143554684353`*^9, 3.5804144411913385`*^9}, {3.5820652985832806`*^9, 
   3.5820653003933845`*^9}, 
   3.5820655128765373`*^9},ExpressionUUID->"44049595-9562-4924-a1c7-\
222ebc8532f4"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   OverscriptBox["\[Eta]", "~"], TraditionalForm]],ExpressionUUID->
  "4f0e09f0-8e8b-4960-84aa-fe942eadcdb6"],
 " \[EmptySmallCircle] ",
 StyleBox["d",
  FontSlant->"Italic"],
 " = (",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["x", "~"], 
    SubscriptBox["i", "k"]], TraditionalForm]],ExpressionUUID->
  "3b5b9803-4d69-45d2-a06e-7173a71f2473"],
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["x", "~"], 
    SubscriptBox["i", 
     RowBox[{"k", "-", "1"}]]], TraditionalForm]],ExpressionUUID->
  "a659e19c-01e2-49c8-9b59-386330a4f8ac"],
 "\[CenterEllipsis]",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["x", "~"], 
    SubscriptBox["i", "1"]], TraditionalForm]],ExpressionUUID->
  "47842d12-3f8c-40f6-84f6-5ae94796a5c9"],
 ") \[EmptySmallCircle] ",
 StyleBox["d",
  FontSlant->"Italic"],
 " = ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["D", 
    SubscriptBox[
     OverscriptBox["x", "~"], 
     SubscriptBox["i", "k"]]], TraditionalForm]],ExpressionUUID->
  "b9d0c83b-f533-466d-8cfa-be96a5679abc"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["D", 
    SubscriptBox[
     OverscriptBox["x", "~"], 
     SubscriptBox["i", 
      RowBox[{"k", "-", "1"}]]]], TraditionalForm]],ExpressionUUID->
  "65b876ae-2c68-4288-b421-d2e5979267ab"],
 "\[CenterEllipsis]",
 Cell[BoxData[
  FormBox[
   SubscriptBox["D", 
    SubscriptBox[
     OverscriptBox["x", "~"], 
     SubscriptBox["i", "1"]]], TraditionalForm]],ExpressionUUID->
  "47bfa78b-000c-4885-baef-97a6bccf18bf"],
 "(1) = ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["D", 
    OverscriptBox["\[Eta]", "~"]], TraditionalForm]],ExpressionUUID->
  "eba467a0-038f-4514-9743-760936dce463"],
 "(1)."
}], "Text",
 CellChangeTimes->{
  3.580414517947729*^9, {3.5804145506125975`*^9, 3.5804145523496966`*^9}, 
   3.5804146718695326`*^9, {3.5804147410384893`*^9, 3.580414742072548*^9}, {
   3.580414784258961*^9, 3.580415064215974*^9}, {3.5804153291791286`*^9, 
   3.5804153437159605`*^9}, {3.5818808571577063`*^9, 3.581880873705278*^9}, 
   3.5818811387110786`*^9},
 TextAlignment->Center,ExpressionUUID->"dcae3b18-36e0-4a3e-9b20-2af93ff85f6e"],

Cell[TextData[{
 "In which case, the composition product of ",
 StyleBox["c",
  FontSlant->"Italic"],
 " and ",
 StyleBox["d",
  FontSlant->"Italic"],
 " is"
}], "Text",
 CellChangeTimes->{{3.5804150669521303`*^9, 
  3.5804150805419073`*^9}},ExpressionUUID->"7a1e324a-11ac-43d3-80f3-\
2c7bf4132527"],

Cell[TextData[{
 StyleBox["c ",
  FontSlant->"Italic"],
 "\[EmptySmallCircle] ",
 StyleBox["d",
  FontSlant->"Italic"],
 " = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderscriptBox["\[Sum]", 
     RowBox[{
      OverscriptBox["\[Eta]", "~"], "\[Element]", 
      RowBox[{
       OverscriptBox["X", "~"], "\[Star]"}]}]], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       StyleBox["c",
        FontSlant->"Italic"], ",", 
       OverscriptBox["\[Eta]", "~"]}], ")"}], 
     OverscriptBox["\[Eta]", "~"], " ", "\[EmptySmallCircle]", " ", 
     StyleBox["d",
      FontSlant->"Italic"]}]}], TraditionalForm]],ExpressionUUID->
  "4c69fe69-39da-4295-b986-9735b16f92d9"],
 "."
}], "Text",
 CellChangeTimes->{{3.580415100827068*^9, 3.5804152365658317`*^9}, {
  3.585073327893879*^9, 3.5850733301060057`*^9}},
 TextAlignment->Center,ExpressionUUID->"5840f737-f6f3-4a9c-9ec1-ccc8cd6396bd"],

Cell["The composition power is defined as", "Text",
 CellChangeTimes->{{3.585073346228928*^9, 
  3.585073360308733*^9}},ExpressionUUID->"325314f0-cc84-4059-bf42-\
d22744dcdb79"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SuperscriptBox["c", 
    StyleBox[
     RowBox[{"\[EmptySmallCircle]", 
      StyleBox["i",
       FontSlant->"Italic"]}]]], TraditionalForm]],ExpressionUUID->
  "5bfbee87-b382-4967-9820-76812e470df2"],
 " = ",
 StyleBox["c ",
  FontSlant->"Italic"],
 "\[EmptySmallCircle]",
 StyleBox[" c ",
  FontSlant->"Italic"],
 "\[EmptySmallCircle]",
 StyleBox[" ",
  FontSlant->"Italic"],
 "\[CenterEllipsis]",
 StyleBox[" ",
  FontSlant->"Italic"],
 "\[EmptySmallCircle]",
 StyleBox[" c ",
  FontSlant->"Italic"],
 ","
}], "Text",
 CellChangeTimes->{
  3.585073402650155*^9, {3.585073490293168*^9, 3.5850734902961683`*^9}, {
   3.585074125817518*^9, 3.585074196954587*^9}, {3.5850742647334633`*^9, 
   3.585074267700633*^9}, {3.586123250143556*^9, 3.5861232728948574`*^9}},
 TextAlignment->Center,ExpressionUUID->"90dd4062-72e1-4a95-823b-2eb328116fde"],

Cell[TextData[{
 "where ",
 StyleBox["c",
  FontSlant->"Italic"],
 " appears ",
 StyleBox["i",
  FontSlant->"Italic"],
 " times and ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["c", "\[EmptySmallCircle]0"], TraditionalForm]],
  ExpressionUUID->"75faeb7b-4d80-4f51-8c66-66e646aff78c"],
 " := 1."
}], "Text",
 CellChangeTimes->{{3.585074379940053*^9, 3.5850745240302944`*^9}, {
  3.5861232957071624`*^9, 
  3.586123302903574*^9}},ExpressionUUID->"5f214fab-58f3-493a-8d33-\
ce962256d232"],

Cell[TextData[{
 "The current implementation assumes ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["X", "~"], TraditionalForm]],ExpressionUUID->
  "419e2cc6-48c0-4e4e-a53b-3429d9ae36f1"],
 " = ",
 StyleBox["X ",
  FontSlant->"Italic"],
 "and ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["\[ScriptL]", "~"], TraditionalForm]],ExpressionUUID->
  "4236b312-b26f-4844-891b-040e0decbfc3"],
 " = 1."
}], "Text",
 CellChangeTimes->{{3.580415240507057*^9, 
  3.5804153150853224`*^9}},ExpressionUUID->"06cd07d2-5e44-4b8a-b143-\
0230c0dae501"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5804153513043942`*^9, 
  3.580415353731533*^9}},ExpressionUUID->"8017a7fe-dfad-4fa6-b24f-\
bda40d949a64"],

Cell[BoxData[
 RowBox[{"CompositionProduct", "[", 
  RowBox[{"series", ",", "list1", ",", "list2"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.580415376000807*^9, 
  3.5804153872324495`*^9}},ExpressionUUID->"994b40d2-dab2-44e7-b8ac-\
258f80611f36"],

Cell[TextData[{
 StyleBox["series",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a noncommutative formal power series, ",
 StyleBox["list1",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a list of noncommutative formal power series, and ",
 StyleBox["list2",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a list of symbols defining an alphabet."
}], "Text",
 CellChangeTimes->{{3.580415395794939*^9, 3.5804154363072557`*^9}, {
   3.5804154985158143`*^9, 3.580415524578305*^9}, {3.5831848212028856`*^9, 
   3.5831848235820217`*^9}, 
   3.771555536737121*^9},ExpressionUUID->"05186b23-03ab-4168-b9c6-\
ceda00065889"],

Cell[BoxData[
 RowBox[{"CompositionProduct", "[", 
  RowBox[{"series", ",", "list2", ",", "power"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.583182065567272*^9, 3.5831820671163607`*^9}, {
  3.5831821043364897`*^9, 
  3.5831821174282384`*^9}},ExpressionUUID->"c21cf3c8-bcb6-45ca-98f1-\
efdc596f6a32"],

Cell[TextData[{
 StyleBox["power",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a nonnegative integer."
}], "Text",
 CellChangeTimes->{{3.583182128834891*^9, 3.583182129602935*^9}, {
  3.58318218459808*^9, 3.5831821910344486`*^9}, {3.583182348087431*^9, 
  3.5831823553778486`*^9}, {3.583182450189271*^9, 3.583182452725416*^9}, {
  3.5831824908055944`*^9, 3.583182530833884*^9}, {3.583182668279745*^9, 
  3.583182668432754*^9}},ExpressionUUID->"96d104c0-ff7e-405c-be74-\
f34942b68e02"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.5804155442214284`*^9, 
  3.580415552730915*^9}},ExpressionUUID->"b6fcda0b-01e2-4e8e-aaa8-\
9eb82d543f99"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"X", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"x0", ",", "x1", ",", "x2"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"c", " ", "=", " ", 
   RowBox[{"x1", "**", "x2"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"d", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x0", "+", 
      RowBox[{"2", "x1"}]}], ",", "x2"}], "}"}]}], ";"}], "\n", 
 RowBox[{"CompositionProduct", "[", 
  RowBox[{"c", ",", "d", ",", "X"}], "]"}]}], "Code",
 CellChangeTimes->{{3.5804155582212296`*^9, 
  3.5804156160295353`*^9}},ExpressionUUID->"5f23712b-411e-4e39-be48-\
9ce5a3b101f6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   RowBox[{"x0", "**", "x0", "**", "x0", "**", "x2"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"x0", "**", "x0", "**", "x1", "**", "x2"}]}], "+", 
  RowBox[{"x0", "**", "x0", "**", "x2", "**", "x0"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"x0", "**", "x0", "**", "x2", "**", "x1"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"x0", "**", "x1", "**", "x0", "**", "x2"}]}]}]], "Output",
 CellChangeTimes->{
  3.5804219077463694`*^9},ExpressionUUID->"dc2c77a3-4785-4fd4-9441-\
0fb0a64f1c61"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CompositionProduct", "[", 
  RowBox[{
   RowBox[{"x0", "**", "x1"}], ",", 
   RowBox[{"{", 
    RowBox[{"x0", ",", "x1"}], "}"}], ",", "2"}], "]"}]], "Code",
 CellChangeTimes->{{3.583184145800255*^9, 3.583184160806113*^9}, {
   3.5831842269188943`*^9, 3.583184231727169*^9}, 3.5831862664935513`*^9, {
   3.5831862995454416`*^9, 
   3.5831863210736732`*^9}},ExpressionUUID->"15f6612d-fd0c-4df8-bb10-\
c24b03912b0f"],

Cell[BoxData[
 RowBox[{"x0", "**", "x0", "**", "x0", "**", "x1"}]], "Output",
 CellChangeTimes->{
  3.583186323623819*^9},ExpressionUUID->"deac85be-2369-4248-be69-\
e5d34413044b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["FeedbackProduct", "Subsection",
 CellChangeTimes->{{3.5804156411559725`*^9, 
  3.5804156467332916`*^9}},ExpressionUUID->"d91e4cf6-9a8d-4e6e-b65a-\
045a015dfe48"],

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.580415653327669*^9, 
  3.580415655046767*^9}},ExpressionUUID->"515ab52c-297a-45e5-958a-\
5a33789b22ee"],

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5804156588449845`*^9, 
  3.58041566068609*^9}},ExpressionUUID->"f58ede82-4c51-493c-a5e8-\
3cdeeb12faec"],

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.580415664499308*^9, 
  3.5804156655053654`*^9}},ExpressionUUID->"28cfc864-79b9-43dc-bb08-\
47abf2fe2c8e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["LieBracket", "Subsection",
 CellChangeTimes->{{3.580415670143631*^9, 
  3.580415672695777*^9}},ExpressionUUID->"12acc030-25ca-4f17-aa90-\
cddd759b87a0"],

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.580415682173319*^9, 
  3.580415684757467*^9}},ExpressionUUID->"84356f93-4355-47f4-b648-\
602e78976afb"],

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.580415688071656*^9, 
  3.5804156893357286`*^9}},ExpressionUUID->"832fb5a3-f01b-4219-8625-\
19567f9934e0"],

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.5804156915458546`*^9, 
  3.580415692947935*^9}},ExpressionUUID->"0b613c63-3eb8-40ae-9079-\
fe6bbb279c9e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["MapCoordinateFunctions", "Subsection",
 CellChangeTimes->{{3.6464780234333744`*^9, 3.646478029055429*^9}},
 CellTags->
  "MapCoordinateFunctions",ExpressionUUID->"a61156aa-95b6-4613-9c14-\
647b36226e71"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.646478048419442*^9, 
  3.6464780503748307`*^9}},ExpressionUUID->"19f25cc6-0cf0-43c8-8d86-\
435bbf9f6ccb"],

Cell["\<\
This function takes an expression of coordinate functions and applies them to \
a noncommutative formal power series.\
\>", "Text",
 CellChangeTimes->{{3.646478052774534*^9, 3.6464781105555954`*^9}, {
  3.647257429220623*^9, 3.6472574397591314`*^9}, {3.6472574863224583`*^9, 
  3.647257488010767*^9}},ExpressionUUID->"0cd17ddc-bdaa-4fe4-8e26-\
3eb29884f4ed"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.646478114965746*^9, 
  3.6464781158833227`*^9}},ExpressionUUID->"15e143e1-7c5c-46ec-89ac-\
7e30edbbb388"],

Cell[BoxData[
 RowBox[{"MapCoordinateFunctions", "[", 
  RowBox[{"cexp", ",", "series"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.6464781195018997`*^9, 3.646478160803941*^9}, {
  3.6464782132160645`*^9, 
  3.6464782139555664`*^9}},ExpressionUUID->"6a30f638-8e8d-40e4-a30a-\
527313b603bf"],

Cell[TextData[{
 StyleBox["cexp",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is an expression of coordinate functions (see ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    PaneSelectorBox[{False->"\<\"A\"\>", True->
     StyleBox["\<\"A\"\>", "HyperlinkActive"]}, Dynamic[
      CurrentValue["MouseOver"]],
     BaseStyle->{"Hyperlink"},
     FrameMargins->0,
     ImageSize->Automatic],
    BaseStyle->"Hyperlink",
    ButtonData:>{
      NotebookObject[
       FrontEndObject[
        LinkObject["5tas2_shm", 3, 1]], 58], "A"},
    ButtonNote->ButtonData],
   Annotation[#, {
     NotebookObject[
      FrontEndObject[
       LinkObject["5tas2_shm", 3, 1]], 58], "A"}, "Hyperlink"]& ]],
  CellChangeTimes->{3.646475780751833*^9},ExpressionUUID->
  "fd7f200d-33ef-4be0-be90-7725d036c653"],
 "), ",
 StyleBox["series",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is any noncommutative formal power series.\n\n",
 StyleBox["NOTE:",
  FontWeight->"Bold"],
 " It is very important that ",
 StyleBox["cexp",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " does not contain any coordinate functions of words whose lengths are \
greater than the degree of ",
 StyleBox["series",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 ". This is because words which are not encountered in series are taken to \
have coefficients of 0. If ",
 StyleBox["series",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " has been truncated such that ",
 StyleBox["NCDegree[", "Code"],
 StyleBox["series", "Code",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 StyleBox["]", "Code"],
 " evaluates to ",
 StyleBox["n", "Code"],
 " and ",
 StyleBox["cexp",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " contains a coordinate function ",
 StyleBox["A[word]", "Code"],
 " such that ",
 StyleBox["WordLength[word]>n", "Code"],
 " is ",
 StyleBox["True", "Code"],
 ", then a cancellation of nonzero coefficients will occur. It is, however, \
safe for ",
 StyleBox["series",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " to be of a greater degree than the largest word of any coordinte function \
in ",
 StyleBox["cexp",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 "."
}], "Text",
 CellChangeTimes->{{3.646478166184764*^9, 3.6464782161121006`*^9}, {
  3.6464784069002776`*^9, 3.646478418461076*^9}, {3.646478470364002*^9, 
  3.646478476140728*^9}, {3.647257490166301*^9, 3.647257550944705*^9}, {
  3.6472575960530205`*^9, 3.647257632607506*^9}, {3.6472577077130013`*^9, 
  3.6472578580786295`*^9}, {3.647257894598461*^9, 
  3.6472580287292385`*^9}},ExpressionUUID->"799c78dc-9641-4a49-81fc-\
4fb83cc1f180"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.646478256322113*^9, 
  3.646478257323841*^9}},ExpressionUUID->"7da1eb69-cca9-4276-b1e2-\
8ec013c17d7b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"c", "=", 
   RowBox[{"2", "+", "x0", "-", 
    RowBox[{"x1", "**", "x0"}]}]}], ";"}], "\n", 
 RowBox[{"MapCoordinateFunctions", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"A", "[", 
      RowBox[{"1", ",", "1"}], "]"}], 
     RowBox[{"A", "[", 
      RowBox[{"1", ",", 
       RowBox[{"x1", "**", "x0"}]}], "]"}]}], "+", 
    RowBox[{"A", "[", 
     RowBox[{"1", ",", "x1"}], "]"}]}], ",", "c"}], "]"}]}], "Code",
 CellChangeTimes->{{3.6464782661040554`*^9, 3.646478355044523*^9}, {
  3.659491816977459*^9, 
  3.6594918229226913`*^9}},ExpressionUUID->"81bf3d9c-f007-4a6c-8600-\
56185f39242e"],

Cell[BoxData[
 RowBox[{"-", "2"}]], "Output",
 CellChangeTimes->{3.646478376289827*^9, 
  3.659491826786441*^9},ExpressionUUID->"5b8d97e0-268d-45db-a76a-\
a592427c2088"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["ModifiedCompositionProduct", "Subsection",
 CellChangeTimes->{{3.580415698476251*^9, 
  3.580415704148576*^9}},ExpressionUUID->"d18f1bd8-4da7-4920-9e28-\
2f2aac90260a"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.580413511159144*^9, 
  3.5804135128502407`*^9}},ExpressionUUID->"a9f6f5a3-5db9-46f4-a265-\
e238559472ad"],

Cell[TextData[{
 "Suppose ",
 StyleBox["X",
  FontSlant->"Italic"],
 " = {",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],ExpressionUUID->
  "b5f7846b-6600-477c-bd68-46b02aa96dbc"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "1"], TraditionalForm]],ExpressionUUID->
  "368335fa-37f7-4356-9e20-34e7345af3b3"],
 ",\[Ellipsis], ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "m"], TraditionalForm]],ExpressionUUID->
  "904a7a39-fdc3-4077-9935-6d809398b4f9"],
 "}, ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["X", "~"], TraditionalForm]],ExpressionUUID->
  "74435a48-54be-4b72-8290-5d6d8c1c9d48"],
 " = {",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["x", "~"], "0"], TraditionalForm]],ExpressionUUID->
  "34216417-12f5-499d-9b5b-af91ead496b5"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["x", "~"], "1"], TraditionalForm]],ExpressionUUID->
  "61b3266d-bfa6-4b8e-92a1-f66243212cc0"],
 ", . . . , ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["x", "~"], 
    OverscriptBox["m", "~"]], TraditionalForm]],ExpressionUUID->
  "043983d5-2201-4b07-adc2-5a4f3f3ad746"],
 "}, ",
 StyleBox["c",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", 
    OverscriptBox["\[ScriptL]", "~"]], TraditionalForm]],ExpressionUUID->
  "09ab1c69-354d-4dbe-b838-37471a9a5705"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 Cell[BoxData[
  FormBox[
   OverscriptBox["X", "~"], TraditionalForm]],ExpressionUUID->
  "122fdcd6-0ac6-4ee4-bb7e-d4b1bab02a67"],
 "\[RightAngleBracket]\[RightAngleBracket] and ",
 StyleBox["d",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", 
    OverscriptBox["m", "~"]], TraditionalForm]],ExpressionUUID->
  "85b59450-1261-4ce1-ba57-75e5cab90ba5"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket]. Define the family of mappings"
}], "Text",
 CellChangeTimes->{{3.5804135248279257`*^9, 
  3.580413750359825*^9}},ExpressionUUID->"f0cd1999-99b7-4c23-b0e0-\
154b3cd667d2"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["D", "~"], 
    SubscriptBox[
     OverscriptBox["x", "~"], "i"]], TraditionalForm]],ExpressionUUID->
  "9c775375-13d2-4e7d-8248-07fb77e759e8"],
 " : \[DoubleStruckCapitalR]\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket] \[RightArrow] \
\[DoubleStruckCapitalR]\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket] : \[ScriptE] \[RightTeeArrow] ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "i"], TraditionalForm]],ExpressionUUID->
  "51e8ffaf-fb32-41bc-9aa1-b1e95b12ad8a"],
 "\[ScriptE] + ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],ExpressionUUID->
  "5427f09e-11ef-4eef-b855-9a917d6f393e"],
 "(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["d", "i"], TraditionalForm]],ExpressionUUID->
  "9bf62c22-e305-49af-9ef3-5ce36d6a2e40"],
 " ",
 "\:0448",
 " \[ScriptE]),"
}], "Text",
 CellChangeTimes->{
  3.5804137822466493`*^9, {3.5804138156415596`*^9, 3.580413971524475*^9}, {
   3.5804157884593983`*^9, 3.580415814771903*^9}, {3.580415996245283*^9, 
   3.580416063422125*^9}, 3.5804214431707973`*^9},
 TextAlignment->Center,ExpressionUUID->"37f47ac1-422f-4266-a56e-d5789ed95af6"],

Cell[TextData[{
 StyleBox["i",
  FontSlant->"Italic"],
 " = 0, 1,\[Ellipsis], ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["m", "~"], TraditionalForm]],ExpressionUUID->
  "dfe47b74-40b4-4937-9ec1-5a7ddd765221"],
 " with ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["d", "0"], TraditionalForm]],ExpressionUUID->
  "4044e936-db09-490f-b49d-7f9114696a1a"],
 " := 0. Assume ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["D", "~"], "\[EmptySet]"], TraditionalForm]],ExpressionUUID->
  "e9ac0aef-e95f-482e-814f-bfa2880d9f16"],
 " is the identity map on \[DoubleStruckCapitalR]\[LeftAngleBracket]\
\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket] and compose these operators in the \
obvious way so that ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["D", "~"], 
    RowBox[{
     SubscriptBox[
      OverscriptBox["x", "~"], "i"], 
     SubscriptBox[
      OverscriptBox["x", "~"], "j"]}]], TraditionalForm]],ExpressionUUID->
  "29bcf76f-87d1-448e-80d5-f5037d409fa0"],
 " =: ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["D", "~"], 
    SubscriptBox[
     OverscriptBox["x", "~"], "i"]], TraditionalForm]],ExpressionUUID->
  "c0fe3aff-c700-4ef2-8475-13aa8012db8a"],
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["D", "~"], 
    SubscriptBox[
     OverscriptBox["x", "~"], "j"]], TraditionalForm]],ExpressionUUID->
  "7d849a06-bdc2-4fb6-9878-508088720323"],
 ". The composition of a word ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["\[Eta]", "~"], TraditionalForm]],ExpressionUUID->
  "a7cebd12-8c00-4f1a-9684-8d9ad4da1be7"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["X", "~"], TraditionalForm]],ExpressionUUID->
  "64242a3c-0793-41a6-b6d1-12cf016f714e"],
 " and ",
 StyleBox["d",
  FontSlant->"Italic"],
 " is defined as"
}], "Text",
 CellChangeTimes->{{3.580414099312784*^9, 3.5804142734427443`*^9}, {
  3.5804143554684353`*^9, 3.5804144411913385`*^9}, {3.5804160859334126`*^9, 
  3.580416146577881*^9}, {3.5820655326836705`*^9, 
  3.5820655407071295`*^9}},ExpressionUUID->"f4234cd9-7554-487c-be83-\
81c0041d3650"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   OverscriptBox["\[Eta]", "~"], TraditionalForm]],ExpressionUUID->
  "fca859f1-b606-4f80-aa87-a427171c8889"],
 " ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["\[EmptySmallCircle]", "~"], TraditionalForm]],
  ExpressionUUID->"35f5b489-aafc-420f-b38a-21fa8775b4cd"],
 " ",
 StyleBox["d",
  FontSlant->"Italic"],
 " = (",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["x", "~"], 
    SubscriptBox["i", "k"]], TraditionalForm]],ExpressionUUID->
  "2fa1ecdf-611b-440e-b818-0a1a56b1640b"],
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["x", "~"], 
    SubscriptBox["i", 
     RowBox[{"k", "-", "1"}]]], TraditionalForm]],ExpressionUUID->
  "7bddcdca-0a7b-42a0-82ca-96da14a1bb8f"],
 "\[CenterEllipsis]",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["x", "~"], 
    SubscriptBox["i", "1"]], TraditionalForm]],ExpressionUUID->
  "e2f1cb5b-1198-4111-a3b3-6601763945ce"],
 ") ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["\[EmptySmallCircle]", "~"], TraditionalForm]],
  ExpressionUUID->"6bd2bc74-820a-47e2-8b92-036006a415dc"],
 " ",
 StyleBox["d",
  FontSlant->"Italic"],
 " = ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["D", "~"], 
    SubscriptBox[
     OverscriptBox["x", "~"], 
     SubscriptBox["i", "k"]]], TraditionalForm]],ExpressionUUID->
  "10680a5d-c944-4cf5-b43b-f7b4dfa44f01"],
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["D", "~"], 
    SubscriptBox[
     OverscriptBox["x", "~"], 
     SubscriptBox["i", 
      RowBox[{"k", "-", "1"}]]]], TraditionalForm]],ExpressionUUID->
  "bc8b9e4e-eb47-4261-bb3a-aae1ba57e317"],
 "\[CenterEllipsis]",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["D", "~"], 
    SubscriptBox[
     OverscriptBox["x", "~"], 
     SubscriptBox["i", "1"]]], TraditionalForm]],ExpressionUUID->
  "3952fd1e-b25b-4134-8ae8-913db66afd5c"],
 "(1) = ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    OverscriptBox["D", "~"], 
    OverscriptBox["\[Eta]", "~"]], TraditionalForm]],ExpressionUUID->
  "efab9fd5-d3b6-4bf5-b818-b4e7c1fd10a0"],
 "(1)."
}], "Text",
 CellChangeTimes->{
  3.580414517947729*^9, {3.5804145506125975`*^9, 3.5804145523496966`*^9}, 
   3.5804146718695326`*^9, {3.5804147410384893`*^9, 3.580414742072548*^9}, {
   3.580414784258961*^9, 3.580415064215974*^9}, {3.5804153291791286`*^9, 
   3.5804153437159605`*^9}, {3.5804161683691273`*^9, 3.5804161967627516`*^9}, 
   3.5818809079604177`*^9, {3.581881068758414*^9, 3.5818810836184497`*^9}},
 TextAlignment->Center,ExpressionUUID->"7b44262d-bfbf-45c1-b97a-0acc661b6455"],

Cell[TextData[{
 "In which case, the composition product of ",
 StyleBox["c",
  FontSlant->"Italic"],
 " and ",
 StyleBox["d",
  FontSlant->"Italic"],
 " is"
}], "Text",
 CellChangeTimes->{{3.5804150669521303`*^9, 
  3.5804150805419073`*^9}},ExpressionUUID->"8a737ac9-73b7-479a-a773-\
809d05c95831"],

Cell[TextData[{
 StyleBox["c ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   OverscriptBox["\[EmptySmallCircle]", "~"], TraditionalForm]],
  ExpressionUUID->"a1c3d38f-de96-4d56-a032-1bd2cb07313f"],
 " ",
 StyleBox["d",
  FontSlant->"Italic"],
 " = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderscriptBox["\[Sum]", 
     RowBox[{
      OverscriptBox["\[Eta]", "~"], "\[Element]", 
      RowBox[{
       OverscriptBox["X", "~"], "\[Star]"}]}]], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       StyleBox["c",
        FontSlant->"Italic"], ",", 
       OverscriptBox["\[Eta]", "~"]}], ")"}], 
     OverscriptBox["\[Eta]", "~"], " ", 
     OverscriptBox["\[EmptySmallCircle]", "~"], " ", 
     StyleBox["d",
      FontSlant->"Italic"]}]}], TraditionalForm]],ExpressionUUID->
  "f986c86a-5dd0-4480-ad9f-3c1871e611b3"],
 "."
}], "Text",
 CellChangeTimes->{{3.580415100827068*^9, 3.5804152365658317`*^9}, {
  3.580416216267867*^9, 3.5804162291076016`*^9}},
 TextAlignment->Center,ExpressionUUID->"9906a8e6-6300-4f00-b06b-a555edb3460f"],

Cell["The modified composition power is defined as", "Text",
 CellChangeTimes->{{3.585073346228928*^9, 3.585073360308733*^9}, {
  3.5850884274422674`*^9, 
  3.585088428668338*^9}},ExpressionUUID->"c6da3040-64ce-485f-9f2b-\
59a65614f7ae"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SuperscriptBox["c", 
    RowBox[{
     OverscriptBox["\[EmptySmallCircle]", "~"], 
     StyleBox["i",
      FontSlant->"Italic"]}]], TraditionalForm]],ExpressionUUID->
  "cdd9b79a-9028-4d30-a952-36f7c88c0500"],
 " = ",
 StyleBox["c ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   OverscriptBox["\[EmptySmallCircle]", "~"], TraditionalForm]],
  ExpressionUUID->"dc46e076-d15d-42fb-aad8-ab8d5e56948f"],
 StyleBox[" c ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   OverscriptBox["\[EmptySmallCircle]", "~"], TraditionalForm]],
  ExpressionUUID->"c620def7-bb74-42d2-ba15-93dcee7dada4"],
 StyleBox[" ",
  FontSlant->"Italic"],
 "\[CenterEllipsis]",
 StyleBox[" ",
  FontSlant->"Italic"],
 Cell[BoxData[
  FormBox[
   OverscriptBox["\[EmptySmallCircle]", "~"], TraditionalForm]],
  ExpressionUUID->"f36c1e8e-aeb2-4eaf-9b7d-31d0d5a84715"],
 StyleBox[" c ",
  FontSlant->"Italic"],
 ","
}], "Text",
 CellChangeTimes->{
  3.585073402650155*^9, {3.585073490293168*^9, 3.5850734902961683`*^9}, {
   3.585074125817518*^9, 3.585074196954587*^9}, {3.5850742647334633`*^9, 
   3.585074267700633*^9}, {3.5850884593510923`*^9, 3.5850884771181087`*^9}, {
   3.5861233162903395`*^9, 3.5861233188244843`*^9}},
 TextAlignment->Center,ExpressionUUID->"13847913-1c23-4feb-bfc8-821538c2d7ad"],

Cell[TextData[{
 "where ",
 StyleBox["c",
  FontSlant->"Italic"],
 " appears ",
 StyleBox["i",
  FontSlant->"Italic"],
 " times and ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["c", 
    RowBox[{
     OverscriptBox["\[EmptySmallCircle]", "~"], "0"}]], TraditionalForm]],
  ExpressionUUID->"93717e65-8d5a-4b14-b5f0-ae442a3b2001"],
 " := 1."
}], "Text",
 CellChangeTimes->{{3.585074379940053*^9, 3.5850745240302944`*^9}, {
   3.585088481092336*^9, 3.585088481092336*^9}, 
   3.5861233254738646`*^9},ExpressionUUID->"28a93681-b7e8-4d2c-86c1-\
22180623b1d8"],

Cell[TextData[{
 "The current implementation assumes ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["X", "~"], TraditionalForm]],ExpressionUUID->
  "f4df3ddb-6627-4c90-ac15-5f630b08ee69"],
 " = ",
 StyleBox["X ",
  FontSlant->"Italic"],
 "and ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["\[ScriptL]", "~"], TraditionalForm]],ExpressionUUID->
  "25488a91-b448-474a-b170-468becbd7f2a"],
 " = 1."
}], "Text",
 CellChangeTimes->{{3.580415240507057*^9, 
  3.5804153150853224`*^9}},ExpressionUUID->"b703aa5f-d7fa-4779-90ef-\
af6e0eb8b965"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5804162468786182`*^9, 
  3.5804162484837103`*^9}},ExpressionUUID->"5eae2c88-8057-4f33-b409-\
db2bfef8d5ed"],

Cell[BoxData[
 RowBox[{"ModifiedCompositionProduct", "[", 
  RowBox[{"series", ",", "list1", ",", "list2"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.5804162536320047`*^9, 
  3.580416268697866*^9}},ExpressionUUID->"bbce1f51-d0be-4c5e-8252-\
275d19d4bf34"],

Cell[TextData[{
 StyleBox["series",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a noncommutative formal power series, ",
 StyleBox["list1",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a list of noncommutatie formal power series, and ",
 StyleBox["list2",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a list of symbols defining an alphabet."
}], "Text",
 CellChangeTimes->{
  3.5804162853938212`*^9, {3.581883026491955*^9, 
   3.581883027591958*^9}},ExpressionUUID->"c970804a-d7e0-432d-b505-\
c46453d54686"],

Cell[BoxData[
 RowBox[{"ModifiedCompositionProduct", "[", 
  RowBox[{"series", ",", "list2", ",", "power"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.583182593120446*^9, 
  3.5831826210080414`*^9}},ExpressionUUID->"7b744d89-9a7f-4a24-9585-\
85423a560f05"],

Cell[TextData[{
 StyleBox["power",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a nonnegative integer."
}], "Text",
 CellChangeTimes->{{3.583182628619477*^9, 
  3.583182652552846*^9}},ExpressionUUID->"ff992317-b2d5-4f80-80af-\
1c91e3278210"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.5804162918561907`*^9, 
  3.58041629306526*^9}},ExpressionUUID->"064168c8-3949-4a88-8970-\
4fabbae81232"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"X", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"x0", ",", "x1", ",", "x2"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"c", " ", "=", " ", 
   RowBox[{"x1", "**", "x2"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"d", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x0", "+", 
      RowBox[{"2", "x1"}]}], ",", "x2"}], "}"}]}], ";"}], "\n", 
 RowBox[{"ModifiedCompositionProduct", "[", 
  RowBox[{"c", ",", "d", ",", "X"}], "]"}]}], "Code",
 CellChangeTimes->{{3.580416330057376*^9, 
  3.580416389870797*^9}},ExpressionUUID->"749ce2da-c1c9-4fc6-8c72-\
1eb53ddac50b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x1", "**", "x2"}], "+", 
  RowBox[{"x0", "**", "x0", "**", "x2"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"x0", "**", "x1", "**", "x2"}]}], "+", 
  RowBox[{"x0", "**", "x2", "**", "x0"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"x0", "**", "x2", "**", "x1"}]}], "+", 
  RowBox[{"x1", "**", "x0", "**", "x2"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"x0", "**", "x0", "**", "x0", "**", "x2"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"x0", "**", "x0", "**", "x1", "**", "x2"}]}], "+", 
  RowBox[{"x0", "**", "x0", "**", "x2", "**", "x0"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"x0", "**", "x0", "**", "x2", "**", "x1"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"x0", "**", "x1", "**", "x0", "**", "x2"}]}]}]], "Output",
 CellChangeTimes->{
  3.5804219077813716`*^9},ExpressionUUID->"4cd165e6-8637-4724-a75a-\
e83de98595a3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ModifiedCompositionProduct", "[", 
  RowBox[{
   RowBox[{"x0", "**", "x1"}], ",", 
   RowBox[{"{", 
    RowBox[{"x0", ",", "x1"}], "}"}], ",", "2"}], "]"}]], "Code",
 CellChangeTimes->{{3.5831843829628196`*^9, 3.5831843934644203`*^9}, 
   3.5831873006076994`*^9},ExpressionUUID->"454fc06f-e4b0-4b93-9fb9-\
10a27085e6f0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x0", "**", "x1"}], "+", 
  RowBox[{"x0", "**", "x0", "**", "x0", "**", "x1"}]}]], "Output",
 CellChangeTimes->{
  3.583187304229906*^9},ExpressionUUID->"42509cb9-986e-4320-8d2a-\
ca19f3026a32"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["ScalarProduct", "Subsection",
 CellChangeTimes->{{3.5804164189754615`*^9, 
  3.5804164217506204`*^9}},ExpressionUUID->"71c8882a-d14a-4d61-81ea-\
661a5798ebb7"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.5804164447999387`*^9, 
  3.5804164463520274`*^9}},ExpressionUUID->"c17854ab-e4df-4044-90a5-\
690c5d47d3a4"],

Cell[TextData[{
 "Given ",
 StyleBox["c",
  FontSlant->"Italic"],
 ",",
 StyleBox["d",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"66d9f3fb-293b-4b6b-aec4-9e7d4fb3553c"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket], the scalar product is"
}], "Text",
 CellChangeTimes->{{3.580416454139473*^9, 
  3.580416531944923*^9}},ExpressionUUID->"f12cfe97-af1a-41dd-9eca-\
4c2cbe440c82"],

Cell[TextData[{
 "(",
 StyleBox["c",
  FontSlant->"Italic"],
 ", ",
 StyleBox["d",
  FontSlant->"Italic"],
 ") = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderscriptBox["\[Sum]", 
     RowBox[{"\[Eta]", "=", 
      RowBox[{"X", "*"}]}]], 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"i", "=", "1"}], "\[ScriptL]"], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["c", "i"], ",", "\[Eta]"}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["d", "i"], ",", "\[Eta]"}], ")"}]}]}]}], 
   TraditionalForm]],ExpressionUUID->"7efa3640-0669-4d09-9890-2623b871878f"],
 "."
}], "Text",
 CellChangeTimes->{{3.5804165657778583`*^9, 3.580416685187688*^9}},
 TextAlignment->Center,ExpressionUUID->"e525d6a1-2013-4ea6-b553-cc89885a6831"],

Cell["\<\
Of course for many series this sum diverges. The current implementation \
assumes \[ScriptL] = 1.\
\>", "Text",
 CellChangeTimes->{{3.580416702737692*^9, 
  3.580416735488565*^9}},ExpressionUUID->"1a24f021-379b-4645-9f0a-\
f6523ebb20e4"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5804167474042463`*^9, 
  3.5804167491383457`*^9}},ExpressionUUID->"966b6c18-aaf2-4c19-a683-\
aabbf65b06ab"],

Cell[BoxData[
 RowBox[{"ScalarProduct", "[", 
  RowBox[{"series1", ",", "series2"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.5804167546506615`*^9, 
  3.580416768527455*^9}},ExpressionUUID->"f3d73d4f-22ff-4503-8790-\
5c515eb72797"],

Cell[TextData[{
 StyleBox["series1",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " and ",
 StyleBox["series2",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " are noncommutative formal power series."
}], "Text",
 CellChangeTimes->{{3.5804167814571943`*^9, 3.580416846183896*^9}, {
  3.581883127047182*^9, 
  3.5818831278846846`*^9}},ExpressionUUID->"df416755-f6ea-437d-8ad8-\
dfd3cfc7be03"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.5804168599106817`*^9, 
  3.580416860998744*^9}},ExpressionUUID->"c2dda9a1-e80e-42ca-ba27-\
287e42a3dfb2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ScalarProduct", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x0", "**", "x1"}], " ", "+", " ", 
    RowBox[{"3", " ", 
     RowBox[{"x0", "**", "x0"}]}]}], ",", " ", 
   RowBox[{
    RowBox[{"x1", "**", "x1", "**", "x0"}], " ", "+", " ", 
    RowBox[{"2", " ", 
     RowBox[{"x0", "**", "x1"}]}]}]}], "]"}]], "Code",
 CellChangeTimes->{{3.580416876858651*^9, 3.5804169049442577`*^9}, {
  3.5804169434314585`*^9, 3.5804169507438765`*^9}, {3.8504334081599064`*^9, 
  3.8504334136076193`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"6dd6f0f8-0354-4c08-8251-7a9ef5f446c8"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.5804219078153734`*^9, 3.8504334477277136`*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"c1026b3a-acdc-4c67-b331-de34dac1b0d4"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["ShuffleProduct", "Subsection",
 CellChangeTimes->{{3.5804169681108704`*^9, 
  3.580416970600013*^9}},ExpressionUUID->"1cae5f6a-ce7d-424e-8516-\
0581aac5077a"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.5804169917392216`*^9, 
  3.5804169933013115`*^9}},ExpressionUUID->"8c37bd61-c832-4eef-a3fe-\
b76dbb2eadde"],

Cell[TextData[{
 "The shuffle product of two words \[Eta] = ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "j"], TraditionalForm]],ExpressionUUID->
  "b2f4ba02-f44f-419d-9d7d-b30e356fec31"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Eta]", "\[Prime]"], TraditionalForm]],ExpressionUUID->
  "7f731ccf-de54-4a4e-8ca4-1b949781a9ab"],
 ", \[Xi] = ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "k"], TraditionalForm]],ExpressionUUID->
  "6a087f41-32d2-4b65-b1a2-73280b663b57"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Xi]", "\[Prime]"], TraditionalForm]],ExpressionUUID->
  "d70dbe25-5246-4b23-81a7-777ee7303b3d"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["X", "*"], TraditionalForm]],ExpressionUUID->
  "6006ad55-acb5-4fc8-b4f8-19fc2fe4c7f9"],
 " is defined iteratively as"
}], "Text",
 CellChangeTimes->{{3.5804205845496874`*^9, 3.5804206362666454`*^9}, {
  3.5804207089007998`*^9, 
  3.580420732354141*^9}},ExpressionUUID->"47627334-1096-4715-9e91-\
636a3f361d05"],

Cell[TextData[{
 "\[Eta] \:0448 \[Xi] = (",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "j"], TraditionalForm]],ExpressionUUID->
  "45c4625b-125e-45c3-ad05-a5f6df51a3d6"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Eta]", "\[Prime]"], TraditionalForm]],ExpressionUUID->
  "ca3bac2c-c044-4bad-81bb-7cca7c210bc2"],
 ") \:0448 (",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "k"], TraditionalForm]],ExpressionUUID->
  "ff1f87b7-e1e0-4ccc-bef9-43fa89ebf9bc"],
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Xi]", "\[Prime]"], TraditionalForm]],ExpressionUUID->
  "6659d040-9715-4c3d-856f-08d4097bb1ec"],
 ") = ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "j"], TraditionalForm]],ExpressionUUID->
  "891ef5e7-2403-41a6-b294-b7495bbfd07d"],
 "(",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Eta]", "\[Prime]"], TraditionalForm]],ExpressionUUID->
  "467ca57b-78ab-4ad2-bd4c-c68644d2ba95"],
 "\:0448 \[Xi]) + ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "k"], TraditionalForm]],ExpressionUUID->
  "94d22f64-e0e6-4e45-8856-2da33d1d5a8b"],
 "(\[Eta] \:0448 ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Xi]", "\[Prime]"], TraditionalForm]],ExpressionUUID->
  "28c8ddd9-09c6-4ef7-9e69-3cfb12124bbb"],
 ")"
}], "Text",
 CellChangeTimes->{{3.5804207485200653`*^9, 3.580420753211334*^9}, {
  3.580420864457697*^9, 3.580420941459101*^9}, {3.580420974040965*^9, 
  3.580421032090285*^9}},
 TextAlignment->Center,ExpressionUUID->"fdd8fcba-18bf-4356-b414-0b3e978abb3f"],

Cell[TextData[{
 "with \[Xi] \:0448 \[EmptySet] = \[EmptySet] \:0448 \[Xi] = \[Xi]. The \
definition of the shuffle product is extended linearly to any two series ",
 StyleBox["c,d",
  FontSlant->"Italic"],
 " \[Element] \[DoubleStruckCapitalR]\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket] by letting"
}], "Text",
 CellChangeTimes->{{3.58042103829564*^9, 
  3.580421109058687*^9}},ExpressionUUID->"37a7bc99-c73d-4ba3-82f6-\
516172f1d42a"],

Cell[TextData[{
 StyleBox["c ",
  FontSlant->"Italic"],
 "\:0448",
 StyleBox[" d =",
  FontSlant->"Italic"],
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderscriptBox["\[Sum]", 
     RowBox[{"\[Eta]", ",", 
      RowBox[{"\[Xi]", "\[Element]", 
       SuperscriptBox["X", "*"]}]}]], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"c", ",", "\[Eta]"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"d", ",", "\[Xi]"}], ")"}], "\[Eta]", " ", "\:0448", " ", 
     "\[Xi]"}]}], TraditionalForm]],ExpressionUUID->
  "865521c6-2c3b-4913-9b17-806e18fd6bfa"],
 "."
}], "Text",
 CellChangeTimes->{{3.580421130313903*^9, 3.5804211992098436`*^9}},
 TextAlignment->Center,ExpressionUUID->"17f1c51f-cfe7-42fb-a9ca-1d9f6ac36824"],

Cell[TextData[{
 "Given two series ",
 StyleBox["c,d",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"ccc7939c-8131-47b8-98d7-9eaa86eb12bf"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket] the shuffle product ",
 StyleBox["c",
  FontSlant->"Italic"],
 " \:0448 ",
 StyleBox["d",
  FontSlant->"Italic"],
 " is defined componentwise, i.e., the ",
 StyleBox["i",
  FontSlant->"Italic"],
 "-th component series of ",
 StyleBox["c ",
  FontSlant->"Italic"],
 "\:0448",
 StyleBox[" d",
  FontSlant->"Italic"],
 " is ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    RowBox[{"(", 
     RowBox[{"c", " ", "\:0448", " ", "d"}], ")"}], "i"], TraditionalForm]],
  ExpressionUUID->"d31285ba-b81f-4433-af91-3a8df9ab46a1"],
 " = ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["c", "i"], TraditionalForm]],ExpressionUUID->
  "ba056495-332e-4e64-81ff-66c6dd609c0e"],
 " \:0448 ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["d", "i"], TraditionalForm]],ExpressionUUID->
  "40914061-5537-44ec-ae8d-d037133e6bbb"],
 ", where 1 \[LessEqual] ",
 StyleBox["i",
  FontSlant->"Italic"],
 " \[LessEqual] \[ScriptL]. The current implementation assumes \[ScriptL] = 1."
}], "Text",
 CellChangeTimes->{{3.580421204282134*^9, 
  3.5804213576269045`*^9}},ExpressionUUID->"55e65add-04d6-41c7-bf0d-\
6c7f5b6d71e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5804169966145005`*^9, 
  3.5804169978215694`*^9}},ExpressionUUID->"4ed18d77-efa3-4ea8-8ffe-\
6e5762375470"],

Cell[BoxData[
 RowBox[{"ShuffleProduct", "[", 
  RowBox[{"series1", ",", "series2"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.5804213647403116`*^9, 
  3.5804213706866517`*^9}},ExpressionUUID->"be645805-f6b3-4423-a1f5-\
2058bb54c89f"],

Cell[TextData[{
 StyleBox["series1",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " and ",
 StyleBox["series2",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " are noncommutative formal power series."
}], "Text",
 CellChangeTimes->{{3.5804213742548556`*^9, 3.5804214031645093`*^9}, {
  3.5804215807016635`*^9, 3.5804215846878915`*^9}, {3.5818831454572215`*^9, 
  3.5818831462772226`*^9}},ExpressionUUID->"facad20e-626a-4144-81cc-\
3e15376de540"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.5804170024028316`*^9, 
  3.5804170033008833`*^9}},ExpressionUUID->"8c0a1015-4b66-4f50-9076-\
98b49921e0ee"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NCExpand", "[", 
  RowBox[{"ShuffleProduct", "[", 
   RowBox[{
    RowBox[{"2", 
     RowBox[{"x0", "**", "x1"}]}], ",", 
    RowBox[{"x0", "+", "x1"}]}], "]"}], "]"}]], "Code",
 CellChangeTimes->{{3.580421591086258*^9, 3.580421601401848*^9}, {
  3.580422797706272*^9, 
  3.580422803889626*^9}},ExpressionUUID->"4774071b-771a-47ef-92a3-\
0c9f781a0ac5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"4", " ", 
   RowBox[{"x0", "**", "x0", "**", "x1"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"x0", "**", "x1", "**", "x0"}]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{"x0", "**", "x1", "**", "x1"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"x1", "**", "x0", "**", "x1"}]}]}]], "Output",
 CellChangeTimes->{3.5804219078483753`*^9, 
  3.580422804536663*^9},ExpressionUUID->"5a7bf916-ec66-47af-88ea-\
cac1dba78f7a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["UltraMetricDistance", "Subsection",
 CellChangeTimes->{{3.5804170258751745`*^9, 
  3.5804170305154395`*^9}},ExpressionUUID->"af9e8ef1-fcde-439c-b5dd-\
a615cd71682d"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.58041703401964*^9, 
  3.580417036792799*^9}},ExpressionUUID->"e5dbd71e-d666-402b-a4bf-\
432f3a9c67b1"],

Cell[TextData[{
 "An ultrametic on ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"0118570e-9fa9-41f1-9b9c-c9b0e5136c6d"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket] is a mapping of the form"
}], "Text",
 CellChangeTimes->{{3.5804170554438653`*^9, 
  3.5804171063127747`*^9}},ExpressionUUID->"dfcd9195-3487-46ae-82eb-\
26f08b60178e"],

Cell[TextData[{
 "dist : ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"af12b01c-d5cd-4b46-8d92-6bb3d0863ffd"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket] \[Cross] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"38e70176-28e7-4730-bcd6-ea3c892129ba"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket] \[RightArrow] \
\[DoubleStruckCapitalR] : (",
 StyleBox["c",
  FontSlant->"Italic"],
 ", ",
 StyleBox["d",
  FontSlant->"Italic"],
 ") \[RightTeeArrow] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Sigma]", 
    RowBox[{"ord", "(", 
     RowBox[{"c", "-", "d"}], ")"}]], TraditionalForm]],ExpressionUUID->
  "ab0bd64d-9d5d-45a1-bc76-82dd45844bba"]
}], "Text",
 CellChangeTimes->{{3.58041712668294*^9, 3.5804173471015472`*^9}},
 TextAlignment->Center,ExpressionUUID->"3e327898-489b-474d-b313-24d9543d5f90"],

Cell["\<\
where \[Sigma] such that 0 < \[Sigma] < 1. The current implementation assumes \
\[ScriptL] = 1.\
\>", "Text",
 CellChangeTimes->{{3.5804173533839064`*^9, 
  3.5804173858617644`*^9}},ExpressionUUID->"1baa81fa-79f8-41f6-9833-\
3505ba1e53d9"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5804173931851835`*^9, 
  3.580417394368251*^9}},ExpressionUUID->"e50dec7e-4e89-4689-829b-\
ad2c2337b6e1"],

Cell[BoxData[
 RowBox[{"UltrameticDistance", "[", 
  RowBox[{"series1", ",", "series2", ",", "real"}], "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.5804173986354947`*^9, 
  3.5804174114022255`*^9}},ExpressionUUID->"08c5dfc4-dce9-4b8f-bddc-\
cc0a54cebfa0"],

Cell[TextData[{
 StyleBox["series1",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " and ",
 StyleBox["series2",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " are noncommutative formal power series, and ",
 StyleBox["real",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a real number strictly between 0 and 1."
}], "Text",
 CellChangeTimes->{{3.5804174179566*^9, 3.5804174747128468`*^9}, {
  3.58042156821795*^9, 3.580421568984994*^9}, {3.581883354245219*^9, 
  3.5818833551052213`*^9}},ExpressionUUID->"da311b20-d11e-4a52-b184-\
a2a57ae33b22"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.580417479811138*^9, 
  3.580417480774193*^9}},ExpressionUUID->"effdb29c-3f26-461b-8ecf-\
506eb1981616"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"UltrametricDistance", "[", 
  RowBox[{
   RowBox[{"x0", "+", 
    RowBox[{"x0", "**", "x1", "**", "x1"}], "+", 
    RowBox[{"x1", "**", "x0", "**", "x0"}]}], ",", 
   RowBox[{"x0", "+", 
    RowBox[{"x0", "**", "x0"}], "+", 
    RowBox[{"x0", "**", "x0", "**", "x0"}]}], ",", "0.5"}], "]"}]], "Code",
 CellChangeTimes->{{3.58041749418596*^9, 3.5804175466969633`*^9}, 
   3.5804228464110584`*^9},ExpressionUUID->"aee0794e-be74-47cf-856a-\
c0bf2d5b79c1"],

Cell[BoxData["0.25`"], "Output",
 CellChangeTimes->{
  3.580422846955089*^9, {3.5927608666772327`*^9, 
   3.592760883286919*^9}},ExpressionUUID->"d02880dc-a457-441f-9034-\
6178f0bb8a7e"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["4 Other Commands", "Section",
 CellChangeTimes->{{3.58041757897781*^9, 
  3.5804175822349963`*^9}},ExpressionUUID->"86f1c889-16eb-4d75-b5fc-\
ab516b5a8d61"],

Cell[CellGroupData[{

Cell["RealizationToSeries", "Subsection",
 CellChangeTimes->{{3.5804177055230474`*^9, 3.5804177177537475`*^9}, {
  3.5818833235701456`*^9, 
  3.5818833253251495`*^9}},ExpressionUUID->"bb6d1f3f-57f2-4d69-b8dc-\
4b3c4896aaeb"],

Cell[CellGroupData[{

Cell["Description", "Subsubsection",
 CellChangeTimes->{{3.5804177337146606`*^9, 
  3.580417735544765*^9}},ExpressionUUID->"9f849b5c-c535-4c99-adfa-\
f53dafcffed7"],

Cell[TextData[{
 "Let ",
 StyleBox["G",
  FontSlant->"Italic"],
 " = {",
 Cell[BoxData[
  FormBox[
   SubscriptBox["g", "0"], TraditionalForm]],ExpressionUUID->
  "a06b80e7-d7ed-4b56-8de2-15b1fca69c3b"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["g", "1"], TraditionalForm]],ExpressionUUID->
  "51a46fa0-d17f-481b-ae35-08eec8943774"],
 ",\[Ellipsis], ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["g", "m"], TraditionalForm]],ExpressionUUID->
  "4a848e4c-56ae-4861-9f26-d9762c599c51"],
 "} be a set of smooth ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "n"], TraditionalForm]],
  ExpressionUUID->"453ccc48-9ff2-4235-aa61-60ea1d282c63"],
 "-vector fields defined on a neighborhood ",
 StyleBox["W",
  FontSlant->"Italic"],
 " of ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["z", "0"], TraditionalForm]],ExpressionUUID->
  "37787fc8-dc09-4c84-83ac-aaf2406d0552"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "n"], TraditionalForm]],
  ExpressionUUID->"dc556020-8b90-41ed-a06e-74d951d5114c"],
 ". ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["g", "0"], TraditionalForm]],ExpressionUUID->
  "9bd5f0fa-dd35-493a-85a2-60b2352b809f"],
 " is taken as the drift vector field. Let ",
 StyleBox["h",
  FontSlant->"Italic"],
 " be a smooth ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"6117a890-05c9-4bfa-8a63-56001bb8ec43"],
 "-valued function on ",
 StyleBox["W",
  FontSlant->"Italic"],
 ". The generating series of the realization (",
 StyleBox["G",
  FontSlant->"Italic"],
 ", ",
 StyleBox["h",
  FontSlant->"Italic"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["z", "0"], TraditionalForm]],ExpressionUUID->
  "b577676e-1741-4dd9-9e9c-97c7ac135774"],
 ") is ",
 StyleBox["c",
  FontSlant->"Italic"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"d3d1237f-110f-439a-9ed4-93bba9aaa5ed"],
 "\[LeftAngleBracket]\[LeftAngleBracket]",
 StyleBox["X",
  FontSlant->"Italic"],
 "\[RightAngleBracket]\[RightAngleBracket], where ",
 StyleBox["X",
  FontSlant->"Italic"],
 " = {",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "0"], TraditionalForm]],ExpressionUUID->
  "a22a5a11-1758-4977-abe7-71b5ff8af93d"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "1"], TraditionalForm]],ExpressionUUID->
  "7edd47b8-1ae8-4d52-8839-327a4051edf2"],
 ",\[Ellipsis], ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "m"], TraditionalForm]],ExpressionUUID->
  "ffeb1bda-f971-4e94-ba58-3aeb8f76288a"],
 "} and"
}], "Text",
 CellChangeTimes->{{3.5804177400600233`*^9, 3.580418000523921*^9}, {
  3.5818831868398085`*^9, 3.581883188082311*^9}, {3.585088772414999*^9, 
  3.5850888088380823`*^9}, {3.5861234262796307`*^9, 
  3.5861234263436346`*^9}},ExpressionUUID->"19fa9e1f-b9cb-4796-9986-\
890e5bfd6ea9"],

Cell[TextData[{
 "(",
 StyleBox["c",
  FontSlant->"Italic"],
 ", \[Eta]) = ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["L", 
    SubscriptBox["g", 
     SubscriptBox["i", "1"]]], TraditionalForm]],ExpressionUUID->
  "8481a3fa-9e26-43e6-a5c5-485868f063c4"],
 "\[CenterEllipsis]",
 Cell[BoxData[
  FormBox[
   SubscriptBox["L", 
    SubscriptBox["g", 
     SubscriptBox["i", "k"]]], TraditionalForm]],ExpressionUUID->
  "bd3644a8-4e91-481f-8a20-e1a1ad753781"],
 StyleBox["h",
  FontSlant->"Italic"],
 "(",
 Cell[BoxData[
  FormBox[
   SubscriptBox["z", "0"], TraditionalForm]],ExpressionUUID->
  "bcc5c955-b8b0-42de-b686-18fafaabd7da"],
 "), \[Eta] = ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    SubscriptBox["i", "k"]], TraditionalForm]],ExpressionUUID->
  "710344f0-a37a-46c5-9dde-11d62173eb1a"],
 "\[CenterEllipsis]",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", 
    SubscriptBox["i", "1"]], TraditionalForm]],ExpressionUUID->
  "f24d2b3d-f2ec-4a52-9bc8-6c05428c920d"],
 " \[Element] ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["X", "*"], TraditionalForm]],ExpressionUUID->
  "003fc5f2-491b-4dd0-8388-b3283f3510cf"]
}], "Text",
 CellChangeTimes->{{3.5804180309576616`*^9, 3.5804181674734697`*^9}},
 TextAlignment->Center,ExpressionUUID->"ede25a2e-7309-46c5-80ca-03892b1671cc"],

Cell[TextData[{
 "with ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["L", 
    SubscriptBox["g", "i"]], TraditionalForm]],ExpressionUUID->
  "fbea3bce-8e80-42cd-beda-a0a96df1bd91"],
 " : ",
 StyleBox["h",
  FontSlant->"Italic"],
 " \[RightTeeArrow] \[PartialD]",
 StyleBox["h",
  FontSlant->"Italic"],
 "/\[PartialD]",
 StyleBox["z",
  FontSlant->"Italic"],
 " \[CenterDot] ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["g", "i"], TraditionalForm]],ExpressionUUID->
  "3b79fda2-ed89-4cdd-9b99-62dbca4d7d7f"],
 " and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["L", "\[EmptySet]"], TraditionalForm]],ExpressionUUID->
  "9e7f11c4-4fba-4c79-9464-4d9cc60c8a3b"],
 StyleBox["h",
  FontSlant->"Italic"],
 " = ",
 StyleBox["h",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.5804181846144505`*^9, 3.580418217777347*^9}, {
  3.5804182600187635`*^9, 
  3.5804183633626738`*^9}},ExpressionUUID->"f733b25b-e728-4ea8-a0c3-\
782f2ed41fa2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax", "Subsubsection",
 CellChangeTimes->{{3.5804183740132833`*^9, 
  3.5804183751693497`*^9}},ExpressionUUID->"eb4cefb3-6a7d-4f0f-8c95-\
6e54644cb5fb"],

Cell[BoxData[
 RowBox[{"RealizationToSeries", "[", 
  RowBox[{
  "list1", ",", "function", ",", "list2", ",", "list3", ",", "integer"}], 
  "]"}]], "Code",
 InitializationCell->False,
 CellChangeTimes->{{3.5804183828207874`*^9, 3.5804183975096273`*^9}, {
  3.5820656113531704`*^9, 
  3.582065613703305*^9}},ExpressionUUID->"b316bc99-9ec5-4147-aa7f-\
1e0c35c03da9"],

Cell[TextData[{
 StyleBox["list1",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a list of ",
 StyleBox["m",
  FontSlant->"Italic"],
 "+1 mappings from ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "n"], TraditionalForm]],
  ExpressionUUID->"061f2aee-8077-446c-a7b3-ea458b95d2ad"],
 " to ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "n"], TraditionalForm]],
  ExpressionUUID->"22c9d409-7e8d-4faf-9010-6d3e3596930e"],
 ", ",
 StyleBox["function",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a mapping from ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "n"], TraditionalForm]],
  ExpressionUUID->"de330c49-d9e4-4154-8f78-5a81bf345aac"],
 " to ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[DoubleStruckCapitalR]", "\[ScriptL]"], TraditionalForm]],
  ExpressionUUID->"273c5f6b-ab97-45c6-8cc2-78d772695e83"],
 ", ",
 StyleBox["list2",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is a list of ",
 StyleBox["n",
  FontSlant->"Italic"],
 " real numbers describing an initial condition, and ",
 StyleBox["list3",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 " is the ",
 StyleBox["m",
  FontSlant->"Italic"],
 "+1 letter alphabet for the generating series ",
 StyleBox["c",
  FontSlant->"Italic"],
 ". The output series ",
 StyleBox["c ",
  FontSlant->"Italic"],
 "is truncated to degree ",
 StyleBox["integer",
  FontFamily->"Courier New",
  FontWeight->"Bold"],
 ". The current implementation assumes \[ScriptL] = 1."
}], "Text",
 CellChangeTimes->{{3.580418406374134*^9, 3.5804186003822308`*^9}, {
  3.5804205421392612`*^9, 3.5804205493406734`*^9}, {3.581883344137695*^9, 
  3.581883345025197*^9}, {3.582065738117421*^9, 3.582065783514017*^9}, {
  3.5850888333424835`*^9, 3.585088844070097*^9}, {3.586123462726715*^9, 
  3.5861234844609585`*^9}, {3.5861235594342465`*^9, 
  3.586123574843128*^9}},ExpressionUUID->"61341102-8c79-4724-a934-\
9df210054b4f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example", "Subsubsection",
 CellChangeTimes->{{3.580418610420805*^9, 
  3.5804186113078556`*^9}},ExpressionUUID->"b43e0457-0dd3-44f6-8cda-\
b3e10fd83e10"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"g0", "[", 
   RowBox[{"z1_", ",", "z2_", ",", "z3_", ",", "z4_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"z1", " ", "z2"}], "-", 
     SuperscriptBox["z1", "3"]}], ",", "z1", ",", 
    RowBox[{"-", "z3"}], ",", 
    RowBox[{
     SuperscriptBox["z1", "2"], "+", "z2"}]}], "}"}]}], "\n", 
 RowBox[{
  RowBox[{"g1", "[", 
   RowBox[{"z1_", ",", "z2_", ",", "z3_", ",", "z4_"}], "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{"0", ",", 
    RowBox[{"2", "+", 
     RowBox[{"2", " ", "z3"}]}], ",", "1", ",", "0"}], "}"}]}], "\n", 
 RowBox[{
  RowBox[{"h", "[", 
   RowBox[{"z1_", ",", "z2_", ",", "z3_", ",", "z4_"}], "]"}], ":=", 
  "z4"}], "\n", 
 RowBox[{"z0", ":=", 
  RowBox[{"{", 
   RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "\n", 
 RowBox[{
  RowBox[{"X", "=", 
   RowBox[{"{", 
    RowBox[{"x0", ",", "x1"}], "}"}]}], ";"}], "\n", 
 RowBox[{"RealizationToSeries", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"g0", ",", "g1"}], "}"}], ",", "h", ",", "z0", ",", "X", ",", 
   "5"}], "]"}]}], "Code",
 CellChangeTimes->{{3.5804186281218176`*^9, 3.5804188030608234`*^9}, {
  3.580421872836373*^9, 3.5804218768796043`*^9}, {3.5820658538710413`*^9, 
  3.5820658865679116`*^9}},ExpressionUUID->"8947f218-1bed-42ed-bfcc-\
a996ca01b387"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   RowBox[{"x0", "**", "x1"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"x0", "**", "x1", "**", "x1"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{"x0", "**", "x1", "**", "x0", "**", "x1"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
   "x0", "**", "x1", "**", "x0", "**", "x0", "**", "x1"}]}]}]], "Output",
 CellChangeTimes->{3.5804219078943777`*^9, 3.5831873556148453`*^9, 
  3.5850886489039345`*^9},ExpressionUUID->"c651a3a9-7798-452b-9604-\
b5a0dbbc21ca"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1141.5, 575.25},
WindowMargins->{{911.25, Automatic}, {Automatic, 93}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{612, 792}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> True}},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.25, 1.25 Inherited],
FrontEndVersion->"13.0 for Microsoft Windows (64-bit) (December 2, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"9bfa6312-48a1-424e-9bdd-083ef7fb4735"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "A"->{
  Cell[2769, 75, 138, 2, 45, "Subsection",ExpressionUUID->"3fc1cb1b-44a8-4289-ba7e-87b08ae4f09c",
   CellTags->"A"]},
 "RhoRightAugment"->{
  Cell[58584, 1896, 240, 4, 45, "Subsection",ExpressionUUID->"f6f7311f-6467-4c24-be57-b8495e762790",
   CellTags->"RhoRightAugment"]},
 "RightAugment"->{
  Cell[68174, 2188, 186, 3, 45, "Subsection",ExpressionUUID->"e732671d-7eda-4d62-9e9b-b3130b44510a",
   CellTags->"RightAugment"]},
 "Antipode"->{
  Cell[87390, 2832, 178, 2, 45, "Subsection",ExpressionUUID->"a7ded4d2-ce0f-4b0e-870f-e9aa23792be5",
   CellTags->"Antipode"]},
 "MapCoordinateFunctions"->{
  Cell[173469, 5501, 209, 4, 46, "Subsection",ExpressionUUID->"a61156aa-95b6-4613-9c14-647b36226e71",
   CellTags->"MapCoordinateFunctions"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"A", 221906, 7130},
 {"RhoRightAugment", 222046, 7133},
 {"RightAugment", 222200, 7136},
 {"Antipode", 222347, 7139},
 {"MapCoordinateFunctions", 222504, 7142}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 389, 9, 23, "Input",ExpressionUUID->"1bec0b65-857e-48af-b1af-5126cf30d4f3",
 CellOpen->False],
Cell[CellGroupData[{
Cell[971, 33, 169, 2, 101, "Title",ExpressionUUID->"2334d109-8743-4cbd-83cf-f8b7c4ae2fa5"],
Cell[1143, 37, 340, 7, 98, "Subtitle",ExpressionUUID->"895c9b54-143e-47b3-9ac5-4ea1c53660f2"],
Cell[1486, 46, 1071, 18, 180, "Subsubtitle",ExpressionUUID->"b6bc05ae-5c56-47b4-bdc1-30e496097d1b"],
Cell[CellGroupData[{
Cell[2582, 68, 162, 3, 87, "Section",ExpressionUUID->"e819e21d-ada4-47b9-bc26-5255d26d6022"],
Cell[CellGroupData[{
Cell[2769, 75, 138, 2, 45, "Subsection",ExpressionUUID->"3fc1cb1b-44a8-4289-ba7e-87b08ae4f09c",
 CellTags->"A"],
Cell[CellGroupData[{
Cell[2932, 81, 164, 3, 33, "Subsubsection",ExpressionUUID->"aff82b6c-221c-4f02-8ff0-5d1971e741c8"],
Cell[3099, 86, 1270, 30, 39, "Text",ExpressionUUID->"2dd1cb52-67aa-4d69-aa52-674e53c8e1da"],
Cell[4372, 118, 602, 15, 39, "Text",ExpressionUUID->"c35bbd9d-d805-478a-a621-d5c174ed6e5e"],
Cell[4977, 135, 721, 19, 38, "Text",ExpressionUUID->"2c8f41f7-ab33-4e8e-b6e7-300b5555c3da"],
Cell[5701, 156, 3592, 103, 61, "Text",ExpressionUUID->"14e1b53d-b0b3-4a7c-b6a7-cf6c3b0b8dbb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9330, 264, 161, 3, 33, "Subsubsection",ExpressionUUID->"188f86e0-15b4-421c-a899-bc013b7feded"],
Cell[9494, 269, 342, 7, 42, "Code",ExpressionUUID->"aee07f5e-adad-42af-a6d3-71d32a17c4e9",
 InitializationCell->False],
Cell[9839, 278, 1116, 32, 83, "Text",ExpressionUUID->"af41dfa5-ed53-4eef-ace8-524aa18947ff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10992, 315, 162, 3, 33, "Subsubsection",ExpressionUUID->"57f83e58-6b11-4dd3-9456-75cbda02b7e5"],
Cell[CellGroupData[{
Cell[11179, 322, 284, 7, 62, "Code",ExpressionUUID->"434289e5-3489-48e0-9f18-5efab4399942"],
Cell[11466, 331, 231, 6, 36, "Output",ExpressionUUID->"99d5d988-2f47-43b4-a98f-55834593011d"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11770, 345, 168, 3, 87, "Section",ExpressionUUID->"a6d422eb-d2cf-4113-9c55-dfa31f2d10b1"],
Cell[CellGroupData[{
Cell[11963, 352, 223, 4, 45, "Subsection",ExpressionUUID->"18b9a6eb-2424-4ff8-96ac-4d9c365014e9"],
Cell[CellGroupData[{
Cell[12211, 360, 164, 3, 33, "Subsubsection",ExpressionUUID->"282a6052-3c02-4ee4-b2be-32fb567ccc1c"],
Cell[12378, 365, 1262, 39, 36, "Text",ExpressionUUID->"6af7caa3-b46e-4730-bcc7-34cb23820ef1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13677, 409, 210, 4, 33, "Subsubsection",ExpressionUUID->"a7d5530d-c4f3-4853-8d06-2bec2d1c8dbd"],
Cell[13890, 415, 379, 7, 42, "Code",ExpressionUUID->"ce1d8128-961f-4dc0-9098-a232eba8ec3a",
 InitializationCell->False],
Cell[14272, 424, 470, 13, 36, "Text",ExpressionUUID->"87e96d93-bab5-47d0-a2d3-b6626f877693"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14779, 442, 211, 4, 33, "Subsubsection",ExpressionUUID->"9fc94b92-a450-417b-abdd-3d7077028506"],
Cell[CellGroupData[{
Cell[15015, 450, 470, 11, 85, "Code",ExpressionUUID->"dd20e6ae-4012-4290-8d03-5f9ce9c6d1a4"],
Cell[15488, 463, 261, 6, 36, "Output",ExpressionUUID->"cf089261-7c3a-40b1-8f29-9ad113d55bc5"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15810, 476, 158, 3, 45, "Subsection",ExpressionUUID->"f153f19e-ba35-498c-bbfe-ddae95d4e700"],
Cell[CellGroupData[{
Cell[15993, 483, 164, 3, 33, "Subsubsection",ExpressionUUID->"c4cd9f07-b959-4594-8b27-e72e0de5a921"],
Cell[16160, 488, 1158, 34, 39, "Text",ExpressionUUID->"00ea0de7-ca76-45bf-8b7b-0bb2b58011a8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17355, 527, 161, 3, 33, "Subsubsection",ExpressionUUID->"81dd2a32-ca61-49a6-81fb-9a924979c29a"],
Cell[17519, 532, 226, 5, 42, "Code",ExpressionUUID->"ea7e014a-e6b7-4044-adf0-c352af85ecad",
 InitializationCell->False],
Cell[17748, 539, 369, 9, 36, "Text",ExpressionUUID->"c7682762-fab8-4c67-80cf-d5a1febbae28"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18154, 553, 159, 3, 33, "Subsubsection",ExpressionUUID->"7893bcb8-096d-416d-a886-394348efab2c"],
Cell[CellGroupData[{
Cell[18338, 560, 302, 8, 62, "Code",ExpressionUUID->"a8680197-59e0-406f-b751-5c39a12ddcda"],
Cell[18643, 570, 200, 4, 36, "Output",ExpressionUUID->"8ac9f7c6-dda1-4d50-b33e-be4a9a9745bd"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18904, 581, 232, 4, 45, "Subsection",ExpressionUUID->"15d1017c-9f1a-43a7-9066-80bc38088c75"],
Cell[CellGroupData[{
Cell[19161, 589, 164, 3, 33, "Subsubsection",ExpressionUUID->"02fa9138-d2d6-427c-87f0-47c1376a15f4"],
Cell[19328, 594, 801, 21, 35, "Text",ExpressionUUID->"ac8ab75c-cc08-4242-bad7-f94b0a8faacd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20166, 620, 159, 3, 33, "Subsubsection",ExpressionUUID->"9fa16aa8-aa9f-4683-8a0e-c56d3da34de5"],
Cell[20328, 625, 278, 6, 42, "Code",ExpressionUUID->"ecf25f3e-d785-4c26-b05f-9035e3fec292",
 InitializationCell->False],
Cell[20609, 633, 418, 10, 36, "Text",ExpressionUUID->"bb32fb14-00d0-44ca-a588-e2a4dd398770"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21064, 648, 157, 3, 33, "Subsubsection",ExpressionUUID->"cb3f90cc-4977-4941-ad4e-9694fad27110"],
Cell[CellGroupData[{
Cell[21246, 655, 375, 8, 62, "Code",ExpressionUUID->"f6df272e-d690-4ed6-82bf-13f9f68dadcc"],
Cell[21624, 665, 182, 4, 36, "Output",ExpressionUUID->"d7f2ee3a-8eb9-4b85-9fd6-c44860a2b4da"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21867, 676, 161, 3, 45, "Subsection",ExpressionUUID->"ed57f470-baab-4864-b8f3-7af849f9d69d"],
Cell[CellGroupData[{
Cell[22053, 683, 162, 3, 33, "Subsubsection",ExpressionUUID->"acc17642-1d3a-49f7-b90a-cccd761efd6b"],
Cell[22218, 688, 1061, 30, 36, "Text",ExpressionUUID->"5a2d1c78-ae63-4314-9991-e7749afc6c78"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23316, 723, 159, 3, 33, "Subsubsection",ExpressionUUID->"050654fe-7854-4fd5-b607-5317d7711320"],
Cell[23478, 728, 300, 7, 42, "Code",ExpressionUUID->"5d38dcc6-7296-498a-8bc5-b9fd658adcee",
 InitializationCell->False],
Cell[23781, 737, 547, 16, 36, "Text",ExpressionUUID->"1127bc83-caa6-472a-ad0a-203e73c34a02"],
Cell[24331, 755, 304, 7, 42, "Code",ExpressionUUID->"745c8862-a3af-4c70-b212-7d47fc97a3ef",
 InitializationCell->False],
Cell[24638, 764, 1451, 48, 59, "Text",ExpressionUUID->"c4b821b0-51e0-4526-bd46-793080f86d5a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26126, 817, 162, 3, 33, "Subsubsection",ExpressionUUID->"ddaf4b9c-ae86-43f5-9b46-d29ddca15ea4"],
Cell[CellGroupData[{
Cell[26313, 824, 684, 18, 107, "Code",ExpressionUUID->"9abd2a05-43a1-43b9-b13d-8603836cd098"],
Cell[27000, 844, 215, 6, 36, "Output",ExpressionUUID->"e1fa96cf-6916-4439-aa69-9aef9da0d4f7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27252, 855, 739, 21, 129, "Code",ExpressionUUID->"dcd49778-0f79-4edb-a2c9-c847458a7595"],
Cell[27994, 878, 215, 6, 36, "Output",ExpressionUUID->"98b1ac1c-fbc6-4190-aa3b-42ae02a73ea6"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28270, 891, 158, 3, 45, "Subsection",ExpressionUUID->"01e2d044-8f1f-4d7a-97be-5940ce0b7aef"],
Cell[CellGroupData[{
Cell[28453, 898, 162, 3, 33, "Subsubsection",ExpressionUUID->"365bc1a8-9ba0-4508-8e4d-06144fd41d7c"],
Cell[28618, 903, 2315, 67, 68, "Text",ExpressionUUID->"8a2c6b29-a0ad-4595-bffa-c12190883210"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30970, 975, 161, 3, 33, "Subsubsection",ExpressionUUID->"15616037-5ba8-476d-8b12-3d1175b943df"],
Cell[31134, 980, 274, 6, 42, "Code",ExpressionUUID->"a08e5672-df66-4535-8b04-831d2083c24b",
 InitializationCell->False],
Cell[31411, 988, 378, 9, 36, "Text",ExpressionUUID->"deff1d6d-8e67-4f1e-ae2a-698fae35bc20"],
Cell[31792, 999, 255, 6, 42, "Code",ExpressionUUID->"c85a2a79-2992-4123-93a2-f4ef312ff58d",
 InitializationCell->False],
Cell[32050, 1007, 324, 9, 36, "Text",ExpressionUUID->"09ce16ce-ae17-4b86-b2e9-ef330d342b8e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32411, 1021, 160, 3, 33, "Subsubsection",ExpressionUUID->"5a7bf1bd-8bf5-4bde-842c-64df1f058b78"],
Cell[CellGroupData[{
Cell[32596, 1028, 374, 8, 62, "Code",ExpressionUUID->"77b02d39-aa8f-41e8-99df-1867af5fdde4"],
Cell[32973, 1038, 154, 3, 36, "Output",ExpressionUUID->"68d17ad4-9ca5-4a04-b4b3-79a573254e5f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33164, 1046, 381, 9, 62, "Code",ExpressionUUID->"206bf057-c418-42a7-9cce-203d2a1ed7a5"],
Cell[33548, 1057, 152, 3, 36, "Output",ExpressionUUID->"4137b456-125a-4893-b601-944f2ecccfd3"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[33761, 1067, 206, 4, 45, "Subsection",ExpressionUUID->"fbb92f24-a3a6-4691-882f-45cb20409692"],
Cell[CellGroupData[{
Cell[33992, 1075, 162, 3, 33, "Subsubsection",ExpressionUUID->"f65c2d27-88d1-49aa-9496-6891469a0cee"],
Cell[34157, 1080, 1947, 61, 64, "Text",ExpressionUUID->"5ccda1d3-3c88-4d03-b945-cb728b7d31e7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36141, 1146, 159, 3, 33, "Subsubsection",ExpressionUUID->"91d93b31-5a1e-4877-b169-8435eb774b4e"],
Cell[36303, 1151, 220, 5, 42, "Code",ExpressionUUID->"ad042459-dfd3-46bb-b32f-301f1a1da76e",
 InitializationCell->False],
Cell[36526, 1158, 403, 10, 36, "Text",ExpressionUUID->"15f8921b-9af6-490c-aa46-81848cfff1fd"],
Cell[36932, 1170, 248, 6, 42, "Code",ExpressionUUID->"2529ba11-eac8-4b32-baa8-85b9132771b8",
 InitializationCell->False],
Cell[37183, 1178, 350, 9, 36, "Text",ExpressionUUID->"3219b5d4-20ca-4e32-bcea-58b989ecde43"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37570, 1192, 158, 3, 33, "Subsubsection",ExpressionUUID->"2bc94956-28d9-4c11-b136-8b2ea56fabc7"],
Cell[CellGroupData[{
Cell[37753, 1199, 300, 7, 62, "Code",ExpressionUUID->"3d35a609-beeb-4e3a-a71d-6ddaf5ba71c8"],
Cell[38056, 1208, 204, 4, 36, "Output",ExpressionUUID->"cab9fe9e-c29f-45ff-8c3a-a8399cddb734"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38297, 1217, 327, 8, 62, "Code",ExpressionUUID->"b330846f-2a61-4b3c-9808-c360a153a4ac"],
Cell[38627, 1227, 206, 4, 36, "Output",ExpressionUUID->"89b5b767-ee6b-4a20-8f96-2f846ac2fcc4"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[38894, 1238, 157, 3, 45, "Subsection",ExpressionUUID->"bea9e9b9-a3e7-4aaa-9f3e-5a1a56d3ed35"],
Cell[CellGroupData[{
Cell[39076, 1245, 166, 3, 33, "Subsubsection",ExpressionUUID->"7210e6e2-6dbf-48f2-9df1-4adae6affe22"],
Cell[39245, 1250, 435, 11, 35, "Text",ExpressionUUID->"50a4a9e4-8d48-4486-9a93-57ed341ec4ad"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39717, 1266, 159, 3, 33, "Subsubsection",ExpressionUUID->"961f7ad4-b87a-42ab-9f35-5ad6b178184e"],
Cell[39879, 1271, 249, 6, 42, "Code",ExpressionUUID->"53160aa5-7f3d-414e-90a6-103da21d0f98",
 InitializationCell->False],
Cell[40131, 1279, 483, 13, 36, "Text",ExpressionUUID->"7b9c0db2-a99a-4982-985d-596a8a40a644"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40651, 1297, 160, 3, 33, "Subsubsection",ExpressionUUID->"ea8593ad-99cc-4c78-8c3a-ea1236164506"],
Cell[CellGroupData[{
Cell[40836, 1304, 372, 10, 62, "Code",ExpressionUUID->"7d3aa671-0c93-4c35-8893-dafabfed1c2e"],
Cell[41211, 1316, 265, 7, 36, "Output",ExpressionUUID->"4215d8a2-c137-4c13-9fc3-998cf9ff92a0"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[41537, 1330, 158, 3, 45, "Subsection",ExpressionUUID->"9c89c587-532c-4ae4-abf7-0f82f93f0291"],
Cell[CellGroupData[{
Cell[41720, 1337, 164, 3, 33, "Subsubsection",ExpressionUUID->"fa3ccfe1-3803-4529-b04f-0b94609eb126"],
Cell[41887, 1342, 943, 28, 35, "Text",ExpressionUUID->"acb0754d-c4bb-44e0-bd8b-9fe8fbf80c02"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42867, 1375, 159, 3, 33, "Subsubsection",ExpressionUUID->"2563efbe-cffb-4bbd-a953-3c0f82c2c61a"],
Cell[43029, 1380, 223, 5, 42, "Code",ExpressionUUID->"6346d5c9-b829-4ddc-8c27-97ee542d5deb",
 InitializationCell->False],
Cell[43255, 1387, 418, 10, 36, "Text",ExpressionUUID->"d47632ec-10d9-4c46-a805-2270ea260e41"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43710, 1402, 157, 3, 33, "Subsubsection",ExpressionUUID->"e53fbfcb-4845-46e8-bc7e-04ae528ac343"],
Cell[CellGroupData[{
Cell[43892, 1409, 300, 7, 62, "Code",ExpressionUUID->"0e23cd0b-b1a2-49c4-8f3c-a963b12bbf46"],
Cell[44195, 1418, 229, 6, 36, "Output",ExpressionUUID->"e3327d0a-9750-4402-91df-058c013708fd"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[44485, 1431, 155, 3, 45, "Subsection",ExpressionUUID->"7c1f8c1e-3f63-4664-8a68-fcaddc244356"],
Cell[CellGroupData[{
Cell[44665, 1438, 164, 3, 33, "Subsubsection",ExpressionUUID->"7584991b-0df5-4169-be18-af60e882c6cc"],
Cell[44832, 1443, 812, 25, 35, "Text",ExpressionUUID->"5f1ef3e4-1943-4f34-8b59-d8b167993877"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45681, 1473, 161, 3, 33, "Subsubsection",ExpressionUUID->"d4b1525c-a44f-42de-a32e-3a4c2ff93686"],
Cell[45845, 1478, 222, 5, 42, "Code",ExpressionUUID->"0f1f32e6-5fc7-476c-a031-471da1023e00",
 InitializationCell->False],
Cell[46070, 1485, 325, 9, 36, "Text",ExpressionUUID->"c2d4200e-7105-4563-8207-3ba089c844e0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46432, 1499, 162, 3, 33, "Subsubsection",ExpressionUUID->"48076383-717f-40b2-aa2f-db6889ae26ae"],
Cell[CellGroupData[{
Cell[46619, 1506, 324, 7, 62, "Code",ExpressionUUID->"e45f56fc-ed08-4f06-a1b8-a59a77c6113f"],
Cell[46946, 1515, 134, 3, 36, "Output",ExpressionUUID->"d7742d18-a50a-4a9d-97a7-b9c7752956fc"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[47141, 1525, 166, 3, 45, "Subsection",ExpressionUUID->"aca5fc3f-0471-452f-a4f1-30fddc7588b8"],
Cell[CellGroupData[{
Cell[47332, 1532, 161, 3, 33, "Subsubsection",ExpressionUUID->"333b9edd-7c30-47cb-ae25-648f862d7c4d"],
Cell[47496, 1537, 5223, 170, 116, "Text",ExpressionUUID->"e3949d20-0a99-4a66-8e78-6aa9eecb6e33"],
Cell[52722, 1709, 2919, 89, 129, "Text",ExpressionUUID->"28a7ecad-85c0-4c6b-ad6b-b0e6282339e8"],
Cell[55644, 1800, 633, 19, 57, "Text",ExpressionUUID->"6d05bc50-8456-4e8c-ae32-7d1242bf6bdb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56314, 1824, 159, 3, 33, "Subsubsection",ExpressionUUID->"ac748693-237c-465d-ab0f-b10759c0b048"],
Cell[56476, 1829, 317, 7, 42, "Code",ExpressionUUID->"a8a07be9-dbaf-4ea0-9a98-9f05d0931eb1",
 InitializationCell->False],
Cell[56796, 1838, 623, 18, 36, "Text",ExpressionUUID->"329db6aa-ed42-421e-aa26-759515dca40d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57456, 1861, 162, 3, 33, "Subsubsection",ExpressionUUID->"b282a241-8830-4dfb-96b6-0d972eb28c3c"],
Cell[CellGroupData[{
Cell[57643, 1868, 699, 15, 62, "Code",ExpressionUUID->"05f2db6f-bfbc-43d6-9c43-97d2d7695d37"],
Cell[58345, 1885, 178, 4, 36, "Output",ExpressionUUID->"e80910ea-5722-4744-9816-4307cf924eb7"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[58584, 1896, 240, 4, 45, "Subsection",ExpressionUUID->"f6f7311f-6467-4c24-be57-b8495e762790",
 CellTags->"RhoRightAugment"],
Cell[CellGroupData[{
Cell[58849, 1904, 162, 3, 33, "Subsubsection",ExpressionUUID->"be61a8d0-c0a4-4666-b1ea-9c01fb26bd1e"],
Cell[59014, 1909, 1735, 47, 37, "Text",ExpressionUUID->"69dfe5c2-34f6-4103-9dbf-178da8143a65"],
Cell[60752, 1958, 1721, 47, 62, "Text",ExpressionUUID->"fba52d06-ce77-4c2a-87e9-93822700c30f"],
Cell[62476, 2007, 957, 29, 37, "Text",ExpressionUUID->"59eab73d-839e-4d50-a48d-aeebeb596008"],
Cell[63436, 2038, 180, 3, 35, "Text",ExpressionUUID->"f1fa0cc3-71de-4bba-b85d-76043a9e0faa"],
Cell[63619, 2043, 1519, 38, 49, "Text",ExpressionUUID->"ca7e35f3-ec6b-44d8-853f-21fa8a868723"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65175, 2086, 159, 3, 33, "Subsubsection",ExpressionUUID->"2dbf1551-073b-4b35-81c5-eeac24201aa9"],
Cell[65337, 2091, 362, 7, 42, "Code",ExpressionUUID->"76cab8c6-e766-4483-b906-d3a5450efd73",
 InitializationCell->False],
Cell[65702, 2100, 1208, 39, 37, "Text",ExpressionUUID->"035e5ab4-d674-4208-8020-07ec42609233"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66947, 2144, 160, 3, 33, "Subsubsection",ExpressionUUID->"1c18982d-c366-4e62-9413-94b2350ccdc0"],
Cell[CellGroupData[{
Cell[67132, 2151, 515, 14, 85, "Code",ExpressionUUID->"0a5eeda9-dcd3-4f4d-83ab-cc742c4f8d07"],
Cell[67650, 2167, 463, 14, 36, "Output",ExpressionUUID->"359e4410-d43a-4f1a-993b-04667f4a9517"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[68174, 2188, 186, 3, 45, "Subsection",ExpressionUUID->"e732671d-7eda-4d62-9e9b-b3130b44510a",
 CellTags->"RightAugment"],
Cell[CellGroupData[{
Cell[68385, 2195, 162, 3, 33, "Subsubsection",ExpressionUUID->"cf047c15-094a-4f67-aa98-0842a7a6ed29"],
Cell[68550, 2200, 1558, 46, 37, "Text",ExpressionUUID->"af179b5c-9ee1-45c2-b261-2f1b80d844ac"],
Cell[70111, 2248, 829, 23, 58, "Text",ExpressionUUID->"be80a906-8627-4df2-b3d6-88afd8b7e324"],
Cell[70943, 2273, 920, 23, 60, "Text",ExpressionUUID->"45a370af-5df9-46a1-991a-84f9cb3a25c9"],
Cell[71866, 2298, 1002, 25, 39, "Text",ExpressionUUID->"9deb98cf-cc24-4ee5-b634-850b8fa33341"],
Cell[72871, 2325, 180, 3, 35, "Text",ExpressionUUID->"739f863f-7ef6-4b99-b67c-b38834a3660f"],
Cell[73054, 2330, 1443, 37, 46, "Text",ExpressionUUID->"73cc0014-1a18-49d7-b007-57773bc2c04d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74534, 2372, 159, 3, 33, "Subsubsection",ExpressionUUID->"98bce535-b299-4dd0-9cf1-5938c1b7fb05"],
Cell[74696, 2377, 260, 6, 42, "Code",ExpressionUUID->"8e529396-380d-42f0-8ad8-e771b668a873",
 InitializationCell->False],
Cell[74959, 2385, 1235, 39, 37, "Text",ExpressionUUID->"c548b875-c8c6-4171-96ba-4abb47ca6a72"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76231, 2429, 160, 3, 33, "Subsubsection",ExpressionUUID->"71c956f3-9a6e-4672-a724-8be4ff822e5d"],
Cell[CellGroupData[{
Cell[76416, 2436, 466, 14, 85, "Code",ExpressionUUID->"ee666f69-2e2c-48cd-9893-26f338550e0d"],
Cell[76885, 2452, 245, 6, 36, "Output",ExpressionUUID->"e47c1703-c063-4c99-9252-66b001f21916"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[77191, 2465, 155, 3, 45, "Subsection",ExpressionUUID->"0116876b-8138-4520-bce7-c93438862473"],
Cell[CellGroupData[{
Cell[77371, 2472, 164, 3, 33, "Subsubsection",ExpressionUUID->"9d5c9854-eabc-4125-ae6a-cc391de96df6"],
Cell[77538, 2477, 959, 32, 35, "Text",ExpressionUUID->"fc130072-f46c-4ce6-83c4-0f61fafe95d9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78534, 2514, 159, 3, 33, "Subsubsection",ExpressionUUID->"1bbf6f35-f99a-4b4b-bb51-97b8aa78a522"],
Cell[78696, 2519, 218, 5, 42, "Code",ExpressionUUID->"85defd72-6780-4486-8000-29d796f79e3a",
 InitializationCell->False],
Cell[78917, 2526, 317, 9, 36, "Text",ExpressionUUID->"85fb867d-a42d-4fdf-8119-146e52b03543"]
}, Open  ]],
Cell[CellGroupData[{
Cell[79271, 2540, 162, 3, 33, "Subsubsection",ExpressionUUID->"f9b2993c-e7e0-4f67-8575-13822827340f"],
Cell[CellGroupData[{
Cell[79458, 2547, 294, 8, 62, "Code",ExpressionUUID->"9f16d385-59fe-4abf-a367-c9c0a46749cd"],
Cell[79755, 2557, 241, 7, 36, "Output",ExpressionUUID->"0a8edd80-20e1-494e-997f-3c504e287c4d"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[80057, 2571, 164, 3, 45, "Subsection",ExpressionUUID->"4f7254ae-b408-4b2d-91e8-f0bfe289bc71"],
Cell[CellGroupData[{
Cell[80246, 2578, 164, 3, 33, "Subsubsection",ExpressionUUID->"48e406b3-e6f4-4ea1-a093-845f017d0b87"],
Cell[80413, 2583, 954, 30, 35, "Text",ExpressionUUID->"05ad63f9-b1af-4bdd-9f54-eb543647f692"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81404, 2618, 159, 3, 33, "Subsubsection",ExpressionUUID->"f494e10b-fba3-4c26-ab54-d228edbaf553"],
Cell[81566, 2623, 253, 6, 42, "Code",ExpressionUUID->"517f3513-fc8f-4140-bc12-ec177596f457",
 InitializationCell->False],
Cell[81822, 2631, 434, 13, 36, "Text",ExpressionUUID->"03759343-7b50-41f3-a6d2-69aa9b475d63"]
}, Open  ]],
Cell[CellGroupData[{
Cell[82293, 2649, 158, 3, 33, "Subsubsection",ExpressionUUID->"b04e0420-3a14-4a9b-9c84-150d7ed13774"],
Cell[CellGroupData[{
Cell[82476, 2656, 328, 8, 62, "Code",ExpressionUUID->"38b2b637-0571-4eeb-acff-d2743d89fe30"],
Cell[82807, 2666, 191, 5, 36, "Output",ExpressionUUID->"83b400ed-fc15-46fc-9eb9-a709b1a1fbc3"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[83059, 2678, 160, 3, 45, "Subsection",ExpressionUUID->"dbafa208-114a-47f4-b5de-c8c83d988620"],
Cell[CellGroupData[{
Cell[83244, 2685, 164, 3, 33, "Subsubsection",ExpressionUUID->"8329cf42-5626-4e3b-9b38-11bcd0897565"],
Cell[83411, 2690, 1030, 31, 39, "Text",ExpressionUUID->"c26c0687-1c6d-4d6c-b2eb-1f556faee358"]
}, Open  ]],
Cell[CellGroupData[{
Cell[84478, 2726, 159, 3, 33, "Subsubsection",ExpressionUUID->"2705aa80-d8da-448c-b32c-8c479c9cd6d8"],
Cell[84640, 2731, 218, 5, 42, "Code",ExpressionUUID->"e09b56a2-9300-4c51-ad47-093013c76813",
 InitializationCell->False],
Cell[84861, 2738, 373, 9, 36, "Text",ExpressionUUID->"18c2dd52-4be5-45e6-899f-54a87fa2c004"],
Cell[85237, 2749, 249, 6, 42, "Code",ExpressionUUID->"0bb7f8b5-8a27-483b-8f4b-6b916d1e8baa",
 InitializationCell->False],
Cell[85489, 2757, 290, 11, 36, "Text",ExpressionUUID->"56b6a2d4-b10b-429e-9ccd-2c24fdf3c69e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[85816, 2773, 160, 3, 33, "Subsubsection",ExpressionUUID->"6933dba8-c8ea-401d-b6e8-a761b6a568c5"],
Cell[CellGroupData[{
Cell[86001, 2780, 339, 8, 62, "Code",ExpressionUUID->"1be04007-5b9e-4b4b-aef9-da9c653a3a19"],
Cell[86343, 2790, 187, 5, 36, "Output",ExpressionUUID->"b4fef3b3-fb7d-4a04-9ded-67b50795d487"]
}, Open  ]],
Cell[CellGroupData[{
Cell[86567, 2800, 370, 10, 62, "Code",ExpressionUUID->"4039e5e1-c6b9-48c7-b7c0-0385cd17e264"],
Cell[86940, 2812, 187, 5, 36, "Output",ExpressionUUID->"cf96ff9f-8111-4817-a26d-d21472a7b8a8"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[87200, 2825, 165, 3, 87, "Section",ExpressionUUID->"9bcf76e5-3336-4431-9f15-75b0f2f2287f"],
Cell[CellGroupData[{
Cell[87390, 2832, 178, 2, 45, "Subsection",ExpressionUUID->"a7ded4d2-ce0f-4b0e-870f-e9aa23792be5",
 CellTags->"Antipode"],
Cell[CellGroupData[{
Cell[87593, 2838, 163, 3, 33, "Subsubsection",ExpressionUUID->"b163c66f-3fd5-4317-8b82-8f12f8fddb8b"],
Cell[87759, 2843, 805, 22, 39, "Text",ExpressionUUID->"d6f78224-f894-4024-b289-00e5d537b9a0"],
Cell[88567, 2867, 800, 19, 39, "Text",ExpressionUUID->"afe497b0-f782-43ab-8559-72f8864a29d0"],
Cell[89370, 2888, 177, 3, 35, "Text",ExpressionUUID->"0d997b66-4423-48a9-b193-d756140ff88b"],
Cell[89550, 2893, 824, 18, 41, "Text",ExpressionUUID->"b24dbb19-4325-4f87-9c20-c2f31883ab1d"],
Cell[90377, 2913, 993, 30, 37, "Text",ExpressionUUID->"e99cf2ce-f9ba-485d-8097-b2f1014c3940"]
}, Open  ]],
Cell[CellGroupData[{
Cell[91407, 2948, 159, 3, 33, "Subsubsection",ExpressionUUID->"81b4dff4-8fd5-4f0a-8d6c-12d8fc319807"],
Cell[91569, 2953, 246, 6, 42, "Code",ExpressionUUID->"adf2ce09-9d8b-4d84-abdb-9996d2759728",
 InitializationCell->False],
Cell[91818, 2961, 1099, 34, 37, "Text",ExpressionUUID->"e8993f0b-e47a-4893-a71e-2eec86122bce"]
}, Open  ]],
Cell[CellGroupData[{
Cell[92954, 3000, 160, 3, 33, "Subsubsection",ExpressionUUID->"5752f379-4c0e-4522-9ef9-5cb3201854d8"],
Cell[CellGroupData[{
Cell[93139, 3007, 446, 13, 85, "Code",ExpressionUUID->"4ebe84f3-607c-48cf-b785-9583e843d647"],
Cell[93588, 3022, 507, 16, 38, "Output",ExpressionUUID->"ed053275-3306-43d0-9cdd-f407ada3f947"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[94156, 3045, 165, 3, 45, "Subsection",ExpressionUUID->"8da27951-dc38-46e3-b96f-44de14ec41a1"],
Cell[94324, 3050, 162, 3, 33, "Subsubsection",ExpressionUUID->"d26e4f55-a1af-49fc-9936-afc319694e7f"],
Cell[94489, 3055, 159, 3, 24, "Subsubsection",ExpressionUUID->"220d6f58-6d8f-4340-a5c4-c561562bc2c4"],
Cell[94651, 3060, 162, 3, 24, "Subsubsection",ExpressionUUID->"0b41ee43-b4f9-474f-b3aa-1132f4d99fa8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94850, 3068, 168, 3, 45, "Subsection",ExpressionUUID->"6b155859-e3f4-4c57-be57-d1131ffda82f"],
Cell[CellGroupData[{
Cell[95043, 3075, 162, 3, 33, "Subsubsection",ExpressionUUID->"07236e77-c200-4d9b-845c-e434467a8342"],
Cell[95208, 3080, 835, 16, 35, "Text",ExpressionUUID->"b03303f0-8f9c-40dd-987b-ce25a32a9329"],
Cell[96046, 3098, 462, 10, 35, "Text",ExpressionUUID->"a8da4e1c-ca2a-4641-9a7e-c1a488245d03"],
Cell[96511, 3110, 151, 3, 35, "Text",ExpressionUUID->"0907c320-0303-4b7e-be8e-defb416964e5"],
Cell[96665, 3115, 885, 18, 34, "Text",ExpressionUUID->"834857da-a863-45cb-b21d-0fe51d11732a"],
Cell[97553, 3135, 1049, 27, 35, "Text",ExpressionUUID->"129bd57d-5488-4c0a-a794-800a737c4572"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98639, 3167, 158, 3, 33, "Subsubsection",ExpressionUUID->"80eb2062-625d-41e3-82d2-12a41d741728"],
Cell[98800, 3172, 317, 7, 36, "Input",ExpressionUUID->"1804615d-8845-4a91-986e-d0f517034260"],
Cell[99120, 3181, 675, 18, 36, "Text",ExpressionUUID->"361aae56-ca1f-47ac-924a-f03ecdec71df"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99832, 3204, 162, 3, 33, "Subsubsection",ExpressionUUID->"70630e02-cd0a-4938-86f0-9e9fa0020107"],
Cell[CellGroupData[{
Cell[100019, 3211, 601, 15, 85, "Code",ExpressionUUID->"eca5f8fa-2746-49ed-b872-66a38b6ab4b0"],
Cell[100623, 3228, 247, 8, 36, "Output",ExpressionUUID->"e89ad602-ef55-4a50-a0c6-e2fa49348179"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[100931, 3243, 169, 3, 45, "Subsection",ExpressionUUID->"557b366c-454c-4203-9c3e-6f0ef0aab83f"],
Cell[CellGroupData[{
Cell[101125, 3250, 162, 3, 33, "Subsubsection",ExpressionUUID->"be64c14b-f2c6-49c4-8478-7ef7350be4d6"],
Cell[101290, 3255, 6670, 204, 180, "Text",ExpressionUUID->"06db8297-311d-48d5-8a76-84bd076d7ffd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[107997, 3464, 161, 3, 33, "Subsubsection",ExpressionUUID->"da5ff92c-37c5-4777-be43-11e6717bfcda"],
Cell[108161, 3469, 285, 6, 42, "Code",ExpressionUUID->"6ebf4578-c42c-436f-bff3-71ad1a2c417f",
 InitializationCell->False],
Cell[108449, 3477, 323, 9, 36, "Text",ExpressionUUID->"10cab2ab-4c63-4ffe-8857-36ce855d6630"],
Cell[108775, 3488, 358, 7, 42, "Code",ExpressionUUID->"4d9aada6-f1ab-4ccd-83cc-9c73d63170bd",
 InitializationCell->False],
Cell[109136, 3497, 479, 11, 36, "Text",ExpressionUUID->"c95229c0-1b46-4414-aff9-69903fb786a3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[109652, 3513, 160, 3, 33, "Subsubsection",ExpressionUUID->"8f1e98c9-9318-490c-bb86-6168121eb37c"],
Cell[CellGroupData[{
Cell[109837, 3520, 800, 19, 85, "Code",ExpressionUUID->"b3a8a6b8-417d-4233-b3ce-876bf9d8f910"],
Cell[110640, 3541, 2627, 51, 301, "Print",ExpressionUUID->"e053ddee-6bee-4980-b428-c65997b31f44"],
Cell[113270, 3594, 327, 7, 36, "Output",ExpressionUUID->"29ee6f0e-d3bd-4b61-8674-6ddde597fa14"]
}, Open  ]],
Cell[CellGroupData[{
Cell[113634, 3606, 980, 27, 107, "Code",ExpressionUUID->"40c36ecf-a3a4-4f7d-a7f2-c1071b9c18d7"],
Cell[114617, 3635, 1057, 24, 74, "Print",ExpressionUUID->"eb203171-00c4-420b-9b0f-b1861fcfdadb"],
Cell[115677, 3661, 248, 7, 36, "Output",ExpressionUUID->"0de1fcf2-c757-4de3-b903-06f9826413f8"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[115986, 3675, 157, 3, 45, "Subsection",ExpressionUUID->"2fce950f-3a92-42f7-95c4-075adcdee337"],
Cell[116146, 3680, 163, 3, 33, "Subsubsection",ExpressionUUID->"b29bbab0-fea7-4e65-ae8a-786f343ab2db"],
Cell[116312, 3685, 157, 3, 24, "Subsubsection",ExpressionUUID->"25569c26-11e9-422d-bf47-a20fd3b913d2"],
Cell[116472, 3690, 158, 3, 24, "Subsubsection",ExpressionUUID->"24270f0e-9b28-423c-95b3-2825aae8afc7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[116667, 3698, 164, 3, 45, "Subsection",ExpressionUUID->"da33ad87-6c9a-4211-9415-e3d34b4fb501"],
Cell[116834, 3703, 162, 3, 33, "Subsubsection",ExpressionUUID->"fe099418-6a07-43bd-b728-4abc759af4cc"],
Cell[116999, 3708, 157, 3, 24, "Subsubsection",ExpressionUUID->"7a96a152-547d-4172-9fa2-8a899b46c2d0"],
Cell[117159, 3713, 160, 3, 24, "Subsubsection",ExpressionUUID->"55a6a35a-3d0e-4167-b428-95c6fcf0008f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[117356, 3721, 160, 3, 45, "Subsection",ExpressionUUID->"e03a8091-1ddf-4cb3-ab8d-1a20a442218d"],
Cell[CellGroupData[{
Cell[117541, 3728, 164, 3, 33, "Subsubsection",ExpressionUUID->"df556e89-cd66-49df-bb93-946390c869e4"],
Cell[117708, 3733, 2434, 84, 58, "Text",ExpressionUUID->"afcf0d0c-170f-4d95-a9c7-5b551c0b54a3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[120179, 3822, 159, 3, 33, "Subsubsection",ExpressionUUID->"26897ed4-d2c6-40c1-a31f-0fa9a709ad11"],
Cell[120341, 3827, 250, 6, 42, "Code",ExpressionUUID->"a6548f05-9fe4-4f25-a861-8124c80f498a",
 InitializationCell->False],
Cell[120594, 3835, 418, 13, 36, "Text",ExpressionUUID->"275563db-f9ff-4a62-a548-55e11b694ed7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[121049, 3853, 162, 3, 33, "Subsubsection",ExpressionUUID->"9977e951-517a-47e1-8b02-5a50b2b91970"],
Cell[CellGroupData[{
Cell[121236, 3860, 266, 7, 62, "Code",ExpressionUUID->"07c4ddf6-98ca-4057-bd2d-516683548290"],
Cell[121505, 3869, 337, 9, 36, "Output",ExpressionUUID->"81482f7c-f4c4-4312-808d-ee8c06e491e0"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[121903, 3885, 214, 4, 45, "Subsection",ExpressionUUID->"22157834-d9da-4eac-a560-3c023b3013ab"],
Cell[CellGroupData[{
Cell[122142, 3893, 166, 3, 33, "Subsubsection",ExpressionUUID->"1fb3df03-68f1-478a-99b4-05c44698f12b"],
Cell[122311, 3898, 406, 12, 35, "Text",ExpressionUUID->"7b9f418b-733a-4e40-aa3e-98098ab16bd1"],
Cell[122720, 3912, 2525, 67, 55, "Text",ExpressionUUID->"96e4449c-2f19-4b8f-9b8a-c015efe85994"],
Cell[125248, 3981, 1039, 27, 57, "Text",ExpressionUUID->"661dedcb-1144-45fa-b2ec-35e254ea5938"],
Cell[126290, 4010, 1303, 37, 61, "Text",ExpressionUUID->"1580cd31-225f-4e65-8271-394813a0a882"],
Cell[127596, 4049, 220, 4, 35, "Text",ExpressionUUID->"7a51e11a-05d8-4b99-8596-ce72216bf488"]
}, Open  ]],
Cell[CellGroupData[{
Cell[127853, 4058, 161, 3, 33, "Subsubsection",ExpressionUUID->"5d6aa355-580e-4d65-bc6a-a95504ebc9ac"],
Cell[128017, 4063, 252, 6, 42, "Code",ExpressionUUID->"3e421c3e-4cdd-403a-b701-d865d037bbc4",
 InitializationCell->False],
Cell[128272, 4071, 394, 12, 36, "Text",ExpressionUUID->"1a56df23-2140-45ee-8a63-55963269c0ec"],
Cell[128669, 4085, 266, 6, 42, "Code",ExpressionUUID->"26f09b2b-f100-4201-925d-4280495211c0",
 InitializationCell->False],
Cell[128938, 4093, 307, 9, 36, "Text",ExpressionUUID->"2e56a00e-2a3d-4f2a-9883-5efa52dfcbe9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[129282, 4107, 157, 3, 33, "Subsubsection",ExpressionUUID->"c9340ad6-52ad-4428-906e-2d7d83b0d948"],
Cell[CellGroupData[{
Cell[129464, 4114, 454, 12, 62, "Code",ExpressionUUID->"8263b39d-9107-4fbd-9897-a951eb370a14"],
Cell[129921, 4128, 257, 6, 36, "Output",ExpressionUUID->"cfc7a234-f70c-4754-9269-f9995333dafc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[130215, 4139, 381, 9, 62, "Code",ExpressionUUID->"0df3b39e-ebbe-4a6d-a2cd-aa242a90a204"],
Cell[130599, 4150, 157, 4, 36, "Output",ExpressionUUID->"772005c9-1ff4-43cf-b0b5-d70be471481a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[130793, 4159, 427, 9, 62, "Code",ExpressionUUID->"d24b6459-83be-45db-9c87-5068acf0497e"],
Cell[131223, 4170, 208, 5, 36, "Output",ExpressionUUID->"4c0ac50b-e0cb-4a0a-9b65-bfffe719d211"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[131492, 4182, 157, 3, 45, "Subsection",ExpressionUUID->"d514e6d5-4159-4fcd-aa5d-1dc55ac68b94"],
Cell[131652, 4187, 166, 3, 33, "Subsubsection",ExpressionUUID->"c7b9c2e9-00aa-4953-b41d-f9a8c54faa4a"],
Cell[131821, 4192, 157, 3, 24, "Subsubsection",ExpressionUUID->"9502d2d6-b83f-42b5-af4e-2c15a1d29a93"],
Cell[131981, 4197, 160, 3, 24, "Subsubsection",ExpressionUUID->"5923624a-7fe6-48d8-b82e-ee3f2138e419"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132178, 4205, 172, 3, 45, "Subsection",ExpressionUUID->"d2b3f7f4-2219-42c8-a564-4799118b2a9c"],
Cell[CellGroupData[{
Cell[132375, 4212, 164, 3, 33, "Subsubsection",ExpressionUUID->"d17caea4-95cd-4a51-822c-fd690afce21e"],
Cell[132542, 4217, 7772, 229, 183, "Text",ExpressionUUID->"5853bb39-651c-4afa-9744-4a87dd83ccd0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[140351, 4451, 161, 3, 33, "Subsubsection",ExpressionUUID->"7e95060c-e17a-4c66-80fe-6bd030e88abd"],
Cell[140515, 4456, 232, 5, 42, "Code",ExpressionUUID->"d29baced-0efc-485f-96f8-af40e3633b48",
 InitializationCell->False],
Cell[140750, 4463, 347, 9, 36, "Text",ExpressionUUID->"1a5ca23e-60a2-4b3d-bf9f-6d26c8292ef8"],
Cell[141100, 4474, 259, 6, 42, "Code",ExpressionUUID->"2bfc6359-5bf1-4599-911e-28c836ab7d20",
 InitializationCell->False],
Cell[141362, 4482, 325, 9, 36, "Text",ExpressionUUID->"3f579e92-b718-4a38-b0f2-f0de3db0aaa8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[141724, 4496, 160, 3, 33, "Subsubsection",ExpressionUUID->"ce066c3a-9326-46bb-a740-fa5eb1aeeab9"],
Cell[CellGroupData[{
Cell[141909, 4503, 405, 10, 85, "Code",ExpressionUUID->"8c431acf-c776-4ed4-ab83-d0ec2b03f5ce"],
Cell[142317, 4515, 2622, 52, 296, "Print",ExpressionUUID->"1bcab716-9ca1-48bb-875d-9bc633f11213"],
Cell[144942, 4569, 212, 6, 36, "Output",ExpressionUUID->"98222e0c-3cdf-41a4-a8c5-d532769b141e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[145191, 4580, 824, 25, 107, "Code",ExpressionUUID->"4a81ece8-9d33-4dac-8a70-4f2bb26d26e6"],
Cell[146018, 4607, 1096, 25, 74, "Print",ExpressionUUID->"149bf669-5e28-4331-890f-9a1121511e4a"],
Cell[147117, 4634, 244, 7, 36, "Output",ExpressionUUID->"c43229cd-aeb5-47b3-83fa-254f5ee96f67"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[147422, 4648, 163, 3, 45, "Subsection",ExpressionUUID->"b3984d3d-55a9-4967-a0dc-470a38f7f99a"],
Cell[147588, 4653, 162, 3, 33, "Subsubsection",ExpressionUUID->"07d85c3d-236e-4a97-80a1-09b5d6b5c8ba"],
Cell[147753, 4658, 159, 3, 24, "Subsubsection",ExpressionUUID->"20f59c92-b290-412a-b735-fa2d70dd3710"],
Cell[147915, 4663, 160, 3, 24, "Subsubsection",ExpressionUUID->"a8759bd5-9c17-4c91-9128-a24336863ef2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[148112, 4671, 163, 3, 45, "Subsection",ExpressionUUID->"8917c694-d5ba-4fda-9a58-b4e0d0dee8d7"],
Cell[148278, 4676, 164, 3, 33, "Subsubsection",ExpressionUUID->"ba608f0e-4acb-41c7-a485-ccdb04dda8df"],
Cell[148445, 4681, 159, 3, 24, "Subsubsection",ExpressionUUID->"93617d89-e5e7-4bae-8dac-3cf42eaf85c6"],
Cell[148607, 4686, 162, 3, 24, "Subsubsection",ExpressionUUID->"818431d6-ed67-4472-b676-4e31b1e4f7d7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[148806, 4694, 169, 3, 45, "Subsection",ExpressionUUID->"9557fd72-86cf-49b1-84b7-cf3d5804a99b"],
Cell[148978, 4699, 162, 3, 33, "Subsubsection",ExpressionUUID->"b0c2f3cf-8e75-4718-8252-33bf3127d600"],
Cell[149143, 4704, 161, 3, 24, "Subsubsection",ExpressionUUID->"443fa9bc-f0aa-4b2f-b0c9-20cf4b816b33"],
Cell[149307, 4709, 162, 3, 24, "Subsubsection",ExpressionUUID->"e398f0c2-9940-4257-8949-e58a91b1dbce"]
}, Open  ]],
Cell[CellGroupData[{
Cell[149506, 4717, 163, 3, 45, "Subsection",ExpressionUUID->"c799bef7-f10b-43ab-a7cd-3e649f4ec926"],
Cell[CellGroupData[{
Cell[149694, 4724, 166, 3, 33, "Subsubsection",ExpressionUUID->"e4d34173-e37e-4f61-98e6-aedfb96c433a"],
Cell[149863, 4729, 757, 23, 35, "Text",ExpressionUUID->"798246bf-6801-4ed9-b01f-0cebf05b0945"],
Cell[150623, 4754, 1448, 42, 37, "Text",ExpressionUUID->"9d2dc6ee-0bee-4582-a8a4-02243bae771d"],
Cell[152074, 4798, 404, 12, 35, "Text",ExpressionUUID->"0bb6f049-7298-45fe-be7f-62c8b3e2922e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[152515, 4815, 161, 3, 33, "Subsubsection",ExpressionUUID->"61364e36-2df8-4392-b5e2-657e9d6d920b"],
Cell[152679, 4820, 256, 6, 42, "Code",ExpressionUUID->"59fbcfff-028c-4632-ad7e-041b3b47437a",
 InitializationCell->False],
Cell[152938, 4828, 479, 13, 36, "Text",ExpressionUUID->"d1be31fc-2f6d-4935-8141-ec344fa99026"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153454, 4846, 160, 3, 33, "Subsubsection",ExpressionUUID->"17c96d5f-db67-44dc-92c3-8a969ae4b12b"],
Cell[CellGroupData[{
Cell[153639, 4853, 556, 14, 107, "Code",ExpressionUUID->"b81fdb10-a776-40c3-ab47-fbe671b00a16"],
Cell[154198, 4869, 1032, 29, 59, "Output",ExpressionUUID->"54ef9061-afd4-4f6a-92ca-ab7fb9327c26"],
Cell[155233, 4900, 1554, 37, 103, "Output",ExpressionUUID->"c9923724-53e7-4c2a-ab07-df88b3a99c82"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[156860, 4945, 164, 3, 87, "Section",ExpressionUUID->"5ada73ba-3006-46bd-9866-c71fdcc34df1"],
Cell[CellGroupData[{
Cell[157049, 4952, 167, 3, 45, "Subsection",ExpressionUUID->"66827418-ab22-412c-903d-186c491e7830"],
Cell[CellGroupData[{
Cell[157241, 4959, 164, 3, 33, "Subsubsection",ExpressionUUID->"ef36417b-52d2-4a7c-915f-1fe05dfe51ed"],
Cell[157408, 4964, 2170, 73, 42, "Text",ExpressionUUID->"2f209921-1d9c-4235-aabf-4581d8332df4"],
Cell[159581, 5039, 1106, 31, 40, "Text",ExpressionUUID->"103b9784-787e-4d56-bb90-155a5af70222"],
Cell[160690, 5072, 1896, 60, 67, "Text",ExpressionUUID->"44049595-9562-4924-a1c7-222ebc8532f4"],
Cell[162589, 5134, 2177, 70, 44, "Text",ExpressionUUID->"dcae3b18-36e0-4a3e-9b20-2af93ff85f6e"],
Cell[164769, 5206, 299, 11, 35, "Text",ExpressionUUID->"7a1e324a-11ac-43d3-80f3-2c7bf4132527"],
Cell[165071, 5219, 888, 29, 42, "Text",ExpressionUUID->"5840f737-f6f3-4a9c-9ec1-ccc8cd6396bd"],
Cell[165962, 5250, 177, 3, 35, "Text",ExpressionUUID->"325314f0-cc84-4059-bf42-d22744dcdb79"],
Cell[166142, 5255, 888, 30, 35, "Text",ExpressionUUID->"90dd4062-72e1-4a95-823b-2eb328116fde"],
Cell[167033, 5287, 487, 17, 37, "Text",ExpressionUUID->"5f214fab-58f3-493a-8d33-ce962256d232"],
Cell[167523, 5306, 534, 18, 39, "Text",ExpressionUUID->"06cd07d2-5e44-4b8a-b143-0230c0dae501"]
}, Open  ]],
Cell[CellGroupData[{
Cell[168094, 5329, 159, 3, 33, "Subsubsection",ExpressionUUID->"8017a7fe-dfad-4fa6-b24f-bda40d949a64"],
Cell[168256, 5334, 272, 6, 44, "Code",ExpressionUUID->"994b40d2-dab2-44e7-b8ac-258f80611f36",
 InitializationCell->False],
Cell[168531, 5342, 651, 18, 36, "Text",ExpressionUUID->"05186b23-03ab-4168-b9c6-ceda00065889"],
Cell[169185, 5362, 325, 7, 44, "Code",ExpressionUUID->"c21cf3c8-bcb6-45ca-98f1-efdc596f6a32",
 InitializationCell->False],
Cell[169513, 5371, 498, 11, 36, "Text",ExpressionUUID->"96d104c0-ff7e-405c-be74-f34942b68e02"]
}, Open  ]],
Cell[CellGroupData[{
Cell[170048, 5387, 160, 3, 33, "Subsubsection",ExpressionUUID->"b6fcda0b-01e2-4e8e-aaa8-9eb82d543f99"],
Cell[CellGroupData[{
Cell[170233, 5394, 607, 18, 134, "Code",ExpressionUUID->"5f23712b-411e-4e39-be48-9ce5a3b101f6"],
Cell[170843, 5414, 530, 13, 37, "Output",ExpressionUUID->"dc2c77a3-4785-4fd4-9441-0fb0a64f1c61"]
}, Open  ]],
Cell[CellGroupData[{
Cell[171410, 5432, 438, 10, 64, "Code",ExpressionUUID->"15f6612d-fd0c-4df8-bb10-c24b03912b0f"],
Cell[171851, 5444, 179, 4, 37, "Output",ExpressionUUID->"deac85be-2369-4248-be69-e5d34413044b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[172091, 5455, 167, 3, 46, "Subsection",ExpressionUUID->"d91e4cf6-9a8d-4e6e-b65a-045a015dfe48"],
Cell[172261, 5460, 162, 3, 33, "Subsubsection",ExpressionUUID->"515ab52c-297a-45e5-958a-5a33789b22ee"],
Cell[172426, 5465, 158, 3, 24, "Subsubsection",ExpressionUUID->"f58ede82-4c51-493c-a5e8-3cdeeb12faec"],
Cell[172587, 5470, 160, 3, 24, "Subsubsection",ExpressionUUID->"28cfc864-79b9-43dc-bb08-47abf2fe2c8e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[172784, 5478, 158, 3, 46, "Subsection",ExpressionUUID->"12acc030-25ca-4f17-aa90-cddd759b87a0"],
Cell[172945, 5483, 162, 3, 33, "Subsubsection",ExpressionUUID->"84356f93-4355-47f4-b648-602e78976afb"],
Cell[173110, 5488, 159, 3, 24, "Subsubsection",ExpressionUUID->"832fb5a3-f01b-4219-8625-19567f9934e0"],
Cell[173272, 5493, 160, 3, 24, "Subsubsection",ExpressionUUID->"0b613c63-3eb8-40ae-9079-fe6bbb279c9e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[173469, 5501, 209, 4, 46, "Subsection",ExpressionUUID->"a61156aa-95b6-4613-9c14-647b36226e71",
 CellTags->"MapCoordinateFunctions"],
Cell[CellGroupData[{
Cell[173703, 5509, 164, 3, 33, "Subsubsection",ExpressionUUID->"19f25cc6-0cf0-43c8-8d86-435bbf9f6ccb"],
Cell[173870, 5514, 368, 7, 35, "Text",ExpressionUUID->"0cd17ddc-bdaa-4fe4-8e26-3eb29884f4ed"]
}, Open  ]],
Cell[CellGroupData[{
Cell[174275, 5526, 159, 3, 33, "Subsubsection",ExpressionUUID->"15e143e1-7c5c-46ec-89ac-7e30edbbb388"],
Cell[174437, 5531, 314, 7, 44, "Code",ExpressionUUID->"6a30f638-8e8d-40e4-a30a-527313b603bf",
 InitializationCell->False],
Cell[174754, 5540, 2644, 83, 148, "Text",ExpressionUUID->"799c78dc-9641-4a49-81fc-4fb83cc1f180"]
}, Open  ]],
Cell[CellGroupData[{
Cell[177435, 5628, 158, 3, 33, "Subsubsection",ExpressionUUID->"7da1eb69-cca9-4276-b1e2-8ec013c17d7b"],
Cell[CellGroupData[{
Cell[177618, 5635, 640, 19, 88, "Code",ExpressionUUID->"81bf3d9c-f007-4a6c-8600-56185f39242e"],
Cell[178261, 5656, 169, 4, 37, "Output",ExpressionUUID->"5b8d97e0-268d-45db-a76a-a592427c2088"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[178491, 5667, 174, 3, 46, "Subsection",ExpressionUUID->"d18f1bd8-4da7-4920-9e28-2f2aac90260a"],
Cell[CellGroupData[{
Cell[178690, 5674, 164, 3, 33, "Subsubsection",ExpressionUUID->"a9f6f5a3-5db9-46f4-a265-e238559472ad"],
Cell[178857, 5679, 2170, 73, 42, "Text",ExpressionUUID->"f0cd1999-99b7-4c23-b0e0-154b3cd667d2"],
Cell[181030, 5754, 1330, 38, 44, "Text",ExpressionUUID->"37f47ac1-422f-4266-a56e-d5789ed95af6"],
Cell[182363, 5794, 2154, 69, 67, "Text",ExpressionUUID->"f4234cd9-7554-487c-be83-81c0041d3650"],
Cell[184520, 5865, 2599, 84, 48, "Text",ExpressionUUID->"7b44262d-bfbf-45c1-b97a-0acc661b6455"],
Cell[187122, 5951, 299, 11, 35, "Text",ExpressionUUID->"8a737ac9-73b7-479a-a773-809d05c95831"],
Cell[187424, 5964, 1045, 34, 42, "Text",ExpressionUUID->"9906a8e6-6300-4f00-b06b-a555edb3460f"],
Cell[188472, 6000, 237, 4, 35, "Text",ExpressionUUID->"c6da3040-64ce-485f-9f2b-59a65614f7ae"],
Cell[188712, 6006, 1330, 40, 39, "Text",ExpressionUUID->"13847913-1c23-4feb-bfc8-821538c2d7ad"],
Cell[190045, 6048, 556, 19, 39, "Text",ExpressionUUID->"28a93681-b7e8-4d2c-86c1-22180623b1d8"],
Cell[190604, 6069, 534, 18, 36, "Text",ExpressionUUID->"b703aa5f-d7fa-4779-90ef-af6e0eb8b965"]
}, Open  ]],
Cell[CellGroupData[{
Cell[191175, 6092, 161, 3, 33, "Subsubsection",ExpressionUUID->"5eae2c88-8057-4f33-b409-db2bfef8d5ed"],
Cell[191339, 6097, 280, 6, 42, "Code",ExpressionUUID->"bbce1f51-d0be-4c5e-8252-275d19d4bf34",
 InitializationCell->False],
Cell[191622, 6105, 547, 17, 36, "Text",ExpressionUUID->"c970804a-d7e0-432d-b505-c46453d54686"],
Cell[192172, 6124, 280, 6, 42, "Code",ExpressionUUID->"7b744d89-9a7f-4a24-9585-85423a560f05",
 InitializationCell->False],
Cell[192455, 6132, 254, 8, 36, "Text",ExpressionUUID->"ff992317-b2d5-4f80-80af-1c91e3278210"]
}, Open  ]],
Cell[CellGroupData[{
Cell[192746, 6145, 159, 3, 33, "Subsubsection",ExpressionUUID->"064168c8-3949-4a88-8970-4fabbae81232"],
Cell[CellGroupData[{
Cell[192930, 6152, 611, 18, 129, "Code",ExpressionUUID->"749ce2da-c1c9-4fc6-8c72-1eb53ddac50b"],
Cell[193544, 6172, 854, 21, 59, "Output",ExpressionUUID->"4cd165e6-8637-4724-a75a-e83de98595a3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[194435, 6198, 344, 8, 62, "Code",ExpressionUUID->"454fc06f-e4b0-4b93-9fb9-10a27085e6f0"],
Cell[194782, 6208, 228, 6, 36, "Output",ExpressionUUID->"42509cb9-986e-4320-8d2a-ca19f3026a32"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[195071, 6221, 165, 3, 45, "Subsection",ExpressionUUID->"71c8882a-d14a-4d61-81ea-661a5798ebb7"],
Cell[CellGroupData[{
Cell[195261, 6228, 166, 3, 33, "Subsubsection",ExpressionUUID->"c17854ab-e4df-4044-90a5-690c5d47d3a4"],
Cell[195430, 6233, 578, 19, 35, "Text",ExpressionUUID->"f12cfe97-af1a-41dd-9eca-4c2cbe440c82"],
Cell[196011, 6254, 785, 28, 38, "Text",ExpressionUUID->"e525d6a1-2013-4ea6-b553-cc89885a6831"],
Cell[196799, 6284, 247, 6, 35, "Text",ExpressionUUID->"1a24f021-379b-4645-9f0a-f6523ebb20e4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[197083, 6295, 161, 3, 33, "Subsubsection",ExpressionUUID->"966b6c18-aaf2-4c19-a683-aabbf65b06ab"],
Cell[197247, 6300, 256, 6, 42, "Code",ExpressionUUID->"f3d73d4f-22ff-4503-8790-5c515eb72797",
 InitializationCell->False],
Cell[197506, 6308, 406, 13, 36, "Text",ExpressionUUID->"df416755-f6ea-437d-8ad8-dfd3cfc7be03"]
}, Open  ]],
Cell[CellGroupData[{
Cell[197949, 6326, 160, 3, 33, "Subsubsection",ExpressionUUID->"c2dda9a1-e80e-42ca-ba27-287e42a3dfb2"],
Cell[CellGroupData[{
Cell[198134, 6333, 589, 14, 62, "Code",ExpressionUUID->"6dd6f0f8-0354-4c08-8251-7a9ef5f446c8"],
Cell[198726, 6349, 174, 2, 36, "Output",ExpressionUUID->"c1026b3a-acdc-4c67-b331-de34dac1b0d4"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[198961, 6358, 164, 3, 45, "Subsection",ExpressionUUID->"1cae5f6a-ce7d-424e-8516-0581aac5077a"],
Cell[CellGroupData[{
Cell[199150, 6365, 166, 3, 33, "Subsubsection",ExpressionUUID->"8c37bd61-c832-4eef-a3fe-b76dbb2eadde"],
Cell[199319, 6370, 1001, 29, 37, "Text",ExpressionUUID->"47627334-1096-4715-9e91-636a3f361d05"],
Cell[200323, 6401, 1478, 44, 37, "Text",ExpressionUUID->"fdd8fcba-18bf-4356-b414-0b3e978abb3f"],
Cell[201804, 6447, 515, 12, 35, "Text",ExpressionUUID->"37a7bc99-c73d-4ba3-82f6-516172f1d42a"],
Cell[202322, 6461, 716, 24, 39, "Text",ExpressionUUID->"17f1c51f-cfe7-42fb-a9ca-1d9f6ac36824"],
Cell[203041, 6487, 1475, 51, 57, "Text",ExpressionUUID->"55e65add-04d6-41c7-bf0d-6c7f5b6d71e8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[204553, 6543, 161, 3, 33, "Subsubsection",ExpressionUUID->"4ed18d77-efa3-4ea8-8ffe-6e5762375470"],
Cell[204717, 6548, 259, 6, 42, "Code",ExpressionUUID->"be645805-f6b3-4423-a1f5-2058bb54c89f",
 InitializationCell->False],
Cell[204979, 6556, 460, 13, 36, "Text",ExpressionUUID->"facad20e-626a-4144-81cc-3e15376de540"]
}, Open  ]],
Cell[CellGroupData[{
Cell[205476, 6574, 162, 3, 33, "Subsubsection",ExpressionUUID->"8c0a1015-4b66-4f50-9076-98b49921e0ee"],
Cell[CellGroupData[{
Cell[205663, 6581, 376, 10, 62, "Code",ExpressionUUID->"4774071b-771a-47ef-92a3-0c9f781a0ac5"],
Cell[206042, 6593, 444, 12, 37, "Output",ExpressionUUID->"5a7bf916-ec66-47af-88ea-cac1dba78f7a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[206547, 6612, 171, 3, 46, "Subsection",ExpressionUUID->"af9e8ef1-fcde-439c-b5dd-a615cd71682d"],
Cell[CellGroupData[{
Cell[206743, 6619, 161, 3, 33, "Subsubsection",ExpressionUUID->"e5dbd71e-d666-402b-a4bf-432f3a9c67b1"],
Cell[206907, 6624, 494, 13, 35, "Text",ExpressionUUID->"dfcd9195-3487-46ae-82eb-26f08b60178e"],
Cell[207404, 6639, 1127, 33, 37, "Text",ExpressionUUID->"3e327898-489b-474d-b313-24d9543d5f90"],
Cell[208534, 6674, 249, 6, 35, "Text",ExpressionUUID->"1baa81fa-79f8-41f6-9833-3505ba1e53d9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[208820, 6685, 159, 3, 33, "Subsubsection",ExpressionUUID->"e50dec7e-4e89-4689-829b-ad2c2337b6e1"],
Cell[208982, 6690, 276, 6, 44, "Code",ExpressionUUID->"08c5dfc4-dce9-4b8f-bddc-cc0a54cebfa0",
 InitializationCell->False],
Cell[209261, 6698, 572, 17, 36, "Text",ExpressionUUID->"da311b20-d11e-4a52-b184-a2a57ae33b22"]
}, Open  ]],
Cell[CellGroupData[{
Cell[209870, 6720, 158, 3, 33, "Subsubsection",ExpressionUUID->"effdb29c-3f26-461b-8ecf-506eb1981616"],
Cell[CellGroupData[{
Cell[210053, 6727, 476, 11, 64, "Code",ExpressionUUID->"aee0794e-be74-47cf-856a-c0bf2d5b79c1"],
Cell[210532, 6740, 186, 4, 37, "Output",ExpressionUUID->"d02880dc-a457-441f-9034-6178f0bb8a7e"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[210791, 6752, 162, 3, 89, "Section",ExpressionUUID->"86f1c889-16eb-4d75-b5fc-ab516b5a8d61"],
Cell[CellGroupData[{
Cell[210978, 6759, 224, 4, 46, "Subsection",ExpressionUUID->"bb6d1f3f-57f2-4d69-b8dc-4b3c4896aaeb"],
Cell[CellGroupData[{
Cell[211227, 6767, 164, 3, 33, "Subsubsection",ExpressionUUID->"9f849b5c-c535-4c99-adfa-f53dafcffed7"],
Cell[211394, 6772, 2943, 99, 56, "Text",ExpressionUUID->"19fa9e1f-b9cb-4796-9986-890e5bfd6ea9"],
Cell[214340, 6873, 1294, 44, 42, "Text",ExpressionUUID->"ede25a2e-7309-46c5-80ca-03892b1671cc"],
Cell[215637, 6919, 941, 36, 38, "Text",ExpressionUUID->"f733b25b-e728-4ea8-a0c3-782f2ed41fa2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[216615, 6960, 161, 3, 33, "Subsubsection",ExpressionUUID->"eb4cefb3-6a7d-4f0f-8c95-6e54644cb5fb"],
Cell[216779, 6965, 364, 9, 44, "Code",ExpressionUUID->"b316bc99-9ec5-4147-aa7f-1e0c35c03da9",
 InitializationCell->False],
Cell[217146, 6976, 1982, 63, 58, "Text",ExpressionUUID->"61341102-8c79-4724-a934-9df210054b4f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[219165, 7044, 160, 3, 33, "Subsubsection",ExpressionUUID->"b43e0457-0dd3-44f6-8cda-b3e10fd83e10"],
Cell[CellGroupData[{
Cell[219350, 7051, 1308, 38, 183, "Code",ExpressionUUID->"8947f218-1bed-42ed-bfcc-a996ca01b387"],
Cell[220661, 7091, 498, 13, 37, "Output",ExpressionUUID->"c651a3a9-7798-452b-9604-b5a0dbbc21ca"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)