diff --git a/exemples/MATLAB_Comparison/MATLAB_Wavefunction_Precision_Tests.mlx b/exemples/MATLAB_Comparison/MATLAB_Wavefunction_Precision_Tests.mlx
index f9c39c7..dc7f68b 100644
Binary files a/exemples/MATLAB_Comparison/MATLAB_Wavefunction_Precision_Tests.mlx and b/exemples/MATLAB_Comparison/MATLAB_Wavefunction_Precision_Tests.mlx differ
diff --git a/exemples/MATLAB_Comparison/MATLAB_Wavefunction_Precision_Tests.pdf b/exemples/MATLAB_Comparison/MATLAB_Wavefunction_Precision_Tests.pdf
index 9ee580d..87913b9 100644
Binary files a/exemples/MATLAB_Comparison/MATLAB_Wavefunction_Precision_Tests.pdf and b/exemples/MATLAB_Comparison/MATLAB_Wavefunction_Precision_Tests.pdf differ
diff --git a/exemples/MATLAB_Comparison/MATLAB_Wavefunction_Speed_Tests.mlx b/exemples/MATLAB_Comparison/MATLAB_Wavefunction_Speed_Tests.mlx
index 1ef76df..fabd6d5 100644
Binary files a/exemples/MATLAB_Comparison/MATLAB_Wavefunction_Speed_Tests.mlx and b/exemples/MATLAB_Comparison/MATLAB_Wavefunction_Speed_Tests.mlx differ
diff --git a/exemples/Wolfram_Mathematica_Comparison/Wolfram_Mathematica_Wavefunction_Precision_Tests.nb b/exemples/Wolfram_Mathematica_Comparison/Wolfram_Mathematica_Wavefunction_Precision_Tests.nb
index 5afc0f0..27db1a8 100644
--- a/exemples/Wolfram_Mathematica_Comparison/Wolfram_Mathematica_Wavefunction_Precision_Tests.nb
+++ b/exemples/Wolfram_Mathematica_Comparison/Wolfram_Mathematica_Wavefunction_Precision_Tests.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[    176573,       4197]
-NotebookOptionsPosition[    171705,       4110]
-NotebookOutlinePosition[    172143,       4127]
-CellTagsIndexPosition[    172100,       4124]
+NotebookDataLength[    252118,       6055]
+NotebookOptionsPosition[    245374,       5936]
+NotebookOutlinePosition[    245812,       5953]
+CellTagsIndexPosition[    245769,       5950]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -75,7 +75,7 @@ Cell[BoxData[{
    3.931109537341484*^9}, {3.931109662368646*^9, 3.9311096730029707`*^9}, {
    3.931112045933264*^9, 3.93111205259611*^9}, {3.9318624231000605`*^9, 
    3.931862429977107*^9}},
- CellLabel->"In[1]:=",ExpressionUUID->"6be369dc-4486-4805-ac7c-a5945e4a32ee"],
+ CellLabel->"In[5]:=",ExpressionUUID->"6be369dc-4486-4805-ac7c-a5945e4a32ee"],
 
 Cell[TextData[StyleBox["Wavefuntion_Wolfram_Mathematica_1", "Subsubsection",
  FontWeight->"Bold",
@@ -140,7 +140,7 @@ Cell[BoxData[
    3.931096821492667*^9}, {3.9311003512440786`*^9, 3.9311003539215355`*^9}, {
    3.9311003851665163`*^9, 3.931100452926235*^9}, {3.931100483265601*^9, 
    3.9311005669046965`*^9}, {3.9311006242714524`*^9, 3.9311006436393557`*^9}},
- CellLabel->"In[12]:=",ExpressionUUID->"42ce0bc0-a8b4-42bf-bc0a-24fa7536be35"],
+ CellLabel->"In[16]:=",ExpressionUUID->"42ce0bc0-a8b4-42bf-bc0a-24fa7536be35"],
 
 Cell[TextData[StyleBox["Wavefuntion_Wolfram_Mathematica_2", "Subsubsection",
  FontWeight->"Bold",
@@ -238,7 +238,7 @@ Cell[BoxData[
   "\n"}]], "Input",
  CellChangeTimes->{{3.931096710773402*^9, 3.931096770862705*^9}, 
    3.931096898780772*^9, {3.931096995993971*^9, 3.9310969965994167`*^9}},
- CellLabel->"In[13]:=",ExpressionUUID->"e70ddd79-ba1e-4b5e-8741-3f2039ab6d4b"],
+ CellLabel->"In[17]:=",ExpressionUUID->"e70ddd79-ba1e-4b5e-8741-3f2039ab6d4b"],
 
 Cell[TextData[StyleBox["Wavefuntion_Wolfram_Mathematica_3", "Subsubsection",
  FontWeight->"Bold",
@@ -323,7 +323,7 @@ Cell[BoxData[
    3.931099064427884*^9}, {3.9310991304355435`*^9, 3.9310991760818305`*^9}, {
    3.9310996119328685`*^9, 3.931099646617584*^9}, {3.931099750282444*^9, 
    3.9310997874905047`*^9}, 3.9311002223233213`*^9},
- CellLabel->"In[14]:=",ExpressionUUID->"26788069-3188-4e82-9cc7-f966339158ec"],
+ CellLabel->"In[18]:=",ExpressionUUID->"26788069-3188-4e82-9cc7-f966339158ec"],
 
 Cell[CellGroupData[{
 
@@ -514,8 +514,9 @@ range(N_max+1)]);\>\""}], "]"}], "]"}], ",", "prec"}], "]"}]}], ";"}],
    3.93117978099988*^9, 3.9311797868781385`*^9}, {3.9311904710287013`*^9, 
    3.931190478396065*^9}, {3.9311905276978426`*^9, 3.931190550498099*^9}, {
    3.931191972761353*^9, 3.9311919729435525`*^9}, {3.9318627827664695`*^9, 
-   3.931862818297917*^9}, {3.9318629064159503`*^9, 3.9318629905397124`*^9}},
- CellLabel->"In[51]:=",ExpressionUUID->"8e758aa1-fb5b-4f01-b5c2-99acd66b0092"],
+   3.931862818297917*^9}, {3.9318629064159503`*^9, 3.9318629905397124`*^9}, {
+   3.931939325824497*^9, 3.9319393721812267`*^9}},
+ CellLabel->"In[29]:=",ExpressionUUID->"8e758aa1-fb5b-4f01-b5c2-99acd66b0092"],
 
 Cell[BoxData["\<\"Functionality Test Passed: True\"\>"], "Print",
  CellChangeTimes->{
@@ -528,26 +529,24 @@ Cell[BoxData["\<\"Functionality Test Passed: True\"\>"], "Print",
    3.931162886888901*^9}, 3.931162949952922*^9, {3.9311632588113766`*^9, 
    3.9311632914919777`*^9}, 3.9311663406448765`*^9, 3.9311798033309517`*^9, 
    3.9311905718781853`*^9, 3.9311919794519844`*^9, 3.931862512073112*^9, 
-   3.931862872995881*^9, {3.931862916291914*^9, 3.931862998097678*^9}},
+   3.931862872995881*^9, {3.931862916291914*^9, 3.931862998097678*^9}, 
+   3.9319393015148263`*^9, 3.9319393798826385`*^9},
  CellLabel->
   "During evaluation of \
-In[51]:=",ExpressionUUID->"a3c9c9c1-82f2-492d-b29e-abd96d6d2541"],
+In[29]:=",ExpressionUUID->"673142fa-5df0-40da-ba6c-139911579d14"],
 
 Cell[BoxData[
  TemplateBox[{
    GraphicsBox[{{}, 
      InterpretationBox[{
-       TagBox[{{{}, {}, 
-          TagBox[{
-            Hue[0.67, 0.6, 0.6], 
-            Directive[
-             PointSize[
-              NCache[
-               Rational[1, 72], 0.013888888888888888`]], 
-             AbsoluteThickness[2], 
-             Thickness[Large], 
-             RGBColor[0, 0, 1]], 
-            LineBox[CompressedData["
+       TagBox[{{}, {}, 
+         TagBox[{
+           RGBColor[0, 0, 1], 
+           PointSize[
+            NCache[
+             Rational[1, 72], 0.013888888888888888`]], 
+           Thickness[Large], 
+           LineBox[CompressedData["
 1:eJxt079LW1EYxvFDJh2kQYI6FHoVlcaGEtv6I6kxx1RjYuqPpCYqiIOYSaFT
 6XoGh4ylQ5du0slJV6eDFHX1T3AqDkLAxVG97/MG7kMvyOXj9773HA/Xwd2v
 tWbMGNN8+nm+//9q5+W+lsEvbLR3wWn0OPUEeYCef0k9IA+Rh+H2tNxH6X2v
@@ -559,7 +558,7 @@ sh9d3HXbg14K/edfHl18nZ1EL8v7sjl0cfC7G30pdPz7K3SxObrE31cR1/5i
 rmN9uHOtwfh/t2p8f466V+tVhQuYV2N9R92r9fuuRW3VGcyr8T4PuxLmv0S7
 hYMFzGvH5cVuu4j5dVpfjf06siebOs2rcV6uHn3e0/OmEe22Ee2OuiebDbGe
 h4U750/da9f1N2l+k+ZhPU9P3WyJWzbzCKXDlOI=
-             "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}}, {
+            "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {
         "WolframDynamicHighlight", <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
        DynamicBox[
@@ -638,7 +637,9 @@ h4U750/da9f1N2l+k+ZhPU9P3WyJWzbzCKXDlOI=
             False|>, 
           "Meta" -> <|
            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
-            ListLinePlot, "GroupHighlight" -> False|>|>]]}, 
+            ListLinePlot, "GroupHighlight" -> False|>|>], 
+        ImageSizeCache -> {{4.503599627370496*^15, -4.503599627370496*^15}, {
+         4.503599627370496*^15, -4.503599627370496*^15}}]}, 
       Annotation[{{{}, {}, 
          Annotation[{
            Hue[0.67, 0.6, 0.6], 
@@ -685,94 +686,91 @@ h4U750/da9f1N2l+k+ZhPU9P3WyJWzbzCKXDlOI=
          "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           ListLinePlot, "GroupHighlight" -> False|>|>, 
-       "DynamicHighlight"]], {{}, {}}}, {
-    DisplayFunction -> Identity, DisplayFunction -> Identity, DisplayFunction -> 
-     Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
-     Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, 
-     DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, 
-     FrameLabel -> {{
-        FormBox[
-         TagBox["\"Residual (RS)\"", HoldForm], TraditionalForm], None}, {
-        FormBox[
-         TagBox["\"n\"", HoldForm], TraditionalForm], None}}, 
-     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
-     GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[
-       GrayLevel[0.5, 0.4]], ImageSize -> Large, 
-     Method -> {
-      "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
-       "DefaultGraphicsInteraction" -> {
-        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
-         "Effects" -> {
-          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
-           "Droplines" -> {
-            "freeformCursorMode" -> True, 
-             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
-       "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
-         Directive[
-          RGBColor[0.368417, 0.506779, 0.709798], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.880722, 0.611041, 0.142051], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.560181, 0.691569, 0.194885], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.922526, 0.385626, 0.209179], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.528488, 0.470624, 0.701351], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.772079, 0.431554, 0.102387], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.363898, 0.618501, 0.782349], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[1, 0.75, 0], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.647624, 0.37816, 0.614037], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.571589, 0.586483, 0.], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.915, 0.3325, 0.2125], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[
-          0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
-          AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
-       "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, 
-       "IncludeHighlighting" -> "CurrentSet", "HighlightStyle" -> Automatic, 
-       "OptimizePlotMarkers" -> True, 
-       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
-           Identity[
-            Part[#, 1]], 
-           Identity[
-            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
-           Identity[
-            Part[#, 1]], 
-           Identity[
-            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
-       StyleBox[
-       "\"Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smod)\\n\"", 13, 
-        Bold, StripOnInput -> False], TraditionalForm], 
-     PlotRange -> {{0, 100.}, {0., 1.5107104941530054`*^-26}}, 
-     PlotRangeClipping -> True, PlotRangePadding -> {{
-        Scaled[0.02], 
-        Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}], 
+       "DynamicHighlight"]], {{}, {}}}, AspectRatio -> 
+    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
+    AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction -> 
+    Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
+       FormBox[
+        TagBox["\"Residual (RS)\"", HoldForm], TraditionalForm], None}, {
+       FormBox[
+        TagBox["\"n\"", HoldForm], TraditionalForm], None}}, 
+    FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+    GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[
+      GrayLevel[0.5, 0.4]], ImageSize -> Large, 
+    Method -> {
+     "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
+      "DefaultGraphicsInteraction" -> {
+       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+        "Effects" -> {
+         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+          "Droplines" -> {
+           "freeformCursorMode" -> True, 
+            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+      "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
+        Directive[
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.922526, 0.385626, 0.209179], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.528488, 0.470624, 0.701351], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.772079, 0.431554, 0.102387], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.363898, 0.618501, 0.782349], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[1, 0.75, 0], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.647624, 0.37816, 0.614037], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.571589, 0.586483, 0.], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.915, 0.3325, 0.2125], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
+         AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
+      "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, 
+      "IncludeHighlighting" -> "CurrentSet", "HighlightStyle" -> Automatic, 
+      "OptimizePlotMarkers" -> True, 
+      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+          Identity[
+           Part[#, 1]], 
+          Identity[
+           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+          Identity[
+           Part[#, 1]], 
+          Identity[
+           Part[#, 2]]}& )}}, PlotLabel -> FormBox[
+      StyleBox[
+      "\"Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smod)\\n\"", 13, 
+       Bold, StripOnInput -> False], TraditionalForm], 
+    PlotRange -> {{0, 100.}, {0., 1.5107104941530054`*^-26}}, 
+    PlotRangeClipping -> True, PlotRangePadding -> {{
+       Scaled[0.02], 
+       Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}], 
    FormBox[
     FormBox[
      TemplateBox[{
@@ -876,15 +874,14 @@ TraditionalForm]\\)\""}, "LineLegend", DisplayFunction -> (FormBox[
    3.931163258954482*^9, 3.9311632916353025`*^9}, 3.9311663407985554`*^9, 
    3.931179803519638*^9, 3.931190572082419*^9, 3.931191979575875*^9, 
    3.931862515791343*^9, 3.931862873595928*^9, {3.9318629165297174`*^9, 
-   3.9318629982445545`*^9}},
- CellLabel->"Out[55]=",ExpressionUUID->"0af29d82-0098-4305-bd1d-2b2fe5460ece"]
+   3.9318629982445545`*^9}, 3.9319393058903413`*^9, 3.9319393800078573`*^9},
+ CellLabel->"Out[33]=",ExpressionUUID->"3ea31d15-0ac5-4de5-8891-a91d03b15faf"]
 }, Open  ]]
 }, Open  ]],
 
 Cell[CellGroupData[{
 
 Cell[TextData[{
- "\n",
  Cell[BoxData[
   FormBox[
    TemplateBox[<|
@@ -892,9 +889,8 @@ Cell[TextData[{
       "input" -> "\\star", "state" -> "Boxes"|>,
     "TeXAssistantTemplate"], TraditionalForm]],
   FontColor->RGBColor[1, 0, 0],ExpressionUUID->
-  "546edb1f-4b92-4f59-b281-6eab24a9872a"],
- StyleBox[" ",
-  FontColor->RGBColor[1, 0, 0]],
+  "df1d8f8b-10a9-4b4d-b4c7-07ab65a11d98"],
+ " ",
  StyleBox["Single",
   IgnoreSpellCheck->True,
   FontFamily->"Roboto",
@@ -918,7 +914,16 @@ Cell[TextData[{
   FontFamily->"Roboto",
   FontSize->13,
   FontColor->RGBColor[1, 0, 0]],
- StyleBox[" Function ",
+ StyleBox[" Less ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["Fast",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" Function  ",
   FontFamily->"Roboto",
   FontSize->13,
   FontColor->RGBColor[1, 0, 0]],
@@ -927,22 +932,21 @@ Cell[TextData[{
   FontFamily->"Roboto",
   FontSize->13,
   FontColor->RGBColor[1, 0, 0]],
- StyleBox[" x = 10.0\n",
+ StyleBox[" x = 1.0",
   FontFamily->"Roboto",
   FontSize->13,
   FontColor->RGBColor[1, 0, 0]]
 }], "Subsubsection",
- CellChangeTimes->{3.9311635952693405`*^9, 3.9311637019540434`*^9, 
-  3.9311663669417257`*^9, 
-  3.931174051725665*^9},ExpressionUUID->"cdfe5e9d-03b0-4578-803a-\
-3b886f01f66f"],
+ CellChangeTimes->{{3.9319395274734087`*^9, 
+  3.9319395664116316`*^9}},ExpressionUUID->"e008e934-a2e1-478f-94af-\
+3a306e073313"],
 
 Cell[CellGroupData[{
 
 Cell[BoxData[{
  RowBox[{
   RowBox[{
-   RowBox[{"FastWaveSMOdN100x2", "=", 
+   RowBox[{"FastWaveSMOdN100x1", "=", 
     RowBox[{"SetPrecision", "[", 
      RowBox[{
       RowBox[{"Normal", "[", 
@@ -950,17 +954,18 @@ Cell[BoxData[{
         RowBox[{
         "\"\<Python\>\"", ",", "                      ", 
          "\"\<from fast_wave.wavefunction import wavefunction_smod;import \
-numpy as np;N_max = 100;x2 = 10.0;np.array([wavefunction_smod(n,x2) for n in \
+numpy as np;N_max = 100;x1 = \
+1.0;np.array([wavefunction_smod(n,x1,more_fast=False) for n in \
 range(N_max+1)]);\>\""}], "]"}], "]"}], ",", "prec"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
-    RowBox[{"WolframSMOdN100x2", " ", "=", " ", 
+    RowBox[{"WolframSMOdN100x1", " ", "=", " ", 
      RowBox[{"WavefunctionMathematica3", "[", 
-      RowBox[{"Nmax", ",", "x2", ",", "prec"}], "]"}]}], ";"}], "*)"}], 
-  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+      RowBox[{"Nmax", ",", "x1", ",", "prec"}], "]"}]}], ";"}], 
+   "*)"}]}], "\[IndentingNewLine]", 
  RowBox[{
-  RowBox[{"WolframSMOdN100x2", " ", "=", " ", 
+  RowBox[{"WolframSMOdN100x1", " ", "=", " ", 
    RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"For", "[", 
@@ -972,17 +977,17 @@ range(N_max+1)]);\>\""}], "]"}], "]"}], ",", "prec"}], "]"}]}], ";"}],
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"AppendTo", "[", 
-      RowBox[{"WolframSMOdN100x2", ",", 
+      RowBox[{"WolframSMOdN100x1", ",", 
        RowBox[{"WavefunctionMathematica1", "[", 
         RowBox[{
-         RowBox[{"i", "-", "1"}], ",", "x2", ",", "prec"}], "]"}]}], "]"}], 
+         RowBox[{"i", "-", "1"}], ",", "x1", ",", "prec"}], "]"}]}], "]"}], 
      ";"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Residual", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
-      RowBox[{"WolframSMOdN100x2", "-", "FastWaveSMOdN100x2"}], ")"}], "^", 
+      RowBox[{"WolframSMOdN100x1", "-", "FastWaveSMOdN100x1"}], ")"}], "^", 
      "2"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
  RowBox[{"ListLinePlot", "[", "\[IndentingNewLine]", 
@@ -1002,92 +1007,57 @@ range(N_max+1)]);\>\""}], "]"}], "]"}], ",", "prec"}], "]"}]}], ";"}],
    RowBox[{"PlotLabel", "->", 
     RowBox[{"Style", "[", 
      RowBox[{
-     "\"\<Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smod)\\n\>\"", ",", 
-      "13", ",", "Bold"}], "]"}]}], ",", "\[IndentingNewLine]", 
+     "\"\<Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smod; less_fast)\\n\
+\>\"", ",", "13", ",", "Bold"}], "]"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"GridLines", "->", "Automatic"}], ",", "\[IndentingNewLine]", 
    RowBox[{"PlotLegends", "->", 
     RowBox[{"Placed", "[", 
      RowBox[{
-      RowBox[{
-       RowBox[{"{", 
-        RowBox[{
-        "\"\< x: 10.0, to each value of n ; \\n avg(RS) = [\>\"", " ", "<>", 
-         RowBox[{"ToString", "[", 
-          RowBox[{
-           RowBox[{"SetPrecision", "[", 
-            RowBox[{
-             RowBox[{"Mean", "[", "Residual", "]"}], ",", "20"}], "]"}], ",", 
-           "\[IndentingNewLine]", "TraditionalForm"}], "]"}]}], "}"}], " ", "<>",
-        " ", "\"\<]\>\""}], ",", "Below"}], "]"}]}], ",", 
-   "\[IndentingNewLine]", 
-   RowBox[{"ImageSize", "->", "Large"}], " ", ",", "\[IndentingNewLine]", 
-   RowBox[{"PlotRange", "->", 
-    RowBox[{"{", 
-     RowBox[{
-      RowBox[{"{", 
-       RowBox[{"Automatic", ",", "Automatic"}], "}"}], ",", 
       RowBox[{"{", 
-       RowBox[{"0", ",", 
-        RowBox[{"1.2", "*", 
-         RowBox[{"10", "^", 
-          RowBox[{"(", 
-           RowBox[{"-", "14.05"}], ")"}]}]}]}], "}"}]}], "}"}]}]}], 
-  "\[IndentingNewLine]", "]"}]}], "Input",
- CellChangeTimes->{{3.9311637772835264`*^9, 3.931163811634921*^9}, {
-   3.9311639833422804`*^9, 3.931163996030384*^9}, {3.931164195575*^9, 
-   3.9311642067352743`*^9}, {3.931164327711074*^9, 3.931164390993785*^9}, {
-   3.9311644226636953`*^9, 3.931164464519924*^9}, 3.931164499404803*^9, {
-   3.9311645531097527`*^9, 3.931164573659566*^9}, {3.9311646418502884`*^9, 
-   3.931164708000108*^9}, {3.931164750389971*^9, 3.931164791100255*^9}, {
-   3.931165685825607*^9, 3.931165722118843*^9}, {3.9311658947402735`*^9, 
-   3.931165930391143*^9}, {3.9311659665351152`*^9, 3.931166000041842*^9}, {
-   3.931166102745397*^9, 3.9311661029471655`*^9}, {3.9311662051487627`*^9, 
-   3.931166233095718*^9}, {3.931166269917852*^9, 3.931166270201442*^9}, 
-   3.9311755790521746`*^9, {3.9311797671302443`*^9, 3.93117977455917*^9}, {
-   3.9311906136118307`*^9, 3.931190660012038*^9}, {3.931191961184067*^9, 
-   3.931191961462804*^9}, {3.9318630191304927`*^9, 3.931863183675096*^9}},
+       RowBox[{"\"\<x: 1.0, to each value of n ; \\n avg(RS) = \>\"", " ", "<>", 
+        RowBox[{"ToString", "[", 
+         RowBox[{
+          RowBox[{"SetPrecision", "[", 
+           RowBox[{
+            RowBox[{"Mean", "[", "Residual", "]"}], ",", "20"}], "]"}], ",", 
+          "\[IndentingNewLine]", "TraditionalForm"}], "]"}]}], "}"}], ",", 
+      "Below"}], "]"}]}], ",", "\[IndentingNewLine]", 
+   RowBox[{"ImageSize", "->", "Large"}]}], "\[IndentingNewLine]", " ", 
+  "]"}]}], "Input",
+ CellChangeTimes->{{3.931939622581951*^9, 3.931939629502932*^9}, {
+  3.9319396680003366`*^9, 3.9319396783955083`*^9}, {3.931940282553887*^9, 
+  3.931940286618033*^9}},
  CellLabel->
-  "In[111]:=",ExpressionUUID->"6c713f40-4de1-4703-b5b7-508466c25334"],
+  "In[124]:=",ExpressionUUID->"06396ab8-5807-48bf-aa88-4f143ea57b4d"],
 
 Cell[BoxData["\<\"Functionality Test Passed: True\"\>"], "Print",
- CellChangeTimes->{
-  3.9311660083698325`*^9, 3.931166110617276*^9, 3.9311662580020924`*^9, 
-   3.931166358254695*^9, 3.931179820471266*^9, {3.931190645933632*^9, 
-   3.9311906670519896`*^9}, 3.931191966806198*^9, {3.931863031732627*^9, 
-   3.9318631898681383`*^9}},
+ CellChangeTimes->{3.931939688235771*^9, 3.93194029364773*^9},
  CellLabel->
   "During evaluation of \
-In[111]:=",ExpressionUUID->"9379ba00-db5f-4636-9f9e-0836610761c1"],
+In[124]:=",ExpressionUUID->"b34dbe50-665f-4434-93ee-027b93b0ecca"],
 
 Cell[BoxData[
  TemplateBox[{
    GraphicsBox[{{}, 
      InterpretationBox[{
-       TagBox[{{{}, {}, 
-          TagBox[{
-            Hue[0.67, 0.6, 0.6], 
-            Directive[
-             PointSize[
-              NCache[
-               Rational[1, 72], 0.013888888888888888`]], 
-             AbsoluteThickness[2], 
-             Thickness[Large], 
-             RGBColor[0, 0, 1]], 
-            LineBox[CompressedData["
-1:eJxt0U1oE0EYxvFFEXoM1UJLq6SiUkqRNEm/0saMtVo/kjYmtX7klGCliNgg
-eFCKjAHBi7hQD3rpya+DB72KhbRI6UGhB2+CSG0PgkhFEcSLyb7/t7CLC2H4
-5ZlnZna2vTSTm9rmOM5U7Vcf//9sphgj/GH8eQN2u2UMBfJdOBuVsTmQt+FN
-8nAg34vLMRn34Zf4gPZxB47EZezUPu7SPj6IW3roaR934wqOYhfH8CqOB87f
-o+v1ytiLb+A+PQ/uD3gA/8EJHOqTcVBsbuEh3Q8n9bz4kNj9jVPixky/2IiX
-SmKL3QL5YfabJ8d2hXwYPyfHj1MDkh/x7L6YEFuxsz5LPuK58nqZXGwu/yQ/
-6tk+/EYuDlfHE5If87zSFBZbz42zv56Qj9YdurfxgLxuG18rbJAfr3m99fNq
-bFDyus2HnW/axM4Jb71P37eT172W6/pbJD9pHJuOWlshr9nML3xJLZCfMs7b
-qw3LiaYhyWsuvkrOzf0gTxvzdHHpTrmZPG3C70dLI/eN2MmY3e8Wn7XfnCbP
-mEd3Wy8VPlbIx8ztYm6mc/+OpORjcr9Olvsb99uqS+RZXBYbfPE687GdFld1
-vj6ncYR+wDbgKjZ72D9HHqKfC/TVnL+qHqafZ704/bw/t/lAX836zoR/vsG2
-g77mPFW13u8ZzH0aHL5CH2/dn87X80/61zOT/vkWh67R1/n6/c7638eo9f3x
-1wv0Ndfznwvsr+Z7WHUL/UDunN/a/x+jy7kr
-             "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}}, {
+       TagBox[{{}, {}, 
+         TagBox[{
+           RGBColor[0, 0, 1], 
+           PointSize[
+            NCache[
+             Rational[1, 72], 0.013888888888888888`]], 
+           Thickness[Large], 
+           LineBox[CompressedData["
+1:eJxtk8tOQjEURRtHDu/AgSYOkBhjjDH45opK5SUgICIgJo5MGPsLHTL0k/pJ
+fIJo9yY5OzYhzWJ1t6ePu/f5NZpvOOfmq99v/39bVuUPn7pSnvpN4Qw8BG+B
+M/C2jN8VLggXhfdlvgPxh+BlOfVH4o8lfyK+BGY7Bdfgz8SfJ/6uwF/IfJfg
+IvhK8tcyviycS703kq8I34K5/zvx9+Krsp4H7yQOZLYHW08g83xqloOwq9v1
+ApnvpSHzN8Q3LQfwog7fkvnBCw//KJ7M+tpSP5n315F8x453Xamva8e7J/Fk
+5nuJ/Ri+J/m++L74wR9n1Qn8AJ7v51ny4HUb2vo8mfsVH8lsL3Y/nsz7FB/J
+rH9k2ZNz5MmYL4JDG/lX6z240ESeHi0mDh8t5MeyPpnvQTgKu4nkybzviR0f
+ZbybWu+n1gfxUdi9JeZ5ePD6/MVHeq4/k/xM8mCeZxTv3hOvvrcf74h6sw==
+
+            "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {
         "WolframDynamicHighlight", <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
        DynamicBox[
@@ -1105,24 +1075,20 @@ g77mPFW13u8ZzH0aHL5CH2/dn87X80/61zOT/vkWh67R1/n6/c7638eo9f3x
                Thickness[Large], 
                RGBColor[0, 0, 1]], 
               Line[CompressedData["
-1:eJxt0U1oE0EYxvFFEXoM1UJLq6SiUkqRNEm/0saMtVo/kjYmtX7klGCliNgg
-eFCKjAHBi7hQD3rpya+DB72KhbRI6UGhB2+CSG0PgkhFEcSLyb7/t7CLC2H4
-5ZlnZna2vTSTm9rmOM5U7Vcf//9sphgj/GH8eQN2u2UMBfJdOBuVsTmQt+FN
-8nAg34vLMRn34Zf4gPZxB47EZezUPu7SPj6IW3roaR934wqOYhfH8CqOB87f
-o+v1ytiLb+A+PQ/uD3gA/8EJHOqTcVBsbuEh3Q8n9bz4kNj9jVPixky/2IiX
-SmKL3QL5YfabJ8d2hXwYPyfHj1MDkh/x7L6YEFuxsz5LPuK58nqZXGwu/yQ/
-6tk+/EYuDlfHE5If87zSFBZbz42zv56Qj9YdurfxgLxuG18rbJAfr3m99fNq
-bFDyus2HnW/axM4Jb71P37eT172W6/pbJD9pHJuOWlshr9nML3xJLZCfMs7b
-qw3LiaYhyWsuvkrOzf0gTxvzdHHpTrmZPG3C70dLI/eN2MmY3e8Wn7XfnCbP
-mEd3Wy8VPlbIx8ztYm6mc/+OpORjcr9Olvsb99uqS+RZXBYbfPE687GdFld1
-vj6ncYR+wDbgKjZ72D9HHqKfC/TVnL+qHqafZ704/bw/t/lAX836zoR/vsG2
-g77mPFW13u8ZzH0aHL5CH2/dn87X80/61zOT/vkWh67R1/n6/c7638eo9f3x
-1wv0Ndfznwvsr+Z7WHUL/UDunN/a/x+jy7kr
+1:eJxtk8tOQjEURRtHDu/AgSYOkBhjjDH45opK5SUgICIgJo5MGPsLHTL0k/pJ
+fIJo9yY5OzYhzWJ1t6ePu/f5NZpvOOfmq99v/39bVuUPn7pSnvpN4Qw8BG+B
+M/C2jN8VLggXhfdlvgPxh+BlOfVH4o8lfyK+BGY7Bdfgz8SfJ/6uwF/IfJfg
+IvhK8tcyviycS703kq8I34K5/zvx9+Krsp4H7yQOZLYHW08g83xqloOwq9v1
+ApnvpSHzN8Q3LQfwog7fkvnBCw//KJ7M+tpSP5n315F8x453Xamva8e7J/Fk
+5nuJ/Ri+J/m++L74wR9n1Qn8AJ7v51ny4HUb2vo8mfsVH8lsL3Y/nsz7FB/J
+rH9k2ZNz5MmYL4JDG/lX6z240ESeHi0mDh8t5MeyPpnvQTgKu4nkybzviR0f
+ZbybWu+n1gfxUdi9JeZ5ePD6/MVHeq4/k/xM8mCeZxTv3hOvvrcf74h6sw==
+
                "]]}, "Charting`Private`Tag#1"]}}, <|
           "HighlightElements" -> <|
             "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
            "LayoutOptions" -> <|
-            "PlotRange" -> {{0, 100.}, {0., 1.0695011257604928`*^-14}}, 
+            "PlotRange" -> {{0, 100.}, {0, 1.636758334084953*^-32}}, 
              "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
              "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
              "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
@@ -1147,7 +1113,7 @@ g77mPFW13u8ZzH0aHL5CH2/dn87X80/61zOT/vkWh67R1/n6/c7638eo9f3x
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
           "LayoutOptions" -> <|
-           "PlotRange" -> {{0, 100.}, {0., 1.0695011257604928`*^-14}}, 
+           "PlotRange" -> {{0, 100.}, {0, 1.636758334084953*^-32}}, 
             "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
             "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
@@ -1168,7 +1134,9 @@ g77mPFW13u8ZzH0aHL5CH2/dn87X80/61zOT/vkWh67R1/n6/c7638eo9f3x
             False|>, 
           "Meta" -> <|
            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
-            ListLinePlot, "GroupHighlight" -> False|>|>]]}, 
+            ListLinePlot, "GroupHighlight" -> False|>|>], 
+        ImageSizeCache -> {{4.503599627370496*^15, -4.503599627370496*^15}, {
+         4.503599627370496*^15, -4.503599627370496*^15}}]}, 
       Annotation[{{{}, {}, 
          Annotation[{
            Hue[0.67, 0.6, 0.6], 
@@ -1179,24 +1147,20 @@ g77mPFW13u8ZzH0aHL5CH2/dn87X80/61zOT/vkWh67R1/n6/c7638eo9f3x
             Thickness[Large], 
             RGBColor[0, 0, 1]], 
            Line[CompressedData["
-1:eJxt0U1oE0EYxvFFEXoM1UJLq6SiUkqRNEm/0saMtVo/kjYmtX7klGCliNgg
-eFCKjAHBi7hQD3rpya+DB72KhbRI6UGhB2+CSG0PgkhFEcSLyb7/t7CLC2H4
-5ZlnZna2vTSTm9rmOM5U7Vcf//9sphgj/GH8eQN2u2UMBfJdOBuVsTmQt+FN
-8nAg34vLMRn34Zf4gPZxB47EZezUPu7SPj6IW3roaR934wqOYhfH8CqOB87f
-o+v1ytiLb+A+PQ/uD3gA/8EJHOqTcVBsbuEh3Q8n9bz4kNj9jVPixky/2IiX
-SmKL3QL5YfabJ8d2hXwYPyfHj1MDkh/x7L6YEFuxsz5LPuK58nqZXGwu/yQ/
-6tk+/EYuDlfHE5If87zSFBZbz42zv56Qj9YdurfxgLxuG18rbJAfr3m99fNq
-bFDyus2HnW/axM4Jb71P37eT172W6/pbJD9pHJuOWlshr9nML3xJLZCfMs7b
-qw3LiaYhyWsuvkrOzf0gTxvzdHHpTrmZPG3C70dLI/eN2MmY3e8Wn7XfnCbP
-mEd3Wy8VPlbIx8ztYm6mc/+OpORjcr9Olvsb99uqS+RZXBYbfPE687GdFld1
-vj6ncYR+wDbgKjZ72D9HHqKfC/TVnL+qHqafZ704/bw/t/lAX836zoR/vsG2
-g77mPFW13u8ZzH0aHL5CH2/dn87X80/61zOT/vkWh67R1/n6/c7638eo9f3x
-1wv0Ndfznwvsr+Z7WHUL/UDunN/a/x+jy7kr
+1:eJxtk8tOQjEURRtHDu/AgSYOkBhjjDH45opK5SUgICIgJo5MGPsLHTL0k/pJ
+fIJo9yY5OzYhzWJ1t6ePu/f5NZpvOOfmq99v/39bVuUPn7pSnvpN4Qw8BG+B
+M/C2jN8VLggXhfdlvgPxh+BlOfVH4o8lfyK+BGY7Bdfgz8SfJ/6uwF/IfJfg
+IvhK8tcyviycS703kq8I34K5/zvx9+Krsp4H7yQOZLYHW08g83xqloOwq9v1
+ApnvpSHzN8Q3LQfwog7fkvnBCw//KJ7M+tpSP5n315F8x453Xamva8e7J/Fk
+5nuJ/Ri+J/m++L74wR9n1Qn8AJ7v51ny4HUb2vo8mfsVH8lsL3Y/nsz7FB/J
+rH9k2ZNz5MmYL4JDG/lX6z240ESeHi0mDh8t5MeyPpnvQTgKu4nkybzviR0f
+ZbybWu+n1gfxUdi9JeZ5ePD6/MVHeq4/k/xM8mCeZxTv3hOvvrcf74h6sw==
+
             "]]}, "Charting`Private`Tag#1"]}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
-         "PlotRange" -> {{0, 100.}, {0., 1.0695011257604928`*^-14}}, 
+         "PlotRange" -> {{0, 100.}, {0, 1.636758334084953*^-32}}, 
           "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
           "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
           "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
@@ -1217,187 +1181,255 @@ g77mPFW13u8ZzH0aHL5CH2/dn87X80/61zOT/vkWh67R1/n6/c7638eo9f3x
          "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           ListLinePlot, "GroupHighlight" -> False|>|>, 
-       "DynamicHighlight"]], {{}, {}}}, {
-    DisplayFunction -> Identity, DisplayFunction -> Identity, DisplayFunction -> 
-     Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
-     Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, 
-     DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, 
-     FrameLabel -> {{
-        FormBox[
-         TagBox["\"Residual (RS)\"", HoldForm], TraditionalForm], None}, {
-        FormBox[
-         TagBox["\"n\"", HoldForm], TraditionalForm], None}}, 
-     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
-     GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[
-       GrayLevel[0.5, 0.4]], ImageSize -> Large, 
-     Method -> {
-      "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
-       "DefaultGraphicsInteraction" -> {
-        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
-         "Effects" -> {
-          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
-           "Droplines" -> {
-            "freeformCursorMode" -> True, 
-             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
-       "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
-         Directive[
-          RGBColor[0.368417, 0.506779, 0.709798], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.880722, 0.611041, 0.142051], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.560181, 0.691569, 0.194885], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.922526, 0.385626, 0.209179], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.528488, 0.470624, 0.701351], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.772079, 0.431554, 0.102387], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.363898, 0.618501, 0.782349], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[1, 0.75, 0], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.647624, 0.37816, 0.614037], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.571589, 0.586483, 0.], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.915, 0.3325, 0.2125], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[
-          0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
-          AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
-       "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, 
-       "IncludeHighlighting" -> "CurrentSet", "HighlightStyle" -> Automatic, 
-       "OptimizePlotMarkers" -> True, 
-       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
-           Identity[
-            Part[#, 1]], 
-           Identity[
-            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
-           Identity[
-            Part[#, 1]], 
-           Identity[
-            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
-       StyleBox[
-       "\"Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smod)\\n\"", 13, 
-        Bold, StripOnInput -> False], TraditionalForm], 
-     PlotRange -> {{0, 100.}, {0., 1.0695011257604928`*^-14}}, 
-     PlotRangeClipping -> True, PlotRangePadding -> {{
-        Scaled[0.02], 
-        Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}], 
-   FormBox[
-    FormBox[
-    "\" x: 10.0, to each value of n ; \\n avg(RS) = \
-[\\!\\(\\*FormBox[\\\"9.34272586027361981762039057097442128980734`20.*^-17\\\"\
-, TraditionalForm]\\)]\"", TraditionalForm], TraditionalForm]},
-  "Legended",
-  DisplayFunction->(GridBox[{{
-      TagBox[
-       ItemBox[
-        PaneBox[
-         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
-         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
-       "SkipImageSizeLevel"]}, {
-      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
-    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
-    AutoDelete -> False, GridBoxItemSize -> Automatic, 
-    BaselinePosition -> {1, 1}]& ),
-  Editable->True,
-  InterpretationFunction->(RowBox[{"Legended", "[", 
-     RowBox[{#, ",", 
-       RowBox[{"Placed", "[", 
-         RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
- CellChangeTimes->{
-  3.9311660084641447`*^9, 3.9311661107040415`*^9, 3.931166258096301*^9, 
-   3.931166358334406*^9, 3.9311798205495152`*^9, {3.9311906469705625`*^9, 
-   3.93119066728856*^9}, 3.931191966909502*^9, {3.9318630318310857`*^9, 
-   3.931863189973386*^9}},
- CellLabel->
-  "Out[115]=",ExpressionUUID->"7dcf280f-30c4-4332-a61b-b33d8b2f0a87"]
-}, Open  ]]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[TextData[{
- "\n",
- Cell[BoxData[
-  FormBox[
-   TemplateBox[<|
-    "boxes" -> FormBox["\[FivePointedStar]", TraditionalForm], "errors" -> {},
-      "input" -> "\\star", "state" -> "Boxes"|>,
-    "TeXAssistantTemplate"], TraditionalForm]],
-  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
-  "adb3df68-cb3b-45c5-babd-f87670844be5"],
- StyleBox[" ",
-  FontColor->RGBColor[1, 0, 0]],
- StyleBox["Single",
-  IgnoreSpellCheck->True,
-  FontFamily->"Roboto",
-  FontSize->13,
-  FontColor->RGBColor[1, 0, 0]],
- StyleBox["-Mode ",
-  FontFamily->"Roboto",
-  FontSize->13,
-  FontColor->RGBColor[1, 0, 0]],
- StyleBox["and",
-  IgnoreSpellCheck->True,
-  FontFamily->"Roboto",
-  FontSize->13,
-  FontColor->RGBColor[1, 0, 0]],
- StyleBox[" ",
-  FontFamily->"Roboto",
-  FontSize->13,
-  FontColor->RGBColor[1, 0, 0]],
- StyleBox["Onedimensional",
-  IgnoreSpellCheck->True,
-  FontFamily->"Roboto",
-  FontSize->13,
-  FontColor->RGBColor[1, 0, 0]],
- StyleBox[" Function ",
-  FontFamily->"Roboto",
-  FontSize->13,
-  FontColor->RGBColor[1, 0, 0]],
- StyleBox["with",
+       "DynamicHighlight"]], {{}, {}}}, AspectRatio -> 
+    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
+    AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction -> 
+    Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
+       FormBox[
+        TagBox["\"Residual (RS)\"", HoldForm], TraditionalForm], None}, {
+       FormBox[
+        TagBox["\"n\"", HoldForm], TraditionalForm], None}}, 
+    FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+    GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[
+      GrayLevel[0.5, 0.4]], ImageSize -> Large, 
+    Method -> {
+     "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
+      "DefaultGraphicsInteraction" -> {
+       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+        "Effects" -> {
+         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+          "Droplines" -> {
+           "freeformCursorMode" -> True, 
+            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+      "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
+        Directive[
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.922526, 0.385626, 0.209179], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.528488, 0.470624, 0.701351], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.772079, 0.431554, 0.102387], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.363898, 0.618501, 0.782349], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[1, 0.75, 0], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.647624, 0.37816, 0.614037], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.571589, 0.586483, 0.], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.915, 0.3325, 0.2125], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
+         AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
+      "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, 
+      "IncludeHighlighting" -> "CurrentSet", "HighlightStyle" -> Automatic, 
+      "OptimizePlotMarkers" -> True, 
+      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+          Identity[
+           Part[#, 1]], 
+          Identity[
+           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+          Identity[
+           Part[#, 1]], 
+          Identity[
+           Part[#, 2]]}& )}}, PlotLabel -> FormBox[
+      StyleBox[
+      "\"Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smod; \
+less_fast)\\n\"", 13, Bold, StripOnInput -> False], TraditionalForm], 
+    PlotRange -> {{0, 100.}, {0, 1.636758334084953*^-32}}, PlotRangeClipping -> 
+    True, PlotRangePadding -> {{
+       Scaled[0.02], 
+       Scaled[0.02]}, {
+       Scaled[0.02], 
+       Scaled[0.05]}}, Ticks -> {Automatic, Automatic}], 
+   FormBox[
+    FormBox[
+     TemplateBox[{
+      "\"x: 1.0, to each value of n ; \\n avg(RS) = \
+\\!\\(\\*FormBox[\\\"4.81712836435338415881397626572417004747945085`20.*^-33\\\
+\", TraditionalForm]\\)\""}, "LineLegend", DisplayFunction -> (FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[2], 
+                    Thickness[Large], 
+                    RGBColor[0, 0, 1]], {
+                    LineBox[{{0, 12.5}, {20, 12.5}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[2], 
+                    Thickness[Large], 
+                    RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 12.5}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.18000000000000002`] -> 
+                    Baseline)], #}}, 
+                 GridBoxAlignment -> {
+                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
+                 AutoDelete -> False, 
+                 GridBoxDividers -> {
+                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
+                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
+                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
+             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
+             AutoDelete -> False, 
+             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
+             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
+             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
+            "Grid"], Alignment -> Left, AppearanceElements -> None, 
+           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
+           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
+         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
+         False], TraditionalForm]& ), 
+      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{"Directive", "[", 
+               RowBox[{
+                 RowBox[{"PointSize", "[", 
+                   FractionBox["1", "72"], "]"}], ",", 
+                 RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", 
+                 RowBox[{"Thickness", "[", "Large", "]"}], ",", 
+                 
+                 TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>, 
+                  "RGBColorSwatchTemplate"]}], "]"}], "}"}], ",", 
+           RowBox[{"{", #, "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"{", 
+                 RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", 
+           RowBox[{"Joined", "\[Rule]", 
+             RowBox[{"{", "True", "}"}]}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"{", "}"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}]}], "]"}]& ), 
+      Editable -> True], TraditionalForm], TraditionalForm]},
+  "Legended",
+  DisplayFunction->(GridBox[{{
+      TagBox[
+       ItemBox[
+        PaneBox[
+         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
+         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
+       "SkipImageSizeLevel"]}, {
+      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
+    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
+    AutoDelete -> False, GridBoxItemSize -> Automatic, 
+    BaselinePosition -> {1, 1}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{"Legended", "[", 
+     RowBox[{#, ",", 
+       RowBox[{"Placed", "[", 
+         RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
+ CellChangeTimes->{3.931939688377262*^9, 3.9319402937780113`*^9},
+ CellLabel->
+  "Out[128]=",ExpressionUUID->"e82580bf-1826-4f74-a0df-9e4978d46b17"]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "\n",
+ Cell[BoxData[
+  FormBox[
+   TemplateBox[<|
+    "boxes" -> FormBox["\[FivePointedStar]", TraditionalForm], "errors" -> {},
+      "input" -> "\\star", "state" -> "Boxes"|>,
+    "TeXAssistantTemplate"], TraditionalForm]],
+  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
+  "546edb1f-4b92-4f59-b281-6eab24a9872a"],
+ StyleBox[" ",
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["Single",
   IgnoreSpellCheck->True,
   FontFamily->"Roboto",
   FontSize->13,
   FontColor->RGBColor[1, 0, 0]],
- StyleBox[" x = 20.0\n",
+ StyleBox["-Mode ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["and",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["Onedimensional",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" Function ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["with",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" x = 10.0\n",
   FontFamily->"Roboto",
   FontSize->13,
   FontColor->RGBColor[1, 0, 0]]
 }], "Subsubsection",
- CellChangeTimes->{{3.931166982909689*^9, 3.9311669947208033`*^9}, 
-   3.93117404514538*^9},ExpressionUUID->"3b3e3cff-0342-4745-815b-\
-db14e1331e26"],
+ CellChangeTimes->{3.9311635952693405`*^9, 3.9311637019540434`*^9, 
+  3.9311663669417257`*^9, 
+  3.931174051725665*^9},ExpressionUUID->"cdfe5e9d-03b0-4578-803a-\
+3b886f01f66f"],
 
 Cell[CellGroupData[{
 
 Cell[BoxData[{
  RowBox[{
   RowBox[{
-   RowBox[{"FastWaveSMOdN100x3", "=", 
+   RowBox[{"FastWaveSMOdN100x2", "=", 
     RowBox[{"SetPrecision", "[", 
      RowBox[{
       RowBox[{"Normal", "[", 
@@ -1405,17 +1437,17 @@ Cell[BoxData[{
         RowBox[{
         "\"\<Python\>\"", ",", "                      ", 
          "\"\<from fast_wave.wavefunction import wavefunction_smod;import \
-numpy as np;N_max = 100;x3 = 20.0;np.array([wavefunction_smod(n,x3) for n in \
+numpy as np;N_max = 100;x2 = 10.0;np.array([wavefunction_smod(n,x2) for n in \
 range(N_max+1)]);\>\""}], "]"}], "]"}], ",", "prec"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
-    RowBox[{"WolframSMOdN100x3", " ", "=", " ", 
+    RowBox[{"WolframSMOdN100x2", " ", "=", " ", 
      RowBox[{"WavefunctionMathematica3", "[", 
-      RowBox[{"Nmax", ",", "x3", ",", "prec"}], "]"}]}], ";"}], 
-   "*)"}]}], "\[IndentingNewLine]", 
+      RowBox[{"Nmax", ",", "x2", ",", "prec"}], "]"}]}], ";"}], "*)"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
  RowBox[{
-  RowBox[{"WolframSMOdN100x3", " ", "=", " ", 
+  RowBox[{"WolframSMOdN100x2", " ", "=", " ", 
    RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"For", "[", 
@@ -1427,17 +1459,17 @@ range(N_max+1)]);\>\""}], "]"}], "]"}], ",", "prec"}], "]"}]}], ";"}],
     RowBox[{"i", "++"}], ",", 
     RowBox[{
      RowBox[{"AppendTo", "[", 
-      RowBox[{"WolframSMOdN100x3", ",", 
+      RowBox[{"WolframSMOdN100x2", ",", 
        RowBox[{"WavefunctionMathematica1", "[", 
         RowBox[{
-         RowBox[{"i", "-", "1"}], ",", "x3", ",", "prec"}], "]"}]}], "]"}], 
+         RowBox[{"i", "-", "1"}], ",", "x2", ",", "prec"}], "]"}]}], "]"}], 
      ";"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
-   RowBox[{"Residual", " ", "=", 
+   RowBox[{"Residual", " ", "=", " ", 
     RowBox[{
-     RowBox[{"(", " ", 
-      RowBox[{"WolframSMOdN100x3", "-", "FastWaveSMOdN100x3"}], ")"}], "^", 
+     RowBox[{"(", 
+      RowBox[{"WolframSMOdN100x2", "-", "FastWaveSMOdN100x2"}], ")"}], "^", 
      "2"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
  RowBox[{"ListLinePlot", "[", "\[IndentingNewLine]", 
@@ -1466,7 +1498,7 @@ range(N_max+1)]);\>\""}], "]"}], "]"}], ",", "prec"}], "]"}]}], ";"}],
       RowBox[{
        RowBox[{"{", 
         RowBox[{
-        "\"\< x: 20.0, to each value of n ; \\n avg(RS) = [\>\"", " ", "<>", 
+        "\"\< x: 10.0, to each value of n ; \\n avg(RS) = [\>\"", " ", "<>", 
          RowBox[{"ToString", "[", 
           RowBox[{
            RowBox[{"SetPrecision", "[", 
@@ -1486,55 +1518,60 @@ range(N_max+1)]);\>\""}], "]"}], "]"}], ",", "prec"}], "]"}]}], ";"}],
         RowBox[{"1.2", "*", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
-           RowBox[{"-", "79.15"}], ")"}]}]}]}], "}"}]}], "}"}]}]}], 
+           RowBox[{"-", "14.05"}], ")"}]}]}]}], "}"}]}], "}"}]}]}], 
   "\[IndentingNewLine]", "]"}]}], "Input",
- CellChangeTimes->{{3.931167024660074*^9, 3.931167081048193*^9}, {
-   3.9311671732055583`*^9, 3.931167173697566*^9}, {3.931167882414612*^9, 
-   3.931167885905636*^9}, {3.9311679259052086`*^9, 3.9311679264458027`*^9}, {
-   3.93116807888734*^9, 3.9311680817029223`*^9}, {3.9311682815555067`*^9, 
-   3.93116832429881*^9}, {3.9311691221258445`*^9, 3.9311691491667624`*^9}, 
-   3.931175571675296*^9, {3.931179743916041*^9, 3.9311797593115945`*^9}, {
-   3.931190687990085*^9, 3.9311906920186157`*^9}, {3.931190773887468*^9, 
-   3.9311908232474146`*^9}, {3.9311908602950363`*^9, 
-   3.9311908604717627`*^9}, {3.931191949568599*^9, 3.931191949775028*^9}, {
-   3.931863221795256*^9, 3.9318633560866404`*^9}},
+ CellChangeTimes->{{3.9311637772835264`*^9, 3.931163811634921*^9}, {
+   3.9311639833422804`*^9, 3.931163996030384*^9}, {3.931164195575*^9, 
+   3.9311642067352743`*^9}, {3.931164327711074*^9, 3.931164390993785*^9}, {
+   3.9311644226636953`*^9, 3.931164464519924*^9}, 3.931164499404803*^9, {
+   3.9311645531097527`*^9, 3.931164573659566*^9}, {3.9311646418502884`*^9, 
+   3.931164708000108*^9}, {3.931164750389971*^9, 3.931164791100255*^9}, {
+   3.931165685825607*^9, 3.931165722118843*^9}, {3.9311658947402735`*^9, 
+   3.931165930391143*^9}, {3.9311659665351152`*^9, 3.931166000041842*^9}, {
+   3.931166102745397*^9, 3.9311661029471655`*^9}, {3.9311662051487627`*^9, 
+   3.931166233095718*^9}, {3.931166269917852*^9, 3.931166270201442*^9}, 
+   3.9311755790521746`*^9, {3.9311797671302443`*^9, 3.93117977455917*^9}, {
+   3.9311906136118307`*^9, 3.931190660012038*^9}, {3.931191961184067*^9, 
+   3.931191961462804*^9}, {3.9318630191304927`*^9, 3.931863183675096*^9}},
  CellLabel->
-  "In[156]:=",ExpressionUUID->"f0d8df2c-ee3c-4081-bba5-abd8ac851ee5"],
+  "In[111]:=",ExpressionUUID->"6c713f40-4de1-4703-b5b7-508466c25334"],
 
 Cell[BoxData["\<\"Functionality Test Passed: True\"\>"], "Print",
  CellChangeTimes->{
-  3.931190999210333*^9, 3.931191955231194*^9, {3.9318632537098556`*^9, 
-   3.9318633618092537`*^9}},
+  3.9311660083698325`*^9, 3.931166110617276*^9, 3.9311662580020924`*^9, 
+   3.931166358254695*^9, 3.931179820471266*^9, {3.931190645933632*^9, 
+   3.9311906670519896`*^9}, 3.931191966806198*^9, {3.931863031732627*^9, 
+   3.9318631898681383`*^9}},
  CellLabel->
   "During evaluation of \
-In[156]:=",ExpressionUUID->"be7e7374-a050-49e6-9dc8-c6a9b46151dc"],
+In[111]:=",ExpressionUUID->"9379ba00-db5f-4636-9f9e-0836610761c1"],
 
 Cell[BoxData[
  TemplateBox[{
    GraphicsBox[{{}, 
      InterpretationBox[{
-       TagBox[{{{}, {}, 
-          TagBox[{
-            Hue[0.67, 0.6, 0.6], 
-            Directive[
-             PointSize[
-              NCache[
-               Rational[1, 72], 0.013888888888888888`]], 
-             AbsoluteThickness[2], 
-             Thickness[Large], 
-             RGBColor[0, 0, 1]], 
-            LineBox[CompressedData["
-1:eJxtzzlSG0EYBeC/FClUYLPYAiQZgywWjVlsC7Bp8MYqBuGNhEBVxCjwAbqI
-HDiYEzjQCeYIUzqBzqATTOrMdr33gulyV6leffP61/xT79/1bktmdvv39y//
-f/J95kM+cIjBFLJMV6aZrjj/IPAMHc8gq/SErgX3G3Qyi1ykc3opuN+kx4+Q
-raBfpQePket0qYqM6EP6OT2iN3R/DrlJx/QWPaS3dX8e+UL36Zd0Sr+iJ3SH
-jhaQO/Q9vav79B7dqSFfw/4H/YZ9Qu9rvzrSaT/Yywn7A72PvdxoIA/pPuzl
-Afu39G/2cvQE+a5oLw/Zv6d5fGD7oP0X0csJbB9hX36KpK0D2xHsfrE/0v7s
-j+kxe1nnRO9fQi8nsJ3SOXu5sow8g2s/YU/biP150Z52N00879LfYd/VPuwv
-9D3s5RH7WPvBTq48w305hjM5he2SHsNOzjkvRy3MyzFsPe0HO3kM+8CZrHOl
-/1/BvJzAXk7hTM5h+6TvXcW8zOMDZ3KK+/a52Ds5R+/laA3z8gC2L0U7OYG9
-rPcHtq/B++V4HfNBn8kpevumfWEnV9qYD5zJ97Bda//2H+higp4=
-             "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}}, {
+       TagBox[{{}, {}, 
+         TagBox[{
+           RGBColor[0, 0, 1], 
+           PointSize[
+            NCache[
+             Rational[1, 72], 0.013888888888888888`]], 
+           Thickness[Large], 
+           LineBox[CompressedData["
+1:eJxt0U1oE0EYxvFFEXoM1UJLq6SiUkqRNEm/0saMtVo/kjYmtX7klGCliNgg
+eFCKjAHBi7hQD3rpya+DB72KhbRI6UGhB2+CSG0PgkhFEcSLyb7/t7CLC2H4
+5ZlnZna2vTSTm9rmOM5U7Vcf//9sphgj/GH8eQN2u2UMBfJdOBuVsTmQt+FN
+8nAg34vLMRn34Zf4gPZxB47EZezUPu7SPj6IW3roaR934wqOYhfH8CqOB87f
+o+v1ytiLb+A+PQ/uD3gA/8EJHOqTcVBsbuEh3Q8n9bz4kNj9jVPixky/2IiX
+SmKL3QL5YfabJ8d2hXwYPyfHj1MDkh/x7L6YEFuxsz5LPuK58nqZXGwu/yQ/
+6tk+/EYuDlfHE5If87zSFBZbz42zv56Qj9YdurfxgLxuG18rbJAfr3m99fNq
+bFDyus2HnW/axM4Jb71P37eT172W6/pbJD9pHJuOWlshr9nML3xJLZCfMs7b
+qw3LiaYhyWsuvkrOzf0gTxvzdHHpTrmZPG3C70dLI/eN2MmY3e8Wn7XfnCbP
+mEd3Wy8VPlbIx8ztYm6mc/+OpORjcr9Olvsb99uqS+RZXBYbfPE687GdFld1
+vj6ncYR+wDbgKjZ72D9HHqKfC/TVnL+qHqafZ704/bw/t/lAX836zoR/vsG2
+g77mPFW13u8ZzH0aHL5CH2/dn87X80/61zOT/vkWh67R1/n6/c7638eo9f3x
+1wv0Ndfznwvsr+Z7WHUL/UDunN/a/x+jy7kr
+            "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {
         "WolframDynamicHighlight", <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
        DynamicBox[
@@ -1552,21 +1589,24 @@ rPcHtq/B++V4HfNBn8kpevumfWEnV9qYD5zJ97Bda//2H+higp4=
                Thickness[Large], 
                RGBColor[0, 0, 1]], 
               Line[CompressedData["
-1:eJxtzzlSG0EYBeC/FClUYLPYAiQZgywWjVlsC7Bp8MYqBuGNhEBVxCjwAbqI
-HDiYEzjQCeYIUzqBzqATTOrMdr33gulyV6leffP61/xT79/1bktmdvv39y//
-f/J95kM+cIjBFLJMV6aZrjj/IPAMHc8gq/SErgX3G3Qyi1ykc3opuN+kx4+Q
-raBfpQePket0qYqM6EP6OT2iN3R/DrlJx/QWPaS3dX8e+UL36Zd0Sr+iJ3SH
-jhaQO/Q9vav79B7dqSFfw/4H/YZ9Qu9rvzrSaT/Yywn7A72PvdxoIA/pPuzl
-Afu39G/2cvQE+a5oLw/Zv6d5fGD7oP0X0csJbB9hX36KpK0D2xHsfrE/0v7s
-j+kxe1nnRO9fQi8nsJ3SOXu5sow8g2s/YU/biP150Z52N00879LfYd/VPuwv
-9D3s5RH7WPvBTq48w305hjM5he2SHsNOzjkvRy3MyzFsPe0HO3kM+8CZrHOl
-/1/BvJzAXk7hTM5h+6TvXcW8zOMDZ3KK+/a52Ds5R+/laA3z8gC2L0U7OYG9
-rPcHtq/B++V4HfNBn8kpevumfWEnV9qYD5zJ97Bda//2H+higp4=
+1:eJxt0U1oE0EYxvFFEXoM1UJLq6SiUkqRNEm/0saMtVo/kjYmtX7klGCliNgg
+eFCKjAHBi7hQD3rpya+DB72KhbRI6UGhB2+CSG0PgkhFEcSLyb7/t7CLC2H4
+5ZlnZna2vTSTm9rmOM5U7Vcf//9sphgj/GH8eQN2u2UMBfJdOBuVsTmQt+FN
+8nAg34vLMRn34Zf4gPZxB47EZezUPu7SPj6IW3roaR934wqOYhfH8CqOB87f
+o+v1ytiLb+A+PQ/uD3gA/8EJHOqTcVBsbuEh3Q8n9bz4kNj9jVPixky/2IiX
+SmKL3QL5YfabJ8d2hXwYPyfHj1MDkh/x7L6YEFuxsz5LPuK58nqZXGwu/yQ/
+6tk+/EYuDlfHE5If87zSFBZbz42zv56Qj9YdurfxgLxuG18rbJAfr3m99fNq
+bFDyus2HnW/axM4Jb71P37eT172W6/pbJD9pHJuOWlshr9nML3xJLZCfMs7b
+qw3LiaYhyWsuvkrOzf0gTxvzdHHpTrmZPG3C70dLI/eN2MmY3e8Wn7XfnCbP
+mEd3Wy8VPlbIx8ztYm6mc/+OpORjcr9Olvsb99uqS+RZXBYbfPE687GdFld1
+vj6ncYR+wDbgKjZ72D9HHqKfC/TVnL+qHqafZ704/bw/t/lAX836zoR/vsG2
+g77mPFW13u8ZzH0aHL5CH2/dn87X80/61zOT/vkWh67R1/n6/c7638eo9f3x
+1wv0Ndfznwvsr+Z7WHUL/UDunN/a/x+jy7kr
                "]]}, "Charting`Private`Tag#1"]}}, <|
           "HighlightElements" -> <|
             "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
            "LayoutOptions" -> <|
-            "PlotRange" -> {{0, 100.}, {0., 8.495349412609544*^-80}}, 
+            "PlotRange" -> {{0, 100.}, {0., 1.0695011257604928`*^-14}}, 
              "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
              "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
              "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
@@ -1591,7 +1631,7 @@ rPcHtq/B++V4HfNBn8kpevumfWEnV9qYD5zJ97Bda//2H+higp4=
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
           "LayoutOptions" -> <|
-           "PlotRange" -> {{0, 100.}, {0., 8.495349412609544*^-80}}, 
+           "PlotRange" -> {{0, 100.}, {0., 1.0695011257604928`*^-14}}, 
             "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
             "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
@@ -1612,7 +1652,9 @@ rPcHtq/B++V4HfNBn8kpevumfWEnV9qYD5zJ97Bda//2H+higp4=
             False|>, 
           "Meta" -> <|
            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
-            ListLinePlot, "GroupHighlight" -> False|>|>]]}, 
+            ListLinePlot, "GroupHighlight" -> False|>|>], 
+        ImageSizeCache -> {{4.503599627370496*^15, -4.503599627370496*^15}, {
+         4.503599627370496*^15, -4.503599627370496*^15}}]}, 
       Annotation[{{{}, {}, 
          Annotation[{
            Hue[0.67, 0.6, 0.6], 
@@ -1623,21 +1665,24 @@ rPcHtq/B++V4HfNBn8kpevumfWEnV9qYD5zJ97Bda//2H+higp4=
             Thickness[Large], 
             RGBColor[0, 0, 1]], 
            Line[CompressedData["
-1:eJxtzzlSG0EYBeC/FClUYLPYAiQZgywWjVlsC7Bp8MYqBuGNhEBVxCjwAbqI
-HDiYEzjQCeYIUzqBzqATTOrMdr33gulyV6leffP61/xT79/1bktmdvv39y//
-f/J95kM+cIjBFLJMV6aZrjj/IPAMHc8gq/SErgX3G3Qyi1ykc3opuN+kx4+Q
-raBfpQePket0qYqM6EP6OT2iN3R/DrlJx/QWPaS3dX8e+UL36Zd0Sr+iJ3SH
-jhaQO/Q9vav79B7dqSFfw/4H/YZ9Qu9rvzrSaT/Yywn7A72PvdxoIA/pPuzl
-Afu39G/2cvQE+a5oLw/Zv6d5fGD7oP0X0csJbB9hX36KpK0D2xHsfrE/0v7s
-j+kxe1nnRO9fQi8nsJ3SOXu5sow8g2s/YU/biP150Z52N00879LfYd/VPuwv
-9D3s5RH7WPvBTq48w305hjM5he2SHsNOzjkvRy3MyzFsPe0HO3kM+8CZrHOl
-/1/BvJzAXk7hTM5h+6TvXcW8zOMDZ3KK+/a52Ds5R+/laA3z8gC2L0U7OYG9
-rPcHtq/B++V4HfNBn8kpevumfWEnV9qYD5zJ97Bda//2H+higp4=
+1:eJxt0U1oE0EYxvFFEXoM1UJLq6SiUkqRNEm/0saMtVo/kjYmtX7klGCliNgg
+eFCKjAHBi7hQD3rpya+DB72KhbRI6UGhB2+CSG0PgkhFEcSLyb7/t7CLC2H4
+5ZlnZna2vTSTm9rmOM5U7Vcf//9sphgj/GH8eQN2u2UMBfJdOBuVsTmQt+FN
+8nAg34vLMRn34Zf4gPZxB47EZezUPu7SPj6IW3roaR934wqOYhfH8CqOB87f
+o+v1ytiLb+A+PQ/uD3gA/8EJHOqTcVBsbuEh3Q8n9bz4kNj9jVPixky/2IiX
+SmKL3QL5YfabJ8d2hXwYPyfHj1MDkh/x7L6YEFuxsz5LPuK58nqZXGwu/yQ/
+6tk+/EYuDlfHE5If87zSFBZbz42zv56Qj9YdurfxgLxuG18rbJAfr3m99fNq
+bFDyus2HnW/axM4Jb71P37eT172W6/pbJD9pHJuOWlshr9nML3xJLZCfMs7b
+qw3LiaYhyWsuvkrOzf0gTxvzdHHpTrmZPG3C70dLI/eN2MmY3e8Wn7XfnCbP
+mEd3Wy8VPlbIx8ztYm6mc/+OpORjcr9Olvsb99uqS+RZXBYbfPE687GdFld1
+vj6ncYR+wDbgKjZ72D9HHqKfC/TVnL+qHqafZ704/bw/t/lAX836zoR/vsG2
+g77mPFW13u8ZzH0aHL5CH2/dn87X80/61zOT/vkWh67R1/n6/c7638eo9f3x
+1wv0Ndfznwvsr+Z7WHUL/UDunN/a/x+jy7kr
             "]]}, "Charting`Private`Tag#1"]}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
-         "PlotRange" -> {{0, 100.}, {0., 8.495349412609544*^-80}}, 
+         "PlotRange" -> {{0, 100.}, {0., 1.0695011257604928`*^-14}}, 
           "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
           "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
           "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
@@ -1658,99 +1703,1888 @@ rPcHtq/B++V4HfNBn8kpevumfWEnV9qYD5zJ97Bda//2H+higp4=
          "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           ListLinePlot, "GroupHighlight" -> False|>|>, 
-       "DynamicHighlight"]], {{}, {}}}, {
-    DisplayFunction -> Identity, DisplayFunction -> Identity, DisplayFunction -> 
-     Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
-     Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, 
-     DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, 
-     FrameLabel -> {{
-        FormBox[
-         TagBox["\"Residual (RS)\"", HoldForm], TraditionalForm], None}, {
-        FormBox[
-         TagBox["\"n\"", HoldForm], TraditionalForm], None}}, 
-     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
-     GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[
-       GrayLevel[0.5, 0.4]], ImageSize -> Large, 
-     Method -> {
-      "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
-       "DefaultGraphicsInteraction" -> {
-        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
-         "Effects" -> {
-          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
-           "Droplines" -> {
-            "freeformCursorMode" -> True, 
-             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
-       "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
-         Directive[
-          RGBColor[0.368417, 0.506779, 0.709798], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.880722, 0.611041, 0.142051], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.560181, 0.691569, 0.194885], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.922526, 0.385626, 0.209179], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.528488, 0.470624, 0.701351], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.772079, 0.431554, 0.102387], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.363898, 0.618501, 0.782349], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[1, 0.75, 0], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.647624, 0.37816, 0.614037], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.571589, 0.586483, 0.], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.915, 0.3325, 0.2125], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[
-          0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
-          AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
-       "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, 
-       "IncludeHighlighting" -> "CurrentSet", "HighlightStyle" -> Automatic, 
-       "OptimizePlotMarkers" -> True, 
-       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
-           Identity[
-            Part[#, 1]], 
-           Identity[
-            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
-           Identity[
-            Part[#, 1]], 
-           Identity[
-            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
-       StyleBox[
-       "\"Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smod)\\n\"", 13, 
-        Bold, StripOnInput -> False], TraditionalForm], 
-     PlotRange -> {{0, 100.}, {0., 8.495349412609544*^-80}}, 
-     PlotRangeClipping -> True, PlotRangePadding -> {{
-        Scaled[0.02], 
-        Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}], 
+       "DynamicHighlight"]], {{}, {}}}, AspectRatio -> 
+    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
+    AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction -> 
+    Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
+       FormBox[
+        TagBox["\"Residual (RS)\"", HoldForm], TraditionalForm], None}, {
+       FormBox[
+        TagBox["\"n\"", HoldForm], TraditionalForm], None}}, 
+    FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+    GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[
+      GrayLevel[0.5, 0.4]], ImageSize -> Large, 
+    Method -> {
+     "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
+      "DefaultGraphicsInteraction" -> {
+       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+        "Effects" -> {
+         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+          "Droplines" -> {
+           "freeformCursorMode" -> True, 
+            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+      "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
+        Directive[
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.922526, 0.385626, 0.209179], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.528488, 0.470624, 0.701351], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.772079, 0.431554, 0.102387], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.363898, 0.618501, 0.782349], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[1, 0.75, 0], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.647624, 0.37816, 0.614037], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.571589, 0.586483, 0.], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.915, 0.3325, 0.2125], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
+         AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
+      "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, 
+      "IncludeHighlighting" -> "CurrentSet", "HighlightStyle" -> Automatic, 
+      "OptimizePlotMarkers" -> True, 
+      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+          Identity[
+           Part[#, 1]], 
+          Identity[
+           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+          Identity[
+           Part[#, 1]], 
+          Identity[
+           Part[#, 2]]}& )}}, PlotLabel -> FormBox[
+      StyleBox[
+      "\"Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smod)\\n\"", 13, 
+       Bold, StripOnInput -> False], TraditionalForm], 
+    PlotRange -> {{0, 100.}, {0., 1.0695011257604928`*^-14}}, 
+    PlotRangeClipping -> True, PlotRangePadding -> {{
+       Scaled[0.02], 
+       Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}], 
+   FormBox[
+    FormBox[
+    "\" x: 10.0, to each value of n ; \\n avg(RS) = \
+[\\!\\(\\*FormBox[\\\"9.34272586027361981762039057097442128980734`20.*^-17\\\"\
+, TraditionalForm]\\)]\"", TraditionalForm], TraditionalForm]},
+  "Legended",
+  DisplayFunction->(GridBox[{{
+      TagBox[
+       ItemBox[
+        PaneBox[
+         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
+         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
+       "SkipImageSizeLevel"]}, {
+      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
+    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
+    AutoDelete -> False, GridBoxItemSize -> Automatic, 
+    BaselinePosition -> {1, 1}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{"Legended", "[", 
+     RowBox[{#, ",", 
+       RowBox[{"Placed", "[", 
+         RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
+ CellChangeTimes->{
+  3.9311660084641447`*^9, 3.9311661107040415`*^9, 3.931166258096301*^9, 
+   3.931166358334406*^9, 3.9311798205495152`*^9, {3.9311906469705625`*^9, 
+   3.93119066728856*^9}, 3.931191966909502*^9, {3.9318630318310857`*^9, 
+   3.931863189973386*^9}},
+ CellLabel->
+  "Out[115]=",ExpressionUUID->"7dcf280f-30c4-4332-a61b-b33d8b2f0a87"]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  FormBox[
+   TemplateBox[<|
+    "boxes" -> FormBox["\[FivePointedStar]", TraditionalForm], "errors" -> {},
+      "input" -> "\\star", "state" -> "Boxes"|>,
+    "TeXAssistantTemplate"], TraditionalForm]],
+  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
+  "3b6f9207-a3f9-42e6-ba32-ef01e2a1c971"],
+ StyleBox[" ",
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["Single",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["-Mode ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["and",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["Onedimensional",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" Less ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["Fast",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" Function ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["with",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" x = 10.0",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]]
+}], "Subsubsection",
+ CellChangeTimes->{{3.931939869068063*^9, 
+  3.931939876204853*^9}},ExpressionUUID->"8ed1ca18-7044-4ca5-9069-\
+0d4efc1da7ca"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"FastWaveSMOdN100x2", "=", 
+    RowBox[{"SetPrecision", "[", 
+     RowBox[{
+      RowBox[{"Normal", "[", 
+       RowBox[{"ExternalEvaluate", "[", 
+        RowBox[{
+        "\"\<Python\>\"", ",", "                      ", 
+         "\"\<from fast_wave.wavefunction import wavefunction_smod;import \
+numpy as np;N_max = 100;x2 = \
+10.0;np.array([wavefunction_smod(n,x2,more_fast=False) for n in \
+range(N_max+1)]);\>\""}], "]"}], "]"}], ",", "prec"}], "]"}]}], ";"}], 
+  "\[IndentingNewLine]", "\[IndentingNewLine]", 
+  RowBox[{"(*", 
+   RowBox[{
+    RowBox[{"WolframSMOdN100x2", " ", "=", " ", 
+     RowBox[{"WavefunctionMathematica3", "[", 
+      RowBox[{"Nmax", ",", "x2", ",", "prec"}], "]"}]}], ";"}], "*)"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"WolframSMOdN100x2", " ", "=", " ", 
+   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"For", "[", 
+   RowBox[{
+    RowBox[{"i", "=", "1"}], ",", 
+    RowBox[{"i", "<=", 
+     RowBox[{"(", 
+      RowBox[{"Nmax", "+", "1"}], ")"}]}], ",", 
+    RowBox[{"i", "++"}], ",", 
+    RowBox[{
+     RowBox[{"AppendTo", "[", 
+      RowBox[{"WolframSMOdN100x2", ",", 
+       RowBox[{"WavefunctionMathematica1", "[", 
+        RowBox[{
+         RowBox[{"i", "-", "1"}], ",", "x2", ",", "prec"}], "]"}]}], "]"}], 
+     ";"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"Residual", " ", "=", " ", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{"WolframSMOdN100x2", "-", "FastWaveSMOdN100x2"}], ")"}], "^", 
+     "2"}]}], ";"}], "\[IndentingNewLine]", 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{"ListLinePlot", "[", "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"Nvector", ",", "Residual"}], "}"}], "]"}], ",", 
+   "\[IndentingNewLine]", 
+   RowBox[{"PlotStyle", "->", 
+    RowBox[{"{", 
+     RowBox[{"Thick", ",", "Blue"}], "}"}]}], ",", "\[IndentingNewLine]", 
+   RowBox[{"Frame", "->", "True"}], ",", "\[IndentingNewLine]", 
+   RowBox[{"FrameLabel", "->", 
+    RowBox[{"{", 
+     RowBox[{"\"\<n\>\"", ",", "\"\<Residual (RS)\>\""}], "}"}]}], ",", 
+   "\[IndentingNewLine]", 
+   RowBox[{"PlotLabel", "->", 
+    RowBox[{"Style", "[", 
+     RowBox[{
+     "\"\<Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smod; less_fast)\\n\
+\>\"", ",", "13", ",", "Bold"}], "]"}]}], ",", "\[IndentingNewLine]", 
+   RowBox[{"GridLines", "->", "Automatic"}], ",", "\[IndentingNewLine]", 
+   RowBox[{"PlotLegends", "->", 
+    RowBox[{"Placed", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{
+        "\"\< x: 10.0, to each value of n ; \\n avg(RS) = [\>\"", " ", "<>", 
+         RowBox[{"ToString", "[", 
+          RowBox[{
+           RowBox[{"SetPrecision", "[", 
+            RowBox[{
+             RowBox[{"Mean", "[", "Residual", "]"}], ",", "20"}], "]"}], ",", 
+           "\[IndentingNewLine]", "TraditionalForm"}], "]"}]}], "}"}], " ", "<>",
+        " ", "\"\<]\>\""}], ",", "Below"}], "]"}]}], ",", 
+   "\[IndentingNewLine]", 
+   RowBox[{"ImageSize", "->", "Large"}], " ", ",", "\[IndentingNewLine]", 
+   RowBox[{"PlotRange", "->", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"Automatic", ",", "Automatic"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"0", ",", 
+        RowBox[{"1.2", "*", 
+         RowBox[{"10", "^", 
+          RowBox[{"(", 
+           RowBox[{"-", "30.65"}], ")"}]}]}]}], "}"}]}], "}"}]}]}], 
+  "\[IndentingNewLine]", "]"}]}], "Input",
+ CellChangeTimes->{{3.9319398984417925`*^9, 3.9319399195581036`*^9}, {
+  3.9319399692279882`*^9, 3.931940213623197*^9}, {3.9319402523980513`*^9, 
+  3.931940266128064*^9}},
+ CellLabel->
+  "In[119]:=",ExpressionUUID->"043b0a28-3230-4c1f-92e6-410262f5c913"],
+
+Cell[BoxData["\<\"Functionality Test Passed: True\"\>"], "Print",
+ CellChangeTimes->{{3.931939997471935*^9, 3.9319402227131243`*^9}, 
+   3.9319402749780073`*^9},
+ CellLabel->
+  "During evaluation of \
+In[119]:=",ExpressionUUID->"097bce1f-72f6-4e67-9e3f-4e58bc2e54e6"],
+
+Cell[BoxData[
+ TemplateBox[{
+   GraphicsBox[{{}, 
+     InterpretationBox[{
+       TagBox[{{{}, {}, 
+          TagBox[{
+            Hue[0.67, 0.6, 0.6], 
+            Directive[
+             PointSize[
+              NCache[
+               Rational[1, 72], 0.013888888888888888`]], 
+             AbsoluteThickness[2], 
+             Thickness[Large], 
+             RGBColor[0, 0, 1]], 
+            LineBox[CompressedData["
+1:eJxt0rtKA0EUxvHBynILCwWRKCIiIquJ0Xgd4y3eYky8xVIMiAgGwcJGhlSW
+Fj6BT+AjBJ8gr2GXR1CZ/xeYwYVw+O0358zsbkavH6qNPmNM4/f3V/+/uuu+
+dlJu2DDvj5zg7qyvA1E+iN/mfB3WepzBadbXsah/HH+ST6gfT+JKztcp3MTT
+6scz0fwUJ/O+zmoentP5cVbzcC6aN4/TvK95nQcvaB5exF+4gLt4KZq/rPMu
++Lqi/fCq9sNr+AOv4w62oV1ks4HHFn0uV7xNET+Tyy3yTfxGLjfJt6Jc7pBv
+4y45dpMFf3+HvODtsCuR75IXyeVr8hKuk8vP5HvMeyXH9p18P1zv5Cb5QZTL
+LfLD0A7bF/Ij79IdOTYV8jLmcuUoPw7tZD1/JTyvxTdPrMfu1rut9bpOcEp/
+ZBe5je0I+1fJE/qrUb/M+dsy39PUmJejvxbmrhb1y8w3p+F6i/X/csq52rLe
+7xnmfVqcuacf996f1uv85+E8ex6udzh5pF/r9f0uwuexsp4ff1/Rr1znv4z2
+l/keTh6iP8pNvbf/Dyc8ijY=
+             "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}}, {
+        "WolframDynamicHighlight", <|
+         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
+       DynamicBox[
+        (Charting`HighlightActionBox["DynamicHighlight", {}, 
+         Slot["HighlightElements"], 
+         Slot["LayoutOptions"], 
+         Slot["Meta"], 
+         Charting`HighlightActionFunction["DynamicHighlight", {{{}, {}, 
+            Annotation[{
+              Hue[0.67, 0.6, 0.6], 
+              Directive[
+               PointSize[
+                Rational[1, 72]], 
+               AbsoluteThickness[2], 
+               Thickness[Large], 
+               RGBColor[0, 0, 1]], 
+              Line[CompressedData["
+1:eJxt0rtKA0EUxvHBynILCwWRKCIiIquJ0Xgd4y3eYky8xVIMiAgGwcJGhlSW
+Fj6BT+AjBJ8gr2GXR1CZ/xeYwYVw+O0358zsbkavH6qNPmNM4/f3V/+/uuu+
+dlJu2DDvj5zg7qyvA1E+iN/mfB3WepzBadbXsah/HH+ST6gfT+JKztcp3MTT
+6scz0fwUJ/O+zmoentP5cVbzcC6aN4/TvK95nQcvaB5exF+4gLt4KZq/rPMu
++Lqi/fCq9sNr+AOv4w62oV1ks4HHFn0uV7xNET+Tyy3yTfxGLjfJt6Jc7pBv
+4y45dpMFf3+HvODtsCuR75IXyeVr8hKuk8vP5HvMeyXH9p18P1zv5Cb5QZTL
+LfLD0A7bF/Ij79IdOTYV8jLmcuUoPw7tZD1/JTyvxTdPrMfu1rut9bpOcEp/
+ZBe5je0I+1fJE/qrUb/M+dsy39PUmJejvxbmrhb1y8w3p+F6i/X/csq52rLe
+7xnmfVqcuacf996f1uv85+E8ex6udzh5pF/r9f0uwuexsp4ff1/Rr1znv4z2
+l/keTh6iP8pNvbf/Dyc8ijY=
+               "]]}, "Charting`Private`Tag#1"]}}, <|
+          "HighlightElements" -> <|
+            "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
+           "LayoutOptions" -> <|
+            "PlotRange" -> {{0, 100.}, {0., 2.686465366282016*^-31}}, 
+             "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
+             "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
+             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
+             "DefaultStyle" -> {
+               Directive[
+                PointSize[
+                 Rational[1, 72]], 
+                AbsoluteThickness[2], 
+                Thickness[Large], 
+                RGBColor[0, 0, 1]]}, 
+             "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
+                 Identity[
+                  Part[#, 1]], 
+                 Identity[
+                  Part[#, 2]]}& ), 
+               "ScalingFunctions" -> {{Identity, Identity}, {
+                 Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
+             False|>, 
+           "Meta" -> <|
+            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
+             "Function" -> ListLinePlot, "GroupHighlight" -> False|>|>]]& )[<|
+         "HighlightElements" -> <|
+           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
+          "LayoutOptions" -> <|
+           "PlotRange" -> {{0, 100.}, {0., 2.686465366282016*^-31}}, 
+            "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
+            "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
+            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
+            "DefaultStyle" -> {
+              Directive[
+               PointSize[
+                Rational[1, 72]], 
+               AbsoluteThickness[2], 
+               Thickness[Large], 
+               RGBColor[0, 0, 1]]}, 
+            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
+                Identity[
+                 Part[#, 1]], 
+                Identity[
+                 Part[#, 2]]}& ), 
+              "ScalingFunctions" -> {{Identity, Identity}, {
+                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
+            False|>, 
+          "Meta" -> <|
+           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
+            ListLinePlot, "GroupHighlight" -> False|>|>]]}, 
+      Annotation[{{{}, {}, 
+         Annotation[{
+           Hue[0.67, 0.6, 0.6], 
+           Directive[
+            PointSize[
+             Rational[1, 72]], 
+            AbsoluteThickness[2], 
+            Thickness[Large], 
+            RGBColor[0, 0, 1]], 
+           Line[CompressedData["
+1:eJxt0rtKA0EUxvHBynILCwWRKCIiIquJ0Xgd4y3eYky8xVIMiAgGwcJGhlSW
+Fj6BT+AjBJ8gr2GXR1CZ/xeYwYVw+O0358zsbkavH6qNPmNM4/f3V/+/uuu+
+dlJu2DDvj5zg7qyvA1E+iN/mfB3WepzBadbXsah/HH+ST6gfT+JKztcp3MTT
+6scz0fwUJ/O+zmoentP5cVbzcC6aN4/TvK95nQcvaB5exF+4gLt4KZq/rPMu
++Lqi/fCq9sNr+AOv4w62oV1ks4HHFn0uV7xNET+Tyy3yTfxGLjfJt6Jc7pBv
+4y45dpMFf3+HvODtsCuR75IXyeVr8hKuk8vP5HvMeyXH9p18P1zv5Cb5QZTL
+LfLD0A7bF/Ij79IdOTYV8jLmcuUoPw7tZD1/JTyvxTdPrMfu1rut9bpOcEp/
+ZBe5je0I+1fJE/qrUb/M+dsy39PUmJejvxbmrhb1y8w3p+F6i/X/csq52rLe
+7xnmfVqcuacf996f1uv85+E8ex6udzh5pF/r9f0uwuexsp4ff1/Rr1znv4z2
+l/keTh6iP8pNvbf/Dyc8ijY=
+            "]]}, "Charting`Private`Tag#1"]}}, <|
+       "HighlightElements" -> <|
+         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
+        "LayoutOptions" -> <|
+         "PlotRange" -> {{0, 100.}, {0., 2.686465366282016*^-31}}, 
+          "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
+          "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
+          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
+          "DefaultStyle" -> {
+            Directive[
+             PointSize[
+              Rational[1, 72]], 
+             AbsoluteThickness[2], 
+             Thickness[Large], 
+             RGBColor[0, 0, 1]]}, 
+          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
+              Identity[
+               Part[#, 1]], 
+              Identity[
+               Part[#, 2]]}& ), 
+            "ScalingFunctions" -> {{Identity, Identity}, {
+              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
+         "Meta" -> <|
+         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
+          ListLinePlot, "GroupHighlight" -> False|>|>, 
+       "DynamicHighlight"]], {{}, {}}}, {
+    DisplayFunction -> Identity, DisplayFunction -> Identity, DisplayFunction -> 
+     Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
+     Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, 
+     DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, 
+     FrameLabel -> {{
+        FormBox[
+         TagBox["\"Residual (RS)\"", HoldForm], TraditionalForm], None}, {
+        FormBox[
+         TagBox["\"n\"", HoldForm], TraditionalForm], None}}, 
+     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+     GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[
+       GrayLevel[0.5, 0.4]], ImageSize -> Large, 
+     Method -> {
+      "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
+       "DefaultGraphicsInteraction" -> {
+        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+         "Effects" -> {
+          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+           "Droplines" -> {
+            "freeformCursorMode" -> True, 
+             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+       "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
+         Directive[
+          RGBColor[0.368417, 0.506779, 0.709798], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.880722, 0.611041, 0.142051], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.560181, 0.691569, 0.194885], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.922526, 0.385626, 0.209179], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.528488, 0.470624, 0.701351], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.772079, 0.431554, 0.102387], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.363898, 0.618501, 0.782349], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[1, 0.75, 0], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.647624, 0.37816, 0.614037], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.571589, 0.586483, 0.], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.915, 0.3325, 0.2125], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[
+          0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
+          AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
+       "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, 
+       "IncludeHighlighting" -> "CurrentSet", "HighlightStyle" -> Automatic, 
+       "OptimizePlotMarkers" -> True, 
+       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+           Identity[
+            Part[#, 1]], 
+           Identity[
+            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+           Identity[
+            Part[#, 1]], 
+           Identity[
+            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
+       StyleBox[
+       "\"Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smod; less_fast)\\n\
+\"", 13, Bold, StripOnInput -> False], TraditionalForm], 
+     PlotRange -> {{0, 100.}, {0., 2.686465366282016*^-31}}, 
+     PlotRangeClipping -> True, PlotRangePadding -> {{
+        Scaled[0.02], 
+        Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}], 
+   FormBox[
+    FormBox[
+    "\" x: 10.0, to each value of n ; \\n avg(RS) = \
+[\\!\\(\\*FormBox[\\\"1.700158382693303051936067840436664964699961741`20.*^-\
+32\\\", TraditionalForm]\\)]\"", TraditionalForm], TraditionalForm]},
+  "Legended",
+  DisplayFunction->(GridBox[{{
+      TagBox[
+       ItemBox[
+        PaneBox[
+         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
+         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
+       "SkipImageSizeLevel"]}, {
+      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
+    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
+    AutoDelete -> False, GridBoxItemSize -> Automatic, 
+    BaselinePosition -> {1, 1}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{"Legended", "[", 
+     RowBox[{#, ",", 
+       RowBox[{"Placed", "[", 
+         RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
+ CellChangeTimes->{{3.931939997602959*^9, 3.9319402228478184`*^9}, 
+   3.9319402750885897`*^9},
+ CellLabel->
+  "Out[123]=",ExpressionUUID->"b09924c8-c8a3-4544-9412-863069fbe2f1"]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ "\n",
+ Cell[BoxData[
+  FormBox[
+   TemplateBox[<|
+    "boxes" -> FormBox["\[FivePointedStar]", TraditionalForm], "errors" -> {},
+      "input" -> "\\star", "state" -> "Boxes"|>,
+    "TeXAssistantTemplate"], TraditionalForm]],
+  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
+  "adb3df68-cb3b-45c5-babd-f87670844be5"],
+ StyleBox[" ",
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["Single",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["-Mode ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["and",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["Onedimensional",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" Function ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["with",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" x = 20.0\n",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]]
+}], "Subsubsection",
+ CellChangeTimes->{{3.931166982909689*^9, 3.9311669947208033`*^9}, 
+   3.93117404514538*^9},ExpressionUUID->"3b3e3cff-0342-4745-815b-\
+db14e1331e26"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"FastWaveSMOdN100x3", "=", 
+    RowBox[{"SetPrecision", "[", 
+     RowBox[{
+      RowBox[{"Normal", "[", 
+       RowBox[{"ExternalEvaluate", "[", 
+        RowBox[{
+        "\"\<Python\>\"", ",", "                      ", 
+         "\"\<from fast_wave.wavefunction import wavefunction_smod;import \
+numpy as np;N_max = 100;x3 = 20.0;np.array([wavefunction_smod(n,x3) for n in \
+range(N_max+1)]);\>\""}], "]"}], "]"}], ",", "prec"}], "]"}]}], ";"}], 
+  "\[IndentingNewLine]", "\[IndentingNewLine]", 
+  RowBox[{"(*", 
+   RowBox[{
+    RowBox[{"WolframSMOdN100x3", " ", "=", " ", 
+     RowBox[{"WavefunctionMathematica3", "[", 
+      RowBox[{"Nmax", ",", "x3", ",", "prec"}], "]"}]}], ";"}], 
+   "*)"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"WolframSMOdN100x3", " ", "=", " ", 
+   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"For", "[", 
+   RowBox[{
+    RowBox[{"i", "=", "1"}], ",", 
+    RowBox[{"i", "<=", 
+     RowBox[{"(", 
+      RowBox[{"Nmax", "+", "1"}], ")"}]}], ",", 
+    RowBox[{"i", "++"}], ",", 
+    RowBox[{
+     RowBox[{"AppendTo", "[", 
+      RowBox[{"WolframSMOdN100x3", ",", 
+       RowBox[{"WavefunctionMathematica1", "[", 
+        RowBox[{
+         RowBox[{"i", "-", "1"}], ",", "x3", ",", "prec"}], "]"}]}], "]"}], 
+     ";"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"Residual", " ", "=", 
+    RowBox[{
+     RowBox[{"(", " ", 
+      RowBox[{"WolframSMOdN100x3", "-", "FastWaveSMOdN100x3"}], ")"}], "^", 
+     "2"}]}], ";"}], "\[IndentingNewLine]", 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{"ListLinePlot", "[", "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"Nvector", ",", "Residual"}], "}"}], "]"}], ",", 
+   "\[IndentingNewLine]", 
+   RowBox[{"PlotStyle", "->", 
+    RowBox[{"{", 
+     RowBox[{"Thick", ",", "Blue"}], "}"}]}], ",", "\[IndentingNewLine]", 
+   RowBox[{"Frame", "->", "True"}], ",", "\[IndentingNewLine]", 
+   RowBox[{"FrameLabel", "->", 
+    RowBox[{"{", 
+     RowBox[{"\"\<n\>\"", ",", "\"\<Residual (RS)\>\""}], "}"}]}], ",", 
+   "\[IndentingNewLine]", 
+   RowBox[{"PlotLabel", "->", 
+    RowBox[{"Style", "[", 
+     RowBox[{
+     "\"\<Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smod)\\n\>\"", ",", 
+      "13", ",", "Bold"}], "]"}]}], ",", "\[IndentingNewLine]", 
+   RowBox[{"GridLines", "->", "Automatic"}], ",", "\[IndentingNewLine]", 
+   RowBox[{"PlotLegends", "->", 
+    RowBox[{"Placed", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{
+        "\"\< x: 20.0, to each value of n ; \\n avg(RS) = [\>\"", " ", "<>", 
+         RowBox[{"ToString", "[", 
+          RowBox[{
+           RowBox[{"SetPrecision", "[", 
+            RowBox[{
+             RowBox[{"Mean", "[", "Residual", "]"}], ",", "20"}], "]"}], ",", 
+           "\[IndentingNewLine]", "TraditionalForm"}], "]"}]}], "}"}], " ", "<>",
+        " ", "\"\<]\>\""}], ",", "Below"}], "]"}]}], ",", 
+   "\[IndentingNewLine]", 
+   RowBox[{"ImageSize", "->", "Large"}], " ", ",", "\[IndentingNewLine]", 
+   RowBox[{"PlotRange", "->", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"Automatic", ",", "Automatic"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"0", ",", 
+        RowBox[{"1.2", "*", 
+         RowBox[{"10", "^", 
+          RowBox[{"(", 
+           RowBox[{"-", "79.15"}], ")"}]}]}]}], "}"}]}], "}"}]}]}], 
+  "\[IndentingNewLine]", "]"}]}], "Input",
+ CellChangeTimes->{{3.931167024660074*^9, 3.931167081048193*^9}, {
+   3.9311671732055583`*^9, 3.931167173697566*^9}, {3.931167882414612*^9, 
+   3.931167885905636*^9}, {3.9311679259052086`*^9, 3.9311679264458027`*^9}, {
+   3.93116807888734*^9, 3.9311680817029223`*^9}, {3.9311682815555067`*^9, 
+   3.93116832429881*^9}, {3.9311691221258445`*^9, 3.9311691491667624`*^9}, 
+   3.931175571675296*^9, {3.931179743916041*^9, 3.9311797593115945`*^9}, {
+   3.931190687990085*^9, 3.9311906920186157`*^9}, {3.931190773887468*^9, 
+   3.9311908232474146`*^9}, {3.9311908602950363`*^9, 
+   3.9311908604717627`*^9}, {3.931191949568599*^9, 3.931191949775028*^9}, {
+   3.931863221795256*^9, 3.9318633560866404`*^9}},
+ CellLabel->
+  "In[156]:=",ExpressionUUID->"f0d8df2c-ee3c-4081-bba5-abd8ac851ee5"],
+
+Cell[BoxData["\<\"Functionality Test Passed: True\"\>"], "Print",
+ CellChangeTimes->{
+  3.931190999210333*^9, 3.931191955231194*^9, {3.9318632537098556`*^9, 
+   3.9318633618092537`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[156]:=",ExpressionUUID->"be7e7374-a050-49e6-9dc8-c6a9b46151dc"],
+
+Cell[BoxData[
+ TemplateBox[{
+   GraphicsBox[{{}, 
+     InterpretationBox[{
+       TagBox[{{}, {}, 
+         TagBox[{
+           RGBColor[0, 0, 1], 
+           PointSize[
+            NCache[
+             Rational[1, 72], 0.013888888888888888`]], 
+           Thickness[Large], 
+           LineBox[CompressedData["
+1:eJxtzzlSG0EYBeC/FClUYLPYAiQZgywWjVlsC7Bp8MYqBuGNhEBVxCjwAbqI
+HDiYEzjQCeYIUzqBzqATTOrMdr33gulyV6leffP61/xT79/1bktmdvv39y//
+f/J95kM+cIjBFLJMV6aZrjj/IPAMHc8gq/SErgX3G3Qyi1ykc3opuN+kx4+Q
+raBfpQePket0qYqM6EP6OT2iN3R/DrlJx/QWPaS3dX8e+UL36Zd0Sr+iJ3SH
+jhaQO/Q9vav79B7dqSFfw/4H/YZ9Qu9rvzrSaT/Yywn7A72PvdxoIA/pPuzl
+Afu39G/2cvQE+a5oLw/Zv6d5fGD7oP0X0csJbB9hX36KpK0D2xHsfrE/0v7s
+j+kxe1nnRO9fQi8nsJ3SOXu5sow8g2s/YU/biP150Z52N00879LfYd/VPuwv
+9D3s5RH7WPvBTq48w305hjM5he2SHsNOzjkvRy3MyzFsPe0HO3kM+8CZrHOl
+/1/BvJzAXk7hTM5h+6TvXcW8zOMDZ3KK+/a52Ds5R+/laA3z8gC2L0U7OYG9
+rPcHtq/B++V4HfNBn8kpevumfWEnV9qYD5zJ97Bda//2H+higp4=
+            "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {
+        "WolframDynamicHighlight", <|
+         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
+       DynamicBox[
+        (Charting`HighlightActionBox["DynamicHighlight", {}, 
+         Slot["HighlightElements"], 
+         Slot["LayoutOptions"], 
+         Slot["Meta"], 
+         Charting`HighlightActionFunction["DynamicHighlight", {{{}, {}, 
+            Annotation[{
+              Hue[0.67, 0.6, 0.6], 
+              Directive[
+               PointSize[
+                Rational[1, 72]], 
+               AbsoluteThickness[2], 
+               Thickness[Large], 
+               RGBColor[0, 0, 1]], 
+              Line[CompressedData["
+1:eJxtzzlSG0EYBeC/FClUYLPYAiQZgywWjVlsC7Bp8MYqBuGNhEBVxCjwAbqI
+HDiYEzjQCeYIUzqBzqATTOrMdr33gulyV6leffP61/xT79/1bktmdvv39y//
+f/J95kM+cIjBFLJMV6aZrjj/IPAMHc8gq/SErgX3G3Qyi1ykc3opuN+kx4+Q
+raBfpQePket0qYqM6EP6OT2iN3R/DrlJx/QWPaS3dX8e+UL36Zd0Sr+iJ3SH
+jhaQO/Q9vav79B7dqSFfw/4H/YZ9Qu9rvzrSaT/Yywn7A72PvdxoIA/pPuzl
+Afu39G/2cvQE+a5oLw/Zv6d5fGD7oP0X0csJbB9hX36KpK0D2xHsfrE/0v7s
+j+kxe1nnRO9fQi8nsJ3SOXu5sow8g2s/YU/biP150Z52N00879LfYd/VPuwv
+9D3s5RH7WPvBTq48w305hjM5he2SHsNOzjkvRy3MyzFsPe0HO3kM+8CZrHOl
+/1/BvJzAXk7hTM5h+6TvXcW8zOMDZ3KK+/a52Ds5R+/laA3z8gC2L0U7OYG9
+rPcHtq/B++V4HfNBn8kpevumfWEnV9qYD5zJ97Bda//2H+higp4=
+               "]]}, "Charting`Private`Tag#1"]}}, <|
+          "HighlightElements" -> <|
+            "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
+           "LayoutOptions" -> <|
+            "PlotRange" -> {{0, 100.}, {0., 8.495349412609544*^-80}}, 
+             "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
+             "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
+             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
+             "DefaultStyle" -> {
+               Directive[
+                PointSize[
+                 Rational[1, 72]], 
+                AbsoluteThickness[2], 
+                Thickness[Large], 
+                RGBColor[0, 0, 1]]}, 
+             "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
+                 Identity[
+                  Part[#, 1]], 
+                 Identity[
+                  Part[#, 2]]}& ), 
+               "ScalingFunctions" -> {{Identity, Identity}, {
+                 Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
+             False|>, 
+           "Meta" -> <|
+            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
+             "Function" -> ListLinePlot, "GroupHighlight" -> False|>|>]]& )[<|
+         "HighlightElements" -> <|
+           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
+          "LayoutOptions" -> <|
+           "PlotRange" -> {{0, 100.}, {0., 8.495349412609544*^-80}}, 
+            "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
+            "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
+            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
+            "DefaultStyle" -> {
+              Directive[
+               PointSize[
+                Rational[1, 72]], 
+               AbsoluteThickness[2], 
+               Thickness[Large], 
+               RGBColor[0, 0, 1]]}, 
+            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
+                Identity[
+                 Part[#, 1]], 
+                Identity[
+                 Part[#, 2]]}& ), 
+              "ScalingFunctions" -> {{Identity, Identity}, {
+                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
+            False|>, 
+          "Meta" -> <|
+           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
+            ListLinePlot, "GroupHighlight" -> False|>|>], 
+        ImageSizeCache -> {{4.503599627370496*^15, -4.503599627370496*^15}, {
+         4.503599627370496*^15, -4.503599627370496*^15}}]}, 
+      Annotation[{{{}, {}, 
+         Annotation[{
+           Hue[0.67, 0.6, 0.6], 
+           Directive[
+            PointSize[
+             Rational[1, 72]], 
+            AbsoluteThickness[2], 
+            Thickness[Large], 
+            RGBColor[0, 0, 1]], 
+           Line[CompressedData["
+1:eJxtzzlSG0EYBeC/FClUYLPYAiQZgywWjVlsC7Bp8MYqBuGNhEBVxCjwAbqI
+HDiYEzjQCeYIUzqBzqATTOrMdr33gulyV6leffP61/xT79/1bktmdvv39y//
+f/J95kM+cIjBFLJMV6aZrjj/IPAMHc8gq/SErgX3G3Qyi1ykc3opuN+kx4+Q
+raBfpQePket0qYqM6EP6OT2iN3R/DrlJx/QWPaS3dX8e+UL36Zd0Sr+iJ3SH
+jhaQO/Q9vav79B7dqSFfw/4H/YZ9Qu9rvzrSaT/Yywn7A72PvdxoIA/pPuzl
+Afu39G/2cvQE+a5oLw/Zv6d5fGD7oP0X0csJbB9hX36KpK0D2xHsfrE/0v7s
+j+kxe1nnRO9fQi8nsJ3SOXu5sow8g2s/YU/biP150Z52N00879LfYd/VPuwv
+9D3s5RH7WPvBTq48w305hjM5he2SHsNOzjkvRy3MyzFsPe0HO3kM+8CZrHOl
+/1/BvJzAXk7hTM5h+6TvXcW8zOMDZ3KK+/a52Ds5R+/laA3z8gC2L0U7OYG9
+rPcHtq/B++V4HfNBn8kpevumfWEnV9qYD5zJ97Bda//2H+higp4=
+            "]]}, "Charting`Private`Tag#1"]}}, <|
+       "HighlightElements" -> <|
+         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
+        "LayoutOptions" -> <|
+         "PlotRange" -> {{0, 100.}, {0., 8.495349412609544*^-80}}, 
+          "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
+          "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
+          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
+          "DefaultStyle" -> {
+            Directive[
+             PointSize[
+              Rational[1, 72]], 
+             AbsoluteThickness[2], 
+             Thickness[Large], 
+             RGBColor[0, 0, 1]]}, 
+          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
+              Identity[
+               Part[#, 1]], 
+              Identity[
+               Part[#, 2]]}& ), 
+            "ScalingFunctions" -> {{Identity, Identity}, {
+              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
+         "Meta" -> <|
+         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
+          ListLinePlot, "GroupHighlight" -> False|>|>, 
+       "DynamicHighlight"]], {{}, {}}}, AspectRatio -> 
+    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
+    AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction -> 
+    Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
+       FormBox[
+        TagBox["\"Residual (RS)\"", HoldForm], TraditionalForm], None}, {
+       FormBox[
+        TagBox["\"n\"", HoldForm], TraditionalForm], None}}, 
+    FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+    GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[
+      GrayLevel[0.5, 0.4]], ImageSize -> Large, 
+    Method -> {
+     "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
+      "DefaultGraphicsInteraction" -> {
+       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+        "Effects" -> {
+         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+          "Droplines" -> {
+           "freeformCursorMode" -> True, 
+            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+      "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
+        Directive[
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.922526, 0.385626, 0.209179], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.528488, 0.470624, 0.701351], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.772079, 0.431554, 0.102387], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.363898, 0.618501, 0.782349], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[1, 0.75, 0], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.647624, 0.37816, 0.614037], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.571589, 0.586483, 0.], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.915, 0.3325, 0.2125], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
+         AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
+      "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, 
+      "IncludeHighlighting" -> "CurrentSet", "HighlightStyle" -> Automatic, 
+      "OptimizePlotMarkers" -> True, 
+      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+          Identity[
+           Part[#, 1]], 
+          Identity[
+           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+          Identity[
+           Part[#, 1]], 
+          Identity[
+           Part[#, 2]]}& )}}, PlotLabel -> FormBox[
+      StyleBox[
+      "\"Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smod)\\n\"", 13, 
+       Bold, StripOnInput -> False], TraditionalForm], 
+    PlotRange -> {{0, 100.}, {0., 8.495349412609544*^-80}}, PlotRangeClipping -> 
+    True, PlotRangePadding -> {{
+       Scaled[0.02], 
+       Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}], 
+   FormBox[
+    FormBox[
+    "\" x: 20.0, to each value of n ; \\n avg(RS) = \
+[\\!\\(\\*FormBox[\\\"1.0973586208608373206204849703166969`20.*^-81\\\", \
+TraditionalForm]\\)]\"", TraditionalForm], TraditionalForm]},
+  "Legended",
+  DisplayFunction->(GridBox[{{
+      TagBox[
+       ItemBox[
+        PaneBox[
+         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
+         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
+       "SkipImageSizeLevel"]}, {
+      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
+    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
+    AutoDelete -> False, GridBoxItemSize -> Automatic, 
+    BaselinePosition -> {1, 1}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{"Legended", "[", 
+     RowBox[{#, ",", 
+       RowBox[{"Placed", "[", 
+         RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
+ CellChangeTimes->{
+  3.9311909993512383`*^9, 3.9311919554179606`*^9, {3.9318632538020115`*^9, 
+   3.931863361923008*^9}},
+ CellLabel->
+  "Out[160]=",ExpressionUUID->"d930475c-c1b1-4412-be41-e9f7e657bd94"]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  FormBox[
+   TemplateBox[<|
+    "boxes" -> FormBox["\[FivePointedStar]", TraditionalForm], "errors" -> {},
+      "input" -> "\\star", "state" -> "Boxes"|>,
+    "TeXAssistantTemplate"], TraditionalForm]],
+  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
+  "abf6f9e1-e5ae-49b7-a669-69cd7be66304"],
+ StyleBox[" ",
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["Single",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["-Mode ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["and",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["Onedimensional",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" Less ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["Fast",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" Function ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["with",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" x = 20.0\n",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]]
+}], "Subsubsection",
+ CellChangeTimes->{{3.9319403933485966`*^9, 
+  3.931940411528261*^9}},ExpressionUUID->"fc8cac6c-f228-43e8-9cab-\
+cec8739c04f5"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"FastWaveSMOdN100x3", "=", 
+    RowBox[{"SetPrecision", "[", 
+     RowBox[{
+      RowBox[{"Normal", "[", 
+       RowBox[{"ExternalEvaluate", "[", 
+        RowBox[{
+        "\"\<Python\>\"", ",", "                      ", 
+         "\"\<from fast_wave.wavefunction import wavefunction_smod;import \
+numpy as np;N_max = 100;x3 = 20.0;np.array([wavefunction_smod(n,x3, \
+more_fast= False) for n in range(N_max+1)]);\>\""}], "]"}], "]"}], ",", 
+      "prec"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
+  RowBox[{"(*", 
+   RowBox[{
+    RowBox[{"WolframSMOdN100x3", " ", "=", " ", 
+     RowBox[{"WavefunctionMathematica3", "[", 
+      RowBox[{"Nmax", ",", "x3", ",", "prec"}], "]"}]}], ";"}], 
+   "*)"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"WolframSMOdN100x3", " ", "=", " ", 
+   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"For", "[", 
+   RowBox[{
+    RowBox[{"i", "=", "1"}], ",", 
+    RowBox[{"i", "<=", 
+     RowBox[{"(", 
+      RowBox[{"Nmax", "+", "1"}], ")"}]}], ",", 
+    RowBox[{"i", "++"}], ",", 
+    RowBox[{
+     RowBox[{"AppendTo", "[", 
+      RowBox[{"WolframSMOdN100x3", ",", 
+       RowBox[{"WavefunctionMathematica1", "[", 
+        RowBox[{
+         RowBox[{"i", "-", "1"}], ",", "x3", ",", "prec"}], "]"}]}], "]"}], 
+     ";"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"Residual", " ", "=", 
+    RowBox[{
+     RowBox[{"(", " ", 
+      RowBox[{"WolframSMOdN100x3", "-", "FastWaveSMOdN100x3"}], ")"}], "^", 
+     "2"}]}], ";"}], "\[IndentingNewLine]", 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{"ListLinePlot", "[", "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"Nvector", ",", "Residual"}], "}"}], "]"}], ",", 
+   "\[IndentingNewLine]", 
+   RowBox[{"PlotStyle", "->", 
+    RowBox[{"{", 
+     RowBox[{"Thick", ",", "Blue"}], "}"}]}], ",", "\[IndentingNewLine]", 
+   RowBox[{"Frame", "->", "True"}], ",", "\[IndentingNewLine]", 
+   RowBox[{"FrameLabel", "->", 
+    RowBox[{"{", 
+     RowBox[{"\"\<n\>\"", ",", "\"\<Residual (RS)\>\""}], "}"}]}], ",", 
+   "\[IndentingNewLine]", 
+   RowBox[{"PlotLabel", "->", 
+    RowBox[{"Style", "[", 
+     RowBox[{
+     "\"\<Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smod)\\n\>\"", ",", 
+      "13", ",", "Bold"}], "]"}]}], ",", "\[IndentingNewLine]", 
+   RowBox[{"GridLines", "->", "Automatic"}], ",", "\[IndentingNewLine]", 
+   RowBox[{"PlotLegends", "->", 
+    RowBox[{"Placed", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{
+        "\"\< x: 20.0, to each value of n ; \\n avg(RS) = [\>\"", " ", "<>", 
+         RowBox[{"ToString", "[", 
+          RowBox[{
+           RowBox[{"SetPrecision", "[", 
+            RowBox[{
+             RowBox[{"Mean", "[", "Residual", "]"}], ",", "20"}], "]"}], ",", 
+           "\[IndentingNewLine]", "TraditionalForm"}], "]"}]}], "}"}], " ", "<>",
+        " ", "\"\<]\>\""}], ",", "Below"}], "]"}]}], ",", 
+   "\[IndentingNewLine]", 
+   RowBox[{"ImageSize", "->", "Large"}], " ", ",", "\[IndentingNewLine]", 
+   RowBox[{"PlotRange", "->", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"Automatic", ",", "Automatic"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"0", ",", 
+        RowBox[{"1.2", "*", 
+         RowBox[{"10", "^", 
+          RowBox[{"(", 
+           RowBox[{"-", "79.15"}], ")"}]}]}]}], "}"}]}], "}"}]}]}], 
+  "\[IndentingNewLine]", "]"}]}], "Input",
+ CellChangeTimes->{{3.9319404458243403`*^9, 3.9319404663225455`*^9}},
+ CellLabel->
+  "In[129]:=",ExpressionUUID->"4f703c05-dc02-44d3-8efb-0ce1ab37a584"],
+
+Cell[BoxData["\<\"Functionality Test Passed: True\"\>"], "Print",
+ CellChangeTimes->{3.931940477518227*^9},
+ CellLabel->
+  "During evaluation of \
+In[129]:=",ExpressionUUID->"98903f5a-691b-4f60-ad72-3f25246d54dc"],
+
+Cell[BoxData[
+ TemplateBox[{
+   GraphicsBox[{{}, 
+     InterpretationBox[{
+       TagBox[{{}, {}, 
+         TagBox[{
+           RGBColor[0, 0, 1], 
+           PointSize[
+            NCache[
+             Rational[1, 72], 0.013888888888888888`]], 
+           Thickness[Large], 
+           LineBox[CompressedData["
+1:eJxtz0tOFFEYxfGbHjmsgQ8QEGh5y6NAUVGB4qmiSPHUnpKQOKOXcOMKesqU
+FdQSKr2CXkOvoJaA5Jz/gAqVdE5+feqr797xy+uTq0YI4er/7z4ff6pN5zP/
+kSk6z5VP7OSF027bT+2ePUA/oBy2+/aYnQ4qm+yzJ+zKnrLzl8oZ9tlznG9I
+Oc/37EW7Mey9dstetrv2ij04onwrx7/2O/eFvcr3Xynf25f2B/vW/sj97DXu
+N6r8ZLftz3bf/mInY8p13rc3OJ+9yfnGlRn75Ihv3G+xzz1Om8pt5uWIb93v
+cD/3OH2t3OW8csSF+z275x5vTyj32S9HXLj/yrx7vDap/Gb7ibjt/jvzcsTN
+KeUB++WIO+5/2H33OJlW/rRbcsQ37g/trnvcmFH+4jxyxLn7I+7jHnfd53Yl
+ZziZ1fs4l0tcyOHY7skZrjyP0znN41wOJ5xPznBPjjWXmOeU77/RPO7IERdy
+iSs5nHHfec1jP7HmEhd6P5w/7DNcqY84XdA8bsvh4qEz3JEjZn/N4XdtP84X
+NV/rS1yoD384r5zhZEnzNZf4nxxanH/pDqvMhWY=
+            "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {
+        "WolframDynamicHighlight", <|
+         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
+       DynamicBox[
+        (Charting`HighlightActionBox["DynamicHighlight", {}, 
+         Slot["HighlightElements"], 
+         Slot["LayoutOptions"], 
+         Slot["Meta"], 
+         Charting`HighlightActionFunction["DynamicHighlight", {{{}, {}, 
+            Annotation[{
+              Hue[0.67, 0.6, 0.6], 
+              Directive[
+               PointSize[
+                Rational[1, 72]], 
+               AbsoluteThickness[2], 
+               Thickness[Large], 
+               RGBColor[0, 0, 1]], 
+              Line[CompressedData["
+1:eJxtz0tOFFEYxfGbHjmsgQ8QEGh5y6NAUVGB4qmiSPHUnpKQOKOXcOMKesqU
+FdQSKr2CXkOvoJaA5Jz/gAqVdE5+feqr797xy+uTq0YI4er/7z4ff6pN5zP/
+kSk6z5VP7OSF027bT+2ePUA/oBy2+/aYnQ4qm+yzJ+zKnrLzl8oZ9tlznG9I
+Oc/37EW7Mey9dstetrv2ij04onwrx7/2O/eFvcr3Xynf25f2B/vW/sj97DXu
+N6r8ZLftz3bf/mInY8p13rc3OJ+9yfnGlRn75Ihv3G+xzz1Om8pt5uWIb93v
+cD/3OH2t3OW8csSF+z275x5vTyj32S9HXLj/yrx7vDap/Gb7ibjt/jvzcsTN
+KeUB++WIO+5/2H33OJlW/rRbcsQ37g/trnvcmFH+4jxyxLn7I+7jHnfd53Yl
+ZziZ1fs4l0tcyOHY7skZrjyP0znN41wOJ5xPznBPjjWXmOeU77/RPO7IERdy
+iSs5nHHfec1jP7HmEhd6P5w/7DNcqY84XdA8bsvh4qEz3JEjZn/N4XdtP84X
+NV/rS1yoD384r5zhZEnzNZf4nxxanH/pDqvMhWY=
+               "]]}, "Charting`Private`Tag#1"]}}, <|
+          "HighlightElements" -> <|
+            "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
+           "LayoutOptions" -> <|
+            "PlotRange" -> {{0, 100.}, {0., 8.495349412609544*^-80}}, 
+             "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
+             "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
+             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
+             "DefaultStyle" -> {
+               Directive[
+                PointSize[
+                 Rational[1, 72]], 
+                AbsoluteThickness[2], 
+                Thickness[Large], 
+                RGBColor[0, 0, 1]]}, 
+             "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
+                 Identity[
+                  Part[#, 1]], 
+                 Identity[
+                  Part[#, 2]]}& ), 
+               "ScalingFunctions" -> {{Identity, Identity}, {
+                 Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
+             False|>, 
+           "Meta" -> <|
+            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
+             "Function" -> ListLinePlot, "GroupHighlight" -> False|>|>]]& )[<|
+         "HighlightElements" -> <|
+           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
+          "LayoutOptions" -> <|
+           "PlotRange" -> {{0, 100.}, {0., 8.495349412609544*^-80}}, 
+            "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
+            "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
+            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
+            "DefaultStyle" -> {
+              Directive[
+               PointSize[
+                Rational[1, 72]], 
+               AbsoluteThickness[2], 
+               Thickness[Large], 
+               RGBColor[0, 0, 1]]}, 
+            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
+                Identity[
+                 Part[#, 1]], 
+                Identity[
+                 Part[#, 2]]}& ), 
+              "ScalingFunctions" -> {{Identity, Identity}, {
+                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
+            False|>, 
+          "Meta" -> <|
+           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
+            ListLinePlot, "GroupHighlight" -> False|>|>], 
+        ImageSizeCache -> {{4.503599627370496*^15, -4.503599627370496*^15}, {
+         4.503599627370496*^15, -4.503599627370496*^15}}]}, 
+      Annotation[{{{}, {}, 
+         Annotation[{
+           Hue[0.67, 0.6, 0.6], 
+           Directive[
+            PointSize[
+             Rational[1, 72]], 
+            AbsoluteThickness[2], 
+            Thickness[Large], 
+            RGBColor[0, 0, 1]], 
+           Line[CompressedData["
+1:eJxtz0tOFFEYxfGbHjmsgQ8QEGh5y6NAUVGB4qmiSPHUnpKQOKOXcOMKesqU
+FdQSKr2CXkOvoJaA5Jz/gAqVdE5+feqr797xy+uTq0YI4er/7z4ff6pN5zP/
+kSk6z5VP7OSF027bT+2ePUA/oBy2+/aYnQ4qm+yzJ+zKnrLzl8oZ9tlznG9I
+Oc/37EW7Mey9dstetrv2ij04onwrx7/2O/eFvcr3Xynf25f2B/vW/sj97DXu
+N6r8ZLftz3bf/mInY8p13rc3OJ+9yfnGlRn75Ihv3G+xzz1Om8pt5uWIb93v
+cD/3OH2t3OW8csSF+z275x5vTyj32S9HXLj/yrx7vDap/Gb7ibjt/jvzcsTN
+KeUB++WIO+5/2H33OJlW/rRbcsQ37g/trnvcmFH+4jxyxLn7I+7jHnfd53Yl
+ZziZ1fs4l0tcyOHY7skZrjyP0znN41wOJ5xPznBPjjWXmOeU77/RPO7IERdy
+iSs5nHHfec1jP7HmEhd6P5w/7DNcqY84XdA8bsvh4qEz3JEjZn/N4XdtP84X
+NV/rS1yoD384r5zhZEnzNZf4nxxanH/pDqvMhWY=
+            "]]}, "Charting`Private`Tag#1"]}}, <|
+       "HighlightElements" -> <|
+         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
+        "LayoutOptions" -> <|
+         "PlotRange" -> {{0, 100.}, {0., 8.495349412609544*^-80}}, 
+          "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
+          "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
+          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
+          "DefaultStyle" -> {
+            Directive[
+             PointSize[
+              Rational[1, 72]], 
+             AbsoluteThickness[2], 
+             Thickness[Large], 
+             RGBColor[0, 0, 1]]}, 
+          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
+              Identity[
+               Part[#, 1]], 
+              Identity[
+               Part[#, 2]]}& ), 
+            "ScalingFunctions" -> {{Identity, Identity}, {
+              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
+         "Meta" -> <|
+         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
+          ListLinePlot, "GroupHighlight" -> False|>|>, 
+       "DynamicHighlight"]], {{}, {}}}, AspectRatio -> 
+    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
+    AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction -> 
+    Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
+       FormBox[
+        TagBox["\"Residual (RS)\"", HoldForm], TraditionalForm], None}, {
+       FormBox[
+        TagBox["\"n\"", HoldForm], TraditionalForm], None}}, 
+    FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+    GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[
+      GrayLevel[0.5, 0.4]], ImageSize -> Large, 
+    Method -> {
+     "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
+      "DefaultGraphicsInteraction" -> {
+       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+        "Effects" -> {
+         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+          "Droplines" -> {
+           "freeformCursorMode" -> True, 
+            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+      "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
+        Directive[
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.922526, 0.385626, 0.209179], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.528488, 0.470624, 0.701351], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.772079, 0.431554, 0.102387], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.363898, 0.618501, 0.782349], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[1, 0.75, 0], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.647624, 0.37816, 0.614037], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.571589, 0.586483, 0.], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.915, 0.3325, 0.2125], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
+         AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
+      "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, 
+      "IncludeHighlighting" -> "CurrentSet", "HighlightStyle" -> Automatic, 
+      "OptimizePlotMarkers" -> True, 
+      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+          Identity[
+           Part[#, 1]], 
+          Identity[
+           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+          Identity[
+           Part[#, 1]], 
+          Identity[
+           Part[#, 2]]}& )}}, PlotLabel -> FormBox[
+      StyleBox[
+      "\"Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smod)\\n\"", 13, 
+       Bold, StripOnInput -> False], TraditionalForm], 
+    PlotRange -> {{0, 100.}, {0., 8.495349412609544*^-80}}, PlotRangeClipping -> 
+    True, PlotRangePadding -> {{
+       Scaled[0.02], 
+       Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}], 
+   FormBox[
+    FormBox[
+    "\" x: 20.0, to each value of n ; \\n avg(RS) = \
+[\\!\\(\\*FormBox[\\\"1.0973586208608373206204849703166968`20.*^-81\\\", \
+TraditionalForm]\\)]\"", TraditionalForm], TraditionalForm]},
+  "Legended",
+  DisplayFunction->(GridBox[{{
+      TagBox[
+       ItemBox[
+        PaneBox[
+         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
+         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
+       "SkipImageSizeLevel"]}, {
+      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
+    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
+    AutoDelete -> False, GridBoxItemSize -> Automatic, 
+    BaselinePosition -> {1, 1}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{"Legended", "[", 
+     RowBox[{#, ",", 
+       RowBox[{"Placed", "[", 
+         RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
+ CellChangeTimes->{3.9319404776229973`*^9},
+ CellLabel->
+  "Out[133]=",ExpressionUUID->"c3424545-13a8-4f33-a024-ae180ca9ea02"]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  FormBox[
+   TemplateBox[<|
+    "boxes" -> FormBox["\[FivePointedStar]", TraditionalForm], "errors" -> {},
+      "input" -> "\\star", "state" -> "Boxes"|>,
+    "TeXAssistantTemplate"], TraditionalForm]],
+  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
+  "1c4f2b2a-e2cf-4c66-b50d-f8db8a880649"],
+ StyleBox[" ",
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["Single",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["-Mode ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["and",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" Multi",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["dimensional",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" Function ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["with",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" X = [(-20) \[Rule] 20; 100]",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]]
+}], "Subsubsection",
+ CellChangeTimes->{{3.931169698546235*^9, 3.9311697061903815`*^9}, {
+   3.9311697499733686`*^9, 3.931169766991477*^9}, 3.931174038598855*^9, {
+   3.931177591938387*^9, 3.9311775932562604`*^9}, 3.931191727578232*^9, 
+   3.9319403861979537`*^9},ExpressionUUID->"dd491313-4a50-4892-a66c-\
+10792509659a"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"FastWaveSMMdN100X", "=", 
+    RowBox[{"SetPrecision", "[", 
+     RowBox[{
+      RowBox[{"Normal", "[", 
+       RowBox[{"ExternalEvaluate", "[", 
+        RowBox[{
+        "\"\<Python\>\"", ",", "                      ", 
+         "\"\<from fast_wave.wavefunction import wavefunction_smmd;import \
+numpy as np;N_max = 100;xmax = \
+20.0;xmin=-20.0;xsize=100;X=np.linspace(xmin,xmax,xsize);np.array([\
+wavefunction_smmd(n,X) for n in range(N_max+1)]);\>\""}], "]"}], "]"}], ",", 
+      "prec"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
+  RowBox[{"(*", 
+   RowBox[{
+    RowBox[{"WolframSMMdN100X", " ", "=", " ", 
+     RowBox[{"WavefunctionMathematica3", "[", 
+      RowBox[{"Nmax", ",", "Xvector", ",", "prec"}], "]"}]}], ";"}], 
+   "*)"}]}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"WolframSMMdN100X", " ", "=", " ", 
+   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"For", "[", 
+   RowBox[{
+    RowBox[{"i", "=", "1"}], ",", 
+    RowBox[{"i", "<=", 
+     RowBox[{"(", 
+      RowBox[{"Nmax", "+", "1"}], ")"}]}], ",", 
+    RowBox[{"i", "++"}], ",", 
+    RowBox[{
+     RowBox[{"AppendTo", "[", 
+      RowBox[{"WolframSMMdN100X", ",", 
+       RowBox[{"WavefunctionMathematica1", "[", 
+        RowBox[{
+         RowBox[{"i", "-", "1"}], ",", "Xvector", ",", "prec"}], "]"}]}], 
+      "]"}], ";"}]}], "]"}], "\[IndentingNewLine]", 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"ResidualMatrix", " ", "=", 
+    RowBox[{
+     RowBox[{"(", 
+      RowBox[{"WolframSMMdN100X", " ", "-", " ", "FastWaveSMMdN100X"}], ")"}],
+      "^", "2"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{
+   RowBox[{"Residual", " ", "=", " ", 
+    RowBox[{"Mean", " ", "/@", "ResidualMatrix"}]}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{"ListLinePlot", "[", "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{"Transpose", "[", 
+    RowBox[{"{", 
+     RowBox[{"Nvector", ",", "Residual"}], "}"}], "]"}], ",", 
+   "\[IndentingNewLine]", 
+   RowBox[{"PlotStyle", "->", 
+    RowBox[{"{", 
+     RowBox[{"Thick", ",", "Blue"}], "}"}]}], ",", "\[IndentingNewLine]", 
+   RowBox[{"Frame", "->", "True"}], ",", "\[IndentingNewLine]", 
+   RowBox[{"FrameLabel", "->", 
+    RowBox[{"{", 
+     RowBox[{"\"\<n\>\"", ",", "\"\<Residual (RS)\>\""}], "}"}]}], ",", 
+   "\[IndentingNewLine]", 
+   RowBox[{"PlotLabel", "->", 
+    RowBox[{"Style", "[", 
+     RowBox[{
+     "\"\<Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smmd)\\n\>\"", ",", 
+      "13", ",", "Bold"}], "]"}]}], ",", "\[IndentingNewLine]", 
+   RowBox[{"GridLines", "->", "Automatic"}], ",", "\[IndentingNewLine]", 
+   RowBox[{"PlotLegends", "->", 
+    RowBox[{"Placed", "[", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{
+        "\"\< X: [(-20)\[Rule]20;100], to each value of n ; \\n avg(RS) = [\>\
+\"", " ", "<>", 
+         RowBox[{"ToString", "[", 
+          RowBox[{
+           RowBox[{"SetPrecision", "[", 
+            RowBox[{
+             RowBox[{"Mean", "[", "Residual", "]"}], ",", "20"}], "]"}], ",", 
+           "\[IndentingNewLine]", "TraditionalForm"}], "]"}]}], "}"}], " ", "<>",
+        " ", "\"\<]\>\""}], ",", "Below"}], "]"}]}], ",", 
+   "\[IndentingNewLine]", 
+   RowBox[{"ImageSize", "->", "Large"}], ",", "\[IndentingNewLine]", 
+   RowBox[{"PlotRange", "->", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"Automatic", ",", "Automatic"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"0", ",", 
+        RowBox[{"1.2", "*", 
+         RowBox[{"10", "^", 
+          RowBox[{"(", 
+           RowBox[{"-", "7.1"}], ")"}]}]}]}], "}"}]}], "}"}]}]}], 
+  "\[IndentingNewLine]", " ", "]"}]}], "Input",
+ CellChangeTimes->{{3.9311740346969175`*^9, 3.93117407982891*^9}, {
+  3.9311741743123264`*^9, 3.9311742287096972`*^9}, {3.9311743970869255`*^9, 
+  3.9311744154365997`*^9}, {3.931174514609479*^9, 3.931174535677328*^9}, {
+  3.9311746490386076`*^9, 3.931174697602874*^9}, {3.9311748454348793`*^9, 
+  3.9311748889411173`*^9}, {3.9311751673216925`*^9, 3.9311751694137187`*^9}, {
+  3.931175829808143*^9, 3.93117583311414*^9}, {3.931191827327964*^9, 
+  3.931191873470278*^9}, {3.931191935339251*^9, 3.931191935422077*^9}, {
+  3.9318634539643035`*^9, 3.9318635786837215`*^9}},
+ CellLabel->
+  "In[209]:=",ExpressionUUID->"72309dfd-96be-471e-805c-97ca5f109822"],
+
+Cell[BoxData["\<\"Functionality Test Passed: True\"\>"], "Print",
+ CellChangeTimes->{
+  3.931175845187752*^9, 3.931179853220471*^9, 3.9311918936218834`*^9, 
+   3.9311919418483176`*^9, {3.931863476958178*^9, 3.9318635854791465`*^9}},
+ CellLabel->
+  "During evaluation of \
+In[209]:=",ExpressionUUID->"2f430186-b028-46e9-afed-4c41f86b8031"],
+
+Cell[BoxData[
+ TemplateBox[{
+   GraphicsBox[{{}, 
+     InterpretationBox[{
+       TagBox[{{}, {}, 
+         TagBox[{
+           RGBColor[0, 0, 1], 
+           PointSize[
+            NCache[
+             Rational[1, 72], 0.013888888888888888`]], 
+           Thickness[Large], 
+           LineBox[CompressedData["
+1:eJw11AlMk3ccxvEXCMKmUg6ZQI1Cx6ZDRKjolAI+KGc5Wo5SYFwWkDnC1CzC
+YFv3joBDBmJ104nDic7BEAeIXFZZQSJyjITLIeNwE2QDEw+KIsjclvdHk6b5
+5Nvn7f9NmtdGsT8kSZdhmKT/3v9/Lr28Lnd2W6Tm7OD0eGeb0rLxS8m3ZAai
+K2cGj56oIBvihXr6m5qESrIx4kQ4aD1RT16Frow1Ve9HqskWGFx/Yb9e0Q3y
+GngvVz1QdtwkW+Pv1SVhP9XfIgvw2uq0fRVW7WRbLETPPW+x6SG/jYJRoXFo
+6SB5A3r39JRqZL+R7ZCwsi0+dmyebA++zUCZpd442QGdhd85nRcIXDg7Iury
+8FGe3IzshNMuD03broIsxPq0V7njal/yFpSIu7W8iSyyMzyZgg9lz7LJW3FJ
+y8v1668hb0P1yr6Fx8uukN+FINFz+bmWUfJ2rNV+7MFrHCfvgK2+NLZp3EDE
+2QX2v6z7a9xoK1kE58ie+OmXrmRXXFM6lRppFGQ3/P5H3ZPM+AyyOw72nvOu
+VBeSd2K+bEabLysnA586esYNdVVyZoEbmYqSal4HdQ+kjJRtlLdMUffAfP39
+2NW6C9R3oXpFf4xBvbkr13fBaNP35R0/CDkzu9FxcXP7CX4g9d0YVg0tNmdE
+U/dE7laFr6lUSd0T+cUN945cL6LuheO5Bbf7Fs9S94JY97jc0aSdujeOnaoa
+gXSSujcqXO/OJlzSd+O6D8ZYfm+l2RucWR+cvNyQw5MIqfviPdOhNftabKj7
+onXDkLnxIzl1P6THFtUvOqRR94M2PtsgXfg1dTH4WUZfxQSVUxcjKt25waH3
+DnV/7A0Qp4x23qPuD+MiuynRSR13rgeATVw30D5hypkNwFvayTuNJpuoB4Lt
+3J7wwEhCPRAHZkc2pkaFUQ+CqDEzOW84jXoQ2JJ+UcCBGfq/S1D4+Y/3F+xn
+ObMSeJYZZtlefEJdina5YcdZq6ecIcXJFlb7LJPMSjEQV9Gs9wHtNVKIu4p0
+VHnUmWA0/dnzyc1K+j0E4/bCJM/f7Bntg6Gpu5C5R03WBMOpWGrekkRmQtBa
+dStOe5fOgxAcSv/oqoK/tA9B8ebMboeppX0IEn4etVmR/YL2oaie6Vu0S6Dz
+IRRuvb/GP+ym87CheL3LXRzxxXPah6Kue1VsTO3S8yEMNR6q2bltL2kfhkOp
+72yPmKbvs2GQCLboCayX9mGwP6janH2MzMgw/rTJ10q1QHsZApNVD6SH6Xys
+DK1jtULbR2SNDMMjp0432c7RPhw+pQXn81b9Q/twOCnWTqmzXtE+HGKl0K9f
+n6wJR3yeY85noqX7l6O8Xz/6zRm6H8iRcs1P2WzCcM8TVg6Ji+L63UmyRg5l
+aWft1BG6HhMBXWnk3t78RdpHoPx5UUjhMjIbgcQzFo1iSx3aRyApal2uIJmu
+x0Riiq8UOsYwLv8CQ53X1Q==
+            "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {
+        "WolframDynamicHighlight", <|
+         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
+       DynamicBox[
+        (Charting`HighlightActionBox["DynamicHighlight", {}, 
+         Slot["HighlightElements"], 
+         Slot["LayoutOptions"], 
+         Slot["Meta"], 
+         Charting`HighlightActionFunction["DynamicHighlight", {{{}, {}, 
+            Annotation[{
+              Hue[0.67, 0.6, 0.6], 
+              Directive[
+               PointSize[
+                Rational[1, 72]], 
+               AbsoluteThickness[2], 
+               Thickness[Large], 
+               RGBColor[0, 0, 1]], 
+              Line[CompressedData["
+1:eJw11AlMk3ccxvEXCMKmUg6ZQI1Cx6ZDRKjolAI+KGc5Wo5SYFwWkDnC1CzC
+YFv3joBDBmJ104nDic7BEAeIXFZZQSJyjITLIeNwE2QDEw+KIsjclvdHk6b5
+5Nvn7f9NmtdGsT8kSZdhmKT/3v9/Lr28Lnd2W6Tm7OD0eGeb0rLxS8m3ZAai
+K2cGj56oIBvihXr6m5qESrIx4kQ4aD1RT16Frow1Ve9HqskWGFx/Yb9e0Q3y
+GngvVz1QdtwkW+Pv1SVhP9XfIgvw2uq0fRVW7WRbLETPPW+x6SG/jYJRoXFo
+6SB5A3r39JRqZL+R7ZCwsi0+dmyebA++zUCZpd442QGdhd85nRcIXDg7Iury
+8FGe3IzshNMuD03broIsxPq0V7njal/yFpSIu7W8iSyyMzyZgg9lz7LJW3FJ
+y8v1668hb0P1yr6Fx8uukN+FINFz+bmWUfJ2rNV+7MFrHCfvgK2+NLZp3EDE
+2QX2v6z7a9xoK1kE58ie+OmXrmRXXFM6lRppFGQ3/P5H3ZPM+AyyOw72nvOu
+VBeSd2K+bEabLysnA586esYNdVVyZoEbmYqSal4HdQ+kjJRtlLdMUffAfP39
+2NW6C9R3oXpFf4xBvbkr13fBaNP35R0/CDkzu9FxcXP7CX4g9d0YVg0tNmdE
+U/dE7laFr6lUSd0T+cUN945cL6LuheO5Bbf7Fs9S94JY97jc0aSdujeOnaoa
+gXSSujcqXO/OJlzSd+O6D8ZYfm+l2RucWR+cvNyQw5MIqfviPdOhNftabKj7
+onXDkLnxIzl1P6THFtUvOqRR94M2PtsgXfg1dTH4WUZfxQSVUxcjKt25waH3
+DnV/7A0Qp4x23qPuD+MiuynRSR13rgeATVw30D5hypkNwFvayTuNJpuoB4Lt
+3J7wwEhCPRAHZkc2pkaFUQ+CqDEzOW84jXoQ2JJ+UcCBGfq/S1D4+Y/3F+xn
+ObMSeJYZZtlefEJdina5YcdZq6ecIcXJFlb7LJPMSjEQV9Gs9wHtNVKIu4p0
+VHnUmWA0/dnzyc1K+j0E4/bCJM/f7Bntg6Gpu5C5R03WBMOpWGrekkRmQtBa
+dStOe5fOgxAcSv/oqoK/tA9B8ebMboeppX0IEn4etVmR/YL2oaie6Vu0S6Dz
+IRRuvb/GP+ym87CheL3LXRzxxXPah6Kue1VsTO3S8yEMNR6q2bltL2kfhkOp
+72yPmKbvs2GQCLboCayX9mGwP6janH2MzMgw/rTJ10q1QHsZApNVD6SH6Xys
+DK1jtULbR2SNDMMjp0432c7RPhw+pQXn81b9Q/twOCnWTqmzXtE+HGKl0K9f
+n6wJR3yeY85noqX7l6O8Xz/6zRm6H8iRcs1P2WzCcM8TVg6Ji+L63UmyRg5l
+aWft1BG6HhMBXWnk3t78RdpHoPx5UUjhMjIbgcQzFo1iSx3aRyApal2uIJmu
+x0Riiq8UOsYwLv8CQ53X1Q==
+               "]]}, "Charting`Private`Tag#1"]}}, <|
+          "HighlightElements" -> <|
+            "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
+           "LayoutOptions" -> <|
+            "PlotRange" -> {{0, 100.}, {0., 9.531938816691386*^-8}}, 
+             "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
+             "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
+             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
+             "DefaultStyle" -> {
+               Directive[
+                PointSize[
+                 Rational[1, 72]], 
+                AbsoluteThickness[2], 
+                Thickness[Large], 
+                RGBColor[0, 0, 1]]}, 
+             "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
+                 Identity[
+                  Part[#, 1]], 
+                 Identity[
+                  Part[#, 2]]}& ), 
+               "ScalingFunctions" -> {{Identity, Identity}, {
+                 Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
+             False|>, 
+           "Meta" -> <|
+            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
+             "Function" -> ListLinePlot, "GroupHighlight" -> False|>|>]]& )[<|
+         "HighlightElements" -> <|
+           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
+          "LayoutOptions" -> <|
+           "PlotRange" -> {{0, 100.}, {0., 9.531938816691386*^-8}}, 
+            "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
+            "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
+            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
+            "DefaultStyle" -> {
+              Directive[
+               PointSize[
+                Rational[1, 72]], 
+               AbsoluteThickness[2], 
+               Thickness[Large], 
+               RGBColor[0, 0, 1]]}, 
+            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
+                Identity[
+                 Part[#, 1]], 
+                Identity[
+                 Part[#, 2]]}& ), 
+              "ScalingFunctions" -> {{Identity, Identity}, {
+                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
+            False|>, 
+          "Meta" -> <|
+           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
+            ListLinePlot, "GroupHighlight" -> False|>|>], 
+        ImageSizeCache -> {{4.503599627370496*^15, -4.503599627370496*^15}, {
+         4.503599627370496*^15, -4.503599627370496*^15}}]}, 
+      Annotation[{{{}, {}, 
+         Annotation[{
+           Hue[0.67, 0.6, 0.6], 
+           Directive[
+            PointSize[
+             Rational[1, 72]], 
+            AbsoluteThickness[2], 
+            Thickness[Large], 
+            RGBColor[0, 0, 1]], 
+           Line[CompressedData["
+1:eJw11AlMk3ccxvEXCMKmUg6ZQI1Cx6ZDRKjolAI+KGc5Wo5SYFwWkDnC1CzC
+YFv3joBDBmJ104nDic7BEAeIXFZZQSJyjITLIeNwE2QDEw+KIsjclvdHk6b5
+5Nvn7f9NmtdGsT8kSZdhmKT/3v9/Lr28Lnd2W6Tm7OD0eGeb0rLxS8m3ZAai
+K2cGj56oIBvihXr6m5qESrIx4kQ4aD1RT16Frow1Ve9HqskWGFx/Yb9e0Q3y
+GngvVz1QdtwkW+Pv1SVhP9XfIgvw2uq0fRVW7WRbLETPPW+x6SG/jYJRoXFo
+6SB5A3r39JRqZL+R7ZCwsi0+dmyebA++zUCZpd442QGdhd85nRcIXDg7Iury
+8FGe3IzshNMuD03broIsxPq0V7njal/yFpSIu7W8iSyyMzyZgg9lz7LJW3FJ
+y8v1668hb0P1yr6Fx8uukN+FINFz+bmWUfJ2rNV+7MFrHCfvgK2+NLZp3EDE
+2QX2v6z7a9xoK1kE58ie+OmXrmRXXFM6lRppFGQ3/P5H3ZPM+AyyOw72nvOu
+VBeSd2K+bEabLysnA586esYNdVVyZoEbmYqSal4HdQ+kjJRtlLdMUffAfP39
+2NW6C9R3oXpFf4xBvbkr13fBaNP35R0/CDkzu9FxcXP7CX4g9d0YVg0tNmdE
+U/dE7laFr6lUSd0T+cUN945cL6LuheO5Bbf7Fs9S94JY97jc0aSdujeOnaoa
+gXSSujcqXO/OJlzSd+O6D8ZYfm+l2RucWR+cvNyQw5MIqfviPdOhNftabKj7
+onXDkLnxIzl1P6THFtUvOqRR94M2PtsgXfg1dTH4WUZfxQSVUxcjKt25waH3
+DnV/7A0Qp4x23qPuD+MiuynRSR13rgeATVw30D5hypkNwFvayTuNJpuoB4Lt
+3J7wwEhCPRAHZkc2pkaFUQ+CqDEzOW84jXoQ2JJ+UcCBGfq/S1D4+Y/3F+xn
+ObMSeJYZZtlefEJdina5YcdZq6ecIcXJFlb7LJPMSjEQV9Gs9wHtNVKIu4p0
+VHnUmWA0/dnzyc1K+j0E4/bCJM/f7Bntg6Gpu5C5R03WBMOpWGrekkRmQtBa
+dStOe5fOgxAcSv/oqoK/tA9B8ebMboeppX0IEn4etVmR/YL2oaie6Vu0S6Dz
+IRRuvb/GP+ym87CheL3LXRzxxXPah6Kue1VsTO3S8yEMNR6q2bltL2kfhkOp
+72yPmKbvs2GQCLboCayX9mGwP6janH2MzMgw/rTJ10q1QHsZApNVD6SH6Xys
+DK1jtULbR2SNDMMjp0432c7RPhw+pQXn81b9Q/twOCnWTqmzXtE+HGKl0K9f
+n6wJR3yeY85noqX7l6O8Xz/6zRm6H8iRcs1P2WzCcM8TVg6Ji+L63UmyRg5l
+aWft1BG6HhMBXWnk3t78RdpHoPx5UUjhMjIbgcQzFo1iSx3aRyApal2uIJmu
+x0Riiq8UOsYwLv8CQ53X1Q==
+            "]]}, "Charting`Private`Tag#1"]}}, <|
+       "HighlightElements" -> <|
+         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
+        "LayoutOptions" -> <|
+         "PlotRange" -> {{0, 100.}, {0., 9.531938816691386*^-8}}, 
+          "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
+          "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
+          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
+          "DefaultStyle" -> {
+            Directive[
+             PointSize[
+              Rational[1, 72]], 
+             AbsoluteThickness[2], 
+             Thickness[Large], 
+             RGBColor[0, 0, 1]]}, 
+          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
+              Identity[
+               Part[#, 1]], 
+              Identity[
+               Part[#, 2]]}& ), 
+            "ScalingFunctions" -> {{Identity, Identity}, {
+              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
+         "Meta" -> <|
+         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
+          ListLinePlot, "GroupHighlight" -> False|>|>, 
+       "DynamicHighlight"]], {{}, {}}}, AspectRatio -> 
+    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
+    AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction -> 
+    Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
+       FormBox[
+        TagBox["\"Residual (RS)\"", HoldForm], TraditionalForm], None}, {
+       FormBox[
+        TagBox["\"n\"", HoldForm], TraditionalForm], None}}, 
+    FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+    GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[
+      GrayLevel[0.5, 0.4]], ImageSize -> Large, 
+    Method -> {
+     "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
+      "DefaultGraphicsInteraction" -> {
+       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+        "Effects" -> {
+         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+          "Droplines" -> {
+           "freeformCursorMode" -> True, 
+            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+      "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
+        Directive[
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.922526, 0.385626, 0.209179], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.528488, 0.470624, 0.701351], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.772079, 0.431554, 0.102387], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.363898, 0.618501, 0.782349], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[1, 0.75, 0], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.647624, 0.37816, 0.614037], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.571589, 0.586483, 0.], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.915, 0.3325, 0.2125], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
+         AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
+      "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, 
+      "IncludeHighlighting" -> "CurrentSet", "HighlightStyle" -> Automatic, 
+      "OptimizePlotMarkers" -> True, 
+      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+          Identity[
+           Part[#, 1]], 
+          Identity[
+           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+          Identity[
+           Part[#, 1]], 
+          Identity[
+           Part[#, 2]]}& )}}, PlotLabel -> FormBox[
+      StyleBox[
+      "\"Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smmd)\\n\"", 13, 
+       Bold, StripOnInput -> False], TraditionalForm], 
+    PlotRange -> {{0, 100.}, {0., 9.531938816691386*^-8}}, PlotRangeClipping -> 
+    True, PlotRangePadding -> {{
+       Scaled[0.02], 
+       Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}], 
    FormBox[
     FormBox[
-    "\" x: 20.0, to each value of n ; \\n avg(RS) = \
-[\\!\\(\\*FormBox[\\\"1.0973586208608373206204849703166969`20.*^-81\\\", \
-TraditionalForm]\\)]\"", TraditionalForm], TraditionalForm]},
+    "\" X: [(-20)\[Rule]20;100], to each value of n ; \\n avg(RS) = \
+[\\!\\(\\*FormBox[\\\"1.225773783192398239964145815426424920825802434249`20.*^\
+-9\\\", TraditionalForm]\\)]\"", TraditionalForm], TraditionalForm]},
   "Legended",
   DisplayFunction->(GridBox[{{
       TagBox[
@@ -1769,10 +3603,10 @@ TraditionalForm]\\)]\"", TraditionalForm], TraditionalForm]},
        RowBox[{"Placed", "[", 
          RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
  CellChangeTimes->{
-  3.9311909993512383`*^9, 3.9311919554179606`*^9, {3.9318632538020115`*^9, 
-   3.931863361923008*^9}},
+  3.931175845437975*^9, 3.931179853519466*^9, 3.9311918940899553`*^9, 
+   3.9311919421363516`*^9, {3.931863477318937*^9, 3.9318635858914413`*^9}},
  CellLabel->
-  "Out[160]=",ExpressionUUID->"d930475c-c1b1-4412-be41-e9f7e657bd94"]
+  "Out[214]=",ExpressionUUID->"066c4e78-3b41-449a-9d3f-276909d3d12e"]
 }, Open  ]]
 }, Open  ]],
 
@@ -1786,7 +3620,7 @@ Cell[TextData[{
       "input" -> "\\star", "state" -> "Boxes"|>,
     "TeXAssistantTemplate"], TraditionalForm]],
   FontColor->RGBColor[1, 0, 0],ExpressionUUID->
-  "1c4f2b2a-e2cf-4c66-b50d-f8db8a880649"],
+  "0a7f6421-369d-4381-9f40-3f93f2168320"],
  StyleBox[" ",
   FontColor->RGBColor[1, 0, 0]],
  StyleBox["Single",
@@ -1812,7 +3646,7 @@ Cell[TextData[{
   FontFamily->"Roboto",
   FontSize->13,
   FontColor->RGBColor[1, 0, 0]],
- StyleBox[" Function ",
+ StyleBox[" Less Fast Function ",
   FontFamily->"Roboto",
   FontSize->13,
   FontColor->RGBColor[1, 0, 0]],
@@ -1821,16 +3655,14 @@ Cell[TextData[{
   FontFamily->"Roboto",
   FontSize->13,
   FontColor->RGBColor[1, 0, 0]],
- StyleBox[" X = [(-20) \[Rule] 20; 100]\n",
+ StyleBox[" X = [(-20) \[Rule] 20; 100]",
   FontFamily->"Roboto",
   FontSize->13,
   FontColor->RGBColor[1, 0, 0]]
 }], "Subsubsection",
- CellChangeTimes->{{3.931169698546235*^9, 3.9311697061903815`*^9}, {
-   3.9311697499733686`*^9, 3.931169766991477*^9}, 3.931174038598855*^9, {
-   3.931177591938387*^9, 3.9311775932562604`*^9}, 
-   3.931191727578232*^9},ExpressionUUID->"dd491313-4a50-4892-a66c-\
-10792509659a"],
+ CellChangeTimes->{{3.9319406997984557`*^9, 
+  3.931940705958198*^9}},ExpressionUUID->"7eb88fb2-4f3c-4847-91d8-\
+ea314a29fbd9"],
 
 Cell[CellGroupData[{
 
@@ -1847,8 +3679,9 @@ Cell[BoxData[{
          "\"\<from fast_wave.wavefunction import wavefunction_smmd;import \
 numpy as np;N_max = 100;xmax = \
 20.0;xmin=-20.0;xsize=100;X=np.linspace(xmin,xmax,xsize);np.array([\
-wavefunction_smmd(n,X) for n in range(N_max+1)]);\>\""}], "]"}], "]"}], ",", 
-      "prec"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
+wavefunction_smmd(n,X,more_fast=False) for n in range(N_max+1)]);\>\""}], 
+        "]"}], "]"}], ",", "prec"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
+  "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"WolframSMMdN100X", " ", "=", " ", 
@@ -1903,8 +3736,8 @@ wavefunction_smmd(n,X) for n in range(N_max+1)]);\>\""}], "]"}], "]"}], ",",
    RowBox[{"PlotLabel", "->", 
     RowBox[{"Style", "[", 
      RowBox[{
-     "\"\<Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smmd)\\n\>\"", ",", 
-      "13", ",", "Bold"}], "]"}]}], ",", "\[IndentingNewLine]", 
+     "\"\<Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smmd; less_fast)\\n\
+\>\"", ",", "13", ",", "Bold"}], "]"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"GridLines", "->", "Automatic"}], ",", "\[IndentingNewLine]", 
    RowBox[{"PlotLegends", "->", 
     RowBox[{"Placed", "[", 
@@ -1933,26 +3766,20 @@ wavefunction_smmd(n,X) for n in range(N_max+1)]);\>\""}], "]"}], "]"}], ",",
         RowBox[{"1.2", "*", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
-           RowBox[{"-", "7.1"}], ")"}]}]}]}], "}"}]}], "}"}]}]}], 
+           RowBox[{"-", "28.6"}], ")"}]}]}]}], "}"}]}], "}"}]}]}], 
   "\[IndentingNewLine]", " ", "]"}]}], "Input",
- CellChangeTimes->{{3.9311740346969175`*^9, 3.93117407982891*^9}, {
-  3.9311741743123264`*^9, 3.9311742287096972`*^9}, {3.9311743970869255`*^9, 
-  3.9311744154365997`*^9}, {3.931174514609479*^9, 3.931174535677328*^9}, {
-  3.9311746490386076`*^9, 3.931174697602874*^9}, {3.9311748454348793`*^9, 
-  3.9311748889411173`*^9}, {3.9311751673216925`*^9, 3.9311751694137187`*^9}, {
-  3.931175829808143*^9, 3.93117583311414*^9}, {3.931191827327964*^9, 
-  3.931191873470278*^9}, {3.931191935339251*^9, 3.931191935422077*^9}, {
-  3.9318634539643035`*^9, 3.9318635786837215`*^9}},
+ CellChangeTimes->{{3.931940655508594*^9, 3.9319406792984548`*^9}, {
+  3.9319407363683853`*^9, 3.9319408035489798`*^9}, {3.9319408363885765`*^9, 
+  3.9319408410284414`*^9}},
  CellLabel->
-  "In[209]:=",ExpressionUUID->"72309dfd-96be-471e-805c-97ca5f109822"],
+  "In[176]:=",ExpressionUUID->"6049da19-80bd-4195-ba0c-24bea02eeab1"],
 
 Cell[BoxData["\<\"Functionality Test Passed: True\"\>"], "Print",
- CellChangeTimes->{
-  3.931175845187752*^9, 3.931179853220471*^9, 3.9311918936218834`*^9, 
-   3.9311919418483176`*^9, {3.931863476958178*^9, 3.9318635854791465`*^9}},
+ CellChangeTimes->{{3.931940721608569*^9, 3.931940810190934*^9}, 
+   3.931940847389573*^9},
  CellLabel->
   "During evaluation of \
-In[209]:=",ExpressionUUID->"2f430186-b028-46e9-afed-4c41f86b8031"],
+In[176]:=",ExpressionUUID->"e58bec0a-3752-442e-beb5-40bac0566355"],
 
 Cell[BoxData[
  TemplateBox[{
@@ -1969,31 +3796,31 @@ Cell[BoxData[
              Thickness[Large], 
              RGBColor[0, 0, 1]], 
             LineBox[CompressedData["
-1:eJw11AlMk3ccxvEXCMKmUg6ZQI1Cx6ZDRKjolAI+KGc5Wo5SYFwWkDnC1CzC
-YFv3joBDBmJ104nDic7BEAeIXFZZQSJyjITLIeNwE2QDEw+KIsjclvdHk6b5
-5Nvn7f9NmtdGsT8kSZdhmKT/3v9/Lr28Lnd2W6Tm7OD0eGeb0rLxS8m3ZAai
-K2cGj56oIBvihXr6m5qESrIx4kQ4aD1RT16Frow1Ve9HqskWGFx/Yb9e0Q3y
-GngvVz1QdtwkW+Pv1SVhP9XfIgvw2uq0fRVW7WRbLETPPW+x6SG/jYJRoXFo
-6SB5A3r39JRqZL+R7ZCwsi0+dmyebA++zUCZpd442QGdhd85nRcIXDg7Iury
-8FGe3IzshNMuD03broIsxPq0V7njal/yFpSIu7W8iSyyMzyZgg9lz7LJW3FJ
-y8v1668hb0P1yr6Fx8uukN+FINFz+bmWUfJ2rNV+7MFrHCfvgK2+NLZp3EDE
-2QX2v6z7a9xoK1kE58ie+OmXrmRXXFM6lRppFGQ3/P5H3ZPM+AyyOw72nvOu
-VBeSd2K+bEabLysnA586esYNdVVyZoEbmYqSal4HdQ+kjJRtlLdMUffAfP39
-2NW6C9R3oXpFf4xBvbkr13fBaNP35R0/CDkzu9FxcXP7CX4g9d0YVg0tNmdE
-U/dE7laFr6lUSd0T+cUN945cL6LuheO5Bbf7Fs9S94JY97jc0aSdujeOnaoa
-gXSSujcqXO/OJlzSd+O6D8ZYfm+l2RucWR+cvNyQw5MIqfviPdOhNftabKj7
-onXDkLnxIzl1P6THFtUvOqRR94M2PtsgXfg1dTH4WUZfxQSVUxcjKt25waH3
-DnV/7A0Qp4x23qPuD+MiuynRSR13rgeATVw30D5hypkNwFvayTuNJpuoB4Lt
-3J7wwEhCPRAHZkc2pkaFUQ+CqDEzOW84jXoQ2JJ+UcCBGfq/S1D4+Y/3F+xn
-ObMSeJYZZtlefEJdina5YcdZq6ecIcXJFlb7LJPMSjEQV9Gs9wHtNVKIu4p0
-VHnUmWA0/dnzyc1K+j0E4/bCJM/f7Bntg6Gpu5C5R03WBMOpWGrekkRmQtBa
-dStOe5fOgxAcSv/oqoK/tA9B8ebMboeppX0IEn4etVmR/YL2oaie6Vu0S6Dz
-IRRuvb/GP+ym87CheL3LXRzxxXPah6Kue1VsTO3S8yEMNR6q2bltL2kfhkOp
-72yPmKbvs2GQCLboCayX9mGwP6janH2MzMgw/rTJ10q1QHsZApNVD6SH6Xys
-DK1jtULbR2SNDMMjp0432c7RPhw+pQXn81b9Q/twOCnWTqmzXtE+HGKl0K9f
-n6wJR3yeY85noqX7l6O8Xz/6zRm6H8iRcs1P2WzCcM8TVg6Ji+L63UmyRg5l
-aWft1BG6HhMBXWnk3t78RdpHoPx5UUjhMjIbgcQzFo1iSx3aRyApal2uIJmu
-x0Riiq8UOsYwLv8CQ53X1Q==
+1:eJw1zw00lXccB/Anb3M201o0IvPWTJnrLSvEVxEul+vi3stJ8lYn46QZNVs8
+0m2ltcbWwspJmzK1VnkZE+dW1iov89qIOPIaSt6Lq7Ydv+ee85x7Puf7//5/
+v79RxF5RtBLDMNH/ff//cz/3X2sbdOJkm5b03CU9qbBrNDibzKBCEVv6Cy6T
+1RGrt8FbYXaV/A4OPDRU3rW2nKwFM6k5nNIqyToYsMt3TLSsIuvjla6SYkdL
+DdkQ5fEW4UXX75CN8cA41sxe9y+yKSZb+g8sMA3kD1D3klermV9L/hDffH/l
+S5lmHXkdDn46EfrGXDPZAgVu0jRGs4lsiUKD9ushn7eSrfB2/fBy57dayNYY
+n271EMgekG3goZJzL8+bsy0Uq5xjBIJ2sh0c9PXbPtL7h7wBF/wG7fft6STb
+Q+vPkX6DxQ7yx0j4zLflZ50u8kaITgWtb7LvIW9C7+1iXlsslzvALq5mr9Is
+lztiRVFFh/aNbrITxvzP8bOrHpM3o74joCuvhdvPGZrlURbDKiNkF+SJi7UH
+QhrJwN9NUfCNfbpkFsjo01CoHOP6rgifTz/33sAg5a6Y59mGr3F8QvkWZGkq
+D3ez9F52C+r4U7K1SWOUb0XsqnfPyB8NUL4Vx+VSuWdBL+Vu4A02xhnu4ea7
+obPk9fx58yHK3TE3mcvamvRT7o5Tpr9/VdU5Tvk23DdY/2z5U9qH3Ya7uamX
+XHK5vgdOS7KyjjfS+1kPaPj0NRt6cn1P5Asv9T9JovOsJ3JSesdnRKOUe8H0
+ROK00ZkJyr0w0Vmoo9H+jHI+Ro/K1K71DFPOh56q2LEhgs4z3uhTzu5tH3xO
+uTfKVvrYWU9z833AxJs4ZybQPNYHi2oPF7zWTFIuQJu8ZDbyOzIrQGpNRlgM
+j5vvi+1O2J/uwN3vCza/1dEnfopyP5xMvdC3YDFDuR/cCtUPmRZw+wlxT6J+
+P2813Q8hfrjFTs8mc/OEaAu7fFM5hvpyIfh1ucsyM7j9/FH9uOmL27/RPPjj
+7sLQcu+Vs9T3h7zsp+TwSrLcH9Znhdq3osmMCDVX74RNd9A+ECFxf0JJhB7X
+F+EsL7nBcoTrixB5pdtI4/BL6gfg2lTL4rpI2g8B2Nxcv3OsgfZhA/BmnTNf
+mjZH/QCUNWjtCC2dp34gil0zZ17YK6gfiMQ4843SUTrPBsLP2FbZ2JDrB8Ji
+Xybv8LdkJgj9k9WeqzMXqB8Ewe7MQeER2o8NQk1PqY3pOFkehK5Hp3OqTV9Q
+XwyPiyfOZ2i9or4Y1hEGI5WHXlNfDH6KjVerKlkuxs4MK9lBR+79EhS1qm43
+maL3QIJP/vBKubmCcVjqS+DnEHGjY4gslyDlYm3pyDG6j5FCSRi8q/nrRepL
+UTSXKzqpRmaliPpRp4Kvu4z6UkSHvH/UeDfdxwRjRC/FxiqUcfgXdg/nDg==
+
              "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}}, {
         "WolframDynamicHighlight", <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
@@ -2012,36 +3839,36 @@ x0Riiq8UOsYwLv8CQ53X1Q==
                Thickness[Large], 
                RGBColor[0, 0, 1]], 
               Line[CompressedData["
-1:eJw11AlMk3ccxvEXCMKmUg6ZQI1Cx6ZDRKjolAI+KGc5Wo5SYFwWkDnC1CzC
-YFv3joBDBmJ104nDic7BEAeIXFZZQSJyjITLIeNwE2QDEw+KIsjclvdHk6b5
-5Nvn7f9NmtdGsT8kSZdhmKT/3v9/Lr28Lnd2W6Tm7OD0eGeb0rLxS8m3ZAai
-K2cGj56oIBvihXr6m5qESrIx4kQ4aD1RT16Frow1Ve9HqskWGFx/Yb9e0Q3y
-GngvVz1QdtwkW+Pv1SVhP9XfIgvw2uq0fRVW7WRbLETPPW+x6SG/jYJRoXFo
-6SB5A3r39JRqZL+R7ZCwsi0+dmyebA++zUCZpd442QGdhd85nRcIXDg7Iury
-8FGe3IzshNMuD03broIsxPq0V7njal/yFpSIu7W8iSyyMzyZgg9lz7LJW3FJ
-y8v1668hb0P1yr6Fx8uukN+FINFz+bmWUfJ2rNV+7MFrHCfvgK2+NLZp3EDE
-2QX2v6z7a9xoK1kE58ie+OmXrmRXXFM6lRppFGQ3/P5H3ZPM+AyyOw72nvOu
-VBeSd2K+bEabLysnA586esYNdVVyZoEbmYqSal4HdQ+kjJRtlLdMUffAfP39
-2NW6C9R3oXpFf4xBvbkr13fBaNP35R0/CDkzu9FxcXP7CX4g9d0YVg0tNmdE
-U/dE7laFr6lUSd0T+cUN945cL6LuheO5Bbf7Fs9S94JY97jc0aSdujeOnaoa
-gXSSujcqXO/OJlzSd+O6D8ZYfm+l2RucWR+cvNyQw5MIqfviPdOhNftabKj7
-onXDkLnxIzl1P6THFtUvOqRR94M2PtsgXfg1dTH4WUZfxQSVUxcjKt25waH3
-DnV/7A0Qp4x23qPuD+MiuynRSR13rgeATVw30D5hypkNwFvayTuNJpuoB4Lt
-3J7wwEhCPRAHZkc2pkaFUQ+CqDEzOW84jXoQ2JJ+UcCBGfq/S1D4+Y/3F+xn
-ObMSeJYZZtlefEJdina5YcdZq6ecIcXJFlb7LJPMSjEQV9Gs9wHtNVKIu4p0
-VHnUmWA0/dnzyc1K+j0E4/bCJM/f7Bntg6Gpu5C5R03WBMOpWGrekkRmQtBa
-dStOe5fOgxAcSv/oqoK/tA9B8ebMboeppX0IEn4etVmR/YL2oaie6Vu0S6Dz
-IRRuvb/GP+ym87CheL3LXRzxxXPah6Kue1VsTO3S8yEMNR6q2bltL2kfhkOp
-72yPmKbvs2GQCLboCayX9mGwP6janH2MzMgw/rTJ10q1QHsZApNVD6SH6Xys
-DK1jtULbR2SNDMMjp0432c7RPhw+pQXn81b9Q/twOCnWTqmzXtE+HGKl0K9f
-n6wJR3yeY85noqX7l6O8Xz/6zRm6H8iRcs1P2WzCcM8TVg6Ji+L63UmyRg5l
-aWft1BG6HhMBXWnk3t78RdpHoPx5UUjhMjIbgcQzFo1iSx3aRyApal2uIJmu
-x0Riiq8UOsYwLv8CQ53X1Q==
+1:eJw1zw00lXccB/Anb3M201o0IvPWTJnrLSvEVxEul+vi3stJ8lYn46QZNVs8
+0m2ltcbWwspJmzK1VnkZE+dW1iov89qIOPIaSt6Lq7Ydv+ee85x7Puf7//5/
+v79RxF5RtBLDMNH/ff//cz/3X2sbdOJkm5b03CU9qbBrNDibzKBCEVv6Cy6T
+1RGrt8FbYXaV/A4OPDRU3rW2nKwFM6k5nNIqyToYsMt3TLSsIuvjla6SYkdL
+DdkQ5fEW4UXX75CN8cA41sxe9y+yKSZb+g8sMA3kD1D3klermV9L/hDffH/l
+S5lmHXkdDn46EfrGXDPZAgVu0jRGs4lsiUKD9ushn7eSrfB2/fBy57dayNYY
+n271EMgekG3goZJzL8+bsy0Uq5xjBIJ2sh0c9PXbPtL7h7wBF/wG7fft6STb
+Q+vPkX6DxQ7yx0j4zLflZ50u8kaITgWtb7LvIW9C7+1iXlsslzvALq5mr9Is
+lztiRVFFh/aNbrITxvzP8bOrHpM3o74joCuvhdvPGZrlURbDKiNkF+SJi7UH
+QhrJwN9NUfCNfbpkFsjo01CoHOP6rgifTz/33sAg5a6Y59mGr3F8QvkWZGkq
+D3ez9F52C+r4U7K1SWOUb0XsqnfPyB8NUL4Vx+VSuWdBL+Vu4A02xhnu4ea7
+obPk9fx58yHK3TE3mcvamvRT7o5Tpr9/VdU5Tvk23DdY/2z5U9qH3Ya7uamX
+XHK5vgdOS7KyjjfS+1kPaPj0NRt6cn1P5Asv9T9JovOsJ3JSesdnRKOUe8H0
+ROK00ZkJyr0w0Vmoo9H+jHI+Ro/K1K71DFPOh56q2LEhgs4z3uhTzu5tH3xO
+uTfKVvrYWU9z833AxJs4ZybQPNYHi2oPF7zWTFIuQJu8ZDbyOzIrQGpNRlgM
+j5vvi+1O2J/uwN3vCza/1dEnfopyP5xMvdC3YDFDuR/cCtUPmRZw+wlxT6J+
+P2813Q8hfrjFTs8mc/OEaAu7fFM5hvpyIfh1ucsyM7j9/FH9uOmL27/RPPjj
+7sLQcu+Vs9T3h7zsp+TwSrLcH9Znhdq3osmMCDVX74RNd9A+ECFxf0JJhB7X
+F+EsL7nBcoTrixB5pdtI4/BL6gfg2lTL4rpI2g8B2Nxcv3OsgfZhA/BmnTNf
+mjZH/QCUNWjtCC2dp34gil0zZ17YK6gfiMQ4843SUTrPBsLP2FbZ2JDrB8Ji
+Xybv8LdkJgj9k9WeqzMXqB8Ewe7MQeER2o8NQk1PqY3pOFkehK5Hp3OqTV9Q
+XwyPiyfOZ2i9or4Y1hEGI5WHXlNfDH6KjVerKlkuxs4MK9lBR+79EhS1qm43
+maL3QIJP/vBKubmCcVjqS+DnEHGjY4gslyDlYm3pyDG6j5FCSRi8q/nrRepL
+UTSXKzqpRmaliPpRp4Kvu4z6UkSHvH/UeDfdxwRjRC/FxiqUcfgXdg/nDg==
+
                "]]}, "Charting`Private`Tag#1"]}}, <|
           "HighlightElements" -> <|
             "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
            "LayoutOptions" -> <|
-            "PlotRange" -> {{0, 100.}, {0., 9.531938816691386*^-8}}, 
+            "PlotRange" -> {{0, 100.}, {0., 3.014263717811486*^-29}}, 
              "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
              "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
              "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
@@ -2066,7 +3893,7 @@ x0Riiq8UOsYwLv8CQ53X1Q==
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
           "LayoutOptions" -> <|
-           "PlotRange" -> {{0, 100.}, {0., 9.531938816691386*^-8}}, 
+           "PlotRange" -> {{0, 100.}, {0., 3.014263717811486*^-29}}, 
             "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
             "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
@@ -2098,36 +3925,36 @@ x0Riiq8UOsYwLv8CQ53X1Q==
             Thickness[Large], 
             RGBColor[0, 0, 1]], 
            Line[CompressedData["
-1:eJw11AlMk3ccxvEXCMKmUg6ZQI1Cx6ZDRKjolAI+KGc5Wo5SYFwWkDnC1CzC
-YFv3joBDBmJ104nDic7BEAeIXFZZQSJyjITLIeNwE2QDEw+KIsjclvdHk6b5
-5Nvn7f9NmtdGsT8kSZdhmKT/3v9/Lr28Lnd2W6Tm7OD0eGeb0rLxS8m3ZAai
-K2cGj56oIBvihXr6m5qESrIx4kQ4aD1RT16Frow1Ve9HqskWGFx/Yb9e0Q3y
-GngvVz1QdtwkW+Pv1SVhP9XfIgvw2uq0fRVW7WRbLETPPW+x6SG/jYJRoXFo
-6SB5A3r39JRqZL+R7ZCwsi0+dmyebA++zUCZpd442QGdhd85nRcIXDg7Iury
-8FGe3IzshNMuD03broIsxPq0V7njal/yFpSIu7W8iSyyMzyZgg9lz7LJW3FJ
-y8v1668hb0P1yr6Fx8uukN+FINFz+bmWUfJ2rNV+7MFrHCfvgK2+NLZp3EDE
-2QX2v6z7a9xoK1kE58ie+OmXrmRXXFM6lRppFGQ3/P5H3ZPM+AyyOw72nvOu
-VBeSd2K+bEabLysnA586esYNdVVyZoEbmYqSal4HdQ+kjJRtlLdMUffAfP39
-2NW6C9R3oXpFf4xBvbkr13fBaNP35R0/CDkzu9FxcXP7CX4g9d0YVg0tNmdE
-U/dE7laFr6lUSd0T+cUN945cL6LuheO5Bbf7Fs9S94JY97jc0aSdujeOnaoa
-gXSSujcqXO/OJlzSd+O6D8ZYfm+l2RucWR+cvNyQw5MIqfviPdOhNftabKj7
-onXDkLnxIzl1P6THFtUvOqRR94M2PtsgXfg1dTH4WUZfxQSVUxcjKt25waH3
-DnV/7A0Qp4x23qPuD+MiuynRSR13rgeATVw30D5hypkNwFvayTuNJpuoB4Lt
-3J7wwEhCPRAHZkc2pkaFUQ+CqDEzOW84jXoQ2JJ+UcCBGfq/S1D4+Y/3F+xn
-ObMSeJYZZtlefEJdina5YcdZq6ecIcXJFlb7LJPMSjEQV9Gs9wHtNVKIu4p0
-VHnUmWA0/dnzyc1K+j0E4/bCJM/f7Bntg6Gpu5C5R03WBMOpWGrekkRmQtBa
-dStOe5fOgxAcSv/oqoK/tA9B8ebMboeppX0IEn4etVmR/YL2oaie6Vu0S6Dz
-IRRuvb/GP+ym87CheL3LXRzxxXPah6Kue1VsTO3S8yEMNR6q2bltL2kfhkOp
-72yPmKbvs2GQCLboCayX9mGwP6janH2MzMgw/rTJ10q1QHsZApNVD6SH6Xys
-DK1jtULbR2SNDMMjp0432c7RPhw+pQXn81b9Q/twOCnWTqmzXtE+HGKl0K9f
-n6wJR3yeY85noqX7l6O8Xz/6zRm6H8iRcs1P2WzCcM8TVg6Ji+L63UmyRg5l
-aWft1BG6HhMBXWnk3t78RdpHoPx5UUjhMjIbgcQzFo1iSx3aRyApal2uIJmu
-x0Riiq8UOsYwLv8CQ53X1Q==
+1:eJw1zw00lXccB/Anb3M201o0IvPWTJnrLSvEVxEul+vi3stJ8lYn46QZNVs8
+0m2ltcbWwspJmzK1VnkZE+dW1iov89qIOPIaSt6Lq7Ydv+ee85x7Puf7//5/
+v79RxF5RtBLDMNH/ff//cz/3X2sbdOJkm5b03CU9qbBrNDibzKBCEVv6Cy6T
+1RGrt8FbYXaV/A4OPDRU3rW2nKwFM6k5nNIqyToYsMt3TLSsIuvjla6SYkdL
+DdkQ5fEW4UXX75CN8cA41sxe9y+yKSZb+g8sMA3kD1D3klermV9L/hDffH/l
+S5lmHXkdDn46EfrGXDPZAgVu0jRGs4lsiUKD9ushn7eSrfB2/fBy57dayNYY
+n271EMgekG3goZJzL8+bsy0Uq5xjBIJ2sh0c9PXbPtL7h7wBF/wG7fft6STb
+Q+vPkX6DxQ7yx0j4zLflZ50u8kaITgWtb7LvIW9C7+1iXlsslzvALq5mr9Is
+lztiRVFFh/aNbrITxvzP8bOrHpM3o74joCuvhdvPGZrlURbDKiNkF+SJi7UH
+QhrJwN9NUfCNfbpkFsjo01CoHOP6rgifTz/33sAg5a6Y59mGr3F8QvkWZGkq
+D3ez9F52C+r4U7K1SWOUb0XsqnfPyB8NUL4Vx+VSuWdBL+Vu4A02xhnu4ea7
+obPk9fx58yHK3TE3mcvamvRT7o5Tpr9/VdU5Tvk23DdY/2z5U9qH3Ya7uamX
+XHK5vgdOS7KyjjfS+1kPaPj0NRt6cn1P5Asv9T9JovOsJ3JSesdnRKOUe8H0
+ROK00ZkJyr0w0Vmoo9H+jHI+Ro/K1K71DFPOh56q2LEhgs4z3uhTzu5tH3xO
+uTfKVvrYWU9z833AxJs4ZybQPNYHi2oPF7zWTFIuQJu8ZDbyOzIrQGpNRlgM
+j5vvi+1O2J/uwN3vCza/1dEnfopyP5xMvdC3YDFDuR/cCtUPmRZw+wlxT6J+
+P2813Q8hfrjFTs8mc/OEaAu7fFM5hvpyIfh1ucsyM7j9/FH9uOmL27/RPPjj
+7sLQcu+Vs9T3h7zsp+TwSrLcH9Znhdq3osmMCDVX74RNd9A+ECFxf0JJhB7X
+F+EsL7nBcoTrixB5pdtI4/BL6gfg2lTL4rpI2g8B2Nxcv3OsgfZhA/BmnTNf
+mjZH/QCUNWjtCC2dp34gil0zZ17YK6gfiMQ4843SUTrPBsLP2FbZ2JDrB8Ji
+Xybv8LdkJgj9k9WeqzMXqB8Ewe7MQeER2o8NQk1PqY3pOFkehK5Hp3OqTV9Q
+XwyPiyfOZ2i9or4Y1hEGI5WHXlNfDH6KjVerKlkuxs4MK9lBR+79EhS1qm43
+maL3QIJP/vBKubmCcVjqS+DnEHGjY4gslyDlYm3pyDG6j5FCSRi8q/nrRepL
+UTSXKzqpRmaliPpRp4Kvu4z6UkSHvH/UeDfdxwRjRC/FxiqUcfgXdg/nDg==
+
             "]]}, "Charting`Private`Tag#1"]}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
-         "PlotRange" -> {{0, 100.}, {0., 9.531938816691386*^-8}}, 
+         "PlotRange" -> {{0, 100.}, {0., 3.014263717811486*^-29}}, 
           "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
           "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
           "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
@@ -2230,17 +4057,17 @@ x0Riiq8UOsYwLv8CQ53X1Q==
            Identity[
             Part[#, 2]]}& )}}, PlotLabel -> FormBox[
        StyleBox[
-       "\"Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smmd)\\n\"", 13, 
-        Bold, StripOnInput -> False], TraditionalForm], 
-     PlotRange -> {{0, 100.}, {0., 9.531938816691386*^-8}}, PlotRangeClipping -> 
-     True, PlotRangePadding -> {{
+       "\"Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smmd; less_fast)\\n\
+\"", 13, Bold, StripOnInput -> False], TraditionalForm], 
+     PlotRange -> {{0, 100.}, {0., 3.014263717811486*^-29}}, 
+     PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}], 
    FormBox[
     FormBox[
     "\" X: [(-20)\[Rule]20;100], to each value of n ; \\n avg(RS) = \
-[\\!\\(\\*FormBox[\\\"1.225773783192398239964145815426424920825802434249`20.*^\
--9\\\", TraditionalForm]\\)]\"", TraditionalForm], TraditionalForm]},
+[\\!\\(\\*FormBox[\\\"1.211340182272453795941333861317290341160777198794`20.*^\
+-29\\\", TraditionalForm]\\)]\"", TraditionalForm], TraditionalForm]},
   "Legended",
   DisplayFunction->(GridBox[{{
       TagBox[
@@ -2258,11 +4085,10 @@ x0Riiq8UOsYwLv8CQ53X1Q==
      RowBox[{#, ",", 
        RowBox[{"Placed", "[", 
          RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
- CellChangeTimes->{
-  3.931175845437975*^9, 3.931179853519466*^9, 3.9311918940899553`*^9, 
-   3.9311919421363516`*^9, {3.931863477318937*^9, 3.9318635858914413`*^9}},
+ CellChangeTimes->{{3.9319407219284306`*^9, 3.9319408104884233`*^9}, 
+   3.9319408476784744`*^9},
  CellLabel->
-  "Out[214]=",ExpressionUUID->"066c4e78-3b41-449a-9d3f-276909d3d12e"]
+  "Out[181]=",ExpressionUUID->"6a1c4fba-6fd2-414f-ba1a-8ca12b4f81c3"]
 }, Open  ]]
 }, Open  ]],
 
@@ -4138,65 +5964,97 @@ Cell[CellGroupData[{
 Cell[12288, 329, 404, 8, 45, "Subsubsection",ExpressionUUID->"3290d522-d9b6-4abe-8022-14586bcf1eea"],
 Cell[12695, 339, 1589, 57, 57, "Text",ExpressionUUID->"12850b67-4b9b-428a-90b4-708b72123860"],
 Cell[CellGroupData[{
-Cell[14309, 400, 5474, 117, 713, "Input",ExpressionUUID->"8e758aa1-fb5b-4f01-b5c2-99acd66b0092"],
-Cell[19786, 519, 924, 14, 22, "Print",ExpressionUUID->"a3c9c9c1-82f2-492d-b29e-abd96d6d2541"],
-Cell[20713, 535, 15692, 344, 447, "Output",ExpressionUUID->"0af29d82-0098-4305-bd1d-2b2fe5460ece"]
+Cell[14309, 400, 5526, 118, 713, "Input",ExpressionUUID->"8e758aa1-fb5b-4f01-b5c2-99acd66b0092"],
+Cell[19838, 520, 976, 15, 22, "Print",ExpressionUUID->"673142fa-5df0-40da-ba6c-139911579d14"],
+Cell[20817, 537, 15573, 340, 447, "Output",ExpressionUUID->"3ea31d15-0ac5-4de5-8891-a91d03b15faf"]
+}, Open  ]]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[36439, 883, 1545, 58, 47, "Subsubsection",ExpressionUUID->"e008e934-a2e1-478f-94af-3a306e073313"],
+Cell[CellGroupData[{
+Cell[38009, 945, 3346, 85, 678, "Input",ExpressionUUID->"06396ab8-5807-48bf-aa88-4f143ea57b4d"],
+Cell[41358, 1032, 234, 4, 22, "Print",ExpressionUUID->"b34dbe50-665f-4434-93ee-027b93b0ecca"],
+Cell[41595, 1038, 14513, 328, 447, "Output",ExpressionUUID->"e82580bf-1826-4f74-a0df-9e4978d46b17"]
+}, Open  ]]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[56157, 1372, 1433, 52, 91, "Subsubsection",ExpressionUUID->"cdfe5e9d-03b0-4578-803a-3b886f01f66f"],
+Cell[CellGroupData[{
+Cell[57615, 1428, 4579, 108, 768, "Input",ExpressionUUID->"6c713f40-4de1-4703-b5b7-508466c25334"],
+Cell[62197, 1538, 438, 8, 22, "Print",ExpressionUUID->"9379ba00-db5f-4636-9f9e-0836610761c1"],
+Cell[62638, 1548, 12198, 270, 442, "Output",ExpressionUUID->"7dcf280f-30c4-4332-a61b-b33d8b2f0a87"]
+}, Open  ]]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[74885, 1824, 1583, 59, 47, "Subsubsection",ExpressionUUID->"8ed1ca18-7044-4ca5-9069-0d4efc1da7ca"],
+Cell[CellGroupData[{
+Cell[76493, 1887, 3811, 99, 768, "Input",ExpressionUUID->"043b0a28-3230-4c1f-92e6-410262f5c913"],
+Cell[80307, 1988, 267, 5, 22, "Print",ExpressionUUID->"097bce1f-72f6-4e67-9e3f-4e58bc2e54e6"],
+Cell[80577, 1995, 11608, 262, 437, "Output",ExpressionUUID->"b09924c8-c8a3-4544-9412-863069fbe2f1"]
+}, Open  ]]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[92234, 2263, 1406, 51, 91, "Subsubsection",ExpressionUUID->"3b3e3cff-0342-4745-815b-db14e1331e26"],
+Cell[CellGroupData[{
+Cell[93665, 2318, 4293, 105, 749, "Input",ExpressionUUID->"f0d8df2c-ee3c-4081-bba5-abd8ac851ee5"],
+Cell[97961, 2425, 292, 6, 22, "Print",ExpressionUUID->"be7e7374-a050-49e6-9dc8-c6a9b46151dc"],
+Cell[98256, 2433, 11537, 259, 442, "Output",ExpressionUUID->"d930475c-c1b1-4412-be41-e9f7e657bd94"]
 }, Open  ]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[36454, 885, 1433, 52, 91, "Subsubsection",ExpressionUUID->"cdfe5e9d-03b0-4578-803a-3b886f01f66f"],
+Cell[109842, 2698, 1587, 59, 65, "Subsubsection",ExpressionUUID->"fc8cac6c-f228-43e8-9cab-cec8739c04f5"],
 Cell[CellGroupData[{
-Cell[37912, 941, 4579, 108, 768, "Input",ExpressionUUID->"6c713f40-4de1-4703-b5b7-508466c25334"],
-Cell[42494, 1051, 438, 8, 22, "Print",ExpressionUUID->"9379ba00-db5f-4636-9f9e-0836610761c1"],
-Cell[42935, 1061, 12365, 274, 442, "Output",ExpressionUUID->"7dcf280f-30c4-4332-a61b-b33d8b2f0a87"]
+Cell[111454, 2761, 3685, 96, 749, "Input",ExpressionUUID->"4f703c05-dc02-44d3-8efb-0ce1ab37a584"],
+Cell[115142, 2859, 213, 4, 22, "Print",ExpressionUUID->"98903f5a-691b-4f60-ad72-3f25246d54dc"],
+Cell[115358, 2865, 11422, 257, 442, "Output",ExpressionUUID->"c3424545-13a8-4f33-a024-ae180ca9ea02"]
 }, Open  ]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[55349, 1341, 1406, 51, 91, "Subsubsection",ExpressionUUID->"3b3e3cff-0342-4745-815b-db14e1331e26"],
+Cell[126829, 3128, 1569, 52, 47, "Subsubsection",ExpressionUUID->"dd491313-4a50-4892-a66c-10792509659a"],
 Cell[CellGroupData[{
-Cell[56780, 1396, 4293, 105, 749, "Input",ExpressionUUID->"f0d8df2c-ee3c-4081-bba5-abd8ac851ee5"],
-Cell[61076, 1503, 292, 6, 22, "Print",ExpressionUUID->"be7e7374-a050-49e6-9dc8-c6a9b46151dc"],
-Cell[61371, 1511, 11704, 263, 442, "Output",ExpressionUUID->"d930475c-c1b1-4412-be41-e9f7e657bd94"]
+Cell[128423, 3184, 4425, 110, 822, "Input",ExpressionUUID->"72309dfd-96be-471e-805c-97ca5f109822"],
+Cell[132851, 3296, 338, 6, 22, "Print",ExpressionUUID->"2f430186-b028-46e9-afed-4c41f86b8031"],
+Cell[133192, 3304, 14267, 304, 445, "Output",ExpressionUUID->"066c4e78-3b41-449a-9d3f-276909d3d12e"]
 }, Open  ]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[73124, 1780, 1547, 52, 65, "Subsubsection",ExpressionUUID->"dd491313-4a50-4892-a66c-10792509659a"],
+Cell[147508, 3614, 1406, 50, 47, "Subsubsection",ExpressionUUID->"7eb88fb2-4f3c-4847-91d8-ea314a29fbd9"],
 Cell[CellGroupData[{
-Cell[74696, 1836, 4425, 110, 822, "Input",ExpressionUUID->"72309dfd-96be-471e-805c-97ca5f109822"],
-Cell[79124, 1948, 338, 6, 22, "Print",ExpressionUUID->"2f430186-b028-46e9-afed-4c41f86b8031"],
-Cell[79465, 1956, 14434, 308, 445, "Output",ExpressionUUID->"066c4e78-3b41-449a-9d3f-276909d3d12e"]
+Cell[148939, 3668, 4058, 106, 822, "Input",ExpressionUUID->"6049da19-80bd-4195-ba0c-24bea02eeab1"],
+Cell[153000, 3776, 263, 5, 22, "Print",ExpressionUUID->"e58bec0a-3752-442e-beb5-40bac0566355"],
+Cell[153266, 3783, 14302, 307, 442, "Output",ExpressionUUID->"6a1c4fba-6fd2-414f-ba1a-8ca12b4f81c3"]
 }, Open  ]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[93948, 2270, 1456, 52, 91, "Subsubsection",ExpressionUUID->"7e02ab5b-cc36-458b-ac29-9550fc0399c0"],
+Cell[167617, 4096, 1456, 52, 91, "Subsubsection",ExpressionUUID->"7e02ab5b-cc36-458b-ac29-9550fc0399c0"],
 Cell[CellGroupData[{
-Cell[95429, 2326, 4006, 94, 690, "Input",ExpressionUUID->"0296b5ed-7685-4844-88c6-2813c946b5dc"],
-Cell[99438, 2422, 615, 9, 22, "Print",ExpressionUUID->"7b960df3-9059-4461-a5ab-58637c31cda2"],
-Cell[100056, 2433, 13448, 292, 442, "Output",ExpressionUUID->"3cf7ede4-6282-4c5a-aa25-ef4c5d486501"]
+Cell[169098, 4152, 4006, 94, 690, "Input",ExpressionUUID->"0296b5ed-7685-4844-88c6-2813c946b5dc"],
+Cell[173107, 4248, 615, 9, 22, "Print",ExpressionUUID->"7b960df3-9059-4461-a5ab-58637c31cda2"],
+Cell[173725, 4259, 13448, 292, 442, "Output",ExpressionUUID->"3cf7ede4-6282-4c5a-aa25-ef4c5d486501"]
 }, Open  ]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[113553, 2731, 1403, 50, 65, "Subsubsection",ExpressionUUID->"2f10fed4-370a-4a4d-aec1-c9970b1fae8c"],
+Cell[187222, 4557, 1403, 50, 65, "Subsubsection",ExpressionUUID->"2f10fed4-370a-4a4d-aec1-c9970b1fae8c"],
 Cell[CellGroupData[{
-Cell[114981, 2785, 3227, 84, 690, "Input",ExpressionUUID->"52d24e8f-97fb-4ceb-ae43-3b17fe946287"],
-Cell[118211, 2871, 236, 4, 22, "Print",ExpressionUUID->"e416dbc7-2dfb-4029-be3a-6bf0a4e94ed0"],
-Cell[118450, 2877, 14317, 305, 488, "Output",ExpressionUUID->"e49942af-e023-4633-9f7d-ecb05214c872"]
+Cell[188650, 4611, 3227, 84, 690, "Input",ExpressionUUID->"52d24e8f-97fb-4ceb-ae43-3b17fe946287"],
+Cell[191880, 4697, 236, 4, 22, "Print",ExpressionUUID->"e416dbc7-2dfb-4029-be3a-6bf0a4e94ed0"],
+Cell[192119, 4703, 14317, 305, 488, "Output",ExpressionUUID->"e49942af-e023-4633-9f7d-ecb05214c872"]
 }, Open  ]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[132816, 3188, 1401, 50, 65, "Subsubsection",ExpressionUUID->"4c72436e-d350-412c-86ed-264dd0d41085"],
+Cell[206485, 5014, 1401, 50, 65, "Subsubsection",ExpressionUUID->"4c72436e-d350-412c-86ed-264dd0d41085"],
 Cell[CellGroupData[{
-Cell[134242, 3242, 3179, 83, 690, "Input",ExpressionUUID->"bbb9f1f0-477b-4b94-ac11-782636950141"],
-Cell[137424, 3327, 213, 4, 22, "Print",ExpressionUUID->"c0caa587-669d-424d-a29e-9463dff25e1e"],
-Cell[137640, 3333, 13954, 301, 439, "Output",ExpressionUUID->"a41a61fc-a9db-4ed5-abb8-9a2a8c042d6c"]
+Cell[207911, 5068, 3179, 83, 690, "Input",ExpressionUUID->"bbb9f1f0-477b-4b94-ac11-782636950141"],
+Cell[211093, 5153, 213, 4, 22, "Print",ExpressionUUID->"c0caa587-669d-424d-a29e-9463dff25e1e"],
+Cell[211309, 5159, 13954, 301, 439, "Output",ExpressionUUID->"a41a61fc-a9db-4ed5-abb8-9a2a8c042d6c"]
 }, Open  ]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[151643, 3640, 1420, 50, 65, "Subsubsection",ExpressionUUID->"7cfd071f-e16a-4ac4-bef7-12afa2333ed8"],
+Cell[225312, 5466, 1420, 50, 65, "Subsubsection",ExpressionUUID->"7cfd071f-e16a-4ac4-bef7-12afa2333ed8"],
 Cell[CellGroupData[{
-Cell[153088, 3694, 3932, 96, 747, "Input",ExpressionUUID->"08047bbf-577b-48b4-83c1-d26d842410c2"],
-Cell[157023, 3792, 465, 7, 22, "Print",ExpressionUUID->"48a045e8-8e73-4be8-9ddf-cb3c8845a4b0"],
-Cell[157491, 3801, 14186, 305, 437, "Output",ExpressionUUID->"a6fcd7fb-d33c-49aa-8b2f-c7644b68e8dd"]
+Cell[226757, 5520, 3932, 96, 747, "Input",ExpressionUUID->"08047bbf-577b-48b4-83c1-d26d842410c2"],
+Cell[230692, 5618, 465, 7, 22, "Print",ExpressionUUID->"48a045e8-8e73-4be8-9ddf-cb3c8845a4b0"],
+Cell[231160, 5627, 14186, 305, 437, "Output",ExpressionUUID->"a6fcd7fb-d33c-49aa-8b2f-c7644b68e8dd"]
 }, Open  ]]
 }, Open  ]]
 }
diff --git a/exemples/Wolfram_Mathematica_Comparison/Wolfram_Mathematica_Wavefunction_Precision_Tests.pdf b/exemples/Wolfram_Mathematica_Comparison/Wolfram_Mathematica_Wavefunction_Precision_Tests.pdf
index c130a17..ad95220 100644
Binary files a/exemples/Wolfram_Mathematica_Comparison/Wolfram_Mathematica_Wavefunction_Precision_Tests.pdf and b/exemples/Wolfram_Mathematica_Comparison/Wolfram_Mathematica_Wavefunction_Precision_Tests.pdf differ
diff --git a/exemples/Wolfram_Mathematica_Comparison/Wolfram_Mathematica_Wavefunction_Speed_Tests.nb b/exemples/Wolfram_Mathematica_Comparison/Wolfram_Mathematica_Wavefunction_Speed_Tests.nb
index 8b31784..9eca327 100644
--- a/exemples/Wolfram_Mathematica_Comparison/Wolfram_Mathematica_Wavefunction_Speed_Tests.nb
+++ b/exemples/Wolfram_Mathematica_Comparison/Wolfram_Mathematica_Wavefunction_Speed_Tests.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[    136820,       3147]
-NotebookOptionsPosition[    133627,       3084]
-NotebookOutlinePosition[    134093,       3101]
-CellTagsIndexPosition[    134050,       3098]
+NotebookDataLength[    198173,       4521]
+NotebookOptionsPosition[    194041,       4442]
+NotebookOutlinePosition[    194507,       4459]
+CellTagsIndexPosition[    194464,       4456]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -461,7 +461,15 @@ timeit;N_max = 100;x = 20.0;[(timeit.timeit(lambda : wavefunction_smod(n, x) \
               "]"}], ",", "TraditionalForm"}], "]"}], " ", "<>", " ", 
            "\"\< ms\>\""}]}], "}"}], ",", "Below"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
-     RowBox[{"ImageSize", "->", "Large"}]}], " ", "]"}]}]}]], "Input",
+     RowBox[{"ImageSize", "->", "Large"}], " ", ",", "\[IndentingNewLine]", 
+     RowBox[{"PlotRange", "->", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"Automatic", ",", "Automatic"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"0", ",", "1.0"}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]",
+     "]"}]}]}]], "Input",
  CellChangeTimes->{{3.9312606566651573`*^9, 3.931260737243539*^9}, {
    3.9312609924111757`*^9, 3.931260993213274*^9}, {3.931261028016669*^9, 
    3.931261246107191*^9}, {3.931261501354831*^9, 3.931261504859618*^9}, {
@@ -478,19 +486,1384 @@ timeit;N_max = 100;x = 20.0;[(timeit.timeit(lambda : wavefunction_smod(n, x) \
    3.931272390946215*^9}, {3.931272797365054*^9, 3.9312728201393967`*^9}, {
    3.9312730292595015`*^9, 3.9312731413211956`*^9}, {3.931273351330784*^9, 
    3.931273359058503*^9}, {3.931273914520008*^9, 3.9312739186198826`*^9}, {
-   3.931274323409753*^9, 3.931274332619318*^9}},
+   3.931274323409753*^9, 3.931274332619318*^9}, 3.931941448621904*^9, 
+   3.9319416717691545`*^9, {3.9319424288473063`*^9, 3.931942460435499*^9}, 
+   3.931942659412362*^9},
+ CellLabel->"In[41]:=",ExpressionUUID->"33f46a33-4e37-4fb1-8595-6388b68ece73"],
+
+Cell[BoxData["\<\"Functionality Test Passed: True\"\>"], "Print",
+ CellChangeTimes->{3.9312626432363276`*^9, 3.9312628497486887`*^9, 
+  3.9312648017983613`*^9, 3.931265035911127*^9, 3.931271418889244*^9, 
+  3.931272405617988*^9, 3.9312728459446735`*^9, 3.931273152984417*^9, 
+  3.9312733668111734`*^9, 3.931273955721511*^9, 3.9312743387477355`*^9, 
+  3.931277990025482*^9, 3.931941415081505*^9, 3.9319414571326375`*^9, 
+  3.931941508664963*^9, 3.9319416880380125`*^9, 3.9319424740775228`*^9, 
+  3.9319426703883257`*^9},
  CellLabel->
-  "In[152]:=",ExpressionUUID->"33f46a33-4e37-4fb1-8595-6388b68ece73"],
+  "During evaluation of \
+In[41]:=",ExpressionUUID->"c3f891bd-c40c-418e-b538-9d03e9e79ca1"],
+
+Cell[BoxData[
+ TemplateBox[{
+   GraphicsBox[{{}, 
+     InterpretationBox[{
+       TagBox[{{}, {}, 
+         TagBox[{
+           RGBColor[0, 0, 1], 
+           PointSize[
+            NCache[
+             Rational[1, 72], 0.013888888888888888`]], 
+           AbsoluteThickness[2], 
+           LineBox[CompressedData["
+1:eJw1lAtMk1cUxxtYJiDTRTADhfAQCTDHgEotdMCfRykUBAptKc5tQUdkkzlB
+MgR5VAxEN7P4iFFQphHE8hAERIcPbAcMa3mNh+Uhig4ijLkxIRkOl62Fc7/k
+y5ff9z/n3nPveTjt+jo+xYTD4aQYXuN35ZkLUqh8uwWCO0H0A/s/W9Vja6Un
+NkPBl3czT3sNEr+LfHv+nvaXOmJrtHqVeNhMM7bBhh8+dddJeont4Hni0qL3
+WsaOsMtN9hnKGSF2RiysktvKO4ld4JP1gZPD+ASxKyz05fsD6p8TuyF7xtXb
+7NoAsQc63f1P6Y71E2/BLRQ+F1kwe0+kCJ7GvnPvMbEXbo9+++/UhnFib+z4
+3GBgNUTsg+hKi/ArKsZcvLC/Oh1xoI14K9LMX1/ak9FB7ItJa3ttSsEDYh7m
+irTS4KaHxNuQ+HHD/TRXZs/Hs9Wnqwq1GmI/+G0SHzINbyH2h7dZrd0O3CAW
+YHqk9p/HvOvEH+Howpj+cEkjcQD2rTuifqirIw6En1CUkZ3C7INwPuvC5fIB
+Zg9E/fbW1pO5N1dYCYy7vH14fRm7/2DMX4/bW7pGS3owuMaH1016yPL9bA6h
+8yhDsJAmz6t7dZv0UMzcqjd9ka4iPRQTrWsucE3YecJW8nWK6WH40BjAJItf
+iKGDM64NhVWkCyGJLFNWPiXmhONOpKXJbHoD6eG4LLw5n2daQ7oIPdW9Q3Ie
+O58Iqp+jth07d430COTwagL1xbSfMgJLuj+0bRVMj4Qo4/XaGa97pEci1Tnt
+YM4WYo4YTg4LaY8ahkkXY3VzZbbozDPSo5CRevLlm0NUn8ooSEY35iaPsf6J
+RqNleu131X2kR6O7q6sr+ntWv9uX4ztb/gvp27HTMfiv3RrWPzFwKJqV8CPY
+/jEIOC+7WBM4SnoshucWxCM7Wf5iUffFk3SLI6ye41CslWrc3HtWGHEIyFao
+mnezeONgXO6rSdpfHQe/Gw++aZ0ie44Ekr2lWXZvaH1IILY0eX+ViuVDgkHz
+VOffZc3kL4GHId0F55rIPx68bkGMJIryiXgkFfMfdTiweohHsGEcDHTUk388
+3PKPt8xOt5N/As7+dyJ/qYXygQT4/skXdvaz/RNQlNvXZOtCrE5Yni+h1T+S
+v3T5vrsGSYcUvUf7n0zMs3qQYuDur9ZlmdQ/aimqKmJgZc3ilyHyfp794i41
++ctW7tOZ1ZsMVVZ9YcNc5i9DZvP6JV0W3QdHDkO4okZH6jfI8d5Iz98DszQv
+lHLYHtCve2VHulq+PE80/j+RfyI2GhqmOJn6D4mw104FVZTQPFEmgtve4LnP
+jOJTJ6LU0P+bUok5ChjLb2yG+StgTO9FLq2vVMDD5syg+Se0nloBC0MDLOay
+/ZNgbIfNx2keIglSjaoixlwT9D/A5toy
+            "]]}, Annotation[#, "Charting`Private`Tag#1"]& ], 
+         TagBox[{
+           RGBColor[1, 0, 0], 
+           PointSize[
+            NCache[
+             Rational[1, 72], 0.013888888888888888`]], 
+           AbsoluteThickness[2], 
+           LineBox[CompressedData["
+1:eJw1U3tIk3EU/dAEpXwkkj0s7KFpmKRTsyz9WUtt8zG/PdwKhTTXw8L1Jo35
+mVaiYZKRTUT8J6kIiqIHmDEoQmFFYanhH4GCiViNTIog7Dvz3sE2zs495557
+77e15dVypZ8kSZXqG98LL2/WW4/ndHeONot+EBqNpq7VXkI4ULhcrgb5eynh
+MGG32+/HDDEfAfz84WKZ8HLUF4zPGwhHCfWjzXFDTzhaqP287e2FhNeBV7yZ
+OsIboD8T2WIkHIt6re1YMeE4YPfwigLCm5C3wlTB9Qmi0+Xa3DdnIpwIvmUg
+gfNtER6P57ns5XxJyK9b84v9k5Hn75M59tOgn/jgZyacIg7Z7VPTo+yXCn5Z
+4zXulwa/5qAGrt8KPJ5uZJwO/cXcSq7fhjybEjXcfzv6r4yv4PoM4JlwG9fv
+wHxLtRuZ3wn/N35pnCcT+wsO0vF9soCLfuu5XsDPUx5NvCLgt/6n00p8tkjR
+aEZu3GQ+G/69beHM78K8w32vLMT7sFOkMr8b/k/vPmJ+N/i4jHob8Vr02687
+TvMoWvAJ6d/3Eb8H+sb1BjvxPpxu/sHz5EAfHHmL/JQc5FuXK3H/XOCD/eWc
+Pxf+hcM9lEfKw/PwLEOmfkoe/EOaG9h/L+7TNTnE/nuhLxv9yP46+L8eGyas
+6JAnPnWeeT32NxFm5fx63Hemc9ZBfL7v/2FadJL4fLXfZODLkBPEF8DPbf1C
+9UqBmvfxuY5Q5gtVv/ya5ijWF8Kv2Jx2lvgizPdycprqlSKBJczd5v4G1X/F
+18OrCAuDOs9kd+1R7mfAvA7tj6oF7DZgP6ufjHH/Yvgv8r99mvQ+vLV/i5P0
+xdhPk7O1lvTgH2v9Y1pIL8OvqebORdLLar/8jnd1raSX1frZNMt8A+lldT+9
+gVFTl0hvVOuX5ORFst6I+e5VvrlMeiP296/sPetR70lKHKwjvUnFV7uCztaT
+Hvh+/PhIG+lNuEePdKCZ9MC90+evXyG9GfNNXKlivVm996kHa/YppDdj3syI
+uXOkNyPPJ+cu4iWLmlcMLgslLCwq/zlWiSM/xQL/ASWA9uX24UFHKc9fgufz
+yA49zSNKsM8XAeGNpC/BPS/MzPD8qO8NSemgfUlWzLc9MJnzW5HP+LCC/BQr
+7pFd3U353MCegVA91Us27P+b9w/v34Z5fjsSGrP+A4Kipng=
+            "]]}, Annotation[#, "Charting`Private`Tag#2"]& ]}, {
+        "WolframDynamicHighlight", <|
+         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
+       DynamicBox[
+        (Charting`HighlightActionBox["DynamicHighlight", {}, 
+         Slot["HighlightElements"], 
+         Slot["LayoutOptions"], 
+         Slot["Meta"], 
+         Charting`HighlightActionFunction["DynamicHighlight", {{{}, {}, 
+            Annotation[{
+              Hue[0.67, 0.6, 0.6], 
+              Directive[
+               PointSize[
+                Rational[1, 72]], 
+               AbsoluteThickness[2], 
+               RGBColor[0, 0, 1]], 
+              Line[CompressedData["
+1:eJw1lAtMk1cUxxtYJiDTRTADhfAQCTDHgEotdMCfRykUBAptKc5tQUdkkzlB
+MgR5VAxEN7P4iFFQphHE8hAERIcPbAcMa3mNh+Uhig4ijLkxIRkOl62Fc7/k
+y5ff9z/n3nPveTjt+jo+xYTD4aQYXuN35ZkLUqh8uwWCO0H0A/s/W9Vja6Un
+NkPBl3czT3sNEr+LfHv+nvaXOmJrtHqVeNhMM7bBhh8+dddJeont4Hni0qL3
+WsaOsMtN9hnKGSF2RiysktvKO4ld4JP1gZPD+ASxKyz05fsD6p8TuyF7xtXb
+7NoAsQc63f1P6Y71E2/BLRQ+F1kwe0+kCJ7GvnPvMbEXbo9+++/UhnFib+z4
+3GBgNUTsg+hKi/ArKsZcvLC/Oh1xoI14K9LMX1/ak9FB7ItJa3ttSsEDYh7m
+irTS4KaHxNuQ+HHD/TRXZs/Hs9Wnqwq1GmI/+G0SHzINbyH2h7dZrd0O3CAW
+YHqk9p/HvOvEH+Howpj+cEkjcQD2rTuifqirIw6En1CUkZ3C7INwPuvC5fIB
+Zg9E/fbW1pO5N1dYCYy7vH14fRm7/2DMX4/bW7pGS3owuMaH1016yPL9bA6h
+8yhDsJAmz6t7dZv0UMzcqjd9ka4iPRQTrWsucE3YecJW8nWK6WH40BjAJItf
+iKGDM64NhVWkCyGJLFNWPiXmhONOpKXJbHoD6eG4LLw5n2daQ7oIPdW9Q3Ie
+O58Iqp+jth07d430COTwagL1xbSfMgJLuj+0bRVMj4Qo4/XaGa97pEci1Tnt
+YM4WYo4YTg4LaY8ahkkXY3VzZbbozDPSo5CRevLlm0NUn8ooSEY35iaPsf6J
+RqNleu131X2kR6O7q6sr+ntWv9uX4ztb/gvp27HTMfiv3RrWPzFwKJqV8CPY
+/jEIOC+7WBM4SnoshucWxCM7Wf5iUffFk3SLI6ye41CslWrc3HtWGHEIyFao
+mnezeONgXO6rSdpfHQe/Gw++aZ0ie44Ekr2lWXZvaH1IILY0eX+ViuVDgkHz
+VOffZc3kL4GHId0F55rIPx68bkGMJIryiXgkFfMfdTiweohHsGEcDHTUk388
+3PKPt8xOt5N/As7+dyJ/qYXygQT4/skXdvaz/RNQlNvXZOtCrE5Yni+h1T+S
+v3T5vrsGSYcUvUf7n0zMs3qQYuDur9ZlmdQ/aimqKmJgZc3ilyHyfp794i41
++ctW7tOZ1ZsMVVZ9YcNc5i9DZvP6JV0W3QdHDkO4okZH6jfI8d5Iz98DszQv
+lHLYHtCve2VHulq+PE80/j+RfyI2GhqmOJn6D4mw104FVZTQPFEmgtve4LnP
+jOJTJ6LU0P+bUok5ChjLb2yG+StgTO9FLq2vVMDD5syg+Se0nloBC0MDLOay
+/ZNgbIfNx2keIglSjaoixlwT9D/A5toy
+               "]]}, "Charting`Private`Tag#1"], 
+            Annotation[{
+              Hue[0.9060679774997897, 0.6, 0.6], 
+              Directive[
+               PointSize[
+                Rational[1, 72]], 
+               AbsoluteThickness[2], 
+               RGBColor[1, 0, 0]], 
+              Line[CompressedData["
+1:eJw1U3tIk3EU/dAEpXwkkj0s7KFpmKRTsyz9WUtt8zG/PdwKhTTXw8L1Jo35
+mVaiYZKRTUT8J6kIiqIHmDEoQmFFYanhH4GCiViNTIog7Dvz3sE2zs495557
+77e15dVypZ8kSZXqG98LL2/WW4/ndHeONot+EBqNpq7VXkI4ULhcrgb5eynh
+MGG32+/HDDEfAfz84WKZ8HLUF4zPGwhHCfWjzXFDTzhaqP287e2FhNeBV7yZ
+OsIboD8T2WIkHIt6re1YMeE4YPfwigLCm5C3wlTB9Qmi0+Xa3DdnIpwIvmUg
+gfNtER6P57ns5XxJyK9b84v9k5Hn75M59tOgn/jgZyacIg7Z7VPTo+yXCn5Z
+4zXulwa/5qAGrt8KPJ5uZJwO/cXcSq7fhjybEjXcfzv6r4yv4PoM4JlwG9fv
+wHxLtRuZ3wn/N35pnCcT+wsO0vF9soCLfuu5XsDPUx5NvCLgt/6n00p8tkjR
+aEZu3GQ+G/69beHM78K8w32vLMT7sFOkMr8b/k/vPmJ+N/i4jHob8Vr02687
+TvMoWvAJ6d/3Eb8H+sb1BjvxPpxu/sHz5EAfHHmL/JQc5FuXK3H/XOCD/eWc
+Pxf+hcM9lEfKw/PwLEOmfkoe/EOaG9h/L+7TNTnE/nuhLxv9yP46+L8eGyas
+6JAnPnWeeT32NxFm5fx63Hemc9ZBfL7v/2FadJL4fLXfZODLkBPEF8DPbf1C
+9UqBmvfxuY5Q5gtVv/ya5ijWF8Kv2Jx2lvgizPdycprqlSKBJczd5v4G1X/F
+18OrCAuDOs9kd+1R7mfAvA7tj6oF7DZgP6ufjHH/Yvgv8r99mvQ+vLV/i5P0
+xdhPk7O1lvTgH2v9Y1pIL8OvqebORdLLar/8jnd1raSX1frZNMt8A+lldT+9
+gVFTl0hvVOuX5ORFst6I+e5VvrlMeiP296/sPetR70lKHKwjvUnFV7uCztaT
+Hvh+/PhIG+lNuEePdKCZ9MC90+evXyG9GfNNXKlivVm996kHa/YppDdj3syI
+uXOkNyPPJ+cu4iWLmlcMLgslLCwq/zlWiSM/xQL/ASWA9uX24UFHKc9fgufz
+yA49zSNKsM8XAeGNpC/BPS/MzPD8qO8NSemgfUlWzLc9MJnzW5HP+LCC/BQr
+7pFd3U353MCegVA91Us27P+b9w/v34Z5fjsSGrP+A4Kipng=
+               "]]}, "Charting`Private`Tag#2"]}}, <|
+          "HighlightElements" -> <|
+            "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
+           "LayoutOptions" -> <|
+            "PlotRange" -> {{0., 101.}, {0., 1.}}, 
+             "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0., 0},
+              "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
+             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
+             "DefaultStyle" -> {
+               Directive[
+                PointSize[
+                 Rational[1, 72]], 
+                AbsoluteThickness[2], 
+                RGBColor[1, 0, 0]], 
+               Directive[
+                PointSize[
+                 Rational[1, 72]], 
+                AbsoluteThickness[2], 
+                RGBColor[0, 0, 1]]}, 
+             "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
+                 Identity[
+                  Part[#, 1]], 
+                 Identity[
+                  Part[#, 2]]}& ), 
+               "ScalingFunctions" -> {{Identity, Identity}, {
+                 Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
+             False|>, 
+           "Meta" -> <|
+            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
+             "Function" -> ListLinePlot, "GroupHighlight" -> False|>|>]]& )[<|
+         "HighlightElements" -> <|
+           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
+          "LayoutOptions" -> <|
+           "PlotRange" -> {{0., 101.}, {0., 1.}}, 
+            "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0., 0}, 
+            "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
+            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
+            "DefaultStyle" -> {
+              Directive[
+               PointSize[
+                Rational[1, 72]], 
+               AbsoluteThickness[2], 
+               RGBColor[1, 0, 0]], 
+              Directive[
+               PointSize[
+                Rational[1, 72]], 
+               AbsoluteThickness[2], 
+               RGBColor[0, 0, 1]]}, 
+            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
+                Identity[
+                 Part[#, 1]], 
+                Identity[
+                 Part[#, 2]]}& ), 
+              "ScalingFunctions" -> {{Identity, Identity}, {
+                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
+            False|>, 
+          "Meta" -> <|
+           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
+            ListLinePlot, "GroupHighlight" -> False|>|>], 
+        ImageSizeCache -> {{4.503599627370496*^15, -4.503599627370496*^15}, {
+         4.503599627370496*^15, -4.503599627370496*^15}}]}, 
+      Annotation[{{{}, {}, 
+         Annotation[{
+           Hue[0.67, 0.6, 0.6], 
+           Directive[
+            PointSize[
+             Rational[1, 72]], 
+            AbsoluteThickness[2], 
+            RGBColor[0, 0, 1]], 
+           Line[CompressedData["
+1:eJw1lAtMk1cUxxtYJiDTRTADhfAQCTDHgEotdMCfRykUBAptKc5tQUdkkzlB
+MgR5VAxEN7P4iFFQphHE8hAERIcPbAcMa3mNh+Uhig4ijLkxIRkOl62Fc7/k
+y5ff9z/n3nPveTjt+jo+xYTD4aQYXuN35ZkLUqh8uwWCO0H0A/s/W9Vja6Un
+NkPBl3czT3sNEr+LfHv+nvaXOmJrtHqVeNhMM7bBhh8+dddJeont4Hni0qL3
+WsaOsMtN9hnKGSF2RiysktvKO4ld4JP1gZPD+ASxKyz05fsD6p8TuyF7xtXb
+7NoAsQc63f1P6Y71E2/BLRQ+F1kwe0+kCJ7GvnPvMbEXbo9+++/UhnFib+z4
+3GBgNUTsg+hKi/ArKsZcvLC/Oh1xoI14K9LMX1/ak9FB7ItJa3ttSsEDYh7m
+irTS4KaHxNuQ+HHD/TRXZs/Hs9Wnqwq1GmI/+G0SHzINbyH2h7dZrd0O3CAW
+YHqk9p/HvOvEH+Howpj+cEkjcQD2rTuifqirIw6En1CUkZ3C7INwPuvC5fIB
+Zg9E/fbW1pO5N1dYCYy7vH14fRm7/2DMX4/bW7pGS3owuMaH1016yPL9bA6h
+8yhDsJAmz6t7dZv0UMzcqjd9ka4iPRQTrWsucE3YecJW8nWK6WH40BjAJItf
+iKGDM64NhVWkCyGJLFNWPiXmhONOpKXJbHoD6eG4LLw5n2daQ7oIPdW9Q3Ie
+O58Iqp+jth07d430COTwagL1xbSfMgJLuj+0bRVMj4Qo4/XaGa97pEci1Tnt
+YM4WYo4YTg4LaY8ahkkXY3VzZbbozDPSo5CRevLlm0NUn8ooSEY35iaPsf6J
+RqNleu131X2kR6O7q6sr+ntWv9uX4ztb/gvp27HTMfiv3RrWPzFwKJqV8CPY
+/jEIOC+7WBM4SnoshucWxCM7Wf5iUffFk3SLI6ye41CslWrc3HtWGHEIyFao
+mnezeONgXO6rSdpfHQe/Gw++aZ0ie44Ekr2lWXZvaH1IILY0eX+ViuVDgkHz
+VOffZc3kL4GHId0F55rIPx68bkGMJIryiXgkFfMfdTiweohHsGEcDHTUk388
+3PKPt8xOt5N/As7+dyJ/qYXygQT4/skXdvaz/RNQlNvXZOtCrE5Yni+h1T+S
+v3T5vrsGSYcUvUf7n0zMs3qQYuDur9ZlmdQ/aimqKmJgZc3ilyHyfp794i41
++ctW7tOZ1ZsMVVZ9YcNc5i9DZvP6JV0W3QdHDkO4okZH6jfI8d5Iz98DszQv
+lHLYHtCve2VHulq+PE80/j+RfyI2GhqmOJn6D4mw104FVZTQPFEmgtve4LnP
+jOJTJ6LU0P+bUok5ChjLb2yG+StgTO9FLq2vVMDD5syg+Se0nloBC0MDLOay
+/ZNgbIfNx2keIglSjaoixlwT9D/A5toy
+            "]]}, "Charting`Private`Tag#1"], 
+         Annotation[{
+           Hue[0.9060679774997897, 0.6, 0.6], 
+           Directive[
+            PointSize[
+             Rational[1, 72]], 
+            AbsoluteThickness[2], 
+            RGBColor[1, 0, 0]], 
+           Line[CompressedData["
+1:eJw1U3tIk3EU/dAEpXwkkj0s7KFpmKRTsyz9WUtt8zG/PdwKhTTXw8L1Jo35
+mVaiYZKRTUT8J6kIiqIHmDEoQmFFYanhH4GCiViNTIog7Dvz3sE2zs495557
+77e15dVypZ8kSZXqG98LL2/WW4/ndHeONot+EBqNpq7VXkI4ULhcrgb5eynh
+MGG32+/HDDEfAfz84WKZ8HLUF4zPGwhHCfWjzXFDTzhaqP287e2FhNeBV7yZ
+OsIboD8T2WIkHIt6re1YMeE4YPfwigLCm5C3wlTB9Qmi0+Xa3DdnIpwIvmUg
+gfNtER6P57ns5XxJyK9b84v9k5Hn75M59tOgn/jgZyacIg7Z7VPTo+yXCn5Z
+4zXulwa/5qAGrt8KPJ5uZJwO/cXcSq7fhjybEjXcfzv6r4yv4PoM4JlwG9fv
+wHxLtRuZ3wn/N35pnCcT+wsO0vF9soCLfuu5XsDPUx5NvCLgt/6n00p8tkjR
+aEZu3GQ+G/69beHM78K8w32vLMT7sFOkMr8b/k/vPmJ+N/i4jHob8Vr02687
+TvMoWvAJ6d/3Eb8H+sb1BjvxPpxu/sHz5EAfHHmL/JQc5FuXK3H/XOCD/eWc
+Pxf+hcM9lEfKw/PwLEOmfkoe/EOaG9h/L+7TNTnE/nuhLxv9yP46+L8eGyas
+6JAnPnWeeT32NxFm5fx63Hemc9ZBfL7v/2FadJL4fLXfZODLkBPEF8DPbf1C
+9UqBmvfxuY5Q5gtVv/ya5ijWF8Kv2Jx2lvgizPdycprqlSKBJczd5v4G1X/F
+18OrCAuDOs9kd+1R7mfAvA7tj6oF7DZgP6ufjHH/Yvgv8r99mvQ+vLV/i5P0
+xdhPk7O1lvTgH2v9Y1pIL8OvqebORdLLar/8jnd1raSX1frZNMt8A+lldT+9
+gVFTl0hvVOuX5ORFst6I+e5VvrlMeiP296/sPetR70lKHKwjvUnFV7uCztaT
+Hvh+/PhIG+lNuEePdKCZ9MC90+evXyG9GfNNXKlivVm996kHa/YppDdj3syI
+uXOkNyPPJ+cu4iWLmlcMLgslLCwq/zlWiSM/xQL/ASWA9uX24UFHKc9fgufz
+yA49zSNKsM8XAeGNpC/BPS/MzPD8qO8NSemgfUlWzLc9MJnzW5HP+LCC/BQr
+7pFd3U353MCegVA91Us27P+b9w/v34Z5fjsSGrP+A4Kipng=
+            "]]}, "Charting`Private`Tag#2"]}}, <|
+       "HighlightElements" -> <|
+         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
+        "LayoutOptions" -> <|
+         "PlotRange" -> {{0., 101.}, {0., 1.}}, 
+          "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0., 0}, 
+          "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
+          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
+          "DefaultStyle" -> {
+            Directive[
+             PointSize[
+              Rational[1, 72]], 
+             AbsoluteThickness[2], 
+             RGBColor[1, 0, 0]], 
+            Directive[
+             PointSize[
+              Rational[1, 72]], 
+             AbsoluteThickness[2], 
+             RGBColor[0, 0, 1]]}, 
+          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
+              Identity[
+               Part[#, 1]], 
+              Identity[
+               Part[#, 2]]}& ), 
+            "ScalingFunctions" -> {{Identity, Identity}, {
+              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
+         "Meta" -> <|
+         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
+          ListLinePlot, "GroupHighlight" -> False|>|>, 
+       "DynamicHighlight"]], {{}, {}}}, AspectRatio -> 
+    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
+    AxesLabel -> {None, None}, AxesOrigin -> {0., 0}, DisplayFunction -> 
+    Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
+       FormBox[
+        TagBox["\"Runtime [ms]\"", HoldForm], TraditionalForm], None}, {
+       FormBox[
+        TagBox["\"n\"", HoldForm], TraditionalForm], None}}, 
+    FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+    GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[
+      GrayLevel[0.5, 0.4]], ImageSize -> Large, 
+    Method -> {
+     "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
+      "DefaultGraphicsInteraction" -> {
+       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+        "Effects" -> {
+         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+          "Droplines" -> {
+           "freeformCursorMode" -> True, 
+            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+      "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
+        Directive[
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.922526, 0.385626, 0.209179], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.528488, 0.470624, 0.701351], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.772079, 0.431554, 0.102387], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.363898, 0.618501, 0.782349], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[1, 0.75, 0], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.647624, 0.37816, 0.614037], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.571589, 0.586483, 0.], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.915, 0.3325, 0.2125], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
+         AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
+      "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, 
+      "IncludeHighlighting" -> "CurrentSet", "HighlightStyle" -> Automatic, 
+      "OptimizePlotMarkers" -> True, 
+      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+          Identity[
+           Part[#, 1]], 
+          Identity[
+           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+          Identity[
+           Part[#, 1]], 
+          Identity[
+           Part[#, 2]]}& )}}, PlotLabel -> FormBox[
+      TemplateBox[{
+        StyleBox[
+        "\"Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smod)\"", Bold, 13,
+          StripOnInput -> False], "\"\\n\"", 
+        StyleBox[
+        "\"x: 20.0, to each value of n \\n\"", 12, StripOnInput -> False]}, 
+       "RowDefault"], TraditionalForm], PlotRange -> {{0., 101.}, {0., 1.}}, 
+    PlotRangeClipping -> True, PlotRangePadding -> {{
+       Scaled[0.02], 
+       Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}], 
+   FormBox[
+    FormBox[
+     TemplateBox[{
+      "\" avg[Wavefunction_Wolfram1] = \
+\\!\\(\\*FormBox[\\\"0.18305078940816441046557372374081751332`20.\\\", \
+TraditionalForm]\\) ms;\"", 
+       "\" avg[Fast-Wave(smod)] = \
+\\!\\(\\*FormBox[\\\"0.004450561881216938409089323158696061`20.\\\", \
+TraditionalForm]\\) ms\""}, "LineLegend", DisplayFunction -> (FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[2], 
+                    RGBColor[0, 0, 1]], {
+                    LineBox[{{0, 12.5}, {20, 12.5}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[2], 
+                    RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 12.5}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.18000000000000002`] -> 
+                    Baseline)], #}}, 
+                 GridBoxAlignment -> {
+                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
+                 AutoDelete -> False, 
+                 GridBoxDividers -> {
+                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
+                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
+                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, {
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[2], 
+                    RGBColor[1, 0, 0]], {
+                    LineBox[{{0, 12.5}, {20, 12.5}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[2], 
+                    RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 12.5}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.18000000000000002`] -> 
+                    Baseline)], #2}}, 
+                 GridBoxAlignment -> {
+                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
+                 AutoDelete -> False, 
+                 GridBoxDividers -> {
+                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
+                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
+                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
+             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
+             AutoDelete -> False, 
+             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
+             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
+             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
+            "Grid"], Alignment -> Left, AppearanceElements -> None, 
+           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
+           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
+         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
+         False], TraditionalForm]& ), 
+      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "72"], "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", 
+                   
+                   TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>, 
+                    "RGBColorSwatchTemplate"]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "72"], "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", 
+                   
+                   TemplateBox[<|"color" -> RGBColor[1, 0, 0]|>, 
+                    "RGBColorSwatchTemplate"]}], "]"}]}], "}"}], ",", 
+           RowBox[{"{", 
+             RowBox[{#, ",", #2}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
+           RowBox[{"Joined", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"True", ",", "True"}], "}"}]}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"{", "}"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}]}], "]"}]& ), 
+      Editable -> True], TraditionalForm], TraditionalForm]},
+  "Legended",
+  DisplayFunction->(GridBox[{{
+      TagBox[
+       ItemBox[
+        PaneBox[
+         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
+         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
+       "SkipImageSizeLevel"]}, {
+      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
+    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
+    AutoDelete -> False, GridBoxItemSize -> Automatic, 
+    BaselinePosition -> {1, 1}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{"Legended", "[", 
+     RowBox[{#, ",", 
+       RowBox[{"Placed", "[", 
+         RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
+ CellChangeTimes->{3.931941834296234*^9, 3.93194263666739*^9, 
+  3.9319428228609266`*^9},
+ CellLabel->"Out[44]=",ExpressionUUID->"0f702706-4ff7-4666-bdba-eae314177df7"]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  FormBox[
+   TemplateBox[<|
+    "boxes" -> FormBox["\[FivePointedStar]", TraditionalForm], "errors" -> {},
+      "input" -> "\\star", "state" -> "Boxes"|>,
+    "TeXAssistantTemplate"], TraditionalForm]],
+  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
+  "88746e48-ec7f-41e8-867f-21ef0172e957"],
+ StyleBox[" Single-Mode ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["and",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["Onedimensional",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["speed",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["test (less_fast)",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]]
+}], "Subsubsection",
+ CellChangeTimes->{
+  3.9319411674016542`*^9, {3.9319411983717346`*^9, 
+   3.9319412031614957`*^9}},ExpressionUUID->"60a47f8b-5c4c-4d77-b984-\
+be536bfb27e7"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"FastWaveSMODList", "=", 
+    RowBox[{"Normal", "[", 
+     RowBox[{"ExternalEvaluate", "[", 
+      RowBox[{
+      "\"\<Python\>\"", ",", "                      ", 
+       "\"\<from fast_wave.wavefunction import wavefunction_smod;import \
+timeit;N_max = 100;x = 20.0;[(timeit.timeit(lambda : wavefunction_smod(n, x, \
+more_fast=False) , number=10000)/10000)*1000 for n in range(N_max+1)];\>\""}],
+       "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"WavefunctionWolframSMODList", " ", "=", " ", 
+   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"For", "[", 
+   RowBox[{
+    RowBox[{"i", "=", "1"}], ",", 
+    RowBox[{"i", "<=", 
+     RowBox[{"(", 
+      RowBox[{"Nmax", "+", "1"}], ")"}]}], ",", 
+    RowBox[{"i", "++"}], ",", 
+    RowBox[{
+     RowBox[{"AppendTo", "[", 
+      RowBox[{"WavefunctionWolframSMODList", ",", "\[IndentingNewLine]", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"RepeatedTiming", "[", 
+          RowBox[{"WavefunctionMathematica1", "[", 
+           RowBox[{
+            RowBox[{"i", "-", "1"}], ",", "x", ",", "prec"}], "]"}], "]"}], 
+         "[", 
+         RowBox[{"[", "1", "]"}], "]"}], "*", "1000"}]}], "]"}], ";"}]}], 
+   "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{"ListLinePlot", "[", "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"WavefunctionWolframSMODList", ",", "FastWaveSMODList"}], "}"}], 
+   ",", "\[IndentingNewLine]", 
+   RowBox[{"PlotStyle", "->", 
+    RowBox[{"{", 
+     RowBox[{"Blue", ",", " ", "Red"}], "}"}]}], ",", "\[IndentingNewLine]", 
+   RowBox[{"Frame", "->", "True"}], ",", "\[IndentingNewLine]", 
+   RowBox[{"FrameLabel", "->", 
+    RowBox[{"{", 
+     RowBox[{"\"\<n\>\"", ",", "\"\<Runtime [ms]\>\""}], "}"}]}], ",", 
+   "\[IndentingNewLine]", 
+   RowBox[{"PlotLabel", "->", 
+    RowBox[{"Row", "[", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Style", "[", 
+        RowBox[{
+        "\"\<Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smod; less_fast)\
+\>\"", ",", "Bold", ",", "13"}], "]"}], ",", "\"\<\\n\>\"", ",", 
+       RowBox[{"Style", "[", 
+        RowBox[{"\"\<x: 20.0, to each value of n \\n\>\"", ",", "12"}], 
+        "]"}]}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", 
+   RowBox[{"GridLines", "->", "Automatic"}], ",", "\[IndentingNewLine]", 
+   RowBox[{"PlotLegends", "->", 
+    RowBox[{"Placed", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"\"\< avg[Wavefunction_Wolfram1] = \>\"", " ", "<>", 
+         RowBox[{"ToString", "[", 
+          RowBox[{
+           RowBox[{"SetPrecision", "[", 
+            RowBox[{
+             RowBox[{"Mean", "[", "WavefunctionWolframSMODList", "]"}], ",", 
+             "20"}], "]"}], ",", "TraditionalForm"}], "]"}], " ", "<>", " ", 
+         "\"\< ms;\>\""}], " ", ",", "\[IndentingNewLine]", 
+        RowBox[{"\"\< avg[Fast-Wave(smod; less_fast)] = \>\"", "<>", " ", 
+         RowBox[{"ToString", "[", 
+          RowBox[{
+           RowBox[{"SetPrecision", "[", 
+            RowBox[{
+             RowBox[{"Mean", "[", "FastWaveSMODList", "]"}], ",", "20"}], 
+            "]"}], ",", "TraditionalForm"}], "]"}], " ", "<>", " ", 
+         "\"\< ms\>\""}]}], "}"}], ",", "Below"}], "]"}]}], ",", 
+   "\[IndentingNewLine]", 
+   RowBox[{"ImageSize", "->", "Large"}], " ", ",", "\[IndentingNewLine]", 
+   RowBox[{"PlotRange", "->", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"Automatic", ",", "Automatic"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"0", ",", "1.0"}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]", 
+  "]"}]}], "Input",
+ CellChangeTimes->{{3.9319449390220575`*^9, 3.9319449771504383`*^9}, {
+  3.9319452109783397`*^9, 3.931945212159335*^9}, {3.9319454830680485`*^9, 
+  3.9319455045503016`*^9}, {3.9319456907497377`*^9, 3.931945691160589*^9}},
+ CellLabel->"In[25]:=",ExpressionUUID->"363ea505-7335-4968-933c-f0ee8e6d7ed6"],
+
+Cell[BoxData["\<\"Functionality Test Passed: True\"\>"], "Print",
+ CellChangeTimes->{3.9319449967526617`*^9, 3.931945218932815*^9, 
+  3.9319455152411747`*^9, 3.931945700048973*^9},
+ CellLabel->
+  "During evaluation of \
+In[25]:=",ExpressionUUID->"b4bb99c9-3b5e-445f-849a-6d361fef017e"],
+
+Cell[BoxData[
+ TemplateBox[{
+   GraphicsBox[{{}, 
+     InterpretationBox[{
+       TagBox[{{{}, {}, 
+          TagBox[{
+            Hue[0.67, 0.6, 0.6], 
+            Directive[
+             PointSize[
+              NCache[
+               Rational[1, 72], 0.013888888888888888`]], 
+             AbsoluteThickness[2], 
+             RGBColor[0, 0, 1]], 
+            LineBox[CompressedData["
+1:eJw1lAlM02cYxuvCMUhcJkOGHAYYsnFWoBzjWB+k5S6FthRwIG6MDBsGCyjC
+1FhgbOqwHiPBOIIcgjidAsJ0Zuqfo2BxLEgYSEKEMRAVjw4cbFN0Hbxfk6b5
+9fk//7zv9z7v5/hxnizrNR6Pl2X4/v+7+tELs51yir4ovy6kP1DtW98+2veA
++HXoFJ3Np7lZ4jeRf0gzPT98l9gSdzIKpTUvh4itcbgq16Jsmr3PDp7hdnNT
+O/uIHZBnUcb1O3LETijIPvb4hegSsTPmEq9sLDe/SOyCDQWjFvPPzxO/h4H0
+2JumGva8G0qMtEdah1qIPfCoJsRjuJf5vXD88V5hh5zVsxkJG61UA36MvaEx
+0VtFubUT++Dg0N3Jb0KuEPtCV3j9lE1qG7EA/tuuRlds6iH2wwYj5RueghvE
+/giw4T6sjewgDsA7MXvK+J3MH4h3aw+2/C5h9b6PpemP6kZmmB6EEe1nAvWy
+ljgYDws61j+37yYOQXWPQ0u+E+NQVMQ8NBKofib+AG1euQ0lg0wXwtTQ3qAH
+Y+Co927POsnlVVYDyf0+Pa3in0gPg6C+PaCom/pXh6G71fDCC+w8t+Dk7ur6
+hk8bSN+C+2Pn/x2/XE96OJZ2TVav09aSHg5un33grFkz6SLUqF26vqpvJF2E
+uSl/G866iXQx8m3XTnpeOk26eCUPxveIeRGYkB6uejJRR3oEwrbPDDqVE/Mi
+ceOUDT99gvkjkbl/LPQfl3OkR+E35SN+cPY10qNgr5sROm/VkR4NlE71ndhP
+eVZHw+uV4/Kiey/pMej+5PvtwxzlRx2DB1GGJyLZPGMxEBx/+1g26y8WTcV9
+rlf9WH9xsLAU9qZZMj0OwZ//ekBWfJZ0Cfi5DWte7KN5qSUr/ebu7SQ9Hgb7
+eIcdqz8epQURlYtmLL9SmNnWbHONbyVdCunFyqwDk2x/EhD2Z+Yv6QtUDxLw
+TCPf6XzyDD2fgELD+LJyqD8uAev8Q67JLrD8JK7MN1E1SP5E7MjTl+tEtM/q
+RHS97SIvDxohfyKeLQ8X7bBl+yJb2Vfvv6kfyKAeCy1OSWPnKYPky7VSfjTN
+g5NBbtxwPMiX7asc7l9bjcU3Uz4hx8isyr1QxM5DDkM3Va9MaR85OUYFTwO1
+nbfIr4D2Zdue+RzSoUDGibj1FY1d5FfAxDCgiHCqj1PAIfPJ1i4N6byklXkN
+zRIjCeYRm3aVivvJnwTFH43fiQooL1wSngaKI+eNWf9KVC6aZFjriaFcvQ/P
+0fzUSowY6hWrWP1K3LM/c/9mEMtXMlSSBc23OjpvJK/s+5pJlpdk3CkxBKKV
+dC4ZbmffGhTp2f2SgrQjXX8136Z9RwrK+HFN5nq6P9Qp8Ena7OZaRPVwKbAz
+rONRK+ZPxa068Y8LSz+QPxUhhriP+7cL/wOmQNt8
+             "]]}, Annotation[#, "Charting`Private`Tag#1"]& ], 
+          TagBox[{
+            Hue[0.9060679774997897, 0.6, 0.6], 
+            Directive[
+             PointSize[
+              NCache[
+               Rational[1, 72], 0.013888888888888888`]], 
+             AbsoluteThickness[2], 
+             RGBColor[1, 0, 0]], 
+            LineBox[CompressedData["
+1:eJw9lAlIlFEQx5cKNBBNMEgwSiu11ST7LI8y36p55LHqqrtroFb4ebQhbZFp
+qZ+UR62VlgfbWmmRVgZWCgp2fB0E0RdZSmAXRmUFJZqEdNobnUlY5bf/NzNv
+/jNP922FKTlzVCpVDv/A39mf8TBFUfY80ZvC8Av2WInv049ake2ZotR+u/FZ
+Ql7A+K+8Ud8aZBdmtbqK2Y/2IS9igiC0fug+iOzGefdL57pq5KUsQOgWLpwo
+RfZgp6xWm4tlD/Jyzq6Ot5wo3pOJohj4bHslsjfn0fw/l6ieGu471farCNkX
+9I7Nh/Yj+8H98gJlqrca6s/VrqR4f4j3zcgtRl7DcsXR5g5/YgF0txFzCXIA
+6Ad7Cyj/WrhvdImlCnkd9L/qhw9xIOfuqfKtdD6Ix4uD3g/LkYMh3nnVOdJD
+gD8tLqP666GfptaBA8gbQP/4vIH0UD4PyVRYSrwR+LvwlTgM6rfbaymewfx8
+MpvRL4lBvqCeLjqvgXgf2008L2l4/y0ew1XnUA+HedW9F7E/KRz8KdPcoftH
+QP7D7jd3oR7B/Raup16h+UZCfrPTUaofCf0VaTpI38Tz1VoMtgrUN4HeXuBo
+Rj0KeDBgGuchRUG+unk+tJ/RfN5Wr7gdNtSjQb/wuwXzqWI4y1lDdh2ox8B+
+FAp+J1GP5X7NPRX+oA31WH6fyKUJnddQ38zjx7uG8q+iDiyPLROOoR7H8wU/
+VWlOox7H/TLef5hdj3o8+F3h8rkW9Xie32RL1DegnsD14srLoY2oJ/D3ZxJz
+r9J7TAT/V4xsOYx6IryPrraYo6hrYf9KJ0KPoK6F/l+8i6D3msSZRdjLOD+W
+BPvct/cVvk8pid/HYYLF1c2yPKOfbbRYMD6Z92d0qJnC+iwZ+lE3zqd6yfDe
+Xc1q1GU4P3w3ZyH5kwLzVdeX4XmWAv4531NQl4BVprFK7EcGZsUfbJhPpYP5
+C6E9VF/H601Oqv/7oYPz8bkK1ddB/X4vC9ZTpcK+2l20Yj8M+Et09nQzxqey
+6enbIZEnjmN8Kq/XfqbTn+qngZ/GnzspPg30jPlLqP8ZPm99TfXTYB8nGkrI
+v3T+HnRSyxj6y9Jhnr//xqIupcP9Jqt9kWVg5fKcDPr/qQf//DwfUf0ZdtIu
+o3g93xdF/7MX5y3ref7hGkMn7beB389TL7rj/jEDn6/nhqx+9FsCrvLOGmjC
+eAPsb2arhuZnBH/Mb/ajP8wI933b8Ks+7B+W1bvL
+             "]]}, Annotation[#, "Charting`Private`Tag#2"]& ]}}, {
+        "WolframDynamicHighlight", <|
+         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
+       DynamicBox[
+        (Charting`HighlightActionBox["DynamicHighlight", {}, 
+         Slot["HighlightElements"], 
+         Slot["LayoutOptions"], 
+         Slot["Meta"], 
+         Charting`HighlightActionFunction["DynamicHighlight", {{{}, {}, 
+            Annotation[{
+              Hue[0.67, 0.6, 0.6], 
+              Directive[
+               PointSize[
+                Rational[1, 72]], 
+               AbsoluteThickness[2], 
+               RGBColor[0, 0, 1]], 
+              Line[CompressedData["
+1:eJw1lAlM02cYxuvCMUhcJkOGHAYYsnFWoBzjWB+k5S6FthRwIG6MDBsGCyjC
+1FhgbOqwHiPBOIIcgjidAsJ0Zuqfo2BxLEgYSEKEMRAVjw4cbFN0Hbxfk6b5
+9fk//7zv9z7v5/hxnizrNR6Pl2X4/v+7+tELs51yir4ovy6kP1DtW98+2veA
++HXoFJ3Np7lZ4jeRf0gzPT98l9gSdzIKpTUvh4itcbgq16Jsmr3PDp7hdnNT
+O/uIHZBnUcb1O3LETijIPvb4hegSsTPmEq9sLDe/SOyCDQWjFvPPzxO/h4H0
+2JumGva8G0qMtEdah1qIPfCoJsRjuJf5vXD88V5hh5zVsxkJG61UA36MvaEx
+0VtFubUT++Dg0N3Jb0KuEPtCV3j9lE1qG7EA/tuuRlds6iH2wwYj5RueghvE
+/giw4T6sjewgDsA7MXvK+J3MH4h3aw+2/C5h9b6PpemP6kZmmB6EEe1nAvWy
+ljgYDws61j+37yYOQXWPQ0u+E+NQVMQ8NBKofib+AG1euQ0lg0wXwtTQ3qAH
+Y+Co927POsnlVVYDyf0+Pa3in0gPg6C+PaCom/pXh6G71fDCC+w8t+Dk7ur6
+hk8bSN+C+2Pn/x2/XE96OJZ2TVav09aSHg5un33grFkz6SLUqF26vqpvJF2E
+uSl/G866iXQx8m3XTnpeOk26eCUPxveIeRGYkB6uejJRR3oEwrbPDDqVE/Mi
+ceOUDT99gvkjkbl/LPQfl3OkR+E35SN+cPY10qNgr5sROm/VkR4NlE71ndhP
+eVZHw+uV4/Kiey/pMej+5PvtwxzlRx2DB1GGJyLZPGMxEBx/+1g26y8WTcV9
+rlf9WH9xsLAU9qZZMj0OwZ//ekBWfJZ0Cfi5DWte7KN5qSUr/ebu7SQ9Hgb7
+eIcdqz8epQURlYtmLL9SmNnWbHONbyVdCunFyqwDk2x/EhD2Z+Yv6QtUDxLw
+TCPf6XzyDD2fgELD+LJyqD8uAev8Q67JLrD8JK7MN1E1SP5E7MjTl+tEtM/q
+RHS97SIvDxohfyKeLQ8X7bBl+yJb2Vfvv6kfyKAeCy1OSWPnKYPky7VSfjTN
+g5NBbtxwPMiX7asc7l9bjcU3Uz4hx8isyr1QxM5DDkM3Va9MaR85OUYFTwO1
+nbfIr4D2Zdue+RzSoUDGibj1FY1d5FfAxDCgiHCqj1PAIfPJ1i4N6byklXkN
+zRIjCeYRm3aVivvJnwTFH43fiQooL1wSngaKI+eNWf9KVC6aZFjriaFcvQ/P
+0fzUSowY6hWrWP1K3LM/c/9mEMtXMlSSBc23OjpvJK/s+5pJlpdk3CkxBKKV
+dC4ZbmffGhTp2f2SgrQjXX8136Z9RwrK+HFN5nq6P9Qp8Ena7OZaRPVwKbAz
+rONRK+ZPxa068Y8LSz+QPxUhhriP+7cL/wOmQNt8
+               "]]}, "Charting`Private`Tag#1"], 
+            Annotation[{
+              Hue[0.9060679774997897, 0.6, 0.6], 
+              Directive[
+               PointSize[
+                Rational[1, 72]], 
+               AbsoluteThickness[2], 
+               RGBColor[1, 0, 0]], 
+              Line[CompressedData["
+1:eJw9lAlIlFEQx5cKNBBNMEgwSiu11ST7LI8y36p55LHqqrtroFb4ebQhbZFp
+qZ+UR62VlgfbWmmRVgZWCgp2fB0E0RdZSmAXRmUFJZqEdNobnUlY5bf/NzNv
+/jNP922FKTlzVCpVDv/A39mf8TBFUfY80ZvC8Av2WInv049ake2ZotR+u/FZ
+Ql7A+K+8Ud8aZBdmtbqK2Y/2IS9igiC0fug+iOzGefdL57pq5KUsQOgWLpwo
+RfZgp6xWm4tlD/Jyzq6Ot5wo3pOJohj4bHslsjfn0fw/l6ieGu471farCNkX
+9I7Nh/Yj+8H98gJlqrca6s/VrqR4f4j3zcgtRl7DcsXR5g5/YgF0txFzCXIA
+6Ad7Cyj/WrhvdImlCnkd9L/qhw9xIOfuqfKtdD6Ix4uD3g/LkYMh3nnVOdJD
+gD8tLqP666GfptaBA8gbQP/4vIH0UD4PyVRYSrwR+LvwlTgM6rfbaymewfx8
+MpvRL4lBvqCeLjqvgXgf2008L2l4/y0ew1XnUA+HedW9F7E/KRz8KdPcoftH
+QP7D7jd3oR7B/Raup16h+UZCfrPTUaofCf0VaTpI38Tz1VoMtgrUN4HeXuBo
+Rj0KeDBgGuchRUG+unk+tJ/RfN5Wr7gdNtSjQb/wuwXzqWI4y1lDdh2ox8B+
+FAp+J1GP5X7NPRX+oA31WH6fyKUJnddQ38zjx7uG8q+iDiyPLROOoR7H8wU/
+VWlOox7H/TLef5hdj3o8+F3h8rkW9Xie32RL1DegnsD14srLoY2oJ/D3ZxJz
+r9J7TAT/V4xsOYx6IryPrraYo6hrYf9KJ0KPoK6F/l+8i6D3msSZRdjLOD+W
+BPvct/cVvk8pid/HYYLF1c2yPKOfbbRYMD6Z92d0qJnC+iwZ+lE3zqd6yfDe
+Xc1q1GU4P3w3ZyH5kwLzVdeX4XmWAv4531NQl4BVprFK7EcGZsUfbJhPpYP5
+C6E9VF/H601Oqv/7oYPz8bkK1ddB/X4vC9ZTpcK+2l20Yj8M+Et09nQzxqey
+6enbIZEnjmN8Kq/XfqbTn+qngZ/GnzspPg30jPlLqP8ZPm99TfXTYB8nGkrI
+v3T+HnRSyxj6y9Jhnr//xqIupcP9Jqt9kWVg5fKcDPr/qQf//DwfUf0ZdtIu
+o3g93xdF/7MX5y3ref7hGkMn7beB389TL7rj/jEDn6/nhqx+9FsCrvLOGmjC
+eAPsb2arhuZnBH/Mb/ajP8wI933b8Ks+7B+W1bvL
+               "]]}, "Charting`Private`Tag#2"]}}, <|
+          "HighlightElements" -> <|
+            "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
+           "LayoutOptions" -> <|
+            "PlotRange" -> {{0., 101.}, {0., 1.}}, 
+             "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0., 0},
+              "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
+             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
+             "DefaultStyle" -> {
+               Directive[
+                PointSize[
+                 Rational[1, 72]], 
+                AbsoluteThickness[2], 
+                RGBColor[1, 0, 0]], 
+               Directive[
+                PointSize[
+                 Rational[1, 72]], 
+                AbsoluteThickness[2], 
+                RGBColor[0, 0, 1]]}, 
+             "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
+                 Identity[
+                  Part[#, 1]], 
+                 Identity[
+                  Part[#, 2]]}& ), 
+               "ScalingFunctions" -> {{Identity, Identity}, {
+                 Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
+             False|>, 
+           "Meta" -> <|
+            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, 
+             "Function" -> ListLinePlot, "GroupHighlight" -> False|>|>]]& )[<|
+         "HighlightElements" -> <|
+           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
+          "LayoutOptions" -> <|
+           "PlotRange" -> {{0., 101.}, {0., 1.}}, 
+            "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0., 0}, 
+            "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
+            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
+            "DefaultStyle" -> {
+              Directive[
+               PointSize[
+                Rational[1, 72]], 
+               AbsoluteThickness[2], 
+               RGBColor[1, 0, 0]], 
+              Directive[
+               PointSize[
+                Rational[1, 72]], 
+               AbsoluteThickness[2], 
+               RGBColor[0, 0, 1]]}, 
+            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
+                Identity[
+                 Part[#, 1]], 
+                Identity[
+                 Part[#, 2]]}& ), 
+              "ScalingFunctions" -> {{Identity, Identity}, {
+                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
+            False|>, 
+          "Meta" -> <|
+           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
+            ListLinePlot, "GroupHighlight" -> False|>|>]]}, 
+      Annotation[{{{}, {}, 
+         Annotation[{
+           Hue[0.67, 0.6, 0.6], 
+           Directive[
+            PointSize[
+             Rational[1, 72]], 
+            AbsoluteThickness[2], 
+            RGBColor[0, 0, 1]], 
+           Line[CompressedData["
+1:eJw1lAlM02cYxuvCMUhcJkOGHAYYsnFWoBzjWB+k5S6FthRwIG6MDBsGCyjC
+1FhgbOqwHiPBOIIcgjidAsJ0Zuqfo2BxLEgYSEKEMRAVjw4cbFN0Hbxfk6b5
+9fk//7zv9z7v5/hxnizrNR6Pl2X4/v+7+tELs51yir4ovy6kP1DtW98+2veA
++HXoFJ3Np7lZ4jeRf0gzPT98l9gSdzIKpTUvh4itcbgq16Jsmr3PDp7hdnNT
+O/uIHZBnUcb1O3LETijIPvb4hegSsTPmEq9sLDe/SOyCDQWjFvPPzxO/h4H0
+2JumGva8G0qMtEdah1qIPfCoJsRjuJf5vXD88V5hh5zVsxkJG61UA36MvaEx
+0VtFubUT++Dg0N3Jb0KuEPtCV3j9lE1qG7EA/tuuRlds6iH2wwYj5RueghvE
+/giw4T6sjewgDsA7MXvK+J3MH4h3aw+2/C5h9b6PpemP6kZmmB6EEe1nAvWy
+ljgYDws61j+37yYOQXWPQ0u+E+NQVMQ8NBKofib+AG1euQ0lg0wXwtTQ3qAH
+Y+Co927POsnlVVYDyf0+Pa3in0gPg6C+PaCom/pXh6G71fDCC+w8t+Dk7ur6
+hk8bSN+C+2Pn/x2/XE96OJZ2TVav09aSHg5un33grFkz6SLUqF26vqpvJF2E
+uSl/G866iXQx8m3XTnpeOk26eCUPxveIeRGYkB6uejJRR3oEwrbPDDqVE/Mi
+ceOUDT99gvkjkbl/LPQfl3OkR+E35SN+cPY10qNgr5sROm/VkR4NlE71ndhP
+eVZHw+uV4/Kiey/pMej+5PvtwxzlRx2DB1GGJyLZPGMxEBx/+1g26y8WTcV9
+rlf9WH9xsLAU9qZZMj0OwZ//ekBWfJZ0Cfi5DWte7KN5qSUr/ebu7SQ9Hgb7
+eIcdqz8epQURlYtmLL9SmNnWbHONbyVdCunFyqwDk2x/EhD2Z+Yv6QtUDxLw
+TCPf6XzyDD2fgELD+LJyqD8uAev8Q67JLrD8JK7MN1E1SP5E7MjTl+tEtM/q
+RHS97SIvDxohfyKeLQ8X7bBl+yJb2Vfvv6kfyKAeCy1OSWPnKYPky7VSfjTN
+g5NBbtxwPMiX7asc7l9bjcU3Uz4hx8isyr1QxM5DDkM3Va9MaR85OUYFTwO1
+nbfIr4D2Zdue+RzSoUDGibj1FY1d5FfAxDCgiHCqj1PAIfPJ1i4N6byklXkN
+zRIjCeYRm3aVivvJnwTFH43fiQooL1wSngaKI+eNWf9KVC6aZFjriaFcvQ/P
+0fzUSowY6hWrWP1K3LM/c/9mEMtXMlSSBc23OjpvJK/s+5pJlpdk3CkxBKKV
+dC4ZbmffGhTp2f2SgrQjXX8136Z9RwrK+HFN5nq6P9Qp8Ena7OZaRPVwKbAz
+rONRK+ZPxa068Y8LSz+QPxUhhriP+7cL/wOmQNt8
+            "]]}, "Charting`Private`Tag#1"], 
+         Annotation[{
+           Hue[0.9060679774997897, 0.6, 0.6], 
+           Directive[
+            PointSize[
+             Rational[1, 72]], 
+            AbsoluteThickness[2], 
+            RGBColor[1, 0, 0]], 
+           Line[CompressedData["
+1:eJw9lAlIlFEQx5cKNBBNMEgwSiu11ST7LI8y36p55LHqqrtroFb4ebQhbZFp
+qZ+UR62VlgfbWmmRVgZWCgp2fB0E0RdZSmAXRmUFJZqEdNobnUlY5bf/NzNv
+/jNP922FKTlzVCpVDv/A39mf8TBFUfY80ZvC8Av2WInv049ake2ZotR+u/FZ
+Ql7A+K+8Ud8aZBdmtbqK2Y/2IS9igiC0fug+iOzGefdL57pq5KUsQOgWLpwo
+RfZgp6xWm4tlD/Jyzq6Ot5wo3pOJohj4bHslsjfn0fw/l6ieGu471farCNkX
+9I7Nh/Yj+8H98gJlqrca6s/VrqR4f4j3zcgtRl7DcsXR5g5/YgF0txFzCXIA
+6Ad7Cyj/WrhvdImlCnkd9L/qhw9xIOfuqfKtdD6Ix4uD3g/LkYMh3nnVOdJD
+gD8tLqP666GfptaBA8gbQP/4vIH0UD4PyVRYSrwR+LvwlTgM6rfbaymewfx8
+MpvRL4lBvqCeLjqvgXgf2008L2l4/y0ew1XnUA+HedW9F7E/KRz8KdPcoftH
+QP7D7jd3oR7B/Raup16h+UZCfrPTUaofCf0VaTpI38Tz1VoMtgrUN4HeXuBo
+Rj0KeDBgGuchRUG+unk+tJ/RfN5Wr7gdNtSjQb/wuwXzqWI4y1lDdh2ox8B+
+FAp+J1GP5X7NPRX+oA31WH6fyKUJnddQ38zjx7uG8q+iDiyPLROOoR7H8wU/
+VWlOox7H/TLef5hdj3o8+F3h8rkW9Xie32RL1DegnsD14srLoY2oJ/D3ZxJz
+r9J7TAT/V4xsOYx6IryPrraYo6hrYf9KJ0KPoK6F/l+8i6D3msSZRdjLOD+W
+BPvct/cVvk8pid/HYYLF1c2yPKOfbbRYMD6Z92d0qJnC+iwZ+lE3zqd6yfDe
+Xc1q1GU4P3w3ZyH5kwLzVdeX4XmWAv4531NQl4BVprFK7EcGZsUfbJhPpYP5
+C6E9VF/H601Oqv/7oYPz8bkK1ddB/X4vC9ZTpcK+2l20Yj8M+Et09nQzxqey
+6enbIZEnjmN8Kq/XfqbTn+qngZ/GnzspPg30jPlLqP8ZPm99TfXTYB8nGkrI
+v3T+HnRSyxj6y9Jhnr//xqIupcP9Jqt9kWVg5fKcDPr/qQf//DwfUf0ZdtIu
+o3g93xdF/7MX5y3ref7hGkMn7beB389TL7rj/jEDn6/nhqx+9FsCrvLOGmjC
+eAPsb2arhuZnBH/Mb/ajP8wI933b8Ks+7B+W1bvL
+            "]]}, "Charting`Private`Tag#2"]}}, <|
+       "HighlightElements" -> <|
+         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
+        "LayoutOptions" -> <|
+         "PlotRange" -> {{0., 101.}, {0., 1.}}, 
+          "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0., 0}, 
+          "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
+          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
+          "DefaultStyle" -> {
+            Directive[
+             PointSize[
+              Rational[1, 72]], 
+             AbsoluteThickness[2], 
+             RGBColor[1, 0, 0]], 
+            Directive[
+             PointSize[
+              Rational[1, 72]], 
+             AbsoluteThickness[2], 
+             RGBColor[0, 0, 1]]}, 
+          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
+              Identity[
+               Part[#, 1]], 
+              Identity[
+               Part[#, 2]]}& ), 
+            "ScalingFunctions" -> {{Identity, Identity}, {
+              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
+         "Meta" -> <|
+         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
+          ListLinePlot, "GroupHighlight" -> False|>|>, 
+       "DynamicHighlight"]], {{}, {}}}, {
+    DisplayFunction -> Identity, DisplayFunction -> Identity, DisplayFunction -> 
+     Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
+     Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0., 0}, 
+     DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, 
+     FrameLabel -> {{
+        FormBox[
+         TagBox["\"Runtime [ms]\"", HoldForm], TraditionalForm], None}, {
+        FormBox[
+         TagBox["\"n\"", HoldForm], TraditionalForm], None}}, 
+     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+     GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[
+       GrayLevel[0.5, 0.4]], ImageSize -> Large, 
+     Method -> {
+      "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
+       "DefaultGraphicsInteraction" -> {
+        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+         "Effects" -> {
+          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+           "Droplines" -> {
+            "freeformCursorMode" -> True, 
+             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+       "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
+         Directive[
+          RGBColor[0.368417, 0.506779, 0.709798], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.880722, 0.611041, 0.142051], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.560181, 0.691569, 0.194885], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.922526, 0.385626, 0.209179], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.528488, 0.470624, 0.701351], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.772079, 0.431554, 0.102387], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.363898, 0.618501, 0.782349], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[1, 0.75, 0], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.647624, 0.37816, 0.614037], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.571589, 0.586483, 0.], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.915, 0.3325, 0.2125], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[
+          0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
+          AbsoluteThickness[2]], 
+         Directive[
+          RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
+          AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
+       "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, 
+       "IncludeHighlighting" -> "CurrentSet", "HighlightStyle" -> Automatic, 
+       "OptimizePlotMarkers" -> True, 
+       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+           Identity[
+            Part[#, 1]], 
+           Identity[
+            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+           Identity[
+            Part[#, 1]], 
+           Identity[
+            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
+       TemplateBox[{
+         StyleBox[
+         "\"Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smod; \
+less_fast)\"", Bold, 13, StripOnInput -> False], "\"\\n\"", 
+         StyleBox[
+         "\"x: 20.0, to each value of n \\n\"", 12, StripOnInput -> False]}, 
+        "RowDefault"], TraditionalForm], PlotRange -> {{0., 101.}, {0., 1.}}, 
+     PlotRangeClipping -> True, PlotRangePadding -> {{
+        Scaled[0.02], 
+        Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}], 
+   FormBox[
+    FormBox[
+     TemplateBox[{
+      "\" avg[Wavefunction_Wolfram1] = \
+\\!\\(\\*FormBox[\\\"0.12689482548779781878600658728828420863`20.\\\", \
+TraditionalForm]\\) ms;\"", 
+       "\" avg[Fast-Wave(smod; less_fast)] = \
+\\!\\(\\*FormBox[\\\"0.01350290940588658866738924757555651013`20.\\\", \
+TraditionalForm]\\) ms\""}, "LineLegend", DisplayFunction -> (FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[2], 
+                    RGBColor[0, 0, 1]], {
+                    LineBox[{{0, 12.5}, {20, 12.5}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[2], 
+                    RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 12.5}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.18000000000000002`] -> 
+                    Baseline)], #}}, 
+                 GridBoxAlignment -> {
+                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
+                 AutoDelete -> False, 
+                 GridBoxDividers -> {
+                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
+                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
+                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, {
+               TagBox[
+                GridBox[{{
+                   GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[2], 
+                    RGBColor[1, 0, 0]], {
+                    LineBox[{{0, 12.5}, {20, 12.5}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    AbsoluteThickness[2], 
+                    RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 12.5}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.18000000000000002`] -> 
+                    Baseline)], #2}}, 
+                 GridBoxAlignment -> {
+                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
+                 AutoDelete -> False, 
+                 GridBoxDividers -> {
+                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
+                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
+                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
+             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
+             AutoDelete -> False, 
+             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
+             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
+             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
+            "Grid"], Alignment -> Left, AppearanceElements -> None, 
+           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
+           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
+         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
+         False], TraditionalForm]& ), 
+      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "72"], "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", 
+                   
+                   TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>, 
+                    "RGBColorSwatchTemplate"]}], "]"}], ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "72"], "]"}], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", 
+                   
+                   TemplateBox[<|"color" -> RGBColor[1, 0, 0]|>, 
+                    "RGBColorSwatchTemplate"]}], "]"}]}], "}"}], ",", 
+           RowBox[{"{", 
+             RowBox[{#, ",", #2}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
+           RowBox[{"Joined", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{"True", ",", "True"}], "}"}]}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"{", "}"}]}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}]}], "]"}]& ), 
+      Editable -> True], TraditionalForm], TraditionalForm]},
+  "Legended",
+  DisplayFunction->(GridBox[{{
+      TagBox[
+       ItemBox[
+        PaneBox[
+         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
+         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
+       "SkipImageSizeLevel"]}, {
+      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
+    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
+    AutoDelete -> False, GridBoxItemSize -> Automatic, 
+    BaselinePosition -> {1, 1}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{"Legended", "[", 
+     RowBox[{#, ",", 
+       RowBox[{"Placed", "[", 
+         RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
+ CellChangeTimes->{3.9319451612886443`*^9, 3.931945365117759*^9, 
+  3.9319456648061333`*^9, 3.9319458600280666`*^9},
+ CellLabel->"Out[28]=",ExpressionUUID->"3b13b2d8-d670-437f-a680-4193c81f03f6"]
+}, Open  ]]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[TextData[{
+ Cell[BoxData[
+  FormBox[
+   TemplateBox[<|
+    "boxes" -> FormBox["\[FivePointedStar]", TraditionalForm], "errors" -> {},
+      "input" -> "\\star", "state" -> "Boxes"|>,
+    "TeXAssistantTemplate"], TraditionalForm]],
+  FontColor->RGBColor[1, 0, 0],ExpressionUUID->
+  "8df016c5-090a-42ab-9c34-b5ff996b110b"],
+ StyleBox[" Single-Mode ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["and",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" Multi",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["dimensional",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["speed",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox[" ",
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]],
+ StyleBox["test\n",
+  IgnoreSpellCheck->True,
+  FontFamily->"Roboto",
+  FontSize->13,
+  FontColor->RGBColor[1, 0, 0]]
+}], "Subsubsection",
+ CellChangeTimes->{{3.931269961691287*^9, 3.931269978640743*^9}, 
+   3.931275368321887*^9},ExpressionUUID->"c58ebe82-53ad-4eaf-8b91-\
+9b5f7b2d74c4"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{
+   RowBox[{"FastWaveSMMDList", "=", 
+    RowBox[{"Normal", "[", 
+     RowBox[{"ExternalEvaluate", "[", 
+      RowBox[{
+      "\"\<Python\>\"", ",", "                      ", 
+       "\"\<from fast_wave.wavefunction import wavefunction_smmd;import \
+timeit;import numpy as np;N_max = 100;xmax = \
+20.0;xmin=-20.0;xsize=100;X=np.linspace(xmin,xmax,xsize);[(timeit.timeit(\
+lambda : wavefunction_smmd(n, X) , number=10000)/10000)*1000 for n in \
+range(N_max+1)];\>\""}], "]"}], "]"}]}], ";"}], 
+  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"WavefunctionWolframSMMDList", " ", "=", " ", 
+   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"For", "[", 
+   RowBox[{
+    RowBox[{"i", "=", "1"}], ",", 
+    RowBox[{"i", "<=", 
+     RowBox[{"(", 
+      RowBox[{"Nmax", "+", "1"}], ")"}]}], ",", 
+    RowBox[{"i", "++"}], ",", 
+    RowBox[{
+     RowBox[{"AppendTo", "[", 
+      RowBox[{"WavefunctionWolframSMMDList", ",", "\[IndentingNewLine]", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"RepeatedTiming", "[", 
+          RowBox[{"WavefunctionMathematica1", "[", 
+           RowBox[{
+            RowBox[{"i", "-", "1"}], ",", "Xvector", ",", "prec"}], "]"}], 
+          "]"}], "[", 
+         RowBox[{"[", "1", "]"}], "]"}], "*", "1000"}]}], "]"}], ";"}]}], 
+   "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+ RowBox[{"ListLinePlot", "[", "\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"WavefunctionWolframSMMDList", ",", "FastWaveSMMDList"}], "}"}], 
+   ",", "\[IndentingNewLine]", 
+   RowBox[{"PlotStyle", "->", 
+    RowBox[{"{", 
+     RowBox[{"Blue", ",", " ", "Red"}], "}"}]}], ",", "\[IndentingNewLine]", 
+   RowBox[{"Frame", "->", "True"}], ",", "\[IndentingNewLine]", 
+   RowBox[{"FrameLabel", "->", 
+    RowBox[{"{", 
+     RowBox[{"\"\<n\>\"", ",", "\"\<Runtime [ms]\>\""}], "}"}]}], ",", 
+   "\[IndentingNewLine]", 
+   RowBox[{"PlotLabel", "->", 
+    RowBox[{"Row", "[", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"Style", "[", 
+        RowBox[{
+        "\"\<Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smmd)\>\"", ",", 
+         "Bold", ",", "13"}], "]"}], ",", "\"\<\\n\>\"", ",", 
+       RowBox[{"Style", "[", 
+        RowBox[{
+        "\"\<X: [(-20.0) \[Rule] 20.0 ; 100], to each value of n \\n\>\"", 
+         ",", "12"}], "]"}]}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", 
+   RowBox[{"GridLines", "->", "Automatic"}], ",", "\[IndentingNewLine]", 
+   RowBox[{"PlotLegends", "->", 
+    RowBox[{"Placed", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"\"\< avg[Wavefunction_Wolfram1] = \>\"", " ", "<>", 
+         RowBox[{"ToString", "[", 
+          RowBox[{
+           RowBox[{"SetPrecision", "[", 
+            RowBox[{
+             RowBox[{"Mean", "[", "WavefunctionWolframSMMDList", "]"}], ",", 
+             "20"}], "]"}], ",", "TraditionalForm"}], "]"}], " ", "<>", " ", 
+         "\"\< ms\>\""}], ",", "\[IndentingNewLine]", 
+        RowBox[{"\"\< avg[Fast-Wave(smmd)] = \>\"", "<>", " ", 
+         RowBox[{"ToString", "[", 
+          RowBox[{
+           RowBox[{"SetPrecision", "[", 
+            RowBox[{
+             RowBox[{"Mean", "[", "FastWaveSMMDList", "]"}], ",", "20"}], 
+            "]"}], ",", "TraditionalForm"}], "]"}], " ", "<>", " ", 
+         "\"\< ms\>\""}]}], "}"}], ",", "Below"}], "]"}]}], ",", 
+   "\[IndentingNewLine]", 
+   RowBox[{"ImageSize", "->", "Large"}]}], " ", "]"}]}], "Input",
+ CellChangeTimes->{
+  3.9312700244144325`*^9, {3.931270142894164*^9, 3.931270240310871*^9}, {
+   3.931270291585513*^9, 3.9312702927184267`*^9}, {3.9312703712973995`*^9, 
+   3.9312703920490274`*^9}, {3.931270423285005*^9, 3.9312704241974683`*^9}, {
+   3.9312705952701044`*^9, 3.9312705963243933`*^9}, {3.931273601408498*^9, 
+   3.9312737450346265`*^9}, {3.9312745904827995`*^9, 3.931274621129058*^9}, {
+   3.931274942816686*^9, 3.931274960380887*^9}, {3.9312757527105637`*^9, 
+   3.931275754046861*^9}, {3.931276469869091*^9, 3.9312764705298924`*^9}},
+ CellLabel->"In[33]:=",ExpressionUUID->"29fa579a-6133-4da1-b95e-8fc1d0e283af"],
 
 Cell[BoxData["\<\"Functionality Test Passed: True\"\>"], "Print",
- CellChangeTimes->{3.9312626432363276`*^9, 3.9312628497486887`*^9, 
-  3.9312648017983613`*^9, 3.931265035911127*^9, 3.931271418889244*^9, 
-  3.931272405617988*^9, 3.9312728459446735`*^9, 3.931273152984417*^9, 
-  3.9312733668111734`*^9, 3.931273955721511*^9, 3.9312743387477355`*^9, 
-  3.931277990025482*^9},
+ CellChangeTimes->{3.9312706297905474`*^9, 3.9312737771007433`*^9, 
+  3.931274629278839*^9, 3.9312749736817026`*^9, 3.931275826656539*^9, 
+  3.931276516483424*^9, 3.9312781462569246`*^9, 3.9319462563991528`*^9},
  CellLabel->
   "During evaluation of \
-In[152]:=",ExpressionUUID->"c394a792-0c0e-4692-af65-ebdbf557cb47"],
+In[33]:=",ExpressionUUID->"1f5ffc42-c0d4-4bb4-b66f-23ddc6974842"],
 
 Cell[BoxData[
  TemplateBox[{
@@ -506,30 +1879,30 @@ Cell[BoxData[
              AbsoluteThickness[2], 
              RGBColor[0, 0, 1]], 
             LineBox[CompressedData["
-1:eJw1VHtQ1GUUXVBIDUaZWBFCwiAiKHlYWKzAYRGQ97Kwu8hjEGjBEF21RhAM
-eaiLrxB5yqBiDlHC8DIkDGHj0WCgjDjUOEAMyB+iJOowPRiyfsi9O7Ozc/bc
-c+/9zr3ftylRI1fri0QitfBd+l3+PPOqtnAat00p9KI/UDFerDWYPE94Fdxt
-ArPybRmvQ0xz1+wlaQlhU0j23y2QlxcT3oDp/Et3rmUytsSRBFdFUy/HW8NY
-31FbdqaK8Nv4Vzs/qgpl3hZ1QyPKtPQLhO0QYKTv+JpDKWF73JGE3jOpLiPs
-gN+u7vc49Tnj93Gg/vTo7poKwpvRWKIueKhh3hlO+67qddzkfC64e21o5Nd1
-zLviv5asF85JrN+C2Sk3C92jcsIf4nnSYFyQA+OPcHNROx8jvkLYDfNpyi8b
-Slm/FZbRn0ri5y8S/hjjrceOyDR8vk+wpbd589NujneHtbdQoZaxBL8fOPXV
-9KpvCW+DbE9lelXa94Q9kFvqczptop6wJ54I/SKvjbAXJHohx4w31REGvN9I
-6Ln/gPQ5wFy01PNRHuf3Rm4b8hIrWon3xritYa44ivNJoTafijK70k68FK4K
-Z4fv1D8Q7wPxmcDHK11aiPdBepjV+seLlE+0He7nB472l/5I/HYEf7PGr2aM
-4kW+SMvIrKk3aSTeF12XLZziGpj3w88vW7IO1nB/frj10HTj7YxbxPsj7F5R
-bLYx5/eHYO8+m4064ndAWJc1KvMbxO9A4zvT+VZVfL4ATL94a7jRk+JzAtB0
-cHfR3mbuPxBudZ6qNx1/Ij4Q2lrVLy0TnD8I6oKkuLHKLuKDoIsRJjrRQXww
-1ma61XV+wP0HQ5O7sm9tPvcfgv5DnZcrrxPOCcHJpskZcSrXD13eZ0OuH4pd
-h8KslH9x/TC8bmufbWTG/Ycho+prm/YVFC+SQTqUPJKiR/ODDPbVJ5sSTDhe
-Bh/LJ1M3zMkPnQzuwv6cDWV/wiGs+6hZejfpw1G3K1KeMtdL+nBkLhnkTfl1
-4ThX/bdL8iT3J0eL8HxsM2C9HPnhARdFc3xeOSyE9WpbT/7p5Dg8Y+fSH0vx
-oggI179obJH7j0DcS5+FPwx5nhE4mtrxRfEzmr8uAu1L97PpOukj4XLBYYPY
-iOtHIteu+0RtIfsZiQHX3uaGz2heukjEVwSLB1f3kF4B62FNvLaEzgsFpoX1
-U3uwfwrMPKhfGJN0kl6Bs+17Vh/WsF6J+oXYvcdnqB6UiF268AN9pFci4l1h
-ID2sV+J49P2OpBXEi1TL+9ZOfkGFpeu41Zfic1SwGf0nOzWZ8utUr/bFppz9
-i8J7sYXdrc5cPwqDT2/3SA24/yg8Hw5JPPcn1dNFLb9nZTy/nTBt8J/M7GP/
-d756f2ade73+Bz2T1oc=
+1:eJw1lAtQVGUYhjdEBxLjIiIpIiARIhfBkI1F90VAENz7wnJpJIuNDVFABIEY
+PcYY04ASEagMKuhQo+FgZSkwMDsVEoE2wEoGEyFjQ6AgV4kWpYX9/jNz5sxz
+3v89/3e+y+/8XppcbcLj8dSGe+lpvCaEIxHeizXRk0J6ga7QhxMzq2eJzWDv
+plh5NX6a2Aqa0A/T0p3+I7YFv7f18K0cCxjZHjY7g5rlh9l6B3TUhP2Q2bSK
+dCfsWLrCrIldUNxwyDzXdiWxKz6Ye3ywxuMl+d1Q8a1FhuehF8TuaC3xPX5D
+zPbzgPTMuSM2FszvCbcsk0qzJ3pa740Oq7bGO7rnxNvx9W5Vwjed48S+aKr4
+zDJvaIzYD6NuvmZ1R5m+AwWX7l3/rXOK+C0MlBWe7sucI/bHGkn9F2rbBeKd
+uHhlS0P+ERZ/AJrlFc5nNzM/H2NrWra/zmf5fhufd5yMEB5jeiCSBH9Jzrgy
+FiCvbWugTfUEcRAy6or6Nc7Mvwv98ydSgkpZvncjeak+vzIW4oKHfbnuJGPg
++mS3aOgZMQe4pObk1UpmSA/GP/prk91S+n8uGLd+yW5JvM/i2YPZyLhP+AmU
+T24PzOoc4pOamT8Em/iGCALZ90MgWlccOer4L+mhEPofaGzfTOu5UNjpO8bb
+vVm/haG4X8NLayPmwjCeL/Qf0LD67UXiVkNFveZJ34tCuz/uz11h9Q6H1cjt
++oJdTA/HBlnfxvyHbP8I/NSzTX3hZ2IuAimi6bOKerb/Pgy2vFb1nXyR9H14
+kDPi5lvG6hmJy0Geuso7pjDqkUg1n69Ovsv0KJSe0AdO6Ii5KLx8njVY1c30
+/fgy11BQFcvfftxcMVzsns36SbTcn77VxJwIlYb6KdNZ/GJkakrHFsJp/jgx
+Ph5qOy9oYPMowVOfpjctc5kuQdEL9ZyrNc8YL0+KWjHWPuqhfoUUvTFPfQSL
+xJwU75T8OOvO5k0rXZ43L0sWv2x5HuuySYcMH9V6hlQdYPmSwSl48v3ODFqv
+lWFgcHXZtTnSeXK0XN7g86cfMeQYil1/u6uC4uPk+H6doSFySdfKYfi8wxOv
+Vyh+hbE/hLQeCvy9NKCmpHOK5XovZJKuVWD5fFvP/Eooj7meW5wmhhJf3Y0K
+ME80I78Sl54Z3pwn1ipx89FI+ZSLFfmjMWbIb0m3CfmjcVziaDcqI+aicao8
+pCh1ilgbbewX2xXkj0HaxOl23Q3mj0G5zlzjcpR0LgbJD4ZTtmURa2PQuFA4
+k9DHzjcV6t94XOC4kXSo8OrvV9ObD7J+VBnPrxHmV2FTfJIgcS07f2MR8Gnw
+u2o/YsQiq8zetJdPzMXinkDcZd3L/LFIO2XaapnD9o9DaFHqsL6H9kMclsa/
+KX8V/gf5GdGF
              "]]}, Annotation[#, "Charting`Private`Tag#1"]& ], 
           TagBox[{
             Hue[0.9060679774997897, 0.6, 0.6], 
@@ -540,26 +1913,27 @@ d756f2ade73+Bz2T1oc=
              AbsoluteThickness[2], 
              RGBColor[1, 0, 0]], 
             LineBox[CompressedData["
-1:eJw1Un1MzHEcPv4gTaaQQvMyLLGo3+FS6pur7nq595deUImuaRb6A7NlPxGx
-KZulLq0mo/4oo1ubxNwwkmtWzR95TTimZbbaymbjnvP53Na1557P83yf7/P5
-ri46bC6erVAoin1/+P//8yvJ93WqfDI5iX4QAx6PvX9GSzhAOJ3O7h8BGYQX
-CkmS7l/othBeLBqdzmvaXCvhMPCaxiNphFcIh8NR/XEsk/Aq4MvN6lTCa0SJ
-w9E1OZVOeC386quWM78efr3V+1kfKXxf9hcWzhcFvVDq9YQ3gb91J4zPj0b+
-uRPlOsJbhFKSIgaPMx+D81q0Z5iPRb6O9EfMS8BT64qzCCvh3+DVawhvRV+3
-O4u5j22Yn3ugj/vYjvyfH582ElYhz0Tt392E4+Anjg3kEd6BeeXSwVzC8eDf
-KUbthBPAPx29yPxOnCdXf2E+EfPSyBcb4STk61ryw0BY4L6q0keUTxbQB1TG
-cv5kzCeefEf7lpMxH996k/W70Hek6itheRfyvHRt5/7U0Pcfmm8iXg3+fdkV
-3l8K9LML9zKfgvmZzTFm4lOBr4b20j7lVMy/mKqjeUUa7vdzcIT1ftz0+zXv
-RwPcNq4hP1mD+41NhrJeC797neOcX4vzlN9j+fx04LyxEPZPh1+pdRnvLwN8
-tDzD/n78NqSB9Znoq6ngYQHxmTi/pWOasCLL14freffjQuKzoDcE9jOvw/us
-O/GV9Trwg0Mv84nXI3/vs2zW6/GetsXa9hFvAG+sj6P3JRuEx+NJ+DOf35cR
-foHD04SFEfnaJ2t53oh9NUpB5O/28/nhG/eQ3oT7Neq6aF6Y4F/VFsF5/XxL
-QjvxbpNP7634E0B+CjP8YiZUlFeYffd19eQ9KCK92acPr91cUkJ6M/wP9B0+
-SHoL8n/ecLSM9Bb02exqJV4Glu5OrCR/twV9BJ3/tpf0VuzzQ8U56lNYkXdo
-eg9h2Yrzok600LzbPy/PqWS9DX23BqsJCxv4N/O0rLdhf/0NC6gPtw1+N5bv
-4/3YwX9KGWa9HXkju1Xcnx39vDr7hPzcfn5k/AHrs6G/5K2heZHtu5/XtPM6
-v4ds9B1iqOX9Yd5VONTJ+hz029OwiPoWwM6tQU+Jl3OQd1aQk/PnwC/Yq+P9
-5aLP6Sk163PB1xzJK0z6B0mDqc4=
+1:eJw1lH8s1HEYx79SqlG7VjMtNVKWJuGO0g/3Rakr8uvcaRNyc6UUJY3+un6u
+6AfR5a5Cot9hU6nYun4QJVpypdSYNpRhKWUZPc96HpvZy/t5P78+z76O8cnh
+CRMEQUiAX/z7/2dQbjS0Ke+W5MjpH6JUWhlnWZBFPEUEveCWhFkiCkLR8B/J
+WeJZosHQdrfM+jSxHehCnqmW2R7zqQ4r8ogdRK3WKlp1iOvNF183Nh456M/6
+Aqg3YlU8do7YGfKJ1WULOX6R2Nh40s1Lw7wY6//+OJJL7Ar+jHJzHOdzA79D
+T8ugnthd3KY9VmM1wroH6Dp1RiHP44n9DuwJ4HxSnFfSkc4sg3oP5SXCJWIv
+qGc4o3nL+bxx/s6eZo5fBrpPvteSi8TLQY8zj/8+T+wD/QQOlUZzfyuAnWWt
+rTz/SmCrD8tqmVcBazs+hTCvxnnaAmX5xL6wzySHhM+cT47zSRqyuZ6I+87a
+0kesE0E3aSbq2e8H7+OsO1BVQLofzv8idwf37w+6OabX8TLp/pj/x4JrRtID
+cN/l/b8MpAdAPdepNctZXwN8e7u5jliHbDPHqZPzrwV/h+23BxdIR65oi60o
+Ij1QlEm7nlRbXCE9EN7D4Ghpy/512E+mWz73t070lFZ+SCkuJH09zrv0aTLP
+tx7ee8j6RyaxoMD83eULqZ5Ogfv+Hr2I/RtwP1+qJKxvgPo+6p25JaRvBH+q
+z5Ic1jfCfO1u5y1KSQ8CjjYmBReTHgT9uN9rOkX9CsFw3+2v61xYD4b7aTAX
+JhILm4BnH6vQs74J89nuVrIegu/VYt/P84fgPAr7Z5w/FObVKIpiKF4MhfiU
+6Zcec3wozJMh28v1TKEw7/A0/V/OHwZ+p9jmP+wPw33b+Cr4PcKgP5fgvCZi
+E+ruqZMm8n7CwT/TKSCNWAzH+3857xH7wyFekmW3n3QTskOVoZf9EXhPwuAo
++yOg3ol34/G0Xx1y74TrQ+yPgPx691dHef9KmEd13Lj4KvmVuM/Pfn3EOiXU
+y76X5nyN/EqoN9qcuJRYiIT+U43VQcQistNb7zH2R0J+bf3cT+yPxHs/0e7L
+fhXUe5g8MMJ+Fd5Huk3DdfKrwH//qGYXsUmF+5ght7tBfjV+Hw99fX+b/Gqo
+H5Hyc8pN8qvh3lNbrLvKya+Ge1pV1pJYQf4o/J5072u9Q/4o/F70NNwg1kVB
+/rC5zz0o3oS8Nb7I5T75N0P8mzP1A6/IvxnqWySNTe6U/wP1ZcCb
              "]]}, Annotation[#, "Charting`Private`Tag#2"]& ]}}, {
         "WolframDynamicHighlight", <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
@@ -577,30 +1951,30 @@ v4ds9B1iqOX9Yd5VONTJ+hz029OwiPoWwM6tQU+Jl3OQd1aQk/PnwC/Yq+P9
                AbsoluteThickness[2], 
                RGBColor[0, 0, 1]], 
               Line[CompressedData["
-1:eJw1VHtQ1GUUXVBIDUaZWBFCwiAiKHlYWKzAYRGQ97Kwu8hjEGjBEF21RhAM
-eaiLrxB5yqBiDlHC8DIkDGHj0WCgjDjUOEAMyB+iJOowPRiyfsi9O7Ozc/bc
-c+/9zr3ftylRI1fri0QitfBd+l3+PPOqtnAat00p9KI/UDFerDWYPE94Fdxt
-ArPybRmvQ0xz1+wlaQlhU0j23y2QlxcT3oDp/Et3rmUytsSRBFdFUy/HW8NY
-31FbdqaK8Nv4Vzs/qgpl3hZ1QyPKtPQLhO0QYKTv+JpDKWF73JGE3jOpLiPs
-gN+u7vc49Tnj93Gg/vTo7poKwpvRWKIueKhh3hlO+67qddzkfC64e21o5Nd1
-zLviv5asF85JrN+C2Sk3C92jcsIf4nnSYFyQA+OPcHNROx8jvkLYDfNpyi8b
-Slm/FZbRn0ri5y8S/hjjrceOyDR8vk+wpbd589NujneHtbdQoZaxBL8fOPXV
-9KpvCW+DbE9lelXa94Q9kFvqczptop6wJ54I/SKvjbAXJHohx4w31REGvN9I
-6Ln/gPQ5wFy01PNRHuf3Rm4b8hIrWon3xritYa44ivNJoTafijK70k68FK4K
-Z4fv1D8Q7wPxmcDHK11aiPdBepjV+seLlE+0He7nB472l/5I/HYEf7PGr2aM
-4kW+SMvIrKk3aSTeF12XLZziGpj3w88vW7IO1nB/frj10HTj7YxbxPsj7F5R
-bLYx5/eHYO8+m4064ndAWJc1KvMbxO9A4zvT+VZVfL4ATL94a7jRk+JzAtB0
-cHfR3mbuPxBudZ6qNx1/Ij4Q2lrVLy0TnD8I6oKkuLHKLuKDoIsRJjrRQXww
-1ma61XV+wP0HQ5O7sm9tPvcfgv5DnZcrrxPOCcHJpskZcSrXD13eZ0OuH4pd
-h8KslH9x/TC8bmufbWTG/Ycho+prm/YVFC+SQTqUPJKiR/ODDPbVJ5sSTDhe
-Bh/LJ1M3zMkPnQzuwv6cDWV/wiGs+6hZejfpw1G3K1KeMtdL+nBkLhnkTfl1
-4ThX/bdL8iT3J0eL8HxsM2C9HPnhARdFc3xeOSyE9WpbT/7p5Dg8Y+fSH0vx
-oggI179obJH7j0DcS5+FPwx5nhE4mtrxRfEzmr8uAu1L97PpOukj4XLBYYPY
-iOtHIteu+0RtIfsZiQHX3uaGz2heukjEVwSLB1f3kF4B62FNvLaEzgsFpoX1
-U3uwfwrMPKhfGJN0kl6Bs+17Vh/WsF6J+oXYvcdnqB6UiF268AN9pFci4l1h
-ID2sV+J49P2OpBXEi1TL+9ZOfkGFpeu41Zfic1SwGf0nOzWZ8utUr/bFppz9
-i8J7sYXdrc5cPwqDT2/3SA24/yg8Hw5JPPcn1dNFLb9nZTy/nTBt8J/M7GP/
-d756f2ade73+Bz2T1oc=
+1:eJw1lAtQVGUYhjdEBxLjIiIpIiARIhfBkI1F90VAENz7wnJpJIuNDVFABIEY
+PcYY04ASEagMKuhQo+FgZSkwMDsVEoE2wEoGEyFjQ6AgV4kWpYX9/jNz5sxz
+3v89/3e+y+/8XppcbcLj8dSGe+lpvCaEIxHeizXRk0J6ga7QhxMzq2eJzWDv
+plh5NX6a2Aqa0A/T0p3+I7YFv7f18K0cCxjZHjY7g5rlh9l6B3TUhP2Q2bSK
+dCfsWLrCrIldUNxwyDzXdiWxKz6Ye3ywxuMl+d1Q8a1FhuehF8TuaC3xPX5D
+zPbzgPTMuSM2FszvCbcsk0qzJ3pa740Oq7bGO7rnxNvx9W5Vwjed48S+aKr4
+zDJvaIzYD6NuvmZ1R5m+AwWX7l3/rXOK+C0MlBWe7sucI/bHGkn9F2rbBeKd
+uHhlS0P+ERZ/AJrlFc5nNzM/H2NrWra/zmf5fhufd5yMEB5jeiCSBH9Jzrgy
+FiCvbWugTfUEcRAy6or6Nc7Mvwv98ydSgkpZvncjeak+vzIW4oKHfbnuJGPg
++mS3aOgZMQe4pObk1UpmSA/GP/prk91S+n8uGLd+yW5JvM/i2YPZyLhP+AmU
+T24PzOoc4pOamT8Em/iGCALZ90MgWlccOer4L+mhEPofaGzfTOu5UNjpO8bb
+vVm/haG4X8NLayPmwjCeL/Qf0LD67UXiVkNFveZJ34tCuz/uz11h9Q6H1cjt
++oJdTA/HBlnfxvyHbP8I/NSzTX3hZ2IuAimi6bOKerb/Pgy2vFb1nXyR9H14
+kDPi5lvG6hmJy0Geuso7pjDqkUg1n69Ovsv0KJSe0AdO6Ii5KLx8njVY1c30
+/fgy11BQFcvfftxcMVzsns36SbTcn77VxJwIlYb6KdNZ/GJkakrHFsJp/jgx
+Ph5qOy9oYPMowVOfpjctc5kuQdEL9ZyrNc8YL0+KWjHWPuqhfoUUvTFPfQSL
+xJwU75T8OOvO5k0rXZ43L0sWv2x5HuuySYcMH9V6hlQdYPmSwSl48v3ODFqv
+lWFgcHXZtTnSeXK0XN7g86cfMeQYil1/u6uC4uPk+H6doSFySdfKYfi8wxOv
+Vyh+hbE/hLQeCvy9NKCmpHOK5XovZJKuVWD5fFvP/Eooj7meW5wmhhJf3Y0K
+ME80I78Sl54Z3pwn1ipx89FI+ZSLFfmjMWbIb0m3CfmjcVziaDcqI+aicao8
+pCh1ilgbbewX2xXkj0HaxOl23Q3mj0G5zlzjcpR0LgbJD4ZTtmURa2PQuFA4
+k9DHzjcV6t94XOC4kXSo8OrvV9ObD7J+VBnPrxHmV2FTfJIgcS07f2MR8Gnw
+u2o/YsQiq8zetJdPzMXinkDcZd3L/LFIO2XaapnD9o9DaFHqsL6H9kMclsa/
+KX8V/gf5GdGF
                "]]}, "Charting`Private`Tag#1"], 
             Annotation[{
               Hue[0.9060679774997897, 0.6, 0.6], 
@@ -610,31 +1984,32 @@ d756f2ade73+Bz2T1oc=
                AbsoluteThickness[2], 
                RGBColor[1, 0, 0]], 
               Line[CompressedData["
-1:eJw1Un1MzHEcPv4gTaaQQvMyLLGo3+FS6pur7nq595deUImuaRb6A7NlPxGx
-KZulLq0mo/4oo1ubxNwwkmtWzR95TTimZbbaymbjnvP53Na1557P83yf7/P5
-ri46bC6erVAoin1/+P//8yvJ93WqfDI5iX4QAx6PvX9GSzhAOJ3O7h8BGYQX
-CkmS7l/othBeLBqdzmvaXCvhMPCaxiNphFcIh8NR/XEsk/Aq4MvN6lTCa0SJ
-w9E1OZVOeC386quWM78efr3V+1kfKXxf9hcWzhcFvVDq9YQ3gb91J4zPj0b+
-uRPlOsJbhFKSIgaPMx+D81q0Z5iPRb6O9EfMS8BT64qzCCvh3+DVawhvRV+3
-O4u5j22Yn3ugj/vYjvyfH582ElYhz0Tt392E4+Anjg3kEd6BeeXSwVzC8eDf
-KUbthBPAPx29yPxOnCdXf2E+EfPSyBcb4STk61ryw0BY4L6q0keUTxbQB1TG
-cv5kzCeefEf7lpMxH996k/W70Hek6itheRfyvHRt5/7U0Pcfmm8iXg3+fdkV
-3l8K9LML9zKfgvmZzTFm4lOBr4b20j7lVMy/mKqjeUUa7vdzcIT1ftz0+zXv
-RwPcNq4hP1mD+41NhrJeC797neOcX4vzlN9j+fx04LyxEPZPh1+pdRnvLwN8
-tDzD/n78NqSB9Znoq6ngYQHxmTi/pWOasCLL14freffjQuKzoDcE9jOvw/us
-O/GV9Trwg0Mv84nXI3/vs2zW6/GetsXa9hFvAG+sj6P3JRuEx+NJ+DOf35cR
-foHD04SFEfnaJ2t53oh9NUpB5O/28/nhG/eQ3oT7Neq6aF6Y4F/VFsF5/XxL
-QjvxbpNP7634E0B+CjP8YiZUlFeYffd19eQ9KCK92acPr91cUkJ6M/wP9B0+
-SHoL8n/ecLSM9Bb02exqJV4Glu5OrCR/twV9BJ3/tpf0VuzzQ8U56lNYkXdo
-eg9h2Yrzok600LzbPy/PqWS9DX23BqsJCxv4N/O0rLdhf/0NC6gPtw1+N5bv
-4/3YwX9KGWa9HXkju1Xcnx39vDr7hPzcfn5k/AHrs6G/5K2heZHtu5/XtPM6
-v4ds9B1iqOX9Yd5VONTJ+hz029OwiPoWwM6tQU+Jl3OQd1aQk/PnwC/Yq+P9
-5aLP6Sk163PB1xzJK0z6B0mDqc4=
+1:eJw1lH8s1HEYx79SqlG7VjMtNVKWJuGO0g/3Rakr8uvcaRNyc6UUJY3+un6u
+6AfR5a5Cot9hU6nYun4QJVpypdSYNpRhKWUZPc96HpvZy/t5P78+z76O8cnh
+CRMEQUiAX/z7/2dQbjS0Ke+W5MjpH6JUWhlnWZBFPEUEveCWhFkiCkLR8B/J
+WeJZosHQdrfM+jSxHehCnqmW2R7zqQ4r8ogdRK3WKlp1iOvNF183Nh456M/6
+Aqg3YlU8do7YGfKJ1WULOX6R2Nh40s1Lw7wY6//+OJJL7Ar+jHJzHOdzA79D
+T8ugnthd3KY9VmM1wroH6Dp1RiHP44n9DuwJ4HxSnFfSkc4sg3oP5SXCJWIv
+qGc4o3nL+bxx/s6eZo5fBrpPvteSi8TLQY8zj/8+T+wD/QQOlUZzfyuAnWWt
+rTz/SmCrD8tqmVcBazs+hTCvxnnaAmX5xL6wzySHhM+cT47zSRqyuZ6I+87a
+0kesE0E3aSbq2e8H7+OsO1BVQLofzv8idwf37w+6OabX8TLp/pj/x4JrRtID
+cN/l/b8MpAdAPdepNctZXwN8e7u5jliHbDPHqZPzrwV/h+23BxdIR65oi60o
+Ij1QlEm7nlRbXCE9EN7D4Ghpy/512E+mWz73t070lFZ+SCkuJH09zrv0aTLP
+tx7ee8j6RyaxoMD83eULqZ5Ogfv+Hr2I/RtwP1+qJKxvgPo+6p25JaRvBH+q
+z5Ic1jfCfO1u5y1KSQ8CjjYmBReTHgT9uN9rOkX9CsFw3+2v61xYD4b7aTAX
+JhILm4BnH6vQs74J89nuVrIegu/VYt/P84fgPAr7Z5w/FObVKIpiKF4MhfiU
+6Zcec3wozJMh28v1TKEw7/A0/V/OHwZ+p9jmP+wPw33b+Cr4PcKgP5fgvCZi
+E+ruqZMm8n7CwT/TKSCNWAzH+3857xH7wyFekmW3n3QTskOVoZf9EXhPwuAo
++yOg3ol34/G0Xx1y74TrQ+yPgPx691dHef9KmEd13Lj4KvmVuM/Pfn3EOiXU
+y76X5nyN/EqoN9qcuJRYiIT+U43VQcQistNb7zH2R0J+bf3cT+yPxHs/0e7L
+fhXUe5g8MMJ+Fd5Huk3DdfKrwH//qGYXsUmF+5ght7tBfjV+Hw99fX+b/Gqo
+H5Hyc8pN8qvh3lNbrLvKya+Ge1pV1pJYQf4o/J5072u9Q/4o/F70NNwg1kVB
+/rC5zz0o3oS8Nb7I5T75N0P8mzP1A6/IvxnqWySNTe6U/wP1ZcCb
                "]]}, "Charting`Private`Tag#2"]}}, <|
           "HighlightElements" -> <|
             "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
            "LayoutOptions" -> <|
-            "PlotRange" -> {{0., 101.}, {0, 0.17158703613281248`}}, 
+            "PlotRange" -> {{0., 101.}, {0, 4.317578125}}, 
              "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0., 0},
               "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
              "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
@@ -663,7 +2038,7 @@ v4ds9B1iqOX9Yd5VONTJ+hz029OwiPoWwM6tQU+Jl3OQd1aQk/PnwC/Yq+P9
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
           "LayoutOptions" -> <|
-           "PlotRange" -> {{0., 101.}, {0, 0.17158703613281248`}}, 
+           "PlotRange" -> {{0., 101.}, {0, 4.317578125}}, 
             "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0., 0}, 
             "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
@@ -698,30 +2073,30 @@ v4ds9B1iqOX9Yd5VONTJ+hz029OwiPoWwM6tQU+Jl3OQd1aQk/PnwC/Yq+P9
             AbsoluteThickness[2], 
             RGBColor[0, 0, 1]], 
            Line[CompressedData["
-1:eJw1VHtQ1GUUXVBIDUaZWBFCwiAiKHlYWKzAYRGQ97Kwu8hjEGjBEF21RhAM
-eaiLrxB5yqBiDlHC8DIkDGHj0WCgjDjUOEAMyB+iJOowPRiyfsi9O7Ozc/bc
-c+/9zr3ftylRI1fri0QitfBd+l3+PPOqtnAat00p9KI/UDFerDWYPE94Fdxt
-ArPybRmvQ0xz1+wlaQlhU0j23y2QlxcT3oDp/Et3rmUytsSRBFdFUy/HW8NY
-31FbdqaK8Nv4Vzs/qgpl3hZ1QyPKtPQLhO0QYKTv+JpDKWF73JGE3jOpLiPs
-gN+u7vc49Tnj93Gg/vTo7poKwpvRWKIueKhh3hlO+67qddzkfC64e21o5Nd1
-zLviv5asF85JrN+C2Sk3C92jcsIf4nnSYFyQA+OPcHNROx8jvkLYDfNpyi8b
-Slm/FZbRn0ri5y8S/hjjrceOyDR8vk+wpbd589NujneHtbdQoZaxBL8fOPXV
-9KpvCW+DbE9lelXa94Q9kFvqczptop6wJ54I/SKvjbAXJHohx4w31REGvN9I
-6Ln/gPQ5wFy01PNRHuf3Rm4b8hIrWon3xritYa44ivNJoTafijK70k68FK4K
-Z4fv1D8Q7wPxmcDHK11aiPdBepjV+seLlE+0He7nB472l/5I/HYEf7PGr2aM
-4kW+SMvIrKk3aSTeF12XLZziGpj3w88vW7IO1nB/frj10HTj7YxbxPsj7F5R
-bLYx5/eHYO8+m4064ndAWJc1KvMbxO9A4zvT+VZVfL4ATL94a7jRk+JzAtB0
-cHfR3mbuPxBudZ6qNx1/Ij4Q2lrVLy0TnD8I6oKkuLHKLuKDoIsRJjrRQXww
-1ma61XV+wP0HQ5O7sm9tPvcfgv5DnZcrrxPOCcHJpskZcSrXD13eZ0OuH4pd
-h8KslH9x/TC8bmufbWTG/Ycho+prm/YVFC+SQTqUPJKiR/ODDPbVJ5sSTDhe
-Bh/LJ1M3zMkPnQzuwv6cDWV/wiGs+6hZejfpw1G3K1KeMtdL+nBkLhnkTfl1
-4ThX/bdL8iT3J0eL8HxsM2C9HPnhARdFc3xeOSyE9WpbT/7p5Dg8Y+fSH0vx
-oggI179obJH7j0DcS5+FPwx5nhE4mtrxRfEzmr8uAu1L97PpOukj4XLBYYPY
-iOtHIteu+0RtIfsZiQHX3uaGz2heukjEVwSLB1f3kF4B62FNvLaEzgsFpoX1
-U3uwfwrMPKhfGJN0kl6Bs+17Vh/WsF6J+oXYvcdnqB6UiF268AN9pFci4l1h
-ID2sV+J49P2OpBXEi1TL+9ZOfkGFpeu41Zfic1SwGf0nOzWZ8utUr/bFppz9
-i8J7sYXdrc5cPwqDT2/3SA24/yg8Hw5JPPcn1dNFLb9nZTy/nTBt8J/M7GP/
-d756f2ade73+Bz2T1oc=
+1:eJw1lAtQVGUYhjdEBxLjIiIpIiARIhfBkI1F90VAENz7wnJpJIuNDVFABIEY
+PcYY04ASEagMKuhQo+FgZSkwMDsVEoE2wEoGEyFjQ6AgV4kWpYX9/jNz5sxz
+3v89/3e+y+/8XppcbcLj8dSGe+lpvCaEIxHeizXRk0J6ga7QhxMzq2eJzWDv
+plh5NX6a2Aqa0A/T0p3+I7YFv7f18K0cCxjZHjY7g5rlh9l6B3TUhP2Q2bSK
+dCfsWLrCrIldUNxwyDzXdiWxKz6Ye3ywxuMl+d1Q8a1FhuehF8TuaC3xPX5D
+zPbzgPTMuSM2FszvCbcsk0qzJ3pa740Oq7bGO7rnxNvx9W5Vwjed48S+aKr4
+zDJvaIzYD6NuvmZ1R5m+AwWX7l3/rXOK+C0MlBWe7sucI/bHGkn9F2rbBeKd
+uHhlS0P+ERZ/AJrlFc5nNzM/H2NrWra/zmf5fhufd5yMEB5jeiCSBH9Jzrgy
+FiCvbWugTfUEcRAy6or6Nc7Mvwv98ydSgkpZvncjeak+vzIW4oKHfbnuJGPg
++mS3aOgZMQe4pObk1UpmSA/GP/prk91S+n8uGLd+yW5JvM/i2YPZyLhP+AmU
+T24PzOoc4pOamT8Em/iGCALZ90MgWlccOer4L+mhEPofaGzfTOu5UNjpO8bb
+vVm/haG4X8NLayPmwjCeL/Qf0LD67UXiVkNFveZJ34tCuz/uz11h9Q6H1cjt
++oJdTA/HBlnfxvyHbP8I/NSzTX3hZ2IuAimi6bOKerb/Pgy2vFb1nXyR9H14
+kDPi5lvG6hmJy0Geuso7pjDqkUg1n69Ovsv0KJSe0AdO6Ii5KLx8njVY1c30
+/fgy11BQFcvfftxcMVzsns36SbTcn77VxJwIlYb6KdNZ/GJkakrHFsJp/jgx
+Ph5qOy9oYPMowVOfpjctc5kuQdEL9ZyrNc8YL0+KWjHWPuqhfoUUvTFPfQSL
+xJwU75T8OOvO5k0rXZ43L0sWv2x5HuuySYcMH9V6hlQdYPmSwSl48v3ODFqv
+lWFgcHXZtTnSeXK0XN7g86cfMeQYil1/u6uC4uPk+H6doSFySdfKYfi8wxOv
+Vyh+hbE/hLQeCvy9NKCmpHOK5XovZJKuVWD5fFvP/Eooj7meW5wmhhJf3Y0K
+ME80I78Sl54Z3pwn1ipx89FI+ZSLFfmjMWbIb0m3CfmjcVziaDcqI+aicao8
+pCh1ilgbbewX2xXkj0HaxOl23Q3mj0G5zlzjcpR0LgbJD4ZTtmURa2PQuFA4
+k9DHzjcV6t94XOC4kXSo8OrvV9ObD7J+VBnPrxHmV2FTfJIgcS07f2MR8Gnw
+u2o/YsQiq8zetJdPzMXinkDcZd3L/LFIO2XaapnD9o9DaFHqsL6H9kMclsa/
+KX8V/gf5GdGF
             "]]}, "Charting`Private`Tag#1"], 
          Annotation[{
            Hue[0.9060679774997897, 0.6, 0.6], 
@@ -731,31 +2106,32 @@ d756f2ade73+Bz2T1oc=
             AbsoluteThickness[2], 
             RGBColor[1, 0, 0]], 
            Line[CompressedData["
-1:eJw1Un1MzHEcPv4gTaaQQvMyLLGo3+FS6pur7nq595deUImuaRb6A7NlPxGx
-KZulLq0mo/4oo1ubxNwwkmtWzR95TTimZbbaymbjnvP53Na1557P83yf7/P5
-ri46bC6erVAoin1/+P//8yvJ93WqfDI5iX4QAx6PvX9GSzhAOJ3O7h8BGYQX
-CkmS7l/othBeLBqdzmvaXCvhMPCaxiNphFcIh8NR/XEsk/Aq4MvN6lTCa0SJ
-w9E1OZVOeC386quWM78efr3V+1kfKXxf9hcWzhcFvVDq9YQ3gb91J4zPj0b+
-uRPlOsJbhFKSIgaPMx+D81q0Z5iPRb6O9EfMS8BT64qzCCvh3+DVawhvRV+3
-O4u5j22Yn3ugj/vYjvyfH582ElYhz0Tt392E4+Anjg3kEd6BeeXSwVzC8eDf
-KUbthBPAPx29yPxOnCdXf2E+EfPSyBcb4STk61ryw0BY4L6q0keUTxbQB1TG
-cv5kzCeefEf7lpMxH996k/W70Hek6itheRfyvHRt5/7U0Pcfmm8iXg3+fdkV
-3l8K9LML9zKfgvmZzTFm4lOBr4b20j7lVMy/mKqjeUUa7vdzcIT1ftz0+zXv
-RwPcNq4hP1mD+41NhrJeC797neOcX4vzlN9j+fx04LyxEPZPh1+pdRnvLwN8
-tDzD/n78NqSB9Znoq6ngYQHxmTi/pWOasCLL14freffjQuKzoDcE9jOvw/us
-O/GV9Trwg0Mv84nXI3/vs2zW6/GetsXa9hFvAG+sj6P3JRuEx+NJ+DOf35cR
-foHD04SFEfnaJ2t53oh9NUpB5O/28/nhG/eQ3oT7Neq6aF6Y4F/VFsF5/XxL
-QjvxbpNP7634E0B+CjP8YiZUlFeYffd19eQ9KCK92acPr91cUkJ6M/wP9B0+
-SHoL8n/ecLSM9Bb02exqJV4Glu5OrCR/twV9BJ3/tpf0VuzzQ8U56lNYkXdo
-eg9h2Yrzok600LzbPy/PqWS9DX23BqsJCxv4N/O0rLdhf/0NC6gPtw1+N5bv
-4/3YwX9KGWa9HXkju1Xcnx39vDr7hPzcfn5k/AHrs6G/5K2heZHtu5/XtPM6
-v4ds9B1iqOX9Yd5VONTJ+hz029OwiPoWwM6tQU+Jl3OQd1aQk/PnwC/Yq+P9
-5aLP6Sk163PB1xzJK0z6B0mDqc4=
+1:eJw1lH8s1HEYx79SqlG7VjMtNVKWJuGO0g/3Rakr8uvcaRNyc6UUJY3+un6u
+6AfR5a5Cot9hU6nYun4QJVpypdSYNpRhKWUZPc96HpvZy/t5P78+z76O8cnh
+CRMEQUiAX/z7/2dQbjS0Ke+W5MjpH6JUWhlnWZBFPEUEveCWhFkiCkLR8B/J
+WeJZosHQdrfM+jSxHehCnqmW2R7zqQ4r8ogdRK3WKlp1iOvNF183Nh456M/6
+Aqg3YlU8do7YGfKJ1WULOX6R2Nh40s1Lw7wY6//+OJJL7Ar+jHJzHOdzA79D
+T8ugnthd3KY9VmM1wroH6Dp1RiHP44n9DuwJ4HxSnFfSkc4sg3oP5SXCJWIv
+qGc4o3nL+bxx/s6eZo5fBrpPvteSi8TLQY8zj/8+T+wD/QQOlUZzfyuAnWWt
+rTz/SmCrD8tqmVcBazs+hTCvxnnaAmX5xL6wzySHhM+cT47zSRqyuZ6I+87a
+0kesE0E3aSbq2e8H7+OsO1BVQLofzv8idwf37w+6OabX8TLp/pj/x4JrRtID
+cN/l/b8MpAdAPdepNctZXwN8e7u5jliHbDPHqZPzrwV/h+23BxdIR65oi60o
+Ij1QlEm7nlRbXCE9EN7D4Ghpy/512E+mWz73t070lFZ+SCkuJH09zrv0aTLP
+tx7ee8j6RyaxoMD83eULqZ5Ogfv+Hr2I/RtwP1+qJKxvgPo+6p25JaRvBH+q
+z5Ic1jfCfO1u5y1KSQ8CjjYmBReTHgT9uN9rOkX9CsFw3+2v61xYD4b7aTAX
+JhILm4BnH6vQs74J89nuVrIegu/VYt/P84fgPAr7Z5w/FObVKIpiKF4MhfiU
+6Zcec3wozJMh28v1TKEw7/A0/V/OHwZ+p9jmP+wPw33b+Cr4PcKgP5fgvCZi
+E+ruqZMm8n7CwT/TKSCNWAzH+3857xH7wyFekmW3n3QTskOVoZf9EXhPwuAo
++yOg3ol34/G0Xx1y74TrQ+yPgPx691dHef9KmEd13Lj4KvmVuM/Pfn3EOiXU
+y76X5nyN/EqoN9qcuJRYiIT+U43VQcQistNb7zH2R0J+bf3cT+yPxHs/0e7L
+fhXUe5g8MMJ+Fd5Huk3DdfKrwH//qGYXsUmF+5ght7tBfjV+Hw99fX+b/Gqo
+H5Hyc8pN8qvh3lNbrLvKya+Ge1pV1pJYQf4o/J5072u9Q/4o/F70NNwg1kVB
+/rC5zz0o3oS8Nb7I5T75N0P8mzP1A6/IvxnqWySNTe6U/wP1ZcCb
             "]]}, "Charting`Private`Tag#2"]}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
-         "PlotRange" -> {{0., 101.}, {0, 0.17158703613281248`}}, 
+         "PlotRange" -> {{0., 101.}, {0, 4.317578125}}, 
           "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0., 0}, 
           "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
           "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
@@ -863,13 +2239,13 @@ v4ds9B1iqOX9Yd5VONTJ+hz029OwiPoWwM6tQU+Jl3OQd1aQk/PnwC/Yq+P9
             Part[#, 2]]}& )}}, PlotLabel -> FormBox[
        TemplateBox[{
          StyleBox[
-         "\"Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smod)\"", Bold, 
+         "\"Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smmd)\"", Bold, 
           13, StripOnInput -> False], "\"\\n\"", 
          StyleBox[
-         "\"x: 20.0, to each value of n \\n\"", 12, StripOnInput -> False]}, 
-        "RowDefault"], TraditionalForm], 
-     PlotRange -> {{0., 101.}, {0, 0.17158703613281248`}}, PlotRangeClipping -> 
-     True, PlotRangePadding -> {{
+         "\"X: [(-20.0) \[Rule] 20.0 ; 100], to each value of n \\n\"", 12, 
+          StripOnInput -> False]}, "RowDefault"], TraditionalForm], 
+     PlotRange -> {{0., 101.}, {0, 4.317578125}}, PlotRangeClipping -> True, 
+     PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
@@ -878,10 +2254,10 @@ v4ds9B1iqOX9Yd5VONTJ+hz029OwiPoWwM6tQU+Jl3OQd1aQk/PnwC/Yq+P9
     FormBox[
      TemplateBox[{
       "\" avg[Wavefunction_Wolfram1] = \
-\\!\\(\\*FormBox[\\\"0.08905669839689046851649578684373409487`20.\\\", \
-TraditionalForm]\\) ms;\"", 
-       "\" avg[Fast-Wave(smod)] = \
-\\!\\(\\*FormBox[\\\"0.00150149000001325509494332077764511268`20.\\\", \
+\\!\\(\\*FormBox[\\\"1.897665598893873761809913958131801337`20.\\\", \
+TraditionalForm]\\) ms\"", 
+       "\" avg[Fast-Wave(smmd)] = \
+\\!\\(\\*FormBox[\\\"0.04007814920785154888527301864087348804`20.\\\", \
 TraditionalForm]\\) ms\""}, "LineLegend", DisplayFunction -> (FormBox[
         StyleBox[
          StyleBox[
@@ -1013,12 +2389,10 @@ TraditionalForm]\\) ms\""}, "LineLegend", DisplayFunction -> (FormBox[
      RowBox[{#, ",", 
        RowBox[{"Placed", "[", 
          RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
- CellChangeTimes->{3.931264948415189*^9, 3.931265174937579*^9, 
-  3.931271571334012*^9, 3.9312725690379763`*^9, 3.9312729831000648`*^9, 
-  3.9312733052563057`*^9, 3.931273522026925*^9, 3.931274103487991*^9, 
-  3.931274502407939*^9, 3.9312781416063223`*^9},
- CellLabel->
-  "Out[155]=",ExpressionUUID->"552ce0ae-add3-49b7-a548-f9926667ff54"]
+ CellChangeTimes->{3.931270802255453*^9, 3.9312739356908293`*^9, 
+  3.931274874017032*^9, 3.931275203708679*^9, 3.931276000085453*^9, 
+  3.9312766912168355`*^9, 3.9312783778720016`*^9, 3.9319464409616203`*^9},
+ CellLabel->"Out[36]=",ExpressionUUID->"f61a3d8d-3ba1-43b4-a6c8-0a12e2544202"]
 }, Open  ]]
 }, Open  ]],
 
@@ -1032,7 +2406,7 @@ Cell[TextData[{
       "input" -> "\\star", "state" -> "Boxes"|>,
     "TeXAssistantTemplate"], TraditionalForm]],
   FontColor->RGBColor[1, 0, 0],ExpressionUUID->
-  "8df016c5-090a-42ab-9c34-b5ff996b110b"],
+  "84ddeb9c-78a3-4959-b9fa-f959a0dfab8b"],
  StyleBox[" Single-Mode ",
   FontFamily->"Roboto",
   FontSize->13,
@@ -1064,15 +2438,15 @@ Cell[TextData[{
   FontFamily->"Roboto",
   FontSize->13,
   FontColor->RGBColor[1, 0, 0]],
- StyleBox["test\n",
+ StyleBox["test (less_fast)",
   IgnoreSpellCheck->True,
   FontFamily->"Roboto",
   FontSize->13,
   FontColor->RGBColor[1, 0, 0]]
 }], "Subsubsection",
- CellChangeTimes->{{3.931269961691287*^9, 3.931269978640743*^9}, 
-   3.931275368321887*^9},ExpressionUUID->"c58ebe82-53ad-4eaf-8b91-\
-9b5f7b2d74c4"],
+ CellChangeTimes->{{3.9319459323942633`*^9, 
+  3.9319459421952024`*^9}},ExpressionUUID->"62bc2236-88a0-48ab-8cf5-\
+8b38e9624982"],
 
 Cell[CellGroupData[{
 
@@ -1087,9 +2461,9 @@ Cell[BoxData[{
        "\"\<from fast_wave.wavefunction import wavefunction_smmd;import \
 timeit;import numpy as np;N_max = 100;xmax = \
 20.0;xmin=-20.0;xsize=100;X=np.linspace(xmin,xmax,xsize);[(timeit.timeit(\
-lambda : wavefunction_smmd(n, X) , number=10000)/10000)*1000 for n in \
-range(N_max+1)];\>\""}], "]"}], "]"}]}], ";"}], 
-  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
+lambda : wavefunction_smmd(n, X, more_fast = False) , \
+number=10000)/10000)*1000 for n in range(N_max+1)];\>\""}], "]"}], "]"}]}], 
+   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"WavefunctionWolframSMMDList", " ", "=", " ", 
    RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
@@ -1132,8 +2506,8 @@ range(N_max+1)];\>\""}], "]"}], "]"}]}], ";"}],
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
-        "\"\<Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smmd)\>\"", ",", 
-         "Bold", ",", "13"}], "]"}], ",", "\"\<\\n\>\"", ",", 
+        "\"\<Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smmd; less_fast)\
+\>\"", ",", "Bold", ",", "13"}], "]"}], ",", "\"\<\\n\>\"", ",", 
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<X: [(-20.0) \[Rule] 20.0 ; 100], to each value of n \\n\>\"", 
@@ -1152,7 +2526,7 @@ range(N_max+1)];\>\""}], "]"}], "]"}]}], ";"}],
              RowBox[{"Mean", "[", "WavefunctionWolframSMMDList", "]"}], ",", 
              "20"}], "]"}], ",", "TraditionalForm"}], "]"}], " ", "<>", " ", 
          "\"\< ms\>\""}], ",", "\[IndentingNewLine]", 
-        RowBox[{"\"\< avg[Fast-Wave(smmd)] = \>\"", "<>", " ", 
+        RowBox[{"\"\< avg[Fast-Wave(smmd; less_fast)] = \>\"", "<>", " ", 
          RowBox[{"ToString", "[", 
           RowBox[{
            RowBox[{"SetPrecision", "[", 
@@ -1162,96 +2536,83 @@ range(N_max+1)];\>\""}], "]"}], "]"}]}], ";"}],
          "\"\< ms\>\""}]}], "}"}], ",", "Below"}], "]"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"ImageSize", "->", "Large"}]}], " ", "]"}]}], "Input",
- CellChangeTimes->{
-  3.9312700244144325`*^9, {3.931270142894164*^9, 3.931270240310871*^9}, {
-   3.931270291585513*^9, 3.9312702927184267`*^9}, {3.9312703712973995`*^9, 
-   3.9312703920490274`*^9}, {3.931270423285005*^9, 3.9312704241974683`*^9}, {
-   3.9312705952701044`*^9, 3.9312705963243933`*^9}, {3.931273601408498*^9, 
-   3.9312737450346265`*^9}, {3.9312745904827995`*^9, 3.931274621129058*^9}, {
-   3.931274942816686*^9, 3.931274960380887*^9}, {3.9312757527105637`*^9, 
-   3.931275754046861*^9}, {3.931276469869091*^9, 3.9312764705298924`*^9}},
- CellLabel->
-  "In[156]:=",ExpressionUUID->"29fa579a-6133-4da1-b95e-8fc1d0e283af"],
+ CellChangeTimes->{{3.9319459664728923`*^9, 3.9319460326138816`*^9}},
+ CellLabel->"In[49]:=",ExpressionUUID->"77e1e730-fafb-4238-8b3c-1884cbc8671e"],
 
 Cell[BoxData["\<\"Functionality Test Passed: True\"\>"], "Print",
- CellChangeTimes->{3.9312706297905474`*^9, 3.9312737771007433`*^9, 
-  3.931274629278839*^9, 3.9312749736817026`*^9, 3.931275826656539*^9, 
-  3.931276516483424*^9, 3.9312781462569246`*^9},
+ CellChangeTimes->{3.931946048258822*^9, 3.9319464662181625`*^9, 
+  3.9319467023104362`*^9, 3.9319470837389383`*^9, 3.9319474768496156`*^9},
  CellLabel->
   "During evaluation of \
-In[156]:=",ExpressionUUID->"9129adb4-1d26-4823-86f5-a728d78f404c"],
+In[49]:=",ExpressionUUID->"c2e80e55-dc3f-4053-baf3-a89b7af33912"],
 
 Cell[BoxData[
  TemplateBox[{
    GraphicsBox[{{}, 
      InterpretationBox[{
-       TagBox[{{{}, {}, 
-          TagBox[{
-            Hue[0.67, 0.6, 0.6], 
-            Directive[
-             PointSize[
-              NCache[
-               Rational[1, 72], 0.013888888888888888`]], 
-             AbsoluteThickness[2], 
-             RGBColor[0, 0, 1]], 
-            LineBox[CompressedData["
-1:eJw1lAtQVGUYhg+4AnIRRIQF4hoCQSJQxE3cl/t9gb2xGAMMSompG6AQFbrm
-JW1KNMRJbNQGhEBMJiEHJFwNLDRRyAoy76FgWBsCoXLp0H7/mdnZec573u9/
-/+/7z3HJVUny9DmOy+N/c/+6SyuKzldpd16+I6Ib6FNlG/a03Sc2QvumCqEg
-+xaxBUQXf28RXPiD2AqXZOe/rDG8RyxEcHRs4VODYeIXIHSXzq/+ZYTYGWc9
-zE1aDj0gdoX0oMveFvN/iN3QnDHeaveAsTsC7TSvO98aJPaEouyrb3I3PyX2
-grh3f+aWF8eIX8bMxOY7n3v8S+yD3TtX/dR+aoLYF67r33l3aZGW2A9HrzRc
-lRdy0LE/0qaERemNk6S/gm8lfMDMGeJX0VXuV7LMn3EASofd/Yya9cj/GuqM
-Y5aOB0+THgjbe0qbwJYp4iCM9iXn7nvynDgY3cUdR6tWGpA/BEGTF9Y0qJge
-iid7pZvcOvRJXwHlyPKzHqdmSQ9Drr/c16tRQPpKTM/t35ixCPOqjOwda1g+
-YCby2eM/NxjpWA18UBRzoHiQ7T8c/iXLXJwM55Eejq0DYaX9BSxfBL4+N3Jk
-RZsh6RHgT0/3dTnV4yLRUeYQ9GaOOemRqMzbvfqmgOpxUeh0biocMjUjPQri
-XAtl6w8mpEfjrklFvb4PWz8aLk2FaxcN03pcDKL7tWOXnFn9GLzx88N1J9xY
-/VjUHu509uWonjoWN90MtlUWLCI9Dt4fWg/0xJuSHgfB3EBDLUmPR2fEyfys
-LNafeFSE6CUL9lmQnoDv1jTkyPwWkJ4Ap7H1irKVlIdLxGOzDl9bc6qnTsRp
-04JGkynWvyQkvLd9eZIBy5eEhw51Q3G1LF8yrPgXLKCD+ZMxOOrU93c9qy/G
-0EDjs8xutn8xtHUXE8/ULSQ9BSrL7ZqPvJaQnoLvXwr59PK0FempEAVktXVX
-2egYqVg13vqbcQPtT52KKP54aKppPppU6CXvMLu6hOpxaRiO85n94jg9jzTU
-14hRMcn8afAWVl5fAMqvSUPZtdMZ48asvxIEXAkV9/5IDAlk948fjhqwI78E
-u7pl5z2LHckvQUmKo/Wjc7bkl0Kvfb7lgVp78kuRz6m27dCy/Uphc6aXy1pI
-rJGiujlwMoJzIL8MQ+u8J2z+Yvll8NlYrdd+hPVbpuuPnRP5Zf+fF3EPm48c
-e8JzBq91WZNfjo8THgmaHSmvWo5je5ru5pdQfzVyvD/alPqW62LyK3T9uUH9
-hQKfbeQHdoOtr8CxEyf7b2tYfgX46W2NS6DzyqWD27/leUgPzR/p6OLfp7Xl
-lE+djg1zH0hrtn46Ds1dpZSXU2IX/zlcXU7nAUqEGf9arc2m/qqV4E+jz6y9
-kPxK1LzNP6HH8mfAwNJKFHOb5oUMfOLJn/iDi/Ef8XGpDw==
-             "]]}, Annotation[#, "Charting`Private`Tag#1"]& ], 
-          TagBox[{
-            Hue[0.9060679774997897, 0.6, 0.6], 
-            Directive[
-             PointSize[
-              NCache[
-               Rational[1, 72], 0.013888888888888888`]], 
-             AbsoluteThickness[2], 
-             RGBColor[1, 0, 0]], 
-            LineBox[CompressedData["
-1:eJw1kgtIlHkUxb+yrKBCetCYrbpRpq29nFJn0p3P8a3jzDjjzGREuJUTRZpZ
-tERFxpRpWhY9vx7LEmNUa+G77CFT2ri72APK0IoyyXZX6A3mQmbnj/cKIj/P
-/9xz7p35cdVGS+5ISZJy8Sv+Dv980KnV6gar3z4d/UN2OkNmDnYwj5XvtYdv
-6GgrJvaTTylNO3a9YH2KrFZvXqkvZVYJflUWVEI8Q5aknPvHg0uJg2VF0Zx7
-H848U7wPfdnNPAv5vgl/JzOHyGudIYETp5cRh4o+iT992U88F9yuutvPejjm
-qT8PRjHPx7w362L+LSdeCPbaH9YzL8L7yfdifQ4SR4A/f337jFmNfTUDOXuY
-F6O/sqL5BvMS9EuKD7tfQRwJbjzWlHWIOAr8Jqz3KHO02Dd/q+owsUb0VQwF
-zFqR71+nMC9F3/NP7MnMMbhncKfBv5I4FvxcMxRTQ/wzWMp/7rpCrEP/s4/6
-6qqJZejm+OKAi8NcJIv5BcbIBtLj0Fc/NHt2HelxuG93yZgvrOsxL1X76zbi
-Ir24Z++E9Tw/HvNT3lab6kmPxz4n4i6biaUE8f0583/hVdITMF+1qe0m5UmJ
-8mJ1mT7Qh+cniv7uj584Pwl5/Xkbs66RnoS8DfmT3DdIT0ae7umYQvYLnvyh
-PIL9KXif0xJpryJd8O95NbXcP1Xcs+XkI+KiVHzeh0clLOH7pon9Wo+mNJGe
-hr6rQ+c85f3SkXdk6+nARtLTcc+0Y6mlnG/APpWZUb43STeI+d6Cg7SPlAG+
-PKJZ4ftnwO+7O8Kf/Ubs/y3lwVe+r1G8r4hdRPeUTMgPCmsbx/km9J3RWOLi
-/mbMe/K6stAzzLIZfWp68sZep/dmzPvLZ34A3dNjhj/6hdJNfaVMsKHvWT3p
-cibyunQm123yZ2LeuHnjJ9A8j9Bzky41UJ5kQf/mx1t6WshvkdvbBzp8XHwP
-C+457dYVLb33WODfq1htNF+yIv/d3msX2G/FvN+8LiN/HlbsF9k/VcP5Vvj/
-eH+9mPtnwb9ye0bVHfILlkeMr+X8LHwfa/dVuSnPIzj6wC/l3N8Gnt7VOIv9
-NnHvU4NziYtsyHf2GB+y34Z7LDBqFfbbob9bM3ob398Of7qjYojvZ8c+fkGd
-m7zkt+M+2gFTJ+/vQF/jfyGWP8nvgG7IDviB8x3w17vXfeR8obu7PN428i+D
-vmfNzuV8P8Hm5Z8c7F+GPlPDhoJbyS/0k7cbnHfJnw09StVXTSxn4/vSG/PP
-iVbdd97iuTo=
-             "]]}, Annotation[#, "Charting`Private`Tag#2"]& ]}}, {
+       TagBox[{{}, {}, 
+         TagBox[{
+           RGBColor[0, 0, 1], 
+           PointSize[
+            NCache[
+             Rational[1, 72], 0.013888888888888888`]], 
+           AbsoluteThickness[2], 
+           LineBox[CompressedData["
+1:eJw1lAtQVFUYx1dAZgskjY0ISNQSbFlXIB6bCfx5LMsb9sHu8mhMwGrEIhsR
+IYRNJ/A1khmZOwjkEJCLIEwhZOkKhaCBqagDCpFDCoSBYgtYYhf3O3dmZ+d3
+f+d/7nfO/c5dnpal2GjB4/E2cr/5f/M1GWSyXv9VTExHEN3AAetJh87m88R8
+hK/MttAv7CFejHO1VXHG/N+IBSifqOm4+N1VYkdc8P65UXyrl9gFdmc8jxw/
+eY14GTZvz/tGZLpBvAJVcbDf8HI/8asQf1Y50+hzk9gNW5wXDZ3QDxCvwuqm
+oxM1tb8TCyGZacsQCseJRYi7fDC1IP4esRi52lrf7uoRYk/EvrA/atPuv4i9
+wO95SZ4sZOO98ahg049b/dh8r4MrX+hY9TexD9ozjr/9hfUksS9Evfo7R/+9
+S+wHfydjyrI5xv5owc7bsjbGErh78evKckaJ38BYaZPtfQPjtfj6us9ES+IY
+8ZvYUd+cVpjB6l2HbRZ6vvMiVl8Aqj4MePaGmNUfiCV+6366MjRBHASu+lKV
+P6sXKOpSnatdSqwDhneVdwsrmQ+Gd87q5RUG5oPN79fiPvkQrLg5WzAmIdaF
+4PvObWcqGpgPhXq+YLsp8qE49krrf8XO/5APe9pPTg7Mh+HLJtstom5inhTH
+pM1Tjx0fkpdC6V6552QWy4dj6yFHK3UO8+GoGYkQPzEwL8M018+/9hHrZE/f
+R6XARD7C3H9iYl0EPhbUyzYMMx+J6tzzr/3gOk0+EuNrTrs/J5khHwXTqtSS
+NldiXRQaVg7vGtRaweyjUS/7I09gsDGzLhrP7HVN/2B2MfkYzPVuH62+s4R8
+DKSyj2ZLIol5sXBvK6rRGOzIx+JANncCDi8kH4fS0H2b320k1sUhcKSv7lGZ
+Jfl4mFr79+5otyAfj+z5/XrA8glYkPWJ1S86qhcJiE4qklyXsvEJyPQwHR4Q
+Pzavz5gABbf/nnVztH455Jn6nDIXYsjx3sF7+UF1T2g/5DiVVtgXsJ68UY4g
+TUrj2fYF9HwFDIHcjfdpPBTmfs/g0fMVaGmwvLs/l7xRgTqX5IzTF9j6lPCd
+kEhlt2k8lOgP4E64DatfyX1M2q96zJE3KjHm5sUX2bK8CpVOawaq7KkeqOAp
+/NY+IYzlVVj7+cXCzlzyRhXS37oVbilg+UR0ce3uNMXyifDk2mNfHnldIgYP
+FX+avJPmMyaiI9p/T3Am6w81HgRfeucaaDzUSHrx1GVeL3mdGm7c55bfxfJq
+hHAvWNTK8hqkNp4dL89leQ3UFYYT2iGW14A7bQ9T/iRv1ODS7iuDQzbWlNei
+r2damd7C8lrkjnIblE9ep8V8e5R00XxGLZZyB6y+3YHySfAodujr0VK/Ign6
+I9z1vAD/A4pExl8=
+            "]]}, Annotation[#, "Charting`Private`Tag#1"]& ], 
+         TagBox[{
+           RGBColor[1, 0, 0], 
+           PointSize[
+            NCache[
+             Rational[1, 72], 0.013888888888888888`]], 
+           AbsoluteThickness[2], 
+           LineBox[CompressedData["
+1:eJw1lAtMk2cUhqsR1KgL3nVeAtMoKDR1rXgB6UdLEbBIW2hLIxo3pFviksUb
+2XTTf2hwTgcosfoLOideEFFQjKKiNmpkShWFaYZk2bxLTAhsOglhsPeb55AQ
+8vCe+3fOH/bpl46c/hqNJge/8u/7nw6jql4o/ODBbiP9Q9wJVL6ZYCwmHiT2
+qaq5q2Q/cYhQ1Tb3/uSfiUcJvV4fot1ZRjxOwOZ6UPlB4onwj/hu4HO2D4X+
+Z4ux4TDxR+Iz77SzOgPbTwW7Zi4dcoh4GuyLtmRFMYcj35rW9MojxDNg7ysY
+uJs5EvyoMy3uGrFWeL0Fs578cpVYB/3hiq7R54lnod9IZ824auKPET/Gumw4
+sx71f9IU4eF4BvS/LSHuUoB4tuzv6xErzhBHQ0/O9jyoIp6D+NYNa1JriOfK
++v/qF3SceJ4w6K/f1s4rJ54PfeTVh9k8nxj4x7Yl5HF/sZiH7lvrO9YXQM+6
+lT+R/eOkfd6eDtaNiNec9Tj2KLGQfMIaduw9KwLzyT/W2p9YEy/fv7Skld5b
+iZfvu0l/10e6CfNL3BAapJJuEoHAF8V5zgOkm2X8rb/OLSXdjHpDy36axHoC
++jW/+ru4gvQExLtybf0PPD8L5jm+V1tP81Is8A9v/nw1zy8R8cumzL5xkvRE
+1D+mM+w+z3sh9KfdC5pOk74Q+ovspvnEmiTEq53ZYKJ8ShLy3aqbEMnvnQxd
+GTbgN2JF8vexJbWsp8h+VqqLOX4K6s8f3K47QfoixPMEX66he1AWQb8ZGB3C
++2vFfkR0dy1h3Yr5ZT3ObWA9Ff5typNGuhclFfX7ooLvsL4YHP36Lt+HIvnm
+0Pomvq80+G9zXm5lPQ31HuzMmcz+Nswn+6tn/xALG/yDhy2P43pssj/Th5OI
+/TbsQ08/ezjvk13Ws88ST7qwI57ZtCWV/e1437KkP0JpX/12xBOGqCJ+Xwf6
+bxk01kDzEv9zVczvvI8OzMvrtWQS+x3Ilzh2uob3M13Gs/RqaX+E5Gqz0kP7
+r0i+p9l+kdifjnqaC2t/ZP8MxMvtftdILDJgX9RriKf7UDLk/qzb9ZLzS3tv
+9d56vh+nvPfGOr434YT9ZtehZ+zvRD+q7207+0v75KVrKzi/C/OsW6trZ38X
+8nfkOlT6Higu9H/uubWc65e6MmJjFPWrcct5jB+TxPNzY3969vS9Zn+33MeN
+vm/I3u9Gvh16awF/bzLlPpxe9Zbnl4l454ZHt/A9Sg6u8g+oJP9M+X08FTOd
+99sDDtj+7eP8Hnk/y/syKoz/AXf1uXo=
+            "]]}, Annotation[#, "Charting`Private`Tag#2"]& ]}, {
         "WolframDynamicHighlight", <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
        DynamicBox[
@@ -1268,30 +2629,30 @@ iVbdd97iuTo=
                AbsoluteThickness[2], 
                RGBColor[0, 0, 1]], 
               Line[CompressedData["
-1:eJw1lAtQVGUYhg+4AnIRRIQF4hoCQSJQxE3cl/t9gb2xGAMMSompG6AQFbrm
-JW1KNMRJbNQGhEBMJiEHJFwNLDRRyAoy76FgWBsCoXLp0H7/mdnZec573u9/
-/+/7z3HJVUny9DmOy+N/c/+6SyuKzldpd16+I6Ib6FNlG/a03Sc2QvumCqEg
-+xaxBUQXf28RXPiD2AqXZOe/rDG8RyxEcHRs4VODYeIXIHSXzq/+ZYTYGWc9
-zE1aDj0gdoX0oMveFvN/iN3QnDHeaveAsTsC7TSvO98aJPaEouyrb3I3PyX2
-grh3f+aWF8eIX8bMxOY7n3v8S+yD3TtX/dR+aoLYF67r33l3aZGW2A9HrzRc
-lRdy0LE/0qaERemNk6S/gm8lfMDMGeJX0VXuV7LMn3EASofd/Yya9cj/GuqM
-Y5aOB0+THgjbe0qbwJYp4iCM9iXn7nvynDgY3cUdR6tWGpA/BEGTF9Y0qJge
-iid7pZvcOvRJXwHlyPKzHqdmSQ9Drr/c16tRQPpKTM/t35ixCPOqjOwda1g+
-YCby2eM/NxjpWA18UBRzoHiQ7T8c/iXLXJwM55Eejq0DYaX9BSxfBL4+N3Jk
-RZsh6RHgT0/3dTnV4yLRUeYQ9GaOOemRqMzbvfqmgOpxUeh0biocMjUjPQri
-XAtl6w8mpEfjrklFvb4PWz8aLk2FaxcN03pcDKL7tWOXnFn9GLzx88N1J9xY
-/VjUHu509uWonjoWN90MtlUWLCI9Dt4fWg/0xJuSHgfB3EBDLUmPR2fEyfys
-LNafeFSE6CUL9lmQnoDv1jTkyPwWkJ4Ap7H1irKVlIdLxGOzDl9bc6qnTsRp
-04JGkynWvyQkvLd9eZIBy5eEhw51Q3G1LF8yrPgXLKCD+ZMxOOrU93c9qy/G
-0EDjs8xutn8xtHUXE8/ULSQ9BSrL7ZqPvJaQnoLvXwr59PK0FempEAVktXVX
-2egYqVg13vqbcQPtT52KKP54aKppPppU6CXvMLu6hOpxaRiO85n94jg9jzTU
-14hRMcn8afAWVl5fAMqvSUPZtdMZ48asvxIEXAkV9/5IDAlk948fjhqwI78E
-u7pl5z2LHckvQUmKo/Wjc7bkl0Kvfb7lgVp78kuRz6m27dCy/Uphc6aXy1pI
-rJGiujlwMoJzIL8MQ+u8J2z+Yvll8NlYrdd+hPVbpuuPnRP5Zf+fF3EPm48c
-e8JzBq91WZNfjo8THgmaHSmvWo5je5ru5pdQfzVyvD/alPqW62LyK3T9uUH9
-hQKfbeQHdoOtr8CxEyf7b2tYfgX46W2NS6DzyqWD27/leUgPzR/p6OLfp7Xl
-lE+djg1zH0hrtn46Ds1dpZSXU2IX/zlcXU7nAUqEGf9arc2m/qqV4E+jz6y9
-kPxK1LzNP6HH8mfAwNJKFHOb5oUMfOLJn/iDi/Ef8XGpDw==
+1:eJw1lAtQVFUYx1dAZgskjY0ISNQSbFlXIB6bCfx5LMsb9sHu8mhMwGrEIhsR
+IYRNJ/A1khmZOwjkEJCLIEwhZOkKhaCBqagDCpFDCoSBYgtYYhf3O3dmZ+d3
+f+d/7nfO/c5dnpal2GjB4/E2cr/5f/M1GWSyXv9VTExHEN3AAetJh87m88R8
+hK/MttAv7CFejHO1VXHG/N+IBSifqOm4+N1VYkdc8P65UXyrl9gFdmc8jxw/
+eY14GTZvz/tGZLpBvAJVcbDf8HI/8asQf1Y50+hzk9gNW5wXDZ3QDxCvwuqm
+oxM1tb8TCyGZacsQCseJRYi7fDC1IP4esRi52lrf7uoRYk/EvrA/atPuv4i9
+wO95SZ4sZOO98ahg049b/dh8r4MrX+hY9TexD9ozjr/9hfUksS9Evfo7R/+9
+S+wHfydjyrI5xv5owc7bsjbGErh78evKckaJ38BYaZPtfQPjtfj6us9ES+IY
+8ZvYUd+cVpjB6l2HbRZ6vvMiVl8Aqj4MePaGmNUfiCV+6366MjRBHASu+lKV
+P6sXKOpSnatdSqwDhneVdwsrmQ+Gd87q5RUG5oPN79fiPvkQrLg5WzAmIdaF
+4PvObWcqGpgPhXq+YLsp8qE49krrf8XO/5APe9pPTg7Mh+HLJtstom5inhTH
+pM1Tjx0fkpdC6V6552QWy4dj6yFHK3UO8+GoGYkQPzEwL8M018+/9hHrZE/f
+R6XARD7C3H9iYl0EPhbUyzYMMx+J6tzzr/3gOk0+EuNrTrs/J5khHwXTqtSS
+NldiXRQaVg7vGtRaweyjUS/7I09gsDGzLhrP7HVN/2B2MfkYzPVuH62+s4R8
+DKSyj2ZLIol5sXBvK6rRGOzIx+JANncCDi8kH4fS0H2b320k1sUhcKSv7lGZ
+Jfl4mFr79+5otyAfj+z5/XrA8glYkPWJ1S86qhcJiE4qklyXsvEJyPQwHR4Q
+Pzavz5gABbf/nnVztH455Jn6nDIXYsjx3sF7+UF1T2g/5DiVVtgXsJ68UY4g
+TUrj2fYF9HwFDIHcjfdpPBTmfs/g0fMVaGmwvLs/l7xRgTqX5IzTF9j6lPCd
+kEhlt2k8lOgP4E64DatfyX1M2q96zJE3KjHm5sUX2bK8CpVOawaq7KkeqOAp
+/NY+IYzlVVj7+cXCzlzyRhXS37oVbilg+UR0ce3uNMXyifDk2mNfHnldIgYP
+FX+avJPmMyaiI9p/T3Am6w81HgRfeucaaDzUSHrx1GVeL3mdGm7c55bfxfJq
+hHAvWNTK8hqkNp4dL89leQ3UFYYT2iGW14A7bQ9T/iRv1ODS7iuDQzbWlNei
+r2damd7C8lrkjnIblE9ep8V8e5R00XxGLZZyB6y+3YHySfAodujr0VK/Ign6
+I9z1vAD/A4pExl8=
                "]]}, "Charting`Private`Tag#1"], 
             Annotation[{
               Hue[0.9060679774997897, 0.6, 0.6], 
@@ -1301,33 +2662,33 @@ kPxK1LzNP6HH8mfAwNJKFHOb5oUMfOLJn/iDi/Ef8XGpDw==
                AbsoluteThickness[2], 
                RGBColor[1, 0, 0]], 
               Line[CompressedData["
-1:eJw1kgtIlHkUxb+yrKBCetCYrbpRpq29nFJn0p3P8a3jzDjjzGREuJUTRZpZ
-tERFxpRpWhY9vx7LEmNUa+G77CFT2ri72APK0IoyyXZX6A3mQmbnj/cKIj/P
-/9xz7p35cdVGS+5ISZJy8Sv+Dv980KnV6gar3z4d/UN2OkNmDnYwj5XvtYdv
-6GgrJvaTTylNO3a9YH2KrFZvXqkvZVYJflUWVEI8Q5aknPvHg0uJg2VF0Zx7
-H848U7wPfdnNPAv5vgl/JzOHyGudIYETp5cRh4o+iT992U88F9yuutvPejjm
-qT8PRjHPx7w362L+LSdeCPbaH9YzL8L7yfdifQ4SR4A/f337jFmNfTUDOXuY
-F6O/sqL5BvMS9EuKD7tfQRwJbjzWlHWIOAr8Jqz3KHO02Dd/q+owsUb0VQwF
-zFqR71+nMC9F3/NP7MnMMbhncKfBv5I4FvxcMxRTQ/wzWMp/7rpCrEP/s4/6
-6qqJZejm+OKAi8NcJIv5BcbIBtLj0Fc/NHt2HelxuG93yZgvrOsxL1X76zbi
-Ir24Z++E9Tw/HvNT3lab6kmPxz4n4i6biaUE8f0583/hVdITMF+1qe0m5UmJ
-8mJ1mT7Qh+cniv7uj584Pwl5/Xkbs66RnoS8DfmT3DdIT0ae7umYQvYLnvyh
-PIL9KXif0xJpryJd8O95NbXcP1Xcs+XkI+KiVHzeh0clLOH7pon9Wo+mNJGe
-hr6rQ+c85f3SkXdk6+nARtLTcc+0Y6mlnG/APpWZUb43STeI+d6Cg7SPlAG+
-PKJZ4ftnwO+7O8Kf/Ubs/y3lwVe+r1G8r4hdRPeUTMgPCmsbx/km9J3RWOLi
-/mbMe/K6stAzzLIZfWp68sZep/dmzPvLZ34A3dNjhj/6hdJNfaVMsKHvWT3p
-cibyunQm123yZ2LeuHnjJ9A8j9Bzky41UJ5kQf/mx1t6WshvkdvbBzp8XHwP
-C+457dYVLb33WODfq1htNF+yIv/d3msX2G/FvN+8LiN/HlbsF9k/VcP5Vvj/
-eH+9mPtnwb9ye0bVHfILlkeMr+X8LHwfa/dVuSnPIzj6wC/l3N8Gnt7VOIv9
-NnHvU4NziYtsyHf2GB+y34Z7LDBqFfbbob9bM3ob398Of7qjYojvZ8c+fkGd
-m7zkt+M+2gFTJ+/vQF/jfyGWP8nvgG7IDviB8x3w17vXfeR8obu7PN428i+D
-vmfNzuV8P8Hm5Z8c7F+GPlPDhoJbyS/0k7cbnHfJnw09StVXTSxn4/vSG/PP
-iVbdd97iuTo=
+1:eJw1lAtMk2cUhqsR1KgL3nVeAtMoKDR1rXgB6UdLEbBIW2hLIxo3pFviksUb
+2XTTf2hwTgcosfoLOideEFFQjKKiNmpkShWFaYZk2bxLTAhsOglhsPeb55AQ
+8vCe+3fOH/bpl46c/hqNJge/8u/7nw6jql4o/ODBbiP9Q9wJVL6ZYCwmHiT2
+qaq5q2Q/cYhQ1Tb3/uSfiUcJvV4fot1ZRjxOwOZ6UPlB4onwj/hu4HO2D4X+
+Z4ux4TDxR+Iz77SzOgPbTwW7Zi4dcoh4GuyLtmRFMYcj35rW9MojxDNg7ysY
+uJs5EvyoMy3uGrFWeL0Fs578cpVYB/3hiq7R54lnod9IZ824auKPET/Gumw4
+sx71f9IU4eF4BvS/LSHuUoB4tuzv6xErzhBHQ0/O9jyoIp6D+NYNa1JriOfK
++v/qF3SceJ4w6K/f1s4rJ54PfeTVh9k8nxj4x7Yl5HF/sZiH7lvrO9YXQM+6
+lT+R/eOkfd6eDtaNiNec9Tj2KLGQfMIaduw9KwLzyT/W2p9YEy/fv7Skld5b
+iZfvu0l/10e6CfNL3BAapJJuEoHAF8V5zgOkm2X8rb/OLSXdjHpDy36axHoC
++jW/+ru4gvQExLtybf0PPD8L5jm+V1tP81Is8A9v/nw1zy8R8cumzL5xkvRE
+1D+mM+w+z3sh9KfdC5pOk74Q+ovspvnEmiTEq53ZYKJ8ShLy3aqbEMnvnQxd
+GTbgN2JF8vexJbWsp8h+VqqLOX4K6s8f3K47QfoixPMEX66he1AWQb8ZGB3C
++2vFfkR0dy1h3Yr5ZT3ObWA9Ff5typNGuhclFfX7ooLvsL4YHP36Lt+HIvnm
+0Pomvq80+G9zXm5lPQ31HuzMmcz+Nswn+6tn/xALG/yDhy2P43pssj/Th5OI
+/TbsQ08/ezjvk13Ws88ST7qwI57ZtCWV/e1437KkP0JpX/12xBOGqCJ+Xwf6
+bxk01kDzEv9zVczvvI8OzMvrtWQS+x3Ilzh2uob3M13Gs/RqaX+E5Gqz0kP7
+r0i+p9l+kdifjnqaC2t/ZP8MxMvtftdILDJgX9RriKf7UDLk/qzb9ZLzS3tv
+9d56vh+nvPfGOr434YT9ZtehZ+zvRD+q7207+0v75KVrKzi/C/OsW6trZ38X
+8nfkOlT6Higu9H/uubWc65e6MmJjFPWrcct5jB+TxPNzY3969vS9Zn+33MeN
+vm/I3u9Gvh16awF/bzLlPpxe9Zbnl4l454ZHt/A9Sg6u8g+oJP9M+X08FTOd
+99sDDtj+7eP8Hnk/y/syKoz/AXf1uXo=
                "]]}, "Charting`Private`Tag#2"]}}, <|
           "HighlightElements" -> <|
             "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
            "LayoutOptions" -> <|
-            "PlotRange" -> {{0., 101.}, {0, 7.77616015625}}, 
+            "PlotRange" -> {{0., 101.}, {0, 5.69109453125}}, 
              "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0., 0},
               "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
              "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
@@ -1356,7 +2717,7 @@ iVbdd97iuTo=
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
           "LayoutOptions" -> <|
-           "PlotRange" -> {{0., 101.}, {0, 7.77616015625}}, 
+           "PlotRange" -> {{0., 101.}, {0, 5.69109453125}}, 
             "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0., 0}, 
             "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
             "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
@@ -1381,7 +2742,9 @@ iVbdd97iuTo=
             False|>, 
           "Meta" -> <|
            "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
-            ListLinePlot, "GroupHighlight" -> False|>|>]]}, 
+            ListLinePlot, "GroupHighlight" -> False|>|>], 
+        ImageSizeCache -> {{256.92541673112623`, 320.5506961701398}, {
+         62.47071221002729, 98.97197836186832}}]}, 
       Annotation[{{{}, {}, 
          Annotation[{
            Hue[0.67, 0.6, 0.6], 
@@ -1391,30 +2754,30 @@ iVbdd97iuTo=
             AbsoluteThickness[2], 
             RGBColor[0, 0, 1]], 
            Line[CompressedData["
-1:eJw1lAtQVGUYhg+4AnIRRIQF4hoCQSJQxE3cl/t9gb2xGAMMSompG6AQFbrm
-JW1KNMRJbNQGhEBMJiEHJFwNLDRRyAoy76FgWBsCoXLp0H7/mdnZec573u9/
-/+/7z3HJVUny9DmOy+N/c/+6SyuKzldpd16+I6Ib6FNlG/a03Sc2QvumCqEg
-+xaxBUQXf28RXPiD2AqXZOe/rDG8RyxEcHRs4VODYeIXIHSXzq/+ZYTYGWc9
-zE1aDj0gdoX0oMveFvN/iN3QnDHeaveAsTsC7TSvO98aJPaEouyrb3I3PyX2
-grh3f+aWF8eIX8bMxOY7n3v8S+yD3TtX/dR+aoLYF67r33l3aZGW2A9HrzRc
-lRdy0LE/0qaERemNk6S/gm8lfMDMGeJX0VXuV7LMn3EASofd/Yya9cj/GuqM
-Y5aOB0+THgjbe0qbwJYp4iCM9iXn7nvynDgY3cUdR6tWGpA/BEGTF9Y0qJge
-iid7pZvcOvRJXwHlyPKzHqdmSQ9Drr/c16tRQPpKTM/t35ixCPOqjOwda1g+
-YCby2eM/NxjpWA18UBRzoHiQ7T8c/iXLXJwM55Eejq0DYaX9BSxfBL4+N3Jk
-RZsh6RHgT0/3dTnV4yLRUeYQ9GaOOemRqMzbvfqmgOpxUeh0biocMjUjPQri
-XAtl6w8mpEfjrklFvb4PWz8aLk2FaxcN03pcDKL7tWOXnFn9GLzx88N1J9xY
-/VjUHu509uWonjoWN90MtlUWLCI9Dt4fWg/0xJuSHgfB3EBDLUmPR2fEyfys
-LNafeFSE6CUL9lmQnoDv1jTkyPwWkJ4Ap7H1irKVlIdLxGOzDl9bc6qnTsRp
-04JGkynWvyQkvLd9eZIBy5eEhw51Q3G1LF8yrPgXLKCD+ZMxOOrU93c9qy/G
-0EDjs8xutn8xtHUXE8/ULSQ9BSrL7ZqPvJaQnoLvXwr59PK0FempEAVktXVX
-2egYqVg13vqbcQPtT52KKP54aKppPppU6CXvMLu6hOpxaRiO85n94jg9jzTU
-14hRMcn8afAWVl5fAMqvSUPZtdMZ48asvxIEXAkV9/5IDAlk948fjhqwI78E
-u7pl5z2LHckvQUmKo/Wjc7bkl0Kvfb7lgVp78kuRz6m27dCy/Uphc6aXy1pI
-rJGiujlwMoJzIL8MQ+u8J2z+Yvll8NlYrdd+hPVbpuuPnRP5Zf+fF3EPm48c
-e8JzBq91WZNfjo8THgmaHSmvWo5je5ru5pdQfzVyvD/alPqW62LyK3T9uUH9
-hQKfbeQHdoOtr8CxEyf7b2tYfgX46W2NS6DzyqWD27/leUgPzR/p6OLfp7Xl
-lE+djg1zH0hrtn46Ds1dpZSXU2IX/zlcXU7nAUqEGf9arc2m/qqV4E+jz6y9
-kPxK1LzNP6HH8mfAwNJKFHOb5oUMfOLJn/iDi/Ef8XGpDw==
+1:eJw1lAtQVFUYx1dAZgskjY0ISNQSbFlXIB6bCfx5LMsb9sHu8mhMwGrEIhsR
+IYRNJ/A1khmZOwjkEJCLIEwhZOkKhaCBqagDCpFDCoSBYgtYYhf3O3dmZ+d3
+f+d/7nfO/c5dnpal2GjB4/E2cr/5f/M1GWSyXv9VTExHEN3AAetJh87m88R8
+hK/MttAv7CFejHO1VXHG/N+IBSifqOm4+N1VYkdc8P65UXyrl9gFdmc8jxw/
+eY14GTZvz/tGZLpBvAJVcbDf8HI/8asQf1Y50+hzk9gNW5wXDZ3QDxCvwuqm
+oxM1tb8TCyGZacsQCseJRYi7fDC1IP4esRi52lrf7uoRYk/EvrA/atPuv4i9
+wO95SZ4sZOO98ahg049b/dh8r4MrX+hY9TexD9ozjr/9hfUksS9Evfo7R/+9
+S+wHfydjyrI5xv5owc7bsjbGErh78evKckaJ38BYaZPtfQPjtfj6us9ES+IY
+8ZvYUd+cVpjB6l2HbRZ6vvMiVl8Aqj4MePaGmNUfiCV+6366MjRBHASu+lKV
+P6sXKOpSnatdSqwDhneVdwsrmQ+Gd87q5RUG5oPN79fiPvkQrLg5WzAmIdaF
+4PvObWcqGpgPhXq+YLsp8qE49krrf8XO/5APe9pPTg7Mh+HLJtstom5inhTH
+pM1Tjx0fkpdC6V6552QWy4dj6yFHK3UO8+GoGYkQPzEwL8M018+/9hHrZE/f
+R6XARD7C3H9iYl0EPhbUyzYMMx+J6tzzr/3gOk0+EuNrTrs/J5khHwXTqtSS
+NldiXRQaVg7vGtRaweyjUS/7I09gsDGzLhrP7HVN/2B2MfkYzPVuH62+s4R8
+DKSyj2ZLIol5sXBvK6rRGOzIx+JANncCDi8kH4fS0H2b320k1sUhcKSv7lGZ
+Jfl4mFr79+5otyAfj+z5/XrA8glYkPWJ1S86qhcJiE4qklyXsvEJyPQwHR4Q
+Pzavz5gABbf/nnVztH455Jn6nDIXYsjx3sF7+UF1T2g/5DiVVtgXsJ68UY4g
+TUrj2fYF9HwFDIHcjfdpPBTmfs/g0fMVaGmwvLs/l7xRgTqX5IzTF9j6lPCd
+kEhlt2k8lOgP4E64DatfyX1M2q96zJE3KjHm5sUX2bK8CpVOawaq7KkeqOAp
+/NY+IYzlVVj7+cXCzlzyRhXS37oVbilg+UR0ce3uNMXyifDk2mNfHnldIgYP
+FX+avJPmMyaiI9p/T3Am6w81HgRfeucaaDzUSHrx1GVeL3mdGm7c55bfxfJq
+hHAvWNTK8hqkNp4dL89leQ3UFYYT2iGW14A7bQ9T/iRv1ODS7iuDQzbWlNei
+r2damd7C8lrkjnIblE9ep8V8e5R00XxGLZZyB6y+3YHySfAodujr0VK/Ign6
+I9z1vAD/A4pExl8=
             "]]}, "Charting`Private`Tag#1"], 
          Annotation[{
            Hue[0.9060679774997897, 0.6, 0.6], 
@@ -1424,33 +2787,33 @@ kPxK1LzNP6HH8mfAwNJKFHOb5oUMfOLJn/iDi/Ef8XGpDw==
             AbsoluteThickness[2], 
             RGBColor[1, 0, 0]], 
            Line[CompressedData["
-1:eJw1kgtIlHkUxb+yrKBCetCYrbpRpq29nFJn0p3P8a3jzDjjzGREuJUTRZpZ
-tERFxpRpWhY9vx7LEmNUa+G77CFT2ri72APK0IoyyXZX6A3mQmbnj/cKIj/P
-/9xz7p35cdVGS+5ISZJy8Sv+Dv980KnV6gar3z4d/UN2OkNmDnYwj5XvtYdv
-6GgrJvaTTylNO3a9YH2KrFZvXqkvZVYJflUWVEI8Q5aknPvHg0uJg2VF0Zx7
-H848U7wPfdnNPAv5vgl/JzOHyGudIYETp5cRh4o+iT992U88F9yuutvPejjm
-qT8PRjHPx7w362L+LSdeCPbaH9YzL8L7yfdifQ4SR4A/f337jFmNfTUDOXuY
-F6O/sqL5BvMS9EuKD7tfQRwJbjzWlHWIOAr8Jqz3KHO02Dd/q+owsUb0VQwF
-zFqR71+nMC9F3/NP7MnMMbhncKfBv5I4FvxcMxRTQ/wzWMp/7rpCrEP/s4/6
-6qqJZejm+OKAi8NcJIv5BcbIBtLj0Fc/NHt2HelxuG93yZgvrOsxL1X76zbi
-Ir24Z++E9Tw/HvNT3lab6kmPxz4n4i6biaUE8f0583/hVdITMF+1qe0m5UmJ
-8mJ1mT7Qh+cniv7uj584Pwl5/Xkbs66RnoS8DfmT3DdIT0ae7umYQvYLnvyh
-PIL9KXif0xJpryJd8O95NbXcP1Xcs+XkI+KiVHzeh0clLOH7pon9Wo+mNJGe
-hr6rQ+c85f3SkXdk6+nARtLTcc+0Y6mlnG/APpWZUb43STeI+d6Cg7SPlAG+
-PKJZ4ftnwO+7O8Kf/Ubs/y3lwVe+r1G8r4hdRPeUTMgPCmsbx/km9J3RWOLi
-/mbMe/K6stAzzLIZfWp68sZep/dmzPvLZ34A3dNjhj/6hdJNfaVMsKHvWT3p
-cibyunQm123yZ2LeuHnjJ9A8j9Bzky41UJ5kQf/mx1t6WshvkdvbBzp8XHwP
-C+457dYVLb33WODfq1htNF+yIv/d3msX2G/FvN+8LiN/HlbsF9k/VcP5Vvj/
-eH+9mPtnwb9ye0bVHfILlkeMr+X8LHwfa/dVuSnPIzj6wC/l3N8Gnt7VOIv9
-NnHvU4NziYtsyHf2GB+y34Z7LDBqFfbbob9bM3ob398Of7qjYojvZ8c+fkGd
-m7zkt+M+2gFTJ+/vQF/jfyGWP8nvgG7IDviB8x3w17vXfeR8obu7PN428i+D
-vmfNzuV8P8Hm5Z8c7F+GPlPDhoJbyS/0k7cbnHfJnw09StVXTSxn4/vSG/PP
-iVbdd97iuTo=
+1:eJw1lAtMk2cUhqsR1KgL3nVeAtMoKDR1rXgB6UdLEbBIW2hLIxo3pFviksUb
+2XTTf2hwTgcosfoLOideEFFQjKKiNmpkShWFaYZk2bxLTAhsOglhsPeb55AQ
+8vCe+3fOH/bpl46c/hqNJge/8u/7nw6jql4o/ODBbiP9Q9wJVL6ZYCwmHiT2
+qaq5q2Q/cYhQ1Tb3/uSfiUcJvV4fot1ZRjxOwOZ6UPlB4onwj/hu4HO2D4X+
+Z4ux4TDxR+Iz77SzOgPbTwW7Zi4dcoh4GuyLtmRFMYcj35rW9MojxDNg7ysY
+uJs5EvyoMy3uGrFWeL0Fs578cpVYB/3hiq7R54lnod9IZ824auKPET/Gumw4
+sx71f9IU4eF4BvS/LSHuUoB4tuzv6xErzhBHQ0/O9jyoIp6D+NYNa1JriOfK
++v/qF3SceJ4w6K/f1s4rJ54PfeTVh9k8nxj4x7Yl5HF/sZiH7lvrO9YXQM+6
+lT+R/eOkfd6eDtaNiNec9Tj2KLGQfMIaduw9KwLzyT/W2p9YEy/fv7Skld5b
+iZfvu0l/10e6CfNL3BAapJJuEoHAF8V5zgOkm2X8rb/OLSXdjHpDy36axHoC
++jW/+ru4gvQExLtybf0PPD8L5jm+V1tP81Is8A9v/nw1zy8R8cumzL5xkvRE
+1D+mM+w+z3sh9KfdC5pOk74Q+ovspvnEmiTEq53ZYKJ8ShLy3aqbEMnvnQxd
+GTbgN2JF8vexJbWsp8h+VqqLOX4K6s8f3K47QfoixPMEX66he1AWQb8ZGB3C
++2vFfkR0dy1h3Yr5ZT3ObWA9Ff5typNGuhclFfX7ooLvsL4YHP36Lt+HIvnm
+0Pomvq80+G9zXm5lPQ31HuzMmcz+Nswn+6tn/xALG/yDhy2P43pssj/Th5OI
+/TbsQ08/ezjvk13Ws88ST7qwI57ZtCWV/e1437KkP0JpX/12xBOGqCJ+Xwf6
+bxk01kDzEv9zVczvvI8OzMvrtWQS+x3Ilzh2uob3M13Gs/RqaX+E5Gqz0kP7
+r0i+p9l+kdifjnqaC2t/ZP8MxMvtftdILDJgX9RriKf7UDLk/qzb9ZLzS3tv
+9d56vh+nvPfGOr434YT9ZtehZ+zvRD+q7207+0v75KVrKzi/C/OsW6trZ38X
+8nfkOlT6Higu9H/uubWc65e6MmJjFPWrcct5jB+TxPNzY3969vS9Zn+33MeN
+vm/I3u9Gvh16awF/bzLlPpxe9Zbnl4l454ZHt/A9Sg6u8g+oJP9M+X08FTOd
+99sDDtj+7eP8Hnk/y/syKoz/AXf1uXo=
             "]]}, "Charting`Private`Tag#2"]}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
-         "PlotRange" -> {{0., 101.}, {0, 7.77616015625}}, 
+         "PlotRange" -> {{0., 101.}, {0, 5.69109453125}}, 
           "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0., 0}, 
           "ImageSize" -> {576, 576/GoldenRatio}, "Axes" -> {True, True}, 
           "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
@@ -1475,108 +2838,105 @@ iVbdd97iuTo=
          "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           ListLinePlot, "GroupHighlight" -> False|>|>, 
-       "DynamicHighlight"]], {{}, {}}}, {
-    DisplayFunction -> Identity, DisplayFunction -> Identity, DisplayFunction -> 
-     Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
-     Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0., 0}, 
-     DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, 
-     FrameLabel -> {{
-        FormBox[
-         TagBox["\"Runtime [ms]\"", HoldForm], TraditionalForm], None}, {
-        FormBox[
-         TagBox["\"n\"", HoldForm], TraditionalForm], None}}, 
-     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
-     GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[
-       GrayLevel[0.5, 0.4]], ImageSize -> Large, 
-     Method -> {
-      "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
-       "DefaultGraphicsInteraction" -> {
-        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
-         "Effects" -> {
-          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
-           "Droplines" -> {
-            "freeformCursorMode" -> True, 
-             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
-       "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
-         Directive[
-          RGBColor[0.368417, 0.506779, 0.709798], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.880722, 0.611041, 0.142051], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.560181, 0.691569, 0.194885], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.922526, 0.385626, 0.209179], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.528488, 0.470624, 0.701351], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.772079, 0.431554, 0.102387], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.363898, 0.618501, 0.782349], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[1, 0.75, 0], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.647624, 0.37816, 0.614037], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.571589, 0.586483, 0.], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.915, 0.3325, 0.2125], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[
-          0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
-          AbsoluteThickness[2]], 
-         Directive[
-          RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
-          AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
-       "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, 
-       "IncludeHighlighting" -> "CurrentSet", "HighlightStyle" -> Automatic, 
-       "OptimizePlotMarkers" -> True, 
-       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
-           Identity[
-            Part[#, 1]], 
-           Identity[
-            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
-           Identity[
-            Part[#, 1]], 
-           Identity[
-            Part[#, 2]]}& )}}, PlotLabel -> FormBox[
-       TemplateBox[{
-         StyleBox[
-         "\"Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smmd)\"", Bold, 
-          13, StripOnInput -> False], "\"\\n\"", 
-         StyleBox[
-         "\"X: [(-20.0) \[Rule] 20.0 ; 100], to each value of n \\n\"", 12, 
-          StripOnInput -> False]}, "RowDefault"], TraditionalForm], 
-     PlotRange -> {{0., 101.}, {0, 7.77616015625}}, PlotRangeClipping -> True,
-      PlotRangePadding -> {{
-        Scaled[0.02], 
-        Scaled[0.02]}, {
-        Scaled[0.02], 
-        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
+       "DynamicHighlight"]], {{}, {}}}, AspectRatio -> 
+    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
+    AxesLabel -> {None, None}, AxesOrigin -> {0., 0}, DisplayFunction -> 
+    Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
+       FormBox[
+        TagBox["\"Runtime [ms]\"", HoldForm], TraditionalForm], None}, {
+       FormBox[
+        TagBox["\"n\"", HoldForm], TraditionalForm], None}}, 
+    FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
+    GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[
+      GrayLevel[0.5, 0.4]], ImageSize -> Large, 
+    Method -> {
+     "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
+      "DefaultGraphicsInteraction" -> {
+       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
+        "Effects" -> {
+         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
+          "Droplines" -> {
+           "freeformCursorMode" -> True, 
+            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
+      "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
+        Directive[
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.922526, 0.385626, 0.209179], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.528488, 0.470624, 0.701351], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.772079, 0.431554, 0.102387], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.363898, 0.618501, 0.782349], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[1, 0.75, 0], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.647624, 0.37816, 0.614037], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.571589, 0.586483, 0.], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.915, 0.3325, 0.2125], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
+         AbsoluteThickness[2]], 
+        Directive[
+         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
+         AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], 
+      "RangePadding" -> Scaled[0.05], "OptimizePlotMarkers" -> True, 
+      "IncludeHighlighting" -> "CurrentSet", "HighlightStyle" -> Automatic, 
+      "OptimizePlotMarkers" -> True, 
+      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+          Identity[
+           Part[#, 1]], 
+          Identity[
+           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+          Identity[
+           Part[#, 1]], 
+          Identity[
+           Part[#, 2]]}& )}}, PlotLabel -> FormBox[
+      TemplateBox[{
+        StyleBox[
+        "\"Wavefunction_Wolfram1 vs Wavefunction_Fast-Wave(smmd; \
+less_fast)\"", Bold, 13, StripOnInput -> False], "\"\\n\"", 
+        StyleBox[
+        "\"X: [(-20.0) \[Rule] 20.0 ; 100], to each value of n \\n\"", 12, 
+         StripOnInput -> False]}, "RowDefault"], TraditionalForm], 
+    PlotRange -> {{0., 101.}, {0, 5.69109453125}}, PlotRangeClipping -> True, 
+    PlotRangePadding -> {{
+       Scaled[0.02], 
+       Scaled[0.02]}, {
+       Scaled[0.02], 
+       Scaled[0.05]}}, Ticks -> {Automatic, Automatic}], 
    FormBox[
     FormBox[
      TemplateBox[{
       "\" avg[Wavefunction_Wolfram1] = \
-\\!\\(\\*FormBox[\\\"3.5892826113861371339908146183006465435`20.\\\", \
+\\!\\(\\*FormBox[\\\"1.76660224488513262208755350002320483327`20.\\\", \
 TraditionalForm]\\) ms\"", 
-       "\" avg[Fast-Wave(smmd)] = \
-\\!\\(\\*FormBox[\\\"0.08316205861383332842429183529020519927`20.\\\", \
+       "\" avg[Fast-Wave(smmd; less_fast)] = \
+\\!\\(\\*FormBox[\\\"0.0514374255445338920966769080678204773`20.\\\", \
 TraditionalForm]\\) ms\""}, "LineLegend", DisplayFunction -> (FormBox[
         StyleBox[
          StyleBox[
@@ -1708,11 +3068,9 @@ TraditionalForm]\\) ms\""}, "LineLegend", DisplayFunction -> (FormBox[
      RowBox[{#, ",", 
        RowBox[{"Placed", "[", 
          RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
- CellChangeTimes->{3.931270802255453*^9, 3.9312739356908293`*^9, 
-  3.931274874017032*^9, 3.931275203708679*^9, 3.931276000085453*^9, 
-  3.9312766912168355`*^9, 3.9312783778720016`*^9},
- CellLabel->
-  "Out[159]=",ExpressionUUID->"23f5c76a-8463-4f91-b562-5ecd9802fc47"]
+ CellChangeTimes->{3.9319462244874372`*^9, 3.9319466527529764`*^9, 
+  3.931946953935666*^9, 3.9319472547223635`*^9, 3.931947671549612*^9},
+ CellLabel->"Out[52]=",ExpressionUUID->"22c2a46b-8a78-4f9b-a9e9-fc09345d44ef"]
 }, Open  ]]
 }, Open  ]],
 
@@ -3120,33 +4478,49 @@ Cell[CellGroupData[{
 Cell[10746, 315, 231, 6, 45, "Subsubsection",ExpressionUUID->"b84a49e7-2330-4afd-aabd-cf42c3963d12"],
 Cell[10980, 323, 1408, 49, 37, "Text",ExpressionUUID->"0ce84188-ab0c-4e8f-9cfb-26168f4e2894"],
 Cell[CellGroupData[{
-Cell[12413, 376, 5037, 106, 798, "Input",ExpressionUUID->"33f46a33-4e37-4fb1-8595-6388b68ece73"],
-Cell[17453, 484, 479, 8, 22, "Print",ExpressionUUID->"c394a792-0c0e-4692-af65-ebdbf557cb47"],
-Cell[17935, 494, 24643, 526, 484, "Output",ExpressionUUID->"552ce0ae-add3-49b7-a548-f9926667ff54"]
+Cell[12413, 376, 5444, 115, 855, "Input",ExpressionUUID->"33f46a33-4e37-4fb1-8595-6388b68ece73"],
+Cell[17860, 493, 624, 10, 22, "Print",ExpressionUUID->"c3f891bd-c40c-418e-b538-9d03e9e79ca1"],
+Cell[18487, 505, 24233, 515, 493, "Output",ExpressionUUID->"0f702706-4ff7-4666-bdba-eae314177df7"]
+}, Open  ]]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[42769, 1026, 1358, 49, 47, "Subsubsection",ExpressionUUID->"60a47f8b-5c4c-4d77-b984-be536bfb27e7"],
+Cell[CellGroupData[{
+Cell[44152, 1079, 3971, 94, 817, "Input",ExpressionUUID->"363ea505-7335-4968-933c-f0ee8e6d7ed6"],
+Cell[48126, 1175, 285, 5, 22, "Print",ExpressionUUID->"b4bb99c9-3b5e-445f-849a-6d361fef017e"],
+Cell[48414, 1182, 24677, 523, 493, "Output",ExpressionUUID->"3b13b2d8-d670-437f-a680-4193c81f03f6"]
+}, Open  ]]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[73140, 1711, 1341, 48, 65, "Subsubsection",ExpressionUUID->"c58ebe82-53ad-4eaf-8b91-9b5f7b2d74c4"],
+Cell[CellGroupData[{
+Cell[74506, 1763, 4107, 94, 760, "Input",ExpressionUUID->"29fa579a-6133-4da1-b95e-8fc1d0e283af"],
+Cell[78616, 1859, 382, 6, 22, "Print",ExpressionUUID->"1f5ffc42-c0d4-4bb4-b66f-23ddc6974842"],
+Cell[79001, 1867, 24810, 527, 493, "Output",ExpressionUUID->"f61a3d8d-3ba1-43b4-a6c8-0a12e2544202"]
 }, Open  ]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[42627, 1026, 1341, 48, 65, "Subsubsection",ExpressionUUID->"c58ebe82-53ad-4eaf-8b91-9b5f7b2d74c4"],
+Cell[103860, 2400, 1332, 48, 47, "Subsubsection",ExpressionUUID->"62bc2236-88a0-48ab-8cf5-8b38e9624982"],
 Cell[CellGroupData[{
-Cell[43993, 1078, 4111, 95, 760, "Input",ExpressionUUID->"29fa579a-6133-4da1-b95e-8fc1d0e283af"],
-Cell[48107, 1175, 359, 6, 22, "Print",ExpressionUUID->"9129adb4-1d26-4823-86f5-a728d78f404c"],
-Cell[48469, 1183, 24970, 531, 493, "Output",ExpressionUUID->"23f5c76a-8463-4f91-b562-5ecd9802fc47"]
+Cell[105217, 2452, 3660, 87, 760, "Input",ExpressionUUID->"77e1e730-fafb-4238-8b3c-1884cbc8671e"],
+Cell[108880, 2541, 311, 5, 22, "Print",ExpressionUUID->"c2e80e55-dc3f-4053-baf3-a89b7af33912"],
+Cell[109194, 2548, 24659, 524, 493, "Output",ExpressionUUID->"22c2a46b-8a78-4f9b-a9e9-fc09345d44ef"]
 }, Open  ]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[73488, 1720, 1339, 48, 65, "Subsubsection",ExpressionUUID->"e7b44527-3894-4ca7-a320-494519bb0b05"],
+Cell[133902, 3078, 1339, 48, 65, "Subsubsection",ExpressionUUID->"e7b44527-3894-4ca7-a320-494519bb0b05"],
 Cell[CellGroupData[{
-Cell[74852, 1772, 3840, 90, 760, "Input",ExpressionUUID->"12a062d5-78f7-4992-9fc0-f22a9b6b91ca"],
-Cell[78695, 1864, 262, 5, 22, "Print",ExpressionUUID->"bec72b1c-4fa8-43f2-81e9-d04300edbcf2"],
-Cell[78960, 1871, 24401, 524, 490, "Output",ExpressionUUID->"0dc2f72b-ddff-471c-adf6-a834dd7902ee"]
+Cell[135266, 3130, 3840, 90, 760, "Input",ExpressionUUID->"12a062d5-78f7-4992-9fc0-f22a9b6b91ca"],
+Cell[139109, 3222, 262, 5, 22, "Print",ExpressionUUID->"bec72b1c-4fa8-43f2-81e9-d04300edbcf2"],
+Cell[139374, 3229, 24401, 524, 490, "Output",ExpressionUUID->"0dc2f72b-ddff-471c-adf6-a834dd7902ee"]
 }, Open  ]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[103410, 2401, 1317, 48, 47, "Subsubsection",ExpressionUUID->"2a98ee0d-1de1-436a-a37f-b29f4728e65c"],
+Cell[163824, 3759, 1317, 48, 47, "Subsubsection",ExpressionUUID->"2a98ee0d-1de1-436a-a37f-b29f4728e65c"],
 Cell[CellGroupData[{
-Cell[104752, 2453, 3778, 90, 760, "Input",ExpressionUUID->"626e1809-24da-4a99-bee8-bf5af344b2ae"],
-Cell[108533, 2545, 235, 4, 22, "Print",ExpressionUUID->"e35026af-75bc-4ac8-8747-99421b372a91"],
-Cell[108771, 2551, 24828, 529, 486, "Output",ExpressionUUID->"ed80f633-934c-44f4-abfb-cf6e5a28512e"]
+Cell[165166, 3811, 3778, 90, 760, "Input",ExpressionUUID->"626e1809-24da-4a99-bee8-bf5af344b2ae"],
+Cell[168947, 3903, 235, 4, 22, "Print",ExpressionUUID->"e35026af-75bc-4ac8-8747-99421b372a91"],
+Cell[169185, 3909, 24828, 529, 486, "Output",ExpressionUUID->"ed80f633-934c-44f4-abfb-cf6e5a28512e"]
 }, Open  ]]
 }, Open  ]]
 }
diff --git a/exemples/Wolfram_Mathematica_Comparison/Wolfram_Mathematica_Wavefunction_Speed_Tests.pdf b/exemples/Wolfram_Mathematica_Comparison/Wolfram_Mathematica_Wavefunction_Speed_Tests.pdf
index dc1f365..fd3e966 100644
Binary files a/exemples/Wolfram_Mathematica_Comparison/Wolfram_Mathematica_Wavefunction_Speed_Tests.pdf and b/exemples/Wolfram_Mathematica_Comparison/Wolfram_Mathematica_Wavefunction_Speed_Tests.pdf differ