ᗺИ.𖣠⚪✣ᔓᔕᗱᗴ✣𖣓ᗱᗴᑐᑕИNᗩᙏᴥⓄꗳᴥᗱᗴߦ⚪𔗢⚪🞋⚪𔗢⚪ߦᗱᗴᴥꗳⓄᴥᙏᗩИNᑐᑕᗱᗴ𖣓✣ᗱᗴᔓᔕ✣⚪𖣠.NB

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

@@ -0,0 +1,196 @@
+(* 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"]
+}
+]
+*)
+