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