OOOO/O
OOOO/O
0
0
Fork 0
mirror of http://CODE.RHODECODE.COM/u/O/O/O synced 2024-11-21 21:55:14 -05:00
Code

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

Browse Source
This commit is contained in:
O 2024-08-20 18:46:00 +00:00
parent a00916e556
commit adb4243f98
1 changed files with 196 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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