𖣠⚪∣❁∣ᙁᑐᑕ∣옷⚪𔗢⚪🞋⚪𔗢⚪옷∣ᑐᑕᙁ∣❁∣⚪𖣠/𖣠⚪ᕤᕦИNꖴ✤ᑎߦᙏⓄᑐᑕ⚪𔗢⚪🞋⚪𔗢⚪ᑐᑕⓄᙏߦᑎ✤ꖴИNᕤᕦ⚪𖣠/𖣠⚪ᗱᗴᴥᗩᗯ✤ꗳⓄᔓᔕ⚪𔗢⚪🞋⚪𔗢⚪ᔓᔕⓄꗳ✤ᗯᗩᴥᗱᗴ⚪𖣠/𖣠⚪ᔓᔕ✻ᴥⓄᗯ옷✣ᗩᙏ⚪𔗢⚪🞋⚪𔗢⚪ᙏᗩ✣옷ᗯⓄᴥ✻ᔓᔕ⚪𖣠/𖣠⚪⚭ᗩᙁ✣ᗩᙏ⚪𔗢⚪🞋⚪𔗢⚪ᙏᗩ✣ᙁᗩ⚭⚪𖣠/M.𖣠⚪𐧾⊚ⵈ⛭𖢌𐧼𐧾ⵔ∶⸭❋ⵔⵔ𐧾❋❋ⵔ❋·𐧾❋❋ⵈ𐧾❋ⵔ𐧾❋∶ⵔⵔⵔ·𐧾ⵔ∶𐧾ⵔ𐧾𐧾··𐧼❋❋⠿𐧼ⵔⵈⵔ⁘⸭𐧾𐧾❋⸭∶∶ⵔ⠿ⵔ⁘◌⁘❋⚇·⚪𔗢⚪🞋⚪𔗢⚪·⚇❋⁘◌⁘ⵔ⠿ⵔ∶∶⸭❋𐧾𐧾⸭⁘ⵔⵈⵔ𐧼⠿❋❋𐧼··𐧾𐧾ⵔ𐧾∶ⵔ𐧾·ⵔⵔⵔ∶❋𐧾ⵔ❋𐧾ⵈ❋❋𐧾·❋ⵔ❋❋𐧾ⵔⵔ❋⸭∶ⵔ𐧾𐧼𖢌⛭ⵈ⊚𐧾⚪𖣠.M

@@ -1,16 +0,0 @@
-%pkg install -forge symbolic%
-%pkg load symbolic%
-%tic%
-digits(2^16);
-%toc%
-
-tic
-vpa(1)...
-/...
-vpa(84.406022589954030768899117092091000289089388918088900852079)...
-*...
-vpa(3)...
-^...
-vpa(9)
-toc
-%clc%

𖣠⚪∣❁∣ᙁᑐᑕ∣옷⚪𔗢⚪🞋⚪𔗢⚪옷∣ᑐᑕᙁ∣❁∣⚪𖣠/𖣠⚪ᕤᕦИNꖴ✤ᑎߦᙏⓄᑐᑕ⚪𔗢⚪🞋⚪𔗢⚪ᑐᑕⓄᙏߦᑎ✤ꖴИNᕤᕦ⚪𖣠/𖣠⚪ᗱᗴᴥᗩᗯ✤ꗳⓄᔓᔕ⚪𔗢⚪🞋⚪𔗢⚪ᔓᔕⓄꗳ✤ᗯᗩᴥᗱᗴ⚪𖣠/𖣠⚪ᙏᗩᴥꗳᙁⓄᗯ⚪𔗢⚪🞋⚪𔗢⚪ᗯⓄᙁꗳᴥᗩᙏ⚪𖣠/𖣠⚪ᗩᑐᑕꖴ✤ᗩᙏᗱᗴ옷✤ᗩᙏ⚪𔗢⚪🞋⚪𔗢⚪ᙏᗩ✤옷ᗱᗴᙏᗩ✤ꖴᑐᑕᗩ⚪𖣠/ᗺИ.𖣠⚪✣ᔓᔕᗱᗴ✣𖣓ᗱᗴᑐᑕИNᗩᙏᴥⓄꗳᴥᗱᗴߦ⚪𔗢⚪🞋⚪𔗢⚪ߦᗱᗴᴥꗳⓄᴥᙏᗩИNᑐᑕᗱᗴ𖣓✣ᗱᗴᔓᔕ✣⚪𖣠.NB

@@ -1,196 +0,0 @@
-(* 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[      7029,        188]
-NotebookOptionsPosition[      6025,        162]
-NotebookOutlinePosition[      6855,        186]
-CellTagsIndexPosition[      6812,        183]
-WindowFrame->Normal*)
-
-(* Beginning of Notebook Content *)
-Notebook[{
-
-Cell[CellGroupData[{
-Cell[BoxData[{
- RowBox[{
-  RowBox[{"\:041f", "=", 
-   RowBox[{"2", "^", "16"}]}], ";"}], "\[IndentingNewLine]", 
- RowBox[{
-  RowBox[{
-   RowBox[{"ToString", "[", "\[IndentingNewLine]", 
-    RowBox[{"N", "[", "\[IndentingNewLine]", 
-     RowBox[{
-      RowBox[{
-       RowBox[{
-        RowBox[{"SetPrecision", "[", 
-         RowBox[{"1", ",", "\:041f"}], "]"}], "\[IndentingNewLine]", "/", 
-        "\[IndentingNewLine]", 
-        RowBox[{"SetPrecision", "[", 
-         RowBox[{
-         "84.406022589954030768899117092091000289089388918088900852079", ",", 
-          "\:041f"}], "]"}]}], "\[IndentingNewLine]", "*", 
-       "\[IndentingNewLine]", 
-       RowBox[{
-        RowBox[{"SetPrecision", "[", 
-         RowBox[{"3", ",", "\:041f"}], "]"}], "\[IndentingNewLine]", "^", 
-        "\[IndentingNewLine]", 
-        RowBox[{"SetPrecision", "[", 
-         RowBox[{"9", ",", "\:041f"}], "]"}]}]}], "\[IndentingNewLine]", ",", 
-      "\:041f"}], "]"}], "\[IndentingNewLine]", "]"}], ";"}], "//", 
-  "AbsoluteTiming"}]}], "Input",
- FontFamily->"Go Noto Africa Middle East",
- FontSize->10,
- FontWeight->"Normal",
- CellLabel->
-  "8/20/24 21:44:54 \
-In[27]:=",ExpressionUUID->"f9e3589f-b2ad-4a44-aaaf-5122c0bdc6f2"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{"0.1893448848219809`", ",", "Null"}], "}"}]], "Output",
- CellLabel->
-  "8/20/24 21:44:54 \
-Out[28]=",ExpressionUUID->"2abd5667-4549-4c0b-8264-7c23f5304048"]
-}, Open  ]],
-
-Cell[BoxData[
- RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
-  RowBox[{
-   RowBox[{
-    RowBox[{"\:041f", "=", 
-     RowBox[{"2", "^", "\:041f\:041f"}]}], ";", "\n", "\[IndentingNewLine]", 
-    RowBox[{
-    "\|0168e0\:26aa\:15e9\:2723\:15e9\:2180\:26aa\|0145e2\:26aa\|01f78b\:26aa\
-\|0145e2\:26aa\:2180\:15e9\:2723\:15e9\:26aa\|0168e0", "=", 
-     RowBox[{"{", "}"}]}], ";", "\n", 
-    RowBox[{"Dynamic", "[", "\[IndentingNewLine]", 
-     RowBox[{
-      RowBox[{"Module", "[", "\[IndentingNewLine]", 
-       RowBox[{
-        RowBox[{"{", "\:15f1\:15f4", "}"}], "\[IndentingNewLine]", ",", 
-        "\[IndentingNewLine]", 
-        RowBox[{
-         RowBox[{"\:15f1\:15f4", "=", 
-          RowBox[{
-           RowBox[{"AbsoluteTiming", "[", "\[IndentingNewLine]", 
-            RowBox[{"ToString", "[", 
-             RowBox[{"N", "[", 
-              RowBox[{
-               RowBox[{
-                RowBox[{
-                 RowBox[{"SetPrecision", "[", 
-                  RowBox[{"1", ",", "\:041f"}], "]"}], "/", 
-                 RowBox[{"SetPrecision", "[", 
-                  RowBox[{
-                  "84.40602258995403076889911709209100028908938891808890085207\
-9", ",", "\:041f"}], "]"}]}], "*", 
-                RowBox[{
-                 RowBox[{"SetPrecision", "[", 
-                  RowBox[{"3", ",", "\:041f"}], "]"}], "^", 
-                 RowBox[{"SetPrecision", "[", 
-                  RowBox[{"9", ",", "\:041f"}], "]"}]}]}], ",", "\:041f"}], 
-              "]"}], "]"}], "\[IndentingNewLine]", "]"}], 
-           "\[IndentingNewLine]", "[", 
-           RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
-         "\[IndentingNewLine]", 
-         RowBox[{"AppendTo", "[", 
-          RowBox[{
-          "\|0168e0\:26aa\:15e9\:2723\:15e9\:2180\:26aa\|0145e2\:26aa\|01f78b\
-\:26aa\|0145e2\:26aa\:2180\:15e9\:2723\:15e9\:26aa\|0168e0", ",", 
-           "\:15f1\:15f4"}], "]"}], ";", "\[IndentingNewLine]", 
-         "\[IndentingNewLine]", 
-         RowBox[{"ListLinePlot", "[", 
-          RowBox[{
-          "\|0168e0\:26aa\:15e9\:2723\:15e9\:2180\:26aa\|0145e2\:26aa\|01f78b\
-\:26aa\|0145e2\:26aa\:2180\:15e9\:2723\:15e9\:26aa\|0168e0", ",", 
-           RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
-           RowBox[{"AxesLabel", "\[Rule]", 
-            RowBox[{"{", 
-             RowBox[{"\"\<\:2d59\>\"", ",", "\"\<\:2723\>\""}], "}"}]}], ",", 
-           RowBox[{"PlotStyle", "\[Rule]", 
-            RowBox[{"{", 
-             RowBox[{"Thin", ",", 
-              RowBox[{"RGBColor", "[", 
-               RowBox[{"0", ",", ".958", ",", ".487"}], "]"}]}], "}"}]}], ",", 
-           RowBox[{"ImageSize", "\[Rule]", 
-            RowBox[{"{", 
-             RowBox[{"256", ",", "256"}], "}"}]}]}], "]"}]}]}], "]"}], ",", 
-      RowBox[{"PlotRangePadding", "\[Rule]", 
-       RowBox[{"0", "/", 
-        RowBox[{"3", "^", "3"}]}]}], ",", 
-      RowBox[{"TrackedSymbols", "\[RuleDelayed]", 
-       RowBox[{"{", "}"}]}], ",", 
-      RowBox[{"UpdateInterval", "\[Rule]", 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{
-          RowBox[{"SetPrecision", "[", 
-           RowBox[{"1", ",", "\:041f"}], "]"}], "/", 
-          RowBox[{"SetPrecision", "[", 
-           RowBox[{
-           "84.406022589954030768899117092091000289089388918088900852079", 
-            ",", "\:041f"}], "]"}]}], "/", 
-         RowBox[{
-          RowBox[{"SetPrecision", "[", 
-           RowBox[{"3", ",", "\:041f"}], "]"}], "^", 
-          RowBox[{
-           RowBox[{"SetPrecision", "[", 
-            RowBox[{"3", ",", "\:041f"}], "]"}], "^", 
-           RowBox[{"SetPrecision", "[", 
-            RowBox[{"3", ",", "\:041f"}], "]"}]}]}]}], ")"}]}]}], "]"}]}], 
-   "\n", ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"{", 
-      RowBox[{"\:041f\:041f", ",", "4"}], "}"}], ",", "0", ",", "16"}], 
-    "}"}]}], "]"}]], "Input",
- FontFamily->"Go Noto Africa Middle East",
- FontSize->10,
- FontWeight->"Normal",
- CellLabel->
-  "8/20/24 21:45:51 \
-In[30]:=",ExpressionUUID->"24b07bc4-13f7-48cc-af70-c76571c32ace"]
-},
-WindowSize->{1680, 984},
-WindowMargins->{{-4, Automatic}, {Automatic, -4}},
-FrontEndVersion->"12.2 for Microsoft Windows (64-bit) (December 12, 2020)",
-StyleDefinitions->Notebook[{
-   Cell[
-    StyleData[All], TextAlignment -> Center, FontFamily -> 
-    "Go Noto Africa Middle East", FontSize -> 12, 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->"7d27b27d-67ec-4151-bcab-15d690106f06"
-]
-(* End of Notebook Content *)
-
-(* Internal cache information *)
-(*CellTagsOutline
-CellTagsIndex->{}
-*)
-(*CellTagsIndex
-CellTagsIndex->{}
-*)
-(*NotebookFileOutline
-Notebook[{
-Cell[CellGroupData[{
-Cell[580, 22, 1209, 32, 252, "Input",ExpressionUUID->"f9e3589f-b2ad-4a44-aaaf-5122c0bdc6f2"],
-Cell[1792, 56, 195, 5, 45, "Output",ExpressionUUID->"2abd5667-4549-4c0b-8264-7c23f5304048"]
-}, Open  ]],
-Cell[2002, 64, 4019, 96, 366, "Input",ExpressionUUID->"24b07bc4-13f7-48cc-af70-c76571c32ace"]
-}
-]
-*)
-