O
/
0
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
                                                                              ◦⸰◦○◦⸰◦◯◦⸰◦○◦⸰◦                     ⚪                     ◦⸰◦○◦⸰◦◯◦⸰◦○◦⸰◦                                                                              
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
3321 Commits
1 Branch
0 Tags
5.0 GiB
 
 
 
 
 
 
Tree: d381c2c3ff
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'd381c2c3ff'
${ noResults }
0/⚪∣❁∣⚪✤⚪✻⚪ЭЄ⚪ᗩ⚪ߦ⚪റ⚪◌⚪◌⚪◌⚪◌⚪◌.../⚪ИN⚪Ⓞ⚪ꖴ⚪✤⚪ᑐᑕ⚪ИN⚪ᑎ⚪ꗳ⚪◯⚪ᔓᔕ⚪ᑎ⚪.../⚪ᗱᗴ⚪ᴥ⚪ᑎ⚪✤⚪ᗩ⚪ᗯ⚪ᴥ⚪ᑎ⚪ᑐᑕ⚪◌⚪◌⚪◌⚪.../⚪ᔓᔕ⚪ᴥ⚪ᗱᗴ⚪ИN⚪ᴥ⚪Ⓞ⚪ᑐᑕ⚪◯⚪✤⚪옷⚪ᕤᕦ.../BИ..⚪✤⚪Ⓞ⚪ᙁ⚪ߦ⚪◯⚪ᔓᔕ⚪ᴥ⚪ᗱᗴ⚪ИN⚪ᴥ...

1887 lines
95 KiB
Raw Blame History

(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 13.3' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 96920, 1879]
NotebookOptionsPosition[ 96016, 1855]
NotebookOutlinePosition[ 96504, 1873]
CellTagsIndexPosition[ 96461, 1870]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{
"\:26aa\:15e9\:26aa\:0418N\:26aa\:4eba\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\
\:25ef\:26aa\:15f1\:15f4\:26aa\:15dd\:26aa\:25ef\:26aa\:1513\:1515\:26aa\:15e9\
\:26aa\:a5b4\:26aa\:1d25\:26aa\:15e9\:26aa\:25ef\:26aa\:0418N\:26aa\:15e9\
\:26aa\:144e\:26aa\:148d\:1490\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:148d\:1490\:26aa\:144e\:26aa\:15e9\:26aa\:0418\
N\:26aa\:25ef\:26aa\:15e9\:26aa\:1d25\:26aa\:a5b4\:26aa\:15e9\:26aa\:1513\
\:1515\:26aa\:25ef\:26aa\:15dd\:26aa\:15f1\:15f4\:26aa\:25ef\:26aa\:1d25\:26aa\
\:15f1\:15f4\:26aa\:4eba\:26aa\:0418N\:26aa\:15e9\:26aa", "[", "0", "]"}],
" ", "=", " ", "1"}], ";"}], "\n",
RowBox[{
RowBox[{
RowBox[{
"\:26aa\:15e9\:26aa\:0418N\:26aa\:4eba\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\
\:25ef\:26aa\:15f1\:15f4\:26aa\:15dd\:26aa\:25ef\:26aa\:1513\:1515\:26aa\:15e9\
\:26aa\:a5b4\:26aa\:1d25\:26aa\:15e9\:26aa\:25ef\:26aa\:0418N\:26aa\:15e9\
\:26aa\:144e\:26aa\:148d\:1490\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:148d\:1490\:26aa\:144e\:26aa\:15e9\:26aa\:0418\
N\:26aa\:25ef\:26aa\:15e9\:26aa\:1d25\:26aa\:a5b4\:26aa\:15e9\:26aa\:1513\
\:1515\:26aa\:25ef\:26aa\:15dd\:26aa\:15f1\:15f4\:26aa\:25ef\:26aa\:1d25\:26aa\
\:15f1\:15f4\:26aa\:4eba\:26aa\:0418N\:26aa\:15e9\:26aa", "[",
RowBox[{
"\:26aa\:0418N\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:0418N\:26aa_Integer", "?", "Positive"}], "]"}], " ", ":=",
" ",
RowBox[{
RowBox[{
"\:26aa\:15e9\:26aa\:0418N\:26aa\:4eba\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\
\:25ef\:26aa\:15f1\:15f4\:26aa\:15dd\:26aa\:25ef\:26aa\:1513\:1515\:26aa\:15e9\
\:26aa\:a5b4\:26aa\:1d25\:26aa\:15e9\:26aa\:25ef\:26aa\:0418N\:26aa\:15e9\
\:26aa\:144e\:26aa\:148d\:1490\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:148d\:1490\:26aa\:144e\:26aa\:15e9\:26aa\:0418\
N\:26aa\:25ef\:26aa\:15e9\:26aa\:1d25\:26aa\:a5b4\:26aa\:15e9\:26aa\:1513\
\:1515\:26aa\:25ef\:26aa\:15dd\:26aa\:15f1\:15f4\:26aa\:25ef\:26aa\:1d25\:26aa\
\:15f1\:15f4\:26aa\:4eba\:26aa\:0418N\:26aa\:15e9\:26aa", "[",
"\:26aa\:0418N\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:0418N\:26aa", "]"}], " ", "=", " ",
RowBox[{
RowBox[{"Sum", "[",
RowBox[{
RowBox[{
RowBox[{"2", "^",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
"\:26aa\:273b\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:273b\:26aa", " ",
RowBox[{"(",
RowBox[{
"\:26aa\:273b\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:273b\:26aa", " ", "-", " ", "1"}], ")"}]}],
" ", "-", " ",
RowBox[{
"\:26aa\:0418N\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:0418N\:26aa", " ",
RowBox[{"(",
RowBox[{
"\:26aa\:0418N\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:0418N\:26aa", " ", "-", " ", "1"}], ")"}]}]}],
")"}], "/", "2"}], ")"}]}], " ",
RowBox[{
RowBox[{
"\:26aa\:15e9\:26aa\:0418N\:26aa\:4eba\:26aa\:15f1\:15f4\:26aa\:1d25\
\:26aa\:25ef\:26aa\:15f1\:15f4\:26aa\:15dd\:26aa\:25ef\:26aa\:1513\:1515\:26aa\
\:15e9\:26aa\:a5b4\:26aa\:1d25\:26aa\:15e9\:26aa\:25ef\:26aa\:0418N\:26aa\
\:15e9\:26aa\:144e\:26aa\:148d\:1490\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:148d\:1490\:26aa\:144e\:26aa\:15e9\:26aa\
\:0418N\:26aa\:25ef\:26aa\:15e9\:26aa\:1d25\:26aa\:a5b4\:26aa\:15e9\:26aa\
\:1513\:1515\:26aa\:25ef\:26aa\:15dd\:26aa\:15f1\:15f4\:26aa\:25ef\:26aa\:1d25\
\:26aa\:15f1\:15f4\:26aa\:4eba\:26aa\:0418N\:26aa\:15e9\:26aa", "[",
"\:26aa\:273b\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:273b\:26aa", "]"}], "/",
RowBox[{
RowBox[{"(",
RowBox[{
"\:26aa\:0418N\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:0418N\:26aa", " ", "-", " ",
"\:26aa\:273b\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:273b\:26aa", " ", "+", " ", "1"}], ")"}],
"!"}]}]}], ",", " ",
RowBox[{"{",
RowBox[{
"\:26aa\:273b\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:273b\:26aa", ",", " ", "0", ",", " ",
RowBox[{
"\:26aa\:0418N\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:0418N\:26aa", " ", "-", " ", "1"}]}], "}"}]}],
"]"}], "/",
RowBox[{"(",
RowBox[{
RowBox[{
"2", "^",
"\:26aa\:0418N\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:0418N\:26aa"}], " ", "-", " ", "1"}], ")"}]}]}]}],
";"}], "\n",
RowBox[{
RowBox[{
RowBox[{
"\:26aa\:0418N\:26aa\:24c4\:26aa\:a5b4\:26aa\:2724\:26aa\:1450\:1455\:26aa\
\:0418N\:26aa\:144e\:26aa\:a5f3\:26aa\:25ef\:26aa\:1513\:1515\:26aa\:144e\
\:26aa\:a5b4\:26aa\:26ad\:26aa\:15e9\:26aa\:a5f3\:26aa\:25ef\:26aa\:a5b4\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5b4\
\:26aa\:25ef\:26aa\:a5f3\:26aa\:15e9\:26aa\:26ad\:26aa\:a5b4\:26aa\:144e\:26aa\
\:1513\:1515\:26aa\:25ef\:26aa\:a5f3\:26aa\:144e\:26aa\:0418N\:26aa\:1450\
\:1455\:26aa\:2724\:26aa\:a5b4\:26aa\:24c4\:26aa\:0418N\:26aa", "[",
"\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:a564\:26aa_", "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
"\:26aa\:0418N\:26aa\:24c4\:26aa\:a5b4\:26aa\:1513\:1515\:26aa\:a5b4\
\:26aa\:1450\:1455\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:07e6\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:07e6\:26aa\:1d25\
\:26aa\:15f1\:15f4\:26aa\:1450\:1455\:26aa\:a5b4\:26aa\:1513\:1515\:26aa\:a5b4\
\:26aa\:24c4\:26aa\:0418N\:26aa", "=",
RowBox[{
"Precision", "[",
"\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:a564\:26aa", "]"}]}], ",",
"\:26aa\:0418N\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:0418N\:26aa", ",",
"\:26aa\:07e6\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:07e6\:26aa", ",",
"\:26aa\[Currency]\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\[Currency]\:26aa", ",",
"\:26aa\:1513\:1515\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:1513\:1515\:26aa", ",",
"\:26aa\:15f1\:15f4\:26aa\:1450\:1455\:26aa\:0418N\:26aa\:15e9\:26aa\
\:1d25\:26aa\:15f1\:15f4\:26aa\:1641\:26aa\:24c4\:26aa\:2724\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:24c4\
\:26aa\:1641\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:15e9\:26aa\:0418N\:26aa\
\:1450\:1455\:26aa\:15f1\:15f4\:26aa", ",",
"\:26aa\:15ef\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:15ef\:26aa", ",",
"\:26aa\:4eba\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:4eba\:26aa", ",",
"\:26aa\:2d35\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:2d35\:26aa"}], "}"}], ",",
RowBox[{
RowBox[{"If", "[",
RowBox[{
RowBox[{
"\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:a564\:26aa", "<", "0"}], ",",
RowBox[{"Return", "[",
RowBox[{"0", ",", "Module"}], "]"}]}], "]"}], ";",
RowBox[{
"\:26aa\:15f1\:15f4\:26aa\:1450\:1455\:26aa\:0418N\:26aa\:15e9\:26aa\
\:1d25\:26aa\:15f1\:15f4\:26aa\:1641\:26aa\:24c4\:26aa\:2724\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:24c4\
\:26aa\:1641\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:15e9\:26aa\:0418N\:26aa\
\:1450\:1455\:26aa\:15f1\:15f4\:26aa", "=",
RowBox[{"10", "^",
RowBox[{"(",
RowBox[{
"-", "\:26aa\:0418N\:26aa\:24c4\:26aa\:a5b4\:26aa\:1513\:1515\:26aa\
\:a5b4\:26aa\:1450\:1455\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:07e6\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:07e6\:26aa\
\:1d25\:26aa\:15f1\:15f4\:26aa\:1450\:1455\:26aa\:a5b4\:26aa\:1513\:1515\:26aa\
\:a5b4\:26aa\:24c4\:26aa\:0418N\:26aa"}], ")"}]}]}], ";", " ",
RowBox[{
"\:26aa\:2d35\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:2d35\:26aa", "=",
RowBox[{"SetPrecision", "[",
RowBox[{
"\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:a564\:26aa", ",", "Infinity"}], "]"}]}], ";", " ",
RowBox[{
"\:26aa\:1513\:1515\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:1513\:1515\:26aa", "=", "1"}], ";", " ",
RowBox[{
"\:26aa\:4eba\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:4eba\:26aa", "=", "0"}], ";", " ",
RowBox[{
"\:26aa\:2d35\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:2d35\:26aa", "=",
RowBox[{"If", "[",
RowBox[{
RowBox[{
"0", "\[LessEqual]",
"\:26aa\:2d35\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:2d35\:26aa", "\[LessEqual]", "2"}], ",",
RowBox[{"1", "-",
RowBox[{"Abs", "[",
RowBox[{
"1", "-",
"\:26aa\:2d35\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:2d35\:26aa"}], "]"}]}], ",",
RowBox[{
RowBox[{
"\:26aa\[Currency]\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\[Currency]\:26aa", "=",
RowBox[{"Quotient", "[",
RowBox[{
"\:26aa\:2d35\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:2d35\:26aa", ",", "2"}], "]"}]}], ";", " ",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{
"ThueMorse", "[",
"\:26aa\[Currency]\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\[Currency]\:26aa", "]"}], "==", "1"}],
",",
RowBox[{
"\:26aa\:1513\:1515\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:1513\:1515\:26aa", "=",
RowBox[{"-", "1"}]}]}], "]"}], ";", " ",
RowBox[{"1", "-",
RowBox[{"Abs", "[",
RowBox[{
"1", "-",
"\:26aa\:2d35\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:2d35\:26aa", "+",
RowBox[{
"2", " ",
"\:26aa\[Currency]\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\[Currency]\:26aa"}]}], "]"}]}]}]}],
"]"}]}], ";", " ",
RowBox[{"While", "[",
RowBox[{
RowBox[{
"\:26aa\:2d35\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:2d35\:26aa", ">", "0"}], ",",
RowBox[{
RowBox[{
"\:26aa\:0418N\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:0418N\:26aa", "=",
RowBox[{"-",
RowBox[{"Floor", "[",
RowBox[{"RealExponent", "[",
RowBox[{
"\:26aa\:2d35\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:2d35\:26aa", ",", "2"}], "]"}], "]"}]}]}],
";", " ",
RowBox[{
"\:26aa\:07e6\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:07e6\:26aa", "=",
RowBox[{
"2", "^",
"\:26aa\:0418N\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:0418N\:26aa"}]}], ";", " ",
RowBox[{
"\:26aa\:2d35\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:2d35\:26aa", "-=",
RowBox[{
"1", "/",
"\:26aa\:07e6\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:07e6\:26aa"}]}], ";", " ",
RowBox[{
"\:26aa\:15ef\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:15ef\:26aa", "=", "1"}], ";", "\n",
RowBox[{"Do", "[",
RowBox[{
RowBox[{
RowBox[{
"\:26aa\:15ef\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:15ef\:26aa", "=",
RowBox[{
RowBox[{
"\:26aa\:15e9\:26aa\:0418N\:26aa\:4eba\:26aa\:15f1\:15f4\:26aa\
\:1d25\:26aa\:25ef\:26aa\:15f1\:15f4\:26aa\:15dd\:26aa\:25ef\:26aa\:1513\:1515\
\:26aa\:15e9\:26aa\:a5b4\:26aa\:1d25\:26aa\:15e9\:26aa\:25ef\:26aa\:0418N\
\:26aa\:15e9\:26aa\:144e\:26aa\:148d\:1490\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:148d\:1490\:26aa\:144e\:26aa\:15e9\
\:26aa\:0418N\:26aa\:25ef\:26aa\:15e9\:26aa\:1d25\:26aa\:a5b4\:26aa\:15e9\
\:26aa\:1513\:1515\:26aa\:25ef\:26aa\:15dd\:26aa\:15f1\:15f4\:26aa\:25ef\:26aa\
\:1d25\:26aa\:15f1\:15f4\:26aa\:4eba\:26aa\:0418N\:26aa\:15e9\:26aa", "[",
"\:26aa\:164f\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:164f\:26aa", "]"}], "+",
RowBox[{
"\:26aa\:07e6\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:07e6\:26aa", " ",
"\:26aa\:2d35\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:2d35\:26aa", " ",
RowBox[{
"\:26aa\:15ef\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:15ef\:26aa", "/",
RowBox[{"(",
RowBox[{
"\:26aa\:0418N\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:0418N\:26aa", "-",
"\:26aa\:164f\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:164f\:26aa", "+", "1"}], ")"}]}]}]}]}],
";",
RowBox[{
"\:26aa\:07e6\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:07e6\:26aa", "/=", "2"}]}], ",",
RowBox[{"{",
RowBox[{
"\:26aa\:164f\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:164f\:26aa", ",",
"\:26aa\:0418N\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:0418N\:26aa"}], "}"}]}], "]"}], ";",
RowBox[{
"\:26aa\:4eba\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:4eba\:26aa", "=",
RowBox[{
"\:26aa\:15ef\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:15ef\:26aa", "-",
"\:26aa\:4eba\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:4eba\:26aa"}]}], ";", "\n",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{
"Abs", "[",
"\:26aa\:15ef\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:15ef\:26aa", "]"}], "<",
RowBox[{
RowBox[{
"Abs", "[",
"\:26aa\:4eba\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:4eba\:26aa", "]"}], " ",
"\:26aa\:15f1\:15f4\:26aa\:1450\:1455\:26aa\:0418N\:26aa\:15e9\
\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:1641\:26aa\:24c4\:26aa\:2724\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\
\:24c4\:26aa\:1641\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:15e9\:26aa\:0418N\
\:26aa\:1450\:1455\:26aa\:15f1\:15f4\:26aa"}]}], ",",
RowBox[{"Break", "[", "]"}]}], "]"}]}]}], "]"}], ";",
RowBox[{"SetPrecision", "[",
RowBox[{
RowBox[{
"\:26aa\:1513\:1515\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:1513\:1515\:26aa", " ",
RowBox[{
"Abs", "[",
"\:26aa\:4eba\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:4eba\:26aa", "]"}]}], ",",
"\:26aa\:0418N\:26aa\:24c4\:26aa\:a5b4\:26aa\:1513\:1515\:26aa\:a5b4\
\:26aa\:1450\:1455\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:07e6\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:07e6\:26aa\:1d25\
\:26aa\:15f1\:15f4\:26aa\:1450\:1455\:26aa\:a5b4\:26aa\:1513\:1515\:26aa\:a5b4\
\:26aa\:24c4\:26aa\:0418N\:26aa"}], "]"}]}]}], "]"}]}], ";",
RowBox[{
RowBox[{
"\:26aa\:0418N\:26aa\:24c4\:26aa\:a5b4\:26aa\:2724\:26aa\:1450\:1455\:26aa\
\:0418N\:26aa\:144e\:26aa\:a5f3\:26aa\:25ef\:26aa\:1513\:1515\:26aa\:144e\
\:26aa\:a5b4\:26aa\:26ad\:26aa\:15e9\:26aa\:a5f3\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5f3\:26aa\:15e9\:26aa\:26ad\
\:26aa\:a5b4\:26aa\:144e\:26aa\:1513\:1515\:26aa\:25ef\:26aa\:a5f3\:26aa\:144e\
\:26aa\:0418N\:26aa\:1450\:1455\:26aa\:2724\:26aa\:a5b4\:26aa\:24c4\:26aa\
\:0418N\:26aa", "[", "Infinity", "]"}], " ", "=", " ",
RowBox[{"Interval", "[",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", " ", "1"}], "}"}], "]"}]}], ";"}], "\n",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{
"\:26aa\:0418N\:26aa\:24c4\:26aa\:a5b4\:26aa\:2724\:26aa\:1450\:1455\
\:26aa\:0418N\:26aa\:144e\:26aa\:a5f3\:26aa\:25ef\:26aa\:1513\:1515\:26aa\
\:144e\:26aa\:a5b4\:26aa\:26ad\:26aa\:15e9\:26aa\:a5f3\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5f3\:26aa\:15e9\:26aa\
\:26ad\:26aa\:a5b4\:26aa\:144e\:26aa\:1513\:1515\:26aa\:25ef\:26aa\:a5f3\:26aa\
\:144e\:26aa\:0418N\:26aa\:1450\:1455\:26aa\:2724\:26aa\:a5b4\:26aa\:24c4\
\:26aa\:0418N\:26aa", "[",
RowBox[{
"\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:a564\:26aa_", "?", "NumberQ"}], "]"}], " ", "/;",
" ",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{
"Im", "[",
"\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:a564\:26aa", "]"}], " ", "==", " ", "0"}], ",", " ",
RowBox[{"TrueQ", "[",
RowBox[{
RowBox[{
RowBox[{"Composition", "[",
RowBox[{
RowBox[{
RowBox[{"BitAnd", "[",
RowBox[{"#", ",", " ",
RowBox[{"#", " ", "-", " ", "1"}]}], "]"}], " ", "&"}], ",",
" ", "Denominator"}], "]"}], "[",
"\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:a564\:26aa", "]"}], " ", "==", " ", "0"}], "]"}],
",", " ", "False"}], "]"}]}], " ", ":=", " ",
RowBox[{
"\:26aa\:0418N\:26aa\:24c4\:26aa\:a5b4\:26aa\:2724\:26aa\:1450\:1455\:26aa\
\:0418N\:26aa\:144e\:26aa\:a5f3\:26aa\:25ef\:26aa\:1513\:1515\:26aa\:144e\
\:26aa\:a5b4\:26aa\:26ad\:26aa\:15e9\:26aa\:a5f3\:26aa\:25ef\:26aa\:a5b4\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5b4\
\:26aa\:25ef\:26aa\:a5f3\:26aa\:15e9\:26aa\:26ad\:26aa\:a5b4\:26aa\:144e\:26aa\
\:1513\:1515\:26aa\:25ef\:26aa\:a5f3\:26aa\:144e\:26aa\:0418N\:26aa\:1450\
\:1455\:26aa\:2724\:26aa\:a5b4\:26aa\:24c4\:26aa\:0418N\:26aa", "[",
"\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:a564\:26aa", "]"}]}], ";"}], " "}], "\n",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
"Derivative", "[",
"\:26aa\:0418N\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:0418N\:26aa_Integer", "]"}], "[",
"\:26aa\:0418N\:26aa\:24c4\:26aa\:a5b4\:26aa\:2724\:26aa\:1450\:1455\:26aa\
\:0418N\:26aa\:144e\:26aa\:a5f3\:26aa\:25ef\:26aa\:1513\:1515\:26aa\:144e\
\:26aa\:a5b4\:26aa\:26ad\:26aa\:15e9\:26aa\:a5f3\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5f3\:26aa\:15e9\:26aa\:26ad\
\:26aa\:a5b4\:26aa\:144e\:26aa\:1513\:1515\:26aa\:25ef\:26aa\:a5f3\:26aa\:144e\
\:26aa\:0418N\:26aa\:1450\:1455\:26aa\:2724\:26aa\:a5b4\:26aa\:24c4\:26aa\
\:0418N\:26aa", "]"}], " ", ":=",
RowBox[{
RowBox[{
RowBox[{"2", "^",
RowBox[{"(",
RowBox[{
"\:26aa\:0418N\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:0418N\:26aa", " ",
RowBox[{
RowBox[{"(",
RowBox[{
"\:26aa\:0418N\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:0418N\:26aa", " ", "+", " ", "1"}], ")"}], "/",
"2"}]}], ")"}]}], " ",
RowBox[{
"\:26aa\:0418N\:26aa\:24c4\:26aa\:a5b4\:26aa\:2724\:26aa\:1450\:1455\
\:26aa\:0418N\:26aa\:144e\:26aa\:a5f3\:26aa\:25ef\:26aa\:1513\:1515\:26aa\
\:144e\:26aa\:a5b4\:26aa\:26ad\:26aa\:15e9\:26aa\:a5f3\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5f3\:26aa\:15e9\:26aa\
\:26ad\:26aa\:a5b4\:26aa\:144e\:26aa\:1513\:1515\:26aa\:25ef\:26aa\:a5f3\:26aa\
\:144e\:26aa\:0418N\:26aa\:1450\:1455\:26aa\:2724\:26aa\:a5b4\:26aa\:24c4\
\:26aa\:0418N\:26aa", "[",
RowBox[{
RowBox[{
"2", "^",
"\:26aa\:0418N\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:0418N\:26aa"}], " ", "#"}], "]"}]}], " ", "&"}]}],
";"}], "\n",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"SetAttributes", "[",
RowBox[{
"\:26aa\:0418N\:26aa\:24c4\:26aa\:a5b4\:26aa\:2724\:26aa\:1450\:1455\
\:26aa\:0418N\:26aa\:144e\:26aa\:a5f3\:26aa\:25ef\:26aa\:1513\:1515\:26aa\
\:144e\:26aa\:a5b4\:26aa\:26ad\:26aa\:15e9\:26aa\:a5f3\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5f3\:26aa\:15e9\:26aa\
\:26ad\:26aa\:a5b4\:26aa\:144e\:26aa\:1513\:1515\:26aa\:25ef\:26aa\:a5f3\:26aa\
\:144e\:26aa\:0418N\:26aa\:1450\:1455\:26aa\:2724\:26aa\:a5b4\:26aa\:24c4\
\:26aa\:0418N\:26aa", ",", " ",
RowBox[{"{",
RowBox[{"NumericFunction", ",", " ", "Listable"}], "}"}]}], "]"}],
";"}], "//", "Timing"}], "//", "AbsoluteTiming"}]}], "Input",
CellFrame->0,
CellDingbat->None,
TextAlignment->Center,
FontFamily->"Segoe UI Emoji",
FontSize->11,
FontWeight->"Normal",
CellLabel->
"In[114]:=",ExpressionUUID->"a68001d4-5f1e-4b83-8af8-5ffeaf0911a7"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.000015312106670259907`", ",",
RowBox[{"{",
RowBox[{"0.`", ",", "Null"}], "}"}]}], "}"}]], "Output",
TextAlignment->Center,
FontFamily->"Segoe UI Emoji",
FontSize->11,
FontWeight->"Normal",
CellLabel->
"Out[119]=",ExpressionUUID->"efca1a26-5a19-4975-9913-1c8338156436"]
}, Open ]],
Cell[BoxData[{
RowBox[{"ClearAll", "[",
RowBox[{
"\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:07e6\:26aa\:1641\:26aa\:15f1\:15f4\
\:26aa\:c637\:26aa\:25ef\:26aa\:2724\:26aa\:24c4\:26aa\:1641\:26aa\:07e6\:26aa\
\:25ef\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:144e\:26aa\:2724\:26aa\:15e9\:26aa\
\:15ef\:26aa\:1d25\:26aa\:144e\:26aa\:1450\:1455\:26aa\:25ef\:26aa\:a5b4\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5b4\
\:26aa\:25ef\:26aa\:1450\:1455\:26aa\:144e\:26aa\:1d25\:26aa\:15ef\:26aa\:15e9\
\:26aa\:2724\:26aa\:144e\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:25ef\:26aa\:07e6\
\:26aa\:1641\:26aa\:24c4\:26aa\:2724\:26aa\:25ef\:26aa\:c637\:26aa\:15f1\:15f4\
\:26aa\:1641\:26aa\:07e6\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa", ",", " ",
"\:26aa\:2724\:26aa\:24c4\:26aa\:1641\:26aa\:07e6\:26aa\:25ef\:26aa\:15f1\
\:15f4\:26aa\:1d25\:26aa\:144e\:26aa\:2724\:26aa\:15e9\:26aa\:15ef\:26aa\:1d25\
\:26aa\:144e\:26aa\:1450\:1455\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:1450\:1455\:26aa\:144e\:26aa\:1d25\:26aa\:15ef\
\:26aa\:15e9\:26aa\:2724\:26aa\:144e\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:25ef\
\:26aa\:07e6\:26aa\:1641\:26aa\:24c4\:26aa\:2724\:26aa"}], "]"}], "\n",
RowBox[{
RowBox[{
"\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:07e6\:26aa\:1641\:26aa\:15f1\:15f4\
\:26aa\:c637\:26aa\:25ef\:26aa\:2724\:26aa\:24c4\:26aa\:1641\:26aa\:07e6\:26aa\
\:25ef\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:144e\:26aa\:2724\:26aa\:15e9\:26aa\
\:15ef\:26aa\:1d25\:26aa\:144e\:26aa\:1450\:1455\:26aa\:25ef\:26aa\:a5b4\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5b4\
\:26aa\:25ef\:26aa\:1450\:1455\:26aa\:144e\:26aa\:1d25\:26aa\:15ef\:26aa\:15e9\
\:26aa\:2724\:26aa\:144e\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:25ef\:26aa\:07e6\
\:26aa\:1641\:26aa\:24c4\:26aa\:2724\:26aa\:25ef\:26aa\:c637\:26aa\:15f1\:15f4\
\:26aa\:1641\:26aa\:07e6\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa", "[",
RowBox[{
RowBox[{
"\:26aa\:a5f3\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:a5f3\:26aa_", "?",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"Head", "[", "#", "]"}], " ", "=!=", " ", "List"}], " ",
"&"}], ")"}]}], ",", " ",
RowBox[{"{",
RowBox[{
"\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:2724\:26aa_", ",", " ",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\:0418N\:26aa\
\:a5b4\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:164f\:26aa\
\:a5b4\:26aa\:0418N\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa_",
",", " ",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\:a564\:26aa\
\:15e9\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:164f\:26aa\
\:15e9\:26aa\:a564\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa_"}],
"}"}], ",", " ",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
"\:26aa\:2d54\:26aa\:25ef\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a564\:26aa\:25ef\:26aa\:2d54\
\:26aa_", ",", " ",
"\:26aa\:2d54\:26aa\:25ef\:26aa\:4eba\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:4eba\:26aa\:25ef\:26aa\:2d54\
\:26aa_"}], "}"}], ",", " ",
"\:26aa\:2d54\:26aa\:25ef\:26aa\[Theta]\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\[Theta]\:26aa\:25ef\:26aa\
\:2d54\:26aa_"}], "}"}], ",", " ",
RowBox[{
"\:26aa\:1513\:1515\:26aa\:0418N\:26aa\:24c4\:26aa\:a5b4\:26aa\:2724\:26aa\
\:07e6\:26aa\:24c4\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:24c4\:26aa\:07e6\:26aa\:2724\:26aa\:a5b4\:26aa\:24c4\:26aa\
\:0418N\:26aa\:1513\:1515\:26aa", " ", ":", " ",
RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
"\:26aa\:15f1\:15f4\:26aa\:15ef\:26aa\:1641\:26aa\:24c4\:26aa\:1513\:1515\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:1513\:1515\:26aa\:24c4\:26aa\:1641\:26aa\:15ef\:26aa\:15f1\:15f4\:26aa",
",", " ",
"\:26aa\[Theta]\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\[Theta]\:26aa", ",", " ",
"\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:a564\:26aa", ",", " ",
"\:26aa\:4eba\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:4eba\:26aa", ",", " ",
"\:26aa\:a5f3\:26aa\:a5b4\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5b4\:26aa\:a5f3\:26aa"}], "}"}], ",",
"\n", " ",
RowBox[{
RowBox[{
"\:26aa\:15f1\:15f4\:26aa\:15ef\:26aa\:1641\:26aa\:24c4\:26aa\:1513\:1515\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:1513\:1515\:26aa\:24c4\:26aa\:1641\:26aa\:15ef\:26aa\:15f1\:15f4\:26aa",
" ", "=", " ",
RowBox[{"NDSolve", "[",
RowBox[{
RowBox[{"{", "\n", " ",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
"\:26aa\[Theta]\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\[Theta]\:26aa", "'"}], "[",
"\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa", "]"}], " ", "==", " ",
"\:26aa\:a5f3\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:a5f3\:26aa"}], ",", "\n", " ",
RowBox[{
RowBox[{
RowBox[{
"\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:a564\:26aa", "'"}], "[",
"\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa", "]"}], " ", "==", " ",
RowBox[{"Cos", "[",
RowBox[{
"\:26aa\[Theta]\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\[Theta]\:26aa", "[",
"\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa", "]"}], "]"}]}], ",", "\n",
" ",
RowBox[{
RowBox[{
RowBox[{
"\:26aa\:4eba\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:4eba\:26aa", "'"}], "[",
"\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa", "]"}], " ", "==", " ",
RowBox[{"Sin", "[",
RowBox[{
"\:26aa\[Theta]\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\[Theta]\:26aa", "[",
"\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa", "]"}], "]"}]}], ",", "\n",
" ",
RowBox[{
RowBox[{
"\:26aa\[Theta]\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\[Theta]\:26aa", "[",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\:0418N\
\:26aa\:a5b4\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:164f\
\:26aa\:a5b4\:26aa\:0418N\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\:164f\
\:26aa", "]"}], " ", "==", " ",
"\:26aa\:2d54\:26aa\:25ef\:26aa\[Theta]\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\[Theta]\:26aa\:25ef\
\:26aa\:2d54\:26aa"}], ",", "\n", " ",
RowBox[{
RowBox[{
"\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:a564\:26aa", "[",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\:0418N\
\:26aa\:a5b4\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:164f\
\:26aa\:a5b4\:26aa\:0418N\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\:164f\
\:26aa", "]"}], " ", "==", " ",
"\:26aa\:2d54\:26aa\:25ef\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a564\:26aa\:25ef\:26aa\:2d54\
\:26aa"}], ",", "\n", " ",
RowBox[{
RowBox[{
"\:26aa\:4eba\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:4eba\:26aa", "[",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\:0418N\
\:26aa\:a5b4\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:164f\
\:26aa\:a5b4\:26aa\:0418N\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\:164f\
\:26aa", "]"}], " ", "==", " ",
"\:26aa\:2d54\:26aa\:25ef\:26aa\:4eba\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:4eba\:26aa\:25ef\:26aa\:2d54\
\:26aa"}]}], "\n", " ", "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:a564\:26aa", ",", " ",
"\:26aa\:4eba\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:4eba\:26aa"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:2724\:26aa", ",", " ",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\:0418N\:26aa\
\:a5b4\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:164f\:26aa\
\:a5b4\:26aa\:0418N\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa",
",", " ",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\:a564\:26aa\
\:15e9\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:164f\:26aa\
\:15e9\:26aa\:a564\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa"}],
"}"}], ",", " ",
"\:26aa\:1513\:1515\:26aa\:0418N\:26aa\:24c4\:26aa\:a5b4\:26aa\:2724\
\:26aa\:07e6\:26aa\:24c4\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:24c4\:26aa\:07e6\:26aa\:2724\:26aa\:a5b4\:26aa\:24c4\
\:26aa\:0418N\:26aa\:1513\:1515\:26aa"}], "]"}]}], ";", "\n", " ",
RowBox[{
"\:26aa\:a5f3\:26aa\:a5b4\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:a5b4\:26aa\:a5f3\:26aa", " ", "=", " ",
RowBox[{
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
"\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:a564\:26aa", "[", "#", "]"}], ",", " ",
RowBox[{
"\:26aa\:4eba\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:4eba\:26aa", "[", "#", "]"}]}], "}"}], " ", "&"}],
" ", "/.", " ",
RowBox[{
"First", "[",
"\:26aa\:15f1\:15f4\:26aa\:15ef\:26aa\:1641\:26aa\:24c4\:26aa\:1513\
\:1515\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:1513\:1515\:26aa\:24c4\:26aa\:1641\:26aa\:15ef\:26aa\:15f1\:15f4\:26aa\
", "]"}]}]}], ";", "\n", " ",
"\:26aa\:a5f3\:26aa\:a5b4\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:a5b4\:26aa\:a5f3\:26aa"}]}], "]"}]}], "\n",
RowBox[{
RowBox[{
"\:26aa\:2724\:26aa\:24c4\:26aa\:1641\:26aa\:07e6\:26aa\:25ef\:26aa\:15f1\
\:15f4\:26aa\:1d25\:26aa\:144e\:26aa\:2724\:26aa\:15e9\:26aa\:15ef\:26aa\:1d25\
\:26aa\:144e\:26aa\:1450\:1455\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:1450\:1455\:26aa\:144e\:26aa\:1d25\:26aa\:15ef\
\:26aa\:15e9\:26aa\:2724\:26aa\:144e\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:25ef\
\:26aa\:07e6\:26aa\:1641\:26aa\:24c4\:26aa\:2724\:26aa", "[",
RowBox[{
"\:26aa\:a5f3\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:a5f3\:26aa_", ",", " ",
RowBox[{"{",
RowBox[{
"\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:2724\:26aa_", ",", " ",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\:0418N\:26aa\
\:a5b4\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:164f\:26aa\
\:a5b4\:26aa\:0418N\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa_",
",", " ",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\:a564\:26aa\
\:15e9\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:164f\:26aa\
\:15e9\:26aa\:a564\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa_"}],
"}"}], ",", " ",
RowBox[{
"\:26aa\:1513\:1515\:26aa\:0418N\:26aa\:24c4\:26aa\:a5b4\:26aa\:2724\:26aa\
\:07e6\:26aa\:24c4\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:24c4\:26aa\:07e6\:26aa\:2724\:26aa\:a5b4\:26aa\:24c4\:26aa\
\:0418N\:26aa\:1513\:1515\:26aa", " ", ":", " ",
RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ",
RowBox[{
"\:26aa\:2724\:26aa\:24c4\:26aa\:1641\:26aa\:07e6\:26aa\:25ef\:26aa\:15f1\
\:15f4\:26aa\:1d25\:26aa\:144e\:26aa\:2724\:26aa\:15e9\:26aa\:15ef\:26aa\:1d25\
\:26aa\:144e\:26aa\:1450\:1455\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:1450\:1455\:26aa\:144e\:26aa\:1d25\:26aa\:15ef\
\:26aa\:15e9\:26aa\:2724\:26aa\:144e\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:25ef\
\:26aa\:07e6\:26aa\:1641\:26aa\:24c4\:26aa\:2724\:26aa", "[",
RowBox[{
"\:26aa\:a5f3\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:a5f3\:26aa", ",", " ",
RowBox[{"{",
RowBox[{
"\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:2724\:26aa", ",", " ",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\:0418N\:26aa\
\:a5b4\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:164f\:26aa\
\:a5b4\:26aa\:0418N\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa",
",", " ",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\:a564\:26aa\
\:15e9\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:164f\:26aa\
\:15e9\:26aa\:a564\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa"}],
"}"}], ",", " ",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", " ", "0"}], "}"}], ",", " ", "0"}], "}"}], ",", " ",
"\:26aa\:1513\:1515\:26aa\:0418N\:26aa\:24c4\:26aa\:a5b4\:26aa\:2724\:26aa\
\:07e6\:26aa\:24c4\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:24c4\:26aa\:07e6\:26aa\:2724\:26aa\:a5b4\:26aa\:24c4\:26aa\
\:0418N\:26aa\:1513\:1515\:26aa"}], "]"}]}], "\n",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{
"\:26aa\:2724\:26aa\:24c4\:26aa\:1641\:26aa\:07e6\:26aa\:25ef\:26aa\:15f1\
\:15f4\:26aa\:1d25\:26aa\:144e\:26aa\:2724\:26aa\:15e9\:26aa\:15ef\:26aa\:1d25\
\:26aa\:144e\:26aa\:1450\:1455\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:1450\:1455\:26aa\:144e\:26aa\:1d25\:26aa\:15ef\
\:26aa\:15e9\:26aa\:2724\:26aa\:144e\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:25ef\
\:26aa\:07e6\:26aa\:1641\:26aa\:24c4\:26aa\:2724\:26aa", "[",
RowBox[{
"\:26aa\:a5f3\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:a5f3\:26aa_", ",", " ",
RowBox[{"{",
RowBox[{
"\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:2724\:26aa_", ",", " ",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\:0418N\:26aa\
\:a5b4\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:164f\:26aa\
\:a5b4\:26aa\:0418N\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa_",
",", " ",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\:a564\:26aa\
\:15e9\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:164f\:26aa\
\:15e9\:26aa\:a564\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa_"}],
"}"}], ",", " ",
RowBox[{
"\:26aa\:07e6\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:07e6\:26aa", " ", ":", " ",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
"\:26aa\:2d54\:26aa\:25ef\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a564\:26aa\:25ef\:26aa\:2d54\
\:26aa_", ",", " ",
"\:26aa\:2d54\:26aa\:25ef\:26aa\:4eba\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:4eba\:26aa\:25ef\:26aa\
\:2d54\:26aa_"}], "}"}], ",", " ",
"\:26aa\:2d54\:26aa\:25ef\:26aa\[Theta]\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\[Theta]\:26aa\:25ef\
\:26aa\:2d54\:26aa_"}], "}"}]}], ",", " ",
RowBox[{
"\:26aa\:1513\:1515\:26aa\:0418N\:26aa\:24c4\:26aa\:a5b4\:26aa\:2724\
\:26aa\:07e6\:26aa\:24c4\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:24c4\:26aa\:07e6\:26aa\:2724\:26aa\:a5b4\:26aa\:24c4\
\:26aa\:0418N\:26aa\:1513\:1515\:26aa", " ", ":", " ",
RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ",
RowBox[{"Module", "[",
RowBox[{
RowBox[{"{",
RowBox[{
"\:26aa\[Theta]\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\[Theta]\:26aa", ",", " ",
"\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:a564\:26aa", ",", " ",
"\:26aa\:4eba\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:4eba\:26aa", ",", " ",
"\:26aa\:15f1\:15f4\:26aa\:15ef\:26aa\:1641\:26aa\:24c4\:26aa\:1513\
\:1515\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:1513\:1515\:26aa\:24c4\:26aa\:1641\:26aa\:15ef\:26aa\:15f1\:15f4\:26aa\
", ",", " ",
"\:26aa\:1513\:1515\:26aa\:15f1\:15f4\:26aa\:1641\:26aa\:144e\:26aa\
\:1d25\:26aa\:25ef\:26aa\:2724\:26aa\:24c4\:26aa\:1641\:26aa\:07e6\:26aa\:25ef\
\:26aa\:1450\:1455\:26aa\:a5b4\:26aa\:1d25\:26aa\:2724\:26aa\:15f1\:15f4\:26aa\
\:164f\:26aa\:15e9\:26aa\:1d25\:26aa\:15e9\:26aa\:07e6\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:07e6\:26aa\:15e9\:26aa\
\:1d25\:26aa\:15e9\:26aa\:164f\:26aa\:15f1\:15f4\:26aa\:2724\:26aa\:1d25\:26aa\
\:a5b4\:26aa\:1450\:1455\:26aa\:25ef\:26aa\:07e6\:26aa\:1641\:26aa\:24c4\:26aa\
\:2724\:26aa\:25ef\:26aa\:1d25\:26aa\:144e\:26aa\:1641\:26aa\:15f1\:15f4\:26aa\
\:1513\:1515\:26aa", ",", " ",
"\:26aa\:1513\:1515\:26aa\:15f1\:15f4\:26aa\:1641\:26aa\:144e\:26aa\
\:1d25\:26aa\:25ef\:26aa\:15f1\:15f4\:26aa\:15ef\:26aa\:1641\:26aa\:24c4\:26aa\
\:1513\:1515\:26aa\:25ef\:26aa\:1641\:26aa\:15e9\:26aa\:a5b4\:26aa\:2724\:26aa\
\:0418N\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:a5f3\:26aa\
\:a5b4\:26aa\:15dd\:26aa\:25ef\:26aa\:1641\:26aa\:15e9\:26aa\:1450\:1455\:26aa\
\:a5b4\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:164f\:26aa\:144e\:26aa\:0418N\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:0418N\:26aa\:144e\:26aa\:164f\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:a5b4\
\:26aa\:1450\:1455\:26aa\:15e9\:26aa\:1641\:26aa\:25ef\:26aa\:15dd\:26aa\:a5b4\
\:26aa\:a5f3\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:0418N\
\:26aa\:2724\:26aa\:a5b4\:26aa\:15e9\:26aa\:1641\:26aa\:25ef\:26aa\:1513\:1515\
\:26aa\:24c4\:26aa\:1641\:26aa\:15ef\:26aa\:15f1\:15f4\:26aa\:25ef\:26aa\:1d25\
\:26aa\:144e\:26aa\:1641\:26aa\:15f1\:15f4\:26aa\:1513\:1515\:26aa", ",", " ",
"\:26aa\:a5f3\:26aa\:a5b4\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5b4\:26aa\:a5f3\:26aa", ",", " ",
"\:26aa\:1513\:1515\:26aa\:a5f3\:26aa\:a5b4\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5b4\:26aa\:a5f3\:26aa\
\:1513\:1515\:26aa"}], "}"}], ",", "\n", " ",
RowBox[{
RowBox[{
"\:26aa\:1513\:1515\:26aa\:15f1\:15f4\:26aa\:1641\:26aa\:144e\:26aa\
\:1d25\:26aa\:25ef\:26aa\:2724\:26aa\:24c4\:26aa\:1641\:26aa\:07e6\:26aa\:25ef\
\:26aa\:1450\:1455\:26aa\:a5b4\:26aa\:1d25\:26aa\:2724\:26aa\:15f1\:15f4\:26aa\
\:164f\:26aa\:15e9\:26aa\:1d25\:26aa\:15e9\:26aa\:07e6\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:07e6\:26aa\:15e9\:26aa\
\:1d25\:26aa\:15e9\:26aa\:164f\:26aa\:15f1\:15f4\:26aa\:2724\:26aa\:1d25\:26aa\
\:a5b4\:26aa\:1450\:1455\:26aa\:25ef\:26aa\:07e6\:26aa\:1641\:26aa\:24c4\:26aa\
\:2724\:26aa\:25ef\:26aa\:1d25\:26aa\:144e\:26aa\:1641\:26aa\:15f1\:15f4\:26aa\
\:1513\:1515\:26aa", " ", "=", " ",
RowBox[{"FilterRules", "[",
RowBox[{
RowBox[{
"{", "\:26aa\:1513\:1515\:26aa\:0418N\:26aa\:24c4\:26aa\:a5b4\:26aa\
\:2724\:26aa\:07e6\:26aa\:24c4\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:24c4\:26aa\:07e6\:26aa\:2724\:26aa\:a5b4\:26aa\
\:24c4\:26aa\:0418N\:26aa\:1513\:1515\:26aa", "}"}], ",", " ",
RowBox[{"Options", "[", "ParametricPlot", "]"}]}], "]"}]}], ";",
RowBox[{
"\:26aa\:1513\:1515\:26aa\:15f1\:15f4\:26aa\:1641\:26aa\:144e\:26aa\
\:1d25\:26aa\:25ef\:26aa\:15f1\:15f4\:26aa\:15ef\:26aa\:1641\:26aa\:24c4\:26aa\
\:1513\:1515\:26aa\:25ef\:26aa\:1641\:26aa\:15e9\:26aa\:a5b4\:26aa\:2724\:26aa\
\:0418N\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:a5f3\:26aa\
\:a5b4\:26aa\:15dd\:26aa\:25ef\:26aa\:1641\:26aa\:15e9\:26aa\:1450\:1455\:26aa\
\:a5b4\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:164f\:26aa\:144e\:26aa\:0418N\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:0418N\:26aa\:144e\:26aa\:164f\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:a5b4\
\:26aa\:1450\:1455\:26aa\:15e9\:26aa\:1641\:26aa\:25ef\:26aa\:15dd\:26aa\:a5b4\
\:26aa\:a5f3\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:0418N\
\:26aa\:2724\:26aa\:a5b4\:26aa\:15e9\:26aa\:1641\:26aa\:25ef\:26aa\:1513\:1515\
\:26aa\:24c4\:26aa\:1641\:26aa\:15ef\:26aa\:15f1\:15f4\:26aa\:25ef\:26aa\:1d25\
\:26aa\:144e\:26aa\:1641\:26aa\:15f1\:15f4\:26aa\:1513\:1515\:26aa", " ", "=",
" ",
RowBox[{"FilterRules", "[",
RowBox[{
RowBox[{
"{", "\:26aa\:1513\:1515\:26aa\:0418N\:26aa\:24c4\:26aa\:a5b4\:26aa\
\:2724\:26aa\:07e6\:26aa\:24c4\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:24c4\:26aa\:07e6\:26aa\:2724\:26aa\:a5b4\:26aa\
\:24c4\:26aa\:0418N\:26aa\:1513\:1515\:26aa", "}"}], ",", " ",
RowBox[{"Options", "[", "NDSolve", "]"}]}], "]"}]}], ";", "\n",
" ",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{
"Head", "[",
"\:26aa\:a5f3\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:a5f3\:26aa", "]"}], " ", "===", " ", "List"}],
",", "\n", " ",
RowBox[{
RowBox[{
"\:26aa\:1513\:1515\:26aa\:a5f3\:26aa\:a5b4\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5b4\:26aa\:a5f3\:26aa\
\:1513\:1515\:26aa", " ", "=", " ",
RowBox[{
RowBox[{
RowBox[{
"\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:07e6\:26aa\:1641\:26aa\
\:15f1\:15f4\:26aa\:c637\:26aa\:25ef\:26aa\:2724\:26aa\:24c4\:26aa\:1641\:26aa\
\:07e6\:26aa\:25ef\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:144e\:26aa\:2724\:26aa\
\:15e9\:26aa\:15ef\:26aa\:1d25\:26aa\:144e\:26aa\:1450\:1455\:26aa\:25ef\:26aa\
\:a5b4\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:a5b4\:26aa\:25ef\:26aa\:1450\:1455\:26aa\:144e\:26aa\:1d25\:26aa\:15ef\
\:26aa\:15e9\:26aa\:2724\:26aa\:144e\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:25ef\
\:26aa\:07e6\:26aa\:1641\:26aa\:24c4\:26aa\:2724\:26aa\:25ef\:26aa\:c637\:26aa\
\:15f1\:15f4\:26aa\:1641\:26aa\:07e6\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa",
"[",
RowBox[{"#", ",", " ",
RowBox[{"{",
RowBox[{
"\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa", ",", " ",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\
\:0418N\:26aa\:a5b4\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\
\:26aa\:164f\:26aa\:a5b4\:26aa\:0418N\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\
\:26aa\:164f\:26aa", ",", " ",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\
\:a564\:26aa\:15e9\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\
\:164f\:26aa\:15e9\:26aa\:a564\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\:164f\
\:26aa"}], "}"}], ",", " ",
"\:26aa\:07e6\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:07e6\:26aa", ",", " ",
RowBox[{"Evaluate", "@",
RowBox[{"(",
RowBox[{
"Sequence", " ", "@@", " ",
"\:26aa\:1513\:1515\:26aa\:15f1\:15f4\:26aa\:1641\:26aa\
\:144e\:26aa\:1d25\:26aa\:25ef\:26aa\:15f1\:15f4\:26aa\:15ef\:26aa\:1641\:26aa\
\:24c4\:26aa\:1513\:1515\:26aa\:25ef\:26aa\:1641\:26aa\:15e9\:26aa\:a5b4\:26aa\
\:2724\:26aa\:0418N\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\
\:a5f3\:26aa\:a5b4\:26aa\:15dd\:26aa\:25ef\:26aa\:1641\:26aa\:15e9\:26aa\:1450\
\:1455\:26aa\:a5b4\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:164f\:26aa\:144e\:26aa\
\:0418N\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:0418N\:26aa\:144e\:26aa\:164f\:26aa\:15f1\:15f4\:26aa\:1d25\
\:26aa\:a5b4\:26aa\:1450\:1455\:26aa\:15e9\:26aa\:1641\:26aa\:25ef\:26aa\:15dd\
\:26aa\:a5b4\:26aa\:a5f3\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\
\:0418N\:26aa\:2724\:26aa\:a5b4\:26aa\:15e9\:26aa\:1641\:26aa\:25ef\:26aa\
\:1513\:1515\:26aa\:24c4\:26aa\:1641\:26aa\:15ef\:26aa\:15f1\:15f4\:26aa\:25ef\
\:26aa\:1d25\:26aa\:144e\:26aa\:1641\:26aa\:15f1\:15f4\:26aa\:1513\:1515\:26aa\
"}], ")"}]}]}], "]"}], " ", "&"}], " ", "/@", " ",
"\:26aa\:a5f3\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:a5f3\:26aa"}]}], ";", "\n", " ",
RowBox[{"ParametricPlot", "[",
RowBox[{
RowBox[{"Evaluate", "[",
RowBox[{
RowBox[{
RowBox[{
"#", "[",
"\:26aa\:2724\:26aa\:24c4\:26aa\:1641\:26aa\:07e6\:26aa\:25ef\
\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:07e6\:26aa\:1641\:26aa\:24c4\:26aa\:2724\
\:26aa", "]"}], " ", "&"}], " ", "/@", " ",
"\:26aa\:1513\:1515\:26aa\:a5f3\:26aa\:a5b4\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5b4\:26aa\:a5f3\
\:26aa\:1513\:1515\:26aa"}], "]"}], ",", " ",
RowBox[{"{",
RowBox[{
"\:26aa\:2724\:26aa\:24c4\:26aa\:1641\:26aa\:07e6\:26aa\:25ef\
\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:07e6\:26aa\:1641\:26aa\:24c4\:26aa\:2724\
\:26aa", ",", " ",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\:0418N\
\:26aa\:a5b4\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:164f\
\:26aa\:a5b4\:26aa\:0418N\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\:164f\
\:26aa", ",", " ",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\:a564\
\:26aa\:15e9\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:164f\
\:26aa\:15e9\:26aa\:a564\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\
"}], "}"}], ",", " ",
RowBox[{"Evaluate", "@",
RowBox[{"(",
RowBox[{
"Sequence", " ", "@@", " ",
"\:26aa\:1513\:1515\:26aa\:15f1\:15f4\:26aa\:1641\:26aa\:144e\
\:26aa\:1d25\:26aa\:25ef\:26aa\:2724\:26aa\:24c4\:26aa\:1641\:26aa\:07e6\:26aa\
\:25ef\:26aa\:1450\:1455\:26aa\:a5b4\:26aa\:1d25\:26aa\:2724\:26aa\:15f1\:15f4\
\:26aa\:164f\:26aa\:15e9\:26aa\:1d25\:26aa\:15e9\:26aa\:07e6\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:07e6\:26aa\:15e9\
\:26aa\:1d25\:26aa\:15e9\:26aa\:164f\:26aa\:15f1\:15f4\:26aa\:2724\:26aa\:1d25\
\:26aa\:a5b4\:26aa\:1450\:1455\:26aa\:25ef\:26aa\:07e6\:26aa\:1641\:26aa\:24c4\
\:26aa\:2724\:26aa\:25ef\:26aa\:1d25\:26aa\:144e\:26aa\:1641\:26aa\:15f1\:15f4\
\:26aa\:1513\:1515\:26aa"}], ")"}]}]}], "]"}]}], "\n", " ", ",", "\n",
" ",
RowBox[{
RowBox[{
"\:26aa\:a5f3\:26aa\:a5b4\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5b4\:26aa\:a5f3\:26aa", " ", "=", " ",
RowBox[{
"\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:07e6\:26aa\:1641\:26aa\
\:15f1\:15f4\:26aa\:c637\:26aa\:25ef\:26aa\:2724\:26aa\:24c4\:26aa\:1641\:26aa\
\:07e6\:26aa\:25ef\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:144e\:26aa\:2724\:26aa\
\:15e9\:26aa\:15ef\:26aa\:1d25\:26aa\:144e\:26aa\:1450\:1455\:26aa\:25ef\:26aa\
\:a5b4\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:a5b4\:26aa\:25ef\:26aa\:1450\:1455\:26aa\:144e\:26aa\:1d25\:26aa\:15ef\
\:26aa\:15e9\:26aa\:2724\:26aa\:144e\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:25ef\
\:26aa\:07e6\:26aa\:1641\:26aa\:24c4\:26aa\:2724\:26aa\:25ef\:26aa\:c637\:26aa\
\:15f1\:15f4\:26aa\:1641\:26aa\:07e6\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa",
"[",
RowBox[{
"\:26aa\:a5f3\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:a5f3\:26aa", ",", " ",
RowBox[{"{",
RowBox[{
"\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa", ",", " ",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\:0418\
N\:26aa\:a5b4\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\
\:164f\:26aa\:a5b4\:26aa\:0418N\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\
\:164f\:26aa", ",", " ",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\:a564\
\:26aa\:15e9\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:164f\
\:26aa\:15e9\:26aa\:a564\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\
"}], "}"}], ",", " ",
"\:26aa\:07e6\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:07e6\:26aa", ",", " ",
RowBox[{"Evaluate", "@",
RowBox[{"(",
RowBox[{
"Sequence", " ", "@@", " ",
"\:26aa\:1513\:1515\:26aa\:15f1\:15f4\:26aa\:1641\:26aa\:144e\
\:26aa\:1d25\:26aa\:25ef\:26aa\:15f1\:15f4\:26aa\:15ef\:26aa\:1641\:26aa\:24c4\
\:26aa\:1513\:1515\:26aa\:25ef\:26aa\:1641\:26aa\:15e9\:26aa\:a5b4\:26aa\:2724\
\:26aa\:0418N\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:a5f3\
\:26aa\:a5b4\:26aa\:15dd\:26aa\:25ef\:26aa\:1641\:26aa\:15e9\:26aa\:1450\:1455\
\:26aa\:a5b4\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:164f\:26aa\:144e\:26aa\:0418\
N\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:0418N\:26aa\:144e\:26aa\:164f\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\
\:a5b4\:26aa\:1450\:1455\:26aa\:15e9\:26aa\:1641\:26aa\:25ef\:26aa\:15dd\:26aa\
\:a5b4\:26aa\:a5f3\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\:0418\
N\:26aa\:2724\:26aa\:a5b4\:26aa\:15e9\:26aa\:1641\:26aa\:25ef\:26aa\:1513\
\:1515\:26aa\:24c4\:26aa\:1641\:26aa\:15ef\:26aa\:15f1\:15f4\:26aa\:25ef\:26aa\
\:1d25\:26aa\:144e\:26aa\:1641\:26aa\:15f1\:15f4\:26aa\:1513\:1515\:26aa"}],
")"}]}]}], "]"}]}], ";", "\n", " ",
RowBox[{"ParametricPlot", "[",
RowBox[{
RowBox[{"Evaluate", "[",
RowBox[{
"\:26aa\:a5f3\:26aa\:a5b4\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5b4\:26aa\:a5f3\:26aa", "[",
"\:26aa\:2724\:26aa\:24c4\:26aa\:1641\:26aa\:07e6\:26aa\:25ef\
\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:07e6\:26aa\:1641\:26aa\:24c4\:26aa\:2724\
\:26aa", "]"}], "]"}], ",", " ",
RowBox[{"{",
RowBox[{
"\:26aa\:2724\:26aa\:24c4\:26aa\:1641\:26aa\:07e6\:26aa\:25ef\
\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:07e6\:26aa\:1641\:26aa\:24c4\:26aa\:2724\
\:26aa", ",", " ",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\:0418N\
\:26aa\:a5b4\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:164f\
\:26aa\:a5b4\:26aa\:0418N\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\:164f\
\:26aa", ",", " ",
"\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\:a5b4\:26aa\:a564\
\:26aa\:15e9\:26aa\:164f\:26aa\:25ef\:26aa\:2724\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:2724\:26aa\:25ef\:26aa\:164f\
\:26aa\:15e9\:26aa\:a564\:26aa\:a5b4\:26aa\:164f\:26aa\:144e\:26aa\:164f\:26aa\
"}], "}"}], ",", " ",
RowBox[{"Evaluate", "@",
RowBox[{"(",
RowBox[{
"Sequence", " ", "@@", " ",
"\:26aa\:1513\:1515\:26aa\:15f1\:15f4\:26aa\:1641\:26aa\:144e\
\:26aa\:1d25\:26aa\:25ef\:26aa\:2724\:26aa\:24c4\:26aa\:1641\:26aa\:07e6\:26aa\
\:25ef\:26aa\:1450\:1455\:26aa\:a5b4\:26aa\:1d25\:26aa\:2724\:26aa\:15f1\:15f4\
\:26aa\:164f\:26aa\:15e9\:26aa\:1d25\:26aa\:15e9\:26aa\:07e6\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:07e6\:26aa\:15e9\
\:26aa\:1d25\:26aa\:15e9\:26aa\:164f\:26aa\:15f1\:15f4\:26aa\:2724\:26aa\:1d25\
\:26aa\:a5b4\:26aa\:1450\:1455\:26aa\:25ef\:26aa\:07e6\:26aa\:1641\:26aa\:24c4\
\:26aa\:2724\:26aa\:25ef\:26aa\:1d25\:26aa\:144e\:26aa\:1641\:26aa\:15f1\:15f4\
\:26aa\:1513\:1515\:26aa"}], ")"}]}]}], "]"}]}]}], "\n", " ", "]"}]}]}],
"]"}]}], ";"}], "//", "Timing"}], "//", "AbsoluteTiming"}]}], "Input",
CellFrame->0,
CellDingbat->None,
TextAlignment->Center,
FontFamily->"Segoe UI Emoji",
FontSize->11,
FontWeight->"Normal",
CellLabel->
"In[120]:=",ExpressionUUID->"1cb68996-1682-47b9-a616-08af5811bee5"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{
"\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:15e9\:26aa\:144e\:26aa\[Currency]\
\:26aa\:1513\:1515\:26aa\:25ef\:26aa\:1513\:1515\:26aa\:144e\:26aa\:a5b4\:26aa\
\:26ad\:26aa\:15e9\:26aa\:a5f3\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:a5f3\:26aa\:15e9\:26aa\:26ad\:26aa\:a5b4\:26aa\
\:144e\:26aa\:1513\:1515\:26aa\:25ef\:26aa\:1513\:1515\:26aa\[Currency]\:26aa\
\:144e\:26aa\:15e9\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa", "=", " ",
RowBox[{"Abs", "[",
RowBox[{
"\:26aa\:0418N\:26aa\:24c4\:26aa\:a5b4\:26aa\:2724\:26aa\:1450\:1455\:26aa\
\:0418N\:26aa\:144e\:26aa\:a5f3\:26aa\:25ef\:26aa\:1513\:1515\:26aa\:144e\
\:26aa\:a5b4\:26aa\:26ad\:26aa\:15e9\:26aa\:a5f3\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5f3\:26aa\:15e9\:26aa\:26ad\
\:26aa\:a5b4\:26aa\:144e\:26aa\:1513\:1515\:26aa\:25ef\:26aa\:a5f3\:26aa\:144e\
\:26aa\:0418N\:26aa\:1450\:1455\:26aa\:2724\:26aa\:a5b4\:26aa\:24c4\:26aa\
\:0418N\:26aa", "[",
RowBox[{
RowBox[{
"\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:a564\:26aa", "/", "\[Pi]"}], "*", "2"}], "]"}],
"]"}]}], ";"}], "\n",
RowBox[{"GraphicsGrid", "[", "\n",
RowBox[{
RowBox[{"{", "\n",
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
"\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:15e9\:26aa\:144e\:26aa\
\[Currency]\:26aa\:1513\:1515\:26aa\:25ef\:26aa\:1513\:1515\:26aa\:144e\:26aa\
\:a5b4\:26aa\:26ad\:26aa\:15e9\:26aa\:a5f3\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5f3\:26aa\:15e9\:26aa\:26ad\:26aa\
\:a5b4\:26aa\:144e\:26aa\:1513\:1515\:26aa\:25ef\:26aa\:1513\:1515\:26aa\
\[Currency]\:26aa\:144e\:26aa\:15e9\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa", ",",
RowBox[{"{",
RowBox[{
"\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:a564\:26aa", ",", "0", ",",
RowBox[{"4", "\[Pi]"}]}], "}"}], ",",
RowBox[{"Axes", "\[Rule]", "True"}], ",",
RowBox[{"AspectRatio", "\[Rule]",
RowBox[{".5", "/", "\[Pi]"}]}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"1", "*",
RowBox[{"\[Pi]", "/", "2"}]}], ",",
RowBox[{"2", "*",
RowBox[{"\[Pi]", "/", "2"}]}], ",",
RowBox[{"3", "*",
RowBox[{"\[Pi]", "/", "2"}]}], ",",
RowBox[{"4", "*",
RowBox[{"\[Pi]", "/", "2"}]}], ",",
RowBox[{"5", "*",
RowBox[{"\[Pi]", "/", "2"}]}], ",",
RowBox[{"6", "*",
RowBox[{"\[Pi]", "/", "2"}]}], ",",
RowBox[{"7", "*",
RowBox[{"\[Pi]", "/", "2"}]}], ",",
RowBox[{"8", "*",
RowBox[{"\[Pi]", "/", "2"}]}]}], "}"}], ",",
RowBox[{"{", "1", "}"}]}], "}"}]}], ",",
RowBox[{"ImageSize", "\[Rule]", "Automatic"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"GrayLevel", "[",
RowBox[{"135", "/", "256"}], "]"}]}], ",",
RowBox[{"FrameStyle", "\[Rule]",
RowBox[{"GrayLevel", "[",
RowBox[{"172", "/", "256"}], "]"}]}], ",",
RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",",
RowBox[{"PlotPoints", "\[Rule]",
RowBox[{"1", "+",
RowBox[{"2", "^", "8"}]}]}]}], "]"}], ",", "\[IndentingNewLine]",
RowBox[{
"\:26aa\:2724\:26aa\:24c4\:26aa\:1641\:26aa\:07e6\:26aa\:25ef\:26aa\
\:15f1\:15f4\:26aa\:1d25\:26aa\:144e\:26aa\:2724\:26aa\:15e9\:26aa\:15ef\:26aa\
\:1d25\:26aa\:144e\:26aa\:1450\:1455\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:1450\:1455\:26aa\:144e\:26aa\:1d25\:26aa\
\:15ef\:26aa\:15e9\:26aa\:2724\:26aa\:144e\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa\
\:25ef\:26aa\:07e6\:26aa\:1641\:26aa\:24c4\:26aa\:2724\:26aa", "[",
RowBox[{
"\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:15e9\:26aa\:144e\:26aa\
\[Currency]\:26aa\:1513\:1515\:26aa\:25ef\:26aa\:1513\:1515\:26aa\:144e\:26aa\
\:a5b4\:26aa\:26ad\:26aa\:15e9\:26aa\:a5f3\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5f3\:26aa\:15e9\:26aa\:26ad\:26aa\
\:a5b4\:26aa\:144e\:26aa\:1513\:1515\:26aa\:25ef\:26aa\:1513\:1515\:26aa\
\[Currency]\:26aa\:144e\:26aa\:15e9\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa", ",",
RowBox[{"{",
RowBox[{
"\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:a564\:26aa", ",", "0", ",",
RowBox[{"4", " ", "\[Pi]"}]}], "}"}], ",",
RowBox[{"Frame", "->", "True"}], ",", " ",
RowBox[{"Axes", " ", "\[Rule]", " ",
RowBox[{"{",
RowBox[{"False", ",", "False"}], "}"}]}], ",",
RowBox[{"Ticks", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{", "\[Pi]", "}"}], ",",
RowBox[{"{", "\[Pi]", "}"}]}], "}"}]}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "\[Pi]"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "\[Pi]"}], "}"}]}], "}"}]}], ",",
RowBox[{"ImageSize", "\[Rule]", "Full"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"GrayLevel", "[",
RowBox[{"135", "/", "256"}], "]"}]}], ",",
RowBox[{"FrameStyle", "\[Rule]",
RowBox[{"GrayLevel", "[",
RowBox[{"172", "/", "256"}], "]"}]}], ",",
RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",",
RowBox[{"PlotPoints", "\[Rule]",
RowBox[{"1", "+",
RowBox[{"2", "^", "8"}]}]}]}], "]"}], ",", "\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{
"\:26aa\:15f1\:15f4\:26aa\:1d25\:26aa\:15e9\:26aa\:144e\:26aa\
\[Currency]\:26aa\:1513\:1515\:26aa\:25ef\:26aa\:1513\:1515\:26aa\:144e\:26aa\
\:a5b4\:26aa\:26ad\:26aa\:15e9\:26aa\:a5f3\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\
\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:a5f3\:26aa\:15e9\:26aa\:26ad\:26aa\
\:a5b4\:26aa\:144e\:26aa\:1513\:1515\:26aa\:25ef\:26aa\:1513\:1515\:26aa\
\[Currency]\:26aa\:144e\:26aa\:15e9\:26aa\:1d25\:26aa\:15f1\:15f4\:26aa", ",",
RowBox[{"{",
RowBox[{
"\:26aa\:a564\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\:25cc\:26aa\
\:25cc\:26aa\:25cc\:26aa\:a564\:26aa", ",", "0", ",",
RowBox[{"4", "\[Pi]"}]}], "}"}], ",",
RowBox[{"Axes", "\[Rule]", "True"}], ",",
RowBox[{"AspectRatio", "\[Rule]",
RowBox[{".5", "/", "\[Pi]"}]}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"FrameTicks", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"1", "*",
RowBox[{"\[Pi]", "/", "2"}]}], ",",
RowBox[{"2", "*",
RowBox[{"\[Pi]", "/", "2"}]}], ",",
RowBox[{"3", "*",
RowBox[{"\[Pi]", "/", "2"}]}], ",",
RowBox[{"4", "*",
RowBox[{"\[Pi]", "/", "2"}]}], ",",
RowBox[{"5", "*",
RowBox[{"\[Pi]", "/", "2"}]}], ",",
RowBox[{"6", "*",
RowBox[{"\[Pi]", "/", "2"}]}], ",",
RowBox[{"7", "*",
RowBox[{"\[Pi]", "/", "2"}]}], ",",
RowBox[{"8", "*",
RowBox[{"\[Pi]", "/", "2"}]}]}], "}"}], ",",
RowBox[{"{", "1", "}"}]}], "}"}]}], ",",
RowBox[{"ImageSize", "\[Rule]", "Automatic"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"GrayLevel", "[",
RowBox[{"135", "/", "256"}], "]"}]}], ",",
RowBox[{"FrameStyle", "\[Rule]",
RowBox[{"GrayLevel", "[",
RowBox[{"172", "/", "256"}], "]"}]}], ",",
RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",",
RowBox[{"PlotPoints", "\[Rule]",
RowBox[{"1", "+",
RowBox[{"2", "^", "8"}]}]}]}], "]"}]}], "\[IndentingNewLine]",
"}"}], "\n", "}"}], "\[IndentingNewLine]", ",", "\n",
RowBox[{"ImageSize", "\[Rule]", "Full"}]}], "\n", "]"}]}], "Input",
TextAlignment->Center,
FontFamily->"Segoe UI Emoji",
FontSize->11,
FontWeight->"Normal",
CellLabel->
"In[197]:=",ExpressionUUID->"a8c1fd5e-14b8-4edc-b2f7-b94c06f766bc"],
Cell[BoxData[
GraphicsBox[{{}, {InsetBox[
GraphicsBox[{{{}, {},
TagBox[
{GrayLevel[
NCache[
Rational[135, 256], 0.52734375]], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJw9l3c0Ff4bx40ke16b695rfhMqoYznkRVlNJBoiYZsyi5l9E0qpZJ8JTIi
o1tKRYW+sjLKHsW1rn0l2fK7/c75/T7/fM77POd5nnOec17PILl473NjY2Fh
YWVlYfnzhwdENEcdcje0rxMr3th6RrlYdf9xPbUnoFktdMAg7R9D9gsVxHDN
N2Bl3S3CYS8MHwgR9havKsBI3DZCecwczlTwjCW/rAbJH7KLQ3LuEKO2/ZOA
TiNs9M3f6ykUBSfDSg8WZnwFadm6542rd8HYKN+PPtUK5I+UlRy7TBD3FfX/
qNoJHCXcwT+7qLD2Zd0y76YeaPAdTdEIfAtpQmbKp3x7oS7CIzhoqgLUjP72
FAcaWIrEbq5SqgH2wic76t/1A0OkVZo21QjacT8ceQ4PwpHvpYM6I80wy7qm
H9E3BHsM3fIXXrWDAF3LLzyKDsfiG3cKDnRDJmvWg8/yozBbzZBdXemFyqLu
mH1pY+DlrFUlOkKDne3bK4/tnICgmPk9cUsDYHnbuSqzahICVzRz5geHoLA0
W9rfkwGbWvTvitDpYM6fuLkmehr4eK8sXX83CmGx+jqzZj+AfuKXwbDZOBwz
nHM7ITEDClw1Ru9eTMBVw9tzk90z0JTk8UCndhJ8Ousi0pJ/Qkt8WHrQoyng
yJPUSjo7C+auKaSn5gzorbWwyNv0C54l6UkU5DLgNOnGFXaWOdBbJtBnBxhQ
IOzzIbJhDvT1o6S0lhiww1bLkXhzHnw1xIs81xgQUMkrs3Z0AVbqQwlrTP0z
pgqXyIvA8t83DZoDxKNy/YvgEMlQ/GOXDozLiqEuQUvzduI5pt7t0G3D7b8M
4QcppnbM+H95G5K/mqyAxue02npmfuvmSPuXG1ZB6bD8WnUhAzS/nowqr14F
xt9FGfF7GVC24Ui3UNJv2HQzWW5D4RTcvaZzJ9xpDR6oNn5h75oE3sfCJWLi
LPg+hUvsUeEE5Fl1qEReYEHWsdrv35n185a7ab76nQWnB/04V5j15eJpCkky
Z0W+Zs9bXv10+CTLdtQ4hxVXjYbTetYPA22VrYyViw1HvgbGCikOQsvi9W39
Pmz4z1NeQoloP4xKczs3fWHDuFOzJiLKfdDqKJjYt4MdCeyX81aJPSDvNmTN
kc6OL7VucoWt74Ab954W67Ctw6irLy8O6bdA88CyVpz7OhwO2/twbmcT6DkY
nJiqW4eJWq6lkwk1EDK8IctvGwcuaogevtRaARLGj914Ujgw1exsarrbW+io
VG+jrnLgj5NRb0erqODjauIUcnI9Hn3vMWLOnwl/qe6+ZVu9Hh3XTE066u6B
cYm8iZ4KJyqz6qhkYDRsPRPBsyueE7dY1XRF7PYAM4MvkS4/OLGzyybb0dYS
NDflCaYe2oAjpzNTM8hCEDxmJzVdvgEtAoWHwrSSDQfrp1usyVw48so1RbLL
Qle5npDRGMuFx6JOnuDcnWsYN7NR4cgEF5K9rn6fbxMG2yFBEusebrSIu2z0
ycYcxn9e3PLpBTdmPEiba9rvATkqfbP3RXkwlSXENH0sEgyDa+uuh/NgPbef
nINUIswxMvfH9/KgyLrgaZJVJvBq2R7MBl60Gw4dNNxJhaWEKN++bF5km25o
7A5/C9xSuXrKXHz43DdQyTWqAmZKHKXi/fjwmuMnjVqtGtDd2HGOr4sP79yQ
JrFaNEFamfnl+zv4sSCrYTnvVzPQfI0emz7mR1GJrgtLIh1gYqF2joVDALvI
v7tPzHXD+qmhj42uApjqmeFi+akXUgtUlcs/C+BFp1/5UbM0KLAslO0TE0R3
pwQJvv4BmK/jf+6zWxCL8pr9O38OwfSL1iiei4J4vnmwOnmMDkvqBM1NhYIo
PC0vZJQ2CtPFSUNHBwQxwkP1TP3ucZhvvucvKSqEHpL/dJY9moB8+2X4ZiyE
Iw/2NFNeToINPUPseaAQNnrtLC9MnQI2nqpKvidC+KzKLO2eAQPS9NUvhvQI
YaBrklMNk/+9rPxCXnzCeKO/es9xGgOoana0swbCuC1WFYMXGLDiRisJ8RVG
js/PhKyY/B7cMuwlmC6MhagatcrUj3g11YrbhPF//Cda0ZRPc4tgwMdgjj/8
PyLxrKTuEEGZDuMH15j6DntI14iXCF562DYtyuT/QdDxW69TRTBh2tnp0hAD
bA48i7ndKIL2J32KZosYMG1gEhPOLoq1+ibutbYMSH9re4SxVRSJES6zZ0qm
AE3T0e+0KDZQVrkl2yfhurbT8bVkUcwi3Xyxntkfx9/GHRL5LIqXNK3V3E6O
wzYr9iO6LATMPCNhbV42CvF+M9sHNQlY1sY4u4dzBNozleTT3Ag4VWu1UMvk
vx4qTE4nEfD2nRNPnVcHoNWjzehVDQE3519b7Bfqh+psDQvCbwLGv0i2GVjo
hc/nWFWX1cXwbirrgXLRHojI3WE+fkQMw06c0xcx7QDi5GvvidtieD7xAzFI
rQWaKgp9Aj6KoTec6T8c1AQeWeOhfAtimNQ1k/LGswZeT9+ofLZRHB8fWjI0
bKsAQkMuvctJHHe6653qJJbAkTc8omLx4kjX0+BqekeF1zpDEh1l4qhbVRyV
15MJ5TJKzhnT4qhyr2hU3/Q+vBLIy7mkIIEbAosin4dGQ+nd3MahAxJo3GlF
oLp6Q4Hq1NqhqxLoxeMQOfXIEqi2uRsc3kqgDUF4Mo1GANfv9TaHxyRwm81f
bW0nigzZQrTTAuQkcVdOPjqd3q1PfSJeJ2wjiWksKXZJdfGGe4YM1sojJXF4
stn+hB0/JP5d5xtaLInL60qvFbwzh5/vv5SW0CXxmLqvAH2jO+xglxXmk5HC
F5MJnI5boiChqw+G9kjhSO57RrHGPUiW4M2rCpPCYO+4DpYjGXDTNYxc8kwK
KXRHs0pDKtwxdvPdRpPCfLZZCVrFG4jWTKgtI0gjT7B75/LVClCMUnGxt5DG
HsPvSm6iNdDmrv3VL1garR6N9csPNYL/0at7HuVLY+UO8egLzPlPoh9IPfBd
GueX2rirStuhJMxtRVJEBvV++7/ymeqGdcHfEkfNZNB2a9DK7Po+OLqhgQcD
ZTBlnTt5708aZGayx2Y/lcHv2bD38oZBWGml9t3tkcHi+7d4T/waAnbPqnM3
eGWR3l82eLeGDnNCZMJ9lEWxnZ4r8xmjsGTxK07FVxb7E3rH7LaOw+hNPoHa
TFnM+neuVTtzAv7Wv954rlMWwyZ9kko+T4JuWPTpJ1xyaH2Kv8Hr8RS01FTw
TBjI4ezi2FsHSwZcyg268sqLaXeWFy3IY8C3H3eNrj2UQ+OK2zVBTP4VzRc4
fL/KYQBr92ToIgMuaDSnf2Mj4tbGEpO9TH4/Kv60cNIh4pYI9se/mbr4cojG
gDvx//y/8wuZ/PGAiEvVMWJ/+C/w+fBSqJGIiZuuf/ViaipruP3rNSLqXC+R
IDL5t236wKIrJY8sRxO3j/UzgNgc8EtCSx6NRwUNqTkMOE88aW+wRx7Fzder
PjRj5p8J1nc/KY+Bagk/LqVMQZJA7Y2uC/JYctxy7Fz5JFT1WrE03ZPHfIuT
TWsFEzCmPTtX/0weX/cL5/OYjMO99jZHgRp5pF3ad8f99SjornUbOQ7I44K0
4JP3nXTY0iVqobIqj+XPXw7+pg1B0e+rpTsIJPx9bXni/coAqOWSXtppkFCz
996P0FEabEr9JVlkTkJ5wah4qZleiDZfTUk8SsJoj2/ddQo90HxeOTsymIQ9
NM7K9xwdkMu4LvPiFgltPp4++k67BQIZYuLjT0kocs26/4dOE3zW7Qk/+S8J
5fYdUlU/XwPB21rZT/WQkLyg4/F2z0eQeTPN7zNHQr53an72ciVgHrMrppSf
jBsVsrY37X0Op7sqLgupklH9QUeuWG0m0Gg+D8d3kvHDrx4Np8F7MLDFSYnL
iYxnx576bjaOhi7u01s1zpHRNEhoYiPRAw6pUfPuXydjrQ/19qGvFrCFVd30
SiYZHU0sC1INxYDlcL3LhQ9kNMoKUXN++8TQni1n4nU7GRsefhKcvbVbP109
e3n5BxkV99v69jI9zPg7Vf/loaDM6c9VzjLC4Kdj/m8jhYIfwiOCCtbM4A69
fWDAgILNIZ/0u409AGgZ3nr2FEzSDMntX46EvuN3IpJ9KEjtYrFQw0TouFv8
LCKWgnYyp/rYRbPAUUTcKiedgpfa2ToPNFGhSTzJq6uUgtqCxGMcUAKNbg4r
1q0UjOUtN/VdqwClUxY5uyYpKJh/vKRApgb8GYe7LTkVULZu8fwiNoFFeUFw
PFEBaVZXzfNmmkFUipzyfbsCbuSnXPcV6wAdpZpe6n4FvBZe75+8uQcGQvNu
VJ9VwGl/9tgr7H0QffB5BT1aAam1MT554v1QeGHWxfKhAj4elY7v5hyEzQfd
yVteKeALwXy/u6NDkPOa7RS5SQGlDxG9PQfokOPSLm4/ooBbbrSkcqSMQmpC
g9VtNkVMWhTIVrccBzl+tmkhaUW0arK1IqVNwKzeGarYVkV0vMJF73o1CWXT
M/MUK0V0bZDxW5c+BQTG69wAN0XUjdqbOg4MOBaQ1l9/URGzjYVUrzL5Z8t/
tz0vSRFDHEOHtQeZd4iG2Go9VRH/CcjMjGHyb617y3ShjulvlLMjiMnvQuyu
JbdBRSSFHH/zh//F+K0NB1cU/8//tKyR8gExJZS/9m3pj91nNnbitroSir1b
53GFqYf3zmt37VLC2UyTC8PM+C9cEh9luShh8v78i6zM/Z/rnf/5VyFKyL+p
feoYc/+3e+j3peGOEmq/l/I1YPKvWpN//698JXR122wxnDsFdtkyF3kqlfB3
zKU3tR3Mu4q3YGz2uxLG7Hph48uc/6SS0ArSvBLGOtk7d7iOQ/n0WaKDkDIG
Xuh9RikdhTHv+yONqsrYoHczXJtlBM6mLzTVGykj15YN++PVmfu/U6hhi5My
SndQMnUpg9B3ZIeEXIAyut0hJMts64fWEelAnxvKeGzGVmlYpg/ISpt/mT9R
xuJOwtcxmR6Yz7vc61KmjOcJzW8KzDug4u2cdUyXMuYfEb6dpNoCYsLZf03O
KKPokIm7r08Tc15fU+zkVkEFZ119L45acCm4lVmvoIJbE14ux+77CHFXW25x
GKjgQc7lsPqBEsgb385u5qCCCea/Iw9bPwcKa3MCj68KJpVxaMtxZwHl2JN4
0asq6OC6698hj/sgafZIWOmxCg6XNQ3E34iGxHMtLKElKvjmjulQ9wFv4FHb
GNDRqoKecZ2eqxaW0H735foShgqqEy0rqTzCoGYRxkHjVEVrWaOyA9E5hnVR
D/ctk1RxxeH3vT/3/38A/LCGWg==
"]]},
Annotation[#, "Charting`Private`Tag$350876#1"]& ]}, {}},
AspectRatio->0.15915494309189535`,
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{None, None}, {None, None}},
FrameStyle->GrayLevel[
Rational[43, 64]],
FrameTicks->{{{{1,
FormBox["1", TraditionalForm]}}, {{1,
FormBox["1", TraditionalForm]}}}, {{{0,
FormBox["0", TraditionalForm]}, {
NCache[Rational[1, 2] Pi, 1.5707963267948966`],
FormBox[
FractionBox["\[Pi]", "2"], TraditionalForm]}, {
NCache[Pi, 3.141592653589793],
FormBox["\[Pi]", TraditionalForm]}, {
NCache[Rational[3, 2] Pi, 4.71238898038469],
FormBox[
FractionBox[
RowBox[{"3", " ", "\[Pi]"}], "2"], TraditionalForm]}, {
NCache[2 Pi, 6.283185307179586],
FormBox[
RowBox[{"2", " ", "\[Pi]"}], TraditionalForm]}, {
NCache[Rational[5, 2] Pi, 7.853981633974483],
FormBox[
FractionBox[
RowBox[{"5", " ", "\[Pi]"}], "2"], TraditionalForm]}, {
NCache[3 Pi, 9.42477796076938],
FormBox[
RowBox[{"3", " ", "\[Pi]"}], TraditionalForm]}, {
NCache[Rational[7, 2] Pi, 10.995574287564276`],
FormBox[
FractionBox[
RowBox[{"7", " ", "\[Pi]"}], "2"], TraditionalForm]}, {
NCache[4 Pi, 12.566370614359172`],
FormBox[
RowBox[{"4", " ", "\[Pi]"}], TraditionalForm]}}, {{0,
FormBox["0", TraditionalForm]}, {
NCache[Rational[1, 2] Pi, 1.5707963267948966`],
FormBox[
FractionBox["\[Pi]", "2"], TraditionalForm]}, {
NCache[Pi, 3.141592653589793],
FormBox["\[Pi]", TraditionalForm]}, {
NCache[Rational[3, 2] Pi, 4.71238898038469],
FormBox[
FractionBox[
RowBox[{"3", " ", "\[Pi]"}], "2"], TraditionalForm]}, {
NCache[2 Pi, 6.283185307179586],
FormBox[
RowBox[{"2", " ", "\[Pi]"}], TraditionalForm]}, {
NCache[Rational[5, 2] Pi, 7.853981633974483],
FormBox[
FractionBox[
RowBox[{"5", " ", "\[Pi]"}], "2"], TraditionalForm]}, {
NCache[3 Pi, 9.42477796076938],
FormBox[
RowBox[{"3", " ", "\[Pi]"}], TraditionalForm]}, {
NCache[Rational[7, 2] Pi, 10.995574287564276`],
FormBox[
FractionBox[
RowBox[{"7", " ", "\[Pi]"}], "2"], TraditionalForm]}, {
NCache[4 Pi, 12.566370614359172`],
FormBox[
RowBox[{"4", " ", "\[Pi]"}], TraditionalForm]}}}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->{{9., 9.999999999999943}, {29., 27.999999999999986`}},
Method->{
"DefaultBoundaryStyle" -> Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" ->
None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->
NCache[{{0, 4 Pi}, {0., 1.}}, {{0, 12.566370614359172`}, {0., 1.}}],
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}], {890.6375, -888.825},
ImageScaled[{0.5, 0.5}], {1657., 1693.}], InsetBox[
GraphicsBox[{{{}, {},
TagBox[
{GrayLevel[
NCache[
Rational[135, 256], 0.52734375]], AbsoluteThickness[1.6], Opacity[
1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJxdlnk4Vd37xs+R2UF0pEQy9Ir0Nhii8CxjKUKDqaI0yqy3DA2GJESGUhoM
pWQImTKEJUpUIrPMUzLP5+Ccw2/7/vnb/6zrc+19rfWs+37WvpeUncvRC2wk
EolMJpFWx///+HSkflRXTIZMjtGQ7Lo/msh8wujmrkKgfpZ8q2BorDVmIjJ+
8EM51Oq1yld9fagV+vum7/O8KhBQdvu2hvxFS3D0ppXg3loom3oW2ik2rmVV
z0vNfF0PAmeso2y28kCEYez3PxNN4C3erBcbJw07vk1SPsm3ge4e0qV+L1VI
9JcS5tjRAQa7qJSCOAMgD5/mOeLWDR4UM/2/307AAyNTBk2rFxb52QRlXtpB
xY8Xg/4lfVBU8uxJcLkTeJpdtbpwagB6LH0rrK55QE9We/O+7kFgB5cGRSU/
+CKays/jPwQmzTaiR/mDgfN+9d8L4sOg+6tRlC8gEqZbnTaKPhuBbpupGz+O
PQHZ7ZRX91TH4L9HDPcASjzMO6nikLxx0A7d9HNTZyI8O65dVWE2Cd5btFxd
3FIg1/XfT45uU3DVOv6yam8meFhpsN9UmIabxpZnGRdyYGXo9nfnqWm4IUWn
x6TlA6cJ74xW0gxUTvkdu6tQDBXzd87tPTELI6LD86H3ysBkr1ZLu8Ac5Ep3
NGy6VgHeZyJTPuTPgderpuDd7pVQvGv6lKv9PHBLFtr1zFfDGfmkDWLCNNiq
E1FelFEDBjZqsw0pNNh+eWy0KasOfnt7/Ow8QIe/DwbNWA318PRN08nJRjqk
RZ+tOTjRCBFiQrrtlgtwMoLJcU20BcL9lXiCexbg+hbF0saQNliIbjL7ZbEI
Pn81JrXH2uHxlX5SW90i6JaZrg962gUbLB1UmtWX4JVl7kmvJz2w+3yMnODT
JRBhU//AGugFGaXxyMf0JRCX/PRR2bIfVO9md4cdYMBrcRu1p0UD8MX1y4RB
NAPkUl26VXT+wJemTeFFrQx4+ZN+Rrt6CHoveJeR1zIB7xFypu0bBufv6A9J
jwnuhc8loG4EPtcOvw9yYoKEO5U0azwG8fcfcG2NYEJdhFzd08pxMLL/57JT
JhNCek+UWJ+dhCBsIGv4lQkOobeEBAnf8hOvUentTFg+YS8srzMN4XsNJd+N
MsFuwkm/VXAGCrdFra2hMQGFK4qM1M4A6fj93uQVJlh+UHa2S5gFjwspst4c
LHCkWxxZe24O/HfbfMzhYYHzhm31/KrzkBtxNfUghQU7ooQl9nPQIKn1hFQu
Pwv65j7FB1bSwEBpxf6eAAsUjdn2i8bQ4R75VVM/wZ9KBCMqTi6Aq8Y2JR5B
Fhye+DYds2kREs3uyqwnuOvWWt/s0UXoz9xXvIFg4dIU16H0JVC8E7Z2I8Fr
TGxCzvgyoOuHs/Aq+7hnxbKZMEHtTNv/+JjykHAZMaq6ma1b5dd7dmd96mHB
8t4RwVU2vnU6qytxGcgbMqpW519vLJcme24F7Cs7t6yuv/R15aLFRhKqyPEt
5CVYjrpTXsGbhEQOSL3rI+oX7F9hbe4noQ5Vi4gAgjuf072k9MlIxIJHvZLY
f8DAd2O1N2RkYGu2okvoE8bVleHKz4Y4v+8J7yL0K9qNQvOc2ZBY20hkKaHv
s+jrChtb2dD6WkWTWEL/luOXy0NgDTpA2cj0ozMhb0dN40r8GtQZt7xym/Bv
HWXR05ebHZmebbBI62CCz+xM7Yw9O0q+0aq/5xsTHnN5nTOpZkcyre+fS2cx
oYBi/ffWLg5kwi6Z5PmICfzKMi8cIjgQ+2N/Xi4XJhxjUAw76RwoiJbUpKJL
9FPaoaP5pziRWuZ4R/A6JrSri7UuFnKicLHqqMkWBlgKPZfm2MyFDN3lS+/E
MOC/xejH27y5UB9akPt+lAEPU6KKRRu40FPyqVjf5SXQCs698G03N/KJq7+b
+XYJwiYu3lIJ4ka7Y68+yEBLkBJvcCWwnxtJr0tI029dhKg3KofMVXmQ4l2j
DbZXFqE3aHSC4y4PSp7PjFkcWYCHeq/zT7fwoE0+Zo1pjgtwtOSblLIUL6IV
ZVQLdNBByGFTcokTL2IpOt54YUCHDQFdD7bn8aL7XwdVu3NpkKuS+fDoHC/6
zr9CNVtLgyLOprAWZT40E/ZOacp1HjiVl033OvEhmejRq2m1c/C86fEZnMCH
jJ9kp/tvmoNkxaVfto18SJUxuLToPAsKBw0br5MoiCPWXv1t5gz87mfKVm2n
IIGIgUg24v+4vfmBb50ZBbntF6y22jcNSoOnD1i7UVB7Oq0s0X0KFhyaJezD
KahmvqXayHESJG9YiZS9paCwS5dO764bh84J03SzUgrSo/uSC9TG4ODLitm/
dRR07iptJqFoBA5oiBSbd1MQvyXl/A+xYfj8y85IfIyCsoZl672jh0C21DYm
YZ6CkumOvOKif+DB4rj1IpOC3J3M6VUeA/CJbrSDew0/4lhJtR+Y7YP8NK7A
HVz86HCihqOxSS+kPe33suDlRxGNmaMR57uh82U3ukjhR7UH7MaXz3bAvOKz
r3H8/Gj8lq310c1tEFdcaHFJgB95SCgXKQk3Q7K1V8R3ggsEzMddRBpgD/lL
BoPgz1W9pqqZtWA65SMkJMiPgnq3RGe9qoaT92xcRQl+dok7jI9aAdXepaSN
BN8dERqlDhdCxPpPO1c5X99Gj7M2DUoE3JRWmTuYm9ym4gjmGmHKq9zyM/BM
/v0krClupbLKSmH1hcluBTg18c//vqcxXmSwvS/Hqfs3CqzyP/wgSCmowmVx
4gOr65PVL+ap6tTiWDv79tX66hzpcnEZ9dhaavj9ClH/7gqXJ5/fNWFDzYAD
jQTHnp62XxptxXs8nzJcCP6U2qj1bLYd63mGeJUR+kStyXsDGt34Pi687k3o
Z+fbvrVgXy+WUsnz8CD0tbqzp9ztYx9WFaVuSyf0z+qWf+B3agCHabL22RD+
SF/Vv3+ndxAnXxyP6WBRkFm17+2bgUM469HdO7OEvzNfrDaSZYax2khCY98o
BWnmvWpoejWC/f3qpP7poSCRXmRupz2GD4eIMEOJ/hk+4VvhWT6O9wTEt5Mw
BV3P6dWPUp/EvhEZnjiVgg4925blc3EKv89RTxGNpCC7X795C7dM4w5Lr1TP
axQU16qX2jI0jZslE5aPHqOgl0MPF4STZzAV7Q+120FBy+3JkssWs/iJrl4D
nYOCDNJbawKF57AHn2LK92bi/EgjU7XiObzHzpszNokP1YopODBPz2OOKY38
0Kt8KLRG3naMi4bbGXZv5vbyoa2ChiIdCTS8//TbF8FMXjSeaucmiuj4r4yv
25YC4jzv2iB6vongENt6ETdeJCURto7TegGvhMb5BW7nRU+OqVUe61vAPMEn
Hd928CA9kw1pctaL+NXdBPuVcB4ko/zmWELDItbV3zrSoM6DsqTbjGR0ljC1
U+vJkT5uNGxkI7Pv5RJWEqV66j7gRkEtv0U9VpZwzMk30ZW7uNEdwWxTMRMG
brLd/9OvhQuti+dTvxLNwCxpTqdTt7lQRrVuwb9tDLxMNeGhinOhEvXKI9lr
mbhDtcRoM+ZEFmEipFY9Jtb0SZDXtuJET1x33XRwZeK1BXL1VnMcKHWn7kh5
FBNbD4ptehHNgS4VUhTzs5j4wjppf8t/OZB2jPgtvWrifVevzeMadtRziqrZ
187ECfG2srec2dE2WltmxigTZ68hxYlxsSPXnvHJDhoTa3h5uAUmrUFhgY/Y
SleYmOtyflOp5hrkXbM1N5yDhfVpqQ4d7WxIcHRX4FUeFg73anHrvsGGmgV2
ZslSWHhZqvh+yTo2hBKdWQn8LFyC1J1Cs8nos5x2020BFj7reqlAzZCMjMpK
/Ij8xz1B5yzqekko4NEODSL/cXd2mbq1HwkltF9ARP7i5oBvHOUbSEjnfX8H
kc84XeeYtprzCkjJV6kR+Y0bZZ1uVWQsA1ewr/YqvzR2j+DtJvKdma63ygsy
0dqqEiw4+vX6gVWO/ZRYLXGYCTnah3VX+flnqmXHTQbQvncsrc5/NiIxwKd4
CVTkMk1W1xdokAnqIu4fRnvla4j8x/WzkgrS8ovgSrfVIPIf7/RnJUmZL0Bd
IfK6QXCtFAstBNJB8j5zfQ6x/wDnkuqcLzSYNGDZbCb0ER67Z6o4Nw+hudmu
sYR+h6h0odBd8yD+WLevltDX/MPg1SrXOVgvNNL5jtD/yw4L65/E/SvbmaM0
mM7Ex6MfuNd0zYDYxfUr1wn/Tp1Oq86jzMC2Bd/rqYS/qVgnIF9rGiaKO6n1
VUzs6jd5d/L2FKTH213Xz2RiW4nblUK2kxDpyRPJR/SPfVGr29HOcbgwOx/a
6MLEJEfJnZwXxuAZp2XkX10mPnu5WNCldgT4rM1EBKhMHOxRqaZpOQzrN6bk
7Gll4ES/MN7pL0NALefd5xLDwOxR8V1mx/7Aa3LW0MGjRP+/q3N4ND4A8dIX
2TxZS1j64Wvpbtd+eD+Wm8qbtITzRk7U2or0Af1h49pjWkvY9Y7QxitJPeC5
FMB+v3YRDxpYO36M7IIU1fvHz59ZxD/mmg85i3XAiM66vwndC1iyNuuGQ2Ab
1LmozM/YLuAMhYDzuaotMFY58Eyog457/N/ND/E2gc1mbu5f+nTs0PTf7pAf
9dD/R15LOYeGx/0HqTl1dfDC+FVdLj8NUx8VnHr8qAbCijS9l87P4+57Ac95
uqpB5Kf90JXyOex0Q0Y57E0lXL7mrTJCmcN1tH8VqhwrIHM8K53fdhZLnPsx
TE4vg7mMGKc/72fwT7dvps/diyF8LkJDZ2oai0a9a41KzYdToqNbI9Wnsc1Y
h1htTg4kOHH0f3edwplHPiYktmeCiKZP0LWLk9iSw+4vuSwF5HcYXX8yOY7H
NNmDhZ+8hhF528fy5mN4fLs0wzIvHtqdBp/yNo9geb+HzdrWMVBmohAtozyM
baz3VlS0RML5tdqa6TFDeH1R7wObkGD4I2GNZDb8wSTRTdkHZP2Bwqfuknh9
AOe1bhEsFPOErMLQU5FTfThMWUmnN9wFRNVsC1bcevHBLFwgOHAOeBt4/ot9
040vrdfhJieawwz5iH1WXAf+OfHotWHXQaAedmalmLfhgVwf+xjPvbCscLJ6
UaIZt+dOO4e/loExckj0b/EG7M49VD7xnp/o17f1x/NqsUfvPM1JYEpLxkj3
4MaEahxye1EzO7xay2GNtnsxdwWGKqWIWxevaf2XRI3fuaUQ695SsWM/G1m6
xfWMxxmxVHzjhPBJn6dRpR9IcpcbeBJK3W4XjsrZPyz9P8Ui5H4=
"]]},
Annotation[#, "Charting`Private`Tag$352345#1"]& ]}, {}},
Axes->{False, False},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{None, None}, {None, None}},
FrameStyle->GrayLevel[
Rational[43, 64]],
FrameTicks->{{{{0,
FormBox["0", TraditionalForm]}, {
NCache[Pi, 3.141592653589793],
FormBox["\[Pi]", TraditionalForm]}}, {{0,
FormBox["0", TraditionalForm]}, {
NCache[Pi, 3.141592653589793],
FormBox["\[Pi]", TraditionalForm]}}}, {{{0,
FormBox["0", TraditionalForm]}, {
NCache[Pi, 3.141592653589793],
FormBox["\[Pi]", TraditionalForm]}}, {{0,
FormBox["0", TraditionalForm]}, {
NCache[Pi, 3.141592653589793],
FormBox["\[Pi]", TraditionalForm]}}}},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->{{9.999999999999886, 11.}, {29., 27.999999999999986`}},
ImageSize->Full,
Method->{
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"ScalingFunctions" -> None},
PlotRange->{{-1.8161862174569774`,
1.8161860231985663`}, {-2.8924294401785175`*^-7, 3.632372299940043}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.05],
Scaled[0.05]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{{{
NCache[Pi, 3.141592653589793],
FormBox["\[Pi]", TraditionalForm]}}, {{
NCache[Pi, 3.141592653589793],
FormBox["\[Pi]", TraditionalForm]}}}], {2671.9125000000004, -888.825},
ImageScaled[{0.5, 0.5}], {1657, 1693}], InsetBox[
GraphicsBox[{{{}, {},
TagBox[
{GrayLevel[
NCache[
Rational[135, 256], 0.52734375]], AbsoluteThickness[1.6], Opacity[
1.], LineBox[CompressedData["
1:eJw9l3c0Ff4bx40ke16b695rfhMqoYznkRVlNJBoiYZsyi5l9E0qpZJ8JTIi
o1tKRYW+sjLKHsW1rn0l2fK7/c75/T7/fM77POd5nnOec17PILl473NjY2Fh
YWVlYfnzhwdENEcdcje0rxMr3th6RrlYdf9xPbUnoFktdMAg7R9D9gsVxHDN
N2Bl3S3CYS8MHwgR9havKsBI3DZCecwczlTwjCW/rAbJH7KLQ3LuEKO2/ZOA
TiNs9M3f6ykUBSfDSg8WZnwFadm6542rd8HYKN+PPtUK5I+UlRy7TBD3FfX/
qNoJHCXcwT+7qLD2Zd0y76YeaPAdTdEIfAtpQmbKp3x7oS7CIzhoqgLUjP72
FAcaWIrEbq5SqgH2wic76t/1A0OkVZo21QjacT8ceQ4PwpHvpYM6I80wy7qm
H9E3BHsM3fIXXrWDAF3LLzyKDsfiG3cKDnRDJmvWg8/yozBbzZBdXemFyqLu
mH1pY+DlrFUlOkKDne3bK4/tnICgmPk9cUsDYHnbuSqzahICVzRz5geHoLA0
W9rfkwGbWvTvitDpYM6fuLkmehr4eK8sXX83CmGx+jqzZj+AfuKXwbDZOBwz
nHM7ITEDClw1Ru9eTMBVw9tzk90z0JTk8UCndhJ8Ousi0pJ/Qkt8WHrQoyng
yJPUSjo7C+auKaSn5gzorbWwyNv0C54l6UkU5DLgNOnGFXaWOdBbJtBnBxhQ
IOzzIbJhDvT1o6S0lhiww1bLkXhzHnw1xIs81xgQUMkrs3Z0AVbqQwlrTP0z
pgqXyIvA8t83DZoDxKNy/YvgEMlQ/GOXDozLiqEuQUvzduI5pt7t0G3D7b8M
4QcppnbM+H95G5K/mqyAxue02npmfuvmSPuXG1ZB6bD8WnUhAzS/nowqr14F
xt9FGfF7GVC24Ui3UNJv2HQzWW5D4RTcvaZzJ9xpDR6oNn5h75oE3sfCJWLi
LPg+hUvsUeEE5Fl1qEReYEHWsdrv35n185a7ab76nQWnB/04V5j15eJpCkky
Z0W+Zs9bXv10+CTLdtQ4hxVXjYbTetYPA22VrYyViw1HvgbGCikOQsvi9W39
Pmz4z1NeQoloP4xKczs3fWHDuFOzJiLKfdDqKJjYt4MdCeyX81aJPSDvNmTN
kc6OL7VucoWt74Ab954W67Ctw6irLy8O6bdA88CyVpz7OhwO2/twbmcT6DkY
nJiqW4eJWq6lkwk1EDK8IctvGwcuaogevtRaARLGj914Ujgw1exsarrbW+io
VG+jrnLgj5NRb0erqODjauIUcnI9Hn3vMWLOnwl/qe6+ZVu9Hh3XTE066u6B
cYm8iZ4KJyqz6qhkYDRsPRPBsyueE7dY1XRF7PYAM4MvkS4/OLGzyybb0dYS
NDflCaYe2oAjpzNTM8hCEDxmJzVdvgEtAoWHwrSSDQfrp1usyVw48so1RbLL
Qle5npDRGMuFx6JOnuDcnWsYN7NR4cgEF5K9rn6fbxMG2yFBEusebrSIu2z0
ycYcxn9e3PLpBTdmPEiba9rvATkqfbP3RXkwlSXENH0sEgyDa+uuh/NgPbef
nINUIswxMvfH9/KgyLrgaZJVJvBq2R7MBl60Gw4dNNxJhaWEKN++bF5km25o
7A5/C9xSuXrKXHz43DdQyTWqAmZKHKXi/fjwmuMnjVqtGtDd2HGOr4sP79yQ
JrFaNEFamfnl+zv4sSCrYTnvVzPQfI0emz7mR1GJrgtLIh1gYqF2joVDALvI
v7tPzHXD+qmhj42uApjqmeFi+akXUgtUlcs/C+BFp1/5UbM0KLAslO0TE0R3
pwQJvv4BmK/jf+6zWxCL8pr9O38OwfSL1iiei4J4vnmwOnmMDkvqBM1NhYIo
PC0vZJQ2CtPFSUNHBwQxwkP1TP3ucZhvvucvKSqEHpL/dJY9moB8+2X4ZiyE
Iw/2NFNeToINPUPseaAQNnrtLC9MnQI2nqpKvidC+KzKLO2eAQPS9NUvhvQI
YaBrklMNk/+9rPxCXnzCeKO/es9xGgOoana0swbCuC1WFYMXGLDiRisJ8RVG
js/PhKyY/B7cMuwlmC6MhagatcrUj3g11YrbhPF//Cda0ZRPc4tgwMdgjj/8
PyLxrKTuEEGZDuMH15j6DntI14iXCF562DYtyuT/QdDxW69TRTBh2tnp0hAD
bA48i7ndKIL2J32KZosYMG1gEhPOLoq1+ibutbYMSH9re4SxVRSJES6zZ0qm
AE3T0e+0KDZQVrkl2yfhurbT8bVkUcwi3Xyxntkfx9/GHRL5LIqXNK3V3E6O
wzYr9iO6LATMPCNhbV42CvF+M9sHNQlY1sY4u4dzBNozleTT3Ag4VWu1UMvk
vx4qTE4nEfD2nRNPnVcHoNWjzehVDQE3519b7Bfqh+psDQvCbwLGv0i2GVjo
hc/nWFWX1cXwbirrgXLRHojI3WE+fkQMw06c0xcx7QDi5GvvidtieD7xAzFI
rQWaKgp9Aj6KoTec6T8c1AQeWeOhfAtimNQ1k/LGswZeT9+ofLZRHB8fWjI0
bKsAQkMuvctJHHe6653qJJbAkTc8omLx4kjX0+BqekeF1zpDEh1l4qhbVRyV
15MJ5TJKzhnT4qhyr2hU3/Q+vBLIy7mkIIEbAosin4dGQ+nd3MahAxJo3GlF
oLp6Q4Hq1NqhqxLoxeMQOfXIEqi2uRsc3kqgDUF4Mo1GANfv9TaHxyRwm81f
bW0nigzZQrTTAuQkcVdOPjqd3q1PfSJeJ2wjiWksKXZJdfGGe4YM1sojJXF4
stn+hB0/JP5d5xtaLInL60qvFbwzh5/vv5SW0CXxmLqvAH2jO+xglxXmk5HC
F5MJnI5boiChqw+G9kjhSO57RrHGPUiW4M2rCpPCYO+4DpYjGXDTNYxc8kwK
KXRHs0pDKtwxdvPdRpPCfLZZCVrFG4jWTKgtI0gjT7B75/LVClCMUnGxt5DG
HsPvSm6iNdDmrv3VL1garR6N9csPNYL/0at7HuVLY+UO8egLzPlPoh9IPfBd
GueX2rirStuhJMxtRVJEBvV++7/ymeqGdcHfEkfNZNB2a9DK7Po+OLqhgQcD
ZTBlnTt5708aZGayx2Y/lcHv2bD38oZBWGml9t3tkcHi+7d4T/waAnbPqnM3
eGWR3l82eLeGDnNCZMJ9lEWxnZ4r8xmjsGTxK07FVxb7E3rH7LaOw+hNPoHa
TFnM+neuVTtzAv7Wv954rlMWwyZ9kko+T4JuWPTpJ1xyaH2Kv8Hr8RS01FTw
TBjI4ezi2FsHSwZcyg268sqLaXeWFy3IY8C3H3eNrj2UQ+OK2zVBTP4VzRc4
fL/KYQBr92ToIgMuaDSnf2Mj4tbGEpO9TH4/Kv60cNIh4pYI9se/mbr4cojG
gDvx//y/8wuZ/PGAiEvVMWJ/+C/w+fBSqJGIiZuuf/ViaipruP3rNSLqXC+R
IDL5t236wKIrJY8sRxO3j/UzgNgc8EtCSx6NRwUNqTkMOE88aW+wRx7Fzder
PjRj5p8J1nc/KY+Bagk/LqVMQZJA7Y2uC/JYctxy7Fz5JFT1WrE03ZPHfIuT
TWsFEzCmPTtX/0weX/cL5/OYjMO99jZHgRp5pF3ad8f99SjornUbOQ7I44K0
4JP3nXTY0iVqobIqj+XPXw7+pg1B0e+rpTsIJPx9bXni/coAqOWSXtppkFCz
996P0FEabEr9JVlkTkJ5wah4qZleiDZfTUk8SsJoj2/ddQo90HxeOTsymIQ9
NM7K9xwdkMu4LvPiFgltPp4++k67BQIZYuLjT0kocs26/4dOE3zW7Qk/+S8J
5fYdUlU/XwPB21rZT/WQkLyg4/F2z0eQeTPN7zNHQr53an72ciVgHrMrppSf
jBsVsrY37X0Op7sqLgupklH9QUeuWG0m0Gg+D8d3kvHDrx4Np8F7MLDFSYnL
iYxnx576bjaOhi7u01s1zpHRNEhoYiPRAw6pUfPuXydjrQ/19qGvFrCFVd30
SiYZHU0sC1INxYDlcL3LhQ9kNMoKUXN++8TQni1n4nU7GRsefhKcvbVbP109
e3n5BxkV99v69jI9zPg7Vf/loaDM6c9VzjLC4Kdj/m8jhYIfwiOCCtbM4A69
fWDAgILNIZ/0u409AGgZ3nr2FEzSDMntX46EvuN3IpJ9KEjtYrFQw0TouFv8
LCKWgnYyp/rYRbPAUUTcKiedgpfa2ToPNFGhSTzJq6uUgtqCxGMcUAKNbg4r
1q0UjOUtN/VdqwClUxY5uyYpKJh/vKRApgb8GYe7LTkVULZu8fwiNoFFeUFw
PFEBaVZXzfNmmkFUipzyfbsCbuSnXPcV6wAdpZpe6n4FvBZe75+8uQcGQvNu
VJ9VwGl/9tgr7H0QffB5BT1aAam1MT554v1QeGHWxfKhAj4elY7v5hyEzQfd
yVteKeALwXy/u6NDkPOa7RS5SQGlDxG9PQfokOPSLm4/ooBbbrSkcqSMQmpC
g9VtNkVMWhTIVrccBzl+tmkhaUW0arK1IqVNwKzeGarYVkV0vMJF73o1CWXT
M/MUK0V0bZDxW5c+BQTG69wAN0XUjdqbOg4MOBaQ1l9/URGzjYVUrzL5Z8t/
tz0vSRFDHEOHtQeZd4iG2Go9VRH/CcjMjGHyb617y3ShjulvlLMjiMnvQuyu
JbdBRSSFHH/zh//F+K0NB1cU/8//tKyR8gExJZS/9m3pj91nNnbitroSir1b
53GFqYf3zmt37VLC2UyTC8PM+C9cEh9luShh8v78i6zM/Z/rnf/5VyFKyL+p
feoYc/+3e+j3peGOEmq/l/I1YPKvWpN//698JXR122wxnDsFdtkyF3kqlfB3
zKU3tR3Mu4q3YGz2uxLG7Hph48uc/6SS0ArSvBLGOtk7d7iOQ/n0WaKDkDIG
Xuh9RikdhTHv+yONqsrYoHczXJtlBM6mLzTVGykj15YN++PVmfu/U6hhi5My
SndQMnUpg9B3ZIeEXIAyut0hJMts64fWEelAnxvKeGzGVmlYpg/ISpt/mT9R
xuJOwtcxmR6Yz7vc61KmjOcJzW8KzDug4u2cdUyXMuYfEb6dpNoCYsLZf03O
KKPokIm7r08Tc15fU+zkVkEFZ119L45acCm4lVmvoIJbE14ux+77CHFXW25x
GKjgQc7lsPqBEsgb385u5qCCCea/Iw9bPwcKa3MCj68KJpVxaMtxZwHl2JN4
0asq6OC6698hj/sgafZIWOmxCg6XNQ3E34iGxHMtLKElKvjmjulQ9wFv4FHb
GNDRqoKecZ2eqxaW0H735foShgqqEy0rqTzCoGYRxkHjVEVrWaOyA9E5hnVR
D/ctk1RxxeH3vT/3/38A/LCGWg==
"]]},
Annotation[#, "Charting`Private`Tag$352379#1"]& ]}, {}},
AspectRatio->0.15915494309189535`,
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{0, 0},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{None, None}, {None, None}},
FrameStyle->GrayLevel[
Rational[43, 64]],
FrameTicks->{{{{1,
FormBox["1", TraditionalForm]}}, {{1,
FormBox["1", TraditionalForm]}}}, {{{0,
FormBox["0", TraditionalForm]}, {
NCache[Rational[1, 2] Pi, 1.5707963267948966`],
FormBox[
FractionBox["\[Pi]", "2"], TraditionalForm]}, {
NCache[Pi, 3.141592653589793],
FormBox["\[Pi]", TraditionalForm]}, {
NCache[Rational[3, 2] Pi, 4.71238898038469],
FormBox[
FractionBox[
RowBox[{"3", " ", "\[Pi]"}], "2"], TraditionalForm]}, {
NCache[2 Pi, 6.283185307179586],
FormBox[
RowBox[{"2", " ", "\[Pi]"}], TraditionalForm]}, {
NCache[Rational[5, 2] Pi, 7.853981633974483],
FormBox[
FractionBox[
RowBox[{"5", " ", "\[Pi]"}], "2"], TraditionalForm]}, {
NCache[3 Pi, 9.42477796076938],
FormBox[
RowBox[{"3", " ", "\[Pi]"}], TraditionalForm]}, {
NCache[Rational[7, 2] Pi, 10.995574287564276`],
FormBox[
FractionBox[
RowBox[{"7", " ", "\[Pi]"}], "2"], TraditionalForm]}, {
NCache[4 Pi, 12.566370614359172`],
FormBox[
RowBox[{"4", " ", "\[Pi]"}], TraditionalForm]}}, {{0,
FormBox["0", TraditionalForm]}, {
NCache[Rational[1, 2] Pi, 1.5707963267948966`],
FormBox[
FractionBox["\[Pi]", "2"], TraditionalForm]}, {
NCache[Pi, 3.141592653589793],
FormBox["\[Pi]", TraditionalForm]}, {
NCache[Rational[3, 2] Pi, 4.71238898038469],
FormBox[
FractionBox[
RowBox[{"3", " ", "\[Pi]"}], "2"], TraditionalForm]}, {
NCache[2 Pi, 6.283185307179586],
FormBox[
RowBox[{"2", " ", "\[Pi]"}], TraditionalForm]}, {
NCache[Rational[5, 2] Pi, 7.853981633974483],
FormBox[
FractionBox[
RowBox[{"5", " ", "\[Pi]"}], "2"], TraditionalForm]}, {
NCache[3 Pi, 9.42477796076938],
FormBox[
RowBox[{"3", " ", "\[Pi]"}], TraditionalForm]}, {
NCache[Rational[7, 2] Pi, 10.995574287564276`],
FormBox[
FractionBox[
RowBox[{"7", " ", "\[Pi]"}], "2"], TraditionalForm]}, {
NCache[4 Pi, 12.566370614359172`],
FormBox[
RowBox[{"4", " ", "\[Pi]"}], TraditionalForm]}}}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->{{9., 9.999999999999943}, {29., 27.999999999999986`}},
Method->{
"DefaultBoundaryStyle" -> Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" ->
None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->
NCache[{{0, 4 Pi}, {0., 1.}}, {{0, 12.566370614359172`}, {0., 1.}}],
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}], {4453.1875, -888.825},
ImageScaled[{0.5, 0.5}], {1657.000000000001, 1693.}]}, {}},
ImageSize->Full,
PlotRangePadding->{6, 5}]], "Output",
FontFamily->"Segoe UI Emoji",
FontSize->11,
FontWeight->"Normal",
CellLabel->
"Out[198]=",ExpressionUUID->"25c8d707-dbde-4a5e-aaeb-029c911fdcbd"]
}, Open ]]
},
EvaluationCompletionAction->"ShowTiming",
WindowSize->{Full, Full},
WindowMargins->{{-4, Automatic}, {Automatic, -4}},
CloudRenderingMethod->"InteractiveBoxes",
FrontEndVersion->"12.2 for Microsoft Windows (64-bit) (December 12, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"bd87b511-71d9-431b-97af-8d7450414e64"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 22926, 463, 475, "Input",ExpressionUUID->"a68001d4-5f1e-4b83-8af8-5ffeaf0911a7"],
Cell[23509, 487, 326, 10, 30, "Output",ExpressionUUID->"efca1a26-5a19-4975-9913-1c8338156436"]
}, Open ]],
Cell[23850, 500, 35934, 621, 792, "Input",ExpressionUUID->"1cb68996-1682-47b9-a616-08af5811bee5"],
Cell[CellGroupData[{
Cell[59809, 1125, 8617, 181, 265, "Input",ExpressionUUID->"a8c1fd5e-14b8-4edc-b2f7-b94c06f766bc"],
Cell[68429, 1308, 27571, 544, 554, "Output",ExpressionUUID->"25c8d707-dbde-4a5e-aaeb-029c911fdcbd"]
}, Open ]]
}
]
*)