ᗺИ.𖣠⚪✣ᔓᔕᗱᗴ✣𖣓ᗱᗴᑐᑕИNᗩᙏᴥⓄꗳᴥᗱᗴߦ⚪𔗢⚪🞋⚪𔗢⚪ߦᗱᗴᴥꗳⓄᴥᙏᗩИNᑐᑕᗱᗴ𖣓✣ᗱᗴᔓᔕ✣⚪𖣠.NB
This commit is contained in:
O
parent
a00916e556
commit
adb4243f98
|
|
@ -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"]
|
||||||
|
}
|
||||||
|
]
|
||||||
|
*)
|
||||||
|
|
||||||
Loading…
Reference in New Issue