197 lines
7.2 KiB
Mathematica
197 lines
7.2 KiB
Mathematica
(* 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"]
|
|
}
|
|
]
|
|
*)
|
|
|