1888 lines
95 KiB
Mathematica
1888 lines
95 KiB
Mathematica
(* 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 ]]
|
|
}
|
|
]
|
|
*)
|
|
|