⠀

𖣠⚪∣❁∣✤✻ЭЄᗩߦറ⚪𔗢⚪🞋⚪𔗢⚪റߦᗩЭЄ✻✤∣❁∣⚪𖣠/𖣠⚪ИNⓄꖴ✤ᑐᑕИNᑎꗳ𖣓ᔓᔕᑎꖴ⚭ᗩꗳ⚪𔗢⚪🞋⚪𔗢⚪ꗳᗩ⚭ꖴᑎᔓᔕ𖣓ꗳᑎИNᑐᑕ✤ꖴⓄИN⚪𖣠/𖣠⚪ᗱᗴᴥᑎ✤ᗩᗯᴥᑎᑐᑕ⚪𖡼𖡼𖡼𖡼⚪𔗢⚪🞋⚪𔗢⚪𖡼𖡼𖡼𖡼⚪ᑐᑕᑎᴥᗯᗩ✤ᑎᴥᗱᗴ⚪𖣠/ᗺИ.𖣠⚪ИNⓄꖴ✤ᗩᙁᑎߦꖴИNᗩᙏ⚙ᔓᔕᴥᗱᗴИNᴥⓄᑐᑕ𖣓ᗱᗴᙁ⚭ᗩꖴᴥᗩᗯ᳀ᔓᔕᑎꖴ⚭ᗩꗳ⚪𖣠⚪𔗢⚪𖡼⚪𔗢⚪𖣠⚪𔗢⚪𖡼⚪𔗢⚪𖣠⚪𔗢⚪𖡼⚪𔗢⚪𖣠⚪𔗢⚪𖡼⚪𔗢⚪🞋⚪𔗢⚪𖡼⚪𔗢⚪𖣠⚪𔗢⚪𖡼⚪𔗢⚪𖣠⚪𔗢⚪𖡼⚪𔗢⚪𖣠⚪𔗢⚪𖡼⚪𔗢⚪𖣠⚪ꗳᗩ⚭ꖴᑎᔓᔕ᳀ᗯᗩᴥꖴᗩ⚭ᙁᗱᗴ𖣓ᑐᑕⓄᴥИNᗱᗴᴥᔓᔕ⚙ᙏᗩИNꖴߦᑎᙁᗩ✤ꖴⓄИN⚪𖣠.NB

@@ -0,0 +1,729 @@
+(* Content-type: application/vnd.wolfram.mathematica *)
+
+(*** Wolfram Notebook File ***)
+(* http://www.wolfram.com/nb *)
+
+(* CreatedBy='Mathematica 12.2' *)
+
+(*CacheID: 234*)
+(* Internal cache information:
+NotebookFileLineBreakTest
+NotebookFileLineBreakTest
+NotebookDataPosition[       158,          7]
+NotebookDataLength[     28894,        721]
+NotebookOptionsPosition[     27728,        692]
+NotebookOutlinePosition[     28613,        718]
+CellTagsIndexPosition[     28570,        715]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+Cell[BoxData[{
+ RowBox[{"ClearAll", "[", 
+  RowBox[{"iCurvaturePlotHelper", ",", " ", "CurvaturePlot"}], "]"}], "\n", 
+ RowBox[{
+  RowBox[{"iCurvaturePlotHelper", "[", 
+   RowBox[{
+    RowBox[{"f_", "?", 
+     RowBox[{"(", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"Head", "[", "#", "]"}], " ", "=!=", " ", "List"}], " ", 
+       "&"}], ")"}]}], ",", " ", 
+    RowBox[{"{", 
+     RowBox[{"t_", ",", " ", "tmin_", ",", " ", "tmax_"}], "}"}], ",", " ", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"x0_", ",", " ", "y0_"}], "}"}], ",", " ", "\[Theta]0_"}], 
+     "}"}], ",", " ", 
+    RowBox[{"opts", " ", ":", " ", 
+     RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", 
+  RowBox[{"Module", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "sol", ",", " ", "\[Theta]", ",", " ", "x", ",", " ", "y", ",", " ", 
+      "if"}], "}"}], ",", "\n", "  ", 
+    RowBox[{
+     RowBox[{"sol", " ", "=", " ", 
+      RowBox[{"NDSolve", "[", 
+       RowBox[{
+        RowBox[{"{", "\n", "     ", 
+         RowBox[{
+          RowBox[{
+           RowBox[{
+            RowBox[{"\[Theta]", "'"}], "[", "t", "]"}], " ", "==", " ", "f"}],
+           ",", "\n", "     ", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"x", "'"}], "[", "t", "]"}], " ", "==", " ", 
+           RowBox[{"Cos", "[", 
+            RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}], ",", "\n", "     ", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"y", "'"}], "[", "t", "]"}], " ", "==", " ", 
+           RowBox[{"Sin", "[", 
+            RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}], ",", "\n", "     ", 
+          RowBox[{
+           RowBox[{"\[Theta]", "[", "tmin", "]"}], " ", "==", " ", 
+           "\[Theta]0"}], ",", "\n", "     ", 
+          RowBox[{
+           RowBox[{"x", "[", "tmin", "]"}], " ", "==", " ", "x0"}], ",", "\n",
+           "     ", 
+          RowBox[{
+           RowBox[{"y", "[", "tmin", "]"}], " ", "==", " ", "y0"}]}], "\n", 
+         "     ", "}"}], ",", " ", 
+        RowBox[{"{", 
+         RowBox[{"x", ",", " ", "y"}], "}"}], ",", " ", 
+        RowBox[{"{", 
+         RowBox[{"t", ",", " ", "tmin", ",", " ", "tmax"}], "}"}], ",", " ", 
+        "opts"}], "]"}]}], ";", "\n", "  ", 
+     RowBox[{"if", " ", "=", " ", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"x", "[", "#", "]"}], ",", " ", 
+          RowBox[{"y", "[", "#", "]"}]}], "}"}], " ", "&"}], " ", "/.", " ", 
+       RowBox[{"First", "[", "sol", "]"}]}]}], ";", "\n", "  ", "if"}]}], 
+   "\n", "  ", "]"}]}], "\n", 
+ RowBox[{
+  RowBox[{"CurvaturePlot", "[", 
+   RowBox[{"f_", ",", " ", 
+    RowBox[{"{", 
+     RowBox[{"t_", ",", " ", "tmin_", ",", " ", "tmax_"}], "}"}], ",", " ", 
+    RowBox[{"opts", " ", ":", " ", 
+     RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", 
+  RowBox[{"CurvaturePlot", "[", 
+   RowBox[{"f", ",", " ", 
+    RowBox[{"{", 
+     RowBox[{"t", ",", " ", "tmin", ",", " ", "tmax"}], "}"}], ",", " ", 
+    RowBox[{"{", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"0", ",", " ", "0"}], "}"}], ",", " ", "0"}], "}"}], ",", " ", 
+    "opts"}], "]"}]}], "\n", 
+ RowBox[{
+  RowBox[{"CurvaturePlot", "[", 
+   RowBox[{"f_", ",", " ", 
+    RowBox[{"{", 
+     RowBox[{"t_", ",", " ", "tmin_", ",", " ", "tmax_"}], "}"}], ",", " ", 
+    RowBox[{"p", " ", ":", " ", 
+     RowBox[{"{", 
+      RowBox[{
+       RowBox[{"{", 
+        RowBox[{"x0_", ",", " ", "y0_"}], "}"}], ",", " ", "\[Theta]0_"}], 
+      "}"}]}], ",", " ", 
+    RowBox[{"opts", " ", ":", " ", 
+     RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", 
+  RowBox[{"Module", "[", 
+   RowBox[{
+    RowBox[{"{", 
+     RowBox[{
+     "\[Theta]", ",", " ", "x", ",", " ", "y", ",", " ", "sol", ",", " ", 
+      "rlsplot", ",", " ", "rlsndsolve", ",", " ", "if", ",", " ", "ifs"}], 
+     "}"}], ",", "\n", "  ", 
+    RowBox[{
+     RowBox[{"rlsplot", " ", "=", " ", 
+      RowBox[{"FilterRules", "[", 
+       RowBox[{
+        RowBox[{"{", "opts", "}"}], ",", " ", 
+        RowBox[{"Options", "[", "ParametricPlot", "]"}]}], "]"}]}], ";", "\n",
+      "  ", 
+     RowBox[{"rlsndsolve", " ", "=", " ", 
+      RowBox[{"FilterRules", "[", 
+       RowBox[{
+        RowBox[{"{", "opts", "}"}], ",", " ", 
+        RowBox[{"Options", "[", "NDSolve", "]"}]}], "]"}]}], ";", "\n", "  ", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"Head", "[", "f", "]"}], " ", "===", " ", "List"}], ",", "\n",
+        "   ", 
+       RowBox[{
+        RowBox[{"ifs", " ", "=", " ", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"iCurvaturePlotHelper", "[", 
+            RowBox[{"#", ",", " ", 
+             RowBox[{"{", 
+              RowBox[{"t", ",", " ", "tmin", ",", " ", "tmax"}], "}"}], ",", 
+             " ", "p", ",", " ", 
+             RowBox[{"Evaluate", "@", 
+              RowBox[{"(", 
+               RowBox[{"Sequence", " ", "@@", " ", "rlsndsolve"}], ")"}]}]}], 
+            "]"}], " ", "&"}], " ", "/@", " ", "f"}]}], ";", "\n", "   ", 
+        RowBox[{"ParametricPlot", "[", 
+         RowBox[{
+          RowBox[{"Evaluate", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"#", "[", "tplot", "]"}], " ", "&"}], " ", "/@", " ", 
+            "ifs"}], "]"}], ",", " ", 
+          RowBox[{"{", 
+           RowBox[{"tplot", ",", " ", "tmin", ",", " ", "tmax"}], "}"}], ",", 
+          " ", 
+          RowBox[{"Evaluate", "@", 
+           RowBox[{"(", 
+            RowBox[{"Sequence", " ", "@@", " ", "rlsplot"}], ")"}]}]}], 
+         "]"}]}], "\n", "   ", ",", "\n", "   ", 
+       RowBox[{
+        RowBox[{"if", " ", "=", " ", 
+         RowBox[{"iCurvaturePlotHelper", "[", 
+          RowBox[{"f", ",", " ", 
+           RowBox[{"{", 
+            RowBox[{"t", ",", " ", "tmin", ",", " ", "tmax"}], "}"}], ",", 
+           " ", "p", ",", " ", 
+           RowBox[{"Evaluate", "@", 
+            RowBox[{"(", 
+             RowBox[{"Sequence", " ", "@@", " ", "rlsndsolve"}], ")"}]}]}], 
+          "]"}]}], ";", "\n", "   ", 
+        RowBox[{"ParametricPlot", "[", 
+         RowBox[{
+          RowBox[{"Evaluate", "[", 
+           RowBox[{"if", "[", "tplot", "]"}], "]"}], ",", " ", 
+          RowBox[{"{", 
+           RowBox[{"tplot", ",", " ", "tmin", ",", " ", "tmax"}], "}"}], ",", 
+          " ", 
+          RowBox[{"Evaluate", "@", 
+           RowBox[{"(", 
+            RowBox[{"Sequence", " ", "@@", " ", "rlsplot"}], ")"}]}]}], 
+         "]"}]}]}], "\n", "   ", "]"}]}]}], "\n", "  ", "]"}]}]}], "Input",
+ TextAlignment->Center,
+ FontFamily->"Go Noto Current-Regular",
+ FontSize->10,
+ FontWeight->"Normal",
+ CellLabel->
+  "4/3/24 21:38:11 \
+In[5275]:=",ExpressionUUID->"670c0d5c-4772-49bb-b74f-ae6a69be9ed0"],
+
+Cell[BoxData[
+ RowBox[{"\[IndentingNewLine]", 
+  RowBox[{
+   RowBox[{
+    RowBox[{
+     RowBox[{"ariasD", "[", "0", "]"}], " ", "=", " ", "1"}], ";"}], "\n", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"ariasD", "[", 
+      RowBox[{"n_Integer", "?", "Positive"}], "]"}], " ", ":=", " ", 
+     RowBox[{
+      RowBox[{"ariasD", "[", "n", "]"}], " ", "=", " ", 
+      RowBox[{
+       RowBox[{"Sum", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"2", "^", 
+           RowBox[{"(", 
+            RowBox[{
+             RowBox[{"(", 
+              RowBox[{
+               RowBox[{"k", " ", 
+                RowBox[{"(", 
+                 RowBox[{"k", " ", "-", " ", "1"}], ")"}]}], " ", "-", " ", 
+               RowBox[{"n", " ", 
+                RowBox[{"(", 
+                 RowBox[{"n", " ", "-", " ", "1"}], ")"}]}]}], ")"}], "/", 
+             "2"}], ")"}]}], " ", 
+          RowBox[{
+           RowBox[{"ariasD", "[", "k", "]"}], "/", 
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"n", " ", "-", " ", "k", " ", "+", " ", "1"}], ")"}], 
+            "!"}]}]}], ",", " ", 
+         RowBox[{"{", 
+          RowBox[{"k", ",", " ", "0", ",", " ", 
+           RowBox[{"n", " ", "-", " ", "1"}]}], "}"}]}], "]"}], "/", 
+       RowBox[{"(", 
+        RowBox[{
+         RowBox[{"2", "^", "n"}], " ", "-", " ", "1"}], ")"}]}]}]}], ";"}], 
+   "\n", 
+   RowBox[{
+    RowBox[{"iFabiusF", "[", "x_", "]"}], " ", ":=", " ", 
+    RowBox[{"Module", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"prec", " ", "=", " ", 
+         RowBox[{"Precision", "[", "x", "]"}]}], ",", " ", "n", ",", " ", "p",
+         ",", " ", "q", ",", " ", "s", ",", " ", "tol", ",", " ", "w", ",", 
+        " ", "y", ",", " ", "z"}], "}"}], ",", "\n", "  ", 
+      RowBox[{
+       RowBox[{"If", "[", 
+        RowBox[{
+         RowBox[{"x", " ", "<", " ", "0"}], ",", " ", 
+         RowBox[{"Return", "[", 
+          RowBox[{"0", ",", " ", "Module"}], "]"}]}], "]"}], ";", " ", 
+       RowBox[{"tol", " ", "=", " ", 
+        RowBox[{"10", "^", 
+         RowBox[{"(", 
+          RowBox[{"-", "prec"}], ")"}]}]}], ";", "\n", "  ", 
+       RowBox[{"z", " ", "=", " ", 
+        RowBox[{"SetPrecision", "[", 
+         RowBox[{"x", ",", " ", "Infinity"}], "]"}]}], ";", " ", 
+       RowBox[{"s", " ", "=", " ", "1"}], ";", " ", 
+       RowBox[{"y", " ", "=", " ", "0"}], ";", "\n", "  ", 
+       RowBox[{"z", " ", "=", " ", 
+        RowBox[{"If", "[", 
+         RowBox[{
+          RowBox[{"0", " ", "<=", " ", "z", " ", "<=", " ", "2"}], ",", " ", 
+          RowBox[{"1", " ", "-", " ", 
+           RowBox[{"Abs", "[", 
+            RowBox[{"1", " ", "-", " ", "z"}], "]"}]}], ",", "\n", "    ", 
+          RowBox[{
+           RowBox[{"q", " ", "=", " ", 
+            RowBox[{"Quotient", "[", 
+             RowBox[{"z", ",", " ", "2"}], "]"}]}], ";", "\n", "    ", 
+           RowBox[{"If", "[", 
+            RowBox[{
+             RowBox[{
+              RowBox[{"ThueMorse", "[", "q", "]"}], " ", "==", " ", "1"}], 
+             ",", " ", 
+             RowBox[{"s", " ", "=", " ", 
+              RowBox[{"-", "1"}]}]}], "]"}], ";", "\n", "    ", 
+           RowBox[{"1", " ", "-", " ", 
+            RowBox[{"Abs", "[", 
+             RowBox[{"1", " ", "-", " ", "z", " ", "+", " ", 
+              RowBox[{"2", " ", "q"}]}], "]"}]}]}]}], "]"}]}], ";", "\n", 
+       "  ", 
+       RowBox[{"While", "[", 
+        RowBox[{
+         RowBox[{"z", " ", ">", " ", "0"}], ",", "\n", "   ", 
+         RowBox[{
+          RowBox[{"n", " ", "=", " ", 
+           RowBox[{"-", 
+            RowBox[{"Floor", "[", 
+             RowBox[{"RealExponent", "[", 
+              RowBox[{"z", ",", " ", "2"}], "]"}], "]"}]}]}], ";", " ", 
+          RowBox[{"p", " ", "=", " ", 
+           RowBox[{"2", "^", "n"}]}], ";", "\n", "   ", 
+          RowBox[{"z", " ", "-=", " ", 
+           RowBox[{"1", "/", "p"}]}], ";", " ", 
+          RowBox[{"w", " ", "=", " ", "1"}], ";", "\n", "   ", 
+          RowBox[{"Do", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"w", " ", "=", " ", 
+              RowBox[{
+               RowBox[{"ariasD", "[", "m", "]"}], " ", "+", " ", 
+               RowBox[{"p", " ", "z", " ", 
+                RowBox[{"w", "/", 
+                 RowBox[{"(", 
+                  RowBox[{"n", " ", "-", " ", "m", " ", "+", " ", "1"}], 
+                  ")"}]}]}]}]}], ";", " ", 
+             RowBox[{"p", " ", "/=", " ", "2"}]}], ",", " ", 
+            RowBox[{"{", 
+             RowBox[{"m", ",", " ", "n"}], "}"}]}], "]"}], ";", "\n", "   ", 
+          RowBox[{"y", " ", "=", " ", 
+           RowBox[{"w", " ", "-", " ", "y"}]}], ";", "\n", "   ", 
+          RowBox[{"If", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"Abs", "[", "w", "]"}], " ", "<", " ", 
+             RowBox[{
+              RowBox[{"Abs", "[", "y", "]"}], " ", "tol"}]}], ",", " ", 
+            RowBox[{"Break", "[", "]"}]}], "]"}]}]}], "]"}], ";", "\n", "  ", 
+       RowBox[{"SetPrecision", "[", 
+        RowBox[{
+         RowBox[{"s", " ", 
+          RowBox[{"Abs", "[", "y", "]"}]}], ",", " ", "prec"}], "]"}]}]}], 
+     "]"}]}], "\n", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"FabiusF", "[", "Infinity", "]"}], " ", "=", " ", 
+     RowBox[{"Interval", "[", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"-", "1"}], ",", " ", "1"}], "}"}], "]"}]}], ";"}], "\n", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"FabiusF", "[", 
+      RowBox[{"x_", "?", "NumberQ"}], "]"}], " ", "/;", " ", 
+     RowBox[{"If", "[", 
+      RowBox[{
+       RowBox[{
+        RowBox[{"Im", "[", "x", "]"}], " ", "==", " ", "0"}], ",", " ", 
+       RowBox[{"TrueQ", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"Composition", "[", 
+           RowBox[{
+            RowBox[{
+             RowBox[{"BitAnd", "[", 
+              RowBox[{"#", ",", " ", 
+               RowBox[{"#", " ", "-", " ", "1"}]}], "]"}], " ", "&"}], ",", 
+            " ", "Denominator"}], "]"}], "[", "x", "]"}], " ", "==", " ", 
+         "0"}], "]"}], ",", " ", "False"}], "]"}]}], " ", ":=", " ", 
+    RowBox[{"iFabiusF", "[", "x", "]"}]}], "\n", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"Derivative", "[", "n_Integer", "]"}], "[", "FabiusF", "]"}], 
+    " ", ":=", " ", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"2", "^", 
+       RowBox[{"(", 
+        RowBox[{"n", " ", 
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"n", " ", "+", " ", "1"}], ")"}], "/", "2"}]}], ")"}]}], 
+      " ", 
+      RowBox[{"FabiusF", "[", 
+       RowBox[{
+        RowBox[{"2", "^", "n"}], " ", "#"}], "]"}]}], " ", "&"}]}], "\n", 
+   RowBox[{
+    RowBox[{"SetAttributes", "[", 
+     RowBox[{"FabiusF", ",", " ", 
+      RowBox[{"{", 
+       RowBox[{"NumericFunction", ",", " ", "Listable"}], "}"}]}], "]"}], 
+    ";"}]}]}]], "Input",
+ FontFamily->"Go Noto Current-Regular",
+ FontSize->10,
+ FontWeight->"Normal",
+ CellLabel->
+  "4/3/24 21:38:11 \
+In[5279]:=",ExpressionUUID->"a4addeb7-2708-41df-8367-f56fd1c4c60d"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+  RowBox[{"\:15e9", "=", "90"}], ";", 
+  RowBox[{"\:042fR", "=", 
+   RowBox[{"(", 
+    RowBox[{"4", "/", "8"}], ")"}]}], ";"}], "\[IndentingNewLine]", 
+ RowBox[{"Grid", "[", 
+  RowBox[{"{", 
+   RowBox[{"{", "\[IndentingNewLine]", 
+    RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"\:1513\:1515", "=", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"WorkingPrecision", "\[Rule]", "\:041fW\:041f"}], ",", 
+          RowBox[{"ImageSize", "\[Rule]", "256"}], ",", 
+          RowBox[{"Axes", "\[Rule]", "True"}], ",", 
+          RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
+          RowBox[{"PlotPoints", "\[Rule]", 
+           RowBox[{"1", "+", 
+            SuperscriptBox["2", "\[CapitalPi]\[CapitalPi]"]}]}], ",", 
+          RowBox[{"PlotStyle", "\[Rule]", 
+           RowBox[{"Thickness", "[", "0.00001", "]"}]}], ",", 
+          RowBox[{"PlotLegends", "\[Rule]", " ", 
+           RowBox[{"Placed", "[", 
+            RowBox[{"\"\<Expressions\>\"", ",", 
+             RowBox[{"{", 
+              RowBox[{"Center", ",", "Top"}], "}"}]}], "]"}]}], ",", 
+          RowBox[{"PlotRangePadding", "\[Rule]", 
+           RowBox[{"4", "/", "256"}]}], ",", 
+          RowBox[{"PlotRange", "\[Rule]", " ", "Full"}], ",", 
+          RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", 
+          RowBox[{"Axes", "\[Rule]", " ", "False"}], ",", 
+          RowBox[{"GridLines", "\[Rule]", 
+           RowBox[{"{", 
+            RowBox[{
+             RowBox[{"{", "0", "}"}], ",", 
+             RowBox[{"{", "0", "}"}]}], "}"}]}], " ", ",", 
+          RowBox[{"PlotStyle", "\[Rule]", 
+           RowBox[{"GrayLevel", "[", 
+            RowBox[{"168", "/", "256"}], "]"}]}], ",", 
+          RowBox[{"FrameStyle", "\[Rule]", " ", 
+           RowBox[{"GrayLevel", "[", 
+            RowBox[{"178", "/", "256"}], "]"}]}]}], "}"}]}], ";", 
+       "\[IndentingNewLine]", 
+       RowBox[{"\:1586\:1587", "=", 
+        RowBox[{"{", 
+         RowBox[{"x", ",", "0", ",", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", "\:15e9", ")"}], "/", "90"}], "*", "Pi"}]}], "}"}]}],
+        ";", "\[IndentingNewLine]", 
+       RowBox[{"\:a5f3", "=", 
+        RowBox[{"Piecewise", "[", 
+         RowBox[{"{", 
+          RowBox[{
+           RowBox[{"{", 
+            RowBox[{
+             RowBox[{"Abs", "[", 
+              RowBox[{"FabiusF", "[", 
+               RowBox[{
+                RowBox[{
+                 RowBox[{"x", "/", "\:042fR"}], "/", "Pi"}], 
+                RowBox[{
+                 RowBox[{"(", 
+                  RowBox[{"360", "/", "\:15e9"}], ")"}], "/", "4"}]}], "]"}], 
+              "]"}], ",", 
+             RowBox[{
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", "\:15e9", ")"}], "/", "90"}], "*", "Pi", "*", 
+               "\:042fR", "*", "0"}], "<", "x", "<", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", "\:15e9", ")"}], "/", "90"}], "*", "Pi", "*", 
+               "\:042fR"}]}]}], "}"}], ",", 
+           RowBox[{"{", 
+            RowBox[{
+             RowBox[{"Abs", "[", 
+              RowBox[{"FabiusF", "[", 
+               RowBox[{"1", "-", 
+                RowBox[{"(", 
+                 RowBox[{"(", 
+                  RowBox[{
+                   RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{
+                    RowBox[{"x", "/", "Pi"}], 
+                    RowBox[{
+                    RowBox[{"(", 
+                    RowBox[{"360", "/", "\:15e9"}], ")"}], "/", "4"}]}], 
+                    ")"}], "-", "\:042fR"}], ")"}], "/", 
+                   RowBox[{"(", 
+                    RowBox[{"1", "-", "\:042fR"}], ")"}]}], ")"}], ")"}]}], 
+               "]"}], "]"}], ",", 
+             RowBox[{
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", "\:15e9", ")"}], "/", "90"}], "*", "Pi", "*", 
+               "\:042fR"}], "<", "x", "<", 
+              RowBox[{
+               RowBox[{
+                RowBox[{"(", "\:15e9", ")"}], "/", "90"}], "*", "Pi", "*", 
+               "1"}]}]}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
+       RowBox[{"Column", "[", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"CurvaturePlot", "[", 
+           RowBox[{
+            RowBox[{"Evaluate", "[", 
+             RowBox[{"SetPrecision", "[", 
+              RowBox[{
+               RowBox[{"SetAccuracy", "[", 
+                RowBox[{"\:a5f3", ",", "\:041fW\:041f"}], "]"}], ",", 
+               "\:041fW\:041f"}], "]"}], "]"}], ",", 
+            RowBox[{"Evaluate", "[", "\:1586\:1587", "]"}], ",", 
+            RowBox[{"Evaluate", "[", "\:1513\:1515", "]"}], ",", 
+            RowBox[{"FrameTicks", "\[Rule]", 
+             RowBox[{"{", 
+              RowBox[{
+               RowBox[{"Range", "[", 
+                RowBox[{
+                 RowBox[{"-", "16"}], ",", "16", ",", 
+                 RowBox[{"1", "/", "2"}]}], "]"}], ",", 
+               RowBox[{"Range", "[", 
+                RowBox[{
+                 RowBox[{"-", "4"}], ",", "4", ",", 
+                 RowBox[{"1", "/", "2"}]}], "]"}]}], "}"}]}]}], " ", "]"}], 
+          ",", 
+          RowBox[{"Plot", "[", 
+           RowBox[{
+            RowBox[{"Evaluate", "[", 
+             RowBox[{"SetPrecision", "[", 
+              RowBox[{
+               RowBox[{"SetAccuracy", "[", 
+                RowBox[{"\:a5f3", ",", "\:041fW\:041f"}], "]"}], ",", 
+               "\:041fW\:041f"}], "]"}], "]"}], ",", 
+            RowBox[{"Evaluate", "[", "\:1586\:1587", "]"}], ",", 
+            RowBox[{"Evaluate", "[", "\:1513\:1515", "]"}], ",", 
+            RowBox[{"FrameTicks", "\[Rule]", 
+             RowBox[{"{", 
+              RowBox[{
+               RowBox[{"Range", "[", 
+                RowBox[{
+                 RowBox[{
+                  RowBox[{"-", "16"}], "*", "Pi"}], ",", 
+                 RowBox[{"16", "*", "Pi"}], ",", 
+                 RowBox[{"Pi", "/", "2"}]}], "]"}], ",", 
+               RowBox[{"Range", "[", 
+                RowBox[{
+                 RowBox[{"-", "1"}], ",", "1", ",", 
+                 RowBox[{"1", "/", "2"}]}], "]"}]}], "}"}]}]}], "  ", "]"}]}],
+          "}"}], "]"}]}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"\:15e9", ",", "90"}], "}"}], ",", "0", ",", "360", ",", 
+        RowBox[{"1", "/", "256"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"\:042fR", ",", 
+          RowBox[{"4", "/", "8"}], ",", "\"\<\[CenterDot]|\[CenterDot]\>\""}],
+          "}"}], ",", "0", ",", "1", ",", 
+        RowBox[{"1", "/", "256"}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"\[CapitalPi]\[CapitalPi]", ",", "8"}], "}"}], ",", "0", ",",
+         "16", ",", "1"}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"\:041fW\:041f", ",", "16"}], "}"}], ",", "0", ",", "64", 
+        ",", "1"}], "}"}], "\[IndentingNewLine]", ",", 
+      RowBox[{"FrameMargins", "\[Rule]", "0"}]}], "\[IndentingNewLine]", 
+     "]"}], "\[IndentingNewLine]", "}"}], "}"}], "]"}]}], "Input",
+ FontFamily->"Go Noto Current-Regular",
+ FontSize->10,
+ FontWeight->"Normal",ExpressionUUID->"adf5a779-403a-4c2b-985b-3306f9c44e28"],
+
+Cell[BoxData[
+ TagBox[GridBox[{
+    {
+     TagBox[
+      StyleBox[
+       DynamicModuleBox[{XMPTools`Wrappers`Private`\:15e9$$ = 90, 
+        XMPTools`Wrappers`Private`\:042fR$$ = Rational[1, 2], 
+        XMPTools`Wrappers`Private`\:041fW\:041f$$ = 16, 
+        XMPTools`Wrappers`Private`\[CapitalPi]\[CapitalPi]$$ = 8, 
+        Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
+        Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, 
+        Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", 
+        Typeset`specs$$ = {{{
+           Hold[XMPTools`Wrappers`Private`\:15e9$$], 90}, 0, 360, 
+          Rational[1, 256]}, {{
+           Hold[XMPTools`Wrappers`Private`\:042fR$$], 
+           Rational[1, 2], "\[CenterDot]|\[CenterDot]"}, 0, 1, 
+          Rational[1, 256]}, {{
+           Hold[XMPTools`Wrappers`Private`\[CapitalPi]\[CapitalPi]$$], 8}, 0, 
+          16, 1}, {{
+           Hold[XMPTools`Wrappers`Private`\:041fW\:041f$$], 16}, 0, 64, 1}}, 
+        Typeset`size$$ = {256., {242., 247.}}, Typeset`update$$ = 0, 
+        Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
+        DynamicBox[Manipulate`ManipulateBoxes[
+         1, StandardForm, 
+          "Variables" :> {
+           XMPTools`Wrappers`Private`\:15e9$$ = 90, 
+            XMPTools`Wrappers`Private`\:042fR$$ = Rational[1, 2], 
+            XMPTools`Wrappers`Private`\:041fW\:041f$$ = 16, 
+            XMPTools`Wrappers`Private`\[CapitalPi]\[CapitalPi]$$ = 8}, 
+          "ControllerVariables" :> {}, 
+          "OtherVariables" :> {
+           Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
+            Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
+            Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
+            Typeset`initDone$$, Typeset`skipInitDone$$}, 
+          "Body" :> (
+           XMPTools`Wrappers`Private`\:1513\:1515 = {
+             WorkingPrecision -> XMPTools`Wrappers`Private`\:041fW\:041f$$, 
+              ImageSize -> 256, Axes -> True, MaxRecursion -> 0, PlotPoints -> 
+              1 + 2^XMPTools`Wrappers`Private`\[CapitalPi]\[CapitalPi]$$, 
+              PlotStyle -> Thickness[0.00001], PlotLegends -> 
+              Placed["Expressions", {Center, Top}], PlotRangePadding -> 4/256,
+               PlotRange -> Full, Frame -> True, Axes -> False, 
+              GridLines -> {{0}, {0}}, PlotStyle -> GrayLevel[168/256], 
+              FrameStyle -> GrayLevel[178/256]}; 
+           XMPTools`Wrappers`Private`\:1586\:1587 = {
+             XMPTools`Wrappers`Private`x, 
+              0, (XMPTools`Wrappers`Private`\:15e9$$/90) Pi}; 
+           XMPTools`Wrappers`Private`\:a5f3 = Piecewise[{{
+                Abs[
+                 
+                 XMPTools`Wrappers`Private`FabiusF[((
+                    XMPTools`Wrappers`Private`x/
+                    XMPTools`Wrappers`Private`\:042fR$$)/
+                   Pi) ((360/XMPTools`Wrappers`Private`\:15e9$$)/
+                   4)]], (((XMPTools`Wrappers`Private`\:15e9$$/90) Pi) 
+                  XMPTools`Wrappers`Private`\:042fR$$) 0 < 
+                XMPTools`Wrappers`Private`x < ((
+                   XMPTools`Wrappers`Private`\:15e9$$/90) Pi) 
+                 XMPTools`Wrappers`Private`\:042fR$$}, {
+                Abs[
+                 XMPTools`Wrappers`Private`FabiusF[
+                 1 - ((XMPTools`Wrappers`Private`x/
+                    Pi) ((360/XMPTools`Wrappers`Private`\:15e9$$)/4) - 
+                   XMPTools`Wrappers`Private`\:042fR$$)/(1 - 
+                  XMPTools`Wrappers`Private`\:042fR$$)]], ((
+                   XMPTools`Wrappers`Private`\:15e9$$/90) Pi) 
+                 XMPTools`Wrappers`Private`\:042fR$$ < 
+                XMPTools`Wrappers`Private`x < ((
+                   XMPTools`Wrappers`Private`\:15e9$$/90) Pi) 1}}]; Column[{
+              XMPTools`Wrappers`Private`CurvaturePlot[
+               Evaluate[
+                SetPrecision[
+                 SetAccuracy[
+                 XMPTools`Wrappers`Private`\:a5f3, 
+                  XMPTools`Wrappers`Private`\:041fW\:041f$$], 
+                 XMPTools`Wrappers`Private`\:041fW\:041f$$]], 
+               Evaluate[XMPTools`Wrappers`Private`\:1586\:1587], 
+               Evaluate[XMPTools`Wrappers`Private`\:1513\:1515], FrameTicks -> {
+                 Range[-16, 16, 1/2], 
+                 Range[-4, 4, 1/2]}], 
+              Plot[
+               Evaluate[
+                SetPrecision[
+                 SetAccuracy[
+                 XMPTools`Wrappers`Private`\:a5f3, 
+                  XMPTools`Wrappers`Private`\:041fW\:041f$$], 
+                 XMPTools`Wrappers`Private`\:041fW\:041f$$]], 
+               Evaluate[XMPTools`Wrappers`Private`\:1586\:1587], 
+               Evaluate[XMPTools`Wrappers`Private`\:1513\:1515], FrameTicks -> {
+                 Range[(-16) Pi, 16 Pi, Pi/2], 
+                 Range[-1, 1, 1/2]}]}]), 
+          "Specifications" :> {{{XMPTools`Wrappers`Private`\:15e9$$, 90}, 0, 
+             360, 
+             Rational[1, 256]}, {{XMPTools`Wrappers`Private`\:042fR$$, 
+              Rational[1, 2], "\[CenterDot]|\[CenterDot]"}, 0, 1, 
+             Rational[1, 256]}, {{
+             XMPTools`Wrappers`Private`\[CapitalPi]\[CapitalPi]$$, 8}, 0, 16, 
+             1}, {{XMPTools`Wrappers`Private`\:041fW\:041f$$, 16}, 0, 64, 1}},
+           "Options" :> {FrameMargins -> 0}, "DefaultOptions" :> {}],
+         ImageSizeCache->{281., {312., 317.}},
+         SingleEvaluation->True],
+        Deinitialization:>None,
+        DynamicModuleValues:>{},
+        SynchronousInitialization->True,
+        UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
+        UnsavedVariables:>{Typeset`initDone$$},
+        UntrackedVariables:>{Typeset`size$$}], "Manipulate",
+       Deployed->True,
+       StripOnInput->False],
+      Manipulate`InterpretManipulate[1]]}
+   },
+   AutoDelete->False,
+   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
+  "Grid"]], "Output",
+ FontFamily->"Go Noto Current-Regular",
+ FontSize->10,ExpressionUUID->"87f7dffd-2a8e-4038-b9bf-2e250155a918"]
+}, Open  ]]
+},
+WindowSize->{1672, 980},
+WindowMargins->{{0, Automatic}, {Automatic, 0}},
+FrontEndVersion->"12.2 for Microsoft Windows (64-bit) (December 12, 2020)",
+StyleDefinitions->Notebook[{
+   Cell[
+    StyleData[StyleDefinitions -> "Default.nb"]], 
+   Cell[
+    StyleData[All], TextAlignment -> Center, FontFamily -> 
+    "Go Noto Current-Regular", FontSize -> 10, FontWeight -> "Normal", 
+    FontSlant -> "Plain", FontTracking -> "Plain", 
+    FontVariations -> {"StrikeThrough" -> False, "Underline" -> False}]}, 
+  Visible -> False, FrontEndVersion -> 
+  "12.2 for Microsoft Windows (64-bit) (December 12, 2020)", StyleDefinitions -> 
+  "PrivateStylesheetFormatting.nb"],
+ExpressionUUID->"87e41aa9-dea0-4ea9-92c2-e68f9a3b2137"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[558, 20, 6723, 178, 499, "Input",ExpressionUUID->"670c0d5c-4772-49bb-b74f-ae6a69be9ed0"],
+Cell[7284, 200, 6980, 185, 423, "Input",ExpressionUUID->"a4addeb7-2708-41df-8367-f56fd1c4c60d"],
+Cell[CellGroupData[{
+Cell[14289, 389, 7382, 181, 289, "Input",ExpressionUUID->"adf5a779-403a-4c2b-985b-3306f9c44e28"],
+Cell[21674, 572, 6038, 117, 648, "Output",ExpressionUUID->"87f7dffd-2a8e-4038-b9bf-2e250155a918"]
+}, Open  ]]
+}
+]
+*)
+

𖣠⚪∣❁∣✤✻ЭЄᗩߦറ⚪𔗢⚪🞋⚪𔗢⚪റߦᗩЭЄ✻✤∣❁∣⚪𖣠/𖣠⚪ИNⓄꖴ✤ᑐᑕИNᑎꗳ𖣓ᔓᔕᑎꖴ⚭ᗩꗳ⚪𔗢⚪🞋⚪𔗢⚪ꗳᗩ⚭ꖴᑎᔓᔕ𖣓ꗳᑎИNᑐᑕ✤ꖴⓄИN⚪𖣠/𖣠⚪ᗱᗴᴥᑎ✤ᗩᗯᴥᑎᑐᑕ⚪𖡼𖡼𖡼𖡼⚪𔗢⚪🞋⚪𔗢⚪𖡼𖡼𖡼𖡼⚪ᑐᑕᑎᴥᗯᗩ✤ᑎᴥᗱᗴ⚪𖣠/𖣠⚪ᔓᔕᴥᗱᗴИNᴥⓄᑐᑕ𖣓✤옷ᕤᕦꖴᗩᴥ✤ᔓᔕ⚪𖡼𖡼𖡼𖡼⚪𔗢⚪🞋⚪𔗢⚪𖡼𖡼𖡼𖡼⚪ᔓᔕ✤ᴥᗩꖴᕤᕦ옷✤𖣓ᑐᑕⓄᴥИNᗱᗴᴥᔓᔕ⚪𖣠/YP.⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᗩ⚪ᙏ⚪ꖴ⚪ꕤ⚪Ⓞ⚪ᴥ⚪ߦ⚪ᗩ⚪◯⚪ᙁ⚪ᗩ⚪ꖴ⚪✤⚪ИN⚪ᗱᗴ⚪ИN⚪Ⓞ⚪ߦ⚪ꕤ⚪ᗱᗴ⚪◯⚪ᗱᗴ⚪ᙁ⚪ᑐᑕ⚪ᴥ⚪ꖴ⚪ᑎ⚪¤⚪ᔓᔕ⚪◯⚪ᗱᗴ⚪ᴥ⚪ᑎ⚪✤⚪ᗩ⚪ᗯ⚪ᴥ⚪ᑎ⚪ᑐᑕ⚪◯⚪ᔓᔕ⚪ᑎ⚪ꖴ⚪⚭⚪ᗩ⚪ꗳ⚪◌⚪◌⚪◌⚪◌⚪◌⚪◌⚪ꗳ⚪ᗩ⚪⚭⚪ꖴ⚪ᑎ⚪ᔓᔕ⚪◯⚪ᑐᑕ⚪ᑎ⚪ᴥ⚪ᗯ⚪ᗩ⚪✤⚪ᑎ⚪ᴥ⚪ᗱᗴ⚪◯⚪ᔓᔕ⚪¤⚪ᑎ⚪ꖴ⚪ᴥ⚪ᑐᑕ⚪ᙁ⚪ᗱᗴ⚪◯⚪ᗱᗴ⚪ꕤ⚪ߦ⚪Ⓞ⚪ИN⚪ᗱᗴ⚪ИN⚪✤⚪ꖴ⚪ᗩ⚪ᙁ⚪◯⚪ᗩ⚪ߦ⚪ᴥ⚪Ⓞ⚪ꕤ⚪ꖴ⚪ᙏ⚪ᗩ⚪✤⚪ꖴ⚪Ⓞ⚪ИN⚪.PY

@@ -0,0 +1,35 @@
+import plotly.graph_objects as go
+import numpy as np
+
+# Define the curvature function
+def kappa(x):
+    return (1-((-((-1)**np.floor(x/np.pi*2)*(np.exp(-1/((x/np.pi*2)-np.floor((x/np.pi*2))))
+            /(np.exp(-1/((x/np.pi*2)-np.floor((x/np.pi*2))))+np.exp(-1/(1-(x/np.pi*2)+np.floor((x/np.pi*2))))))) +
+            ((-1)**np.floor((x/np.pi*2)/1)*(np.exp(-1/(1-(x/np.pi*2)+np.floor((x/np.pi*2))))/(np.exp(-1/((x/np.pi*2)-
+            np.floor((x/np.pi*2))))+np.exp(-1/(1-(x/np.pi*2)+np.floor((x/np.pi*2))))))))/2 + .5))
+
+# Generate x values
+x_vals = np.linspace(0, 4*np.pi, 1000)
+
+# Compute kappa values
+kappa_vals = kappa(x_vals)
+
+# Integrate kappa values to get theta values (angles)
+theta_vals = np.cumsum(kappa_vals) * (x_vals[1]-x_vals[0])
+
+# Compute x and y coordinates of the curve
+x_coords = np.cumsum(np.cos(theta_vals)) * (x_vals[1]-x_vals[0])
+y_coords = np.cumsum(np.sin(theta_vals)) * (x_vals[1]-x_vals[0])
+
+# Create a plot using plotly
+fig = go.Figure()
+
+# Add line to the figure for the curve
+fig.add_trace(go.Scatter(x=x_coords, y=y_coords, mode='lines', name='Curve'))
+
+# Update layout
+fig.update_layout(
+    autosize=True,
+    xaxis=dict(scaleanchor='y', scaleratio=1) # this line sets the aspect ratio
+)
+fig.show()