lapTest.nb

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

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

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     81653,       1898]
NotebookOptionsPosition[     79442,       1855]
NotebookOutlinePosition[     79831,       1871]
CellTagsIndexPosition[     79788,       1868]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"ListPointPlot3D", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"xFacePosS", ",", "xFacePos"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", "Red"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8638712521177998`*^9, 3.863871339415874*^9}, {
  3.863871380272738*^9, 3.8638714060527697`*^9}, {3.863871476026781*^9, 
  3.863871501410631*^9}, {3.863872600226915*^9, 3.863872603482181*^9}},
 CellLabel->
  "In[4143]:=",ExpressionUUID->"6d9edd4b-3451-4cb6-a6b0-987f11052235"],

Cell[BoxData[
 Graphics3DBox[{{{
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], 
      Point3DBox[{0.0125, 0.003125, -0.003125000000000001}], 
      Point3DBox[{0.018750000000000003`, 0.003125, -0.003125000000000001}], 
      Point3DBox[{0.025, 0.003125, -0.003125000000000001}], 
      Point3DBox[{0.03125, 0.003125, -0.003125000000000001}], 
      Point3DBox[{0.0375, 0.003125, -0.003125000000000001}], 
      Point3DBox[{0.043750000000000004`, 0.003125, -0.003125000000000001}], 
      Point3DBox[{0.05, 0.003125, -0.003125000000000001}], 
      Point3DBox[{0.05625, 0.003125, -0.003125000000000001}], 
      Point3DBox[{0.0625, 0.003125, -0.003125000000000001}], 
      Point3DBox[{0.06875, 0.003125, -0.003125000000000001}], 
      Point3DBox[{0.0125, 0.009375000000000001, -0.003125000000000001}], 
      Point3DBox[{0.018750000000000003`, 
       0.009375000000000001, -0.003125000000000001}], 
      Point3DBox[{0.025, 0.009375000000000001, -0.003125000000000001}], 
      Point3DBox[{0.03125, 0.009375000000000001, -0.003125000000000001}], 
      Point3DBox[{0.0375, 0.009375000000000001, -0.003125000000000001}], 
      Point3DBox[{0.043750000000000004`, 
       0.009375000000000001, -0.003125000000000001}], 
      Point3DBox[{0.05, 0.009375000000000001, -0.003125000000000001}], 
      Point3DBox[{0.05625, 0.009375000000000001, -0.003125000000000001}], 
      Point3DBox[{0.0625, 0.009375000000000001, -0.003125000000000001}], 
      Point3DBox[{0.06875, 0.009375000000000001, -0.003125000000000001}], 
      Point3DBox[{0.0125, 0.003125, 0.0031249999999999993`}], 
      Point3DBox[{0.018750000000000003`, 0.003125, 0.0031249999999999993`}], 
      Point3DBox[{0.025, 0.003125, 0.0031249999999999993`}], 
      Point3DBox[{0.03125, 0.003125, 0.0031249999999999993`}], 
      Point3DBox[{0.0375, 0.003125, 0.0031249999999999993`}], 
      Point3DBox[{0.043750000000000004`, 0.003125, 0.0031249999999999993`}], 
      Point3DBox[{0.05, 0.003125, 0.0031249999999999993`}], 
      Point3DBox[{0.05625, 0.003125, 0.0031249999999999993`}], 
      Point3DBox[{0.0625, 0.003125, 0.0031249999999999993`}], 
      Point3DBox[{0.06875, 0.003125, 0.0031249999999999993`}], 
      Point3DBox[{0.0125, 0.009375000000000001, 0.0031249999999999993`}], 
      Point3DBox[{0.018750000000000003`, 0.009375000000000001, 
       0.0031249999999999993`}], 
      Point3DBox[{0.025, 0.009375000000000001, 0.0031249999999999993`}], 
      Point3DBox[{0.03125, 0.009375000000000001, 0.0031249999999999993`}], 
      Point3DBox[{0.0375, 0.009375000000000001, 0.0031249999999999993`}], 
      Point3DBox[{0.043750000000000004`, 0.009375000000000001, 
       0.0031249999999999993`}], 
      Point3DBox[{0.05, 0.009375000000000001, 0.0031249999999999993`}], 
      Point3DBox[{0.05625, 0.009375000000000001, 0.0031249999999999993`}], 
      Point3DBox[{0.0625, 0.009375000000000001, 0.0031249999999999993`}], 
      Point3DBox[{0.06875, 0.009375000000000001, 0.0031249999999999993`}], 
      Point3DBox[{0.0125, 0.003125, 0.009375000000000001}], 
      Point3DBox[{0.018750000000000003`, 0.003125, 0.009375000000000001}], 
      Point3DBox[{0.025, 0.003125, 0.009375000000000001}], 
      Point3DBox[{0.03125, 0.003125, 0.009375000000000001}], 
      Point3DBox[{0.0375, 0.003125, 0.009375000000000001}], 
      Point3DBox[{0.043750000000000004`, 0.003125, 0.009375000000000001}], 
      Point3DBox[{0.05, 0.003125, 0.009375000000000001}], 
      Point3DBox[{0.05625, 0.003125, 0.009375000000000001}], 
      Point3DBox[{0.0625, 0.003125, 0.009375000000000001}], 
      Point3DBox[{0.06875, 0.003125, 0.009375000000000001}], 
      Point3DBox[{0.0125, 0.009375000000000001, 0.009375000000000001}], 
      Point3DBox[{0.018750000000000003`, 0.009375000000000001, 
       0.009375000000000001}], 
      Point3DBox[{0.025, 0.009375000000000001, 0.009375000000000001}], 
      Point3DBox[{0.03125, 0.009375000000000001, 0.009375000000000001}], 
      Point3DBox[{0.0375, 0.009375000000000001, 0.009375000000000001}], 
      Point3DBox[{0.043750000000000004`, 0.009375000000000001, 
       0.009375000000000001}], 
      Point3DBox[{0.05, 0.009375000000000001, 0.009375000000000001}], 
      Point3DBox[{0.05625, 0.009375000000000001, 0.009375000000000001}], 
      Point3DBox[{0.0625, 0.009375000000000001, 0.009375000000000001}], 
      Point3DBox[{0.06875, 0.009375000000000001, 0.009375000000000001}], 
      Point3DBox[{0.0125, 0.003125, 0.015625}], 
      Point3DBox[{0.018750000000000003`, 0.003125, 0.015625}], 
      Point3DBox[{0.025, 0.003125, 0.015625}], 
      Point3DBox[{0.03125, 0.003125, 0.015625}], 
      Point3DBox[{0.0375, 0.003125, 0.015625}], 
      Point3DBox[{0.043750000000000004`, 0.003125, 0.015625}], 
      Point3DBox[{0.05, 0.003125, 0.015625}], 
      Point3DBox[{0.05625, 0.003125, 0.015625}], 
      Point3DBox[{0.0625, 0.003125, 0.015625}], 
      Point3DBox[{0.06875, 0.003125, 0.015625}], 
      Point3DBox[{0.0125, 0.009375000000000001, 0.015625}], 
      Point3DBox[{0.018750000000000003`, 0.009375000000000001, 0.015625}], 
      Point3DBox[{0.025, 0.009375000000000001, 0.015625}], 
      Point3DBox[{0.03125, 0.009375000000000001, 0.015625}], 
      Point3DBox[{0.0375, 0.009375000000000001, 0.015625}], 
      Point3DBox[{0.043750000000000004`, 0.009375000000000001, 0.015625}], 
      Point3DBox[{0.05, 0.009375000000000001, 0.015625}], 
      Point3DBox[{0.05625, 0.009375000000000001, 0.015625}], 
      Point3DBox[{0.0625, 0.009375000000000001, 0.015625}], 
      Point3DBox[{0.06875, 0.009375000000000001, 0.015625}], 
      Point3DBox[{0.0125, 0.003125, 0.021875}], 
      Point3DBox[{0.018750000000000003`, 0.003125, 0.021875}], 
      Point3DBox[{0.025, 0.003125, 0.021875}], 
      Point3DBox[{0.03125, 0.003125, 0.021875}], 
      Point3DBox[{0.0375, 0.003125, 0.021875}], 
      Point3DBox[{0.043750000000000004`, 0.003125, 0.021875}], 
      Point3DBox[{0.05, 0.003125, 0.021875}], 
      Point3DBox[{0.05625, 0.003125, 0.021875}], 
      Point3DBox[{0.0625, 0.003125, 0.021875}], 
      Point3DBox[{0.06875, 0.003125, 0.021875}], 
      Point3DBox[{0.0125, 0.009375000000000001, 0.021875}], 
      Point3DBox[{0.018750000000000003`, 0.009375000000000001, 0.021875}], 
      Point3DBox[{0.025, 0.009375000000000001, 0.021875}], 
      Point3DBox[{0.03125, 0.009375000000000001, 0.021875}], 
      Point3DBox[{0.0375, 0.009375000000000001, 0.021875}], 
      Point3DBox[{0.043750000000000004`, 0.009375000000000001, 0.021875}], 
      Point3DBox[{0.05, 0.009375000000000001, 0.021875}], 
      Point3DBox[{0.05625, 0.009375000000000001, 0.021875}], 
      Point3DBox[{0.0625, 0.009375000000000001, 0.021875}], 
      Point3DBox[{0.06875, 0.009375000000000001, 0.021875}], 
      Point3DBox[{0.0125, 0.003125, 0.028125000000000004`}], 
      Point3DBox[{0.018750000000000003`, 0.003125, 0.028125000000000004`}], 
      Point3DBox[{0.025, 0.003125, 0.028125000000000004`}], 
      Point3DBox[{0.03125, 0.003125, 0.028125000000000004`}], 
      Point3DBox[{0.0375, 0.003125, 0.028125000000000004`}], 
      Point3DBox[{0.043750000000000004`, 0.003125, 0.028125000000000004`}], 
      Point3DBox[{0.05, 0.003125, 0.028125000000000004`}], 
      Point3DBox[{0.05625, 0.003125, 0.028125000000000004`}], 
      Point3DBox[{0.0625, 0.003125, 0.028125000000000004`}], 
      Point3DBox[{0.06875, 0.003125, 0.028125000000000004`}], 
      Point3DBox[{0.0125, 0.009375000000000001, 0.028125000000000004`}], 
      Point3DBox[{0.018750000000000003`, 0.009375000000000001, 
       0.028125000000000004`}], 
      Point3DBox[{0.025, 0.009375000000000001, 0.028125000000000004`}], 
      Point3DBox[{0.03125, 0.009375000000000001, 0.028125000000000004`}], 
      Point3DBox[{0.0375, 0.009375000000000001, 0.028125000000000004`}], 
      Point3DBox[{0.043750000000000004`, 0.009375000000000001, 
       0.028125000000000004`}], 
      Point3DBox[{0.05, 0.009375000000000001, 0.028125000000000004`}], 
      Point3DBox[{0.05625, 0.009375000000000001, 0.028125000000000004`}], 
      Point3DBox[{0.0625, 0.009375000000000001, 0.028125000000000004`}], 
      Point3DBox[{0.06875, 0.009375000000000001, 0.028125000000000004`}], 
      Point3DBox[{0.0125, 0.003125, 0.034375}], 
      Point3DBox[{0.018750000000000003`, 0.003125, 0.034375}], 
      Point3DBox[{0.025, 0.003125, 0.034375}], 
      Point3DBox[{0.03125, 0.003125, 0.034375}], 
      Point3DBox[{0.0375, 0.003125, 0.034375}], 
      Point3DBox[{0.043750000000000004`, 0.003125, 0.034375}], 
      Point3DBox[{0.05, 0.003125, 0.034375}], 
      Point3DBox[{0.05625, 0.003125, 0.034375}], 
      Point3DBox[{0.0625, 0.003125, 0.034375}], 
      Point3DBox[{0.06875, 0.003125, 0.034375}], 
      Point3DBox[{0.0125, 0.009375000000000001, 0.034375}], 
      Point3DBox[{0.018750000000000003`, 0.009375000000000001, 0.034375}], 
      Point3DBox[{0.025, 0.009375000000000001, 0.034375}], 
      Point3DBox[{0.03125, 0.009375000000000001, 0.034375}], 
      Point3DBox[{0.0375, 0.009375000000000001, 0.034375}], 
      Point3DBox[{0.043750000000000004`, 0.009375000000000001, 0.034375}], 
      Point3DBox[{0.05, 0.009375000000000001, 0.034375}], 
      Point3DBox[{0.05625, 0.009375000000000001, 0.034375}], 
      Point3DBox[{0.0625, 0.009375000000000001, 0.034375}], 
      Point3DBox[{0.06875, 0.009375000000000001, 0.034375}], 
      Point3DBox[{0.0125, 0.003125, 0.040625}], 
      Point3DBox[{0.018750000000000003`, 0.003125, 0.040625}], 
      Point3DBox[{0.025, 0.003125, 0.040625}], 
      Point3DBox[{0.03125, 0.003125, 0.040625}], 
      Point3DBox[{0.0375, 0.003125, 0.040625}], 
      Point3DBox[{0.043750000000000004`, 0.003125, 0.040625}], 
      Point3DBox[{0.05, 0.003125, 0.040625}], 
      Point3DBox[{0.05625, 0.003125, 0.040625}], 
      Point3DBox[{0.0625, 0.003125, 0.040625}], 
      Point3DBox[{0.06875, 0.003125, 0.040625}], 
      Point3DBox[{0.0125, 0.009375000000000001, 0.040625}], 
      Point3DBox[{0.018750000000000003`, 0.009375000000000001, 0.040625}], 
      Point3DBox[{0.025, 0.009375000000000001, 0.040625}], 
      Point3DBox[{0.03125, 0.009375000000000001, 0.040625}], 
      Point3DBox[{0.0375, 0.009375000000000001, 0.040625}], 
      Point3DBox[{0.043750000000000004`, 0.009375000000000001, 0.040625}], 
      Point3DBox[{0.05, 0.009375000000000001, 0.040625}], 
      Point3DBox[{0.05625, 0.009375000000000001, 0.040625}], 
      Point3DBox[{0.0625, 0.009375000000000001, 0.040625}], 
      Point3DBox[{0.06875, 0.009375000000000001, 0.040625}], 
      Point3DBox[{0.0125, 0.003125, 0.046875}], 
      Point3DBox[{0.018750000000000003`, 0.003125, 0.046875}], 
      Point3DBox[{0.025, 0.003125, 0.046875}], 
      Point3DBox[{0.03125, 0.003125, 0.046875}], 
      Point3DBox[{0.0375, 0.003125, 0.046875}], 
      Point3DBox[{0.043750000000000004`, 0.003125, 0.046875}], 
      Point3DBox[{0.05, 0.003125, 0.046875}], 
      Point3DBox[{0.05625, 0.003125, 0.046875}], 
      Point3DBox[{0.0625, 0.003125, 0.046875}], 
      Point3DBox[{0.06875, 0.003125, 0.046875}], 
      Point3DBox[{0.0125, 0.009375000000000001, 0.046875}], 
      Point3DBox[{0.018750000000000003`, 0.009375000000000001, 0.046875}], 
      Point3DBox[{0.025, 0.009375000000000001, 0.046875}], 
      Point3DBox[{0.03125, 0.009375000000000001, 0.046875}], 
      Point3DBox[{0.0375, 0.009375000000000001, 0.046875}], 
      Point3DBox[{0.043750000000000004`, 0.009375000000000001, 0.046875}], 
      Point3DBox[{0.05, 0.009375000000000001, 0.046875}], 
      Point3DBox[{0.05625, 0.009375000000000001, 0.046875}], 
      Point3DBox[{0.0625, 0.009375000000000001, 0.046875}], 
      Point3DBox[{0.06875, 0.009375000000000001, 0.046875}]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], 
      Point3DBox[{0.0125, 0.018750000000000003`, 0.00625}], 
      Point3DBox[{0.025, 0.018750000000000003`, 0.00625}], 
      Point3DBox[{0.037500000000000006`, 0.018750000000000003`, 0.00625}], 
      Point3DBox[{0.05, 0.018750000000000003`, 0.00625}], 
      Point3DBox[{0.0625, 0.018750000000000003`, 0.00625}], 
      Point3DBox[{0.0125, 0.03125, 0.00625}], 
      Point3DBox[{0.025, 0.03125, 0.00625}], 
      Point3DBox[{0.037500000000000006`, 0.03125, 0.00625}], 
      Point3DBox[{0.05, 0.03125, 0.00625}], 
      Point3DBox[{0.0625, 0.03125, 0.00625}], 
      Point3DBox[{0.0125, 0.04375000000000001, 0.00625}], 
      Point3DBox[{0.025, 0.04375000000000001, 0.00625}], 
      Point3DBox[{0.037500000000000006`, 0.04375000000000001, 0.00625}], 
      Point3DBox[{0.05, 0.04375000000000001, 0.00625}], 
      Point3DBox[{0.0625, 0.04375000000000001, 0.00625}], 
      Point3DBox[{0.0125, 0.05625000000000001, 0.00625}], 
      Point3DBox[{0.025, 0.05625000000000001, 0.00625}], 
      Point3DBox[{0.037500000000000006`, 0.05625000000000001, 0.00625}], 
      Point3DBox[{0.05, 0.05625000000000001, 0.00625}], 
      Point3DBox[{0.0625, 0.05625000000000001, 0.00625}], 
      Point3DBox[{0.0125, 0.018750000000000003`, 0.018750000000000003`}], 
      Point3DBox[{0.025, 0.018750000000000003`, 0.018750000000000003`}], 
      Point3DBox[{0.037500000000000006`, 0.018750000000000003`, 
       0.018750000000000003`}], 
      Point3DBox[{0.05, 0.018750000000000003`, 0.018750000000000003`}], 
      Point3DBox[{0.0625, 0.018750000000000003`, 0.018750000000000003`}], 
      Point3DBox[{0.0125, 0.03125, 0.018750000000000003`}], 
      Point3DBox[{0.025, 0.03125, 0.018750000000000003`}], 
      Point3DBox[{0.037500000000000006`, 0.03125, 0.018750000000000003`}], 
      Point3DBox[{0.05, 0.03125, 0.018750000000000003`}], 
      Point3DBox[{0.0625, 0.03125, 0.018750000000000003`}], 
      Point3DBox[{0.0125, 0.04375000000000001, 0.018750000000000003`}], 
      Point3DBox[{0.025, 0.04375000000000001, 0.018750000000000003`}], 
      Point3DBox[{0.037500000000000006`, 0.04375000000000001, 
       0.018750000000000003`}], 
      Point3DBox[{0.05, 0.04375000000000001, 0.018750000000000003`}], 
      Point3DBox[{0.0625, 0.04375000000000001, 0.018750000000000003`}], 
      Point3DBox[{0.0125, 0.05625000000000001, 0.018750000000000003`}], 
      Point3DBox[{0.025, 0.05625000000000001, 0.018750000000000003`}], 
      Point3DBox[{0.037500000000000006`, 0.05625000000000001, 
       0.018750000000000003`}], 
      Point3DBox[{0.05, 0.05625000000000001, 0.018750000000000003`}], 
      Point3DBox[{0.0625, 0.05625000000000001, 0.018750000000000003`}], 
      Point3DBox[{0.0125, 0.018750000000000003`, 0.03125000000000001}], 
      Point3DBox[{0.025, 0.018750000000000003`, 0.03125000000000001}], 
      Point3DBox[{0.037500000000000006`, 0.018750000000000003`, 
       0.03125000000000001}], 
      Point3DBox[{0.05, 0.018750000000000003`, 0.03125000000000001}], 
      Point3DBox[{0.0625, 0.018750000000000003`, 0.03125000000000001}], 
      Point3DBox[{0.0125, 0.03125, 0.03125000000000001}], 
      Point3DBox[{0.025, 0.03125, 0.03125000000000001}], 
      Point3DBox[{0.037500000000000006`, 0.03125, 0.03125000000000001}], 
      Point3DBox[{0.05, 0.03125, 0.03125000000000001}], 
      Point3DBox[{0.0625, 0.03125, 0.03125000000000001}], 
      Point3DBox[{0.0125, 0.04375000000000001, 0.03125000000000001}], 
      Point3DBox[{0.025, 0.04375000000000001, 0.03125000000000001}], 
      Point3DBox[{0.037500000000000006`, 0.04375000000000001, 
       0.03125000000000001}], 
      Point3DBox[{0.05, 0.04375000000000001, 0.03125000000000001}], 
      Point3DBox[{0.0625, 0.04375000000000001, 0.03125000000000001}], 
      Point3DBox[{0.0125, 0.05625000000000001, 0.03125000000000001}], 
      Point3DBox[{0.025, 0.05625000000000001, 0.03125000000000001}], 
      Point3DBox[{0.037500000000000006`, 0.05625000000000001, 
       0.03125000000000001}], 
      Point3DBox[{0.05, 0.05625000000000001, 0.03125000000000001}], 
      Point3DBox[{0.0625, 0.05625000000000001, 0.03125000000000001}], 
      Point3DBox[{0.0125, 0.018750000000000003`, 0.043750000000000004`}], 
      Point3DBox[{0.025, 0.018750000000000003`, 0.043750000000000004`}], 
      Point3DBox[{0.037500000000000006`, 0.018750000000000003`, 
       0.043750000000000004`}], 
      Point3DBox[{0.05, 0.018750000000000003`, 0.043750000000000004`}], 
      Point3DBox[{0.0625, 0.018750000000000003`, 0.043750000000000004`}], 
      Point3DBox[{0.0125, 0.03125, 0.043750000000000004`}], 
      Point3DBox[{0.025, 0.03125, 0.043750000000000004`}], 
      Point3DBox[{0.037500000000000006`, 0.03125, 0.043750000000000004`}], 
      Point3DBox[{0.05, 0.03125, 0.043750000000000004`}], 
      Point3DBox[{0.0625, 0.03125, 0.043750000000000004`}], 
      Point3DBox[{0.0125, 0.04375000000000001, 0.043750000000000004`}], 
      Point3DBox[{0.025, 0.04375000000000001, 0.043750000000000004`}], 
      Point3DBox[{0.037500000000000006`, 0.04375000000000001, 
       0.043750000000000004`}], 
      Point3DBox[{0.05, 0.04375000000000001, 0.043750000000000004`}], 
      Point3DBox[{0.0625, 0.04375000000000001, 0.043750000000000004`}], 
      Point3DBox[{0.0125, 0.05625000000000001, 0.043750000000000004`}], 
      Point3DBox[{0.025, 0.05625000000000001, 0.043750000000000004`}], 
      Point3DBox[{0.037500000000000006`, 0.05625000000000001, 
       0.043750000000000004`}], 
      Point3DBox[{0.05, 0.05625000000000001, 0.043750000000000004`}], 
      Point3DBox[{0.0625, 0.05625000000000001, 
       0.043750000000000004`}]}}, {}, {}}, {}},
  Axes->True,
  AxesLabel->{None, None, None},
  BoxRatios->{1, 1, 0.4},
  DisplayFunction->Identity,
  FaceGrids->None,
  FaceGridsStyle->Automatic,
  ImageSize->{345.93615960048163`, 163.92340582111265`},
  ImageSizeRaw->Automatic,
  Lighting->{{"Ambient", 
     GrayLevel[0.5]}, {"Directional", 
     GrayLevel[0.5], 
     ImageScaled[{0, 2, 2}]}, {"Directional", 
     GrayLevel[0.5], 
     ImageScaled[{2, 2, 2}]}, {"Directional", 
     GrayLevel[0.5], 
     ImageScaled[{2, 0, 2}]}},
  PlotRange->{{0.0125, 0.06875}, {0.003125, 0.05625000000000001}, Automatic},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{
   3.3771592708073306`, -0.13106103329514876`, -0.16618743981331707`},
  ViewVertical->{0.3127420406954181, 0.04345565583878402, 0.9488435181616021}]
  ], "Input",
 CellChangeTimes->{3.863901330727112*^9},
 CellLabel->
  "Out[4143]=",ExpressionUUID->"224b0e43-0bfc-4a11-a15a-a92ef0301df1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"allPoints", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"xFacePosS", ",", "xFacePos"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"zero", "=", 
   RowBox[{"allPoints", "[", 
    RowBox[{"[", 
     RowBox[{"lookupface", "[", 
      RowBox[{"3", ",", "1", ",", "3"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"ii", "=", "1"}], ",", 
   RowBox[{"ii", "<=", 
    RowBox[{"Length", "[", "allPoints", "]"}]}], ",", 
   RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"allPoints", "[", 
      RowBox[{"[", "ii", "]"}], "]"}], "=", 
     RowBox[{
      RowBox[{"allPoints", "[", 
       RowBox[{"[", "ii", "]"}], "]"}], "-", "zero"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fancyFunction", "[", 
    RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", "  ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"y", "-", "5"}], ")"}], "2"]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"realLaplacian", "[", 
    RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", 
   RowBox[{"Laplacian", "[", 
    RowBox[{
     RowBox[{"fancyFunction", "[", 
      RowBox[{"x", ",", "y", ",", "z"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"allVals", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"fancyFunction", "[", 
       RowBox[{
        RowBox[{"allPoints", "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"allPoints", "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "2"}], "]"}], "]"}], ",", 
        RowBox[{"allPoints", "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "3"}], "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", 
        RowBox[{"Length", "[", "allPoints", "]"}]}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     FractionBox["16", "21"], " ", 
     FractionBox[
      SubscriptBox["xf", 
       RowBox[{"5", ",", "4", ",", "5"}]], 
      SuperscriptBox["delta", "2"]]}], "+", 
    RowBox[{
     FractionBox["16", "21"], " ", 
     FractionBox[
      SubscriptBox["xf", 
       RowBox[{"5", ",", "4", ",", "6"}]], 
      SuperscriptBox["delta", "2"]]}], "+", 
    FractionBox[
     SubscriptBox["XF", 
      RowBox[{"2", ",", "1", ",", "3"}]], 
     SuperscriptBox["delta", "2"]], "+", 
    RowBox[{
     FractionBox["20", "21"], " ", 
     FractionBox[
      SubscriptBox["XF", 
       RowBox[{"3", ",", "1", ",", "2"}]], 
      SuperscriptBox["delta", "2"]]}], "-", 
    RowBox[{
     FractionBox["46", "7"], " ", 
     FractionBox[
      SubscriptBox["XF", 
       RowBox[{"3", ",", "1", ",", "3"}]], 
      SuperscriptBox["delta", "2"]]}], "+", 
    RowBox[{
     FractionBox["20", "21"], " ", 
     FractionBox[
      SubscriptBox["XF", 
       RowBox[{"3", ",", "1", ",", "4"}]], 
      SuperscriptBox["delta", "2"]]}], "+", 
    RowBox[{
     FractionBox["8", "7"], " ", 
     FractionBox[
      SubscriptBox["XF", 
       RowBox[{"3", ",", "2", ",", "3"}]], 
      SuperscriptBox["delta", "2"]]}], "+", 
    FractionBox[
     SubscriptBox["XF", 
      RowBox[{"4", ",", "1", ",", "3"}]], 
     SuperscriptBox["delta", "2"]]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   FractionBox[
    SubscriptBox["xf", 
     RowBox[{"5", ",", "3", ",", "5"}]], 
    RowBox[{"27", " ", 
     SuperscriptBox["\[CapitalDelta]", "2"]}]], "+", 
   FractionBox[
    SubscriptBox["xf", 
     RowBox[{"5", ",", "3", ",", "6"}]], 
    RowBox[{"27", " ", 
     SuperscriptBox["\[CapitalDelta]", "2"]}]], "+", 
   FractionBox[
    RowBox[{"32", " ", 
     SubscriptBox["xf", 
      RowBox[{"5", ",", "4", ",", "5"}]]}], 
    RowBox[{"27", " ", 
     SuperscriptBox["\[CapitalDelta]", "2"]}]], "+", 
   FractionBox[
    RowBox[{"32", " ", 
     SubscriptBox["xf", 
      RowBox[{"5", ",", "4", ",", "6"}]]}], 
    RowBox[{"27", " ", 
     SuperscriptBox["\[CapitalDelta]", "2"]}]], "+", 
   FractionBox[
    SubscriptBox["XF", 
     RowBox[{"2", ",", "1", ",", "3"}]], 
    SuperscriptBox["\[CapitalDelta]", "2"]], "+", 
   FractionBox[
    RowBox[{"713", " ", 
     SubscriptBox["XF", 
      RowBox[{"3", ",", "1", ",", "2"}]]}], 
    RowBox[{"729", " ", 
     SuperscriptBox["\[CapitalDelta]", "2"]}]], "-", 
   FractionBox[
    RowBox[{"4069", " ", 
     SubscriptBox["XF", 
      RowBox[{"3", ",", "1", ",", "3"}]]}], 
    RowBox[{"729", " ", 
     SuperscriptBox["\[CapitalDelta]", "2"]}]], "+", 
   FractionBox[
    RowBox[{"713", " ", 
     SubscriptBox["XF", 
      RowBox[{"3", ",", "1", ",", "4"}]]}], 
    RowBox[{"729", " ", 
     SuperscriptBox["\[CapitalDelta]", "2"]}]], "+", 
   FractionBox[
    RowBox[{"8", " ", 
     SubscriptBox["XF", 
      RowBox[{"3", ",", "2", ",", "3"}]]}], 
    RowBox[{"9", " ", 
     SuperscriptBox["\[CapitalDelta]", "2"]}]], "+", 
   FractionBox[
    SubscriptBox["XF", 
     RowBox[{"4", ",", "1", ",", "3"}]], 
    SuperscriptBox["\[CapitalDelta]", "2"]]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.863871649882948*^9, 3.863871895037201*^9}, {
   3.863871986544795*^9, 3.8638720113516083`*^9}, {3.863872445777289*^9, 
   3.863872447833733*^9}, 3.863872611619635*^9, {3.863872802673822*^9, 
   3.863873059037551*^9}, {3.863873149241688*^9, 3.86387317230494*^9}, {
   3.863873205887083*^9, 3.863873310635241*^9}, {3.863873405102495*^9, 
   3.863873436299781*^9}, {3.863873498761641*^9, 3.863873498841021*^9}, {
   3.863873549414646*^9, 3.863873844097686*^9}, {3.863873973595866*^9, 
   3.8638739914506807`*^9}, {3.863874051448792*^9, 3.86387408946213*^9}, 
   3.8638755058445044`*^9, 3.8638830696891117`*^9, {3.863890390456697*^9, 
   3.863890406253858*^9}, {3.863891062616563*^9, 3.863891095333531*^9}, {
   3.8638911371819897`*^9, 3.8638911854744596`*^9}, {3.863891270149584*^9, 
   3.863891300757419*^9}, 3.863891414711543*^9, {3.86389200176433*^9, 
   3.863892010179298*^9}, 3.8638920422335987`*^9, 3.863892204394541*^9, 
   3.8638923235887403`*^9, 3.863892625413906*^9, {3.863892700979239*^9, 
   3.863892729360331*^9}, {3.863892766157359*^9, 3.863892768998433*^9}, {
   3.863892882642359*^9, 3.863892914744143*^9}, {3.8638929802133017`*^9, 
   3.863892988795101*^9}, 3.863893193883246*^9, {3.863893751769463*^9, 
   3.8638937899667397`*^9}, {3.863893890243182*^9, 3.863893893505433*^9}, {
   3.863894126519862*^9, 3.8638941826744623`*^9}, {3.863896647229529*^9, 
   3.863896661016636*^9}, {3.863898583117125*^9, 3.8638985845828648`*^9}, {
   3.863898846441287*^9, 3.863898855727276*^9}, {3.863898893159917*^9, 
   3.863898923660056*^9}},
 CellLabel->
  "In[5184]:=",ExpressionUUID->"d64847a4-d6ef-49fe-aac1-3bae3b6696e5"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   SubscriptBox["xf", 
    RowBox[{"5", ",", "3", ",", "5"}]], 
   RowBox[{"27", " ", 
    SuperscriptBox["\[CapitalDelta]", "2"]}]], "+", 
  FractionBox[
   SubscriptBox["xf", 
    RowBox[{"5", ",", "3", ",", "6"}]], 
   RowBox[{"27", " ", 
    SuperscriptBox["\[CapitalDelta]", "2"]}]], "+", 
  FractionBox[
   RowBox[{"32", " ", 
    SubscriptBox["xf", 
     RowBox[{"5", ",", "4", ",", "5"}]]}], 
   RowBox[{"27", " ", 
    SuperscriptBox["\[CapitalDelta]", "2"]}]], "+", 
  FractionBox[
   RowBox[{"32", " ", 
    SubscriptBox["xf", 
     RowBox[{"5", ",", "4", ",", "6"}]]}], 
   RowBox[{"27", " ", 
    SuperscriptBox["\[CapitalDelta]", "2"]}]], "+", 
  FractionBox[
   SubscriptBox["XF", 
    RowBox[{"2", ",", "1", ",", "3"}]], 
   SuperscriptBox["\[CapitalDelta]", "2"]], "+", 
  FractionBox[
   RowBox[{"713", " ", 
    SubscriptBox["XF", 
     RowBox[{"3", ",", "1", ",", "2"}]]}], 
   RowBox[{"729", " ", 
    SuperscriptBox["\[CapitalDelta]", "2"]}]], "-", 
  FractionBox[
   RowBox[{"4069", " ", 
    SubscriptBox["XF", 
     RowBox[{"3", ",", "1", ",", "3"}]]}], 
   RowBox[{"729", " ", 
    SuperscriptBox["\[CapitalDelta]", "2"]}]], "+", 
  FractionBox[
   RowBox[{"713", " ", 
    SubscriptBox["XF", 
     RowBox[{"3", ",", "1", ",", "4"}]]}], 
   RowBox[{"729", " ", 
    SuperscriptBox["\[CapitalDelta]", "2"]}]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SubscriptBox["XF", 
     RowBox[{"3", ",", "2", ",", "3"}]]}], 
   RowBox[{"9", " ", 
    SuperscriptBox["\[CapitalDelta]", "2"]}]], "+", 
  FractionBox[
   SubscriptBox["XF", 
    RowBox[{"4", ",", "1", ",", "3"}]], 
   SuperscriptBox["\[CapitalDelta]", "2"]]}]], "Output",
 CellChangeTimes->{
  3.863898752895319*^9, 3.8638988570586557`*^9, {3.863898893531143*^9, 
   3.8638989241492777`*^9}},
 CellLabel->
  "Out[5190]=",ExpressionUUID->"f2ca38bf-1dbe-4d60-9e76-13601cf51900"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"discreteLap", "=", 
   RowBox[{
    FractionBox[
     RowBox[{"allVals", "[", 
      RowBox[{"[", 
       RowBox[{"lookupfaceS", "[", 
        RowBox[{"5", ",", "3", ",", "5"}], "]"}], "]"}], "]"}], 
     RowBox[{"27.0", 
      SuperscriptBox["delta", "2"]}]], "+", " ", 
    FractionBox[
     RowBox[{"allVals", "[", 
      RowBox[{"[", 
       RowBox[{"lookupfaceS", "[", 
        RowBox[{"5", ",", "3", ",", "6"}], "]"}], "]"}], "]"}], 
     RowBox[{"27", 
      SuperscriptBox["delta", "2"]}]], "+", 
    FractionBox[
     RowBox[{"32", 
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupfaceS", "[", 
         RowBox[{"5", ",", "4", ",", "5"}], "]"}], "]"}], "]"}]}], 
     RowBox[{"27", 
      SuperscriptBox["delta", "2"]}]], "+", " ", 
    FractionBox[
     RowBox[{"32", 
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupfaceS", "[", 
         RowBox[{"5", ",", "4", ",", "6"}], "]"}], "]"}], "]"}]}], 
     RowBox[{"27", 
      SuperscriptBox["delta", "2"]}]], "+", 
    FractionBox[
     RowBox[{"allVals", "[", 
      RowBox[{"[", 
       RowBox[{"lookupface", "[", 
        RowBox[{"2", ",", "1", ",", "3"}], "]"}], "]"}], "]"}], 
     SuperscriptBox["delta", "2"]], "+", " ", 
    FractionBox[
     RowBox[{"713", " ", 
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}], "]"}]}], 
     RowBox[{"729", " ", 
      SuperscriptBox["delta", "2"]}]], "-", 
    RowBox[{
     FractionBox["4069", "729"], " ", 
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"3", ",", "1", ",", "3"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]]}], "+", " ", 
    RowBox[{
     FractionBox["713", "729"], 
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"3", ",", "1", ",", "4"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]]}], "+", " ", 
    RowBox[{
     FractionBox["8", "9"], 
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"3", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]]}], "+", 
    FractionBox[
     RowBox[{"allVals", "[", 
      RowBox[{"[", 
       RowBox[{"lookupface", "[", 
        RowBox[{"4", ",", "1", ",", "3"}], "]"}], "]"}], "]"}], 
     SuperscriptBox["delta", "2"]]}]}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    FractionBox[
     RowBox[{"allVals", "[", 
      RowBox[{"[", 
       RowBox[{"lookupface", "[", 
        RowBox[{"2", ",", "1", ",", "3"}], "]"}], "]"}], "]"}], 
     SuperscriptBox["delta", "2"]], "-", 
    RowBox[{"2", " ", 
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"3", ",", "1", ",", "3"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]]}], "+", " ", 
    RowBox[{
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"4", ",", "1", ",", "3"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]], "\[IndentingNewLine]", 
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupfaceS", "[", 
         RowBox[{"5", ",", "4", ",", "5"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]]}], "+", " ", 
    FractionBox[
     RowBox[{"allVals", "[", 
      RowBox[{"[", 
       RowBox[{"lookupfaceS", "[", 
        RowBox[{"5", ",", "4", ",", "6"}], "]"}], "]"}], "]"}], 
     SuperscriptBox["delta", "2"]], "-", 
    RowBox[{
     FractionBox["3", "2"], " ", 
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"3", ",", "1", ",", "3"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]]}], "+", " ", 
    RowBox[{
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"3", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]], "\[IndentingNewLine]", " ", 
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]]}], "-", 
    RowBox[{"2", " ", 
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"3", ",", "1", ",", "3"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]]}], "+", " ", 
    FractionBox[
     RowBox[{"allVals", "[", 
      RowBox[{"[", 
       RowBox[{"lookupface", "[", 
        RowBox[{"3", ",", "1", ",", "4"}], "]"}], "]"}], "]"}], 
     SuperscriptBox["delta", "2"]]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"discreteLap", "=", 
    RowBox[{
     RowBox[{
      FractionBox["16", "21"], " ", 
      FractionBox[
       RowBox[{"allVals", "[", 
        RowBox[{"[", 
         RowBox[{"lookupfaceS", "[", 
          RowBox[{"5", ",", "4", ",", "5"}], "]"}], "]"}], "]"}], 
       SuperscriptBox["delta", "2"]]}], "+", 
     RowBox[{
      FractionBox["16", "21"], " ", 
      FractionBox[
       RowBox[{"allVals", "[", 
        RowBox[{"[", 
         RowBox[{"lookupfaceS", "[", 
          RowBox[{"5", ",", "4", ",", "6"}], "]"}], "]"}], "]"}], 
       SuperscriptBox["delta", "2"]]}], "+", 
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"2", ",", "1", ",", "3"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]], "+", " ", 
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]], "-", 
     RowBox[{
      FractionBox["20", "3"], " ", 
      FractionBox[
       RowBox[{"allVals", "[", 
        RowBox[{"[", 
         RowBox[{"lookupface", "[", 
          RowBox[{"3", ",", "1", ",", "3"}], "]"}], "]"}], "]"}], 
       SuperscriptBox["delta", "2"]]}], "+", " ", 
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"3", ",", "1", ",", "4"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]], "+", 
     RowBox[{
      FractionBox["8", "7"], " ", 
      FractionBox[
       RowBox[{"allVals", "[", 
        RowBox[{"[", 
         RowBox[{"lookupface", "[", 
          RowBox[{"3", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], 
       SuperscriptBox["delta", "2"]]}], "+", 
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"4", ",", "1", ",", "3"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]]}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"discreteLap", "=", "  ", 
    RowBox[{
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"2", ",", "3", ",", "3"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]], "+", 
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"3", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]], "+", " ", 
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"3", ",", "3", ",", "2"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]], "-", 
     RowBox[{"6", 
      FractionBox[
       RowBox[{"allVals", "[", 
        RowBox[{"[", 
         RowBox[{"lookupface", "[", 
          RowBox[{"3", ",", "3", ",", "3"}], "]"}], "]"}], "]"}], 
       SuperscriptBox["delta", "2"]]}], "+", " ", 
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"3", ",", "3", ",", "4"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]], "+", " ", 
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"3", ",", "4", ",", "3"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]], "+", 
     FractionBox[
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"4", ",", "3", ",", "3"}], "]"}], "]"}], "]"}], 
      SuperscriptBox["delta", "2"]]}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"realLaplacian", "[", 
  RowBox[{"0", ",", "0", ",", "0"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"discreteLap", "-", 
     RowBox[{"realLaplacian", "[", 
      RowBox[{"0", ",", "0", ",", "0"}], "]"}]}], 
    RowBox[{"realLaplacian", "[", 
     RowBox[{"0", ",", "0", ",", "0"}], "]"}]]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.863873858866603*^9, 3.8638738702075*^9}, {
   3.863873901910137*^9, 3.8638739070538588`*^9}, {3.863874129494357*^9, 
   3.8638742014316587`*^9}, {3.863874878706276*^9, 3.8638749292675858`*^9}, {
   3.863875176666526*^9, 3.8638751801246967`*^9}, {3.863875229058243*^9, 
   3.8638752684862013`*^9}, {3.8638755410643997`*^9, 3.863875581231351*^9}, {
   3.863876172994931*^9, 3.863876180106565*^9}, {3.863883073107473*^9, 
   3.863883107919533*^9}, {3.863889903982641*^9, 3.8638899071581297`*^9}, {
   3.863891052515427*^9, 3.863891058255637*^9}, 3.8638911198053513`*^9, {
   3.863891195229574*^9, 3.863891210505583*^9}, 3.863891259399138*^9, {
   3.8638914044054527`*^9, 3.863891411143242*^9}, {3.863892064051012*^9, 
   3.863892107895383*^9}, 3.8638921889645*^9, {3.863892237650333*^9, 
   3.863892306075869*^9}, {3.863892389736908*^9, 3.863892431598925*^9}, {
   3.8638925675872297`*^9, 3.8638926121497927`*^9}, 3.8638927487366743`*^9, {
   3.8638927845618877`*^9, 3.863892787022832*^9}, 3.8638928722597218`*^9, {
   3.863893736628715*^9, 3.863893744496118*^9}, {3.863893900330885*^9, 
   3.8638939120271482`*^9}, {3.863894111045866*^9, 3.863894121920166*^9}, {
   3.8638941971910133`*^9, 3.8638941980838537`*^9}, {3.86389472119868*^9, 
   3.8638947246034937`*^9}, {3.863894831800123*^9, 3.86389489188361*^9}, 
   3.863894929153657*^9, {3.863895725653471*^9, 3.8638957273395977`*^9}, {
   3.863895806129932*^9, 3.8638958071102858`*^9}, {3.863896433539496*^9, 
   3.863896441505822*^9}, {3.863896472137549*^9, 3.8638964940642767`*^9}, {
   3.8638965732200527`*^9, 3.863896670799477*^9}, {3.8638986000371428`*^9, 
   3.863898742755909*^9}, 3.863898838757568*^9, {3.8638988693686666`*^9, 
   3.863898885278221*^9}},
 CellLabel->
  "In[5191]:=",ExpressionUUID->"292b2fe0-9efc-4894-a44b-78701e2f8c0f"],

Cell[BoxData["54.84825102880658`"], "Output",
 CellChangeTimes->{
  3.863873846222962*^9, 3.8638739099387712`*^9, {3.863873942664364*^9, 
   3.863873960462028*^9}, {3.863874000801221*^9, 3.863874106694849*^9}, {
   3.863874161734185*^9, 3.863874288438919*^9}, {3.863874395677141*^9, 
   3.863874418755723*^9}, 3.863874673602646*^9, {3.863874744659157*^9, 
   3.86387476228897*^9}, {3.863874954513357*^9, 3.863874968589137*^9}, 
   3.863875001175611*^9, 3.8638752765353317`*^9, {3.863875383123247*^9, 
   3.863875409284382*^9}, 3.8638754511448298`*^9, {3.863876192572989*^9, 
   3.863876249027073*^9}, 3.863890078714758*^9, {3.8638901120304337`*^9, 
   3.863890138053913*^9}, {3.863890169506049*^9, 3.863890176751408*^9}, 
   3.863890417661189*^9, {3.8638910839918747`*^9, 3.863891174387561*^9}, 
   3.863891213598095*^9, {3.863891260797801*^9, 3.863891285636853*^9}, 
   3.863891348398692*^9, 3.863891417182209*^9, {3.863892005294567*^9, 
   3.863892043866027*^9}, {3.863892078969878*^9, 3.863892108241459*^9}, {
   3.863892189481185*^9, 3.863892210916185*^9}, 3.8638922898314953`*^9, 
   3.863892327423546*^9, 3.863892432779499*^9, 3.863892568171564*^9, {
   3.863892615075144*^9, 3.86389262961933*^9}, {3.863892735143075*^9, 
   3.863892772536323*^9}, {3.8638928628330517`*^9, 3.863892918877955*^9}, 
   3.863892992958797*^9, 3.863893196008239*^9, 3.863893648804957*^9, {
   3.863893745036231*^9, 3.863893756839065*^9}, 3.863893799337109*^9, {
   3.8638938966149597`*^9, 3.863893912682816*^9}, {3.863894106017343*^9, 
   3.863894122249127*^9}, {3.863894168356192*^9, 3.863894187508573*^9}, {
   3.863894513004437*^9, 3.863894514135642*^9}, {3.863894545454156*^9, 
   3.863894592028615*^9}, {3.8638949208252907`*^9, 3.863894975815833*^9}, 
   3.863895733378001*^9, 3.863895809482586*^9, 3.8638958408050737`*^9, 
   3.863895894478066*^9, 3.863896672633675*^9, 3.863896855570821*^9, {
   3.86389699563658*^9, 3.863897000630763*^9}, 3.863898757800989*^9, {
   3.863898861108211*^9, 3.86389892779935*^9}},
 CellLabel->
  "Out[5191]=",ExpressionUUID->"912a17e3-5d8f-4ae8-b4a9-89a37a8d6e82"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{
  3.863873846222962*^9, 3.8638739099387712`*^9, {3.863873942664364*^9, 
   3.863873960462028*^9}, {3.863874000801221*^9, 3.863874106694849*^9}, {
   3.863874161734185*^9, 3.863874288438919*^9}, {3.863874395677141*^9, 
   3.863874418755723*^9}, 3.863874673602646*^9, {3.863874744659157*^9, 
   3.86387476228897*^9}, {3.863874954513357*^9, 3.863874968589137*^9}, 
   3.863875001175611*^9, 3.8638752765353317`*^9, {3.863875383123247*^9, 
   3.863875409284382*^9}, 3.8638754511448298`*^9, {3.863876192572989*^9, 
   3.863876249027073*^9}, 3.863890078714758*^9, {3.8638901120304337`*^9, 
   3.863890138053913*^9}, {3.863890169506049*^9, 3.863890176751408*^9}, 
   3.863890417661189*^9, {3.8638910839918747`*^9, 3.863891174387561*^9}, 
   3.863891213598095*^9, {3.863891260797801*^9, 3.863891285636853*^9}, 
   3.863891348398692*^9, 3.863891417182209*^9, {3.863892005294567*^9, 
   3.863892043866027*^9}, {3.863892078969878*^9, 3.863892108241459*^9}, {
   3.863892189481185*^9, 3.863892210916185*^9}, 3.8638922898314953`*^9, 
   3.863892327423546*^9, 3.863892432779499*^9, 3.863892568171564*^9, {
   3.863892615075144*^9, 3.86389262961933*^9}, {3.863892735143075*^9, 
   3.863892772536323*^9}, {3.8638928628330517`*^9, 3.863892918877955*^9}, 
   3.863892992958797*^9, 3.863893196008239*^9, 3.863893648804957*^9, {
   3.863893745036231*^9, 3.863893756839065*^9}, 3.863893799337109*^9, {
   3.8638938966149597`*^9, 3.863893912682816*^9}, {3.863894106017343*^9, 
   3.863894122249127*^9}, {3.863894168356192*^9, 3.863894187508573*^9}, {
   3.863894513004437*^9, 3.863894514135642*^9}, {3.863894545454156*^9, 
   3.863894592028615*^9}, {3.8638949208252907`*^9, 3.863894975815833*^9}, 
   3.863895733378001*^9, 3.863895809482586*^9, 3.8638958408050737`*^9, 
   3.863895894478066*^9, 3.863896672633675*^9, 3.863896855570821*^9, {
   3.86389699563658*^9, 3.863897000630763*^9}, 3.863898757800989*^9, {
   3.863898861108211*^9, 3.863898927801868*^9}},
 CellLabel->
  "Out[5192]=",ExpressionUUID->"069f824f-b542-4841-99b4-8c331f263634"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"p1", "=", 
     RowBox[{"LogLogPlot", "[", 
      RowBox[{
       RowBox[{"{", 
        SuperscriptBox["x", "2"], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.125", ",", "1"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"conv0", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "0.5726597178391083`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.5", ",", "0.17962498401837718`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.25", ",", "0.048522113154471073`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.125", ",", "0.013301431509308907`"}], "}"}]}], "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"conv1", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "0.7400348682737291`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.5", ",", "0.8512272994883749`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.25", ",", "0.032763480454977435`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0.125", ",", "0.008660723698336644`"}], "}"}]}], "}"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p2", "=", 
     RowBox[{"ListLogLogPlot", "[", 
      RowBox[{"{", "conv0", "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"p1", ",", "p2", ",", 
     RowBox[{"PlotRange", "->", "All"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.863874116892771*^9, 3.8638741190751753`*^9}, {
  3.863874187440403*^9, 3.8638741877437887`*^9}, {3.863874224598364*^9, 
  3.863874367482874*^9}, {3.86387442739816*^9, 3.8638744779543953`*^9}, {
  3.863874535093526*^9, 3.863874637651636*^9}, {3.863875286684223*^9, 
  3.863875367297954*^9}, {3.863876200377946*^9, 3.863876259349646*^9}, {
  3.863876304084401*^9, 3.8638763107159977`*^9}, {3.863894237771551*^9, 
  3.8638942571137733`*^9}, {3.863894532052156*^9, 3.863894626502619*^9}, {
  3.863894926506117*^9, 
  3.863894965439287*^9}},ExpressionUUID->"0a491aa8-eaba-4c62-add7-\
29317c9fa489"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwtxX9Qk2UAB/CXxfAn7PUCuhtnBcXJydnRBZ3G+YNMuI4CJJWIjmxro9al
ctlmJ+Y4cdMdJEtgxIm3ecIqzR0ebuYF3yfIDpUGJ7dL4NwZMMK2aPxYMDYg
eZ73j899EmWHCxUijuPefmJlve7stuuXOMLmibpgfEhu4YR58pF0d0WcmRPm
ya5r4c5jzZwwT+Zdh9/Y2cgJ80SVfCC/t4YT5slbvyYpxo9xwjzZIPq5VprP
CfPk6aKe7sDEMtgSslR8J/2nnctgS8igf1Tr/HYJ7BhSO/qYDHgWwY4mWTpz
3/D2RbCjibPq9fsD+jDY60nuM0u2ja4Q2OtIV7HqfdVLIbDXkbj5X8KtXy4g
nr6WyLPvfjreHwR7DbGk+G5oUoNgryG3lMGZec082KuJc5+DO9E/B/Yq0nHx
YMSUdA7sVaS54oWH9o//AzuKaNaa9Ce7AmCLyZbZQPLWmADYYvKwRnx+RjEL
diT55BQ3e9E2A/ZTxLM+Lu1CeBpsESnJHnrtwv5psEXkx2HDtmrzFNgRJPi8
L+rknB9sjmQsKG3de/1gc6SptMnkz/wX7GV0pvR89oHvH3TQF9H0Q2/qNa1P
OIwD+yLN5gSvcAhRpc1tjc7HwkEcei76yhHFhPA87u1yZ+XF/iU8h9WGka/7
7niEAwgbOrrT5GPCs/B4g/Wm2FHhGZyOjC5wf/8ndPQpSE9UWjcXPRL2Y2Nm
oSoj3o0E+iS+8Obtd+0ZxlG6F/aSmOPalgdw0CegzDx+xNvrgoLuwR+qvPvN
EQN4QB/Fy++NHSpR9iON/giz5fn2tuR7mKMP411bSWS3+7awC9ur01Pl14lw
P5bP9Y+IU+0I0X9DYYyufUxmRTHdAXGCclOx2Iol6coO3NyU3fS7tRUOuh3P
ZkVp7b4WSOk38Pfnutwz6suYpLfj1KBuJNVggZ7ehrI3JYnjMhMO0q1wyvqi
+qwNuEtvRXrFOZ/DV49X6C3gbJKbZ9V1ENEvozGWz99iMOIM3QIjEhcmZHrU
0E0onbbcvuU7jXfo9dicnGSsVldBQq9DlyEpJc1Qie/oRniuZF+dlGmQcHVl
Pb7akLP7G/VR1NGrEK/JGcowlAtXoqaqll+QleFVugad+cYdWYYPEaKXw53x
4iAvL0IDvQzaxlzVDnkOGkwrF0EfKGg736Ps3NO+9cnqzv8B+VufGQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$19938#1"]& ]}, {}}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{
      0., -0.557463599337218}, {-0.6931471805599453, -1.7168840235551042`}, \
{-1.3862943611198906`, -3.0257356436190634`}, {-2.0794415416798357`, \
-4.319883617267502}}]}, {{}, {}}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-2.0794415416798357`, -4.158882998484507},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Quiet[
      Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
     Charting`ScaledFrameTicks[{Log, Exp}]}, {Quiet[
      Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
     Charting`ScaledFrameTicks[{Log, Exp}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{810.0000000000003, Automatic},
  Method->{
   "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], "ScalingFunctions" -> None},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{Quiet[
      Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Quiet[
      Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 
       6}]]& }, {{{-1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.2\"", ShowStringCharacters -> False], 0.2, AutoDelete -> 
          True], NumberForm[#, {
           DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 
       0.}}, {-0.916290731874155, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.4\"", ShowStringCharacters -> False], 0.4, AutoDelete -> 
          True], NumberForm[#, {
           DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 
       0.}}, {-0.5108256237659907, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.6\"", ShowStringCharacters -> False], 0.6, AutoDelete -> 
          True], NumberForm[#, {
           DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 
       0.}}, {-0.2231435513142097, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.8\"", ShowStringCharacters -> False], 0.8, AutoDelete -> 
          True], NumberForm[#, {
           DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}}, {0., 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"1.0\"", ShowStringCharacters -> False], 1., AutoDelete -> 
          True], NumberForm[#, {
           DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 
       0.}}, {-2.995732273553991, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-2.3025850929940455`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-1.8971199848858813`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-1.3862943611198906`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-1.2039728043259361`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-1.0498221244986778`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-0.7985076962177716, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-0.6931471805599453, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-0.5978370007556204, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-0.4307829160924542, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-0.35667494393873245`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-0.2876820724517809, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-0.16251892949777494`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-0.10536051565782628`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-0.05129329438755058, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      0.04879016416943205, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      0.09531017980432493, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      0.13976194237515863`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      0.1823215567939546, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}}, {{-2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.05\"", ShowStringCharacters -> False], 0.05, 
          AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 
       0.}}, {-2.3025850929940455`, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.10\"", ShowStringCharacters -> False], 0.1, 
          AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 
       0.}}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox[
          StyleBox["\"0.50\"", ShowStringCharacters -> False], 0.5, 
          AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, {0., 
       FormBox["1", TraditionalForm], {0.01, 0.}}, {-5.298317366548036, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-5.115995809754082, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-4.961845129926823, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-4.8283137373023015`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-4.710530701645918, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-4.605170185988091, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.912023005428146, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.506557897319982, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-3.2188758248682006`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-2.8134107167600364`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-2.659260036932778, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-2.5257286443082556`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-2.4079456086518722`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-1.6094379124341003`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-1.2039728043259361`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-0.916290731874155, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-0.5108256237659907, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-0.35667494393873245`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-0.2231435513142097, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}, {-0.10536051565782628`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      0.6931471805599453, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      1.0986122886681098`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      1.3862943611198906`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      1.6094379124341003`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      1.791759469228055, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      1.9459101490553132`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      2.0794415416798357`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      2.1972245773362196`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
      2.302585092994046, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 
       0.}}}}]]], "Output",
 CellChangeTimes->{{3.863874324022547*^9, 3.863874369538093*^9}, {
   3.863874438000298*^9, 3.8638744781978283`*^9}, {3.8638745915121603`*^9, 
   3.863874598629278*^9}, 3.863876260839075*^9, 3.86387631194722*^9, {
   3.863894238255509*^9, 3.8638942575138903`*^9}, {3.863894601165042*^9, 
   3.863894626990839*^9}},
 CellLabel->
  "Out[4402]=",ExpressionUUID->"29219521-0e30-4009-9a40-3b121e0a8bd6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"allPoints", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"xFacePosS", ",", "xFacePos"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"zero", "=", 
   RowBox[{"allPoints", "[", 
    RowBox[{"[", 
     RowBox[{"lookupface", "[", 
      RowBox[{"3", ",", "1", ",", "3"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"ii", "=", "1"}], ",", 
   RowBox[{"ii", "<=", 
    RowBox[{"Length", "[", "allPoints", "]"}]}], ",", 
   RowBox[{"ii", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"allPoints", "[", 
      RowBox[{"[", "ii", "]"}], "]"}], "=", 
     RowBox[{
      RowBox[{"allPoints", "[", 
       RowBox[{"[", "ii", "]"}], "]"}], "-", "zero"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fancyFunction", "[", 
    RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"x", "+", "2"}], ")"}], "2"], "+", "1", "+", 
    RowBox[{"Cos", "[", 
     RowBox[{"5", "x"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"realLaplacian", "[", 
    RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"fancyFunction", "[", 
      RowBox[{"0", ",", "y", ",", "0"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"allVals", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"fancyFunction", "[", 
       RowBox[{
        RowBox[{"allPoints", "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"allPoints", "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "2"}], "]"}], "]"}], ",", 
        RowBox[{"allPoints", "[", 
         RowBox[{"[", 
          RowBox[{"ii", ",", "3"}], "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"ii", ",", "1", ",", 
        RowBox[{"Length", "[", "allPoints", "]"}]}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"discreteLap", "=", 
  RowBox[{
   RowBox[{
    FractionBox["16", "21"], " ", 
    FractionBox[
     RowBox[{"allVals", "[", 
      RowBox[{"[", 
       RowBox[{"lookupfaceS", "[", 
        RowBox[{"5", ",", "4", ",", "5"}], "]"}], "]"}], "]"}], 
     SuperscriptBox["delta", "2"]]}], "+", 
   RowBox[{
    FractionBox["16", "21"], " ", 
    FractionBox[
     RowBox[{"allVals", "[", 
      RowBox[{"[", 
       RowBox[{"lookupfaceS", "[", 
        RowBox[{"5", ",", "4", ",", "6"}], "]"}], "]"}], "]"}], 
     SuperscriptBox["delta", "2"]]}], "-", 
   RowBox[{
    FractionBox["8", "3"], " ", 
    FractionBox[
     RowBox[{"allVals", "[", 
      RowBox[{"[", 
       RowBox[{"lookupface", "[", 
        RowBox[{"3", ",", "1", ",", "3"}], "]"}], "]"}], "]"}], 
     SuperscriptBox["delta", "2"]]}], "+", 
   RowBox[{
    FractionBox["8", "7"], " ", 
    FractionBox[
     RowBox[{"allVals", "[", 
      RowBox[{"[", 
       RowBox[{"lookupface", "[", 
        RowBox[{"3", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], 
     SuperscriptBox["delta", "2"]]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"realLaplacian", "[", 
  RowBox[{"0", ",", "0", ",", "0"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"-", 
  FractionBox[
   RowBox[{"discreteLap", "-", 
    RowBox[{"realLaplacian", "[", 
     RowBox[{"0", ",", "0", ",", "0"}], "]"}]}], 
   RowBox[{"realLaplacian", "[", 
    RowBox[{"0", ",", "0", ",", "0"}], "]"}]]}]}], "Input",
 CellChangeTimes->{{3.8638831390381308`*^9, 3.863883183123561*^9}, {
   3.86388333950021*^9, 3.863883368274007*^9}, {3.8638834485022087`*^9, 
   3.863883454645342*^9}, {3.863884692498472*^9, 3.863884694721539*^9}, {
   3.863888347277635*^9, 3.863888350079053*^9}, {3.863888543302743*^9, 
   3.8638885582095633`*^9}, 3.863888984602189*^9, {3.863889026783663*^9, 
   3.863889031245118*^9}, {3.8638890787184277`*^9, 3.863889082418421*^9}, {
   3.863889666779292*^9, 3.863889676515551*^9}, {3.86388970663164*^9, 
   3.863889706855336*^9}, {3.86388975290981*^9, 3.8638897735968513`*^9}, {
   3.8638926658295383`*^9, 3.8638926686731653`*^9}},
 CellLabel->
  "In[3652]:=",ExpressionUUID->"174c9ea9-92eb-4780-83ec-a1b0419f1e19"],

Cell[BoxData[
 RowBox[{"-", "122.99997577988688`"}]], "Output",
 CellChangeTimes->{{3.863883455091673*^9, 3.863883493785791*^9}, 
   3.86388403915199*^9, {3.8638843856931553`*^9, 3.8638843928015347`*^9}, {
   3.863884670250141*^9, 3.8638846953248034`*^9}, 3.8638862962261143`*^9, 
   3.863886415524252*^9, 3.863887940552075*^9, 3.863888350809319*^9, {
   3.8638883896087008`*^9, 3.8638883994548197`*^9}, 3.863888559806695*^9, {
   3.863888902885359*^9, 3.8638889323957033`*^9}, 3.863888986517804*^9, 
   3.863889088237687*^9, 3.863889511108225*^9, {3.863889553485798*^9, 
   3.863889563233179*^9}, {3.863889667302842*^9, 3.8638896769313297`*^9}, 
   3.8638897073053493`*^9, {3.863889759781497*^9, 3.863889822629163*^9}, 
   3.863892671523905*^9},
 CellLabel->
  "Out[3658]=",ExpressionUUID->"beadc5c9-9b78-4ffc-a08d-21cda69b5b41"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.863883455091673*^9, 3.863883493785791*^9}, 
   3.86388403915199*^9, {3.8638843856931553`*^9, 3.8638843928015347`*^9}, {
   3.863884670250141*^9, 3.8638846953248034`*^9}, 3.8638862962261143`*^9, 
   3.863886415524252*^9, 3.863887940552075*^9, 3.863888350809319*^9, {
   3.8638883896087008`*^9, 3.8638883994548197`*^9}, 3.863888559806695*^9, {
   3.863888902885359*^9, 3.8638889323957033`*^9}, 3.863888986517804*^9, 
   3.863889088237687*^9, 3.863889511108225*^9, {3.863889553485798*^9, 
   3.863889563233179*^9}, {3.863889667302842*^9, 3.8638896769313297`*^9}, 
   3.8638897073053493`*^9, {3.863889759781497*^9, 3.863889822629163*^9}, 
   3.863892671528801*^9},
 CellLabel->
  "Out[3659]=",ExpressionUUID->"f848cbcf-8db6-49d1-ae1b-5053ef43c54b"],

Cell[BoxData[
 TemplateBox[{
  "Power", "infy", 
   "\"Infinite expression \\!\\(\\*FractionBox[\\\"1\\\", \\\"0\\\"]\\) \
encountered.\"", 2, 3660, 33, 32559993922918730362, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.863892671575049*^9},
 CellLabel->
  "During evaluation of \
In[3652]:=",ExpressionUUID->"72732b36-4359-44a1-8606-d81babff81eb"],

Cell[BoxData["ComplexInfinity"], "Output",
 CellChangeTimes->{{3.863883455091673*^9, 3.863883493785791*^9}, 
   3.86388403915199*^9, {3.8638843856931553`*^9, 3.8638843928015347`*^9}, {
   3.863884670250141*^9, 3.8638846953248034`*^9}, 3.8638862962261143`*^9, 
   3.863886415524252*^9, 3.863887940552075*^9, 3.863888350809319*^9, {
   3.8638883896087008`*^9, 3.8638883994548197`*^9}, 3.863888559806695*^9, {
   3.863888902885359*^9, 3.8638889323957033`*^9}, 3.863888986517804*^9, 
   3.863889088237687*^9, 3.863889511108225*^9, {3.863889553485798*^9, 
   3.863889563233179*^9}, {3.863889667302842*^9, 3.8638896769313297`*^9}, 
   3.8638897073053493`*^9, {3.863889759781497*^9, 3.863889822629163*^9}, 
   3.863892671597474*^9},
 CellLabel->
  "Out[3660]=",ExpressionUUID->"f1ccfa5b-e73f-4a35-9e51-c711cef3221b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"inter", "[", "y_", "]"}], "=", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{"8", " ", "y", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          FractionBox["y", "delta"]}], ")"}]}], 
       RowBox[{"21", " ", "delta"}]], " ", 
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupfaceS", "[", 
         RowBox[{"5", ",", "4", ",", "5"}], "]"}], "]"}], "]"}]}], "+", 
     RowBox[{
      FractionBox[
       RowBox[{"8", " ", "y", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          FractionBox["y", "delta"]}], ")"}], " "}], 
       RowBox[{"21", " ", "delta"}]], " ", 
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupfaceS", "[", 
         RowBox[{"5", ",", "4", ",", "6"}], "]"}], "]"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox["y", "delta"], "-", 
        FractionBox[
         RowBox[{"4", " ", "y", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            FractionBox["y", "delta"]}], ")"}]}], 
         RowBox[{"3", " ", "delta"}]]}], ")"}], " ", 
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"3", ",", "1", ",", "3"}], "]"}], "]"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        FractionBox["y", "delta"], "+", 
        FractionBox[
         RowBox[{"4", " ", "delta", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            FractionBox["y", "delta"]}], ")"}]}], 
         RowBox[{"7", " ", "delta"}]]}], ")"}], "  ", 
      RowBox[{"allVals", "[", 
       RowBox[{"[", 
        RowBox[{"lookupface", "[", 
         RowBox[{"3", ",", "2", ",", "3"}], "]"}], "]"}], "]"}]}]}]}], 
   "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"inter", "[", "y_", "]"}], "=", 
     RowBox[{
      RowBox[{
       FractionBox[
        RowBox[{"8", " ", "y", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           FractionBox["y", "delta"]}], ")"}]}], 
        RowBox[{"21", " ", "delta"}]], " ", 
       RowBox[{"allVals", "[", 
        RowBox[{"[", 
         RowBox[{"lookupfaceS", "[", 
          RowBox[{"5", ",", "4", ",", "5"}], "]"}], "]"}], "]"}]}], "+", 
      RowBox[{
       FractionBox[
        RowBox[{"8", " ", "y", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           FractionBox["y", "delta"]}], ")"}]}], 
        RowBox[{"21", " ", "delta"}]], " ", 
       RowBox[{"allVals", "[", 
        RowBox[{"[", 
         RowBox[{"lookupfaceS", "[", 
          RowBox[{"5", ",", "4", ",", "6"}], "]"}], "]"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox["y", "delta"], "-", 
         FractionBox[
          RowBox[{"4", " ", "y", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             FractionBox["y", "delta"]}], ")"}]}], 
          RowBox[{"3", " ", "delta"}]]}], ")"}], " ", 
       RowBox[{"allVals", "[", 
        RowBox[{"[", 
         RowBox[{"lookupface", "[", 
          RowBox[{"3", ",", "1", ",", "3"}], "]"}], "]"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["y", "delta"], "+", 
         FractionBox[
          RowBox[{"4", "  ", "y", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             FractionBox["y", "delta"]}], ")"}]}], 
          RowBox[{"7", " ", "delta"}]]}], ")"}], "  ", 
       RowBox[{"allVals", "[", 
        RowBox[{"[", 
         RowBox[{"lookupface", "[", 
          RowBox[{"3", ",", "2", ",", "3"}], "]"}], "]"}], "]"}]}]}]}], ";"}],
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"points", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"allPoints", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"lookupfaceS", "[", 
             RowBox[{"5", ",", "4", ",", "5"}], "]"}], ",", "2"}], "]"}], 
          "]"}], ",", 
         RowBox[{"allVals", "[", 
          RowBox[{"[", 
           RowBox[{"lookupfaceS", "[", 
            RowBox[{"5", ",", "4", ",", "5"}], "]"}], "]"}], "]"}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"allPoints", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"lookupfaceS", "[", 
             RowBox[{"5", ",", "4", ",", "6"}], "]"}], ",", "2"}], "]"}], 
          "]"}], ",", 
         RowBox[{"allVals", "[", 
          RowBox[{"[", 
           RowBox[{"lookupfaceS", "[", 
            RowBox[{"5", ",", "4", ",", "6"}], "]"}], "]"}], "]"}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"allPoints", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"lookupface", "[", 
             RowBox[{"3", ",", "1", ",", "3"}], "]"}], ",", "2"}], "]"}], 
          "]"}], ",", 
         RowBox[{"allVals", "[", 
          RowBox[{"[", 
           RowBox[{"lookupface", "[", 
            RowBox[{"3", ",", "1", ",", "3"}], "]"}], "]"}], "]"}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"allPoints", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"lookupface", "[", 
             RowBox[{"3", ",", "2", ",", "3"}], "]"}], ",", "2"}], "]"}], 
          "]"}], ",", 
         RowBox[{"allVals", "[", 
          RowBox[{"[", 
           RowBox[{"lookupface", "[", 
            RowBox[{"3", ",", "2", ",", "3"}], "]"}], "]"}], "]"}]}], "}"}]}],
       "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"inter", "[", "y", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "2"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8638835939260902`*^9, 3.8638835972784023`*^9}, {
   3.863883653278067*^9, 3.8638837927248077`*^9}, {3.863883875330637*^9, 
   3.863883878825295*^9}, {3.863885601619605*^9, 3.863885619679674*^9}, {
   3.86388602530228*^9, 3.863886160911667*^9}, 3.86388655796735*^9, {
   3.863886765979566*^9, 3.863886792090349*^9}, 3.863887350594801*^9, 
   3.863887829262897*^9, {3.863887882463419*^9, 3.863887898491961*^9}, {
   3.8638885869649773`*^9, 3.863888599977566*^9}, 3.863888804841844*^9, {
   3.863889043661231*^9, 3.863889046868698*^9}, 3.863889178113401*^9, {
   3.863889218062883*^9, 3.86388922663759*^9}, {3.863889486930987*^9, 
   3.8638894887770767`*^9}},
 CellLabel->
  "In[3156]:=",ExpressionUUID->"55e09393-0bfd-4fa6-9fa0-48193223c0c0"],

Cell[BoxData[
 RowBox[{"-", "22.993388607203087`"}]], "Output",
 CellChangeTimes->{
  3.863883793291337*^9, 3.863883880534161*^9, {3.863884034061709*^9, 
   3.863884043793963*^9}, {3.8638843868589287`*^9, 3.8638843941572437`*^9}, 
   3.863884671330351*^9, 3.8638856201925287`*^9, 3.863886162511078*^9, 
   3.863886297823782*^9, 3.8638864195798798`*^9, 3.86388655832633*^9, 
   3.863886812195953*^9, 3.863887248654107*^9, 3.8638878442427273`*^9, {
   3.863887900386426*^9, 3.8638879119373283`*^9}, 3.863888279811186*^9, 
   3.863888437946435*^9, 3.863888610067379*^9, {3.863888805404942*^9, 
   3.863888843908774*^9}, {3.863888918271337*^9, 3.863888937424076*^9}, 
   3.863889089175085*^9, 3.863889178829734*^9, 3.863889428560274*^9, 
   3.863889491779582*^9, {3.8638895495563917`*^9, 3.863889569184895*^9}, 
   3.863889723875682*^9, {3.863889766311287*^9, 3.863889824433028*^9}},
 CellLabel->
  "Out[3158]=",ExpressionUUID->"3903adb1-3fba-4953-9e5d-b4ba779dabc9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"p1", "=", 
   RowBox[{"ListPlot", "[", "points", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p2", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"inter", "[", "y", "]"}], ",", 
       RowBox[{"fancyFunction", "[", 
        RowBox[{"0", ",", "y", ",", "0"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "delta"}], ",", 
       RowBox[{"2", "delta"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"p1", ",", "p2", ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.863883801149778*^9, 3.86388389812773*^9}, {
  3.863884050041895*^9, 3.863884059871768*^9}, {3.8638843661797953`*^9, 
  3.8638843802504997`*^9}, {3.863886243348338*^9, 3.863886247995049*^9}, {
  3.863886359630642*^9, 3.863886372022066*^9}, {3.863889404533682*^9, 
  3.863889405156076*^9}},
 CellLabel->
  "In[3159]:=",ExpressionUUID->"3f393850-fc32-4ee7-a080-6316b69348f9"],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{-0.009375000000000001, 
      5.9614894589634435`}, {-0.009375000000000001, 5.9614894589634435`}, {0.,
       6.}, {0.012499999999999997`, 
      6.048203760700099}}]}, {{}, {}}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVzXs0lHkYwHFJ5Whdj3p/yCXFScpl6DLZ6XliK2rHpaTaRnYllbaw0qIl
xI4ZtMSMeTdFrWqa2dgum7D1HpsuVBOqTUPTbVUOy9CRRGt/+8dznvM55znf
Z3Z0/LrthgYGBkI6/+/d3cKDLCvh/tEkPh1uYbC+uPiv4hIJt1aU1WJ4h0Hj
5Y8WSgslnNlZUa05dZVc1JWWJeGuZu4vcqPuWr2bL9ol4frmLcFI6mBV3jsH
voRbJ+qTNVF7x1/fUdWRx0WEuNqW3GVw5MPS0Bomj/OJ7cj11DAYO6ElIck/
cj5t/XpVG4NzM/sylP05XOvU4PY3Dxk0C86tVMcf4kBT5W3ZwWCn2aO6pa1Z
nJu4Qnygk/aCShMOfpnJ1X7k2Sp1DPYPWC+vDE3nSr67NGb9ksGVr82tZEwa
t9rTwW5vN4N+bT1On2Z8z8XcXOovfcvg6Alvx9QHSVyFuuJNdy+DG3Zs2rTz
dgLXbMcfNxpg0PSwnWUEu5t77H3N3nKIQQOb6NDJTtu5N3/OHNoyzGCk7T0T
D/etnHlT9FjcBwafsIW8U1ZhnFAbYHFljMEGE2et8qkXFzHoMTT4L+0ZT95p
TgB2Fcof6CcRLItvX+B8KxxSy3L0C6YQ3Oxi3cJP/hpqR1z3eRgT3LT61fF6
4x2wbTQk/9vpBFW+stzS9D1gZ/HxapkZwajyL8auNyZCilGzs8SS4MkroU1n
pyTDMwPnNZetCQY+T183yyoFwnxCpqsY+m9P+S4/8wNQ4S6qzbcl6DBDWLxK
mAGnkx2/UtoTNIoxh4GzmSD3bxUVOBGUrWkUnBdmg96uplo1h+DYq97M5p5D
UKiLV192JWg1+YzrvLhcuFA50S51I7jSU/1w3EQMo3+vT1UsIOj2ArqZojzQ
nOg6v9eT4MuVwmUSUyno+VYxPjyCtbW/lCWo88Ho3J1mr0UEBTXSjccXFoJS
GyAeWULw2cV6R//Ww+Dj4hn2fhlBmwqBi9y9CGTzL2uvCQj+KtCKFvcWwaIb
V9z3I8F70UcVlg3FgK8m/ogJIHirpWqKRfoRUCWEP7RfRTCkrn1/UEgJ3BXZ
5ZgGEVwxSWBSbV8KM1sCGnrXEvysYECzSFcKlvkXA2TBBLcfu1n2oVoGqwRt
JfvCCMoHu4t1iXKwjmkudwwnyKtYUT3gVQZdwqDxugiCogeNGj8DBaQc79wo
2Uxw6xqpk7pRAdGm7jwXEb3X87UmNxSgg/utXtTT5D0lcbcV0G7Ii/+c+rcX
gdPm31eA1zIf9Xpqw9Rp/couBfy8d65TNvWZMzkNp0cUgP2Nn3TUeqODEScX
sqAJ7BErIgk2qTwsDL1ZyJBGOVRRs6G65m98WVCKSi/VUPuXCwSz/VhIuMB/
fpO61Gd8TmUgC5fmJPkOU/OjUwePbWNhqv2J1rCtBM2M3dSfYlkIjzXYFkn9
8lxHTGQcC87oMLyTumB0ScesRBZmnpKRTGpd0ftrRzNYuO2bJKqmvrD4dMpY
FguvJ93qq6MWd23gbcllISXqyQ83qL3m/X7KtoAFs7v88i5qI01MVNpPtNcp
dn9L/STJ2kZ7hIWCtNL6d9TVNk3tfDkLOaqooAnqbC6pgGVZGIrreWwSRfA/
1QIjbw==
        "]]},
      Annotation[#, "Charting`Private`Tag$16877#1"]& ], 
     TagBox[
      {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVzX1UjHkUB/BetzlJYzp1nt9QtKyIUHlJ2nFvLGFNDaukJtlWNWr1os2i
HXrRy0zFpGmah5jWJikidiWtfbaVLVGoOEk7Gxm29TLKSSUv+9s/7rnnc+69
3/tpRPz6SDMTExMxrf97rEG8j2UV3OzRhBdDLQxeLii4V1Co4Oo6orrNbjDI
W3p3jjKfzrNmNvGpyzTSnj1pCk65g1/qSt3jF+st3abg6qNjA8Ko/StzXk/2
VnDrLoWWNVJ7xF+NLuvK4YxFTjMKbzI4PLJYcpbJ4S7ETFPNa2Mw6mM3CUjO
4nb9rHxTeYfBz1Kf7614uZ+rSb3S+bSTQVv/zNKq+AzOL7jfQ9DF4APbu3WL
b6dxsgBZVsoDmrdanbBvbSonWYmkQs/gS6P90lKJnDt/OG3U/hGDK57w7YqY
Pdx3NwXCOAODPnf6nd87fM/1Ruei8h8GR3/0mLK7I4lzV6U8MTxjMDA6OFjW
nMCZDpSMWRgZHH9gkiCIjeWuCI84CQYZNBFGSMydI7k08cbB0CEGwya2Ws+d
vZmrfNs5FjPC4H023/OE3TpukqxmwqUxBuutp3ZX/OXOGYICBwc+0DyeuYxP
AILsPu94ZUqwOL7dbWrTBhh3JsToZklw03T7Fu/kLXBv4GPiXB7BYL++Y5d5
0TAuRJ/97TiClQuKMtXy7SDNYuqKbQmGl3wxdrUhEaTqZEeFgODxS5LGU5bJ
oPvDa9lFe4KreuXrHe12wQ/3R0wrGfpve8k2H34KSAubTudOJDjZQVywUrwX
NshT/CucCFps5YPxVCpIZWpJnjPBojUNohpxOtQ4RB6vnEZwrO9Z6vX+DDBm
9OguuhC0Mz/pMjMmE074DjQrXQmumFfV+c46G8I1Nju0bgRdH4KBUeVA6Nu4
6rh5BB+tEC9RjFcCXmuJnO9JsLb2p+KEqlxgynvb3RcSFJ1Vbjw2Jx/Oljiy
w14E/75wecqy2wcgPqc37s0SgkKdaLpmtgq2PTFaciKCp0Xd0kXPVPDh8I2o
nUiwNeKIVlBfAOZrd9pELifY1FJmOUF+CEJ+d14yeSXBgLr2nasDCuHhY8En
tqsJ+pqKrKud1LBFvDzs+ZcEbfKMbQv1ami41WWl8ScYefTP4pHqIhgy8NKT
1xHUDBgK9IkauPoistZ5A0FPnW+10b0YPNVqv/oggtKOhjYfEy0kzHDTKzcR
3LxG6VzVoAV+7fUhFyndf+XdbX1NCw6D+UWe1Faa/sKYZi10iAQLl1Kfe7jK
atYtLXywCkwKpDbbbfWyoofex955nkF98uT++vJhLfTlHu3opX5lsS/o+BwW
dF77Ew6HEWysnDvBzIOF7luzeOXUrER//esFLATLVboa6mUlItGnPiz8StjW
Zmr1/HfTSlexQAJ1LsPU3hG7B45+w0K2RerNrzYTtOW5Vr2PYkFmRraEUz86
07U1LIYFPRP/OoY6b9SryzGRBSdliDCdWq9689uRvSy8O+gScY76/KLyXWNp
LKj9a1/XU2f3BHqGZrLwYrpVZhO1+8xfTkzMYyF+yuNyPbVF29bwPQdZ6PNN
9PqX+n6SvbD7EAun5VeahqirhY3t3hp639680TScYDqXlMeyLLT6Fj61of4P
E0glig==
        "]]},
      Annotation[#, "Charting`Private`Tag$16877#2"]& ]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 5.956671997755852},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{851.1111111110727, Automatic},
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.863883898744021*^9, 3.863884060196858*^9, {3.8638843877843647`*^9, 
   3.863884395846541*^9}, 3.8638846778695*^9, 3.863886249470503*^9, 
   3.863886299854828*^9, {3.863886363057029*^9, 3.8638863734768543`*^9}, 
   3.863886421743009*^9, 3.8638878592718287`*^9, 3.863887924725198*^9, 
   3.863888920462903*^9, 3.863889181891227*^9, 3.8638894062227983`*^9, 
   3.86388972877804*^9, {3.863889769347136*^9, 3.863889780180889*^9}, {
   3.863889810754977*^9, 3.863889826184293*^9}},
 CellLabel->
  "Out[3161]=",ExpressionUUID->"20a19577-1632-4e78-8215-027b04b624c2"]
}, Open  ]]
},
WindowSize->{1848, 1536},
WindowMargins->{{Automatic, 0}, {0, Automatic}},
FrontEndVersion->"12.3 for Linux x86 (64-bit) (May 11, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"b3c6f9e8-773b-4e93-ba35-2863c93088ea"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 547, 12, 30, "Input",ExpressionUUID->"6d9edd4b-3451-4cb6-a6b0-987f11052235"],
Cell[1108, 34, 18419, 315, 177, InheritFromParent,ExpressionUUID->"224b0e43-0bfc-4a11-a15a-a92ef0301df1"],
Cell[CellGroupData[{
Cell[19552, 353, 6963, 191, 328, "Input",ExpressionUUID->"d64847a4-d6ef-49fe-aac1-3bae3b6696e5"],
Cell[26518, 546, 1900, 60, 55, "Output",ExpressionUUID->"f2ca38bf-1dbe-4d60-9e76-13601cf51900"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28455, 611, 10899, 288, 344, "Input",ExpressionUUID->"292b2fe0-9efc-4894-a44b-78701e2f8c0f"],
Cell[39357, 901, 2086, 30, 34, "Output",ExpressionUUID->"912a17e3-5d8f-4ae8-b4a9-89a37a8d6e82"],
Cell[41446, 933, 2070, 30, 34, "Output",ExpressionUUID->"069f824f-b542-4841-99b4-8c331f263634"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43553, 968, 2176, 54, 164, "Input",ExpressionUUID->"0a491aa8-eaba-4c62-add7-29317c9fa489"],
Cell[45732, 1024, 11901, 285, 515, "Output",ExpressionUUID->"29219521-0e30-4009-9a40-3b121e0a8bd6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57670, 1314, 4334, 120, 314, "Input",ExpressionUUID->"174c9ea9-92eb-4780-83ec-a1b0419f1e19"],
Cell[62007, 1436, 830, 13, 34, "Output",ExpressionUUID->"beadc5c9-9b78-4ffc-a08d-21cda69b5b41"],
Cell[62840, 1451, 795, 12, 34, "Output",ExpressionUUID->"f848cbcf-8db6-49d1-ae1b-5053ef43c54b"],
Cell[63638, 1465, 374, 9, 41, "Message",ExpressionUUID->"72732b36-4359-44a1-8606-d81babff81eb"],
Cell[64015, 1476, 809, 12, 34, "Output",ExpressionUUID->"f1ccfa5b-e73f-4a35-9e51-c711cef3221b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64861, 1493, 6804, 193, 220, "Input",ExpressionUUID->"55e09393-0bfd-4fa6-9fa0-48193223c0c0"],
Cell[71668, 1688, 963, 15, 34, "Output",ExpressionUUID->"3903adb1-3fba-4953-9e5d-b4ba779dabc9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[72668, 1708, 1111, 28, 75, "Input",ExpressionUUID->"3f393850-fc32-4ee7-a080-6316b69348f9"],
Cell[73782, 1738, 5644, 114, 547, "Output",ExpressionUUID->"20a19577-1632-4e78-8215-027b04b624c2"]
}, Open  ]]
}
]
*)