From 3fac365fb2cebeb9450d6c689a80eb23b95ea336 Mon Sep 17 00:00:00 2001 From: Konrad Kockler Date: Wed, 25 Mar 2026 11:40:43 +0100 Subject: [PATCH 1/2] improving safeguard for error messages when calling a function with too few arguments --- TensorBases.m | 38 ++--- TensorBases.nb | 450 ++++++++++++++++++++++++------------------------- 2 files changed, 232 insertions(+), 256 deletions(-) diff --git a/TensorBases.m b/TensorBases.m index 953d0c4..37fe60c 100644 --- a/TensorBases.m +++ b/TensorBases.m @@ -920,7 +920,7 @@ Returns a matrix for the transformation of coordinates (i.e. (!) vertex dressing \!\(\*SubscriptBox[\(\[Epsilon]\), \(abc\)]\) is the fully anti-symmetric Levi-Civita symbol. The \!\(\*SuperscriptBox[\(T\), \(a\)]\) are normalised as tr[\!\(\*SuperscriptBox[\(T\), \(a\)]\)\!\(\*SuperscriptBox[\(T\), \(b\)]\)] = \!\(\*FractionBox[\(1\), \(2\)]\)\!\(\*SubscriptBox[\(\[Delta]\), \(ab\)]\). -The \!\(\*SubscriptBox[\(\[Gamma]\), \(\[Mu]\(\\\ \)\)]\)denote Euclidean gamma matrices and accordingly \!\(\*SubscriptBox[\(\[Gamma]\), \(5\(\\\ \)\)]\)= \!\(\*SubscriptBox[\(\[Gamma]\), \(0\)]\)\!\(\*SubscriptBox[\(\[Gamma]\), \(1\)]\)\!\(\*SubscriptBox[\(\[Gamma]\), \(2\)]\)\!\(\*SubscriptBox[\(\[Gamma]\), \(3\)]\) +The \!\(\*SubscriptBox[\(\[Gamma]\), \(\(\[Mu]\)\(\\\ \)\)]\)denote Euclidean gamma matrices and accordingly \!\(\*SubscriptBox[\(\[Gamma]\), \(\(5\)\(\\\ \)\)]\)= \!\(\*SubscriptBox[\(\[Gamma]\), \(0\)]\)\!\(\*SubscriptBox[\(\[Gamma]\), \(1\)]\)\!\(\*SubscriptBox[\(\[Gamma]\), \(2\)]\)\!\(\*SubscriptBox[\(\[Gamma]\), \(3\)]\) "; @@ -1146,12 +1146,7 @@ Returns a matrix for the transformation of coordinates (i.e. (!) vertex dressing TBGetBasisElement[name_String,n_Integer]:=Module[{}, Print["Unknown basis "~~name~~". Aborting"];Abort[] ]; -TBGetBasisElement[name_String]:=Module[{}, -Print["TBGetBasisElement[...] requires at least two arguments! Aborting"];Abort[] -]; -TBGetBasisElement[]:=Module[{}, -Print["TBGetBasisElement[...] requires at least two arguments! Aborting"];Abort[] -]; +TBGetBasisElement[args___]/;Length[{args}]<2:=Module[{},Print["TBGetBasisElement[...] requires at least two arguments! Aborting"];Abort[]]; TBGetVertex[name_String,All,indices___]:=Module[{}, @@ -1166,28 +1161,19 @@ Returns a matrix for the transformation of coordinates (i.e. (!) vertex dressing TBGetVertex[name_String,n_Integer]:=Module[{}, Print["Unknown basis "~~name~~". Aborting"];Abort[] ]; -TBGetVertex[name_String]:=Module[{}, -Print["TBGetVertex[...] requires at least two arguments! Aborting"];Abort[] -]; -TBGetVertex[]:=Module[{}, -Print["TBGetVertex[...] requires at least two arguments! Aborting"];Abort[] -]; +TBGetVertex[args___]/;Length[{args}]<2:=Module[{},Print["TBGetVertex[...] requires at least two arguments! Aborting"];Abort[]]; TBGetMetric[name_String]:=Module[{}, Print["Unknown basis "~~name~~". Aborting"];Abort[] ]; -TBGetMetric[]:=Module[{}, -Print["TBGetMetric[...] requires an argument. Aborting"];Abort[] -]; +TBGetMetric[args___]/;Length[{args}]<1:=Module[{},Print["TBGetMetric[...] requires an argument! Aborting"];Abort[]]; TBGetInverseMetric[name_String]:=Module[{}, Print["Unknown basis "~~name~~". Aborting"];Abort[] ]; -TBGetInverseMetric[]:=Module[{}, -Print["TBGetInverseMetric[...] requires an argument. Aborting"];Abort[] -]; +TBGetInverseMetric[args___]/;Length[{args}]<1:=Module[{},Print["TBGetInverseMetric[...] requires an argument! Aborting"];Abort[]]; TBGetProjector[name_String,All,indices___]:=Module[{}, @@ -1202,12 +1188,7 @@ Returns a matrix for the transformation of coordinates (i.e. (!) vertex dressing TBGetProjector[name_String,n_Integer]:=Module[{}, Print["Unknown basis "~~name~~". Aborting"];Abort[] ]; -TBGetProjector[name_String]:=Module[{}, -Print["TBGetProjector[...] requires at least two arguments! Aborting"];Abort[] -]; -TBGetProjector[]:=Module[{}, -Print["TBGetProjector[...] requires at least two arguments! Aborting"];Abort[] -]; +TBGetProjector[args___]/;Length[{args}]<2:=Module[{},Print["TBGetProjector[...] requires at least two arguments! Aborting"];Abort[]]; GetBasisName[BasisDefinitionFile_String]:=Module[{}, @@ -1632,9 +1613,12 @@ Returns a matrix for the transformation of coordinates (i.e. (!) vertex dressing TBDefineTBInfo[BasisName_String]:=Module[{}, -TBInfo[BasisName]:=Module[{}, +(*TBInfo[BasisName]:=Module[{}, Print@@TBUsage[BasisName]; +];*) ]; +TBInfo[BasisName_String]:=Module[{}, +Print@@TBUsage[BasisName]; ]; @@ -1797,7 +1781,7 @@ Returns a matrix for the transformation of coordinates (i.e. (!) vertex dressing Unprotect[TBInfo]; -TBInfo[]:=Module[{data}, +TBInfo[args___]/;Length[{args}]<1:=Module[{data}, data=Map[{#["Name"],#["Vertex"],Grid[#["Indices"]],#["InnerProduct"],Grid[#["Groups"]],#["Comment"],#["Author"]}&,TBBasisDocs]; Grid[ Join[{{"Name","Vertex","Indices","Inner product","Groups","Comment","Author"}},data], diff --git a/TensorBases.nb b/TensorBases.nb index 3fcf8bc..3007460 100644 --- a/TensorBases.nb +++ b/TensorBases.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 576037, 13257] -NotebookOptionsPosition[ 556836, 12964] -NotebookOutlinePosition[ 557624, 12990] -CellTagsIndexPosition[ 557581, 12987] +NotebookDataLength[ 575670, 13249] +NotebookOptionsPosition[ 556459, 12956] +NotebookOutlinePosition[ 557260, 12982] +CellTagsIndexPosition[ 557217, 12979] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -553,7 +553,7 @@ performed by \ "During evaluation of \ In[206]:=",ExpressionUUID->"b040574c-0232-4e09-94d7-1ecfc83fd757"] }, Open ]] -}, Open ]], +}, Closed]], Cell[CellGroupData[{ @@ -2837,7 +2837,7 @@ the color number to 3, 2 or the general Nc.\n\>\"", "]"}], ";"}]}], 3.947169456710284*^9, 3.947169490542368*^9}, {3.950711536417156*^9, 3.9507116138897343`*^9}},ExpressionUUID->"377a1416-7c5f-4000-b6d8-\ 2a50aee7d278"] -}, Open ]], +}, Closed]], Cell[CellGroupData[{ @@ -3421,7 +3421,7 @@ matrices and accordingly \!\(\*SubscriptBox[\(\[Gamma]\), \(5\(\\\ \)\)]\)= \ 3.949680767061558*^9, 3.949680843277595*^9}, 3.9507842379924803`*^9},ExpressionUUID->"be2e6840-c5b7-46d7-8454-\ 3e14628bb533"] -}, Open ]], +}, Closed]], Cell[CellGroupData[{ @@ -4476,39 +4476,29 @@ Cell[BoxData[{ ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ - RowBox[{"TBGetBasisElement", "[", "name_String", "]"}], ":=", - RowBox[{"Module", "[", + RowBox[{ + RowBox[{"TBGetBasisElement", "[", "args___", "]"}], "/;", RowBox[{ - RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - "Print", "[", - "\"\\"", "]"}], ";", - RowBox[{"Abort", "[", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"TBGetBasisElement", "[", "]"}], ":=", + RowBox[{"Length", "[", + RowBox[{"{", "args", "}"}], "]"}], "<", "2"}]}], ":=", RowBox[{"Module", "[", RowBox[{ - RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", "}"}], ",", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";", - RowBox[{"Abort", "[", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], - ";"}]}], "Input", + RowBox[{"Abort", "[", "]"}]}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.933820084201224*^9, 3.933820126305143*^9}, { 3.933820156441168*^9, 3.933820203145113*^9}, 3.933820279736702*^9, { 3.93382058700195*^9, 3.93382058740196*^9}, 3.933820732552956*^9, { 3.934541116486633*^9, 3.934541120163384*^9}, {3.934541150414443*^9, 3.9345411605046997`*^9}, {3.934541357247246*^9, 3.934541411473709*^9}, { - 3.9358195250859213`*^9, 3.935819530022026*^9}, {3.9368588607193537`*^9, - 3.936858865860029*^9}, {3.936858907488002*^9, 3.936858908223516*^9}}, - CellLabel-> - "In[135]:=",ExpressionUUID->"822fba52-6de1-43c4-885f-5e6ab1f6fc3b"], + 3.935819525085921*^9, 3.935819530022026*^9}, {3.9368588607193537`*^9, + 3.936858865860029*^9}, {3.936858907488002*^9, 3.936858908223516*^9}, + 3.983422893351247*^9},ExpressionUUID->"822fba52-6de1-43c4-885f-\ +5e6ab1f6fc3b"], Cell[BoxData[{ RowBox[{ @@ -4569,39 +4559,29 @@ Cell[BoxData[{ ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ - RowBox[{"TBGetVertex", "[", "name_String", "]"}], ":=", - RowBox[{"Module", "[", + RowBox[{ + RowBox[{"TBGetVertex", "[", "args___", "]"}], "/;", RowBox[{ - RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - "Print", "[", - "\"\\"", - "]"}], ";", - RowBox[{"Abort", "[", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"TBGetVertex", "[", "]"}], ":=", + RowBox[{"Length", "[", + RowBox[{"{", "args", "}"}], "]"}], "<", "2"}]}], ":=", RowBox[{"Module", "[", RowBox[{ - RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", "}"}], ",", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";", - RowBox[{"Abort", "[", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], - ";"}]}], "Input", + RowBox[{"Abort", "[", "]"}]}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.933820084201224*^9, 3.933820126305143*^9}, { 3.933820156441168*^9, 3.933820203145113*^9}, 3.933820279736702*^9, { 3.93382058700195*^9, 3.93382058740196*^9}, 3.933820732552956*^9, { 3.934541116486633*^9, 3.934541120163384*^9}, {3.934541150414443*^9, 3.9345411605046997`*^9}, {3.934541357247246*^9, 3.934541411473709*^9}, { - 3.935818624017025*^9, 3.9358186298009233`*^9}, {3.935819534990197*^9, - 3.93581953922991*^9}, {3.936858870848*^9, 3.936858905051865*^9}}, - CellLabel-> - "In[141]:=",ExpressionUUID->"bbdfd93e-0b45-4ca4-90ca-a3a9b22aa1ac"], + 3.935818624017025*^9, 3.935818629800923*^9}, {3.935819534990197*^9, + 3.93581953922991*^9}, {3.936858870848*^9, 3.936858905051865*^9}, + 3.9834229073065453`*^9},ExpressionUUID->"bbdfd93e-0b45-4ca4-90ca-\ +a3a9b22aa1ac"], Cell[BoxData[{ RowBox[{ @@ -4619,20 +4599,23 @@ Cell[BoxData[{ ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ - RowBox[{"TBGetMetric", "[", "]"}], ":=", + RowBox[{ + RowBox[{"TBGetMetric", "[", "args___", "]"}], "/;", + RowBox[{ + RowBox[{"Length", "[", + RowBox[{"{", "args", "}"}], "]"}], "<", "1"}]}], ":=", RowBox[{"Module", "[", RowBox[{ - RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", "}"}], ",", RowBox[{ RowBox[{ - "Print", "[", "\"\\"", + "Print", "[", "\"\\"", "]"}], ";", - RowBox[{"Abort", "[", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], - ";"}]}], "Input", + RowBox[{"Abort", "[", "]"}]}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.9338206326736383`*^9, 3.9338206410655746`*^9}, - 3.933820678528954*^9, {3.934541485975546*^9, 3.934541489674357*^9}}, - CellLabel-> - "In[147]:=",ExpressionUUID->"5b3a0713-e32a-40c8-baf1-a8d35b9ca4d7"], + 3.933820678528954*^9, {3.934541485975546*^9, 3.934541489674357*^9}, + 3.983422923351671*^9},ExpressionUUID->"5b3a0713-e32a-40c8-baf1-\ +a8d35b9ca4d7"], Cell[BoxData[{ RowBox[{ @@ -4650,21 +4633,24 @@ Cell[BoxData[{ ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ - RowBox[{"TBGetInverseMetric", "[", "]"}], ":=", + RowBox[{ + RowBox[{"TBGetInverseMetric", "[", "args___", "]"}], "/;", + RowBox[{ + RowBox[{"Length", "[", + RowBox[{"{", "args", "}"}], "]"}], "<", "1"}]}], ":=", RowBox[{"Module", "[", RowBox[{ - RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", "}"}], ",", RowBox[{ RowBox[{ "Print", "[", - "\"\\"", + "\"\\"", "]"}], ";", - RowBox[{"Abort", "[", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], - ";"}]}], "Input", + RowBox[{"Abort", "[", "]"}]}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.933820697744837*^9, 3.933820698448894*^9}, { - 3.934541460485869*^9, 3.934541482985652*^9}}, - CellLabel-> - "In[149]:=",ExpressionUUID->"e639b518-8d0a-4143-92d8-ccb99c3e3134"], + 3.934541460485869*^9, 3.934541482985652*^9}, + 3.983422931689386*^9},ExpressionUUID->"e639b518-8d0a-4143-92d8-\ +ccb99c3e3134"], Cell[BoxData[{ RowBox[{ @@ -4725,37 +4711,27 @@ Cell[BoxData[{ ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ - RowBox[{"TBGetProjector", "[", "name_String", "]"}], ":=", - RowBox[{"Module", "[", + RowBox[{ + RowBox[{"TBGetProjector", "[", "args___", "]"}], "/;", RowBox[{ - RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - "Print", "[", - "\"\\"", "]"}], ";", - RowBox[{"Abort", "[", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"TBGetProjector", "[", "]"}], ":=", + RowBox[{"Length", "[", + RowBox[{"{", "args", "}"}], "]"}], "<", "2"}]}], ":=", RowBox[{"Module", "[", RowBox[{ - RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", "}"}], ",", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";", - RowBox[{"Abort", "[", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], - ";"}]}], "Input", + RowBox[{"Abort", "[", "]"}]}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.933820577209681*^9, 3.933820589649977*^9}, 3.933820736440908*^9, 3.93382155331371*^9, {3.9345414193265553`*^9, 3.934541439811163*^9}, {3.935819550782126*^9, 3.935819554893808*^9}, { - 3.936858887647656*^9, 3.936858901100045*^9}}, - CellLabel-> - "In[151]:=",ExpressionUUID->"235217ce-2a52-433b-9dcb-ca48aa796831"] -}, Closed]] + 3.936858887647656*^9, 3.936858901100045*^9}, + 3.983422939706471*^9},ExpressionUUID->"235217ce-2a52-433b-9dcb-\ +ca48aa796831"] +}, Open ]] }, Open ]], Cell[CellGroupData[{ @@ -6809,13 +6785,14 @@ Cell["Documentation functions", "Subsection", 3.935831543435751*^9},ExpressionUUID->"4242c64b-75cf-4833-9d4c-\ f8fa32859c1c"], -Cell[BoxData[ +Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"TBDefineTBInfo", "[", "BasisName_String", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ - RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", "}"}], ","}], "\[IndentingNewLine]", + RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"TBInfo", "[", "BasisName", "]"}], ":=", @@ -6825,11 +6802,22 @@ Cell[BoxData[ RowBox[{ RowBox[{"Print", "@@", RowBox[{"TBUsage", "[", "BasisName", "]"}]}], ";"}]}], - "\[IndentingNewLine]", "]"}]}], ";"}]}], "\[IndentingNewLine]", - "]"}]}], ";"}]], "Input", - CellChangeTimes->{3.933905200341092*^9}, - CellLabel-> - "In[180]:=",ExpressionUUID->"9cc81c11-fd01-456a-8d42-c7e11e50298a"], + "\[IndentingNewLine]", "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", + "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"TBInfo", "[", "BasisName_String", "]"}], ":=", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Print", "@@", + RowBox[{"TBUsage", "[", "BasisName", "]"}]}], ";"}]}], + "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", + CellChangeTimes->{ + 3.933905200341092*^9, {3.983422975620158*^9, + 3.983422994045693*^9}},ExpressionUUID->"9cc81c11-fd01-456a-8d42-\ +c7e11e50298a"], Cell[BoxData[{ RowBox[{ @@ -6950,7 +6938,7 @@ Cell[BoxData[{ 3.9627602430749083`*^9, 3.9627602438267403`*^9}},ExpressionUUID->"bb7d78b6-0709-4a59-a019-\ 6b02011b3430"] -}, Closed]], +}, Open ]], Cell[CellGroupData[{ @@ -7134,13 +7122,13 @@ Cell[BoxData[ CellChangeTimes->{{3.937410558974001*^9, 3.937410591393364*^9}, { 3.937410623489056*^9, 3.937410646678207*^9}, {3.937410736605949*^9, 3.937410757241568*^9}, {3.941174651471827*^9, 3.941174660141168*^9}, { - 3.941174731597299*^9, 3.9411747335553913`*^9}, {3.941175180419612*^9, + 3.941174731597299*^9, 3.941174733555392*^9}, {3.941175180419612*^9, 3.941175199121892*^9}, {3.941175241423976*^9, 3.941175245374373*^9}, { 3.94117581719256*^9, 3.941175826320649*^9}, {3.941176130777733*^9, 3.941176147794403*^9}, {3.9411766016475286`*^9, 3.941176611371645*^9}, { 3.941176900193429*^9, 3.941176961369573*^9}, {3.941177489388479*^9, 3.9411774900252523`*^9}, {3.969347541806017*^9, 3.969347545472262*^9}, { - 3.969353352564761*^9, 3.969353363319121*^9}, {3.9766824323721733`*^9, + 3.969353352564761*^9, 3.969353363319121*^9}, {3.976682432372173*^9, 3.976682439828602*^9}},ExpressionUUID->"bfd8db10-63e3-4def-a1fc-\ e8d43db1a1f0"], @@ -7305,7 +7293,7 @@ Cell[BoxData[ 3.937411090567079*^9, {3.937411166046895*^9, 3.93741117800021*^9}, 3.937411482735732*^9, 3.937411688354843*^9, {3.937412125781659*^9, 3.937412131761386*^9}, {3.94117473738103*^9, 3.941174802379508*^9}, { - 3.941174921443696*^9, 3.9411749329328203`*^9}, 3.9411752095341682`*^9, { + 3.941174921443696*^9, 3.9411749329328203`*^9}, 3.941175209534168*^9, { 3.941175246478609*^9, 3.941175247150536*^9}, {3.941176980969018*^9, 3.941177006296823*^9}, {3.969347556669059*^9, 3.969347562512723*^9}, 3.9693533825047626`*^9},ExpressionUUID->"116a0c96-5bd5-4c0a-adb7-\ @@ -7422,7 +7410,11 @@ Cell[BoxData[{ RowBox[{ RowBox[{"Unprotect", "[", "TBInfo", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ - RowBox[{"TBInfo", "[", "]"}], ":=", + RowBox[{ + RowBox[{"TBInfo", "[", "args___", "]"}], "/;", + RowBox[{ + RowBox[{"Length", "[", + RowBox[{"{", "args", "}"}], "]"}], "<", "1"}]}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "data", "}"}], ",", "\[IndentingNewLine]", @@ -7496,13 +7488,13 @@ Cell[BoxData[{ 3.9339430192725267`*^9, 3.933943073315774*^9}, {3.933943147864874*^9, 3.933943182166095*^9}, 3.933943233499093*^9, {3.933943266627066*^9, 3.933943352111928*^9}, {3.933943423063315*^9, 3.933943492655122*^9}, { - 3.933995468172655*^9, 3.933995472142279*^9}, {3.9339959064065537`*^9, + 3.933995468172655*^9, 3.933995472142279*^9}, {3.933995906406554*^9, 3.93399595092451*^9}, {3.938061730872072*^9, 3.938061753571684*^9}, { - 3.9380618015716667`*^9, 3.93806180356382*^9}, {3.9380618585643*^9, - 3.938061863595867*^9}}, - CellLabel-> - "In[188]:=",ExpressionUUID->"8c849199-ac20-4382-a7f0-940f2ba5fe23"] -}, Closed]], + 3.938061801571667*^9, 3.93806180356382*^9}, {3.9380618585643*^9, + 3.938061863595867*^9}, + 3.983423070777453*^9},ExpressionUUID->"8c849199-ac20-4382-a7f0-\ +940f2ba5fe23"] +}, Open ]], Cell[CellGroupData[{ @@ -12965,16 +12957,16 @@ Cell[BoxData[ AutoGeneratedPackage->Automatic, InitializationCellEvaluation->False, InitializationCellWarning->False, -WindowSize->{1200, 750}, -WindowMargins->{{0, Automatic}, {Automatic, 0}}, +WindowSize->{1390.5, 848.25}, +WindowMargins->{{Automatic, 0}, {0, Automatic}}, Magnification:>0.8 Inherited, -FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", +FrontEndVersion->"14.0 for Linux x86 (64-bit) (December 12, 2023)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData["Input"], InitializationCell -> True]}, Visible -> False, - FrontEndVersion -> "14.1 for Linux x86 (64-bit) (July 16, 2024)", + FrontEndVersion -> "14.0 for Linux x86 (64-bit) (December 12, 2023)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"], ExpressionUUID->"3149dff9-433b-4831-b0e6-7a8267329937" ] @@ -12990,23 +12982,23 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 211, 4, 77, "Title",ExpressionUUID->"255990ba-0600-4517-a841-3b30ef1076f1"], +Cell[576, 22, 211, 4, 78, "Title",ExpressionUUID->"255990ba-0600-4517-a841-3b30ef1076f1"], Cell[CellGroupData[{ -Cell[812, 30, 158, 3, 53, "Chapter",ExpressionUUID->"2d5f9f27-5490-4bea-8ecf-1b321b723da0"], +Cell[812, 30, 158, 3, 55, "Chapter",ExpressionUUID->"2d5f9f27-5490-4bea-8ecf-1b321b723da0"], Cell[CellGroupData[{ -Cell[995, 37, 188, 3, 53, "Section",ExpressionUUID->"14b72385-f030-403e-a0c1-5d8222f87d9c"], -Cell[1186, 42, 4190, 93, 435, "Input",ExpressionUUID->"2125670c-8e80-4950-89c2-d22305005954"], +Cell[995, 37, 188, 3, 54, "Section",ExpressionUUID->"14b72385-f030-403e-a0c1-5d8222f87d9c"], +Cell[1186, 42, 4190, 93, 424, "Input",ExpressionUUID->"2125670c-8e80-4950-89c2-d22305005954"], Cell[CellGroupData[{ Cell[5401, 139, 3005, 46, 288, "Input",ExpressionUUID->"cff12a64-b8f4-41c0-bf5f-6bed048747c5"], -Cell[8409, 187, 4079, 62, 189, "Print",ExpressionUUID->"653ab452-b552-416d-a18f-e66588142d05"] +Cell[8409, 187, 4079, 62, 188, "Print",ExpressionUUID->"653ab452-b552-416d-a18f-e66588142d05"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[12537, 255, 184, 3, 53, "Section",ExpressionUUID->"436dffab-0715-4dc4-9893-1534c639b158"], +Cell[12537, 255, 184, 3, 54, "Section",ExpressionUUID->"436dffab-0715-4dc4-9893-1534c639b158"], Cell[CellGroupData[{ -Cell[12746, 262, 7804, 188, 780, "Input",ExpressionUUID->"b5c156b0-48dd-4f0b-b103-49b8869d43c2"], +Cell[12746, 262, 7804, 188, 738, "Input",ExpressionUUID->"b5c156b0-48dd-4f0b-b103-49b8869d43c2"], Cell[20553, 452, 286, 5, 18, "Print",ExpressionUUID->"c9f3d842-9ce9-41fa-acbe-888c601f1def"], -Cell[20842, 459, 357, 6, 28, "Output",ExpressionUUID->"e91ed60a-a087-42b8-bdc0-acad488342af"] +Cell[20842, 459, 357, 6, 26, "Output",ExpressionUUID->"e91ed60a-a087-42b8-bdc0-acad488342af"] }, Open ]], Cell[CellGroupData[{ Cell[21236, 470, 689, 13, 56, "Input",ExpressionUUID->"102739d5-abf9-4cd7-b201-831760d9bc3c"], @@ -13016,12 +13008,12 @@ Cell[CellGroupData[{ Cell[24919, 532, 501, 11, 37, "Input",ExpressionUUID->"b2853eeb-7d21-4045-928b-88a01a09d003"], Cell[25423, 545, 415, 8, 49, "Print",ExpressionUUID->"b040574c-0232-4e09-94d7-1ecfc83fd757"] }, Open ]] -}, Open ]], +}, Closed]], Cell[CellGroupData[{ -Cell[25887, 559, 259, 4, 53, "Section",ExpressionUUID->"db779555-ecf5-414b-9ffe-a23354af864d"], -Cell[26149, 565, 2075, 54, 203, "Input",ExpressionUUID->"6b97ee68-1ec3-4863-b4b5-c6c874bbb5ff"], +Cell[25887, 559, 259, 4, 44, "Section",ExpressionUUID->"db779555-ecf5-414b-9ffe-a23354af864d"], +Cell[26149, 565, 2075, 54, 202, "Input",ExpressionUUID->"6b97ee68-1ec3-4863-b4b5-c6c874bbb5ff"], Cell[28227, 621, 1928, 33, 292, "Input",ExpressionUUID->"9d748520-463b-4673-8dbf-05d7992768a8"], -Cell[30158, 656, 5454, 133, 560, "Input",ExpressionUUID->"f56832ff-a350-4aa1-8112-dc4f04970905"], +Cell[30158, 656, 5454, 133, 527, "Input",ExpressionUUID->"f56832ff-a350-4aa1-8112-dc4f04970905"], Cell[35615, 791, 1721, 42, 166, "Input",ExpressionUUID->"e50ee3b0-10d2-4eed-b352-52a93420a5f3"], Cell[37339, 835, 3997, 87, 558, "Input",ExpressionUUID->"d6b6bbb9-3345-45a0-85dd-a35cd6fbe82c"], Cell[41339, 924, 4007, 89, 556, "Input",ExpressionUUID->"aa92b93a-9b79-4b4b-b856-7897148043bc"], @@ -13045,9 +13037,9 @@ Cell[89961, 2047, 1834, 45, 199, "Input",ExpressionUUID->"f8d0ce3a-d9e9-440c-945 Cell[91798, 2094, 10056, 241, 664, "Input",ExpressionUUID->"e922503b-8241-4aba-aa0f-75c69241d47a"], Cell[101857, 2337, 7670, 201, 506, "Input",ExpressionUUID->"f3ea6309-60d5-4adf-9938-addd5d5f4741"], Cell[109530, 2540, 14572, 298, 1170, "Input",ExpressionUUID->"377a1416-7c5f-4000-b6d8-2a50aee7d278"] -}, Open ]], +}, Closed]], Cell[CellGroupData[{ -Cell[124139, 2843, 197, 4, 53, "Section",ExpressionUUID->"519c8cf4-00ad-429f-90d6-d6259640b221"], +Cell[124139, 2843, 197, 4, 44, "Section",ExpressionUUID->"519c8cf4-00ad-429f-90d6-d6259640b221"], Cell[124339, 2849, 796, 17, 110, "Code",ExpressionUUID->"44dc6e77-47eb-4c57-945f-d5a7c5cda42d"], Cell[CellGroupData[{ Cell[125160, 2870, 1105, 22, 56, "Input",ExpressionUUID->"bb3a37eb-d538-4d41-8217-39204afc0d84"], @@ -13055,18 +13047,18 @@ Cell[126268, 2894, 336, 6, 28, "Output",ExpressionUUID->"acf014db-5c6c-4a08-841b }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[126653, 2906, 174, 3, 42, "Section",ExpressionUUID->"4029e77f-5a28-4c64-82f6-7635a458148b"], -Cell[126830, 2911, 709, 19, 69, "Input",ExpressionUUID->"4d3f01e4-537a-4ee6-883b-ac7809cb4485"], -Cell[127542, 2932, 13215, 235, 1620, "Code",ExpressionUUID->"fa4c288d-f6fa-4904-b906-ae7fe81b8ecf"], +Cell[126653, 2906, 174, 3, 44, "Section",ExpressionUUID->"4029e77f-5a28-4c64-82f6-7635a458148b"], +Cell[126830, 2911, 709, 19, 70, "Input",ExpressionUUID->"4d3f01e4-537a-4ee6-883b-ac7809cb4485"], +Cell[127542, 2932, 13215, 235, 1577, "Code",ExpressionUUID->"fa4c288d-f6fa-4904-b906-ae7fe81b8ecf"], Cell[140760, 3169, 1300, 24, 169, "Input",ExpressionUUID->"2ace8e61-0363-414a-aec2-78ad21a6b37c"], Cell[142063, 3195, 2328, 47, 401, "Input",ExpressionUUID->"961023d5-c081-4924-a4a2-771943e79ed6"], Cell[144394, 3244, 6106, 111, 934, "Input",ExpressionUUID->"b369a129-6cd6-4cba-9c5e-28d2d18ce42d"], Cell[150503, 3357, 548, 12, 56, "Input",ExpressionUUID->"9dedee05-7403-4f49-af58-65aba455c566"], Cell[151054, 3371, 1431, 25, 187, "Input",ExpressionUUID->"9a87c29c-9c9e-41e8-b49c-cc4140e36576"], Cell[152488, 3398, 1347, 24, 191, "Input",ExpressionUUID->"be2e6840-c5b7-46d7-8454-3e14628bb533"] -}, Open ]], +}, Closed]], Cell[CellGroupData[{ -Cell[153872, 3427, 159, 3, 53, "Section",ExpressionUUID->"e355101f-e9af-4241-a28d-d8c2150a645e"], +Cell[153872, 3427, 159, 3, 44, "Section",ExpressionUUID->"e355101f-e9af-4241-a28d-d8c2150a645e"], Cell[154034, 3432, 212, 4, 42, "Code",ExpressionUUID->"334e210a-0008-4f8a-aa82-905e18a840c0"], Cell[CellGroupData[{ Cell[154271, 3440, 730, 17, 56, "Input",ExpressionUUID->"efff9365-e605-44e2-96ed-3bb97e4ee665"], @@ -13075,9 +13067,9 @@ Cell[155004, 3459, 336, 6, 28, "Output",ExpressionUUID->"8af54105-7c27-450e-a0d6 }, Closed]] }, Open ]], Cell[CellGroupData[{ -Cell[155401, 3472, 308, 5, 53, "Chapter",ExpressionUUID->"337028bb-22a5-4c7a-abf1-dfc7beb47d0a"], +Cell[155401, 3472, 308, 5, 55, "Chapter",ExpressionUUID->"337028bb-22a5-4c7a-abf1-dfc7beb47d0a"], Cell[CellGroupData[{ -Cell[155734, 3481, 224, 4, 53, "Section",ExpressionUUID->"dbe6e042-2d89-4387-bbaa-a2256028c645"], +Cell[155734, 3481, 224, 4, 54, "Section",ExpressionUUID->"dbe6e042-2d89-4387-bbaa-a2256028c645"], Cell[155961, 3487, 2371, 51, 356, "Input",ExpressionUUID->"ef80aa05-824a-4470-b476-ddcf32456fc1"], Cell[158335, 3540, 3883, 93, 273, "Input",ExpressionUUID->"6e076dbb-146a-4f86-8dd4-efa0ea4f3802"], Cell[162221, 3635, 8163, 181, 610, "Input",ExpressionUUID->"4067993b-78cc-4eab-a413-1ccb6e45d9eb"], @@ -13086,7 +13078,7 @@ Cell[173828, 3906, 1527, 30, 111, "Input",ExpressionUUID->"b63997b2-abf3-4330-be Cell[175358, 3938, 4802, 167, 574, "Input",ExpressionUUID->"07be19eb-22d0-491d-acac-4ebb05b77005"] }, Closed]], Cell[CellGroupData[{ -Cell[180197, 4110, 185, 3, 42, "Section",ExpressionUUID->"2da5ecf0-e090-4d2e-b392-bb3466e0c2eb"], +Cell[180197, 4110, 185, 3, 44, "Section",ExpressionUUID->"2da5ecf0-e090-4d2e-b392-bb3466e0c2eb"], Cell[180385, 4115, 972, 24, 56, "Input",ExpressionUUID->"f67051ff-d457-4e90-a315-afaf11fe82c4"], Cell[181360, 4141, 1730, 46, 203, "Input",ExpressionUUID->"8ce792ad-49a8-4a56-8abc-de5826491428"], Cell[183093, 4189, 739, 17, 111, "Input",ExpressionUUID->"0b12d5b2-017d-4cf6-b1cf-cbe10312ea40"], @@ -13097,166 +13089,166 @@ Cell[186667, 4287, 2912, 69, 330, "Input",ExpressionUUID->"87c42bbb-3c0d-454a-93 Cell[189582, 4358, 2177, 51, 304, "Input",ExpressionUUID->"c69a1f90-52d2-4c70-a615-7352da6779eb"] }, Closed]], Cell[CellGroupData[{ -Cell[191796, 4414, 170, 3, 42, "Section",ExpressionUUID->"ee0a3f20-4449-4c13-b99e-a02f47060c2b"], -Cell[191969, 4419, 3373, 91, 349, "Input",ExpressionUUID->"822fba52-6de1-43c4-885f-5e6ab1f6fc3b"], -Cell[195345, 4512, 3331, 91, 349, "Input",ExpressionUUID->"bbdfd93e-0b45-4ca4-90ca-a3a9b22aa1ac"], -Cell[198679, 4605, 1057, 29, 128, "Input",ExpressionUUID->"5b3a0713-e32a-40c8-baf1-a8d35b9ca4d7"], -Cell[199739, 4636, 1059, 30, 128, "Input",ExpressionUUID->"e639b518-8d0a-4143-92d8-ccb99c3e3134"], -Cell[200801, 4668, 3104, 88, 349, "Input",ExpressionUUID->"235217ce-2a52-433b-9dcb-ca48aa796831"] -}, Closed]] +Cell[191796, 4414, 170, 3, 44, "Section",ExpressionUUID->"ee0a3f20-4449-4c13-b99e-a02f47060c2b"], +Cell[191969, 4419, 3016, 81, 277, "Input",ExpressionUUID->"822fba52-6de1-43c4-885f-5e6ab1f6fc3b"], +Cell[194988, 4502, 2982, 81, 277, "Input",ExpressionUUID->"bbdfd93e-0b45-4ca4-90ca-a3a9b22aa1ac"], +Cell[197973, 4585, 1136, 32, 112, "Input",ExpressionUUID->"5b3a0713-e32a-40c8-baf1-a8d35b9ca4d7"], +Cell[199112, 4619, 1139, 33, 112, "Input",ExpressionUUID->"e639b518-8d0a-4143-92d8-ccb99c3e3134"], +Cell[200254, 4654, 2755, 78, 277, "Input",ExpressionUUID->"235217ce-2a52-433b-9dcb-ca48aa796831"] +}, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[203954, 4762, 264, 4, 53, "Chapter",ExpressionUUID->"b45359a4-435a-48f5-938f-6624251f7dc8"], +Cell[203058, 4738, 264, 4, 55, "Chapter",ExpressionUUID->"b45359a4-435a-48f5-938f-6624251f7dc8"], Cell[CellGroupData[{ -Cell[204243, 4770, 173, 3, 53, "Section",ExpressionUUID->"57618d00-5575-4b3a-bb3d-ab20be3bd518"], +Cell[203347, 4746, 173, 3, 54, "Section",ExpressionUUID->"57618d00-5575-4b3a-bb3d-ab20be3bd518"], Cell[CellGroupData[{ -Cell[204441, 4777, 244, 4, 42, "Subsection",ExpressionUUID->"fdbba363-df9e-4831-8273-2e976f9760de"], -Cell[204688, 4783, 19942, 507, 1038, "Input",ExpressionUUID->"276d2ca9-7d95-4b0a-b9e8-001c42d065e2"] +Cell[203545, 4753, 244, 4, 43, "Subsection",ExpressionUUID->"fdbba363-df9e-4831-8273-2e976f9760de"], +Cell[203792, 4759, 19942, 507, 1038, "Input",ExpressionUUID->"276d2ca9-7d95-4b0a-b9e8-001c42d065e2"] }, Closed]], Cell[CellGroupData[{ -Cell[224667, 5295, 218, 4, 30, "Subsection",ExpressionUUID->"4d8cf1c7-8120-4fd8-8435-e5bdbedca1d6"], -Cell[224888, 5301, 1313, 36, 109, "Input",ExpressionUUID->"646b692a-14d2-4c95-88bb-42740f0ec810"], -Cell[226204, 5339, 2003, 43, 179, "Input",ExpressionUUID->"3fdb3362-9708-45f6-90ec-4a08285d194a"], -Cell[228210, 5384, 4839, 103, 359, "Input",ExpressionUUID->"cd19b020-7808-4b5c-a1a3-737ab5f86d7a"], -Cell[233052, 5489, 3830, 89, 308, "Input",ExpressionUUID->"a0647142-035b-4af3-86c3-0ef0ea513443"], -Cell[236885, 5580, 4589, 112, 411, "Input",ExpressionUUID->"c3c5409f-48fe-41df-9ce8-a07da018aff7"], -Cell[241477, 5694, 4188, 95, 308, "Input",ExpressionUUID->"7662e852-6b7d-4ee4-96de-95764d7a2591"], -Cell[245668, 5791, 4240, 91, 342, "Input",ExpressionUUID->"40224019-5bbe-4af3-bb73-5d0fce2e4594"], -Cell[249911, 5884, 4248, 95, 377, "Input",ExpressionUUID->"61eaeae7-1a13-4ce5-831f-881e2297d0d2"], -Cell[254162, 5981, 7433, 138, 606, "Input",ExpressionUUID->"6be61425-e734-43e1-8f41-a7b0f08b8855"], -Cell[261598, 6121, 2126, 45, 216, "Input",ExpressionUUID->"ac6faa51-ce9e-4b84-bada-36b9f44afbb9"], -Cell[263727, 6168, 4992, 108, 471, "Input",ExpressionUUID->"7b039ccb-9100-4dea-b99c-bec5c7ee5184"], -Cell[268722, 6278, 4080, 93, 537, "Input",ExpressionUUID->"9ef01342-89a5-4ac7-97c3-96645a7ca791"] +Cell[223771, 5271, 218, 4, 31, "Subsection",ExpressionUUID->"4d8cf1c7-8120-4fd8-8435-e5bdbedca1d6"], +Cell[223992, 5277, 1313, 36, 109, "Input",ExpressionUUID->"646b692a-14d2-4c95-88bb-42740f0ec810"], +Cell[225308, 5315, 2003, 43, 179, "Input",ExpressionUUID->"3fdb3362-9708-45f6-90ec-4a08285d194a"], +Cell[227314, 5360, 4839, 103, 359, "Input",ExpressionUUID->"cd19b020-7808-4b5c-a1a3-737ab5f86d7a"], +Cell[232156, 5465, 3830, 89, 308, "Input",ExpressionUUID->"a0647142-035b-4af3-86c3-0ef0ea513443"], +Cell[235989, 5556, 4589, 112, 411, "Input",ExpressionUUID->"c3c5409f-48fe-41df-9ce8-a07da018aff7"], +Cell[240581, 5670, 4188, 95, 308, "Input",ExpressionUUID->"7662e852-6b7d-4ee4-96de-95764d7a2591"], +Cell[244772, 5767, 4240, 91, 342, "Input",ExpressionUUID->"40224019-5bbe-4af3-bb73-5d0fce2e4594"], +Cell[249015, 5860, 4248, 95, 377, "Input",ExpressionUUID->"61eaeae7-1a13-4ce5-831f-881e2297d0d2"], +Cell[253266, 5957, 7433, 138, 606, "Input",ExpressionUUID->"6be61425-e734-43e1-8f41-a7b0f08b8855"], +Cell[260702, 6097, 2126, 45, 216, "Input",ExpressionUUID->"ac6faa51-ce9e-4b84-bada-36b9f44afbb9"], +Cell[262831, 6144, 4992, 108, 471, "Input",ExpressionUUID->"7b039ccb-9100-4dea-b99c-bec5c7ee5184"], +Cell[267826, 6254, 4080, 93, 537, "Input",ExpressionUUID->"9ef01342-89a5-4ac7-97c3-96645a7ca791"] }, Closed]], Cell[CellGroupData[{ -Cell[272839, 6376, 166, 3, 30, "Subsection",ExpressionUUID->"721a4bfa-aee9-42d0-96d3-96743ca88c9a"], -Cell[273008, 6381, 2627, 66, 276, "Input",ExpressionUUID->"b09ddb40-3738-43ba-bb9f-5b40636f77fc"], -Cell[275638, 6449, 16005, 352, 2133, "Input",ExpressionUUID->"5fd29c15-2ee2-45bb-8e2c-84772a8fccb6"] +Cell[271943, 6352, 166, 3, 31, "Subsection",ExpressionUUID->"721a4bfa-aee9-42d0-96d3-96743ca88c9a"], +Cell[272112, 6357, 2627, 66, 276, "Input",ExpressionUUID->"b09ddb40-3738-43ba-bb9f-5b40636f77fc"], +Cell[274742, 6425, 16005, 352, 2133, "Input",ExpressionUUID->"5fd29c15-2ee2-45bb-8e2c-84772a8fccb6"] }, Closed]], Cell[CellGroupData[{ -Cell[291680, 6806, 194, 3, 30, "Subsection",ExpressionUUID->"4242c64b-75cf-4833-9d4c-f8fa32859c1c"], -Cell[291877, 6811, 735, 20, 111, "Input",ExpressionUUID->"9cc81c11-fd01-456a-8d42-c7e11e50298a"], -Cell[292615, 6833, 4897, 102, 394, "Input",ExpressionUUID->"2554b4b1-4f7a-4978-8f23-c17c75e9fec4"], -Cell[297515, 6937, 511, 14, 54, "Input",ExpressionUUID->"bb7d78b6-0709-4a59-a019-6b02011b3430"] -}, Closed]], +Cell[290784, 6782, 194, 3, 31, "Subsection",ExpressionUUID->"4242c64b-75cf-4833-9d4c-f8fa32859c1c"], +Cell[290981, 6787, 1140, 32, 152, "Input",ExpressionUUID->"9cc81c11-fd01-456a-8d42-c7e11e50298a"], +Cell[292124, 6821, 4897, 102, 380, "Input",ExpressionUUID->"2554b4b1-4f7a-4978-8f23-c17c75e9fec4"], +Cell[297024, 6925, 511, 14, 53, "Input",ExpressionUUID->"bb7d78b6-0709-4a59-a019-6b02011b3430"] +}, Open ]], Cell[CellGroupData[{ -Cell[298063, 6956, 165, 3, 30, "Subsection",ExpressionUUID->"d227ef0c-8266-4409-8f73-aa6465e26740"], -Cell[298231, 6961, 8188, 183, 991, "Input",ExpressionUUID->"bfd8db10-63e3-4def-a1fc-e8d43db1a1f0"], -Cell[306422, 7146, 7422, 165, 901, "Input",ExpressionUUID->"116a0c96-5bd5-4c0a-adb7-e6a94047e56f"], -Cell[313847, 7313, 3897, 69, 253, "Input",ExpressionUUID->"25fdb4b4-859c-4eee-92ea-5ea5491eae01"], -Cell[317747, 7384, 1063, 25, 163, "Input",ExpressionUUID->"8d6d551a-80c8-4fc7-a71d-942b77d4b246"] +Cell[297572, 6944, 165, 3, 43, "Subsection",ExpressionUUID->"d227ef0c-8266-4409-8f73-aa6465e26740"], +Cell[297740, 6949, 8184, 183, 949, "Input",ExpressionUUID->"bfd8db10-63e3-4def-a1fc-e8d43db1a1f0"], +Cell[305927, 7134, 7420, 165, 861, "Input",ExpressionUUID->"116a0c96-5bd5-4c0a-adb7-e6a94047e56f"], +Cell[313350, 7301, 3897, 69, 235, "Input",ExpressionUUID->"25fdb4b4-859c-4eee-92ea-5ea5491eae01"], +Cell[317250, 7372, 1063, 25, 152, "Input",ExpressionUUID->"8d6d551a-80c8-4fc7-a71d-942b77d4b246"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[318859, 7415, 171, 3, 53, "Section",ExpressionUUID->"affba3cf-2232-4f92-a752-5294cc029251"], -Cell[319033, 7420, 3925, 83, 221, "Input",ExpressionUUID->"8c849199-ac20-4382-a7f0-940f2ba5fe23"] -}, Closed]], +Cell[318362, 7403, 171, 3, 54, "Section",ExpressionUUID->"affba3cf-2232-4f92-a752-5294cc029251"], +Cell[318536, 7408, 4045, 87, 211, "Input",ExpressionUUID->"8c849199-ac20-4382-a7f0-940f2ba5fe23"] +}, Open ]], Cell[CellGroupData[{ -Cell[322995, 7508, 163, 3, 42, "Section",ExpressionUUID->"ec752d41-e18b-46c9-a687-2a43acbc2c49"], +Cell[322618, 7500, 163, 3, 54, "Section",ExpressionUUID->"ec752d41-e18b-46c9-a687-2a43acbc2c49"], Cell[CellGroupData[{ -Cell[323183, 7515, 173, 3, 42, "Subsection",ExpressionUUID->"3e413af6-2afb-4184-9b39-a1aaa5f0470a"], -Cell[323359, 7520, 4601, 105, 376, "Input",ExpressionUUID->"ddd79a10-fb97-42d5-8007-c57acf0bf44a"], -Cell[327963, 7627, 7771, 179, 495, "Input",ExpressionUUID->"8dfab7ec-76d6-44d3-bd88-b570064f104c"] +Cell[322806, 7507, 173, 3, 43, "Subsection",ExpressionUUID->"3e413af6-2afb-4184-9b39-a1aaa5f0470a"], +Cell[322982, 7512, 4601, 105, 376, "Input",ExpressionUUID->"ddd79a10-fb97-42d5-8007-c57acf0bf44a"], +Cell[327586, 7619, 7771, 179, 495, "Input",ExpressionUUID->"8dfab7ec-76d6-44d3-bd88-b570064f104c"] }, Closed]], Cell[CellGroupData[{ -Cell[335771, 7811, 166, 3, 30, "Subsection",ExpressionUUID->"dc801699-1d95-410e-9663-9189a6f1e807"], -Cell[335940, 7816, 666, 18, 55, "Input",ExpressionUUID->"e7e8722e-6c81-4b40-87c8-d6ef15800524"], -Cell[336609, 7836, 12796, 306, 1211, "Input",ExpressionUUID->"cee60305-1632-4714-aee9-1dcaae6ffc44"], -Cell[349408, 8144, 10811, 220, 1263, "Input",ExpressionUUID->"df914fa8-0897-4c10-9328-ade25a1bd30a"], -Cell[360222, 8366, 11964, 284, 1105, "Input",ExpressionUUID->"9543579a-ea48-431a-8be6-98d0ba867cdb"], -Cell[372189, 8652, 9030, 192, 1495, "Input",ExpressionUUID->"2d7724d0-cb4e-4f12-8a6a-2b790f86f424"] +Cell[335394, 7803, 166, 3, 31, "Subsection",ExpressionUUID->"dc801699-1d95-410e-9663-9189a6f1e807"], +Cell[335563, 7808, 666, 18, 56, "Input",ExpressionUUID->"e7e8722e-6c81-4b40-87c8-d6ef15800524"], +Cell[336232, 7828, 12796, 306, 1060, "Input",ExpressionUUID->"cee60305-1632-4714-aee9-1dcaae6ffc44"], +Cell[349031, 8136, 10811, 220, 1185, "Input",ExpressionUUID->"df914fa8-0897-4c10-9328-ade25a1bd30a"], +Cell[359845, 8358, 11964, 284, 1011, "Input",ExpressionUUID->"9543579a-ea48-431a-8be6-98d0ba867cdb"], +Cell[371812, 8644, 9030, 192, 1152, "Input",ExpressionUUID->"2d7724d0-cb4e-4f12-8a6a-2b790f86f424"] }, Open ]], Cell[CellGroupData[{ -Cell[381256, 8849, 159, 3, 42, "Subsection",ExpressionUUID->"1efcce37-5c6a-46da-b65a-c7e8cd3a1ea3"], -Cell[381418, 8854, 6163, 139, 760, "Input",ExpressionUUID->"c51852e4-4259-4a60-afd1-89085a704206"] +Cell[380879, 8841, 159, 3, 43, "Subsection",ExpressionUUID->"1efcce37-5c6a-46da-b65a-c7e8cd3a1ea3"], +Cell[381041, 8846, 6163, 139, 508, "Input",ExpressionUUID->"c51852e4-4259-4a60-afd1-89085a704206"] }, Open ]], Cell[CellGroupData[{ -Cell[387618, 8998, 172, 3, 42, "Subsection",ExpressionUUID->"6fd1aab8-49ce-4b72-8f10-a955c0d61aff"], -Cell[387793, 9003, 1049, 26, 109, "Input",ExpressionUUID->"722f1a94-94b0-4458-8e49-4565186956ca"], -Cell[388845, 9031, 3000, 60, 234, "Input",ExpressionUUID->"ed8767a1-38cb-4d61-8fcd-d8bef0b02bf2"], -Cell[391848, 9093, 6874, 170, 646, "Input",ExpressionUUID->"d4d0c117-b8d3-4534-9810-eca46ea7b9ca"], -Cell[398725, 9265, 11409, 250, 1401, "Input",ExpressionUUID->"449db943-f88d-4296-bedc-a6300214bcf4"] +Cell[387241, 8990, 172, 3, 43, "Subsection",ExpressionUUID->"6fd1aab8-49ce-4b72-8f10-a955c0d61aff"], +Cell[387416, 8995, 1049, 26, 109, "Input",ExpressionUUID->"722f1a94-94b0-4458-8e49-4565186956ca"], +Cell[388468, 9023, 3000, 60, 234, "Input",ExpressionUUID->"ed8767a1-38cb-4d61-8fcd-d8bef0b02bf2"], +Cell[391471, 9085, 6874, 170, 646, "Input",ExpressionUUID->"d4d0c117-b8d3-4534-9810-eca46ea7b9ca"], +Cell[398348, 9257, 11409, 250, 1401, "Input",ExpressionUUID->"449db943-f88d-4296-bedc-a6300214bcf4"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[410195, 9522, 213, 4, 53, "Chapter",ExpressionUUID->"221bb86f-745e-4bc2-a4c0-d57eedca7fe8"], -Cell[410411, 9528, 1357, 34, 184, "Input",ExpressionUUID->"cba66cbf-1d59-4a38-9eb3-c28a5bd46deb"], -Cell[411771, 9564, 4755, 104, 607, "Input",ExpressionUUID->"516650ad-94d7-4c45-86f1-a468f0befd43"], +Cell[409818, 9514, 213, 4, 55, "Chapter",ExpressionUUID->"221bb86f-745e-4bc2-a4c0-d57eedca7fe8"], +Cell[410034, 9520, 1357, 34, 128, "Input",ExpressionUUID->"cba66cbf-1d59-4a38-9eb3-c28a5bd46deb"], +Cell[411394, 9556, 4755, 104, 451, "Input",ExpressionUUID->"516650ad-94d7-4c45-86f1-a468f0befd43"], Cell[CellGroupData[{ -Cell[416551, 9672, 392, 10, 72, "Input",ExpressionUUID->"4bd30e8a-e2ca-4156-95a1-a802bc6392e7"], +Cell[416174, 9664, 392, 10, 70, "Input",ExpressionUUID->"4bd30e8a-e2ca-4156-95a1-a802bc6392e7"], Cell[CellGroupData[{ -Cell[416968, 9686, 1029, 19, 18, "Print",ExpressionUUID->"0acca0b3-8454-42cd-b9bf-6763330b40df"], -Cell[418000, 9707, 1030, 19, 18, "Print",ExpressionUUID->"6dad3b0e-87b1-4cd2-8f15-e8f9e0eea03c"] +Cell[416591, 9678, 1029, 19, 18, "Print",ExpressionUUID->"0acca0b3-8454-42cd-b9bf-6763330b40df"], +Cell[417623, 9699, 1030, 19, 18, "Print",ExpressionUUID->"6dad3b0e-87b1-4cd2-8f15-e8f9e0eea03c"] }, Open ]], -Cell[419045, 9729, 160, 3, 26, "Output",ExpressionUUID->"62c49d00-1308-4327-9f61-1fa94e6a1750"] +Cell[418668, 9721, 160, 3, 26, "Output",ExpressionUUID->"62c49d00-1308-4327-9f61-1fa94e6a1750"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[419254, 9738, 291, 4, 91, "Chapter",ExpressionUUID->"34a6e352-6706-4c26-a9dc-a4f7001cae32"], +Cell[418877, 9730, 291, 4, 55, "Chapter",ExpressionUUID->"34a6e352-6706-4c26-a9dc-a4f7001cae32"], Cell[CellGroupData[{ -Cell[419570, 9746, 166, 3, 53, "Section",ExpressionUUID->"8f688e9a-3910-494a-a87f-f2f844618e52"], -Cell[419739, 9751, 13298, 323, 1722, "Input",ExpressionUUID->"0ec9bdae-e9ab-45ab-9804-e4f709e96573"] +Cell[419193, 9738, 166, 3, 54, "Section",ExpressionUUID->"8f688e9a-3910-494a-a87f-f2f844618e52"], +Cell[419362, 9743, 13298, 323, 1228, "Input",ExpressionUUID->"0ec9bdae-e9ab-45ab-9804-e4f709e96573"] }, Open ]], Cell[CellGroupData[{ -Cell[433074, 10079, 203, 4, 53, "Section",ExpressionUUID->"371e5165-5789-4a54-b8ed-1ad9279324ac"], -Cell[433280, 10085, 1238, 32, 183, "Input",ExpressionUUID->"c295db63-b755-42d4-905e-1f60bd136daf"], -Cell[434521, 10119, 3268, 80, 332, "Input",ExpressionUUID->"4846ddb1-8167-43f8-81b1-6123f63d2e77"], -Cell[437792, 10201, 10188, 232, 1151, "Input",ExpressionUUID->"9d9e432a-d4af-4dcc-9d9e-1c04658c33ba"], -Cell[447983, 10435, 1064, 27, 111, "Input",ExpressionUUID->"e68c39a2-a812-43a3-91aa-78fdedec2843"], -Cell[449050, 10464, 1172, 28, 111, "Input",ExpressionUUID->"9bc022fa-0a10-4835-b882-4bc39407c56a"] +Cell[432697, 10071, 203, 4, 54, "Section",ExpressionUUID->"371e5165-5789-4a54-b8ed-1ad9279324ac"], +Cell[432903, 10077, 1238, 32, 141, "Input",ExpressionUUID->"c295db63-b755-42d4-905e-1f60bd136daf"], +Cell[434144, 10111, 3268, 80, 242, "Input",ExpressionUUID->"4846ddb1-8167-43f8-81b1-6123f63d2e77"], +Cell[437415, 10193, 10188, 232, 873, "Input",ExpressionUUID->"9d9e432a-d4af-4dcc-9d9e-1c04658c33ba"], +Cell[447606, 10427, 1064, 27, 92, "Input",ExpressionUUID->"e68c39a2-a812-43a3-91aa-78fdedec2843"], +Cell[448673, 10456, 1172, 28, 92, "Input",ExpressionUUID->"9bc022fa-0a10-4835-b882-4bc39407c56a"] }, Open ]], Cell[CellGroupData[{ -Cell[450259, 10497, 212, 4, 53, "Section",ExpressionUUID->"84d986be-8d17-4863-a617-8340b33ff44f"], -Cell[450474, 10503, 1087, 31, 109, "Input",ExpressionUUID->"d665743c-fc53-4c25-a3dd-abde9a533ea6"], -Cell[451564, 10536, 188, 3, 37, "Input",ExpressionUUID->"e98aaf44-924f-4147-94e5-36e7ff92a6a2"], -Cell[451755, 10541, 2531, 52, 238, "Input",ExpressionUUID->"5e78e10f-4d64-4a4e-bbb8-8b3d20131c47"] +Cell[449882, 10489, 212, 4, 54, "Section",ExpressionUUID->"84d986be-8d17-4863-a617-8340b33ff44f"], +Cell[450097, 10495, 1087, 31, 53, "Input",ExpressionUUID->"d665743c-fc53-4c25-a3dd-abde9a533ea6"], +Cell[451187, 10528, 188, 3, 36, "Input",ExpressionUUID->"e98aaf44-924f-4147-94e5-36e7ff92a6a2"], +Cell[451378, 10533, 2531, 52, 202, "Input",ExpressionUUID->"5e78e10f-4d64-4a4e-bbb8-8b3d20131c47"] }, Open ]], Cell[CellGroupData[{ -Cell[454323, 10598, 164, 3, 53, "Section",ExpressionUUID->"01de564e-e77c-4793-b30b-519a41b90f3e"], -Cell[454490, 10603, 3575, 85, 556, "Input",ExpressionUUID->"dcbb158f-daa3-4447-b3fa-de02c92ce373"], -Cell[458068, 10690, 10196, 226, 905, "Input",ExpressionUUID->"038f472d-4965-4744-92f5-a4507f90d81b"] +Cell[453946, 10590, 164, 3, 54, "Section",ExpressionUUID->"01de564e-e77c-4793-b30b-519a41b90f3e"], +Cell[454113, 10595, 3575, 85, 450, "Input",ExpressionUUID->"dcbb158f-daa3-4447-b3fa-de02c92ce373"], +Cell[457691, 10682, 10196, 226, 905, "Input",ExpressionUUID->"038f472d-4965-4744-92f5-a4507f90d81b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[468313, 10922, 169, 3, 53, "Chapter",ExpressionUUID->"1e0c9b17-26f2-4dfa-9b12-f0fcfa71397f"], +Cell[467936, 10914, 169, 3, 53, "Chapter",ExpressionUUID->"1e0c9b17-26f2-4dfa-9b12-f0fcfa71397f"], Cell[CellGroupData[{ -Cell[468507, 10929, 156, 3, 53, "Section",ExpressionUUID->"5e56d50d-49e6-4304-9335-02ae825ce1c2"], -Cell[468666, 10934, 2046, 40, 208, "Input",ExpressionUUID->"b9ed0595-8856-47f8-b683-4ccc50eab34d"] +Cell[468130, 10921, 156, 3, 53, "Section",ExpressionUUID->"5e56d50d-49e6-4304-9335-02ae825ce1c2"], +Cell[468289, 10926, 2046, 40, 208, "Input",ExpressionUUID->"b9ed0595-8856-47f8-b683-4ccc50eab34d"] }, Open ]], Cell[CellGroupData[{ -Cell[470749, 10979, 172, 3, 53, "Section",ExpressionUUID->"8ffa1e1e-e9b7-4c60-a83a-b25d1067fe84"], -Cell[470924, 10984, 4831, 127, 455, "Input",ExpressionUUID->"552fd81a-00e9-4406-bd7b-53eaf56cdea5"], -Cell[475758, 11113, 2338, 59, 203, "Input",ExpressionUUID->"6078d412-e4a5-4d75-91d7-f6401e2febfe"], -Cell[478099, 11174, 5416, 137, 506, "Input",ExpressionUUID->"a17f937c-f706-4976-8f08-42a105f6ccc9"] +Cell[470372, 10971, 172, 3, 53, "Section",ExpressionUUID->"8ffa1e1e-e9b7-4c60-a83a-b25d1067fe84"], +Cell[470547, 10976, 4831, 127, 455, "Input",ExpressionUUID->"552fd81a-00e9-4406-bd7b-53eaf56cdea5"], +Cell[475381, 11105, 2338, 59, 203, "Input",ExpressionUUID->"6078d412-e4a5-4d75-91d7-f6401e2febfe"], +Cell[477722, 11166, 5416, 137, 506, "Input",ExpressionUUID->"a17f937c-f706-4976-8f08-42a105f6ccc9"] }, Open ]], Cell[CellGroupData[{ -Cell[483552, 11316, 183, 3, 53, "Section",ExpressionUUID->"04ef16ce-b8bd-4593-9dd9-7f337307e574"], +Cell[483175, 11308, 183, 3, 53, "Section",ExpressionUUID->"04ef16ce-b8bd-4593-9dd9-7f337307e574"], Cell[CellGroupData[{ -Cell[483760, 11323, 158, 3, 42, "Subsection",ExpressionUUID->"171d1c15-50f3-4038-94a7-5c5590d84e9a"], +Cell[483383, 11315, 158, 3, 42, "Subsection",ExpressionUUID->"171d1c15-50f3-4038-94a7-5c5590d84e9a"], Cell[CellGroupData[{ -Cell[483943, 11330, 165, 3, 34, "Subsubsection",ExpressionUUID->"b7c07b71-68a3-4a76-94a8-f9a553ef4e87"], -Cell[484111, 11335, 12835, 285, 1452, "Input",ExpressionUUID->"78d1d83d-1db3-48fe-9d5d-0549bc1ca3eb"], -Cell[496949, 11622, 12403, 269, 1806, "Input",ExpressionUUID->"48f54286-12c9-432b-b442-cd476a94214d"] +Cell[483566, 11322, 165, 3, 34, "Subsubsection",ExpressionUUID->"b7c07b71-68a3-4a76-94a8-f9a553ef4e87"], +Cell[483734, 11327, 12835, 285, 1452, "Input",ExpressionUUID->"78d1d83d-1db3-48fe-9d5d-0549bc1ca3eb"], +Cell[496572, 11614, 12403, 269, 1806, "Input",ExpressionUUID->"48f54286-12c9-432b-b442-cd476a94214d"] }, Open ]], Cell[CellGroupData[{ -Cell[509389, 11896, 163, 3, 34, "Subsubsection",ExpressionUUID->"760961e8-a2ff-4ade-a764-8d04318f13d6"], -Cell[509555, 11901, 12119, 267, 1280, "Input",ExpressionUUID->"eb0d0058-7e72-44ea-9964-09dd66819a96"], -Cell[521677, 12170, 11264, 244, 1581, "Input",ExpressionUUID->"eda0cfa0-8b5d-471e-93a5-482d7d0e9336"] +Cell[509012, 11888, 163, 3, 34, "Subsubsection",ExpressionUUID->"760961e8-a2ff-4ade-a764-8d04318f13d6"], +Cell[509178, 11893, 12119, 267, 1280, "Input",ExpressionUUID->"eb0d0058-7e72-44ea-9964-09dd66819a96"], +Cell[521300, 12162, 11264, 244, 1581, "Input",ExpressionUUID->"eda0cfa0-8b5d-471e-93a5-482d7d0e9336"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[532990, 12420, 154, 3, 42, "Subsection",ExpressionUUID->"fe90355d-812c-40f2-9b7c-b012ae540bf9"], -Cell[533147, 12425, 11820, 265, 1190, "Input",ExpressionUUID->"aabc8ef7-49e5-4333-9181-ae2ddd34f9e3"], -Cell[544970, 12692, 11003, 238, 1600, "Input",ExpressionUUID->"57457dd7-5571-4c38-a645-c46447a3a30c"] +Cell[532613, 12412, 154, 3, 42, "Subsection",ExpressionUUID->"fe90355d-812c-40f2-9b7c-b012ae540bf9"], +Cell[532770, 12417, 11820, 265, 1190, "Input",ExpressionUUID->"aabc8ef7-49e5-4333-9181-ae2ddd34f9e3"], +Cell[544593, 12684, 11003, 238, 1600, "Input",ExpressionUUID->"57457dd7-5571-4c38-a645-c46447a3a30c"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[556034, 12937, 162, 3, 53, "Chapter",ExpressionUUID->"e8c3cc19-732d-4100-ba41-4f741977ed46"], -Cell[556199, 12942, 294, 6, 37, "Input",ExpressionUUID->"9b9ea4fc-21b7-44a7-a56c-9624eb86aa03"], -Cell[556496, 12950, 151, 4, 41, "Code",ExpressionUUID->"404ab529-fa01-4a17-8d30-d78a744d6275"], -Cell[556650, 12956, 158, 4, 41, "Code",ExpressionUUID->"71cbb145-c03b-495b-a560-6fe322da1f14"] +Cell[555657, 12929, 162, 3, 53, "Chapter",ExpressionUUID->"e8c3cc19-732d-4100-ba41-4f741977ed46"], +Cell[555822, 12934, 294, 6, 37, "Input",ExpressionUUID->"9b9ea4fc-21b7-44a7-a56c-9624eb86aa03"], +Cell[556119, 12942, 151, 4, 41, "Code",ExpressionUUID->"404ab529-fa01-4a17-8d30-d78a744d6275"], +Cell[556273, 12948, 158, 4, 41, "Code",ExpressionUUID->"71cbb145-c03b-495b-a560-6fe322da1f14"] }, Open ]] }, Open ]] } From 9b85833f7c5f2eedee645c5d9ef93a3f4fcc3c40 Mon Sep 17 00:00:00 2001 From: Konrad Kockler Date: Wed, 25 Mar 2026 11:41:32 +0100 Subject: [PATCH 2/2] commented out safeguards leading to error when importing --- TensorBases.m | 6 +- TensorBases.nb | 186 +++++++++++++++++++++++++------------------------ 2 files changed, 100 insertions(+), 92 deletions(-) diff --git a/TensorBases.m b/TensorBases.m index 37fe60c..36e0f81 100644 --- a/TensorBases.m +++ b/TensorBases.m @@ -1490,7 +1490,8 @@ Returns a matrix for the transformation of coordinates (i.e. (!) vertex dressing Print[BasisName~~" is a Vertex basis - no basis elements are available!"];Abort[]; ]; TBGetBasisElement[BasisName,All]:=Module[{}, -Print[BasisName~~" is a Vertex basis - no basis elements are available!"];Abort[]; +Nothing +(*Print[BasisName~~" is a Vertex basis - no basis elements are available!"];Abort[];*) ]; ]; @@ -1572,7 +1573,8 @@ Returns a matrix for the transformation of coordinates (i.e. (!) vertex dressing ]; TBUnDefineTBGetInnerProduct[BasisName_String]:=Module[{}, TBGetInnerProduct[BasisName]:=Module[{}, -Print[BasisName~~" is a Vertex basis - no inner product is available!"];Abort[]; +Nothing +(*Print[BasisName~~" is a Vertex basis - no inner product is available!"];Abort[];*) ]; ]; TBDefineTBGetInverseMetric[BasisName_String]:=Module[{}, diff --git a/TensorBases.nb b/TensorBases.nb index 3007460..07dc1a8 100644 --- a/TensorBases.nb +++ b/TensorBases.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 575670, 13249] -NotebookOptionsPosition[ 556459, 12956] -NotebookOutlinePosition[ 557260, 12982] -CellTagsIndexPosition[ 557217, 12979] +NotebookDataLength[ 575893, 13255] +NotebookOptionsPosition[ 556682, 12962] +NotebookOutlinePosition[ 557483, 12988] +CellTagsIndexPosition[ 557440, 12985] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -6410,18 +6410,21 @@ Cell[BoxData[ RowBox[{"BasisName", ",", "All"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ - RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "Nothing"}], + "\[IndentingNewLine]", + RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", RowBox[{ "BasisName", "~~", "\"\< is a Vertex basis - no basis elements are available!\>\""}], "]"}], ";", - RowBox[{"Abort", "[", "]"}], ";"}]}], "\[IndentingNewLine]", + RowBox[{"Abort", "[", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.937412013787129*^9, 3.937412060739955*^9}}, - CellLabel-> - "In[172]:=",ExpressionUUID->"b09ddb40-3738-43ba-bb9f-5b40636f77fc"], + CellChangeTimes->{{3.937412013787129*^9, 3.937412060739955*^9}, { + 3.983424028357625*^9, + 3.98342403118006*^9}},ExpressionUUID->"b09ddb40-3738-43ba-bb9f-\ +5b40636f77fc"], Cell[BoxData[{ RowBox[{ @@ -6641,14 +6644,16 @@ Cell[BoxData[{ RowBox[{"TBGetInnerProduct", "[", "BasisName", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ - RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", + RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "Nothing"}], + "\[IndentingNewLine]", + RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", RowBox[{ "BasisName", "~~", "\"\< is a Vertex basis - no inner product is available!\>\""}], "]"}], ";", - RowBox[{"Abort", "[", "]"}], ";"}]}], "\[IndentingNewLine]", + RowBox[{"Abort", "[", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ @@ -6773,10 +6778,11 @@ Cell[BoxData[{ 3.935819606662373*^9, 3.935819700973648*^9}, {3.936858082896402*^9, 3.936858272853257*^9}, {3.93685846954662*^9, 3.936858559236175*^9}, { 3.936858605099218*^9, 3.936858631922153*^9}, {3.9374120839966593`*^9, - 3.9374121159050817`*^9}, {3.969347432213995*^9, - 3.969347447279084*^9}},ExpressionUUID->"5fd29c15-2ee2-45bb-8e2c-\ + 3.9374121159050813`*^9}, {3.969347432213995*^9, 3.969347447279084*^9}, { + 3.983423998860073*^9, + 3.983424007555676*^9}},ExpressionUUID->"5fd29c15-2ee2-45bb-8e2c-\ 84772a8fccb6"] -}, Closed]], +}, Open ]], Cell[CellGroupData[{ @@ -13122,133 +13128,133 @@ Cell[267826, 6254, 4080, 93, 537, "Input",ExpressionUUID->"9ef01342-89a5-4ac7-97 }, Closed]], Cell[CellGroupData[{ Cell[271943, 6352, 166, 3, 31, "Subsection",ExpressionUUID->"721a4bfa-aee9-42d0-96d3-96743ca88c9a"], -Cell[272112, 6357, 2627, 66, 276, "Input",ExpressionUUID->"b09ddb40-3738-43ba-bb9f-5b40636f77fc"], -Cell[274742, 6425, 16005, 352, 2133, "Input",ExpressionUUID->"5fd29c15-2ee2-45bb-8e2c-84772a8fccb6"] -}, Closed]], +Cell[272112, 6357, 2726, 69, 293, "Input",ExpressionUUID->"b09ddb40-3738-43ba-bb9f-5b40636f77fc"], +Cell[274841, 6428, 16129, 355, 1944, "Input",ExpressionUUID->"5fd29c15-2ee2-45bb-8e2c-84772a8fccb6"] +}, Open ]], Cell[CellGroupData[{ -Cell[290784, 6782, 194, 3, 31, "Subsection",ExpressionUUID->"4242c64b-75cf-4833-9d4c-f8fa32859c1c"], -Cell[290981, 6787, 1140, 32, 152, "Input",ExpressionUUID->"9cc81c11-fd01-456a-8d42-c7e11e50298a"], -Cell[292124, 6821, 4897, 102, 380, "Input",ExpressionUUID->"2554b4b1-4f7a-4978-8f23-c17c75e9fec4"], -Cell[297024, 6925, 511, 14, 53, "Input",ExpressionUUID->"bb7d78b6-0709-4a59-a019-6b02011b3430"] +Cell[291007, 6788, 194, 3, 43, "Subsection",ExpressionUUID->"4242c64b-75cf-4833-9d4c-f8fa32859c1c"], +Cell[291204, 6793, 1140, 32, 152, "Input",ExpressionUUID->"9cc81c11-fd01-456a-8d42-c7e11e50298a"], +Cell[292347, 6827, 4897, 102, 380, "Input",ExpressionUUID->"2554b4b1-4f7a-4978-8f23-c17c75e9fec4"], +Cell[297247, 6931, 511, 14, 53, "Input",ExpressionUUID->"bb7d78b6-0709-4a59-a019-6b02011b3430"] }, Open ]], Cell[CellGroupData[{ -Cell[297572, 6944, 165, 3, 43, "Subsection",ExpressionUUID->"d227ef0c-8266-4409-8f73-aa6465e26740"], -Cell[297740, 6949, 8184, 183, 949, "Input",ExpressionUUID->"bfd8db10-63e3-4def-a1fc-e8d43db1a1f0"], -Cell[305927, 7134, 7420, 165, 861, "Input",ExpressionUUID->"116a0c96-5bd5-4c0a-adb7-e6a94047e56f"], -Cell[313350, 7301, 3897, 69, 235, "Input",ExpressionUUID->"25fdb4b4-859c-4eee-92ea-5ea5491eae01"], -Cell[317250, 7372, 1063, 25, 152, "Input",ExpressionUUID->"8d6d551a-80c8-4fc7-a71d-942b77d4b246"] +Cell[297795, 6950, 165, 3, 43, "Subsection",ExpressionUUID->"d227ef0c-8266-4409-8f73-aa6465e26740"], +Cell[297963, 6955, 8184, 183, 949, "Input",ExpressionUUID->"bfd8db10-63e3-4def-a1fc-e8d43db1a1f0"], +Cell[306150, 7140, 7420, 165, 861, "Input",ExpressionUUID->"116a0c96-5bd5-4c0a-adb7-e6a94047e56f"], +Cell[313573, 7307, 3897, 69, 235, "Input",ExpressionUUID->"25fdb4b4-859c-4eee-92ea-5ea5491eae01"], +Cell[317473, 7378, 1063, 25, 152, "Input",ExpressionUUID->"8d6d551a-80c8-4fc7-a71d-942b77d4b246"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[318362, 7403, 171, 3, 54, "Section",ExpressionUUID->"affba3cf-2232-4f92-a752-5294cc029251"], -Cell[318536, 7408, 4045, 87, 211, "Input",ExpressionUUID->"8c849199-ac20-4382-a7f0-940f2ba5fe23"] +Cell[318585, 7409, 171, 3, 54, "Section",ExpressionUUID->"affba3cf-2232-4f92-a752-5294cc029251"], +Cell[318759, 7414, 4045, 87, 211, "Input",ExpressionUUID->"8c849199-ac20-4382-a7f0-940f2ba5fe23"] }, Open ]], Cell[CellGroupData[{ -Cell[322618, 7500, 163, 3, 54, "Section",ExpressionUUID->"ec752d41-e18b-46c9-a687-2a43acbc2c49"], +Cell[322841, 7506, 163, 3, 54, "Section",ExpressionUUID->"ec752d41-e18b-46c9-a687-2a43acbc2c49"], Cell[CellGroupData[{ -Cell[322806, 7507, 173, 3, 43, "Subsection",ExpressionUUID->"3e413af6-2afb-4184-9b39-a1aaa5f0470a"], -Cell[322982, 7512, 4601, 105, 376, "Input",ExpressionUUID->"ddd79a10-fb97-42d5-8007-c57acf0bf44a"], -Cell[327586, 7619, 7771, 179, 495, "Input",ExpressionUUID->"8dfab7ec-76d6-44d3-bd88-b570064f104c"] +Cell[323029, 7513, 173, 3, 43, "Subsection",ExpressionUUID->"3e413af6-2afb-4184-9b39-a1aaa5f0470a"], +Cell[323205, 7518, 4601, 105, 376, "Input",ExpressionUUID->"ddd79a10-fb97-42d5-8007-c57acf0bf44a"], +Cell[327809, 7625, 7771, 179, 495, "Input",ExpressionUUID->"8dfab7ec-76d6-44d3-bd88-b570064f104c"] }, Closed]], Cell[CellGroupData[{ -Cell[335394, 7803, 166, 3, 31, "Subsection",ExpressionUUID->"dc801699-1d95-410e-9663-9189a6f1e807"], -Cell[335563, 7808, 666, 18, 56, "Input",ExpressionUUID->"e7e8722e-6c81-4b40-87c8-d6ef15800524"], -Cell[336232, 7828, 12796, 306, 1060, "Input",ExpressionUUID->"cee60305-1632-4714-aee9-1dcaae6ffc44"], -Cell[349031, 8136, 10811, 220, 1185, "Input",ExpressionUUID->"df914fa8-0897-4c10-9328-ade25a1bd30a"], -Cell[359845, 8358, 11964, 284, 1011, "Input",ExpressionUUID->"9543579a-ea48-431a-8be6-98d0ba867cdb"], -Cell[371812, 8644, 9030, 192, 1152, "Input",ExpressionUUID->"2d7724d0-cb4e-4f12-8a6a-2b790f86f424"] +Cell[335617, 7809, 166, 3, 31, "Subsection",ExpressionUUID->"dc801699-1d95-410e-9663-9189a6f1e807"], +Cell[335786, 7814, 666, 18, 56, "Input",ExpressionUUID->"e7e8722e-6c81-4b40-87c8-d6ef15800524"], +Cell[336455, 7834, 12796, 306, 1060, "Input",ExpressionUUID->"cee60305-1632-4714-aee9-1dcaae6ffc44"], +Cell[349254, 8142, 10811, 220, 1185, "Input",ExpressionUUID->"df914fa8-0897-4c10-9328-ade25a1bd30a"], +Cell[360068, 8364, 11964, 284, 1011, "Input",ExpressionUUID->"9543579a-ea48-431a-8be6-98d0ba867cdb"], +Cell[372035, 8650, 9030, 192, 1152, "Input",ExpressionUUID->"2d7724d0-cb4e-4f12-8a6a-2b790f86f424"] }, Open ]], Cell[CellGroupData[{ -Cell[380879, 8841, 159, 3, 43, "Subsection",ExpressionUUID->"1efcce37-5c6a-46da-b65a-c7e8cd3a1ea3"], -Cell[381041, 8846, 6163, 139, 508, "Input",ExpressionUUID->"c51852e4-4259-4a60-afd1-89085a704206"] +Cell[381102, 8847, 159, 3, 43, "Subsection",ExpressionUUID->"1efcce37-5c6a-46da-b65a-c7e8cd3a1ea3"], +Cell[381264, 8852, 6163, 139, 508, "Input",ExpressionUUID->"c51852e4-4259-4a60-afd1-89085a704206"] }, Open ]], Cell[CellGroupData[{ -Cell[387241, 8990, 172, 3, 43, "Subsection",ExpressionUUID->"6fd1aab8-49ce-4b72-8f10-a955c0d61aff"], -Cell[387416, 8995, 1049, 26, 109, "Input",ExpressionUUID->"722f1a94-94b0-4458-8e49-4565186956ca"], -Cell[388468, 9023, 3000, 60, 234, "Input",ExpressionUUID->"ed8767a1-38cb-4d61-8fcd-d8bef0b02bf2"], -Cell[391471, 9085, 6874, 170, 646, "Input",ExpressionUUID->"d4d0c117-b8d3-4534-9810-eca46ea7b9ca"], -Cell[398348, 9257, 11409, 250, 1401, "Input",ExpressionUUID->"449db943-f88d-4296-bedc-a6300214bcf4"] +Cell[387464, 8996, 172, 3, 43, "Subsection",ExpressionUUID->"6fd1aab8-49ce-4b72-8f10-a955c0d61aff"], +Cell[387639, 9001, 1049, 26, 109, "Input",ExpressionUUID->"722f1a94-94b0-4458-8e49-4565186956ca"], +Cell[388691, 9029, 3000, 60, 234, "Input",ExpressionUUID->"ed8767a1-38cb-4d61-8fcd-d8bef0b02bf2"], +Cell[391694, 9091, 6874, 170, 646, "Input",ExpressionUUID->"d4d0c117-b8d3-4534-9810-eca46ea7b9ca"], +Cell[398571, 9263, 11409, 250, 1401, "Input",ExpressionUUID->"449db943-f88d-4296-bedc-a6300214bcf4"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[409818, 9514, 213, 4, 55, "Chapter",ExpressionUUID->"221bb86f-745e-4bc2-a4c0-d57eedca7fe8"], -Cell[410034, 9520, 1357, 34, 128, "Input",ExpressionUUID->"cba66cbf-1d59-4a38-9eb3-c28a5bd46deb"], -Cell[411394, 9556, 4755, 104, 451, "Input",ExpressionUUID->"516650ad-94d7-4c45-86f1-a468f0befd43"], +Cell[410041, 9520, 213, 4, 55, "Chapter",ExpressionUUID->"221bb86f-745e-4bc2-a4c0-d57eedca7fe8"], +Cell[410257, 9526, 1357, 34, 128, "Input",ExpressionUUID->"cba66cbf-1d59-4a38-9eb3-c28a5bd46deb"], +Cell[411617, 9562, 4755, 104, 451, "Input",ExpressionUUID->"516650ad-94d7-4c45-86f1-a468f0befd43"], Cell[CellGroupData[{ -Cell[416174, 9664, 392, 10, 70, "Input",ExpressionUUID->"4bd30e8a-e2ca-4156-95a1-a802bc6392e7"], +Cell[416397, 9670, 392, 10, 70, "Input",ExpressionUUID->"4bd30e8a-e2ca-4156-95a1-a802bc6392e7"], Cell[CellGroupData[{ -Cell[416591, 9678, 1029, 19, 18, "Print",ExpressionUUID->"0acca0b3-8454-42cd-b9bf-6763330b40df"], -Cell[417623, 9699, 1030, 19, 18, "Print",ExpressionUUID->"6dad3b0e-87b1-4cd2-8f15-e8f9e0eea03c"] +Cell[416814, 9684, 1029, 19, 18, "Print",ExpressionUUID->"0acca0b3-8454-42cd-b9bf-6763330b40df"], +Cell[417846, 9705, 1030, 19, 18, "Print",ExpressionUUID->"6dad3b0e-87b1-4cd2-8f15-e8f9e0eea03c"] }, Open ]], -Cell[418668, 9721, 160, 3, 26, "Output",ExpressionUUID->"62c49d00-1308-4327-9f61-1fa94e6a1750"] +Cell[418891, 9727, 160, 3, 26, "Output",ExpressionUUID->"62c49d00-1308-4327-9f61-1fa94e6a1750"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[418877, 9730, 291, 4, 55, "Chapter",ExpressionUUID->"34a6e352-6706-4c26-a9dc-a4f7001cae32"], +Cell[419100, 9736, 291, 4, 55, "Chapter",ExpressionUUID->"34a6e352-6706-4c26-a9dc-a4f7001cae32"], Cell[CellGroupData[{ -Cell[419193, 9738, 166, 3, 54, "Section",ExpressionUUID->"8f688e9a-3910-494a-a87f-f2f844618e52"], -Cell[419362, 9743, 13298, 323, 1228, "Input",ExpressionUUID->"0ec9bdae-e9ab-45ab-9804-e4f709e96573"] +Cell[419416, 9744, 166, 3, 54, "Section",ExpressionUUID->"8f688e9a-3910-494a-a87f-f2f844618e52"], +Cell[419585, 9749, 13298, 323, 1228, "Input",ExpressionUUID->"0ec9bdae-e9ab-45ab-9804-e4f709e96573"] }, Open ]], Cell[CellGroupData[{ -Cell[432697, 10071, 203, 4, 54, "Section",ExpressionUUID->"371e5165-5789-4a54-b8ed-1ad9279324ac"], -Cell[432903, 10077, 1238, 32, 141, "Input",ExpressionUUID->"c295db63-b755-42d4-905e-1f60bd136daf"], -Cell[434144, 10111, 3268, 80, 242, "Input",ExpressionUUID->"4846ddb1-8167-43f8-81b1-6123f63d2e77"], -Cell[437415, 10193, 10188, 232, 873, "Input",ExpressionUUID->"9d9e432a-d4af-4dcc-9d9e-1c04658c33ba"], -Cell[447606, 10427, 1064, 27, 92, "Input",ExpressionUUID->"e68c39a2-a812-43a3-91aa-78fdedec2843"], -Cell[448673, 10456, 1172, 28, 92, "Input",ExpressionUUID->"9bc022fa-0a10-4835-b882-4bc39407c56a"] +Cell[432920, 10077, 203, 4, 54, "Section",ExpressionUUID->"371e5165-5789-4a54-b8ed-1ad9279324ac"], +Cell[433126, 10083, 1238, 32, 141, "Input",ExpressionUUID->"c295db63-b755-42d4-905e-1f60bd136daf"], +Cell[434367, 10117, 3268, 80, 242, "Input",ExpressionUUID->"4846ddb1-8167-43f8-81b1-6123f63d2e77"], +Cell[437638, 10199, 10188, 232, 873, "Input",ExpressionUUID->"9d9e432a-d4af-4dcc-9d9e-1c04658c33ba"], +Cell[447829, 10433, 1064, 27, 92, "Input",ExpressionUUID->"e68c39a2-a812-43a3-91aa-78fdedec2843"], +Cell[448896, 10462, 1172, 28, 92, "Input",ExpressionUUID->"9bc022fa-0a10-4835-b882-4bc39407c56a"] }, Open ]], Cell[CellGroupData[{ -Cell[449882, 10489, 212, 4, 54, "Section",ExpressionUUID->"84d986be-8d17-4863-a617-8340b33ff44f"], -Cell[450097, 10495, 1087, 31, 53, "Input",ExpressionUUID->"d665743c-fc53-4c25-a3dd-abde9a533ea6"], -Cell[451187, 10528, 188, 3, 36, "Input",ExpressionUUID->"e98aaf44-924f-4147-94e5-36e7ff92a6a2"], -Cell[451378, 10533, 2531, 52, 202, "Input",ExpressionUUID->"5e78e10f-4d64-4a4e-bbb8-8b3d20131c47"] +Cell[450105, 10495, 212, 4, 54, "Section",ExpressionUUID->"84d986be-8d17-4863-a617-8340b33ff44f"], +Cell[450320, 10501, 1087, 31, 53, "Input",ExpressionUUID->"d665743c-fc53-4c25-a3dd-abde9a533ea6"], +Cell[451410, 10534, 188, 3, 36, "Input",ExpressionUUID->"e98aaf44-924f-4147-94e5-36e7ff92a6a2"], +Cell[451601, 10539, 2531, 52, 202, "Input",ExpressionUUID->"5e78e10f-4d64-4a4e-bbb8-8b3d20131c47"] }, Open ]], Cell[CellGroupData[{ -Cell[453946, 10590, 164, 3, 54, "Section",ExpressionUUID->"01de564e-e77c-4793-b30b-519a41b90f3e"], -Cell[454113, 10595, 3575, 85, 450, "Input",ExpressionUUID->"dcbb158f-daa3-4447-b3fa-de02c92ce373"], -Cell[457691, 10682, 10196, 226, 905, "Input",ExpressionUUID->"038f472d-4965-4744-92f5-a4507f90d81b"] +Cell[454169, 10596, 164, 3, 54, "Section",ExpressionUUID->"01de564e-e77c-4793-b30b-519a41b90f3e"], +Cell[454336, 10601, 3575, 85, 450, "Input",ExpressionUUID->"dcbb158f-daa3-4447-b3fa-de02c92ce373"], +Cell[457914, 10688, 10196, 226, 905, "Input",ExpressionUUID->"038f472d-4965-4744-92f5-a4507f90d81b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[467936, 10914, 169, 3, 53, "Chapter",ExpressionUUID->"1e0c9b17-26f2-4dfa-9b12-f0fcfa71397f"], +Cell[468159, 10920, 169, 3, 53, "Chapter",ExpressionUUID->"1e0c9b17-26f2-4dfa-9b12-f0fcfa71397f"], Cell[CellGroupData[{ -Cell[468130, 10921, 156, 3, 53, "Section",ExpressionUUID->"5e56d50d-49e6-4304-9335-02ae825ce1c2"], -Cell[468289, 10926, 2046, 40, 208, "Input",ExpressionUUID->"b9ed0595-8856-47f8-b683-4ccc50eab34d"] +Cell[468353, 10927, 156, 3, 53, "Section",ExpressionUUID->"5e56d50d-49e6-4304-9335-02ae825ce1c2"], +Cell[468512, 10932, 2046, 40, 208, "Input",ExpressionUUID->"b9ed0595-8856-47f8-b683-4ccc50eab34d"] }, Open ]], Cell[CellGroupData[{ -Cell[470372, 10971, 172, 3, 53, "Section",ExpressionUUID->"8ffa1e1e-e9b7-4c60-a83a-b25d1067fe84"], -Cell[470547, 10976, 4831, 127, 455, "Input",ExpressionUUID->"552fd81a-00e9-4406-bd7b-53eaf56cdea5"], -Cell[475381, 11105, 2338, 59, 203, "Input",ExpressionUUID->"6078d412-e4a5-4d75-91d7-f6401e2febfe"], -Cell[477722, 11166, 5416, 137, 506, "Input",ExpressionUUID->"a17f937c-f706-4976-8f08-42a105f6ccc9"] +Cell[470595, 10977, 172, 3, 53, "Section",ExpressionUUID->"8ffa1e1e-e9b7-4c60-a83a-b25d1067fe84"], +Cell[470770, 10982, 4831, 127, 455, "Input",ExpressionUUID->"552fd81a-00e9-4406-bd7b-53eaf56cdea5"], +Cell[475604, 11111, 2338, 59, 203, "Input",ExpressionUUID->"6078d412-e4a5-4d75-91d7-f6401e2febfe"], +Cell[477945, 11172, 5416, 137, 506, "Input",ExpressionUUID->"a17f937c-f706-4976-8f08-42a105f6ccc9"] }, Open ]], Cell[CellGroupData[{ -Cell[483175, 11308, 183, 3, 53, "Section",ExpressionUUID->"04ef16ce-b8bd-4593-9dd9-7f337307e574"], +Cell[483398, 11314, 183, 3, 53, "Section",ExpressionUUID->"04ef16ce-b8bd-4593-9dd9-7f337307e574"], Cell[CellGroupData[{ -Cell[483383, 11315, 158, 3, 42, "Subsection",ExpressionUUID->"171d1c15-50f3-4038-94a7-5c5590d84e9a"], +Cell[483606, 11321, 158, 3, 42, "Subsection",ExpressionUUID->"171d1c15-50f3-4038-94a7-5c5590d84e9a"], Cell[CellGroupData[{ -Cell[483566, 11322, 165, 3, 34, "Subsubsection",ExpressionUUID->"b7c07b71-68a3-4a76-94a8-f9a553ef4e87"], -Cell[483734, 11327, 12835, 285, 1452, "Input",ExpressionUUID->"78d1d83d-1db3-48fe-9d5d-0549bc1ca3eb"], -Cell[496572, 11614, 12403, 269, 1806, "Input",ExpressionUUID->"48f54286-12c9-432b-b442-cd476a94214d"] +Cell[483789, 11328, 165, 3, 34, "Subsubsection",ExpressionUUID->"b7c07b71-68a3-4a76-94a8-f9a553ef4e87"], +Cell[483957, 11333, 12835, 285, 1452, "Input",ExpressionUUID->"78d1d83d-1db3-48fe-9d5d-0549bc1ca3eb"], +Cell[496795, 11620, 12403, 269, 1806, "Input",ExpressionUUID->"48f54286-12c9-432b-b442-cd476a94214d"] }, Open ]], Cell[CellGroupData[{ -Cell[509012, 11888, 163, 3, 34, "Subsubsection",ExpressionUUID->"760961e8-a2ff-4ade-a764-8d04318f13d6"], -Cell[509178, 11893, 12119, 267, 1280, "Input",ExpressionUUID->"eb0d0058-7e72-44ea-9964-09dd66819a96"], -Cell[521300, 12162, 11264, 244, 1581, "Input",ExpressionUUID->"eda0cfa0-8b5d-471e-93a5-482d7d0e9336"] +Cell[509235, 11894, 163, 3, 34, "Subsubsection",ExpressionUUID->"760961e8-a2ff-4ade-a764-8d04318f13d6"], +Cell[509401, 11899, 12119, 267, 1280, "Input",ExpressionUUID->"eb0d0058-7e72-44ea-9964-09dd66819a96"], +Cell[521523, 12168, 11264, 244, 1581, "Input",ExpressionUUID->"eda0cfa0-8b5d-471e-93a5-482d7d0e9336"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[532613, 12412, 154, 3, 42, "Subsection",ExpressionUUID->"fe90355d-812c-40f2-9b7c-b012ae540bf9"], -Cell[532770, 12417, 11820, 265, 1190, "Input",ExpressionUUID->"aabc8ef7-49e5-4333-9181-ae2ddd34f9e3"], -Cell[544593, 12684, 11003, 238, 1600, "Input",ExpressionUUID->"57457dd7-5571-4c38-a645-c46447a3a30c"] +Cell[532836, 12418, 154, 3, 42, "Subsection",ExpressionUUID->"fe90355d-812c-40f2-9b7c-b012ae540bf9"], +Cell[532993, 12423, 11820, 265, 1190, "Input",ExpressionUUID->"aabc8ef7-49e5-4333-9181-ae2ddd34f9e3"], +Cell[544816, 12690, 11003, 238, 1600, "Input",ExpressionUUID->"57457dd7-5571-4c38-a645-c46447a3a30c"] }, Closed]] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[555657, 12929, 162, 3, 53, "Chapter",ExpressionUUID->"e8c3cc19-732d-4100-ba41-4f741977ed46"], -Cell[555822, 12934, 294, 6, 37, "Input",ExpressionUUID->"9b9ea4fc-21b7-44a7-a56c-9624eb86aa03"], -Cell[556119, 12942, 151, 4, 41, "Code",ExpressionUUID->"404ab529-fa01-4a17-8d30-d78a744d6275"], -Cell[556273, 12948, 158, 4, 41, "Code",ExpressionUUID->"71cbb145-c03b-495b-a560-6fe322da1f14"] +Cell[555880, 12935, 162, 3, 53, "Chapter",ExpressionUUID->"e8c3cc19-732d-4100-ba41-4f741977ed46"], +Cell[556045, 12940, 294, 6, 37, "Input",ExpressionUUID->"9b9ea4fc-21b7-44a7-a56c-9624eb86aa03"], +Cell[556342, 12948, 151, 4, 41, "Code",ExpressionUUID->"404ab529-fa01-4a17-8d30-d78a744d6275"], +Cell[556496, 12954, 158, 4, 41, "Code",ExpressionUUID->"71cbb145-c03b-495b-a560-6fe322da1f14"] }, Open ]] }, Open ]] }