(* 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"]
}
]
*)