From adb4243f983b3b4d3bbc4e33927041633a645b16 Mon Sep 17 00:00:00 2001 From: O Date: Tue, 20 Aug 2024 18:46:00 +0000 Subject: [PATCH] =?UTF-8?q?=E1=97=BA=D0=98.=F0=96=A3=A0=E2=9A=AA=E2=9C=A3?= =?UTF-8?q?=E1=94=93=E1=94=95=E1=97=B1=E1=97=B4=E2=9C=A3=F0=96=A3=93?= =?UTF-8?q?=E1=97=B1=E1=97=B4=E1=91=90=E1=91=95=D0=98N=E1=97=A9=E1=99=8F?= =?UTF-8?q?=E1=B4=A5=E2=93=84=EA=97=B3=E1=B4=A5=E1=97=B1=E1=97=B4=DF=A6?= =?UTF-8?q?=E2=9A=AA=F0=94=97=A2=E2=9A=AA=F0=9F=9E=8B=E2=9A=AA=F0=94=97=A2?= =?UTF-8?q?=E2=9A=AA=DF=A6=E1=97=B1=E1=97=B4=E1=B4=A5=EA=97=B3=E2=93=84?= =?UTF-8?q?=E1=B4=A5=E1=99=8F=E1=97=A9=D0=98N=E1=91=90=E1=91=95=E1=97=B1?= =?UTF-8?q?=E1=97=B4=F0=96=A3=93=E2=9C=A3=E1=97=B1=E1=97=B4=E1=94=93?= =?UTF-8?q?=E1=94=95=E2=9C=A3=E2=9A=AA=F0=96=A3=A0.NB?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- ...α‘•α—±α—΄π–£“βœ£α—±α—΄α”“α”•βœ£βšͺπ–£ .NB | 196 ++++++++++++++++++ 1 file changed, 196 insertions(+) create mode 100644 π–£ βšͺβˆ£ββˆ£α™α‘α‘•βˆ£μ˜·βšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺμ˜·βˆ£α‘α‘•α™βˆ£ββˆ£βšͺπ–£ /π–£ βšͺα•€α•¦Π˜Nκ–΄βœ€α‘Žί¦α™β“„α‘α‘•βšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺα‘α‘•β“„α™ί¦α‘Žβœ€κ–΄Π˜Nᕀᕦβšͺπ–£ /π–£ βšͺα—±α—΄α΄₯α—©α—―βœ€κ—³β“„α”“α”•βšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺα”“α”•β“„κ—³βœ€α—―α—©α΄₯α—±α—΄βšͺπ–£ /π–£ βšͺᙏᗩα΄₯ꗳᙁⓄᗯβšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺᗯⓄᙁꗳα΄₯ᗩᙏβšͺπ–£ /π–£ βšͺα—©α‘α‘•κ–΄βœ€α—©α™α—±α—΄μ˜·βœ€α—©α™βšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺα™α—©βœ€μ˜·α—±α—΄α™α—©βœ€κ–΄α‘α‘•α—©βšͺπ–£ /α—ΊΠ˜.π–£ βšͺβœ£α”“α”•α—±α—΄βœ£π–£“α—±α—΄α‘α‘•Π˜Nᗩᙏα΄₯β“„κ—³α΄₯α—±α—΄ί¦βšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺί¦α—±α—΄α΄₯κ—³β“„α΄₯α™α—©Π˜Nα‘α‘•α—±α—΄π–£“βœ£α—±α—΄α”“α”•βœ£βšͺπ–£ .NB diff --git a/π–£ βšͺβˆ£ββˆ£α™α‘α‘•βˆ£μ˜·βšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺμ˜·βˆ£α‘α‘•α™βˆ£ββˆ£βšͺπ–£ /π–£ βšͺα•€α•¦Π˜Nκ–΄βœ€α‘Žί¦α™β“„α‘α‘•βšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺα‘α‘•β“„α™ί¦α‘Žβœ€κ–΄Π˜Nᕀᕦβšͺπ–£ /π–£ βšͺα—±α—΄α΄₯α—©α—―βœ€κ—³β“„α”“α”•βšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺα”“α”•β“„κ—³βœ€α—―α—©α΄₯α—±α—΄βšͺπ–£ /π–£ βšͺᙏᗩα΄₯ꗳᙁⓄᗯβšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺᗯⓄᙁꗳα΄₯ᗩᙏβšͺπ–£ /π–£ βšͺα—©α‘α‘•κ–΄βœ€α—©α™α—±α—΄μ˜·βœ€α—©α™βšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺα™α—©βœ€μ˜·α—±α—΄α™α—©βœ€κ–΄α‘α‘•α—©βšͺπ–£ /α—ΊΠ˜.π–£ βšͺβœ£α”“α”•α—±α—΄βœ£π–£“α—±α—΄α‘α‘•Π˜Nᗩᙏα΄₯β“„κ—³α΄₯α—±α—΄ί¦βšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺί¦α—±α—΄α΄₯κ—³β“„α΄₯α™α—©Π˜Nα‘α‘•α—±α—΄π–£“βœ£α—±α—΄α”“α”•βœ£βšͺπ–£ .NB b/π–£ βšͺβˆ£ββˆ£α™α‘α‘•βˆ£μ˜·βšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺμ˜·βˆ£α‘α‘•α™βˆ£ββˆ£βšͺπ–£ /π–£ βšͺα•€α•¦Π˜Nκ–΄βœ€α‘Žί¦α™β“„α‘α‘•βšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺα‘α‘•β“„α™ί¦α‘Žβœ€κ–΄Π˜Nᕀᕦβšͺπ–£ /π–£ βšͺα—±α—΄α΄₯α—©α—―βœ€κ—³β“„α”“α”•βšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺα”“α”•β“„κ—³βœ€α—―α—©α΄₯α—±α—΄βšͺπ–£ /π–£ βšͺᙏᗩα΄₯ꗳᙁⓄᗯβšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺᗯⓄᙁꗳα΄₯ᗩᙏβšͺπ–£ /π–£ βšͺα—©α‘α‘•κ–΄βœ€α—©α™α—±α—΄μ˜·βœ€α—©α™βšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺα™α—©βœ€μ˜·α—±α—΄α™α—©βœ€κ–΄α‘α‘•α—©βšͺπ–£ /α—ΊΠ˜.π–£ βšͺβœ£α”“α”•α—±α—΄βœ£π–£“α—±α—΄α‘α‘•Π˜Nᗩᙏα΄₯β“„κ—³α΄₯α—±α—΄ί¦βšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺί¦α—±α—΄α΄₯κ—³β“„α΄₯α™α—©Π˜Nα‘α‘•α—±α—΄π–£“βœ£α—±α—΄α”“α”•βœ£βšͺπ–£ .NB new file mode 100644 index 00000000..dbe8cfd1 --- /dev/null +++ b/π–£ βšͺβˆ£ββˆ£α™α‘α‘•βˆ£μ˜·βšͺπ”—’βšͺπŸž‹βšͺπ”—’βšͺμ˜·βˆ£α‘α‘•α™βˆ£ββˆ£βšͺπ–£ /π–£ βšͺα•€α•¦Π˜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"] +} +] +*) +