(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 150, 7] NotebookDataLength[ 318007, 8009] NotebookOptionsPosition[ 295458, 7285] NotebookOutlinePosition[ 296600, 7326] CellTagsIndexPosition[ 296470, 7320] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "\:7b2c\:ff14\:7ae0\:3000", StyleBox["Mathematica", FontFamily->"Palatino Linotype", FontSlant->"Italic"], " \:30d7\:30ed\:30b0\:30e9\:30df\:30f3\:30b0" }], "Title", CellChangeTimes->{{3.5198539291170936`*^9, 3.5198539581917567`*^9}, { 3.519854070375173*^9, 3.519854070791197*^9}}], Cell["\<\ \:3000\:3053\:306e\:7ae0\:3067\:306f,Mathematica\:306e\:30d7\:30ed\:30b0\:30e9\ \:30df\:30f3\:30b0\:8a00\:8a9e\:3068\:3057\:3066\:306e\:5074\:9762\:3092\:307f\ \:3066\:3044\:304f\:ff0eMathematica\:306f\:30d7\:30ed\:30b0\:30e9\:30df\:30f3\ \:30b0\:8a00\:8a9e\:3068\:3057\:3066C\:3084JAVA\:306e\:3088\:3046\:306a\:624b\ \:7d9a\:304d\:578b\:8a00\:8a9e\:3060\:3051\:3067\:306a\:304f\:ff0c\:95a2\:6570\ \:578b\:8a00\:8a9e\:ff0c\:30eb\:30fc\:30eb\:30d9\:30fc\:30b9\:30c8\:ff0cLISP\ \:ff0cProlog\:306e\:3088\:3046\:306a\:6271\:3044\:307e\:3067\:5e83\:304f\:5bfe\ \:5fdc\:3067\:304d\:308b\:ff0e \:3000\:624b\:7d9a\:304d\:578b\:8a00\:8a9e\:3068\:306f\:ff0c\:30d7\:30ed\:30b0\ \:30e9\:30df\:30f3\:30b0\:3055\:308c\:305f\:547d\:4ee4\:3092\:9010\:6b21\:7684\ \:306b\:5b9f\:884c\:3057\:ff0c\:51e6\:7406\:306e\:7d50\:679c\:306b\:5fdc\:3058\ \:3066\:5909\:6570\:306e\:5185\:5bb9\:3092\:5909\:5316\:3055\:305b\:3066\:3044\ \:304f\:ff0eC\:8a00\:8a9e\:3084BASIC\:3001Pascal\:306a\:3069\:307b\:3068\:3093\ \:3069\:306e\:30d7\:30ed\:30b0\:30e9\:30df\:30f3\:30b0\:8a00\:8a9e\:306f\:624b\ \:7d9a\:304d\:578b\:8a00\:8a9e\:306e\:69cb\:9020\:3092\:3082\:3064\:ff0e \:3000\:95a2\:6570\:578b\:8a00\:8a9e\:3068\:306f\:ff0c\:6570\:5b66\:7684\:306a\ \:8a00\:8a9e\:4ed5\:69d8\:3092\:3082\:3064\:8a00\:8a9e\:3067\:ff0c\:8a08\:7b97\ \:306f\:8a08\:7b97\:7d50\:679c\:3092\:5f15\:6570\:3068\:3057\:305f\:95a2\:6570\ \:547c\:3073\:51fa\:3057\:306e\:7e70\:308a\:8fd4\:3057\:3068\:3057\:3066\:884c\ \:308f\:308c\:308b\:ff0eMathematica\:3084Lisp\:304c\:95a2\:6570\:578b\:8a00\ \:8a9e\:306b\:8fd1\:3044\:7279\:5fb4\:3092\:3082\:3064\:ff0e \ \>", "Text"], Cell[CellGroupData[{ Cell["\:ff11\:3000\:30d7\:30ed\:30b0\:30e9\:30df\:30f3\:30b0\:306e\:57fa\:790e\ ", "Subtitle", Evaluatable->False, CellChangeTimes->{{3.5211043338755903`*^9, 3.5211043374527946`*^9}}, FontFamily->"Arial", FontWeight->"Bold", Background->GrayLevel[1]], Cell[CellGroupData[{ Cell["Mathematica\:3067\:306e\:30d1\:30bf\:30fc\:30f3 [ x_ ]", "Section"], Cell["\<\ Mathematica\:3067\:95a2\:6570\:3092\:5b9a\:7fa9\:3059\:308b\:3068\:304d\:306b\ \:306f\:5c11\:3057\:5de5\:592b\:304c\:3044\:308b\:ff0e\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x", "]"}], "=", SuperscriptBox["x", "2"]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"f", "[", "y", "]"}], ",", RowBox[{"f", "[", "2", "]"}]}], "}"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ SuperscriptBox["x", "2"], ",", RowBox[{"f", "[", "y", "]"}], ",", RowBox[{"f", "[", "2", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.5160996953576865`*^9, 3.5198535045078077`*^9, 3.5226067324515553`*^9}] }, Open ]], Cell["\<\ \:3053\:308c\:306f\:3001\:8a18\:53f7\:ff58\:306e\:307f\:306b\:3057\:304b\:52d5\ \:4f5c\:305b\:305a\:3001\:4e0d\:90fd\:5408\:3067\:3042\:308b\:ff0e\:3053\:308c\ \:306b\:5bfe\:3057\:3001Mathematica\:306b\:306f,\:30d1\:30bf-\:30f3\:30de\ \:30c3\:30c1\:30f3\:30b0\:3068\:3044\:3046\:8003\:3048\:65b9\:304c\:3042\:308a\ ,x_\:3068\:3059\:308b\:3053\:3068\:3067\:30d1\:30bf-\:30f3\:306b\:9069\:5408\ \:3059\:308b\:5909\:6570\:306b\:5bfe\:5fdc\:3059\:308b\:95a2\:6570\:304c\:3067\ \:304d\:308b.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"g", "[", "x_", "]"}], "=", SuperscriptBox["x", "2"]}]], "Input"], Cell[BoxData[ SuperscriptBox["x", "2"]], "Output", CellChangeTimes->{3.5160996953756876`*^9, 3.519853504532809*^9, 3.522606732479557*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"g", "[", "x", "]"}], ",", RowBox[{"g", "[", "y", "]"}], ",", RowBox[{"g", "[", "2", "]"}]}], "}"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ SuperscriptBox["x", "2"], ",", SuperscriptBox["y", "2"], ",", "4"}], "}"}]], "Output", CellChangeTimes->{3.516099695395689*^9, 3.51985350455881*^9, 3.522606732519559*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Mathematica\:3067\:306e\:7b49\:53f7=\:3068:=", "Section"], Cell["\<\ \:5b9a\:7fa9\:3059\:308b\:95a2\:6570\:304c\:3082\:3046\:5c11\:3057\:8907\:96d1\ \:306b\:306a\:308b\:3068\:3001\:3055\:3089\:306b\:5de5\:592b\:3059\:308b\:5fc5\ \:8981\:304c\:3042\:308b\:ff0e\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ff", "[", "x_", "]"}], "=", RowBox[{"Expand", "[", SuperscriptBox["x", "2"], "]"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"gg", "[", "x_", "]"}], ":=", RowBox[{"Expand", "[", SuperscriptBox["x", "2"], "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"ff", "[", RowBox[{"1", "+", "x"}], "]"}], ",", RowBox[{"gg", "[", RowBox[{"1", "+", "x"}], "]"}]}], "}"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], "2"], ",", RowBox[{"1", "+", RowBox[{"2", " ", "x"}], "+", SuperscriptBox["x", "2"]}]}], "}"}]], "Output", CellChangeTimes->{ 3.5160996954316907`*^9, {3.5198535046288147`*^9, 3.5198535199346895`*^9}, 3.5226067325985637`*^9}] }, Open ]], Cell["\<\ = \:306f\:5373\:6642\:5b9a\:7fa9(Set) \:3068\:3044\:3044\:3001\:5de6\:8fba\ \:306e\:5185\:5bb9\:3092\:53f3\:8fba\:306b\:4ee3\:5165\:3059\:308b\:ff0e\:3064\ \:307e\:308a\:4ee3\:5165\:306e\:898f\:5247\:3092\:512a\:5148\:3057\:3066\:8a55\ \:4fa1\:3059\:308b\:3060\:3051\:3067\:3042\:308b\:ff0e\:3053\:308c\:306b\:5bfe\ \:3057\:3066\:3001\:ff1a\:ff1d\:306f\:9045\:5ef6\:5b9a\:7fa9\:ff08SetDelayed)\ \:3068\:3044\:3044\:3001\:53f3\:8fba\:3092\:3059\:3050\:306b\:306f\:8a55\:4fa1\ \:305b\:305a\:3001Expand[x^2] \ \:5168\:4f53\:3092\:4fdd\:6301\:3059\:308b\:306e\:3067\:3001\:95a2\:6570\:304c\ \:5b9f\:969b\:306b\:4f7f\:308f\:308c\:308b\:3068\:304d\:306b\:521d\:3081\:3066\ \:8a55\:4fa1\:3059\:308b\:ff0e\:7279\:306b\:ff1a\:ff1d\:306f\:95a2\:6570\:3092\ \:5b9a\:7fa9\:3059\:308b\:3068\:304d\:306b\:975e\:5e38\:306b\:6709\:52b9\:3067\ \:3042\:308b\:ff0e\ \>", "Text", CellChangeTimes->{{3.5226067000997047`*^9, 3.5226067012597713`*^9}, { 3.5226069607226114`*^9, 3.5226069624887123`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"??", "ff"}]], "Input"], Cell["Global`ff", "Print", "PrintUsage", CellChangeTimes->{3.5226067329475837`*^9}, CellTags->"Info3522639132-4133947"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"ff", "[", "x_", "]"}], "=", SuperscriptBox["x", "2"]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[$CellContext`ff], Editable->False]], "Print", CellChangeTimes->{3.5226067329635844`*^9}, CellTags->"Info3522639132-4133947"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"??", "gg"}]], "Input"], Cell["Global`gg", "Print", "PrintUsage", CellChangeTimes->{3.5226067332636013`*^9}, CellTags->"Info3522639133-4133947"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{ RowBox[{"gg", "[", "x_", "]"}], ":=", RowBox[{"Expand", "[", SuperscriptBox["x", "2"], "]"}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[$CellContext`gg], Editable->False]], "Print", CellChangeTimes->{3.5226067332766027`*^9}, CellTags->"Info3522639133-4133947"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:95a2\:6570\:3092\:4f5c\:308b", "Section"], Cell["\<\ \:3044\:307e\:307e\:3067\:306fMathematica\:306b\:7d44\:307f\:8fbc\:307e\:308c\ \:3066\:3044\:308b\:95a2\:6570\:3092\:5229\:7528\:3057\:3066\:304d\:305f\:304c\ \:3001\:3053\:3053\:3067\:306f\:30e6\:30fc\:30b6\:30fc\:304c\:95a2\:6570\:3092\ \:81ea\:4f5c\:3059\:308b\:65b9\:6cd5\:3092\:7d39\:4ecb\:3059\:308b\:ff0e\ \>", "Text"], Cell["\:4f8b\:3068\:3057\:3066\:5e73\:65b9\:95a2\:6570\:3092\:4f5c\:308b\:ff0e\ \:ff3f\:306f\:30a2\:30f3\:30c0\:30fc\:30b9\:30b3\:30a2\:3067\:3042\:308b\:ff0e\ ", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"square", "[", "x_", "]"}], ":=", SuperscriptBox["x", "2"]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"square", "[", "5", "]"}]], "Input"], Cell[BoxData["25"], "Output", CellChangeTimes->{ 3.516099696165733*^9, {3.519853525039982*^9, 3.519853529167218*^9}, 3.5226067334146104`*^9}] }, Open ]], Cell["\<\ \:5f15\:6570\:306e\:30d1\:30bf\:30fc\:30f3\:3092\:6307\:5b9a\:3059\:308b\:3053\ \:3068\:3067\:3001\:533a\:5206\:7684\:306b\:5b9a\:7fa9\:3055\:308c\:305f\:95a2\ \:6570\:3092\:4f5c\:308b\:3053\:3068\:304c\:3067\:304d\:308b\:ff0e\ \>", "Text"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_Integer", "]"}], ":=", RowBox[{"x", "+", "1"}]}], ";"}], "\n", RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"-", "x"}]}]}], "Input"], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"\:7df4\:7fd2\:ff11", "\:ff1a", RowBox[{ RowBox[{"\:ff46\:306b", " ", "x"}], "=", "2"}], ",", RowBox[{"x", "=", FractionBox["2", "3"]}], ",", RowBox[{"x", "=", RowBox[{ SqrtBox["2"], "\:3092\:4ee3\:5165\:3057\:3088\:3046"}]}], "\:ff0e"}], TextForm]], "Subsubsection"], Cell["\<\ \:6b21\:306e\:3088\:3046\:306b\:3001\:533a\:5206\:7684\:306b\:5b9a\:7fa9\:3055\ \:308c\:305f\:95a2\:6570\:3092\:901a\:5e38\:306e\:6570\:5b66\:7684\:8868\:73fe\ \:306b\:8fd1\:3044\:5f62\:3067\:8a18\:8ff0\:3067\:304d\:308b\:ff0e\ \>", "Text"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{"0", "/;", RowBox[{"x", "<", "0"}]}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"2", " ", "x"}], "/;", RowBox[{"0", "<=", "x", "<", FractionBox["1", "2"]}]}]}], ";"}], "\n", RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"2", "-", RowBox[{"2", " ", "x"}]}], "/;", RowBox[{ FractionBox["1", "2"], "<=", "x"}]}]}]}], "Input"], Cell["\:3053\:308c\:3092\:56f3\:793a\:3059\:308b\:ff0e", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"g", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxF1ms41dkewPFtp2zs3P4KXfa/4tEMUU+kXI61kNBBDpPObM9J43ZUQpR0 NjUOUcY0ci2XUy5HydCcmlBj7JVLrrlfwrgUNrbLjqg9ZPbpPNZZez3Per7P 51nrxe9Zr9ZOryBXXyaDwbj1ef+vkRNOCxIJhRh4CXiblwY+Se2sMvyx7Hep d5gGrwa9l7oqPok1IpCaZdjLQa+kTrlw6s/fZkpdJBOazzgo9Xpfu/1af1Mj pl7XBuTeUiV2rc7w/rJRhZgn+lNA4qgycfmljDOPjilJ5006vuOPO2xiu+xf ne1nFIgL6i73hHrIE5+MSdnU+kCO+MqpdSWK1AZihgHNt7kmS9z/3Z24om4m 8TYF/8JFaxniswf01g9sk/D/b++DQw+qq1eI9cLNJIH5YuKcQbeay1ZLxBNR myzsNBeIn6d+YTvpPku8b6pvcW+2gPjw8wH5VfcR4uDCR2JVqlN6Xykw2nqk g3g+ZI9SaLHUIRaF2l12Ul9szXVOi2gnfi/UdzjQ3Eq8IVp870hIA3Gc48XS +2ypWZsXmlj364kVCqc/NA7UESu3Djkes31JrLm1VnxCs5rY3U87pyPiGXH8 +dDrSU/LiX+NqA5ynSsj1kn2tuzwLCVe4OcNtFs/IeYY2e/JVX1IfM1hcnln 9APiGc/rDTmLBdL3Tqj3y+nNIy5uvmVtZZ5JzPu9fRhybhM76KpFQplU4iaJ TtDVm98Tv7t9x2f+jhdxBDOl9sghB7DWr4FhhnedukkQ7lUwpPWfOUXlCNwE 4Gb0uiLWKgY3BZT2nfhnHC8eNwNsRNPaNdxE3HvgvN/ZqZqUNNwCwGA8lXhX 3sctA3XNffFGbuW49cA/vL/OQ/8ZbgNg6QzIxqx7jtsIjvJ+u9L15BfcJtD8 5XDIRXU+bivwtwkpHhBW4XaAgHuXUrf/2IDbB8wMXjx2Se/EHQUHunrSKhs6 cUfBPt7MP/Z86sQdBboNGjasb7pwxwDlG9jJ1+vGHQczWVsXDSt7cAXgLjvs wMbxPtwpkPHkOy2eRj+uEKRxc1YnHfpxhSDhQXNtTUk/rhCEH9Z2jwgfwJ0G rhFtYdOKg7izwElbwP3achB3Ftg3rljWBQ/izgJLzd1yed2DuLPAlG8xrcIa wp0Dxn6urVfMhnDngP7Pkencu0O4c0DXI5lX3z6EOwd2MQs9TWSHcUVge2Gl Tb7JMK4IaLp07VY7PYwrAtTHKcVvM4dxRUDpXxLR7KthXBGIyVUQGjBGgPi5 UD9fIgLMsE2/+WiNgE9Ut53J53PuqYcd5cYjwBEUcW+micDjo6CB7TICss5E nRN4ioAXfbr059gRYPHCIDltYQ5U1Vckyi6OgIjA2KEPGnMgequPbX7LG7Bc f/BimdcMkH3xuGQ0ehSIIzNyD4kngRzbJcprTgAWJjxXzbTfguiRHpuQvFkw uWL/5txYFfgpM9blysI8YPxymjW+u5UflOujMua+BCpuJFkleozzT57J2B4X JQYVXcbmSuvm+Tf+EmZqlLUC1PJmQvwOfeTLqqcKri7/AVhf6L2SLK7ye5uu vYtRloEl6Ypv5GkmOs7zMsmoZsKHH2oCjOPWowDF6V0tXFn4enOPbdZTFqKL XqZtEK6Hlu7fG2zsUkS8chs35Uw5+CE4roBjooyCCwJKTfbKw7WqIjbzoJfh uAJcqxqyPfdVql4yG65VHWk+2x5kq6ME17oZJYVcv7WvVxmuVQO5xh4zyC5V gfnsu1yzc1pIzyPmeH6kKvyqlFVkv7IF9Qjkc5OPq8EfX1GHdxdtQy1e41Zq NAWzahujdSw56I3sfXHqLgpWyTvP69ty0GKB/yMtXQpOOrWfNHLkIK3p6W07 DSi4v6fX1JrLQT6hCx/3mlOwXjAm8gzjoOVoSbHTCQouykk8Mks4SPffWltu /EBBx6NGxmo0jUztBtrYyRQMuVmao6VLI8eprLjENAre7jBV3mlAo/MGO5bS syn4lguFe81pVPFUt62giILhZ53uOZ2gketLo9iaOgrmJ/ydfeMHGvn6L1nY N1GwsU14OTGNRuEKZe+bWij4Tj1wIj2bRtnOZt90dlPQLPtCVUERjSZ7oMXb UQq2FUeF19TRaDmc+d534vO887KCphYabdxaUzglpOAWk+tund002u9ppzE/ T0GfypuGb0dpZCsj33JhiYLxTLWsKSGN/prXGCMWU/CnI6ny8/M0OmObYB7x iYJd8ZqXxGIa4f8PXG7JHJNIaPRf1G2g8w== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-5, 5}, {-7.999999591836735, 0.9999562127830748}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.516099696679762*^9, 3.5198535250869846`*^9, 3.5226067340526466`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell["\:6761\:4ef6\:5206\:5c90", "Section"], Cell[CellGroupData[{ Cell["IF", "Subsection"], Cell["\<\ \:4e8c\:3064\:306e\:6761\:4ef6\:5206\:5c90\:306e\:6642\:3001IF\:3092\:7528\ \:3044\:308b\:ff0e\:7b2c\:ff11\:5f15\:6570\:304c\:771f\:3067\:3042\:308b\:306a\ \:3089\:5f8c\:7d9a\:306e\:5f0f\:3001\:305d\:3046\:3067\:306a\:3044\:306a\:3089\ \:305d\:306e\:6b21\:306e\:5f0f\:304c\:8a55\:4fa1\:3055\:308c\:308b\:ff0e\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"f1", "[", "x_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"IntegerQ", "[", "x", "]"}], ",", RowBox[{"1", "+", "x"}], ",", RowBox[{"-", " ", "x"}]}], "]"}]}]], "Input"] }, Open ]], Cell["\:6b21\:306e\:3088\:3046\:306a\:95a2\:6570\:3082\:4f5c\:308c\:308b\:ff0e\ ", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"f2", "[", "x_Integer", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"OddQ", "[", "x", "]"}], ",", RowBox[{ RowBox[{"3", "x"}], "+", "1"}], ",", FractionBox["x", "2"]}], "]"}]}]], "Input"], Cell[CellGroupData[{ Cell["Which", "Subsection"], Cell["\<\ \:4e09\:3064\:4ee5\:4e0a\:306e\:5834\:5408\:306e\:5206\:5c90\:306b\:306fWhich\ \:3092\:7528\:3044\:308b\:ff0e\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"g1", "[", "x_", "]"}], ":=", RowBox[{"Which", "[", RowBox[{ RowBox[{"x", "<", "0"}], ",", "0", ",", RowBox[{"0", "<=", "x", "<", FractionBox["1", "2"]}], ",", RowBox[{"2", " ", "x"}], ",", RowBox[{ FractionBox["1", "2"], "<=", "x"}], ",", RowBox[{"2", "-", RowBox[{"2", " ", "x"}]}]}], "]"}]}]], "Input"] }, Open ]], Cell[BoxData[ FormBox[ RowBox[{ "\:7df4\:7fd2\:ff12", "\:ff1a", "\:4e0b\:56f3\:306e\:30b0\:30e9\:30d5\:3092\:63cf\:753b\:3057\:306a\:3055\ \:3044", "\:ff0e"}], TextForm]], "Subsubsection"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .24931 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.238095 0.00593605 0.238095 [ [.02381 -0.00656 -6 -9 ] [.02381 -0.00656 6 0 ] [.2619 -0.00656 -6 -9 ] [.2619 -0.00656 6 0 ] [.7381 -0.00656 -3 -9 ] [.7381 -0.00656 3 0 ] [.97619 -0.00656 -3 -9 ] [.97619 -0.00656 3 0 ] [.4875 .05356 -18 -4.5 ] [.4875 .05356 0 4.5 ] [.4875 .10117 -18 -4.5 ] [.4875 .10117 0 4.5 ] [.4875 .14879 -18 -4.5 ] [.4875 .14879 0 4.5 ] [.4875 .19641 -18 -4.5 ] [.4875 .19641 0 4.5 ] [.4875 .24403 -6 -4.5 ] [.4875 .24403 0 4.5 ] [ 0 0 0 0 ] [ 1 .24931 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .02381 .00594 m .02381 .01219 L s [(-2)] .02381 -0.00656 0 1 Mshowa .2619 .00594 m .2619 .01219 L s [(-1)] .2619 -0.00656 0 1 Mshowa .7381 .00594 m .7381 .01219 L s [(1)] .7381 -0.00656 0 1 Mshowa .97619 .00594 m .97619 .01219 L s [(2)] .97619 -0.00656 0 1 Mshowa .125 Mabswid .07143 .00594 m .07143 .00969 L s .11905 .00594 m .11905 .00969 L s .16667 .00594 m .16667 .00969 L s .21429 .00594 m .21429 .00969 L s .30952 .00594 m .30952 .00969 L s .35714 .00594 m .35714 .00969 L s .40476 .00594 m .40476 .00969 L s .45238 .00594 m .45238 .00969 L s .54762 .00594 m .54762 .00969 L s .59524 .00594 m .59524 .00969 L s .64286 .00594 m .64286 .00969 L s .69048 .00594 m .69048 .00969 L s .78571 .00594 m .78571 .00969 L s .83333 .00594 m .83333 .00969 L s .88095 .00594 m .88095 .00969 L s .92857 .00594 m .92857 .00969 L s .25 Mabswid 0 .00594 m 1 .00594 L s .5 .05356 m .50625 .05356 L s [(0.2)] .4875 .05356 1 0 Mshowa .5 .10117 m .50625 .10117 L s [(0.4)] .4875 .10117 1 0 Mshowa .5 .14879 m .50625 .14879 L s [(0.6)] .4875 .14879 1 0 Mshowa .5 .19641 m .50625 .19641 L s [(0.8)] .4875 .19641 1 0 Mshowa .5 .24403 m .50625 .24403 L s [(1)] .4875 .24403 1 0 Mshowa .125 Mabswid .5 .01784 m .50375 .01784 L s .5 .02975 m .50375 .02975 L s .5 .04165 m .50375 .04165 L s .5 .06546 m .50375 .06546 L s .5 .07736 m .50375 .07736 L s .5 .08927 m .50375 .08927 L s .5 .11308 m .50375 .11308 L s .5 .12498 m .50375 .12498 L s .5 .13689 m .50375 .13689 L s .5 .1607 m .50375 .1607 L s .5 .1726 m .50375 .1726 L s .5 .18451 m .50375 .18451 L s .5 .20832 m .50375 .20832 L s .5 .22022 m .50375 .22022 L s .5 .23213 m .50375 .23213 L s .25 Mabswid .5 0 m .5 .24931 L s 0 0 m 1 0 L 1 .24931 L 0 .24931 L closepath clip newpath .5 Mabswid .02381 .00594 m .02499 .00594 L .02605 .00594 L .02729 .00594 L .02846 .00594 L .02954 .00594 L .03053 .00594 L .03163 .00594 L .03279 .00594 L .03395 .00594 L .0352 .00594 L .03638 .00594 L .03746 .00594 L .03873 .00594 L .03944 .00594 L .04011 .00594 L .04132 .00594 L .04262 .00594 L .04327 .00594 L .04396 .00594 L .04519 .00594 L .04588 .00594 L .04652 .00594 L .04722 .00594 L .04797 .00594 L .04862 .00594 L .04933 .00594 L .05061 .00594 L .05186 .00594 L .05302 .00594 L .05414 .00594 L .05519 .00594 L .05634 .00594 L .05759 .00594 L .05882 .00594 L .06012 .00594 L .06123 .00594 L .06244 .00594 L .06315 .00594 L .06381 .00594 L .06453 .00594 L .06529 .00594 L .06657 .00594 L .06729 .00594 L .06797 .00594 L .06924 .00594 L .0704 .00594 L .07103 .00594 L .07173 .00594 L .073 .00594 L Mistroke .07376 .00594 L .07448 .00594 L .07513 .00594 L .07583 .00594 L .0766 .00594 L .0774 .00594 L .07809 .00594 L .07885 .00594 L .07956 .00594 L .0802 .00594 L .08095 .00594 L .08166 .00594 L .08291 .00594 L .08362 .00594 L .08427 .00594 L .08544 .00594 L .08669 .00594 L .08787 .00594 L .08896 .00594 L .09016 .00594 L .09148 .00594 L .09214 .00594 L .09285 .00594 L .09413 .00594 L .09483 .00594 L .09548 .00594 L .09619 .00594 L .09695 .00594 L .09821 .00594 L .09893 .00594 L .09961 .00594 L .10086 .00594 L .10201 .00594 L .10333 .00594 L .10458 .00594 L .10572 .00594 L .10694 .00594 L .1081 .00594 L .10916 .00594 L .11033 .00594 L .11162 .00594 L .11227 .00594 L .11297 .00594 L .11422 .00594 L .11491 .00594 L .11554 .00594 L .11624 .00594 L .11698 .00594 L .11822 .00594 L .11892 .00594 L Mistroke .11958 .00594 L .12081 .00594 L .12194 .00594 L .12323 .00594 L .12446 .00594 L .12562 .00594 L .12668 .00594 L .12789 .00594 L .12903 .00594 L .13009 .00594 L .13107 .00594 L .13214 .00594 L .13327 .00594 L .13441 .00594 L .13564 .00594 L .1368 .00594 L .13785 .00594 L .13909 .00594 L .13979 .00594 L .14043 .00594 L .14162 .00594 L .14288 .00594 L .14402 .00594 L .14526 .00594 L .14656 .00594 L .14777 .00594 L .14891 .00594 L .14994 .00594 L .15113 .00594 L .15226 .00594 L .15348 .00594 L .15478 .00594 L .15589 .00594 L .15711 .00594 L .15842 .00594 L .15915 .00594 L .15982 .00594 L .16113 .00594 L .16236 .00594 L .16352 .00594 L .16456 .00594 L .16577 .00594 L .1669 .00594 L .16796 .00594 L .16893 .00594 L .16999 .00594 L .17111 .00594 L .17225 .00594 L .17347 .00594 L .17462 .00594 L Mistroke .17566 .00594 L .17689 .00594 L .17758 .00594 L .17823 .00594 L .1794 .00594 L .18065 .00594 L .18185 .00594 L .18316 .00594 L .18441 .00594 L .18556 .00594 L .1867 .00594 L .18773 .00594 L .18893 .00594 L .19005 .00594 L .19128 .00594 L .19258 .00594 L .19369 .00594 L .19491 .00594 L .19623 .00594 L .19696 .00594 L .19763 .00594 L .19894 .00594 L .20017 .00594 L .20122 .00594 L .20238 .00594 L .20359 .00594 L .20472 .00594 L .20578 .00594 L .20675 .00594 L .20781 .00594 L .20894 .00594 L .21008 .00594 L .21129 .00594 L .21244 .00594 L .21349 .00594 L .21472 .00594 L .21541 .00594 L .21605 .00594 L .21723 .00594 L .21847 .00594 L .21968 .00594 L .221 .00594 L .22224 .00594 L .2234 .00594 L .22454 .00594 L .22558 .00594 L .22677 .00594 L .2279 .00594 L .22914 .00594 L .23044 .00594 L Mistroke .23155 .00594 L .23277 .00594 L .23409 .00594 L .23482 .00594 L .2355 .00594 L .2368 .00594 L .23804 .00594 L .23909 .00594 L .24025 .00594 L .24146 .00594 L .2426 .00594 L .24365 .00594 L .24462 .00594 L .24569 .00594 L .24681 .00594 L .24795 .00594 L .24917 .00594 L .25032 .00594 L .25137 .00594 L .2526 .00594 L .25329 .00594 L .25393 .00594 L .2551 .00594 L .25635 .00594 L .25756 .00594 L .25888 .00594 L .26013 .00594 L .26129 .00594 L .26233 .00636 L .26348 .00751 L .2658 .00983 L .27595 .01998 L .29427 .0383 L .33443 .07846 L .37307 .11711 L .41417 .1582 L .45375 .19778 L .47368 .21771 L .48238 .22641 L .49181 .23584 L .49435 .23838 L .49705 .24108 L .49815 .24219 L .49935 .24338 L .50065 .24338 L .50188 .24215 L .51139 .23264 L .53233 .2117 L .57356 .17047 L .61328 .13075 L Mistroke .65148 .09255 L .69213 .0519 L .71093 .0331 L .72082 .02321 L .73127 .01276 L .73384 .0102 L .73659 .00744 L .7374 .00663 L .73817 .00594 L .73886 .00594 L .73961 .00594 L .74032 .00594 L .74107 .00594 L .74171 .00594 L .74242 .00594 L .74307 .00594 L .74375 .00594 L .74497 .00594 L .74628 .00594 L .74703 .00594 L .74772 .00594 L .74898 .00594 L .75012 .00594 L .75144 .00594 L .75269 .00594 L .75385 .00594 L .75513 .00594 L .75578 .00594 L .75647 .00594 L .75772 .00594 L .75897 .00594 L .76015 .00594 L .76121 .00594 L .76237 .00594 L .76308 .00594 L .76375 .00594 L .765 .00594 L .76571 .00594 L .76635 .00594 L .76706 .00594 L .76781 .00594 L .76906 .00594 L .77022 .00594 L .77149 .00594 L .77221 .00594 L .77286 .00594 L .77404 .00594 L .77515 .00594 L .77637 .00594 L .77768 .00594 L Mistroke .77834 .00594 L .77905 .00594 L .78035 .00594 L .78162 .00594 L .7828 .00594 L .784 .00594 L .78513 .00594 L .78615 .00594 L .78725 .00594 L .78845 .00594 L .78971 .00594 L .7908 .00594 L .79199 .00594 L .79265 .00594 L .79338 .00594 L .7947 .00594 L .79598 .00594 L .79717 .00594 L .79845 .00594 L .79918 .00594 L .79986 .00594 L .80058 .00594 L .80124 .00594 L .80197 .00594 L .80273 .00594 L .80393 .00594 L .80521 .00594 L .80642 .00594 L .80752 .00594 L .80881 .00594 L .80954 .00594 L .81022 .00594 L .81145 .00594 L .81276 .00594 L .81397 .00594 L .81529 .00594 L .81653 .00594 L .81769 .00594 L .81883 .00594 L .81987 .00594 L .82106 .00594 L .82219 .00594 L .82342 .00594 L .82472 .00594 L .82584 .00594 L .82706 .00594 L .82837 .00594 L .82911 .00594 L .82978 .00594 L .83108 .00594 L Mistroke .83232 .00594 L .83337 .00594 L .83453 .00594 L .83574 .00594 L .83688 .00594 L .83794 .00594 L .83891 .00594 L .83997 .00594 L .84109 .00594 L .84223 .00594 L .84345 .00594 L .8446 .00594 L .84565 .00594 L .84688 .00594 L .84757 .00594 L .84821 .00594 L .84938 .00594 L .85063 .00594 L .85184 .00594 L .85316 .00594 L .85441 .00594 L .85557 .00594 L .85671 .00594 L .85775 .00594 L .85895 .00594 L .86008 .00594 L .86131 .00594 L .86262 .00594 L .86373 .00594 L .86495 .00594 L .86627 .00594 L .86701 .00594 L .86768 .00594 L .86899 .00594 L .87022 .00594 L .87128 .00594 L .87244 .00594 L .87365 .00594 L .87479 .00594 L .87585 .00594 L .87682 .00594 L .87794 .00594 L .879 .00594 L .88015 .00594 L .88137 .00594 L .88252 .00594 L .88356 .00594 L .88479 .00594 L .88549 .00594 L .88613 .00594 L Mistroke .8873 .00594 L .88854 .00594 L .88976 .00594 L .89045 .00594 L .89109 .00594 L .89225 .00594 L .8935 .00594 L .8946 .00594 L .89564 .00594 L .89679 .00594 L .89802 .00594 L .89925 .00594 L .89995 .00594 L .9006 .00594 L .90191 .00594 L .90265 .00594 L .90332 .00594 L .90451 .00594 L .90582 .00594 L .90704 .00594 L .90818 .00594 L .90923 .00594 L .91037 .00594 L .91144 .00594 L .91241 .00594 L .91356 .00594 L .91481 .00594 L .91599 .00594 L .91708 .00594 L .91831 .00594 L .91948 .00594 L .92052 .00594 L .92165 .00594 L .92288 .00594 L .92418 .00594 L .92529 .00594 L .92651 .00594 L .92782 .00594 L .92903 .00594 L .92966 .00594 L .93035 .00594 L .93108 .00594 L .93176 .00594 L .93301 .00594 L .93416 .00594 L .93542 .00594 L .93674 .00594 L .93785 .00594 L .93904 .00594 L .94017 .00594 L Mistroke .94119 .00594 L .94239 .00594 L .94369 .00594 L .94492 .00594 L .94605 .00594 L .94726 .00594 L .94856 .00594 L .94978 .00594 L .9509 .00594 L .95221 .00594 L .95295 .00594 L .95363 .00594 L .95489 .00594 L .95552 .00594 L .95622 .00594 L .9569 .00594 L .95761 .00594 L .95889 .00594 L .9596 .00594 L .96026 .00594 L .96099 .00594 L .96177 .00594 L .96244 .00594 L .96317 .00594 L .96386 .00594 L .9645 .00594 L .9657 .00594 L .96698 .00594 L .96818 .00594 L .96927 .00594 L .97054 .00594 L .97174 .00594 L .97284 .00594 L .97387 .00594 L .97499 .00594 L .97619 .00594 L Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{366.188, 91.1875}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJy9mFdzFEcUha82iGDAGBCYvEgiJ2OCyaEQiBd+gZ9UFFXwAAhJ5GSwDdgE k3O0wDZJhEI88tdkTZ9Vz2j0zaqFqtja2u06p+89996e29Mz25vadu3c09S2 e0dTqbGlqXnX7h2tpa37WrqhfJVZ1V4z+7lk0bire1j+6er+du2LfsxmRn+F CN4SjYrR6E8/avBsfWK65U1+nCPbBthFwBoAkz+bBVRjoNstgJWjne7DL8Ck 9RVZktoKWF2yMIVeVPcnNIkGNq9PlCfn/bnRJcDK1Uyub8j4EwTU2S81Nfpz US6LfqYJrQeDEYHYNwOZ5xIeOQgvg47gC+fF0Y/6ChHUZS9L+mqOPnSFp/s2 +lDPl6WafX7U8JsBK1+GLUBt8s7IsFmGrUBtzHKWwvbLRRtQGwLdtvTjwoVP horbDgC1PhCTqB0Eal0gJnk7BNTaQEzydhioNb4CZChROwLU6kBMonYUqJle u+BH+Wjk9tkiWKwCTMHZscwrvs+uPRSmVgO2EjDlYceBqmW1YTDV5eagn4BV KnYCqBmsMRym0k1zBWBKxU4CVapUvz4wLdhywJSXncoSzPmM3Kjaj8iZwrZf gFoaiCkQOw3Uj4GY5O0MUEsCMcnbr0D94CtAhhK134BaHIhJ1H4HalEgJnk7 C9TCQEzydg6oBb4CZChROw/UBG8YbzFx81GLzAdMIdkfQNVwL9DtPw/YPMCU h075KWocq7mGLPqMnM1cMFcCdgGosRU8h7X6HMCUA56ox7Dn9G6ZpTYbMOWl kzep5fzK5LLc0oOOorfLQMV3MDJUIPYXUHTeI0yidgWoukBM8nYVqNpATPJ2 DagZvgJkKFG7DlQpEJOo3QBqeiAmebsJ1DQfPhlK1G4BNTUQk6jdBmqo104d f9w0OpBMAUzB2R2gqrnFBtDTkwFTKnYXqOLABZ2DSeBLCdk9oAoVZDJrNxEw 5WD3gcqzRuZhLoV9D5hSsQdZavG5J+/L4zByppjtIVDjAzEFYo+AqgnEJG+P gRoXiEnengA11leADCVqT4EaE4hJ1P4G6rtATPLWDtToQEzy9gyob30FyLA9 Eb6bVO6MxJzU9kKNQW85niVrW51ugp7/jP2F+oFeBD1PivTxkstqk0obCb1h +aeiDB3K4m6ketHR7t+KGlqVYi+4p5TZafbG6Anvv/T604JUSoV2sxdy+gqo +IZFhi9l+BqoIYGYRO0NUBQ+YZK3DqDouiRM8vYWqNRDRIqVqL0LXFJ6+ii7 eA9U6JWiuO2DDzXnRzRd0drHFJU1/X1iiYrxBVzoZdij9zG7kvFB51M/5XZQ Zz+TUtiXTe/wgX8W4Njy20+r+h/PwnH8\ \>"], ImageRangeCache->{{{79.9375, 371.875}, {493.063, 421.125}} -> {-3.889, \ 7.07328, 0.0137721, 0.0137721}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ RowBox[{"\:7df4\:7fd2\:ff13", "\:ff1a", RowBox[{"\:6b21\:306e\:56f3\:5f62", RowBox[{"\:ff08", "\:306e\:3053\:304e\:308a\:5f62", "\:ff09"}], "\:3092\:63cf\:753b\:3057\:306a\:3055\:3044"}], "\:ff0e"}], TextForm]], "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"OddQ", "[", RowBox[{"Floor", "[", "x", "]"}], "]"}], ",", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"Floor", "[", "x", "]"}], "+", "1"}], ",", RowBox[{"x", "-", RowBox[{"Floor", "[", "x", "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "8"}], ",", "8"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGBQAmIQrWcv9ur/f/kDQOalAy+n2uX/VO74+QvId5EquC9Z Yr9hs6Ha569A/oIZczZLttgbafgmPXsN5J+7vmmu5BR7c8GWW2euyx9oSPm+ d5LkEnuHxx9PzVwPlDdod+6V3GIf1H52tXG8/IEDov5tXZJH7MvPt+Sm75M7 MIFjs3qn5BX7K1e4Xx1MlD2QELlw/YePT+wbU7buWx0je+DH7RCuRVJP7fW+ xE2eGi57YEIcR2qw81P7DuFNNpm+sgcOJOdLbZvy1N42KKJfwFL2gESebWu1 +TP7ZeeXmMQLyB640HQziq32uX3FKdv6P/tkDjisEWST4Xhlrxr1PPjZTpkD N/SOJpw1eGV/6eUEjQtbZA4UbKzYXRf5yl6H88nFxatkDizYdr/g4apX9g/d u1S8p8kc+HFg7e1lvq/tvY5eOzkzV+bAhqueGw0nv7H/HtIwrzlD5oBHxF/u x7vf2C95olmcmyxz4MGtDWlTnryx/89cK+MYKXOA44G4zHfTt/ZbnJTzX7jI HEh49bRtz4239omXzjhfsgeanzPzYS7jO3u+pDKJPVYyBya897GR13pnn9F4 8mC/gcyBA182f2ysfmcveyBfxFxG5oDE/8YYd7n39meETEusxIHuzQyP03F7 b1+V+uuyrZDMAYMrOgmCee/tNXbsN3bkBeq3Y0r6NvW9/TWu1skuHDIHAlZe T7699719S6zXZ3dmoHuF16YeeIrJBwDmoAzJ "]], LineBox[CompressedData[" 1:eJxlj39MzHEYx8/datL0c+l7943RDxaiHwzZec7kZ6gOjVa7E+Xo6qgh10Wq nRBdKYxN7a4Ssn5JLckTt36c4oq6Sq3LdHTn7trQkmw+/OuPZ8/z2ut53tuz JFbCj2MyGIxAUn/7R2Zf7d6fNDq5V9w8rbGC4sAdF/53GjMqewsVSitsqhAk H7DSOLn5d8EjqRXMM969B400inTL8tv4VthVUpUv0NMYzky/Nsu0Asukdkrs opE6uEwuOmKBWu6VkyfbaVSYI7KzNlpAqAjTprykkZEly7znaoHmtUN50kYa 9Y97zr9/ZYYzGVaHnFIaq1myszxvM0y4cearZDTuqNKKqHET3BaNisvP0ogh v+KDnptg27PSrgfJNPoP+cTtLTKBUrg6t1pE/rFJO5y91QTRj0LsW/aT/Cif qMkyI7zlSewGV9KYaisN7YifgPoEtY3jCAcrYrxWpX4xwPrFSQHlOg7inFNX A54boOm9ewy3l4PaspYvxnwDIDfhSUI7BxmWQ6qYjQbQOLoc6ajhYPh5BbXl +jjo6wR4UU588W+mw5pPMG92Rvp9NfF6nU51YQyEuQGTg5lsZLRRrGK/AZA+ KZB3p7OxZPuK4wPDOiga/ubRmsrG8E7uW+dcHWhWPt1ZkUR8V+zdbGM/BHUH q85EsdH/XWXQift9YOsQEukayEahnnd07ZJ3UJkX2bx7jMKMHz1Xbvl2QVtD A583TCFOT0XOy3kNY6PURJCOwsWztFe6QQML/D+40d3EM+Ofxao64YJWIJlo pFDvOGPyW9gOfOfjnnIFhbzlnnvUTi9BvEHTeO4qyffbzl4naYVLh1eEJcrJ vr94/EE3QnONOW2/jEKGRPxrkdsL8OEn93mKyP3lwuj6uU0wXZCW8wKIl3Vy 1aNV8Nmj1bgtmOSlXBee9noM/eW2e96sIT5hX9bSYw+hrinfecSX+EMjHTmW UlCG6FKOehMfoTRtCFSC4o1Hv2kR4X/DPUj6eP/OjCvhf8MNiBabZy86EG4c GPrJugahU4ECOzvCN7/GtbhkQnBGaquCRVg7R20vF//HfwAZpoZH "]], LineBox[CompressedData[" 1:eJwVz2lM0nEYB3AqBx5dcz/AVuZZs+zQmC6b+pSohTVDqVU6UskOZ2WXdk2t Fk07FB3dmVjNXNqh88gDezpWlkaIUDE1TYggi7+Zpi9y9evFs+8++775Pl6y jPjtk1ksVgC9/8lXTjlTOs5H1p2HP7+ezAb2XJF1/i/qked7ltbkgylQXxVk pXbX+EveXAZd86wZ6gHqJZGWoYgSwKik/ZG91J5S8StpGdzc8i1IoqMO7HLe /r4cNp9kPdnXQn2vD7SmR6DRLuqsVPDxREd7rYuhGVoSDggE52gfl+YjEKih 0txwsUnOx5UGdnFCUSvkjUckvD5Ge0bVoC9HEHpuMVlS+aga61b6bHsOjzPk o14htHeKX/+0uw1uT/8068pnHmq5HrIcSycUJwInpIeH/dHO5zNCdXCqQjVi fE99eLQuuVgHsoht72Z3UBvbnYThXeCdZT1dWk9dcqSac0kPt3qHmfJz1PN0 rKKoD6Cq4rysC+IhK1heevtOD9yICTzQlc9Fz8rMvanVJvB1iXmjPc3F/vKH 948aTVDZLvPW5HKx4pbte8EkMzStU+raMrkYcE2a3hhnBmPs2LLWFC4uz4/a NX3YDDyJ+ldFCBfFO7myx8ssUJgoysyxEczzqds4tdYKvDmyt8fNBMUejNKr xwo3e47NO9pHcObsBfpgBxs8kFYZDhoIKlxL4lM22KAjaUZw2lOCqkny9fUj NnBMNfyWXCWIfRtEyUGDoPC1x8YpCZ7oLsjLlA4C/wv7bmwhwTUf2l6dlQ/C /B3LN4nkBLWa0Og6wyBE7breEL6f4Ee1r9A56zuc2p1yZIGI4ND1kdDa+h/w qWDrjSYh3ZPv4u4/8ANWVCfi2nCCAVneE2XT7DA8utFxr4DgPrFYXZhqh1g3 yaK/i+nesJ0lbIUd7q0QixV+BB8tzMnObrZDSm7MlRp3guMOVWHprgy0lK1u EboR9Bx+5j4QxoDbi8h+vSvBlX3Gic1pDByyrHLYMY1gcsdQ7zslA1pH8Bvj 0P8aOa3RyECzSMP+M4WgX82F1x79DPwDQuJ3xA== "]], LineBox[CompressedData[" 1:eJwdkn8s1HEYx89JmI27+1ZaNKobl1IhLJXnpFvy86ayZI5u8cfV3KVVNsZJ Zqts4W7Lj0lFfiQM5Vh4rEZimPLjbi4X50d17mt+zIXSp/549jyvvZ49e/54 7xNLIxOYDAbDndS/Lnjr8ct8k0JeY26vk44GvdRHUbNGoXNG07OL7TTw871U J5coZOSXdGnzaChpPjbRb6BQV579LTGRBtOoO0M0RyG2JJkt+tHQ4MALkk9Q KNfyA5h6IzhVOI5/6KbQxJtBFx8j/GmxMIUVU7jY6Y5SjQGuaJiOk0oKh4Z3 6Ux1Bni7uQWyxxQ2zGxtZWYZIClgPSc/m0KZzTAoDhtA+8loPyalcD7qTqcq /Se80475xp8l/yx0dJgd+AGp5jV3kxc4OO4gbC+4PgdJhaLt8fMclPWteDIC 50B8lFKGTXOQlVpYdWPPHATHpDXy1BwUaqYKBL2zsLspfOHrBw7ik9uSNZdZ aBYvi0NKOFi2s9g+ZkoPxq5T4dwQcs9u9ub+6Cm4Kh/kjlaxkbXdFCrO1UCU +qm/9gUb45W/v38+rYFgT9llfSkby7jmOQKjGo7rWY+WFGzkB9p28SLUYBUU uWybyUa5nOtNs8ahzm6k61w0G3Xrwr1pihHYKNWIWq3Z2EBXLyiLh2BxrSYF t7GRkVH/wDJ0CPTC1PyeLRbKHSURS6ZBGGA6do+sshCj5e9VbQPwPDHWfekb C/lfal8J/Psh6Ihuw62NhYxei7Q4QQ8o22eelEiIT5CecKlsA1FKUbpvArln X/pyMqwVeF4R14bjyP6nfqpwpQXaqlRHrS4Rf8TNaHPmDXwteNh9C4inewXT rfVQGc6vtfUj/oKrc5Tla5BZr+ZVHydedX/948UaYGaIYicPEs6E+jq6HFwl HivBOwj/HxSwyJ1Vz9gS1p3vb+rLhdbJok65NeHkTu8Msyy4VxRR4bCNsJXE X5kkA8n/ABMWHiIJlsJf9rlmHw== "]], LineBox[CompressedData[" 1:eJwB4QIe/SFib1JlAgAAAC0AAAACAAAAKiBy4aLyD8AArL8bPbp6P7yV26zY 5w/AAERqJFMniD/ggK5DRNIPwACQvyje3ZY/cvYXD3rHD8AAxwR0+EKcPwRs gdqvvA/AAP+kXwnUoD8pV1RxG6cPwMA16qojOaY/ci36nvJ7D8DAUbogrIGw PwSjY2oocQ/AgJ+Ls/LasT+WGM01XmYPwEDtXEY5NLM/uwOgzMlQD8CgiP9r xua1PwTaRfqgJQ/AgL9Et+BLuz+WhpFVT88OwKCW56YKC8M/ut8oDKwiDsBg BHI9P9XNP3w8Aa2aGA7AQDjsL1V2zj89mdlNiQ4OwDBsZiJrF88/wFKKj2b6 DcAAaq2DyyzQP8fF6xIh0g3AyNGhaPdu0T/Uq64ZloENwGChijJP89M/7nc0 J4DgDMCQQFzG/vvYPyMQQEJUngvAdL//9q6G4T+OMOF6apMLwMg9exRWsuE/ +FCCs4CIC8AgvPYx/d3hP8yRxCStcgvA0LjtbEs14j90E0kHBkcLwDCy2+Ln 4+I/xhZSzLfvCsDopLfOIEHkP2odZFYbQQrAWIpvppL75j/UPQWPMTYKwLAI 68M5J+c/Pl6mx0crCsAIh2bh4FLnPxOf6Dh0FQrAtINdHC+q5z+8IG0bzekJ wBB9S5LLWOg/DiR24H6SCcDIbyd+BLbpP7IqiGri4wjAOFXfVXZw7D8f0WC5 K9kIwIS7fBpRm+w/jHc5CHXOCMDQIRrfK8bsP2XE6qUHuQjAbO5UaOEb7T8Y Xk3hLI4IwKCHynpMx+0/hAQmMHaDCMDw7Wc/J/LtP/Gq/n6/eAjAPFQFBAId 7j/K968cUmMIwNggQI23cu4/fZESWHc4CMAMurWfIh7vP+o366bALQjAWCBT ZP1I7z9W3sP1CSMIwKiG8CjYc+8/w4ScRFMYCMD07I3tsp7vPzArdZOcDQjA QFMrso3J7z//6ZOx+wcIwARYsDkR4O8/tnJeBA== "]], LineBox[CompressedData[" 1:eJxl0n0s1HEYAPCfe/uhkreRTaVLmK4W6UIvD81LryKnvGydbtMbq7NGdS7d THXWVNpRdN7CGS1dOGy9eDTR0qteXC/XOYZT7o7ZCil969/+ePY8nz0vfz3L RMf3pDAoivIj8TdbuaRFsaZoZMWrgxz6LZC5ZO7sKRON2tOzcwaNBQY6+150 DNAodxJuoC9aYHeqevE8LY0bb3dk8pItcN8hL03wnMbxCM/GmHUWKNwfbDvS SqNAMuqj1Jth65QyfH4+jR6GEy5+AWbQlGUo4nJofCt5H7PXxgzc8KjBspPk vnNQftYXE/wsmJP5iWgci/zN7JKboGGl6P7e9TS2NcgnEnVj4Cz0Xltp4GC0 tPRZ7vlvoH9814PP56DUtTtHqzWCNHY6LJDHwfFdQ04GtREWGUKOBHM5mJzL rBmVGyF69uXdzXYcDJmA7plAI6C/eUvkMBupnrZ5i4tHoKLcNyW+iI2y7HrF gYRhEJ2uqpN8Z6F8KF/19cMgDPEK/dtbmOhzqE4xrdGBb3aN2XiLidETKzMi hTo49lJT71jJRHFWQ1yhtQ6m0t9zD15kIl5ucvFL+gy2ra5OC5LJfNuD64ep T7AmtGQy0YaJMpteZd92LWTFlTd/T2Kg9tZMtUbfC6i6I/aIYSDFP3OOmdcL rKl23vYIBnrgXEqMfy9cKumvLl3DQPFblrcp9zVU6JcVhrHJ/C+7Ok/fV9B1 pDrjaoMVJisjEr1Hn4JDdh1/tZUV2huuHR10RDjf4vPE/geF+MqF7TbwEGbM tQmTYxSG6H8FpJY9gAGhStqmJZ7tUSx0vQeNoVWPtqiJ+YcF8dYt4CXhClao yH7Y7tz6zmYoaawcopWkH8tvnpU1Qc7yCuvnF4jFLOfKaTXsYZdG7RNSKBOE 1r55Vwtdm9z7g+KI0xfSp6JqIDjzRrr7DuJLuoPu3TeBO1KsMPAppAomdz4V 34CipW5enTzinsvznURFYBt/vVXFJWbzniXFFkD2FddteYuI/xVymHxS9DHV jni4YJWmTwqH/j08sZJNPv7Af/4D3WBvRA== "]], LineBox[CompressedData[" 1:eJxly1tMkgEYxnFm1rAtc6RZSQVWos7E5rGDvtYwuzB1JmY1nREhzQPaHLV5 nJo6KjvpzCKlyMOaUdpaauWbbiUGNm1lWpJRSpnA96FMPJBG1108++938TB5 orjTdhQKhW3bv9aNe25hfVtGCs/tk3a4EMq4rP16lc2h3PQxBwlkvtnBb322 jEX8ytnGddchIXh7uVhus/d0ULJ7DbA2MvspucvI+DJ6QlcvAyfJVvK1wPbv crTuZ8lhbmHzuotxNt8Nl95RNIBydNMxF2+bU++Pxr98AEKZ84TXyBIWzT9V nMxogwcs6p+44CVMuZDPHpC8AJ8gwqdhxoqy6LKbQzwlCHwLCzs0Vhy4tMo+ gNYH9R5r3/f3WpGqKhNd6+4Dmiv73OxtK2ZFlh+MYqjAYsnsjuRY8VB4hblb 0w89HUbu76pFnNsQ0ZzQMgiJocYCdtACylZH2h9gfYISjmGg47wFF8Q7ki85 aqHnkD4m4JQF8zJZKTW7tUA5PPVOcdiCFIEX7x5fC3ncSbXc3YJU7k5Be6cW xIIJ5WX1LDr7B2aOC76DsELz6iRjFv0ITsE+/AFR6v7HDkozClP5dXqRDiQD anZpmxn1yQKZ5ZYOlB9UiiWpGbMShPfs3uggQtPXMpNtRnFEeuMG+k8IM75u 1riZsXRbjoKj/Al+Tl2yVtEMysZKuqSMSXCJV1w95jqNQ0flX6MGp6DN42Jn xIpplLZNSnLmpyB2PnV8F2HClDV+wVKmHiR1zJDVvSbU97y4MpWth6VfVWOd YhPa+w6FS2gGuP0826GJZ8K3FXRD6x4DhFRG+9+INuHVH7zaEZ4BzvpTy9M8 TEivJUyeTwygy8/1pQ+RGGDvIO89YoSS2MREag+JC8kxMUSuERjbAovND0l8 1VG9uP6+EY4rjR/VF0iMErnHC8xGsNxSLbdnk0h7K6RU0gmoymj2akgicXj7 o5anHALe0Xj5+YEk8j/vXbmymoC0ibCmM0wSvQOLW31eEkBtdxvkriGRvKJM ip/4338BZNqX/A== "]], LineBox[CompressedData[" 1:eJxlx09I03EYx/E5PESNFR2ssJaRRU2wSImW2LMkigqaFkThtqQ/GM1MQo3E 0qKCCiUHziKtsbkyOzjcgorqU83Fas2cW5H+mAfT3GLtV2RRO0TF97l1ePPi vWT/sZ2HlAqFIv9v/zz/sHer8ZUMlp7uO9hV6JDBUjpT81XVIIOlakPb1ccr ZbDUM70t2Z4hg6Xxa5n66pEUWNo9cWJKczEFluikeW1z/DNYmuPMi5bcToKl /h/+2YHcT2CptdfxfMOvBFiymJvq7oUSYCn3xTrJUZ8AS7b2u7dOBeJgqaGw rbigagoslRw3Wm54JsCSS5psSZwbQ7eQRhuzbnYVjIEltWaLu2w8BpbqK3qG H1AMLG2ePDLvUloCS/GUbNfWjIAlrTLtsZRHwZLZqfUvnhkFS9ZN5e8i9yNg KX3h0c+irAhYCs5qKlaFw3gtpPfaGa17WwbBkqlsoVc6MACjkJLfvuvqBnxg qdH2BuplPrDUKZ0Nbvz4DCx5g8N+Q/gJ3ELqm65aGh/1wi2kQV3OquxOD4aE lDodWb/D1I8vQtozt7b7MPpQIaRdRWplxksXSoVk9dcuqNzuxBUhDRmk1aGQ HSxdD5RijasDdiHNjy1K/b5jRY6Q8j681dlMl6EX0nJVTUd+5RnohdQcXRHN 9h2FQvjf/wFCzZIg "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGDQB2IQfe1j03yBHxX2MPqDv/qn/KI2OF092e1UtskEOP2v rnL2fP2pcLoha03OZa1ZcPqwQmf7XIFFcLplmlKBed8SOO3GsyfiIvdyOH3i +ztNVvY1cDo9XStt279NcHonV/XVQ6WH4fQCXdHL65WOwOm2gPUX5pxH0CHT Hp8u0zwGpz8o+hzSunsCTqtZyq6f5HIOTp/cHO+ysfMKnDZ9xCjXGHEfTuvt Cv9osBJBq01ae+TBTwTNvXCN6QLfB3D6T0DEnf/vEPTdDes19xs+gtPzC+KO 2G5/AqfnxHCum3ofQc/w2DL9LftTOD1BgSt7bgSCbriwVfDvTwSdaMAbv8fm OZxW/rD7p9Whl3C65qxzy5e3CPraqtN86yRfwemu1NvKioUI+sOtX77sCq/h 9L6jlosu176B0xKLD+r0rkTQRQ2e292uImhV68gzO3XewumeDRXf5t9G0M96 GRoj2d/BaYfsDm5hYwT9WXWGQlsXgo6avd0rx/I9nN5SYX9VNRVB84Udj78/ AUFnGPu/mrEHQadrV6ySf4CgAcTIgS4= "]], LineBox[CompressedData[" 1:eJxl02tMkwcUBuCGVhyKgqTGsoxRJ4rbBIF0GBX2CopOEXQTN4IMBEtBIkjU opVIuChrFIqOgqLgarmYYbg4ZiwVKU6Q0ggRAwUvQOnmxBbarwXshdLum3/9 cXLy5D3n57s6+fgPKU4UCoVFzv97r+bxV4QbgbSvzzR4q/SQpsx0qb0JFLM8 s7d06pEas+mi7BsCQT9d0eYJ9aBvz9lXFUlghOeS1JOmx6NAGZ2XRCC3Kl+5 LFSPTCb15cHTBHxklsiYFXrIFy6y3WoIZNE0wRNtOuRIrvMKrASWlCpc55fo sP722LeJ7ga03A0vCBufxmD5F7SQdQbEDkpNv7ROw/9kg2DuewNqPe+o6fHT UPtJa9J+NyCk9pLEv3EKu2te9EXHGpHZtpedvE8L4kITpzvDCOasOIjro8W1 tELH1kIjnvlbKHyLBpN+foFfNhkRUFtX3VijAV+SJ6TSZkAI7Eqz6R3kfb6H JM0zyGK37C4VTWKXmTu5evEcTrjRN7Yb3iAiyoM6d8+E7JRXlpVCFQRJLgZL rwn/hEx7uR5TYYRLGbePmrCf7ghz2qFC+k2d9BNnM2KLIuijb8ch0CtOfPaj GfKwQZbg9hhGrhSqt783QyQxcIl1r5GunH30a7AVsfUbzH+uHUarRtt8dY8V rIP7t90aUsJmV1dXJVjhTjvFL7mghMB3gFdfZIU86QGD82YIrWcaA6VK8t5r z+ZVdYOwfcq5NZE9D3dh6lmez3OUJg7nBdy3gU+NsOTsVKBoKgT/PrXh2Q2G c/+1XuTyxAs31Da4s6Y8mFo5Mssyzi5evoDL7LINXaU9iO6hnhpjk+6eSHR9 0YXlGwNSiz3sYLotFG8e7oBze/na8PV2iFBbP5rzEPbv5v82hZJ5VmRnPrMd uuQnh48cJT1QOdN7tA39FfFxWzpJlwXHxdla8WTNXwxiiPx/PHrSLvoDHS2+ w3VaMp89XyKOuIsmhfHAilUObGuozx/yaoTAzo+azCDtr4p+Hy5G0SXd0puF DuR9/jPtHOM35DJiFAcqSass6cvuVCK7ro3v0kxaXDFQHSpEZpD3LlmXA5Re Tla8qAQc2flF3Jeko0Sh57oLkPChIKR3pJINOf6R/wPOrLB8 "]], LineBox[CompressedData[" 1:eJwdyn1QiwEcB/Bn1p4npfO2Jk5spcx5vOR18/b7SQjJTm7cuFNTXV6Xl45e VIq4JE0vklBZXIhZqY7SVpFedKVJ3mpZrGxtu/OSvFzGH9/7fj93X55Utjlk BEEQ82z519NLJNwmJwIJ/9AHmBUN1yPPDRe62Px/nIGpqO6KdycwfjQ3UKaW w4TnHlcWCW0+++mC/+VcoAzWiQXBBKo1wpgkfhEkFrsPxchsDjT6rui+DcOH xZ1bo2weznX+nnkXBonKLKc0AnVT4l+pGCowTDo9PvKRzTv04W6ycqj3d3US jWNguEnbRnhogD27h3NoMgOxZ9wBXr0GAp0KuRmeDCQ6RA7eu2vgZxO9oHMJ A/Oqm70Ti2uBXrdse+AuBqov1JWwFj2FtFXbi8JLbX9haabD2iaQCC6tlotH YGtNA51c+gIGeM6xL3KYGDa6yJre8Q4E0fkHNQomql87nnP0fA8J2lkhyrtM HKM4MCMx4j1wTq/xS61holKwQHqI3QUrTEcnrf/MRGtQdbtoczecL3tTphHa 4bI3e96SBh14bcizKDvtsI4+8bhWqocYBa2/9sEOrXJVSlyyHp7+qehINdmh y6BeslSlB4myrWofwcIwzZpBFaMXEpyZKXw+C+3Fo+YW5PVCe3cIP+8oC/3i LubHd32EiCMzg85zSNS2FZ9cLukDjoOlUswjcRu/8ovkVB9UXFO5TKFJ1MU2 So8p++B3o7D1zkoSrTMNWEL2QwLPFxr3kWifxP3DL+mH1JZgV1YtiYIl6RHs UUaYG8yPbH5Oojotv9drsRHahoza9E4SfQz3AjZJjcD2OJziZiZRlNHslVxh hJzoE79gIoVhZpZ5ONgEN/hXX0fJKMwuOBZqrBoA38dBC72jKOQOJb207x+A /gAP+chTFCo2Zfp4ss1Ax93xzc6hUPn7vlvQHjO0sMMVOwspFASo5bGZZpDd mk9MV1JYWdRC5KrNoHr5sPzBEwqfiY1dHRwLbNkbO/54K4Wi4qGNX1da4Bvh LfN5S6GWaV81dr8FsrJYTY6fKNwm4dBzsi0goBs8260U6pTTLvvVWmDa0pu7 qR8Upplyb7jqLPAXxE5qYA== "]], LineBox[CompressedData[" 1:eJxlk31QywEcxifRr7Z+vV1K1lV6QSKvxS73/aIdiWRFnZjIsi6d3iQc5vVO L5qXvCSUUSNFpDeV1TZ1k1ajW80ko/M22zCnwvHjX39877nPPc/3nr8ery07 ODwLGo02h7q/qpXFnh22IlCoLy5zHzQC85MTa5oDxeF3XOIeGKHlkLrQNIlA 4lupeJHQCPGuFz/X+REouHx6oSfPCGOquKsOzCbw57KjCguWEUL7hyzJZQSa ivj69tcGUASaM6anE9iHgbM4wQZQa+05iR0EXstrqksc0MOKXF5fporyVUmX A2r10LSwkXtYS6D9RJejX/L1UHI2IbnERPVdT+PsX6QHfmTtEY2rNca3+H0q LP4Io9K4uogka3Q1CSfL138AZkUZM9jGBoVRvHxv9VuI3x3y1molHQVuZMKg Ugf+Wzt6DevoGLtjQBx6TQdfI6JlvZvpOE9WZRBn6+CYz/ZS0S46vktZvSfN Swe3lBfjQETHyFbhSYuMVzDi+0OZNUpHJt9J4jNhEE6pGuqHxAxMTZ7NUtVr YEMzu7zzHgM9nVXyos0a8BX3FN5rYWBfS/qaBBsN1O97n37wGQPRsYZvjuuH gakTZ7jTbNG+IejchN9q8D+QXRodY4t3xoeY17N7QTo9OEc6jsTupfkb2kVK 4AZGiz7bkehp06wYoilheE5ak4cbiYJu/QJLbhcEsCoMe2eSiBtXOi92fQJn lntEzYshUZJF72rMU0Aiz4p5XUxiyY3jULVTDrQkn/lP75JIS22o7FTJoGj7 4ogxzSTGB72f9DFQBl0ZewUbe6g+6fLhKR/aIPiQ8Y3zKIlCrVV1KVcCxBV1 5bFwO6R5MNj+BbVw9ar5Uc1aO5RUJHttC7sPIWUOg7pNdihY8PiXaGwNpFaG O0Imlefk1LpnV0P/g4dZ34upvLVD5OQ2MWQ+1Bb4llO+dzdRHFQGpHREHFVN /YcUtDpXiGCJYu7z23LKf+mW6Dj1EmifRJpfKCl2vKAe53AesnpSbBkaitku YSMjp8C+N8eP9YZik//Ofnku3OwrB76B4nVTYiXnDgL73wAo1p+gFpDyH/8B zxVpyg== "]], LineBox[CompressedData[" 1:eJwdyn0w03EcB/ChVCS23+hBO7pDWWmuEkd8vj14vOOy1urGuXFyyVW4U612 jS5GS6muwiU2djvSldDDNm50PVylXKcaycPitvGzCZXWZn3zx+fe79e9Pxsy TrKPOFIolBB8/7MjTxQtcPZAlLmXNs9xAVyadWNXuGLT9d4NvmI4VHAnTeGB vVgqwO83M6fTE3ux3IROS+xF0gd7sdSCRPi5wsnfAxVGR+W8LpLB4YXMmnVM vG8RPUpyk8OMw4XHcTuw/1B2p/g1QcAKtaEhDv/HO7LCAx/BzKutx2SJ2NYW SfXRVugskU7WsrEfpBssijbgLhGbqlOxPbukqoAnUGxPnqvI9UBoVESP9FPD 2E+9XViJd/WCtdb9Och0xOqDBrxzhDqZSw8w1DnRS0upqLdLxeUUaoG+1mI5 UU5F6Jr0gfmzFlaeKn2ovU5FGr54uSSoH6wsuXdzDbadrewa6IeB+qEf7FYq qoucYLBCvsItSfLduiEq4j9bM75i4husSgn9HRFCQ7la5bPhxlFwfvqiWR5O Q8GaoKygT6Ngo3My3BENGRR1tHMUHZDvc3t0CTTEP12S43VIB2/2NNWX8Wlo vxebkbjkO4iZjP1fJDQUxjEWKtPGgGJxbMzX0RCld3XcTUIP/O/9syI9tveH u/YIPWjePYwqJ7GzSn5mZ+qhsDatT/EL2zoni2rXg32f0j7oQqD5jR9teq4B Fq7mcWO3E2hadLk1vNoIaYI4KScM+81eF3m3ETozfMj0SGzPv3z3SSOcD+kp EsZi38teNRYxAbaBTfdbUghk+BKTXf5tAqz+I07rLxJohOXgM+JLQqr7k6TA MuyzTwsS4klQz5dX7byC/eLku7Y8EoRvI1jJldgpQ4KybhL+5t7mlTQTSCtW 9W3LnAIe74T8RguBej/mb665PAXKvdHTdY+xGcwLy9qn4KzXbLFKg91ayRpc agKLKqllug97uOBSscIEPLm/1daPzQwaNX8wgfKKNcZ1GLtgLJQ3bwJBetOg v5FAr10PjG+NN4M2oWjjdhOBNFyXXVV5ZgjbcTgfzWJLu647VZuhksHqSJzH Js8Yj3eboeFXFt3ZSiDf9tD64BEz/APwGJMb "]], LineBox[CompressedData[" 1:eJwV030s1HEcwPEb6cHs7vD7/U4PWzncNOLkJNf4fFs1bVHOQ5zyGK0sUSg9 0CVdUexiNMclXHSnhcnzPGx56LDlpA5Rp8tDHu6sh5XG6uuP77577f3Z9/PX 1zo6wT/WiEaj8fBZv8O3FC2sGBOI2eBewdUaoHmsXpayiUBob5RFQLcBrF5n z2WYYc8q2uaKDZD6IspVYo5d8j0mPckAowX702UUtuAAnThmgP23GCrlduyN mU0KtgF+C9rDe+wIdDSRNH2v1kPGWM2klwOBll1vW2yp1AM9qvx0M5dAkt+L 2zyv64GTeC+0+gCBhtK7HZ6x9RCYKzj5SECgyJwk35SkJajtn/YNSyOQSKmW kOQinD9E9/w1QqDmrzmskyHf4CMvYrtdJonshRvtNJ90cHbFjXE3i0RDPD+x pl4Hy+1mxtO5JBIxpbOa+zrY4N06Ly8ikbZvj3J0rw6chGSrbQ2JJPuCnMfF X0CUNhBiO04iGiH3mHSaAk6ve6ENl0JPZXdKetcmoDabnn3HjUK0IFZEX9UE 8E9Mp+n4FIo0q7Z+I5iAE6N5sRVHKMS8MVypevYRUueXeDanKCQKsa4b9B2H Abr8HVtMIT/Lzp5hmQYSg5nm7An8XtZf/SfPYYh+7iy1m6KQ9ppJWOWSGoJW jtvsnqFQbRxzIF6mBn5xjht3Ge/z4VStrg6ByWfTUK8NLBS5U97BS30L0rMm FaGOLNTlGFBandwPD5tsHcNdWEhEP3+DP6KCW5sPN0TtY6Fdy+nBKlcVxCgz +s4h3OuVjNnvfeCs/7dwJRB3vpGIfakHulP+8vJv4u5dF1kU3wWNvVs7Cm9j ++de85N2goLl4S0V431kq8tFYQfktlwVlklwLzEvV2jaQLj2M61GjruiK2PX SCP4HCc21StYiBa/yPfKbwCvUldJ40s8z7X6ccr/FdgevFze3ox7U8KZx0N1 oM809A4MYmd53t8hVcDUe7rfWzWeZxT8CbaqghGO09jwB9wLF8/lF8qh5c2F hTEttrd7PsEphRdbHyZPTmMHziQ9YEvhSVz1mnYeO7og0GhnAWSazTPmfmL/ mXHQOovhStj6B8G2zx4vFqRCWd5kj/Hqeo+zVE8lwH82jXRM "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGBQAWIQHZ+rZPWHWcKB4UeW8MWH+fZ+Aekm3ziA/DkLzmW8 abR3XNi29ycvkN/kxFv9udve5NNSt79CQD6YMclecsqTCBZZIB/MmGtv0Swv VqIE0n+Qn9tqoX1YUdTlx+pAvrbl2pcfF9tPCrjge9gIyPfUeLEscaU9D+8e pyYPIN+Zef0EhU32/1on6zCUSDg01D9U4WbYa/+k3Inhzykg/48fR0P8Sft1 0QuWf66QdHiwi7XKqv+6fbhtvceJvVIOO179dHZ699T+ztdn/IcOSTk8WGde LyD2zD5pnd/13celHASKS3fds31mnyMvl7b+opRDwu8PBtW9z+ybGPc2T3sK lOd5IbtF57n9uqO/9qXwSjsU6F77rpr9wp7Fr8yUMVbaQaFg02rOF6/su9ju /fmVKO0QYPLh2XX+1/b8+12PfEmTdqj4oau0zPy1vZSBaPCLAmmHCw0rZzi1 v7bXF9pScL4FKD9xQWu12hv7qGsfV89dA5Tf1Bf/NuWt/YO+yOLpG6UdGMrP zNrd89Y+1f2g1cRt0g4a1lzXOre8tS/YMeFkywFph4bDrT5qLO/s22bpP8++ Iu1gcKXGMn7xO3ue4OnrUm9KOyTM2FWie/qd/UTu/6Xx96QdOmJ+rP/96Z39 nJpzLMEvpB0ePClWm+H03l7R1OyMz1tpB46VGxPTst7bL3s7d7LbJ6B5ue/n mEx6b6+zjDXa4TvQPEPdG0y73ttvjAMlEKB5X0HpA5MPABSjBwg= "]], LineBox[CompressedData[" 1:eJwBQQK+/SFib1JlAgAAACMAAAACAAAAFAx0GQYHHEBgn180z8fvP8Vi9xRs DBxA2OlEWJ+c7z92uXoQ0hEcQFA0Knxvce8/JxD+CzgXHEDIfg+gP0bvP9hm gQeeHBxAQMn0ww8b7z86FIj+aSccQDBevwuwxO4/62oL+s8sHECoqKQvgJnu P5zBjvU1MhxAIPOJU1Bu7j/+bpXsAT0cQBCIVJvwF+4/wsmi2plSHEDwsekq MWvtP9Q02JL5qBxAYFk+aTO46j/4CkMDuVUdQECo5+U3UuU/UtE7Nh2YHkDg 6kKcLH7WPwo7C8G8nR5AYE9M7zMk1j/BpNpLXKMeQPCzVUI7ytU/MHh5YZuu HkAAfWjoSRbVPw4ft4wZxR5AIA+ONGeu0z/JbDLjFfIeQHAz2cyh3tA/QAgp kA5MH0AA+N76LX7GP/hx+BquUR9AAMHxoDzKxT+v28elTVcfQCCKBEdLFsU/ Hq9mu4xiH0BAHCqTaK7DP/xVpOYKeR9AgEB1K6PewD+3ox89B6YfQEASF7gw frY/bg3vx6arH0CApDwETha1PyZ3vlJGsR9AgDZiUGuusz+USl1ohbwfQABb reil3rA/cvGakwPTH0AAR4cyNn6mPypbah6j2B9AAGvSynCuoz/hxDmpQt4f QICPHWOr3qA/UJjYvoHpH0AAsGcnQX6WPwgCqEkh7x9AAPj9V7bekD+/a3fU wPQfQACCKBFXfoY/dtVGX2D6H0AAKKrkgn52Py4/Fur//x9AAAAA0sDplT68 gPa4 "]]}, {}}, {{}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-8, 8}, {0., 0.9967958436833406}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.516099696873773*^9, 3.5198535357375937`*^9, 3.5226067342246566`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:7e70\:308a\:8fd4\:3057", "Section"], Cell["\<\ \:5e73\:65b9\:6570\:306e\:30ea\:30b9\:30c8\:3092\:8272\:3005\:306a\:65b9\:6cd5\ \:3067\:4f5c\:6210\:3059\:308b\:ff0e\:624b\:7d9a\:304d\:578b\:306e\:30d7\:30ed\ \:30b0\:30e9\:30df\:30f3\:30b0\:3067\:306f For\:ff0cDo \:3092\:7528\:3044\ \:308b\:3053\:3068\:304c\:591a\:3044\:ff0e\ \>", "Text", CellChangeTimes->{{3.5226069827498713`*^9, 3.5226069860060577`*^9}}], Cell[CellGroupData[{ Cell["For", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "4"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Print", "[", RowBox[{"i", "^", "2"}], "]"}]}], "]"}]], "Input"], Cell[BoxData["1"], "Print", CellChangeTimes->{ 3.516099696884774*^9, {3.5198535357745957`*^9, 3.5198535442700815`*^9}, 3.522606734251658*^9}], Cell[BoxData["4"], "Print", CellChangeTimes->{ 3.516099696884774*^9, {3.5198535357745957`*^9, 3.5198535442700815`*^9}, 3.522606734252658*^9}], Cell[BoxData["9"], "Print", CellChangeTimes->{ 3.516099696884774*^9, {3.5198535357745957`*^9, 3.5198535442700815`*^9}, 3.5226067342546587`*^9}], Cell[BoxData["16"], "Print", CellChangeTimes->{ 3.516099696884774*^9, {3.5198535357745957`*^9, 3.5198535442700815`*^9}, 3.522606734255658*^9}] }, Open ]], Cell["\:6b21\:306f\:3001\:30ea\:30b9\:30c8\:5f62\:5f0f\:3067\:306e\:51fa\:529b\ ", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"list", "=", RowBox[{"{", "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<=", "4"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"AppendTo", "[", RowBox[{"list", ",", RowBox[{"i", "^", "2"}]}], "]"}]}], "]"}], ";"}], "\n", "list"}], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "4", ",", "9", ",", "16"}], "}"}]], "Output", CellChangeTimes->{ 3.5160996969127755`*^9, {3.5198535358085976`*^9, 3.519853544309084*^9}, 3.52260673428366*^9, 3.522606825563881*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Do", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"Print", "[", RowBox[{"i", "^", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "4"}], "}"}]}], "]"}], ";"}]], "Input"], Cell[BoxData["1"], "Print", CellChangeTimes->{ 3.5160996969407773`*^9, {3.519853535835599*^9, 3.519853544328085*^9}, 3.5226067343116617`*^9, 3.5226068216576576`*^9}], Cell[BoxData["4"], "Print", CellChangeTimes->{ 3.5160996969407773`*^9, {3.519853535835599*^9, 3.519853544328085*^9}, 3.5226067343116617`*^9, 3.5226068216616573`*^9}], Cell[BoxData["9"], "Print", CellChangeTimes->{ 3.5160996969407773`*^9, {3.519853535835599*^9, 3.519853544328085*^9}, 3.5226067343116617`*^9, 3.522606821663658*^9}], Cell[BoxData["16"], "Print", CellChangeTimes->{ 3.5160996969407773`*^9, {3.519853535835599*^9, 3.519853544328085*^9}, 3.5226067343116617`*^9, 3.522606821665658*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Nest", "Section"], Cell["\:95a2\:6570\:306e\:53cd\:5fa9\:306b\:306fFor\:3001 \ Do\:3092\:4f7f\:3046\:3053\:3068\:304c\:3042\:308b\:ff0e", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "x", "]"}], ",", RowBox[{"Clear", "[", "f", "]"}]}]], "Input", CellChangeTimes->{{3.5226068558346124`*^9, 3.5226068606538877`*^9}, { 3.5226068954628787`*^9, 3.5226069000861435`*^9}, {3.5226071228468847`*^9, 3.5226071303103113`*^9}}, EmphasizeSyntaxErrors->True], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", "a"}], ";"}], "\n", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<=", "5"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"x", "=", RowBox[{"f", "[", "x", "]"}]}]}], "]"}], ";"}], "\n", "x"}], "Input", CellChangeTimes->{{3.5226069066965213`*^9, 3.5226069076965785`*^9}, { 3.5226071357756243`*^9, 3.5226071370076942`*^9}}], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"f", "[", RowBox[{"f", "[", RowBox[{"f", "[", RowBox[{"f", "[", "a", "]"}], "]"}], "]"}], "]"}], "]"}]], "Output", CellChangeTimes->{ 3.516099696974779*^9, 3.519853550069413*^9, 3.522606734354664*^9, { 3.522606808478904*^9, 3.5226068162513485`*^9}, 3.5226069086646338`*^9, 3.5226071373907166`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", "a"}], ";"}], "\n", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"x", "=", RowBox[{"f", "[", "x", "]"}]}], ",", RowBox[{"{", "5", "}"}]}], "]"}], ";"}], "\n", "x"}], "Input", CellChangeTimes->{{3.5226069176561484`*^9, 3.5226069181441765`*^9}, { 3.522607140183876*^9, 3.5226071403588862`*^9}}], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"f", "[", RowBox[{"f", "[", RowBox[{"f", "[", RowBox[{"f", "[", "a", "]"}], "]"}], "]"}], "]"}], "]"}]], "Output", CellChangeTimes->{3.516099697004781*^9, 3.519853550111416*^9, 3.5226067343826656`*^9, 3.5226069189872246`*^9, 3.5226071408309135`*^9}] }, Open ]], Cell["\<\ \:3057\:304b\:3057\:ff0cMathematica \:306b\:306f Nest \ \:3068\:3044\:3046\:5f37\:529b\:306a\:30b3\:30de\:30f3\:30c9\:304c\:3042\:308a\ \:3001\:7c21\:6f54\:306a\:8868\:73fe\:306b\:306a\:308b\:ff0e\ \>", "Text", CellChangeTimes->{3.5226070118055334`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"x", "=", "a"}], ";", RowBox[{"Nest", "[", RowBox[{"f", ",", "x", ",", "5"}], "]"}]}]], "Input", CellChangeTimes->{{3.5226069255996027`*^9, 3.522606926110632*^9}, { 3.522607144831142*^9, 3.5226071450871563`*^9}}], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"f", "[", RowBox[{"f", "[", RowBox[{"f", "[", RowBox[{"f", "[", "a", "]"}], "]"}], "]"}], "]"}], "]"}]], "Output", CellChangeTimes->{3.5160996970307827`*^9, 3.5198535501534185`*^9, 3.522606734478671*^9, 3.522606926499654*^9, 3.5226071453641725`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:ff12\:3000Map\:3068 Apply", "Subtitle", CellChangeTimes->{{3.521104325451108*^9, 3.52110433073041*^9}}], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " \:3092\:3059\:3053\:3057\:9032\:3093\:3060\:4f7f\:3044\:65b9\:3092\:3057\ \:3088\:3046\:3068\:3059\:308b\:6642\:3001\:662f\:975e\:30de\:30b9\:30bf\:30fc\ \:3057\:3066\:304a\:304d\:305f\:3044\:30b3\:30de\:30f3\:30c9\:306e\:4e00\:3064\ \:3068\:3057\:3066Map \:3068Apply \:304c\:3042\:308b\:ff0e\:3068\:3082\:306b\ \:95a2\:6570\:3092\:5f15\:6570\:3068\:3057\:3001\:30ea\:30b9\:30c8\:3092\:64cd\ \:4f5c\:3059\:308b\:6642\:306b\:7528\:3044\:308b\:ff0e" }], "Text", CellChangeTimes->{{3.5226069997988462`*^9, 3.522607015905768*^9}}], Cell[CellGroupData[{ Cell["Apply", "Section"], Cell["\<\ Apply \:306f\:30ea\:30b9\:30c8\:3092\:7528\:3044\:305f\:8a08\:7b97\:904e\:7a0b\ \:3067\:3001f [{1, 2, 3} ] \:306e\:3088\:3046\:306b\:30ea\:30b9\:30c8\:306b\ \:4f5c\:7528\:3055\:305b\:308b\:306e\:3067\:306a\:304f\:3001\:30ea\:30b9\:30c8\ \:306e\:8981\:7d20\:306b\:95a2\:6570\:3092\:4f5c\:7528\:3055\:305b\:305f\:3044\ \:6642\:306b\:7528\:3044\:308b\:ff0e\ \>", "Text", CellChangeTimes->{{3.5226071526145873`*^9, 3.5226071618941183`*^9}, { 3.5226073348700113`*^9, 3.522607340388327*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Apply", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"1", ",", "2", ",", "3"}], "]"}]], "Output", CellChangeTimes->{ 3.516099697059784*^9, 3.5198535592349377`*^9, 3.522606734510673*^9, { 3.522607048395626*^9, 3.522607054267962*^9}, 3.5226071836323614`*^9}] }, Open ]], Cell["\:548c\:3092\:6c42\:3081\:308b\:ff0e", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}]], "Input"], Cell[BoxData["6"], "Output", CellChangeTimes->{ 3.5160996970887856`*^9, 3.5198535592689395`*^9, 3.5226067345386744`*^9, { 3.522607175228881*^9, 3.5226071973091435`*^9}}] }, Open ]], Cell["\<\ \:3053\:308c\:306f\:3001Apply \:304c\:5f0f\:306e \:982d\:90e8\:ff08 Head \ \:ff09\:3092\:5f15\:6570\:306b\:7f6e\:304d\:63db\:3048\:308b\:304b\:3089\:3067\ \:3042\:308b\:ff0e\ \>", "Text", CellChangeTimes->{{3.5226072024454374`*^9, 3.5226072077977433`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullForm", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]], "Input"], Cell[BoxData[ TagBox[ StyleBox[ RowBox[{"List", "[", RowBox[{"1", ",", "2", ",", "3"}], "]"}], ShowSpecialCharacters->False, ShowStringCharacters->True, NumberMarks->True], FullForm]], "Output", CellChangeTimes->{ 3.516099697116787*^9, 3.5198535592959414`*^9, 3.522606734577677*^9, { 3.5226071836943645`*^9, 3.52260721000687*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plus", "[", RowBox[{"1", ",", "2", ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.522607216711253*^9, 3.522607223854662*^9}}], Cell[BoxData["6"], "Output", CellChangeTimes->{ 3.516099697143789*^9, 3.519853559327943*^9, 3.5226067346056786`*^9, { 3.522607183724366*^9, 3.522607224213682*^9}}] }, Open ]] }, Open ]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\:7df4\:7fd2\:ff14", "\:ff1a", RowBox[{ "\:ff11\:ff0b\:ff12\:ff0b\:ff13\:ff0b\:30fb\:30fb\:30fb\:30fb\:30fb\:ff0b\ 100000", " ", "\:306e\:8a08\:7b97\:3092Sum\:3068Apply\:3068\:3067\:5b9f\:884c\:3057"}], "\:ff0c", "\:8a08\:7b97\:6642\:9593\:3092\:6bd4\:8f03\:3057\:3088\:3046", "\:ff0e", RowBox[{"\:ff08", "Timing"}]}], ")"}], TextForm]], "Subsubsection"], Cell["\<\ \:30ea\:30b9\:30c8\:306b\:4f5c\:7528\:3059\:308b\:95a2\:6570\:3082\:4f5c\:308b\ \:3053\:3068\:304c\:3067\:304d\:308b\:ff0e\:30ea\:30b9\:30c8\:306e\:5e73\:5747\ \:3092\:6c42\:3081\:308b\:95a2\:6570\:3092\:4f5c\:3063\:3066\:307f\:308b\:ff0e\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"average", "[", "list_", "]"}], ":=", RowBox[{ RowBox[{"Apply", "[", RowBox[{"Plus", ",", "list"}], "]"}], "/", RowBox[{"Length", "[", "list", "]"}]}]}]], "Input"], Cell["\<\ \:7df4\:7fd2\:ff15\:ff1a\:9069\:5f53\:306a1\:6b21\:5143\:30ea\:30b9\:30c8\ \:3092\:751f\:6210\:3057\:3066\:3001\:305d\:306e\:5e73\:5747\:3092\:6c42\:3081\ \:3066\:307f\:3088\:3046\:ff0e\ \>", "Subsubsection"], Cell[CellGroupData[{ Cell["Map", "Section"], Cell["\<\ Map \:306f\:30ea\:30b9\:30c8\:306e\:8981\:7d20\:4e00\:3064\:4e00\:3064\:306b\ \:95a2\:6570\:3092\:4f5c\:7528\:3055\:305b\:305f\:3044\:5834\:5408\:306b\:7528\ \:3044\:308b\:ff0e\ \>", "Text", CellChangeTimes->{{3.5226073478787556`*^9, 3.5226073497088604`*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", "f", "]"}]], "Input", CellChangeTimes->{{3.522607298874953*^9, 3.5226073025581636`*^9}, { 3.522607471493826*^9, 3.522607479918308*^9}, {3.5226075343594217`*^9, 3.5226075357665024`*^9}}, EmphasizeSyntaxErrors->True], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "1", "]"}], ",", RowBox[{"f", "[", "2", "]"}], ",", RowBox[{"f", "[", "3", "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5160996971767907`*^9, 3.5198535644072337`*^9, 3.52260673464268*^9, 3.522607183762369*^9, 3.5226072542454*^9, {3.522607293662655*^9, 3.522607305771347*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sin", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", "1", "]"}], ",", RowBox[{"Sin", "[", "2", "]"}], ",", RowBox[{"Sin", "[", "3", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.5160996972007923`*^9, 3.519853564442236*^9, 3.522606734675682*^9, 3.5226071837903705`*^9, 3.522607311918699*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"Sin", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", "1", "]"}], ",", RowBox[{"Sin", "[", "2", "]"}], ",", RowBox[{"Sin", "[", "3", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.5160996972277937`*^9, 3.519853564471237*^9, 3.522606734703684*^9, 3.5226071838283725`*^9, 3.5226073151598845`*^9}] }, Open ]], Cell["\<\ \:3053\:308c\:306f Sin \:304c\:305d\:3082\:305d\:3082\:30ea\:30b9\:30bf\:30d6\ \:30eb\:3068\:3044\:3046\:6027\:8cea\:3092\:6301\:3063\:3066\:3044\:308b\:304b\ \:3089\:3060\:304c\:ff0c\:4e00\:822c\:306e\:95a2\:6570\:306b\:306f\:6210\:308a\ \:7acb\:305f\:306a\:3044\:ff0e\ \>", "Text", CellChangeTimes->{{3.5226073664298167`*^9, 3.5226074102453227`*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", "g", "]"}]], "Input", CellChangeTimes->{{3.52260753975673*^9, 3.522607542638895*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"g", "[", "x", "]"}], "+", RowBox[{"h", "[", "x", "]"}]}]}]], "Input", CellChangeTimes->{3.522607435994796*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"g", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}], "+", RowBox[{"h", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "]"}]}]], "Output", CellChangeTimes->{ 3.5160996972647953`*^9, 3.5198535645152397`*^9, 3.5226067347456865`*^9, 3.522607183867375*^9, 3.5226074538238153`*^9, {3.5226074899668827`*^9, 3.5226074970932903`*^9}, 3.5226075481012077`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"f", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"g", "[", "1", "]"}], "+", RowBox[{"h", "[", "1", "]"}]}], ",", RowBox[{ RowBox[{"g", "[", "2", "]"}], "+", RowBox[{"h", "[", "2", "]"}]}], ",", RowBox[{ RowBox[{"g", "[", "3", "]"}], "+", RowBox[{"h", "[", "3", "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.516099697290797*^9, 3.5198535645432415`*^9, 3.522606734774688*^9, 3.522607183895376*^9, 3.522607550502345*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:7d14\:95a2\:6570\:ff08\:7121\:540d\:95a2\:6570\:ff09", "Section"], Cell["\<\ Map \:3084 Apply \:3092\:7528\:3044\:308b\:5834\:5408\:306f\:9069\:7528\:3055\ \:308c\:308b\:95a2\:6570\:306e\:540d\:524d\:3092\:6307\:5b9a\:3059\:308b\:5fc5\ \:8981\:304c\:3042\:3063\:305f\:ff0e\:3053\:3053\:3067\:306f\:95a2\:6570\:540d\ \:3092\:6307\:5b9a\:305b\:305a\:306b\:95a2\:6570\:3092\:5f15\:6570\:306b\:3059\ \:308b\:3053\:3068\:304c\:3067\:304d\:308b\:65b9\:6cd5\:3092\:7d39\:4ecb\:3059\ \:308b\:ff0e\ \>", "Text", CellChangeTimes->{{3.5226075760548067`*^9, 3.5226075803910546`*^9}}], Cell["3\:4e57\:306e\:95a2\:6570\:3092\:8003\:3048\:308b\:ff0e\:305d\:306e\ \:305f\:3081\:306b\:ff0c\:307e\:305a\:540d\:524d\:3092\:4ed8\:3051\:308b\:ff0e\ ", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"cube", "[", "x_", "]"}], ":=", RowBox[{"x", "^", "3"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{"cube", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "8", ",", "27"}], "}"}]], "Output", CellChangeTimes->{3.5160996973197985`*^9, 3.5198535680114393`*^9, 3.52260673481069*^9, 3.5226071839303784`*^9, 3.5226076012082453`*^9}] }, Open ]], Cell["\<\ \:540d\:524d\:3092\:4ed8\:3051\:305a\:306b\:884c\:3046\:306b\:306f\:3001\:7d14\ \:95a2\:6570\:3082\:3057\:304f\:306f\:7121\:540d\:95a2\:6570\:3068\:3044\:3046\ \:8003\:3048\:65b9\:3092\:7528\:3044\:308b\:ff0e\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"#", "^", "3"}], "&"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "8", ",", "27"}], "}"}]], "Output", CellChangeTimes->{3.5160996973478003`*^9, 3.5198535680404415`*^9, 3.5226067348376913`*^9, 3.52260718395738*^9, 3.5226076031493564`*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:ff13\:3000\:30d7\:30ed\:30b0\:30e9\:30df\:30f3\:30b0\:306b\:3088\:308b\ \:554f\:984c\:89e3\:6c7a", "Subtitle", Evaluatable->False, CellChangeTimes->{{3.521104340794986*^9, 3.521104341235011*^9}}, FontFamily->"Arial", FontWeight->"Bold", Background->GrayLevel[1]], Cell["\:ff12\:306e\:5e73\:65b9\:6839\:306e\:8fd1\:4f3c\:5024", "Section", CellChangeTimes->{{3.5226134072249603`*^9, 3.522613407797993*^9}}], Cell[TextData[{ "C \:3084 Java \:306a\:3069\:306e\:624b\:7d9a\:304d\:578b\:8a00\:8a9e\:3068 ", StyleBox["Mathematica", FontSlant->"Italic"], " \:8a00\:8a9e\:306e\:3068\:306e\:9055\:3044\:3092\:898b\:3066\:3044\:304f\ \:ff0e" }], "Text", CellChangeTimes->{{3.52260762682171*^9, 3.5226076338161106`*^9}}], Cell["\:554f\:984c\:306e\:628a\:63e1", "Subsection", Evaluatable->False, FontFamily->"Arial", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell["\:6b21\:306e\:95a2\:6570\:3092\:3082\:3068\:306b\:ff0c2 \:306e\:5e73\ \:65b9\:6839\:3092\:8fd1\:4f3c\:7684\:306b\:6c42\:3081\:3066\:307f\:3088\:3046\ \:ff0e", "Text", CellChangeTimes->{ 3.5226076395404377`*^9, {3.522607734916893*^9, 3.522607751554845*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", "f", "]"}]], "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"1", "+", FractionBox["1", RowBox[{"1", "+", "x"}]]}]}], ";"}]], "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "3"}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", "\[IndentingNewLine]", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "3"}], "}"}]}]}], "\[IndentingNewLine]", " ", "]"}]}]], "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwd1Asw1fkXAPDfffnpsndDtEslm4rySv8k0fdsaGURsnooJAq1Xv9Suyp7 y+PqRV4tVzYRlkrCjuzNN1Yoj7+3i7xlrrxKv8v1vP/7/5+ZM2c+M2fmzJyZ c7S8Ap196ARBnJPl/2ogf/qosrQfE/8PeUiqcSzqeNiPqzvOm841kQCWRVYF +/vwyhp1vxY9Ehb93zbU6/Xh7zQyZohNJPwV3+/6Ua0Px4Gbjvm3JGwfUvDb PN6L67IrTYQsEtS43nf4Cb14Ke7M91n9cjBRrtoRPfIeF9kqDl1KkoP7ZpfP ekb1YJup6oOXVsmBa8DyupGgHmwWtCVgN00O1B5dbznr1oO3StQQbZ4Fyavu WAQa9WBX+tijQhELEoUZKte6u/HY6qSHN2pZcC+0DvMNuvEDl11efTEsuPVi wzedHULsFRX2hKXCAtvRzIbjFUJcOvNlf68CC9jqujf68oU4krqZL2Cy4CZ3 59SH34S4y5x8HT/LBJ6jTRW1TYgVHwwkp3YzIXIqOEg5vBNzvAqPcrKYEL7t Ta391g7sqxBtZGLOhHQ9HV1LlQ68z589dMKECQKDWzGm0nbceMRfJ8aICRJj J9tNne24ZVF0eEabCSF7e+skUe3YmGdrK8dhwhk7cWPmaBteUXpDGgwywC5g c/v841ZM3S01tr3FgG9fRA4+1m7GiowMODhJB97eX4M/cppxWy/b1ExEB0lV AM1wvglHSE+/Nxymg7DziFZpQxO+6c5R1u2iQ/Ky7ql3oU1Yf5QId35Dh83x aRW99/6DT5R8nglLp8M3r/VfB3bXY8c6a3XChQ5SDcdXCedqMBVetTPrHQ3S 6ihjwrIGG1oUruuqpoFpWEruefUavDI2Qq3+hwYh3UMJ1m+rccv3t31i/qbB h98v+s9tqcb1VRNjaU9oUKfKX+s2VIXTinc8/DGWBve/Hg3+7lglDve5X1fo SgMPOYmd150yXCyyE0snCHiStDzWalGGgx4QFaIxAha0GdHWUy9xZdZwQeso AYmWnAqdQy+x0NxjqmCAgNrftHdNry7F+y6NP+e2EWC86Lj+SmIJVmv46jxP QADr05+TSfzn+PfGd/Zr7hLw9Ezgni05qThP2L1QZiKbxwixQO1PkcFQHPvX DVJkg6Wzz6IqELU1VbNEeQUp/NT/U2hQPYrwn5SeWruM9C6klScktCJmkUli Aiyhjdntqdx4IarUOnD8z9hFVMt4Gp+53IsmPCI3sT8soH5vnp9+1CByGPCW y3BdQMUnY9ZmWo6gNPcPN/rr5tF4e+7uw9QoCvHV6ld3mkcHr3OWGkLHUJ2C gsYnkQRxrSwbvQwnkIGg/F4TV4IGzMqtKl9OIQ1r82a+rgQ5CfPVnvE/IY/M YdvGrjmkuWFAiSf+jK6Y7XjZFTOHiGu7PX4w/YIesp/OV1nNoUbf0CKVZAo5 XBy1PyCdRQ4JVXB1UoxSRGd9xvEsGuzctbFefw7Jr+aXC3iz6FTOXTmdGAkK a4kvK3ecRVQcG/k1zCMXOdWhCs1ZtKcs6fkPCototKHejzcjRv4B8ro7vZdQ XHrOKecqMSowT//CyF5GHsc8I/L4YjSYpPFmkC5F/9phEKcYIkYJTPcLztoE WK+c23rIXow4fSWP6FUEWEmeWGluFyPiKtdlTzANqFtWTtOkGC3muhcMKdPh 7snwj69EFPo5teCOciUdvGxVZlJqKVS6nSevFMCA1FSjw/w8Cinahuhdl93Z yNUuyXgshTr1m1p/ETDhxCtaiP0FCuWnI+0Rdxa8iHPF+W4UOlpgorR+hQXM yow5nhWFwiIzuO/z5IBvsb32mh6FckXr+Rw7Ep4t2IRL1SgU8SDSs8+BhD9U ey5nyOzpPLn5mRMJ5p8cbljKvFYgeG5/hARm6dt30aoUiop1q77tRUJrye1N Smso5G2S8pn9Cwne3a6SLUoU2hixxobMJuHQiX++9lCg0JLpla86c0lADn3r GDILJ4dbsvNlfzfPziyHTaHYI0UnDxSSkL1POXt6FYVWtjn/O1JAAju6Brjy FHrfHJvOaCVhga4ansOS7Sdq7nRrOwk+xzxj7WRO3OuhmykkQWRdVvCZSaEf HxsU7+8jwWaQt9Fc5rLLDW+5YyQ0XFSvbKZTKFl/V6zTBAn11aedL8kcPJTm ojVNwkhbysw6mXXszve/pkjQPvq3ly+NQkxaW1bcHAnDvunGHJkHSvb6ey7I +n8+qVxMUEjgn2lotExChilFOy7zfU0FsVRKAifNnUbI/F/G/kEG "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJxFxV1IUwEYgOHjzlJxNZhFXoQ5wULLZRD+LI1JSlqZsKUohHOtFTlK02Qk ZXDEjQnVxKXhtEGt5mhtU1RQGVpiUeCkWmO7sP2YRJKrxK1Vbq682Pe98PKk i5sEF2kEQRT9f0tN/1aTMzFNl5q4+4c04HOy5RjPYeLFLJ+J/jIrXoKMak+1 7No8mN06OK1W20G23qGhelzgG9LUo4t8Aj0SZQNH4QPH6rpSdCXL4DeHIf9s 4At4soMZtslWQKq0ZEGcswp6j06Xzk5+B/ku427zwE8wba+XpQyugcTt/Pqy gnVw4bJsdGdfAKxUzxW3+4Ogz5nLnueEwPND9+Izu36Dge4kXoPtD8id6h0u Y2yA0sbErCOSMGgp0q6T+gjo693zykeLgmq6sFWQQRTHZLrHH9PmUKKdquI2 x4EbBqFlKZkGXtVY7ibPohMHlYmsRhLcfqolu4NJB52cd/Y2K2rU8jKWhdvA WkseK3UTvSl/RC0+iwcNX1MHmBUJYOdDuchdiYoE/n1mPppitQ6fqUEVqnOv 74hRSV7/WlIbyu7cVZ6gR8MFt3Y4DajL//mD3oiqakbrToygmwcE1+VWdPG9 Skva0QlF6ILdgd4vrM/SudDTTw+NHXejUzdsb6kVtI+Tq+Kvos1Lg1XpP9DM iiueFwGUHvfxSXcI9Y4XSkV/UatUl3M4gj5IYwSjUfQf1Wu6IQ== "]]}}, Axes->True, AxesOrigin->{0, 0}, ImageSize->{286., Automatic}, PlotRange->{{-1, 3}, {-0.1, 3}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{{3.516099697391803*^9, 3.516099717199936*^9}, 3.5198534917510777`*^9, 3.5198535745648146`*^9, 3.522607656526409*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "x", "]"}], "==", "x"}], ",", "x"}], "]"}]], "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwd1Asw1fkXAPDfffnpsndDtEslm4rySv8k0fdsaGURsnooJAq1Xv9Suyp7 y+PqRV4tVzYRlkrCjuzNN1Yoj7+3i7xlrrxKv8v1vP/7/5+ZM2c+M2fmzJyZ c7S8Ap196ARBnJPl/2ogf/qosrQfE/8PeUiqcSzqeNiPqzvOm841kQCWRVYF +/vwyhp1vxY9Ehb93zbU6/Xh7zQyZohNJPwV3+/6Ua0Px4Gbjvm3JGwfUvDb PN6L67IrTYQsEtS43nf4Cb14Ke7M91n9cjBRrtoRPfIeF9kqDl1KkoP7ZpfP ekb1YJup6oOXVsmBa8DyupGgHmwWtCVgN00O1B5dbznr1oO3StQQbZ4Fyavu WAQa9WBX+tijQhELEoUZKte6u/HY6qSHN2pZcC+0DvMNuvEDl11efTEsuPVi wzedHULsFRX2hKXCAtvRzIbjFUJcOvNlf68CC9jqujf68oU4krqZL2Cy4CZ3 59SH34S4y5x8HT/LBJ6jTRW1TYgVHwwkp3YzIXIqOEg5vBNzvAqPcrKYEL7t Ta391g7sqxBtZGLOhHQ9HV1LlQ68z589dMKECQKDWzGm0nbceMRfJ8aICRJj J9tNne24ZVF0eEabCSF7e+skUe3YmGdrK8dhwhk7cWPmaBteUXpDGgwywC5g c/v841ZM3S01tr3FgG9fRA4+1m7GiowMODhJB97eX4M/cppxWy/b1ExEB0lV AM1wvglHSE+/Nxymg7DziFZpQxO+6c5R1u2iQ/Ky7ql3oU1Yf5QId35Dh83x aRW99/6DT5R8nglLp8M3r/VfB3bXY8c6a3XChQ5SDcdXCedqMBVetTPrHQ3S 6ihjwrIGG1oUruuqpoFpWEruefUavDI2Qq3+hwYh3UMJ1m+rccv3t31i/qbB h98v+s9tqcb1VRNjaU9oUKfKX+s2VIXTinc8/DGWBve/Hg3+7lglDve5X1fo SgMPOYmd150yXCyyE0snCHiStDzWalGGgx4QFaIxAha0GdHWUy9xZdZwQeso AYmWnAqdQy+x0NxjqmCAgNrftHdNry7F+y6NP+e2EWC86Lj+SmIJVmv46jxP QADr05+TSfzn+PfGd/Zr7hLw9Ezgni05qThP2L1QZiKbxwixQO1PkcFQHPvX DVJkg6Wzz6IqELU1VbNEeQUp/NT/U2hQPYrwn5SeWruM9C6klScktCJmkUli Aiyhjdntqdx4IarUOnD8z9hFVMt4Gp+53IsmPCI3sT8soH5vnp9+1CByGPCW y3BdQMUnY9ZmWo6gNPcPN/rr5tF4e+7uw9QoCvHV6ld3mkcHr3OWGkLHUJ2C gsYnkQRxrSwbvQwnkIGg/F4TV4IGzMqtKl9OIQ1r82a+rgQ5CfPVnvE/IY/M YdvGrjmkuWFAiSf+jK6Y7XjZFTOHiGu7PX4w/YIesp/OV1nNoUbf0CKVZAo5 XBy1PyCdRQ4JVXB1UoxSRGd9xvEsGuzctbFefw7Jr+aXC3iz6FTOXTmdGAkK a4kvK3ecRVQcG/k1zCMXOdWhCs1ZtKcs6fkPCototKHejzcjRv4B8ro7vZdQ XHrOKecqMSowT//CyF5GHsc8I/L4YjSYpPFmkC5F/9phEKcYIkYJTPcLztoE WK+c23rIXow4fSWP6FUEWEmeWGluFyPiKtdlTzANqFtWTtOkGC3muhcMKdPh 7snwj69EFPo5teCOciUdvGxVZlJqKVS6nSevFMCA1FSjw/w8Cinahuhdl93Z yNUuyXgshTr1m1p/ETDhxCtaiP0FCuWnI+0Rdxa8iHPF+W4UOlpgorR+hQXM yow5nhWFwiIzuO/z5IBvsb32mh6FckXr+Rw7Ep4t2IRL1SgU8SDSs8+BhD9U ey5nyOzpPLn5mRMJ5p8cbljKvFYgeG5/hARm6dt30aoUiop1q77tRUJrye1N Smso5G2S8pn9Cwne3a6SLUoU2hixxobMJuHQiX++9lCg0JLpla86c0lADn3r GDILJ4dbsvNlfzfPziyHTaHYI0UnDxSSkL1POXt6FYVWtjn/O1JAAju6Brjy FHrfHJvOaCVhga4ansOS7Sdq7nRrOwk+xzxj7WRO3OuhmykkQWRdVvCZSaEf HxsU7+8jwWaQt9Fc5rLLDW+5YyQ0XFSvbKZTKFl/V6zTBAn11aedL8kcPJTm ojVNwkhbysw6mXXszve/pkjQPvq3ly+NQkxaW1bcHAnDvunGHJkHSvb6ey7I +n8+qVxMUEjgn2lotExChilFOy7zfU0FsVRKAifNnUbI/F/G/kEG "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJxFxV1IUwEYgOHjzlJxNZhFXoQ5wULLZRD+LI1JSlqZsKUohHOtFTlK02Qk ZXDEjQnVxKXhtEGt5mhtU1RQGVpiUeCkWmO7sP2YRJKrxK1Vbq682Pe98PKk i5sEF2kEQRT9f0tN/1aTMzFNl5q4+4c04HOy5RjPYeLFLJ+J/jIrXoKMak+1 7No8mN06OK1W20G23qGhelzgG9LUo4t8Aj0SZQNH4QPH6rpSdCXL4DeHIf9s 4At4soMZtslWQKq0ZEGcswp6j06Xzk5+B/ku427zwE8wba+XpQyugcTt/Pqy gnVw4bJsdGdfAKxUzxW3+4Ogz5nLnueEwPND9+Izu36Dge4kXoPtD8id6h0u Y2yA0sbErCOSMGgp0q6T+gjo693zykeLgmq6sFWQQRTHZLrHH9PmUKKdquI2 x4EbBqFlKZkGXtVY7ibPohMHlYmsRhLcfqolu4NJB52cd/Y2K2rU8jKWhdvA WkseK3UTvSl/RC0+iwcNX1MHmBUJYOdDuchdiYoE/n1mPppitQ6fqUEVqnOv 74hRSV7/WlIbyu7cVZ6gR8MFt3Y4DajL//mD3oiqakbrToygmwcE1+VWdPG9 Skva0QlF6ILdgd4vrM/SudDTTw+NHXejUzdsb6kVtI+Tq+Kvos1Lg1XpP9DM iiueFwGUHvfxSXcI9Y4XSkV/UatUl3M4gj5IYwSjUfQf1Wu6IQ== "]]}}, Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-1, 3}, {-0.1, 3}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}], "\[Rule]", RowBox[{"-", SqrtBox["2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwd1Asw1fkXAPDfffnpsndDtEslm4rySv8k0fdsaGURsnooJAq1Xv9Suyp7 y+PqRV4tVzYRlkrCjuzNN1Yoj7+3i7xlrrxKv8v1vP/7/5+ZM2c+M2fmzJyZ c7S8Ap196ARBnJPl/2ogf/qosrQfE/8PeUiqcSzqeNiPqzvOm841kQCWRVYF +/vwyhp1vxY9Ehb93zbU6/Xh7zQyZohNJPwV3+/6Ua0Px4Gbjvm3JGwfUvDb PN6L67IrTYQsEtS43nf4Cb14Ke7M91n9cjBRrtoRPfIeF9kqDl1KkoP7ZpfP ekb1YJup6oOXVsmBa8DyupGgHmwWtCVgN00O1B5dbznr1oO3StQQbZ4Fyavu WAQa9WBX+tijQhELEoUZKte6u/HY6qSHN2pZcC+0DvMNuvEDl11efTEsuPVi wzedHULsFRX2hKXCAtvRzIbjFUJcOvNlf68CC9jqujf68oU4krqZL2Cy4CZ3 59SH34S4y5x8HT/LBJ6jTRW1TYgVHwwkp3YzIXIqOEg5vBNzvAqPcrKYEL7t Ta391g7sqxBtZGLOhHQ9HV1LlQ68z589dMKECQKDWzGm0nbceMRfJ8aICRJj J9tNne24ZVF0eEabCSF7e+skUe3YmGdrK8dhwhk7cWPmaBteUXpDGgwywC5g c/v841ZM3S01tr3FgG9fRA4+1m7GiowMODhJB97eX4M/cppxWy/b1ExEB0lV AM1wvglHSE+/Nxymg7DziFZpQxO+6c5R1u2iQ/Ky7ql3oU1Yf5QId35Dh83x aRW99/6DT5R8nglLp8M3r/VfB3bXY8c6a3XChQ5SDcdXCedqMBVetTPrHQ3S 6ihjwrIGG1oUruuqpoFpWEruefUavDI2Qq3+hwYh3UMJ1m+rccv3t31i/qbB h98v+s9tqcb1VRNjaU9oUKfKX+s2VIXTinc8/DGWBve/Hg3+7lglDve5X1fo SgMPOYmd150yXCyyE0snCHiStDzWalGGgx4QFaIxAha0GdHWUy9xZdZwQeso AYmWnAqdQy+x0NxjqmCAgNrftHdNry7F+y6NP+e2EWC86Lj+SmIJVmv46jxP QADr05+TSfzn+PfGd/Zr7hLw9Ezgni05qThP2L1QZiKbxwixQO1PkcFQHPvX DVJkg6Wzz6IqELU1VbNEeQUp/NT/U2hQPYrwn5SeWruM9C6klScktCJmkUli Aiyhjdntqdx4IarUOnD8z9hFVMt4Gp+53IsmPCI3sT8soH5vnp9+1CByGPCW y3BdQMUnY9ZmWo6gNPcPN/rr5tF4e+7uw9QoCvHV6ld3mkcHr3OWGkLHUJ2C gsYnkQRxrSwbvQwnkIGg/F4TV4IGzMqtKl9OIQ1r82a+rgQ5CfPVnvE/IY/M YdvGrjmkuWFAiSf+jK6Y7XjZFTOHiGu7PX4w/YIesp/OV1nNoUbf0CKVZAo5 XBy1PyCdRQ4JVXB1UoxSRGd9xvEsGuzctbFefw7Jr+aXC3iz6FTOXTmdGAkK a4kvK3ecRVQcG/k1zCMXOdWhCs1ZtKcs6fkPCototKHejzcjRv4B8ro7vZdQ XHrOKecqMSowT//CyF5GHsc8I/L4YjSYpPFmkC5F/9phEKcYIkYJTPcLztoE WK+c23rIXow4fSWP6FUEWEmeWGluFyPiKtdlTzANqFtWTtOkGC3muhcMKdPh 7snwj69EFPo5teCOciUdvGxVZlJqKVS6nSevFMCA1FSjw/w8Cinahuhdl93Z yNUuyXgshTr1m1p/ETDhxCtaiP0FCuWnI+0Rdxa8iHPF+W4UOlpgorR+hQXM yow5nhWFwiIzuO/z5IBvsb32mh6FckXr+Rw7Ep4t2IRL1SgU8SDSs8+BhD9U ey5nyOzpPLn5mRMJ5p8cbljKvFYgeG5/hARm6dt30aoUiop1q77tRUJrye1N Smso5G2S8pn9Cwne3a6SLUoU2hixxobMJuHQiX++9lCg0JLpla86c0lADn3r GDILJ4dbsvNlfzfPziyHTaHYI0UnDxSSkL1POXt6FYVWtjn/O1JAAju6Brjy FHrfHJvOaCVhga4ansOS7Sdq7nRrOwk+xzxj7WRO3OuhmykkQWRdVvCZSaEf HxsU7+8jwWaQt9Fc5rLLDW+5YyQ0XFSvbKZTKFl/V6zTBAn11aedL8kcPJTm ojVNwkhbysw6mXXszve/pkjQPvq3ly+NQkxaW1bcHAnDvunGHJkHSvb6ey7I +n8+qVxMUEjgn2lotExChilFOy7zfU0FsVRKAifNnUbI/F/G/kEG "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJxFxV1IUwEYgOHjzlJxNZhFXoQ5wULLZRD+LI1JSlqZsKUohHOtFTlK02Qk ZXDEjQnVxKXhtEGt5mhtU1RQGVpiUeCkWmO7sP2YRJKrxK1Vbq682Pe98PKk i5sEF2kEQRT9f0tN/1aTMzFNl5q4+4c04HOy5RjPYeLFLJ+J/jIrXoKMak+1 7No8mN06OK1W20G23qGhelzgG9LUo4t8Aj0SZQNH4QPH6rpSdCXL4DeHIf9s 4At4soMZtslWQKq0ZEGcswp6j06Xzk5+B/ku427zwE8wba+XpQyugcTt/Pqy gnVw4bJsdGdfAKxUzxW3+4Ogz5nLnueEwPND9+Izu36Dge4kXoPtD8id6h0u Y2yA0sbErCOSMGgp0q6T+gjo693zykeLgmq6sFWQQRTHZLrHH9PmUKKdquI2 x4EbBqFlKZkGXtVY7ibPohMHlYmsRhLcfqolu4NJB52cd/Y2K2rU8jKWhdvA WkseK3UTvSl/RC0+iwcNX1MHmBUJYOdDuchdiYoE/n1mPppitQ6fqUEVqnOv 74hRSV7/WlIbyu7cVZ6gR8MFt3Y4DajL//mD3oiqakbrToygmwcE1+VWdPG9 Skva0QlF6ILdgd4vrM/SudDTTw+NHXejUzdsb6kVtI+Tq+Kvos1Lg1XpP9DM iiueFwGUHvfxSXcI9Y4XSkV/UatUl3M4gj5IYwSjUfQf1Wu6IQ== "]]}}, Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-1, 3}, {-0.1, 3}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}], "\[Rule]", SqrtBox["2"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.516099697706821*^9, 3.5198534919970922`*^9, 3.5198535746358185`*^9, 3.522607671424261*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Basic\:30d7\:30ed\:30b0\:30e9\:30df\:30f3\:30b0\:3067\:306f", \ "Subsection", Evaluatable->False, FontFamily->"Arial", FontSize->10, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell["\<\ *DEFDBL X,Y INPUT \"N=\";N X=1 FOR I=1 TO N Y=1+1/(1+X) X=Y NEXT I PRINT Y END * \ \>", "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]] }, Open ]], Cell["For\:30eb\:30fc\:30d7", "Subsection", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", "1"}], ";"}], "\n", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "18"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"x", "=", RowBox[{"f", "[", "x", "]"}]}]}], "]"}], ";"}], "\n", "x"}], "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[BoxData[ FractionBox["9369319", "6625109"]], "Output", CellChangeTimes->{ 3.5160996979458346`*^9, 3.5198535747808266`*^9, {3.5226077705219297`*^9, 3.522607777158309*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", "%", "]"}]], "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[BoxData["1.414213562373087`"], "Output", CellChangeTimes->{3.5160996979758368`*^9, 3.5198535748038282`*^9, 3.522607778730399*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{"%%", ",", "16"}], "]"}]], "Input", PageWidth->Infinity], Cell[BoxData["1.41421356237308699373851811343783173983`16."], "Output", CellChangeTimes->{3.5160996980558405`*^9, 3.51985357482883*^9, 3.5226077797644577`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ SqrtBox["2"], ",", "16"}], "]"}]], "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[BoxData["1.41421356237309504880168872420969807857`16."], "Output", CellChangeTimes->{3.5160996980868425`*^9, 3.519853574855831*^9, 3.5226077808035173`*^9}] }, Open ]], Cell[BoxData[ FormBox[ RowBox[{ "\:7df4\:7fd2\:ff16", "\:ff1a", "\:ff17\:306e\:6b63\:306e\:5e73\:65b9\:6839\:306e\:8fd1\:4f3c\:5024\:3092\ \:6c42\:3081\:306a\:3055\:3044", "\:ff0e"}], TextForm]], "Subsubsection"], Cell["\:95a2\:6570\:578b\:306b\:66f8\:304d\:63db\:3048\:308b\:306b\:306f\:6b21\ \:306e\:3088\:3046\:306b\:3059\:308b\:3068\:3044\:3044\:ff0e", "Text", CellChangeTimes->{{3.522607815173483*^9, 3.522607833402526*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ROOT2", "[", "n_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "=", "1"}], ",", "i"}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"x", "=", RowBox[{"f", "[", "x", "]"}]}]}], "]"}], ";", "x"}]}], "\[IndentingNewLine]", " ", "]"}]}]], "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell["n = 18 \:306b\:3059\:308b\:3068,", "Text", CellChangeTimes->{{3.5226078387968345`*^9, 3.522607847236317*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ROOT2", "[", "18", "]"}]], "Input", PageWidth->Infinity, FontFamily->"Courier New", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[BoxData[ FractionBox["9369319", "6625109"]], "Output", CellChangeTimes->{3.5160996981318455`*^9, 3.519853574890833*^9, 3.522607849974474*^9}] }, Open ]], Cell[BoxData[ FormBox[ RowBox[{ "\:7df4\:7fd2\:ff17", "\:ff1a", "\:3053\:306e\:8fd1\:4f3c\:5024\:3092\:6c42\:3081\:308b\:306b\:306f\:3069\ \:3046\:3057\:305f\:3089\:3088\:3044\:304b", "\:ff0e", "\:307e\:305f", "\:3001", RowBox[{ "20", "\:6841\:306e\:7cbe\:5ea6\:3067\:8868\:793a\:3059\:308b\:306b\:306f\ \:3069\:3046\:3057\:305f\:3089\:3088\:3044\:304b"}], "\:ff0e"}], TextForm]], "Subsubsection", CellChangeTimes->{{3.5226078639922757`*^9, 3.5226078651433415`*^9}}], Cell[CellGroupData[{ Cell["Do\:30eb\:30fc\:30d7", "Subsection", Evaluatable->False], Cell["\:30b3\:30de\:30f3\:30c9 Do \:3092\:4f7f\:3063\:3066\:307f\:308b\:ff0e \ ", "Text", CellChangeTimes->{{3.5226078921178846`*^9, 3.522607932835213*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", "1"}], ";"}], "\n", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"x", "=", RowBox[{"f", "[", "x", "]"}]}], ",", RowBox[{"{", "18", "}"}]}], "]"}], ";", "x"}]}], "Input", PageWidth->Infinity], Cell[BoxData[ FractionBox["9369319", "6625109"]], "Output", CellChangeTimes->{ 3.516099698161847*^9, 3.5198535749208345`*^9, {3.522607870850668*^9, 3.522607874889899*^9}, 3.5226079372124634`*^9}] }, Open ]], Cell["\:95a2\:6570\:578b\:306b\:66f8\:304d\:63db\:3048\:308b\:306b\:306f,", \ "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Root2", "[", "n_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"x", "=", "1"}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"x", "=", RowBox[{"f", "[", "x", "]"}]}], ",", RowBox[{"{", "n", "}"}]}], "]"}], ";", RowBox[{"N", "[", RowBox[{"x", ",", "20"}], "]"}]}]}], "\[IndentingNewLine]", " ", "]"}]}]], "Input", PageWidth->Infinity], Cell["n = 10 \:306b\:3059\:308b\:3068,", "Text", CellChangeTimes->{{3.5226079430867996`*^9, 3.522607947876074*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Root2", "[", "10", "]"}]], "Input", PageWidth->Infinity], Cell[BoxData["1.4142135516460546943041282006619055913603901759275387563143`20.\ "], "Output", CellChangeTimes->{ 3.5160996982078495`*^9, {3.5198535749518366`*^9, 3.519853582772284*^9}, 3.5226079501982064`*^9}] }, Open ]] }, Open ]], Cell["\:8fd1\:4f3c\:5024\:3092\:30ea\:30b9\:30c8\:306b\:3059\:308b\:306b\:306f\ ,", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Root2", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.5`20.", ",", "1.3999999999999999999999999999999999999999999999999999999999`20.", ",", "1.4166666666666666666666666666666666666666666666666666666667`20.", ",", "1.4137931034482758620689655172413793103448275862068965517241`20.", ",", "1.4142857142857142857142857142857142857142857142857142857143`20.", ",", "1.4142011834319526627218934911242603550295857988165680473373`20.", ",", "1.4142156862745098039215686274509803921568627450980392156863`20.", ",", "1.4142131979695431472081218274111675126903553299492385786803`20.", ",", "1.4142136248948696383515559293523969722455845248107653490328`20.", ",", "1.4142135516460546943041282006619055913603901759275387563143`20."}], "}"}]], "Output", CellChangeTimes->{3.516099698237851*^9, 3.5198534823205385`*^9, 3.5198535828002853`*^9, 3.522607956117545*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Recusive Programming\:ff08\:518d\:5e30\:7684\:30d7\:30ed\:30b0\:30e9\:30df\ \:30f3\:30b0\:ff09\ \>", "Subsection", Evaluatable->False], Cell["\<\ \:95a2\:6570\:3092\:5b9a\:7fa9\:3059\:308b\:3068\:304d,\:81ea\:5206\:306e\ \:5b9a\:7fa9\:306b\:81ea\:5206\:81ea\:8eab\:3092\:7528\:3044\:308b\:5b9a\:7fa9\ \:3092\:300c\:518d\:5e30\:7684\:5b9a\:7fa9\:300d\:3068\:547c\:3076\:ff0e\:3053\ \:306e\:8003\:3048\:65b9\:306f\:30d7\:30ed\:30b0\:30e9\:30df\:30f3\:30b0\:3067\ \:306f\:3088\:304f\:7528\:3044\:3089\:308c\:308b\:ff0e\ \>", "Text", CellChangeTimes->{{3.5226080120547447`*^9, 3.5226080791765833`*^9}}], Cell["\<\ \:3053\:3053\:3067\:306f\:30d5\:30a3\:30dc\:30ca\:30c3\:30c1\:6570\:5217\:3092\ \:4f8b\:306b\:53d6\:308a\:4e0a\:3052\:308b\:ff0e\:3053\:308c\:306f13\:4e16\ \:7d00\:30a4\:30bf\:30ea\:30a2\:306e\:6570\:5b66\:8005\:30d5\:30a3\:30dc\:30ca\ \:30c3\:30c1\:306b\:3088\:3063\:3066\:7814\:7a76\:3055\:308c\:305f\:6709\:540d\ \:306a\:6570\:5217\:3067\:3042\:308b\:ff0e\ \>", "Text", CellChangeTimes->{{3.5226081057501035`*^9, 3.5226081207209597`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"fib", "[", "0", "]"}], ":=", "0"}], ";", RowBox[{ RowBox[{"fib", "[", "1", "]"}], ":=", "1"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"fib", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"fib", "[", RowBox[{"n", "-", "2"}], "]"}], "+", RowBox[{"fib", "[", RowBox[{"n", "-", "1"}], "]"}]}]}]], "Input"], Cell["\:3068\:5b9a\:7fa9\:3059\:308c\:3070\:3044\:3044\:ff0e\:4f8b\:3048\:3070\ \:ff0c", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fib", "[", "7", "]"}]], "Input", CellChangeTimes->{{3.522608137134898*^9, 3.5226081449423447`*^9}}], Cell[BoxData["13"], "Output", CellChangeTimes->{ 3.5160996982888546`*^9, 3.519853482449546*^9, {3.5198535828452883`*^9, 3.5198535980481577`*^9}, {3.5226081332656775`*^9, 3.5226081456823874`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"fib", "[", "30", "]"}], "//", "Timing"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8549999999999995`", ",", "832040"}], "}"}]], "Output", CellChangeTimes->{ 3.516099701106015*^9, 3.51985348532471*^9, {3.519853585604446*^9, 3.519853600860318*^9}, 3.5226081509116864`*^9}] }, Open ]], Cell["\<\ \:5b9f\:306f\:3053\:306e\:30d7\:30ed\:30b0\:30e9\:30df\:30f3\:30b0\:306f\:8a08\ \:7b97\:306b\:6642\:9593\:304c\:304b\:304b\:308b\:ff0e\:4e00\:5ea6\:8a08\:7b97\ \:3057\:305f\:7d50\:679c\:306b\:5bfe\:3057\:3066\:3082\:7e70\:308a\:8fd4\:3057\ \:8a08\:7b97\:3059\:308b\:305f\:3081,\:7121\:99c4\:306b\:6642\:9593\:3092\ \:3068\:3063\:3066\:3057\:307e\:3046\:ff0e\:3053\:306e\:3088\:3046\:306a\:3068\ \:304d\:306f\:6b21\:306e\:3088\:3046\:306b\:6539\:5584\:3059\:308b\:ff0e\ \>", "Text", CellChangeTimes->{{3.522608159409172*^9, 3.5226081631803885`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"fibb", "[", "0", "]"}], ":=", "0"}], ";", RowBox[{ RowBox[{"fibb", "[", "1", "]"}], ":=", "1"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"fibb", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"fibb", "[", "n", "]"}], "=", RowBox[{ RowBox[{"fibb", "[", RowBox[{"n", "-", "2"}], "]"}], "+", RowBox[{"fibb", "[", RowBox[{"n", "-", "1"}], "]"}]}]}]}]], "Input"], Cell["\:3068\:5b9a\:7fa9\:3059\:308c\:3070\:3044\:3044\:ff0e", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"fibb", "[", "30", "]"}], "//", "Timing"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.`", ",", "832040"}], "}"}]], "Output", CellChangeTimes->{ 3.5160997014760365`*^9, 3.519853485386714*^9, {3.519853585653449*^9, 3.5198536009173217`*^9}, 3.5226081743260255`*^9}] }, Open ]], Cell["\<\ \:3053\:306e\:65b9\:6cd5\:3067\:306f,\:4e00\:5ea6\:8a08\:7b97\:3057\:305f \ fibb[n] \:3092\:30e1\:30e2\:30ea\:306b\:8a18\:61b6\:3059\:308b\:3053\:3068\ \:306b\:3088\:3063\:3066\:7121\:99c4\:306a\:8a08\:7b97\:3092\:56de\:907f\:3057\ \:3066\:3044\:308b\:ff0e\:3053\:308c\:3092\:52d5\:7684\:30d7\:30ed\:30b0\:30e9\ \:30df\:30f3\:30b0\:ff08\:30c0\:30a4\:30ca\:30df\:30c3\:30af\:30d7\:30ed\:30b0\ \:30e9\:30df\:30f3\:30b0\:ff09\:3068\:547c\:3076\:ff0e\ \>", "Text", CellChangeTimes->{{3.5226081872047625`*^9, 3.522608190970978*^9}, { 3.5226082378846607`*^9, 3.522608270468525*^9}}], Cell["\<\ \:6b21\:306b\:518d\:5e30\:7684\:306a\:30d7\:30ed\:30b0\:30e9\:30df\:30f3\:30b0\ \:3067\:ff0c\:ff12\:306e\:5e73\:65b9\:6839\:3092\:6c42\:3081\:308b\:306b\:306f\ \:6b21\:306e\:3088\:3046\:306b\:3059\:308b\:ff0e\ \>", "Text"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"root2", "[", "0", "]"}], "=", "1"}], ";"}], "\n", RowBox[{ RowBox[{"root2", "[", "i_", "]"}], ":=", RowBox[{ RowBox[{"root2", "[", "i", "]"}], "=", RowBox[{"1", "+", FractionBox["1", RowBox[{"1", "+", RowBox[{"root2", "[", RowBox[{"i", "-", "1"}], "]"}]}]]}]}]}]}], "Input", PageWidth->Infinity], Cell["n = 10 \:306b\:3059\:308b\:3068,", "Text", CellChangeTimes->{{3.522608209839057*^9, 3.522608212988237*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"root2", "[", "10", "]"}]], "Input", PageWidth->Infinity], Cell[BoxData[ FractionBox["8119", "5741"]], "Output", CellChangeTimes->{3.51609970153004*^9, 3.519853600962324*^9, 3.522608217460493*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"root2", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "10"}], "}"}]}], "]"}], "//", "N"}]], "Input", PageWidth->Infinity], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.`", ",", "1.5`", ",", "1.4`", ",", "1.4166666666666667`", ",", "1.4137931034482758`", ",", "1.4142857142857144`", ",", "1.4142011834319526`", ",", "1.4142156862745099`", ",", "1.4142131979695431`", ",", "1.4142136248948696`", ",", "1.4142135516460548`"}], "}"}]], "Output", CellChangeTimes->{3.516099701554041*^9, 3.5198536010053267`*^9, 3.522608220117645*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Nest\:ff08\:53cd\:5fa9\:30b3\:30de\:30f3\:30c9\:ff09", "Subsection", Evaluatable->False], Cell["\<\ Mathematica\:306b\:306f\:7e70\:308a\:8fd4\:3057\:306b\:5bfe\:3057\:3066, Nest \ \:3068\:3044\:3046\:4fbf\:5229\:306a\:95a2\:6570\:304c\:3042\:308b\:ff0e\:3053\ \:308c\:306f\:95a2\:6570\:306e\:53cd\:5fa9\:306b\:6709\:7528\:3067\:3042\:308b\ \:ff0e\ \>", "Text", CellChangeTimes->{{3.52260829048867*^9, 3.522608294045873*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", "f", "]"}]], "Input", PageWidth->Infinity], Cell[BoxData[ RowBox[{"x", "=."}]], "Input", PageWidth->Infinity], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Nest", "[", RowBox[{"f", ",", "x", ",", "3"}], "]"}]], "Input", PageWidth->Infinity], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"f", "[", RowBox[{"f", "[", "x", "]"}], "]"}], "]"}]], "Output", CellChangeTimes->{3.516099701604044*^9, 3.5198536010563297`*^9, 3.5226083017803154`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NestList", "[", RowBox[{"f", ",", "x", ",", "3"}], "]"}]], "Input", PageWidth->Infinity], Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"f", "[", RowBox[{"f", "[", "x", "]"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"f", "[", RowBox[{"f", "[", "x", "]"}], "]"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.516099701638046*^9, 3.519853601098332*^9, 3.5226083028793783`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Nest", "[", RowBox[{"Cos", ",", "x", ",", "3"}], "]"}]], "Input", PageWidth->Infinity], Cell[BoxData[ RowBox[{"Cos", "[", RowBox[{"Cos", "[", RowBox[{"Cos", "[", "x", "]"}], "]"}], "]"}]], "Output", CellChangeTimes->{3.516099701661047*^9, 3.5198536011413345`*^9, 3.5226083043824644`*^9}] }, Open ]], Cell[TextData[{ StyleBox["NestList ", FontWeight->"Bold"], "\:3068\:7121\:540d\:95a2\:6570\:3092\:4f7f\:3046\:3053\:3068\:3067," }], "Text", CellChangeTimes->{{3.522608305860549*^9, 3.522608310100792*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NestList", "[", RowBox[{ RowBox[{ RowBox[{"1", "+", FractionBox["1", RowBox[{"1", "+", "#1"}]]}], "&"}], ",", "1", ",", "11"}], "]"}]], "Input", PageWidth->Infinity], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", FractionBox["3", "2"], ",", FractionBox["7", "5"], ",", FractionBox["17", "12"], ",", FractionBox["41", "29"], ",", FractionBox["99", "70"], ",", FractionBox["239", "169"], ",", FractionBox["577", "408"], ",", FractionBox["1393", "985"], ",", FractionBox["3363", "2378"], ",", FractionBox["8119", "5741"], ",", FractionBox["19601", "13860"]}], "}"}]], "Output", CellChangeTimes->{3.516099701694049*^9, 3.519853601182337*^9, 3.5226083130669613`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"N", "[", RowBox[{"%", ",", "11"}], "]"}], "]"}]], "Input", PageWidth->Infinity], Cell[BoxData[ TagBox[ TagBox[GridBox[{ {"1.`11."}, {"1.5`11."}, {"1.4`11."}, {"1.41666666666666666666666666666666666667`11."}, {"1.41379310344827586206896551724137931034`11."}, {"1.41428571428571428571428571428571428571`11."}, {"1.41420118343195266272189349112426035503`11."}, {"1.41421568627450980392156862745098039216`11."}, {"1.41421319796954314720812182741116751269`11."}, {"1.41421362489486963835155592935239697224`11."}, {"1.41421355164605469430412820066190559136`11."}, {"1.41421356421356421356421356421356421356`11."} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5160997017570524`*^9, 3.5198536012763424`*^9, 3.522608315286088*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:30d4\:30bf\:30b4\:30e9\:30b9\:6570", "Section", CellChangeTimes->{ 3.5226083396844835`*^9, {3.5226090370153685`*^9, 3.522609038004425*^9}, { 3.5226134141103544`*^9, 3.522613414702388*^9}}], Cell["\<\ \:30d4\:30bf\:30b4\:30e9\:30b9\:6570\:3068\:306f\:4e09\:5e73\:65b9\:306e\:5b9a\ \:7406\:3092\:307f\:305f\:3059\:81ea\:7136\:6570\:306e\:3053\:3068\:3067\:3042\ \:308b\:ff0e\:3053\:308c\:3092 For \:6587\:3092\:7528\:3044\:305f\:30d7\:30ed\ \:30b0\:30e9\:30df\:30f3\:30b0\:306b\:3088\:3063\:3066\:6c42\:3081\:3066\:307f\ \:3088\:3046\:ff0e\ \>", "Text", CellChangeTimes->{{3.5226083476699405`*^9, 3.522608366386011*^9}, { 3.522608588093692*^9, 3.5226086142441874`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"c", "=", "1"}], ",", RowBox[{"c", "\[LessEqual]", "20"}], ",", RowBox[{"c", "++"}], ",", "\n", "\t ", RowBox[{"For", "[", RowBox[{ RowBox[{"b", "=", "1"}], ",", RowBox[{"b", "<=", RowBox[{"c", "-", "1"}]}], ",", RowBox[{"b", "++"}], ",", " ", "\n", "\t\t ", RowBox[{"For", "[", RowBox[{ RowBox[{"a", "=", "1"}], ",", RowBox[{"a", "<=", "b"}], ",", RowBox[{"a", "++"}], ",", "\n", "\t\t\t ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "^", "2"}], "+", RowBox[{"b", "^", "2"}]}], "==", RowBox[{"c", "^", "2"}]}], ",", RowBox[{"Print", "[", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], "]"}]}], "\n", "\t\t\t ", "]"}]}], "\n", "\t\t ", "]"}]}], "\n", "\t ", "]"}]}], "\n", "]"}]], "Input", CellChangeTimes->{{3.516099735400977*^9, 3.5160997427523975`*^9}, { 3.522608376883611*^9, 3.522608386618168*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"3", ",", "4", ",", "5"}], "}"}]], "Print", CellChangeTimes->{{3.516099701785054*^9, 3.516099743111418*^9}, 3.519853601329345*^9, {3.5226083704872456`*^9, 3.5226083869451866`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"6", ",", "8", ",", "10"}], "}"}]], "Print", CellChangeTimes->{{3.516099701785054*^9, 3.516099743111418*^9}, 3.519853601329345*^9, {3.5226083704872456`*^9, 3.5226083869471865`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"5", ",", "12", ",", "13"}], "}"}]], "Print", CellChangeTimes->{{3.516099701785054*^9, 3.516099743111418*^9}, 3.519853601329345*^9, {3.5226083704872456`*^9, 3.5226083869491873`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"9", ",", "12", ",", "15"}], "}"}]], "Print", CellChangeTimes->{{3.516099701785054*^9, 3.516099743111418*^9}, 3.519853601329345*^9, {3.5226083704872456`*^9, 3.5226083869521875`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"8", ",", "15", ",", "17"}], "}"}]], "Print", CellChangeTimes->{{3.516099701785054*^9, 3.516099743111418*^9}, 3.519853601329345*^9, {3.5226083704872456`*^9, 3.5226083869541874`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"12", ",", "16", ",", "20"}], "}"}]], "Print", CellChangeTimes->{{3.516099701785054*^9, 3.516099743111418*^9}, 3.519853601329345*^9, {3.5226083704872456`*^9, 3.5226083869551873`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \:554f\:984c \:ff18\:ff1a\:4e0a\:306e\:30d7\:30ed\:30b0\:30e9\:30df\:30f3\ \:30b0\:3092\:ff4e\:306b\:95a2\:3059\:308b\:95a2\:6570\:578b\:30d7\:30ed\:30b0\ \:30e9\:30e0\:306b\:3057\:3088\:3046\:ff0e\:3059\:306a\:308f\:3061\:ff4e\:3092\ \:4e0e\:3048\:3066\:ff4e\:4ee5\:4e0b\:306e\:30d4\:30bf\:30b4\:30e9\:30b9\:6570\ \:3092\:30ea\:30b9\:30c8\:3059\:308b\:30d7\:30ed\:30b0\:30e9\:30e0\:3092\:66f8\ \:304d\:306a\:3055\:3044\:ff0e\ \>", "Subsubsection", CellChangeTimes->{{3.5226083960147057`*^9, 3.5226084534219894`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pytgo", "[", "n_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"c", "=", "1"}], ",", RowBox[{"c", "\[LessEqual]", "n"}], ",", RowBox[{"c", "++"}], ",", "\n", "\t ", RowBox[{"For", "[", RowBox[{ RowBox[{"b", "=", "1"}], ",", RowBox[{"b", "<=", RowBox[{"c", "-", "1"}]}], ",", RowBox[{"b", "++"}], ",", " ", "\n", "\t\t ", RowBox[{"For", "[", RowBox[{ RowBox[{"a", "=", "1"}], ",", RowBox[{"a", "<=", "b"}], ",", RowBox[{"a", "++"}], ",", "\n", "\t\t\t ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "^", "2"}], "+", RowBox[{"b", "^", "2"}]}], "==", RowBox[{"c", "^", "2"}]}], ",", RowBox[{"Print", "[", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], "]"}]}], "\n", "\t\t\t ", "]"}]}], "\n", "\t\t ", "]"}]}], "\n", "\t ", "]"}]}], "\n", " ", "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input"] }, Closed]], Cell["\<\ \:4ee5\:4e0b\:306e\:554f\:984c\:3067\:306e\:30d7\:30ed\:30b0\:30e9\:30df\:30f3\ \:30b0\:3067\:306fMathematica\:3089\:3057\:3044\:30d7\:30ed\:30b0\:30e9\:30df\ \:30f3\:30b0\:3092\:5fc3\:304c\:3051\:308b\:ff0e\ \>", "Text"], Cell["\:5b8c\:5168\:6570", "Section", CellChangeTimes->{{3.5226134172065315`*^9, 3.522613417774564*^9}}], Cell["\<\ \:81ea\:7136\:6570\:306e\:5b8c\:5168\:6570\:3068\:306f,\:305d\:306e\:6570\ \:3068\:305d\:306e\:6570\:306e\:3059\:3079\:3066\:306e\:7d04\:6570\:306e\:548c\ \:304c\:7b49\:3057\:3044\:3082\:306e\:3092\:3044\:3046\:ff0e\:3053\:306e\:5834\ \:5408\:ff0c\:7d04\:6570\:3068\:3057\:3066\:81ea\:5206\:81ea\:8eab\:306f\:542b\ \:3081\:306a\:3044\:ff0e\:6700\:5c0f\:306e\:5b8c\:5168\:6570\:306f\:ff16\:3067\ \:3042\:308b\:ff0e\:3053\:3053\:3067\:306f\:3053\:308c\:3092\:63a2\:3059\:30d7\ \:30ed\:30b0\:30e9\:30df\:30f3\:30b0\:3092\:8003\:3048\:3088\:3046\:ff0e\ Divisors \:306f\:81ea\:5206\:3092\:542b\:3081\:305f\:7d04\:6570\:3092\:8fd4\ \:3059\:ff0e\ \>", "Text", CellChangeTimes->{{3.5226084850838003`*^9, 3.5226084946583476`*^9}, { 3.522608628116981*^9, 3.5226086693643403`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Divisors", "[", "6", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "6"}], "}"}]], "Output", CellChangeTimes->{3.516099701828057*^9, 3.5198536013983493`*^9, 3.522608499993653*^9}] }, Open ]], Cell[TextData[{ StyleBox["Divisors[6] ", FontWeight->"Bold"], "\:304b\:3089\:6700\:5f8c\:306e\:8981\:7d20\:3092\:9664\:304f\:306b\:306f, ", StyleBox["Drop ", FontWeight->"Bold"], "\:3092\:4f7f\:3063\:305f\:30e6\:30fc\:30b6\:30fc\:95a2\:6570 ", StyleBox["properDivisors ", FontWeight->"Bold"], "\:3092\:3064\:304f\:308b\:3053\:3068\:306b\:3059\:308b\:ff0e" }], "Text", CellChangeTimes->{{3.5226085026778064`*^9, 3.5226085440281715`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"properDivisors", "[", "n_", "]"}], ":=", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Divisors", "[", "n", "]"}], ",", RowBox[{"-", "1"}]}], "]"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"properDivisors", "[", "6", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]], "Output", CellChangeTimes->{3.5160997018850603`*^9, 3.519853601493355*^9, 3.5226085509245663`*^9}] }, Open ]], Cell["\<\ \:3053\:3046\:3059\:308b\:3053\:3068\:3067\:ff0c\:81ea\:5206\:81ea\:8eab\:306f\ \:9664\:304f\:7d04\:6570\:304c\:5f97\:3089\:308c\:305f\:ff0e\:6b21\:306b \ kanzenQ \:3068\:3044\:3046\:5b8c\:5168\:6570\:304b\:3069\:3046\:304b\:3092\ \:5224\:65ad\:3059\:308b\:95a2\:6570\:3092\:4f5c\:308d\:3046\:ff0e\ \>", "Text", CellChangeTimes->{{3.5226087535281544`*^9, 3.52260878283183*^9}, { 3.5226088411171637`*^9, 3.522608879271346*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "]"}]], "Input"], Cell[BoxData["6"], "Output", CellChangeTimes->{3.5160997018540583`*^9, 3.519853601442352*^9, 3.522608501186721*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"kanzenQ", "[", "n_Integer", "]"}], ":=", RowBox[{ RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"properDivisors", "[", "n", "]"}]}], "]"}], "\[Equal]", "n"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"kanzenQ", "[", "6", "]"}]], "Input"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.516099701920062*^9, 3.5198536015443573`*^9, 3.522608556338876*^9}] }, Open ]], Cell["\<\ \:305d\:3057\:3066\:6700\:5f8c\:306b\:ff0ckanzen \:3068\:3044\:3046\:95a2\ \:6570\:3067\:5b8c\:5168\:6570\:3092\:63a2\:3059\:3053\:3068\:306b\:3059\:308b\ \:ff0e\ \>", "Text", CellChangeTimes->{{3.5226088914300413`*^9, 3.522608937329667*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"kanzen", "[", "n_", "]"}], ":=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Range", "[", "n", "]"}], ",", "kanzenQ"}], "]"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"kanzen", "[", "1000", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"6", ",", "28", ",", "496"}], "}"}]], "Output", CellChangeTimes->{3.516099701979065*^9, 3.5198536016253624`*^9, 3.522608560157094*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \:554f\:984c\:ff19 \:3000\:3053\:306e\:5b8c\:5168\:6570\:3092\:6c42\:3081\ \:308b\:30d7\:30ed\:30b0\:30e9\:30e0\:3092\:95a2\:6570\:578b\:306b\:307e\:3068\ \:3081\:3088\:3046. kan[n_]\ \>", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{"kan", "[", "n_", "]"}], ":=", " ", RowBox[{"Select", "[", RowBox[{ RowBox[{"Range", "[", "n", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Apply", "[", RowBox[{"Plus", ",", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Divisors", "[", "#", "]"}], ",", RowBox[{"-", "1"}]}], "]"}]}], "]"}], "\[Equal]", "#"}], " ", "&"}]}], "]"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"kan", "[", "1000", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"6", ",", "28", ",", "496"}], "}"}]], "Output", CellChangeTimes->{3.5160997020200677`*^9, 3.519853601690366*^9, 3.522608952044509*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:7d20\:6570", "Section"], Cell["\<\ 1\:3088\:308a\:5927\:304d\:306a\:81ea\:7136\:6570\:3067,\:81ea\:5206\:81ea\ \:8eab\:30681 \:4ee5\:5916\:3067\:306f\:5272\:308a\:5207\:308c\:306a\:3044\ \:3082\:306e\:3092\:7d20\:6570\:3068\:3044\:3046\:ff0e\:3053\:3053\:3067\:306f\ Mathematica\:3067\:306e\:7d20\:6570\:306e\:6271\:3044\:3092\:7d39\:4ecb\:3059\ \:308b\:ff0e\ \>", "Text", CellChangeTimes->{{3.5226092809063187`*^9, 3.5226092899658365`*^9}}], Cell[CellGroupData[{ Cell["\:7d20\:6570\:306e\:5224\:5b9a\:3068\:7d20\:56e0\:6570\:5206\:89e3", \ "Subsection"], Cell["\:3042\:308b\:81ea\:7136\:6570\:304c\:7d20\:6570\:3067\:3042\:308b\:304b\ \:3069\:3046\:304b\:306e\:5224\:5b9a\:306f\:6b21\:306e\:3088\:3046\:306b\:3059\ \:308b\:ff0e", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrimeQ", "[", "2007", "]"}]], "Input"], Cell[BoxData["False"], "Output", CellChangeTimes->{3.519854205158882*^9, 3.52260929859733*^9}] }, Open ]], Cell["\:307e\:305f,\:7d20\:6570\:3067\:306a\:3044\:3068\:304d\:7d20\:56e0\ \:6570\:5206\:89e3\:306f\:6b21\:306e\:30b3\:30de\:30f3\:30c9\:3067\:884c\:3046\ \:ff0e", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FactorInteger", "[", "2007", "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"223", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.519854205189884*^9, 3.5226093012994847`*^9}] }, Open ]], Cell["10\:756a\:76ee\:306e\:7d20\:6570\:306f\:95a2\:6570 Prime \:3067\:6c42\ \:3081\:3089\:308c\:308b\:ff0e", "Text", CellChangeTimes->{{3.522609307621846*^9, 3.5226093105810156`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Prime", "[", "10", "]"}]], "Input"], Cell[BoxData["29"], "Output", CellChangeTimes->{3.519854205212886*^9, 3.5226093038446302`*^9}] }, Open ]], Cell["10\:756a\:76ee\:307e\:3067\:306e\:7d20\:6570\:3092\:3059\:3079\:3066\ \:5217\:6319\:3059\:308b\:306b\:306f\:6b21\:306e\:3088\:3046\:306b\:3059\:308b\ \:ff0e", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "5", ",", "7", ",", "11", ",", "13", ",", "17", ",", "19", ",", "23", ",", "29"}], "}"}]], "Output", CellChangeTimes->{3.519854205246887*^9, 3.5226093139422083`*^9}] }, Open ]], Cell["\:6b21\:3067\:3082\:540c\:3058\:7d50\:679c\:304c\:5f97\:3089\:308c\:308b\ \:ff0e", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Prime", "[", RowBox[{"Range", "[", RowBox[{"1", ",", "10"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "5", ",", "7", ",", "11", ",", "13", ",", "17", ",", "19", ",", "23", ",", "29"}], "}"}]], "Output", CellChangeTimes->{3.519854205270889*^9, 3.522609316823373*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:554f\:984c10\:ff1a100\:307e\:3067\:306e\:7d20\:6570\:3092\:5217\:6319\ \:3057\:3066\:307f\:3088\:3046\:ff0e", "Subsubsection", CellChangeTimes->{{3.522609360412866*^9, 3.522609367237256*^9}}], Cell["\<\ 100\:307e\:3067\:306b\:7d20\:6570\:304c\:3044\:304f\:3064\:3042\:308b\:304b\ \:8abf\:3079\:308b\:95a2\:6570\:3068\:3057\:3066 PrimePi \:3067\:3042\:308b\ \:ff0e\ \>", "Text", CellChangeTimes->{{3.5226094479998755`*^9, 3.522609451429072*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrimePi", "[", "100", "]"}]], "Input"], Cell[BoxData["25"], "Output", CellChangeTimes->{3.5198542053138914`*^9, 3.5226094532781773`*^9}] }, Open ]], Cell["\:305d\:308c\:3086\:3048\:ff0c25\:756a\:76ee\:307e\:3067\:5217\:6319\ \:3059\:308c\:3070\:3044\:3044\:ff0e", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Prime", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "25"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "5", ",", "7", ",", "11", ",", "13", ",", "17", ",", "19", ",", "23", ",", "29", ",", "31", ",", "37", ",", "41", ",", "43", ",", "47", ",", "53", ",", "59", ",", "61", ",", "67", ",", "71", ",", "73", ",", "79", ",", "83", ",", "89", ",", "97"}], "}"}]], "Output", CellChangeTimes->{3.519854205338893*^9, 3.522609459453531*^9}] }, Open ]], Cell["\:6b21\:3067\:3082\:540c\:3058\:7d50\:679c\:304c\:5f97\:3089\:308c\:308b\ \:ff0e", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Prime", "[", RowBox[{"Range", "[", RowBox[{"1", ",", "25"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "5", ",", "7", ",", "11", ",", "13", ",", "17", ",", "19", ",", "23", ",", "29", ",", "31", ",", "37", ",", "41", ",", "43", ",", "47", ",", "53", ",", "59", ",", "61", ",", "67", ",", "71", ",", "73", ",", "79", ",", "83", ",", "89", ",", "97"}], "}"}]], "Output", CellChangeTimes->{3.519854205364894*^9, 3.522609464228804*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:7d20\:6570\:306e\:5206\:5e03", "Subsection"], Cell["\:7d20\:6570\:306e\:5206\:5e03\:306f\:6614\:304b\:3089\:6570\:5b66\:3067\ \:306f\:8208\:5473\:306e\:5bfe\:8c61\:3067\:3042\:3063\:305f\:ff0e", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"PrimePi", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "1000"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxN12k4Fg/UBvBHliJEJHtIQlTWJMukQkj2nWzZkkpCQpItZCt7hSypJAmh zVJaLSEpFVF2ErJFvf/3esdzv/Nlrt91zZxz5j7zYUbY8ZjR4RUUCmWJlkL5 3/PLz2/s11Em1CnkUek64LVmYJrqwskVQYxN81SnBQnG0Jb/pXov3dW3fxtp iP/ThPqjV7fazuymo1o+vvLTXBkD1UUmDd9OiTOSphAbedsHJzNXU32h1e+M 7242qmnSwkOnytZS/TiAmaF0nIPq07aXLhwXX0d6FaFA8LJsc+Si+pdITsJY 5nqqi+jFOYvec1PtNlic6rGGl2rRNwp8Evv5qO658+jaQCg/aTbC4uTrfOcZ Qard+D07JsqEqO75dvrLUfGNuP5G5PfhzE1UV3Drir1WEiPNSXBGs7rdfA97 /3l3M8p7M9UtnskjrmvEqd761UJaqwiOPch/TGy/BNXDNd0l9P2wtmzu5PdQ SdLcRM1sybzDjBTVSo+fULrdt1G90CxS12S4nWqL3f20xePwyoUXeQKqMqT5 iYrSm/suxsCHj8T0L36EOUWPRnqKy1IdOxQQN5QpT1qIaIpdfL2wT4Fqtu3B K5kn4Hs0T/M59ylSbdT2b49ABjydR/Ru+gkn+54L2bp3B2kRgvdx2LxBmhLV 12ijvE+O7qRaRCdmJJnYRfWNhDjnyssqVGs7Nq+oHYKH5dhyXqmpkhYlYugN 1VsvwVIfEr98GoQbC1vP9KmqUe0VwME7mgSv0TOpnB6ASwSSzZZU1EmLETbv D4jmTBJUf+MzvFqvqUF1adiJUa0TcOhY4q63mcsWJ4zNSqMNGmDRp60f2yfg 5wkc/l/27aHaxdGEqz8DHi40j1/1cy9pSSJh/+Xkh1z7qN4x3JLppQZ/jWa5 LuwCh23RKWy/uGwpotWzvkz5C7yhWKU2W0qT6urt2z55voFN7gtPKXloUb1g bDc/krjsrUTOdMa/a1WwdvIHeqNv8LgCJzM9ozbVKn4XuY9YwBcqGTa9uwGL 7ppXvaq5n+onj0fM3H/AznbitvwsOlSv/ufs1CwPl2bluIfawBbE12MKYcve ThScMw/MbIOn6lqiaDbqUh23rz6nsRYWf1lenW6vR/Upxm0v/t2F63QK2w7/ g91Hvn/k3nyAarZY4Z43+nCFlF1/sC9s25gxKnNt2TLELVbO+dQxeO7gRfq/ KvpUX5t4tfqeM7wvkWGtc+yyZYlRmT3c68vgpNazgq+7YK5HrlWXGA2o7o2L d9LIh1UutCtVVsLJ53lYt75dthwxHmTXl9sNa/vnVvJMwX88pZ3oeQ2pLnZ4 wPKLgB3Mdld+doU5dd84voyDvfaxKaldh1+om7KUlcNCyhm9Eq+WLU8EyHc/ yPoM3zobbG+la0JakZDOL448lGRJWpnwfn44addZO9JqxFHlyKq2YQfSu4mB 1pLxSxecSe8h6gavJqv/cSG9jzie92klq4Er1QL26wM+58Gr4gu42Krh6ccK 9/c0wx6mQee+fIS7R58d9PtOOmQfYRLGLMj+E37NZzJ6ax72/5Bgd1rfjbxf k3BmEPpT5AQfVLib2uMPP3s7czjgPKzsrCbPGQeX/AlfUZwGi11qbNHKJR2i SbDX2Rw9UwkvToww3m2EvaPkOrU74cENZwp6e5fraRF2D+p8AsfgNn2mPVxz cAiTVvl3PXeqtzac33w/B476NbeyewL+xu81yER4UK1XF+g8sR+udI3peW8M b2TJsHloC8eVFnZmu5IO0SKcl563HDkDK2v3vVSMhwe+CFS9rYAvn7S46fgV Hr/WeCFO+gjV2q81PKoD4d+HgqwM8uDrvx/o9L+BWTIbGt68h/2J9xr3uuG+ H31PUoZIU7QJ/ZhJ5cApWLRjjZzWSk+q/whJb1nLB3euO3Hq9Fa4jKn8ac9u WIT+g/NlXTjx3xyjtilMWeC9+8cO9ppWMbnrRjpEm9AZCrnGFQhv/vpsMCge TunsvyiTDtO1rZL7cX253n7Cu1GyM60I7nmhF6RXAaffa2fn+wIbZdoUDNEe pbomOVj3Kgu8NSF7wmA9fCW6LplOmHTIfmJ1+HflSkl48LR4+AY1+JmXZ3OE IRxkMe1k6g8ragTObcyCOXbUaMSUwhNb6C5OPoftxMRkC5rht0LaHyw/wsp8 HoEsfcvz6hA318UK147CEUwtR8QpXlQ7/uOoiOeAW+YVrPcIwOrT5pRZMdIh OkTx+On8W9th/qFMHTtl+H3rxm4pBzju0e2TfyLhqULeDJnPsEXyhRrX7ceo PmGwSefUPjh6dW1bqBXMNRSXxniYNEWXyG2wsU04Bm/PkxRZHwA/OjfXfzUM Hp/dtlBZDAt7ubK0d8LKErSp38ZgSe+DCX40x6mesK+YrGaAKw4KmP5dDQeq hT3YzU46RJfYIz3CE84F2wxG5CZtgU/likhnE/Cn+ETjjsvL9fSIry4Plc4U wr2qPwSEHsHOEgEJk8/hfs41tM+b4RvRlirF7cv19Qg3St6p1I+wpO94cchX eGREadC9Dy5yOC9sPAh7fWi0UhmDtx3gvrxpcrnfAWKizrGRdRb2Lp5V/0Y5 QfV0emzpfSZ47nhFqoUgvKjVE7gkAwfLnfrZvAumbGByvL4Prr1skhmjA4cy ZbX7HIT3hAyx2JmQDjlA0M3IaWlZwqsabaVGPWHmvEj2xBC4kadVJyAcjovn D3OKhg/Suz7Wi4fZztybUbi83F+fSHLRdF91DeY06ur6dAN+/2LTumdFcIrq cf0795br6RPm96sjUypgbgn62rMP4QzODDmj57AAZVuBaDN8TVn2Z/U8LHRK QclQ1Jtqh7UPbK7shK/fVTo3oA9PclnqKJuQphwkNIJPc1y0hJN+pH/utoN7 9arzZZ3hUL4/Ozq94I3Du14HnYbFDmnY3GqCJdq1xzs2nqR64cfkGzYJ+O3s lZs6W+FrjFqRYXKkQw4Sx/l+OT9RgjnU9wnJ7oErHNO78g/AVhFjKTwW8NLN 3UYXHeGmhyPbXrjC2Y3JLDRHYe9u9RFl7+V5DIi9v4Ze+vjBg5xqYYPn4Bil JHWbWNhGR0UgJZE0YUBstelfaE6BKV4JnYxX4NazyhV7cmCeF71SWypge9aY 3LVvYFkhhXN6LcvzGhB0st12Ee/hjj0XVGo+wTdM5XgXumGd05Hvjw7D41e6 Er5Nwwrfz698xehDdeAWqeASQZjpv4+Xs9pwmnajhb43/Po27ZbGcHiRVXlJ Nx1OJkxdVufCW72PN78ugheY/p6/dY90jQHxIjdGKboCvqzCM+b+ELZ/X5Cz vwZ+lsmhqTUAizuGDO9lPUX19AJLligHaYohUXsp05iOG46Tklj1nR+2el7x qF4Ynpp5t+n8FjhWfCxOQwF+ErPRoVYbnhi3lCNsYJPyhg+q5+HKM3KBu27B nAypNWF34WMJC3RNZaT/+096zWu3f301LJZfe9H+KRy6bVPrzWfw16oorqlX sPLeUSuVZji56WBWeDvpEEOCbu5Lya0h2FvYs675L9x0u5mBh86XaglFOV1H RjisJiX+Nivco7PQNs1BusaQSDtUaxMpCB/0ifrBIwE/uco1q6YGS73IW+Vs DPd1HUmcsYUzJmR5L7jBMwEpdq1HYSP6het8J0lTjIjieNsBZ3+Ykbd2S3EQ 7L/noGpbEtzv+UV/7gZsknLEXuAxXP90/oRGKxzQXrPQ/hmWHYo87zoAx50c eVEyCg8t6TMv/CJNGBF7o0oN9szC2Wu5kmMXYeOr+sfoRf2oZhCP3B+sC9vs bHI+akA6xIi4r7MuxMYUZrKxydS1gu2P5lYoH4KZE2TGuN3hqtKnG2e94bVz XQn3I2BP1bmlYxkwj32EvH4e3BDKeUSqGOa/bB3Bd590jRHhnX89h6kSflkx 9Gj+Ebzh5fbOwVrYn+XAvvz3cKuRe6nDECzuXNJoMA6fPTU7qD5FmmJMdESo 0W2bg6XSwjcILsEfqznMFhn8qY74khP7iQ3uEXkynyIK73T75GKsBGcI820N jjtN9jcmaJprxx5fIk0xIdwC3e4spcHNEmuOql6DFT+USwXlwnSytEWLd+DW WIMtgZWwl8aIxJlGePVcuHhAL1x4R2jz6Vl4r9PDTf7MAVSvfbIqf5YL7uE2 E/UThrUaFvsqxODik7m5M1vgdcI6TooypAkTIrBpQsRXEdaRULv+m4C5w2KE T+nCZ2Vkv5UZkA4xIfq/dmZPm8IHYs/ay1vDZTvFhHzsYYOfNYInT8FjedYC 3tGwGFsi7/Ey2O5Mw3qvr3DNXYNi4z5Y5PunvTsH4TDuw12CY/APvZ8n6CZJ 1/yXbzltVvMf2FOQ+20G/Rmqm4yuO4YwwdsjpeYPr4GTHlbE63KSppgS0z8J MRkeuNLC1HhRBD5T6x7yQgpecSnpky0BRzs/lJ82hvUbmx2e2sLsit/jol1h bw+vTcc94fZrcw9NT5AmTAnFtlCjXb5w2kqWIaEzsNBHhT0P4uAbt+yuHrgO r+oelJO7AXtwnHzNXQS/1Vqy/1tCOsSU2BoYOdtXDk9+zxS9+xSuOFBiGPAK Vt3w8TbbF/jZBA3DjQk4ypJLznsB1quTtFelC6S6eKZsRoQRZtuifnEVK+x9 6NXG8bWka0yJtkvG1W3rYat6kzE9Dbh30lSowRN+psZ11NkPLojuqFoRCqeW KPYYRsJRHSkMObHw6cUZqYlE0hQzwkPE3Fg9Fd5a/WH0TBE8aWgRUVkL9/lV Fq18Abdf5W4zews/r/efz39HmjAjKoY6N/zugNMU0j0vfYMDzllWyYzCR25U dYf8Ws7LjLBp5GFomYEPTJ2W2rAIq/F8MvKiCaJa6HBGFjMzTHPPavQWF9y7 yLtzvzD8TLsrfGALXO61q0hRhnSNGVFwObM1XBFOrf4z174Ljuqx3iC6G9bz /1xpbwazsdkaXT0Ce/kFqOy7BL/9mio2Vg2fSSrgq22CJTXL2ZJ7Ya6pOZbo AZgmW2X12VF4VC9klc8v0hRzonO+nt59Bi4x1qUYU4KpjrzTuqDCBH/nnPj+ XQbWCGRpjrWEeTsuv/J1gn9t439mfxT+/PlQrak3acKceHkh94mOH1ymOPBQ PRDO7pOskj8HH0zdWbwqGf6ro537uRA+cn1deeUduHO+t+FyKekQc0LTsKTz +AP4fmHQsN4jOM6cm5W+AXZjuC/zuBkWcB70l+6DW2sFaq7OwAVKU5/t9p4l 8zYnrFPERZvNYbZp2yPqR+Ag3S1BfMdJUyyI4etzcbM+sMXC8+y20/Bzw0ul d4PhbMrWDtcoOODuy/kNSfA2lr9EQj783UMuilIFP+Vpul1ZB2e8dGs+/hZe KaT4Te8dacKC8PGjnRLvgHubWujou+CDYte4vnXDq63d0wR4Q6gev34+X2cv 7Kll6jumCQ+PiGkl7CcdYkG4Jcytl9ODB+RfD77Xh10+Zlb5G8Lfg45G85nA jiLq1k/M4J4GNikHS9I1FkSnhfmxUSf43fDVUj8vuI51y86483CZbOXTvDT4 aOn4eUoNLCa7SdtmABbJcKNrHSJNsSQEVhTVaI3C3B4/Ax+Pw5ytsjvlfsHM 16vuCc7AtN6EJNMfeJJdn+8b3Tmqe+5ZM1eywp95sl5Ks8MfzvWG5XLArUOb dvNwwU2G7ktx3KQJS+K58MSpAAH40S/f8cMi8K3EsG4VKThdJqmFQxEu3UE/ 6aoLv1X153hkD8dfK0h1cYKN/rXzsbvA6+xpsx+6kQ6xJDprZERdjsB2oXFS D4/DP/aMyLP5wpMNefuqQ+C/++3MnGPgsNUP7aoSYKbG9a6sKXCjtOZIZRrp GksiIc7nmFMmbPLz+hTLNXi9wTu/ymxYtC06yvE2vN1sbzpzBVyxPifH4SGs 8nHpZkUN/G+n1FaHerguw6p0dQMc8SdKseLl8v6siP02D6rt38AtApz15S2w WffxN0wdMA+RdbC8czlvK+JzdmPboS44i2bRnOkr7Ogo+bmsB/ZWnl0nPQKH rn12MP83HB18y/PbApw0nHBBgBJKdYoQXdrDFXCGmV+BJT18LXa4bHYlnFNn W5/MRDrEiqjxnlWM2AD3iCTe8pWHJxZsv4+rwf9aJQVd98MM6uy7cvVh1tuz 5t3G8NpvHi5BZjDX+q8+fJaka6wI3gOG56usYcHzzxLN7eCt1olvmt1gNTk7 eu2TsGbWXpEwf1h/9Rb1miDYaPe1A3YhsJkfu81iKGx1J8wjIxy27Zv1V4oi TbEm3O5u0K7JhL3PaK3XvgtP+UixV92DfbzYV0uWwTOuM3SZFbCfQ9ff1VWk CWsiwCR/cuwxHKh1rL+5Dl4iTHqI53Cw8s5P917AFHnBdpHXy/laE+ekaZsu vYXDhBprT72DIzhSy8074Jh5yat8PXBC95Ow7iH4UmuUf+04nPLcyDN3Cl7/ dIcL5wycVslvHz63nKc1wVtKYzWzAGfe7jd2XYIL/Fg3/mQ7T3XJHsVJX1F4 XoGhjH8zrCHecapOgjTFhojhLdjhJgW3M/vOs2yDXX6tC7KUh2ffl1Pyd8JR 1aZhE2owb9bvlSp7YafE56++acJF55NjIveTJmyI36cOH5DWg9XcFNa06cOR VvTv/A3hFr33SYImMI96vskzM9hR5hSXhyXpEBtiet26jHI7OHyhTIDGGS6s nxZN84LfxspLbTsNc2woU7aNg63uye2PyYVHk9vedhTCwQEnDUSK4Reee9a+ LIHZDnG0H70PWxj2JXNUwDl77ptXVS7vy4Z4xjxlZ1APD76XdRlohHnDiJai b7CerL6y92+48+q7y04L8GFG058m/2CppylXGmnCqJ706dyvSQdXSvLOPmGA g3us83YwkqbYEkx63X/FWeHUB46WvByw3dE8hkvrYNGN/fdXc5MmbInhzs0O YbxwSZw76xI//Orw8fpuMbhXxc+/bjtcOFm5aZcc7FW40HpfAZa3UwmRUiId Ykv84QiWzleGo87SRKWow5wjYb2Re2HpuphUD31YMz1J74AF3ErHdUPNFj50 PJ1muyMsJtZVXOgMj3bx2wi7wqWJdowZ7sv52hL+WtkVaz3hkqx2b5+z8ODs qm0dSfDP0HgXjWR4hoXrWnEqvJR25T1vxnL+dgSd6EaWyCvwWuXtgYdyYCED 1ZEdBfDmrnqRvMLlPO2IrS46Vmy3YYVfLYmBd2CVQPNXg3dhnSRnpdoy2KLw xI30KvilxacNtj3wTsY9aUIrw6ledbEstZaRdIgd0cEmlurIDOdfTk2hXQP7 cDOm5LHD7EKjl/u54OLNzZfE+WHdbaVJHsLwoGJyYpEYXFHNkHhAgnSNHRGu 5p8wvgU2qRuKj98Ki2hax2+XgW1MhS+W7YJTnQeilTRhec/XFwJ04daTd6Ie GcDZs4JRtsbwsTMJkX9NYbV/NJFZFqQphwjm8ycjCGv4XM6/c9rH4ZmnMUEG 4fClF16BSdHw9mbDM+3x8F+j+oBTSXBjh3wAVzJ8xarg9INU2OPr+tMWGcv7 O0TkjX3x/ZwHdy/m+tjfhdV2PHnzrw6+dqJTJKsDVqRkzUV0wU1xh5u8emDe Du2q3l7YRUAqz+wHXOq8Jv71APz39uRpteHl/R4itr46u4l1GrbrZ373ZQl+ IrRZPIg9gmpB691n+TfBHtdFPRI2wxVDK03pJEnXHCJWyIyo+0vB+v5NkqNb 4X6GZEq7HBycbN3xUAkuLh08F6MBf2k+JW2tBwe0DNRnO8Bc7yyt+n1hSXZx lvjTpCn2hKrhzNMdgbBB4jPvnmDY+V3Spgvn4BjDbTGfIuDSd28mtsTClFa6 R00psH6rauSJHPhKq68RZxE83HpX4EEF/HdtcMuhKtJC9gS7sd75VY9g0Uu8 iveewEptg4OWtfAh43D92w1wRJtw2eIb+Gk7/bfIGdKEPbGij97KlxJJteYv +jZnJthtLnyNzRo4+h+9njEnzEerOdzEBRcxRETp8JC2/y9fpgaxBj64iYXh +W5BeC0/g9p2cdhUkuGBoCzcL61pmiEP+8pETK3bAa9UaEhM3Ek6xJ5IU2LY zqICV6tHeNLthj9rMtz8sw92cmLI7LSEh88yXCw/CjNHRrwq8oa3xjEw5PnB TxM18zYEkM7+7/1JjtDIDIS/pTX0cJ2Fva8wnE06B1fcYpgLiYHnKxlOHEuG r3iw1R3IgAl+Xg6pLHjt72u7MnPgvsaNzkx5cFlBYezpAjjirHT5YCHpGnui sZcwzy+FOTVN5h0ewdvacs6Z9JHu+S9/xfKN7GPwo/SXzxtnYHvdVq6iPzDt UpdrNCWK6vb39gnzK+CC4h+VbvSwf6THtw8rYR37n4xaTKQpDkRi/YoiWk64 U4xLv0YAPtO5IeuaCCwYLTERuBmecCzmHpUgLeRA1O2S220tBV/mrHR/vRU+ PKaStFMGnmdQTve3hi8K7ch+EA7X1HOd+xcNT7rMOGglwDFKLkYjSbAoU4dG fDL8pGufnFwaacKBML9TvvFDBvxoyueHSz4srCx/Y+YuPNJQKsn1HC43lilW +AT3Bk0f3tgNsxU+EGD/Doupps9H9sOqrQHv/w6StncgTFxt7p0agT0WVS+O jsHPDZ4tvpiFhfJ1PHNpLlD9/oC5rtU6OHrGSZJdAv6uM5w+KgurZx1nfKkC e76Sqy3fDWdMzfjnasIlUZ0mvPtJhzgQLwSqtyfqwl9LM5lX6cPTWkGDwQYw 0xe7Z7+NYGFvItvTFFZaKRLYZw7rX6G1sLIine1ABDY0rNE+BN+cuPBCwRmm 28e2g90LtktPKRj1gw1W/Xm2/yK82+9QX8F1WIheKtIoH/6bNCf59wb8Weh5 081bpGsciOriRG/TO3Caih0XTQns+1qyuqgUNrGYtbUoh2X762noKkn3OBC3 BWYSSutgUVNxIYdGeEXfdD1zC9xzvNa1shV+8vfiauf38NVYq7trOklTHAmr wqkZly8w17NYtSe98LShZa/7D7i1e1PEukHSQo5EydFJidphOP7Pk0bPMVhv vcW6Z5PwKrlfNnxz8EKO6Rl/lmiqR9iq09+LwC5X/xkaScO9EvuYmnfANBfN lLyUSROOhNCEqwuLKqxufPpykTpsVxFdp6sBXwm8IxitBX/SaAl4qQe3WluP 1DrAr336rR/6wnUXT7wti4GrCxZVirPhj4ysRw7kwnOeG9JH8+H1LdtfxBSS tnckFOU0fkvehn3mnQ3dS+DSp5F3bpTDNzvXCua8Jh3yXz6beAzDm2HekxvC 3NvhivTrV7s6YOOaTQ8OfCSd7UhM9Be2PO2CY1mkhmW+wks3lAwWBmAvjX0V db9gJveXzfLT8I143aGCGXhvRdMKnnnSNY5Ez2dD/pg/MLekxcFjlBiqDf3s Qo3p4Tr2I4N8a2D5Ij/979zwwrpb/fQEXHP2c/BmV1g0S8e+yZ10jyMR9aRy 9ylPePSL2Eb+Y7DB0mW6+hMwt8qJF2x+cE/AgWi7QPjfqSfJyYmkKU6EY7KU n8pluKEsw6IvBZZsX6UcnU5ayImIm/Llk7kCm8kafw3OgQVPbMt5WwD3313t zFsEF48PiLndg9eymq1aUwb7Sj8bKq+AP+nJvrGpIk04EWqe2UW0j+BAx9D6 E/3wQwvnT91ssVQ3HHPaXSwKt0Q4FgYqwaZre7ucNOBPVx3W6OrBV5yEb6oZ wockvmnImsEEc+2aIgvS9k6EyM/sz5usYdrWkJtZtvD3MntfHnvYnei5SfGA x98c+jJwEm4pVr/l4AvfS9zg1+VPOsSJSPL5t8f0DOxj3s3WHAQrCmTdqguF 53vt9lZEwnQLtrfDMmFWdtu1xnfh7a/Oudfcg43OFdRIl/2/fjvfrM+sgFN+ /fRaVUU6+788HXYK9D2GBVtD3zyugwtK14mffAtvu1QYJt4BEyZNqpeGYIN1 0zNLi/DlcNX8TpqLVHf+jjC+zwAv3Ll9S4iRdI0Twe/SQhO3GlYT/G3xhwV2 6OApcWODhyuKmAV5Ye9Udfe2jfCCX+vzKGk41OKwiNoOuOFlcQu3Csy0cy54 ioClfvF32O+B9W/ulm7aBx93cAnbpU26x4m4xBPTVagDLxr7ZW2fIk04E4+P tqufTIgjn9+ZCBWSWu2ZCWu3ne9wLoBvFW1T+XYbZonoyrG9Bz/xvtfOVwYf PxS58lMFLKxnq5xWRbrGmWhVkjtq9gi2vdZLq90KD9ImZewchHW+qFIqxuA7 FUOHZadgu9ynaRO/YbaE5DfFc6R7nInawCN/Pf/A3u67Zbb8hZX40xc3MsZT vdQ08YKfE7YvvCKdzgPXndO+tG4D7OMl2NAmDG+ynp5LFIU7tF5vMdgMR8ln 27FKkqYcJg4MzEqsVIDXZhz8/U8d/h/jy2K4 "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{1, 1000}, {0., 168.}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.5198542061149373`*^9, 3.5198542108382072`*^9}}] }, Open ]], Cell["\<\ \:4e0a\:306e\:66f2\:7dda\:304c\:3069\:306e\:3088\:3046\:306a\:65e2\:77e5\:306e\ \:95a2\:6570\:3067\:8fd1\:4f3c\:3055\:308c\:308b\:304b\:306f\:975e\:5e38\:306b\ \:96e3\:3057\:3044\:554f\:984c\:3060\:3063\:305f\:304c,\:6570\:5b66\:8005\ \:30ac\:30a6\:30b9\:306f\:6b21\:306e\:3088\:3046\:306b\:4e88\:60f3\:3057,\ \:5f8c\:306e\:6570\:5b66\:8005\:304c\:305d\:306e\:6b63\:3057\:3044\:3053\:3068\ \:3092\:8a3c\:660e\:3057\:305f\:ff0e\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PrimePi", "[", "x", "]"}], ",", RowBox[{"x", "/", RowBox[{"Log", "[", "x", "]"}]}], ",", RowBox[{"LogIntegral", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "1000"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxN12k4Fg/UBvBHliJEJHtIQlTWJMukQkj2nWzZkkpCQpItZCt7hSypJAmh zVJaLSEpFVF2ErJFvf/3esdzv/Nlrt91zZxz5j7zYUbY8ZjR4RUUCmWJlkL5 3/PLz2/s11Em1CnkUek64LVmYJrqwskVQYxN81SnBQnG0Jb/pXov3dW3fxtp iP/ThPqjV7fazuymo1o+vvLTXBkD1UUmDd9OiTOSphAbedsHJzNXU32h1e+M 7242qmnSwkOnytZS/TiAmaF0nIPq07aXLhwXX0d6FaFA8LJsc+Si+pdITsJY 5nqqi+jFOYvec1PtNlic6rGGl2rRNwp8Evv5qO658+jaQCg/aTbC4uTrfOcZ Qard+D07JsqEqO75dvrLUfGNuP5G5PfhzE1UV3Drir1WEiPNSXBGs7rdfA97 /3l3M8p7M9UtnskjrmvEqd761UJaqwiOPch/TGy/BNXDNd0l9P2wtmzu5PdQ SdLcRM1sybzDjBTVSo+fULrdt1G90CxS12S4nWqL3f20xePwyoUXeQKqMqT5 iYrSm/suxsCHj8T0L36EOUWPRnqKy1IdOxQQN5QpT1qIaIpdfL2wT4Fqtu3B K5kn4Hs0T/M59ylSbdT2b49ABjydR/Ru+gkn+54L2bp3B2kRgvdx2LxBmhLV 12ijvE+O7qRaRCdmJJnYRfWNhDjnyssqVGs7Nq+oHYKH5dhyXqmpkhYlYugN 1VsvwVIfEr98GoQbC1vP9KmqUe0VwME7mgSv0TOpnB6ASwSSzZZU1EmLETbv D4jmTBJUf+MzvFqvqUF1adiJUa0TcOhY4q63mcsWJ4zNSqMNGmDRp60f2yfg 5wkc/l/27aHaxdGEqz8DHi40j1/1cy9pSSJh/+Xkh1z7qN4x3JLppQZ/jWa5 LuwCh23RKWy/uGwpotWzvkz5C7yhWKU2W0qT6urt2z55voFN7gtPKXloUb1g bDc/krjsrUTOdMa/a1WwdvIHeqNv8LgCJzM9ozbVKn4XuY9YwBcqGTa9uwGL 7ppXvaq5n+onj0fM3H/AznbitvwsOlSv/ufs1CwPl2bluIfawBbE12MKYcve ThScMw/MbIOn6lqiaDbqUh23rz6nsRYWf1lenW6vR/Upxm0v/t2F63QK2w7/ g91Hvn/k3nyAarZY4Z43+nCFlF1/sC9s25gxKnNt2TLELVbO+dQxeO7gRfq/ KvpUX5t4tfqeM7wvkWGtc+yyZYlRmT3c68vgpNazgq+7YK5HrlWXGA2o7o2L d9LIh1UutCtVVsLJ53lYt75dthwxHmTXl9sNa/vnVvJMwX88pZ3oeQ2pLnZ4 wPKLgB3Mdld+doU5dd84voyDvfaxKaldh1+om7KUlcNCyhm9Eq+WLU8EyHc/ yPoM3zobbG+la0JakZDOL448lGRJWpnwfn44addZO9JqxFHlyKq2YQfSu4mB 1pLxSxecSe8h6gavJqv/cSG9jzie92klq4Er1QL26wM+58Gr4gu42Krh6ccK 9/c0wx6mQee+fIS7R58d9PtOOmQfYRLGLMj+E37NZzJ6ax72/5Bgd1rfjbxf k3BmEPpT5AQfVLib2uMPP3s7czjgPKzsrCbPGQeX/AlfUZwGi11qbNHKJR2i SbDX2Rw9UwkvToww3m2EvaPkOrU74cENZwp6e5fraRF2D+p8AsfgNn2mPVxz cAiTVvl3PXeqtzac33w/B476NbeyewL+xu81yER4UK1XF+g8sR+udI3peW8M b2TJsHloC8eVFnZmu5IO0SKcl563HDkDK2v3vVSMhwe+CFS9rYAvn7S46fgV Hr/WeCFO+gjV2q81PKoD4d+HgqwM8uDrvx/o9L+BWTIbGt68h/2J9xr3uuG+ H31PUoZIU7QJ/ZhJ5cApWLRjjZzWSk+q/whJb1nLB3euO3Hq9Fa4jKn8ac9u WIT+g/NlXTjx3xyjtilMWeC9+8cO9ppWMbnrRjpEm9AZCrnGFQhv/vpsMCge TunsvyiTDtO1rZL7cX253n7Cu1GyM60I7nmhF6RXAaffa2fn+wIbZdoUDNEe pbomOVj3Kgu8NSF7wmA9fCW6LplOmHTIfmJ1+HflSkl48LR4+AY1+JmXZ3OE IRxkMe1k6g8ragTObcyCOXbUaMSUwhNb6C5OPoftxMRkC5rht0LaHyw/wsp8 HoEsfcvz6hA318UK147CEUwtR8QpXlQ7/uOoiOeAW+YVrPcIwOrT5pRZMdIh OkTx+On8W9th/qFMHTtl+H3rxm4pBzju0e2TfyLhqULeDJnPsEXyhRrX7ceo PmGwSefUPjh6dW1bqBXMNRSXxniYNEWXyG2wsU04Bm/PkxRZHwA/OjfXfzUM Hp/dtlBZDAt7ubK0d8LKErSp38ZgSe+DCX40x6mesK+YrGaAKw4KmP5dDQeq hT3YzU46RJfYIz3CE84F2wxG5CZtgU/likhnE/Cn+ETjjsvL9fSIry4Plc4U wr2qPwSEHsHOEgEJk8/hfs41tM+b4RvRlirF7cv19Qg3St6p1I+wpO94cchX eGREadC9Dy5yOC9sPAh7fWi0UhmDtx3gvrxpcrnfAWKizrGRdRb2Lp5V/0Y5 QfV0emzpfSZ47nhFqoUgvKjVE7gkAwfLnfrZvAumbGByvL4Prr1skhmjA4cy ZbX7HIT3hAyx2JmQDjlA0M3IaWlZwqsabaVGPWHmvEj2xBC4kadVJyAcjovn D3OKhg/Suz7Wi4fZztybUbi83F+fSHLRdF91DeY06ur6dAN+/2LTumdFcIrq cf0795br6RPm96sjUypgbgn62rMP4QzODDmj57AAZVuBaDN8TVn2Z/U8LHRK QclQ1Jtqh7UPbK7shK/fVTo3oA9PclnqKJuQphwkNIJPc1y0hJN+pH/utoN7 9arzZZ3hUL4/Ozq94I3Du14HnYbFDmnY3GqCJdq1xzs2nqR64cfkGzYJ+O3s lZs6W+FrjFqRYXKkQw4Sx/l+OT9RgjnU9wnJ7oErHNO78g/AVhFjKTwW8NLN 3UYXHeGmhyPbXrjC2Y3JLDRHYe9u9RFl7+V5DIi9v4Ze+vjBg5xqYYPn4Bil JHWbWNhGR0UgJZE0YUBstelfaE6BKV4JnYxX4NazyhV7cmCeF71SWypge9aY 3LVvYFkhhXN6LcvzGhB0st12Ee/hjj0XVGo+wTdM5XgXumGd05Hvjw7D41e6 Er5Nwwrfz698xehDdeAWqeASQZjpv4+Xs9pwmnajhb43/Po27ZbGcHiRVXlJ Nx1OJkxdVufCW72PN78ugheY/p6/dY90jQHxIjdGKboCvqzCM+b+ELZ/X5Cz vwZ+lsmhqTUAizuGDO9lPUX19AJLligHaYohUXsp05iOG46Tklj1nR+2el7x qF4Ynpp5t+n8FjhWfCxOQwF+ErPRoVYbnhi3lCNsYJPyhg+q5+HKM3KBu27B nAypNWF34WMJC3RNZaT/+096zWu3f301LJZfe9H+KRy6bVPrzWfw16oorqlX sPLeUSuVZji56WBWeDvpEEOCbu5Lya0h2FvYs675L9x0u5mBh86XaglFOV1H RjisJiX+Nivco7PQNs1BusaQSDtUaxMpCB/0ifrBIwE/uco1q6YGS73IW+Vs DPd1HUmcsYUzJmR5L7jBMwEpdq1HYSP6het8J0lTjIjieNsBZ3+Ykbd2S3EQ 7L/noGpbEtzv+UV/7gZsknLEXuAxXP90/oRGKxzQXrPQ/hmWHYo87zoAx50c eVEyCg8t6TMv/CJNGBF7o0oN9szC2Wu5kmMXYeOr+sfoRf2oZhCP3B+sC9vs bHI+akA6xIi4r7MuxMYUZrKxydS1gu2P5lYoH4KZE2TGuN3hqtKnG2e94bVz XQn3I2BP1bmlYxkwj32EvH4e3BDKeUSqGOa/bB3Bd590jRHhnX89h6kSflkx 9Gj+Ebzh5fbOwVrYn+XAvvz3cKuRe6nDECzuXNJoMA6fPTU7qD5FmmJMdESo 0W2bg6XSwjcILsEfqznMFhn8qY74khP7iQ3uEXkynyIK73T75GKsBGcI820N jjtN9jcmaJprxx5fIk0xIdwC3e4spcHNEmuOql6DFT+USwXlwnSytEWLd+DW WIMtgZWwl8aIxJlGePVcuHhAL1x4R2jz6Vl4r9PDTf7MAVSvfbIqf5YL7uE2 E/UThrUaFvsqxODik7m5M1vgdcI6TooypAkTIrBpQsRXEdaRULv+m4C5w2KE T+nCZ2Vkv5UZkA4xIfq/dmZPm8IHYs/ay1vDZTvFhHzsYYOfNYInT8FjedYC 3tGwGFsi7/Ey2O5Mw3qvr3DNXYNi4z5Y5PunvTsH4TDuw12CY/APvZ8n6CZJ 1/yXbzltVvMf2FOQ+20G/Rmqm4yuO4YwwdsjpeYPr4GTHlbE63KSppgS0z8J MRkeuNLC1HhRBD5T6x7yQgpecSnpky0BRzs/lJ82hvUbmx2e2sLsit/jol1h bw+vTcc94fZrcw9NT5AmTAnFtlCjXb5w2kqWIaEzsNBHhT0P4uAbt+yuHrgO r+oelJO7AXtwnHzNXQS/1Vqy/1tCOsSU2BoYOdtXDk9+zxS9+xSuOFBiGPAK Vt3w8TbbF/jZBA3DjQk4ypJLznsB1quTtFelC6S6eKZsRoQRZtuifnEVK+x9 6NXG8bWka0yJtkvG1W3rYat6kzE9Dbh30lSowRN+psZ11NkPLojuqFoRCqeW KPYYRsJRHSkMObHw6cUZqYlE0hQzwkPE3Fg9Fd5a/WH0TBE8aWgRUVkL9/lV Fq18Abdf5W4zews/r/efz39HmjAjKoY6N/zugNMU0j0vfYMDzllWyYzCR25U dYf8Ws7LjLBp5GFomYEPTJ2W2rAIq/F8MvKiCaJa6HBGFjMzTHPPavQWF9y7 yLtzvzD8TLsrfGALXO61q0hRhnSNGVFwObM1XBFOrf4z174Ljuqx3iC6G9bz /1xpbwazsdkaXT0Ce/kFqOy7BL/9mio2Vg2fSSrgq22CJTXL2ZJ7Ya6pOZbo AZgmW2X12VF4VC9klc8v0hRzonO+nt59Bi4x1qUYU4KpjrzTuqDCBH/nnPj+ XQbWCGRpjrWEeTsuv/J1gn9t439mfxT+/PlQrak3acKceHkh94mOH1ymOPBQ PRDO7pOskj8HH0zdWbwqGf6ro537uRA+cn1deeUduHO+t+FyKekQc0LTsKTz +AP4fmHQsN4jOM6cm5W+AXZjuC/zuBkWcB70l+6DW2sFaq7OwAVKU5/t9p4l 8zYnrFPERZvNYbZp2yPqR+Ag3S1BfMdJUyyI4etzcbM+sMXC8+y20/Bzw0ul d4PhbMrWDtcoOODuy/kNSfA2lr9EQj783UMuilIFP+Vpul1ZB2e8dGs+/hZe KaT4Te8dacKC8PGjnRLvgHubWujou+CDYte4vnXDq63d0wR4Q6gev34+X2cv 7Kll6jumCQ+PiGkl7CcdYkG4Jcytl9ODB+RfD77Xh10+Zlb5G8Lfg45G85nA jiLq1k/M4J4GNikHS9I1FkSnhfmxUSf43fDVUj8vuI51y86483CZbOXTvDT4 aOn4eUoNLCa7SdtmABbJcKNrHSJNsSQEVhTVaI3C3B4/Ax+Pw5ytsjvlfsHM 16vuCc7AtN6EJNMfeJJdn+8b3Tmqe+5ZM1eywp95sl5Ks8MfzvWG5XLArUOb dvNwwU2G7ktx3KQJS+K58MSpAAH40S/f8cMi8K3EsG4VKThdJqmFQxEu3UE/ 6aoLv1X153hkD8dfK0h1cYKN/rXzsbvA6+xpsx+6kQ6xJDprZERdjsB2oXFS D4/DP/aMyLP5wpMNefuqQ+C/++3MnGPgsNUP7aoSYKbG9a6sKXCjtOZIZRrp GksiIc7nmFMmbPLz+hTLNXi9wTu/ymxYtC06yvE2vN1sbzpzBVyxPifH4SGs 8nHpZkUN/G+n1FaHerguw6p0dQMc8SdKseLl8v6siP02D6rt38AtApz15S2w WffxN0wdMA+RdbC8czlvK+JzdmPboS44i2bRnOkr7Ogo+bmsB/ZWnl0nPQKH rn12MP83HB18y/PbApw0nHBBgBJKdYoQXdrDFXCGmV+BJT18LXa4bHYlnFNn W5/MRDrEiqjxnlWM2AD3iCTe8pWHJxZsv4+rwf9aJQVd98MM6uy7cvVh1tuz 5t3G8NpvHi5BZjDX+q8+fJaka6wI3gOG56usYcHzzxLN7eCt1olvmt1gNTk7 eu2TsGbWXpEwf1h/9Rb1miDYaPe1A3YhsJkfu81iKGx1J8wjIxy27Zv1V4oi TbEm3O5u0K7JhL3PaK3XvgtP+UixV92DfbzYV0uWwTOuM3SZFbCfQ9ff1VWk CWsiwCR/cuwxHKh1rL+5Dl4iTHqI53Cw8s5P917AFHnBdpHXy/laE+ekaZsu vYXDhBprT72DIzhSy8074Jh5yat8PXBC95Ow7iH4UmuUf+04nPLcyDN3Cl7/ dIcL5wycVslvHz63nKc1wVtKYzWzAGfe7jd2XYIL/Fg3/mQ7T3XJHsVJX1F4 XoGhjH8zrCHecapOgjTFhojhLdjhJgW3M/vOs2yDXX6tC7KUh2ffl1Pyd8JR 1aZhE2owb9bvlSp7YafE56++acJF55NjIveTJmyI36cOH5DWg9XcFNa06cOR VvTv/A3hFr33SYImMI96vskzM9hR5hSXhyXpEBtiet26jHI7OHyhTIDGGS6s nxZN84LfxspLbTsNc2woU7aNg63uye2PyYVHk9vedhTCwQEnDUSK4Reee9a+ LIHZDnG0H70PWxj2JXNUwDl77ptXVS7vy4Z4xjxlZ1APD76XdRlohHnDiJai b7CerL6y92+48+q7y04L8GFG058m/2CppylXGmnCqJ706dyvSQdXSvLOPmGA g3us83YwkqbYEkx63X/FWeHUB46WvByw3dE8hkvrYNGN/fdXc5MmbInhzs0O YbxwSZw76xI//Orw8fpuMbhXxc+/bjtcOFm5aZcc7FW40HpfAZa3UwmRUiId Ykv84QiWzleGo87SRKWow5wjYb2Re2HpuphUD31YMz1J74AF3ErHdUPNFj50 PJ1muyMsJtZVXOgMj3bx2wi7wqWJdowZ7sv52hL+WtkVaz3hkqx2b5+z8ODs qm0dSfDP0HgXjWR4hoXrWnEqvJR25T1vxnL+dgSd6EaWyCvwWuXtgYdyYCED 1ZEdBfDmrnqRvMLlPO2IrS46Vmy3YYVfLYmBd2CVQPNXg3dhnSRnpdoy2KLw xI30KvilxacNtj3wTsY9aUIrw6ledbEstZaRdIgd0cEmlurIDOdfTk2hXQP7 cDOm5LHD7EKjl/u54OLNzZfE+WHdbaVJHsLwoGJyYpEYXFHNkHhAgnSNHRGu 5p8wvgU2qRuKj98Ki2hax2+XgW1MhS+W7YJTnQeilTRhec/XFwJ04daTd6Ie GcDZs4JRtsbwsTMJkX9NYbV/NJFZFqQphwjm8ycjCGv4XM6/c9rH4ZmnMUEG 4fClF16BSdHw9mbDM+3x8F+j+oBTSXBjh3wAVzJ8xarg9INU2OPr+tMWGcv7 O0TkjX3x/ZwHdy/m+tjfhdV2PHnzrw6+dqJTJKsDVqRkzUV0wU1xh5u8emDe Du2q3l7YRUAqz+wHXOq8Jv71APz39uRpteHl/R4itr46u4l1GrbrZ373ZQl+ IrRZPIg9gmpB691n+TfBHtdFPRI2wxVDK03pJEnXHCJWyIyo+0vB+v5NkqNb 4X6GZEq7HBycbN3xUAkuLh08F6MBf2k+JW2tBwe0DNRnO8Bc7yyt+n1hSXZx lvjTpCn2hKrhzNMdgbBB4jPvnmDY+V3Spgvn4BjDbTGfIuDSd28mtsTClFa6 R00psH6rauSJHPhKq68RZxE83HpX4EEF/HdtcMuhKtJC9gS7sd75VY9g0Uu8 iveewEptg4OWtfAh43D92w1wRJtw2eIb+Gk7/bfIGdKEPbGij97KlxJJteYv +jZnJthtLnyNzRo4+h+9njEnzEerOdzEBRcxRETp8JC2/y9fpgaxBj64iYXh +W5BeC0/g9p2cdhUkuGBoCzcL61pmiEP+8pETK3bAa9UaEhM3Ek6xJ5IU2LY zqICV6tHeNLthj9rMtz8sw92cmLI7LSEh88yXCw/CjNHRrwq8oa3xjEw5PnB TxM18zYEkM7+7/1JjtDIDIS/pTX0cJ2Fva8wnE06B1fcYpgLiYHnKxlOHEuG r3iw1R3IgAl+Xg6pLHjt72u7MnPgvsaNzkx5cFlBYezpAjjirHT5YCHpGnui sZcwzy+FOTVN5h0ewdvacs6Z9JHu+S9/xfKN7GPwo/SXzxtnYHvdVq6iPzDt UpdrNCWK6vb39gnzK+CC4h+VbvSwf6THtw8rYR37n4xaTKQpDkRi/YoiWk64 U4xLv0YAPtO5IeuaCCwYLTERuBmecCzmHpUgLeRA1O2S220tBV/mrHR/vRU+ PKaStFMGnmdQTve3hi8K7ch+EA7X1HOd+xcNT7rMOGglwDFKLkYjSbAoU4dG fDL8pGufnFwaacKBML9TvvFDBvxoyueHSz4srCx/Y+YuPNJQKsn1HC43lilW +AT3Bk0f3tgNsxU+EGD/Doupps9H9sOqrQHv/w6StncgTFxt7p0agT0WVS+O jsHPDZ4tvpiFhfJ1PHNpLlD9/oC5rtU6OHrGSZJdAv6uM5w+KgurZx1nfKkC e76Sqy3fDWdMzfjnasIlUZ0mvPtJhzgQLwSqtyfqwl9LM5lX6cPTWkGDwQYw 0xe7Z7+NYGFvItvTFFZaKRLYZw7rX6G1sLIine1ABDY0rNE+BN+cuPBCwRmm 28e2g90LtktPKRj1gw1W/Xm2/yK82+9QX8F1WIheKtIoH/6bNCf59wb8Weh5 081bpGsciOriRG/TO3Caih0XTQns+1qyuqgUNrGYtbUoh2X762noKkn3OBC3 BWYSSutgUVNxIYdGeEXfdD1zC9xzvNa1shV+8vfiauf38NVYq7trOklTHAmr wqkZly8w17NYtSe98LShZa/7D7i1e1PEukHSQo5EydFJidphOP7Pk0bPMVhv vcW6Z5PwKrlfNnxz8EKO6Rl/lmiqR9iq09+LwC5X/xkaScO9EvuYmnfANBfN lLyUSROOhNCEqwuLKqxufPpykTpsVxFdp6sBXwm8IxitBX/SaAl4qQe3WluP 1DrAr336rR/6wnUXT7wti4GrCxZVirPhj4ysRw7kwnOeG9JH8+H1LdtfxBSS tnckFOU0fkvehn3mnQ3dS+DSp5F3bpTDNzvXCua8Jh3yXz6beAzDm2HekxvC 3NvhivTrV7s6YOOaTQ8OfCSd7UhM9Be2PO2CY1mkhmW+wks3lAwWBmAvjX0V db9gJveXzfLT8I143aGCGXhvRdMKnnnSNY5Ez2dD/pg/MLekxcFjlBiqDf3s Qo3p4Tr2I4N8a2D5Ij/979zwwrpb/fQEXHP2c/BmV1g0S8e+yZ10jyMR9aRy 9ylPePSL2Eb+Y7DB0mW6+hMwt8qJF2x+cE/AgWi7QPjfqSfJyYmkKU6EY7KU n8pluKEsw6IvBZZsX6UcnU5ayImIm/Llk7kCm8kafw3OgQVPbMt5WwD3313t zFsEF48PiLndg9eymq1aUwb7Sj8bKq+AP+nJvrGpIk04EWqe2UW0j+BAx9D6 E/3wQwvnT91ssVQ3HHPaXSwKt0Q4FgYqwaZre7ucNOBPVx3W6OrBV5yEb6oZ wockvmnImsEEc+2aIgvS9k6EyM/sz5usYdrWkJtZtvD3MntfHnvYnei5SfGA x98c+jJwEm4pVr/l4AvfS9zg1+VPOsSJSPL5t8f0DOxj3s3WHAQrCmTdqguF 53vt9lZEwnQLtrfDMmFWdtu1xnfh7a/Oudfcg43OFdRIl/2/fjvfrM+sgFN+ /fRaVUU6+788HXYK9D2GBVtD3zyugwtK14mffAtvu1QYJt4BEyZNqpeGYIN1 0zNLi/DlcNX8TpqLVHf+jjC+zwAv3Ll9S4iRdI0Twe/SQhO3GlYT/G3xhwV2 6OApcWODhyuKmAV5Ye9Udfe2jfCCX+vzKGk41OKwiNoOuOFlcQu3Csy0cy54 ioClfvF32O+B9W/ulm7aBx93cAnbpU26x4m4xBPTVagDLxr7ZW2fIk04E4+P tqufTIgjn9+ZCBWSWu2ZCWu3ne9wLoBvFW1T+XYbZonoyrG9Bz/xvtfOVwYf PxS58lMFLKxnq5xWRbrGmWhVkjtq9gi2vdZLq90KD9ImZewchHW+qFIqxuA7 FUOHZadgu9ynaRO/YbaE5DfFc6R7nInawCN/Pf/A3u67Zbb8hZX40xc3MsZT vdQ08YKfE7YvvCKdzgPXndO+tG4D7OMl2NAmDG+ynp5LFIU7tF5vMdgMR8ln 27FKkqYcJg4MzEqsVIDXZhz8/U8d/h/jy2K4 "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVk2s4lAkDhkVOKWYnRQ4ZKSmnCJmoeaYkobIm5zAza0iJmIiEUE7xvjUi xlc5lI9CvhxSpm2bFSUip92d2uTadh1DQ2tLsX0/nuv+e/+4H31uhDtPVkZG hvdt/2f96V89BgZnGXnRxtebpZFoChkOVxueZTjaO1OUc1aiQiqboPziE8Px kgIndmEZChLWXpBrWGBoHLur75CjCIelVzsWOpcggqmb7MdUgOjZrd545lKI 6ox8n3fKw4pskvxTrwAVKTd7TYs8qg61DkUbKWP4raB9x0d5GGj1jUiLVMBj /6Yyuk8BwsGhqQg1VezuTpl0bVBAZs+p+BgmBftvW5X1mStiScH5lJl6Kga1 YxNmoYSHp5cr3J385tmdp+PRo4Q4/9zME0arkOCoeT80RBkf1pVcfF+kgUV6 iPjngmWokjdSr+rXRBozXLZ+qwqOjNRcOaqmBX6hUDWzSwVvq0XXhlN00HHG fapSaQWO6IQNTNfTcKMk8s+ceDV4/zf93VjRBmjZ71wQGVHRqOli2G5riA9X tlxfHk2Fepbqkcp+Q8gORJDaj6noDssbD1EzwoYRl5IY75VwsiyTvkvZjKL0 0lnDc+qwffijzGCoOeal+T4fulYje/Q0MVpkBYkZsal5pzZMm5tNpNNWoOz0 sXuXqY0X2V/aP++xxsS9+yaSPm1QtiQqLp+2hlT4z4z5UR3kxSSfNXPYhmK7 vTMFAl1ck8uI4k/QMd5vTFnySg+1unmeX+0ZGEidDLbYuA5jFV6k0pQDHtRJ GuTCDCHoSVrb/uoAUlOql09Nm+JWUiLb1+UQZtxEjMoYS5jerEkPFPigwSC/ 0l3LBlFPeAK7pAAYWSlNNQbRcXx7+v3eMQ5sd73Z6vPGHsM9tZO5mUGoqu1N pmsB4pGreYz5YNQkbddzK2HCrDV1Y11JKGrClJmXd+3GPM3UmKodhtYfHJtT xA4gRLf58+nhuOH7Y6+tjSMk5CXWwOUTyCgNGhpo2QtdGfPy9V2RqI3cV/fc ah829TlNDhjw8cDEwux/j5xR4NTpfSDqJGrZ0Yl1DFc0xW89Y3crGox5r2vd pftRTF2dl/0lBidq/a5M0A6CfkQSzLKNhWF4256TTDcI9bXNEok4HDbg5A8t uiEgvlUj/M1p/JJ8Sppz/3v05rIe9GqcQbZfW0Qtzx0Uir/71WMJ+KqQSbPW Y2HB2ansdUUiziw6BIY/Z+Gg4bXVQ4NJCCR+awviH0K9ZdOjGwVnEaMUpVxl 5IFCC0H3Sptk6Lawa2ReeoDL3fy6/m0yXo4vWAvSPOH/x1ysbUYKPFT49fPb vFC720Yasz4VNuzOiIevvTDSbxk83JmKnY6qpRWEN2L3FjdSw84h+F57EcXK B3Tl3QU0xfMIaBSrCft9MPil7CT7znnwSP02+jlf/N4Vbernmvbth49phKEf HvXJD6X/nYZHqkTbX/1++NSkEBmRlw7tZ2sbKXGHwXtvL6BbZGBugnUpVdMf DSyLGmtJBuzdDoWNtPgjoDC/fOJUJsR2TQIXXgDGKQ8K+9dlwcAgyOUiNRCV v1LXlrRn4fZ8WsYGUSB+SnqduDHkAjSfPh2fNmGj2TtIMkjJxiRTz2BbChuq 3/lTWXeywfBSMyh6yUbumguvKpxz0DGZ/9FOj4MvrFPXt8zkIOuKRbE9n4OH x/sY/IsE1HQXRccecxDueyvKIpdA+g9E6FMxB7S9Z29O5RFw9PSmbmjhIIVm ohJWRKBt7Kr3m1YOnHpTB4LKCQRFzd9z6+Cgx3brcU8RAYf2w2KrXzgYkRMI 6SMEDtQLlT5PcFA4HdI5N0bAL9B1h+ckB86/75BpfE+gdHBP+N0pDqobR3mW M8S3Hr57clTKQVQo08J4gcCuVVqOr+Y4+Ppiuk1HnUSojkN+sywXNc2tnyWr SZjcLCM1lnLBrviPaeEaEh6x35/ny3MhTnbKXaVHwr+gkGesxEWGVXGA6mYS 9rN/fRKu4IKuH3Opw4TEM/mW/r9VuRhb4dqSZU7i9mVptTuFi/3Dc5sUrUkE ifewlq3kYqG38/CTbSTkTI/RgtW5qP2pjEzdTiKj6o/Rx6u44FTHiZk7SJSX 37mjq8EFVXjw4yKDxKezXZFxmlz8C9pU4CY= "]]}, {Hue[0.1421359549995791, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVyXk81AkDx/FxrycxqVG5IreQccQQ85V6uVo2yhmNyfwkSo2ILMK6mV9I GUqJPO5lQyT0att2syZejo6JlRf7OFrXSD2L9Ozzx+f1/uOjyY705IhTKBTO P/3f30Z/Z9EoS0yf+I5Vf672k/bQ6fMK0x+ZpMn8yHWTsZ5qkXiC7Mu/mTYf DR96Br1hFieo50i0bjLZzYK2Av4887Dk7b5NgRjUxlvr9chV5uMXtUPxDpK4 ZN3/er/tOtOCbBf+t0UaDVJVlfO7Kag//nwiWl8Wa8pWEZY+4tBSHp4RlW7B HfvPk3EcSZSMTyxGKsgjTyzlnrGHNLIGL8fHOFCx6nFza5rKNxArTktZaVHE uTC34muRW9B1RU76p4XtoDGM7FU35RAXWJh1QZ+GCjq5Vp0gj+W95dfmS3ei OEa8hFtHRb2U/o76kV1wOLDc3eC3DWdmGm+eVVCGez7H/5CEIt43PC6bTlGF D+3adyau23FGNeLVUosGZlNviGSbaPD9d8bUXKkOxEwMBaGyymjb5abba60L yfz4pehcZezIlj9TM6KLSeSsSMmrYCCi6EOogj6k+AKHj3KqcDarEE2lGCJa eYPSva4G665uynjYftjJzZg/G9JA7uwV3mypBZiXbQ/SrLRh3NlpJFqygIyY h4N2pDZe5m70rh2xRM2lmrszVdqgmibKyC1ZIl2yRoZP00FRTPJVk8NWsHMd 8XmxqIMyiUxu1F8MeG5bmGov1kOTWpH3l4NMjPaqGE08M8RctQ/5zeJhGHkb 7mr3MUXBYJJ67zt3+B3o8dViW6I2KZHl73Yc78o86cEiBozvN2acKvDDbzEq DPU79uD+wimwTQrCkeDcRAXCAedsMjqG5oIRNLrJ8CtyxPRg00JhVgh6buaH o/YIns7cLmKuE+j5oYHFJp1g8jxV70F5GB6O+66wC1ywrmG8T1ElAmOOF9qM z7qB97guaj3jPEwMxJxc6N9CSOZ7vbp+AUMHm1dbdnpAjbK/Srv/Ivp27HJp DP8OBsPOC6+0ojDGLfzZLuAYip0Fvu7cS3izrMYqcfREe7z597a10Tj7KOMI RdkLdxWVinI3YqAz+1OnNeU4GGeEhJd1LBbmH3gpjRxHiaaKSSIvDp3Ldd4P Ok4gKP75zvN/XMEe/i0bRrE3hgq9Hg3t/B7CU1yaBeEDKjXQ83Z4AmZl1eze O/pi09W5YrQ6EWVd4drB2/zgoVumNDGehGOlEbdy3/qhxay9p7L4KvSp9wO8 mv3BpxcMbD+QDP0ikUF0XADYbMPRlvfJOHlnsl/p2EkETn6Otc5MQVaXvSZP KxBNjgdEMdqpeOHpGTzwn0DMjJgR04JUjA4usmI7ghDrdLdNMeIHeO6ZrNZM OAWGrGOxhkwagrqXv0qrszC+UXGJ9WMa3LhPV/emsTDWH20ccDQdvDxu/cwU Cz3DUhMZn9LRvFes2eloMP5ul74YWZSBsHu1Vzj1weDMHyxg0DMhX3fd7NC/ 2Gj1ojdaCjPR3/a6ui6SjSD+jaq/Lmfh9QSn/KOAjQ/UR/yRvdngbN5a7DY/ jZo3iurlvdlwrFxmuN88jSdJo4l6oTl4dvZGonDlNDp9Q4Tj1Fy0WX7dPeoT AvltgYpeP+YiaMA6drYlBIW7c95Vu+YhXOvXhLcKHGx4Xb5jupKHqfITOeZc DrrODTOjrvHwiPfQplnAwXn/Wi69kAcLlxFtl34ONJyu3l8s4iE0+57sxAAH KRpGWyJKebit5P4zdZgD56HUVyFVPKSnr32KFHIwaG1+zvsxD3lCOst4moMZ iYISxgwPMeyT9pUUAvylUMHnOR7YGfwkW3ECrmN2lLZ5Hqzu8TsHJQg0tM1y zFZ4OLTnTy0xGQLcMAf6vk0e4j91tAZuJfDl5dKvqjtIXG16/wdNmUBj5/M1 oRIJubfX++pVCLCqbxnzd5MITaK1OqoReJrsXEjbQ8K0IjHmogaBTIu7QfKG JC4MUDr7dAkwNGPy+4xIhFw0SDqtT2Bu69Fn2fv/+c5a9msGBL6d/mwgY0ki UZRbr2dMYHNIcPIXKxL7RF8Cuk0IND2pIFNtSOgkH5I+YUoguCHuqYMdiSjL gLoPdAKKJR6rX5kkRJXObinmBP4HrPbY9g== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{1, 1000}, {-10.22335021866972, 287.17080609298984`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.5198542069399843`*^9, 3.5198542116392527`*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:53cc\:5b50\:7d20\:6570", "Section"], Cell["\<\ \:7d20\:6570\:306e\:306a\:304b\:3067\:9023\:7d9a\:3059\:308b\:5947\:6570\:306e\ \:30da\:30a2\:3092\:53cc\:5b50\:7d20\:6570\:3068\:547c\:3076\:ff0e\:7c21\:5358\ \:306a\:4f8b\:306f3\:30685\:ff0c5\:30687\:3067\:3042\:308b\:ff0e100\:307e\ \:3067\:306b\:3069\:306e\:304f\:3089\:3044\:3042\:308b\:304b\:8abf\:3079\:3066\ \:307f\:308b\:ff0e\:307e\:305a\:ff0c100\:307e\:3067\:306e\:7d20\:6570\:3092\ \:5217\:6319\:3059\:308b\:ff0e\ \>", "Text", CellChangeTimes->{{3.5226095218550997`*^9, 3.522609555078*^9}, { 3.5226096155094566`*^9, 3.5226096431680384`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p", "=", RowBox[{"Prime", "[", RowBox[{"Range", "[", RowBox[{"1", ",", RowBox[{"PrimePi", "[", "100", "]"}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.5226095614873667`*^9, 3.522609586806815*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "5", ",", "7", ",", "11", ",", "13", ",", "17", ",", "19", ",", "23", ",", "29", ",", "31", ",", "37", ",", "41", ",", "43", ",", "47", ",", "53", ",", "59", ",", "61", ",", "67", ",", "71", ",", "73", ",", "79", ",", "83", ",", "89", ",", "97"}], "}"}]], "Output", CellChangeTimes->{ 3.51985421700556*^9, {3.52260957553017*^9, 3.5226095879238787`*^9}}] }, Open ]], Cell["\<\ \:3053\:306e\:30ea\:30b9\:30c8\:3092 Partition[list, n, d ]\:306f lisit \ \:3092 \:9577\:3055 n , \:524d\:5f8c\:91cd\:8907 n - d \:500b\:3092\:6301\ \:3064\:90e8\:5206\:30ea\:30b9\:30c8\:3092\:4f5c\:308b\:ff0e\:3053\:308c\:3092\ \:4f7f\:3063\:3066\:90e8\:5206\:30ea\:30b9\:30c8\:3092\:4f5c\:308b\:ff0e\ \>", "Text", CellChangeTimes->{{3.5226096706856127`*^9, 3.522609681726244*^9}, { 3.5226099427351727`*^9, 3.522610000152457*^9}, {3.522610250427772*^9, 3.522610263239505*^9}, {3.522610450838235*^9, 3.52261053729418*^9}, 3.522610574817326*^9, {3.5226107052547865`*^9, 3.5226107116711535`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pp", "=", RowBox[{"Partition", "[", RowBox[{"p", ",", "2", ",", "1"}], "]"}]}]], "Input", CellChangeTimes->{{3.522609746766964*^9, 3.522609747062981*^9}, { 3.5226098187040787`*^9, 3.5226098667988296`*^9}, {3.5226099052480288`*^9, 3.522609916790689*^9}, {3.522609979655285*^9, 3.522609979942301*^9}, { 3.5226100239758196`*^9, 3.5226100287350917`*^9}, {3.5226102670637236`*^9, 3.5226103176306157`*^9}, {3.522610364263283*^9, 3.5226103767669983`*^9}, { 3.5226104162472563`*^9, 3.522610416583276*^9}, {3.522610582911789*^9, 3.522610584236865*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "31"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "37"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "41"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "43"}], "}"}], ",", RowBox[{"{", RowBox[{"43", ",", "47"}], "}"}], ",", RowBox[{"{", RowBox[{"47", ",", "53"}], "}"}], ",", RowBox[{"{", RowBox[{"53", ",", "59"}], "}"}], ",", RowBox[{"{", RowBox[{"59", ",", "61"}], "}"}], ",", RowBox[{"{", RowBox[{"61", ",", "67"}], "}"}], ",", RowBox[{"{", RowBox[{"67", ",", "71"}], "}"}], ",", RowBox[{"{", RowBox[{"71", ",", "73"}], "}"}], ",", RowBox[{"{", RowBox[{"73", ",", "79"}], "}"}], ",", RowBox[{"{", RowBox[{"79", ",", "83"}], "}"}], ",", RowBox[{"{", RowBox[{"83", ",", "89"}], "}"}], ",", RowBox[{"{", RowBox[{"89", ",", "97"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5198542170705633`*^9, 3.522609747953032*^9, {3.5226098214272346`*^9, 3.522609867173851*^9}, {3.522609908997243*^9, 3.522609917646738*^9}, 3.5226099807573476`*^9, 3.5226100300731688`*^9, {3.5226102695108633`*^9, 3.522610317950634*^9}, {3.522610365462352*^9, 3.522610377641048*^9}, 3.52261041736032*^9, 3.5226105851629176`*^9}] }, Open ]], Cell["\<\ \:53cc\:5b50\:7d20\:6570\:306f\:ff0c\:3053\:306e\:90e8\:5206\:30ea\:30b9\:30c8\ \:304b\:3089\:5dee\:304c 2 \:3067\:3042\:308b\:3082\:306e\:3092\:9078\:3079\ \:3070\:3088\:3044\:ff0e\ \>", "Text", CellChangeTimes->{{3.5226105945964575`*^9, 3.522610660885249*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Select", "[", RowBox[{"pp", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[Equal]", "2"}], ")"}], "&"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "31"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "43"}], "}"}], ",", RowBox[{"{", RowBox[{"59", ",", "61"}], "}"}], ",", RowBox[{"{", RowBox[{"71", ",", "73"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5198542170965652`*^9, 3.522610668054659*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "%", "]"}]], "Input"], Cell[BoxData["8"], "Output", CellChangeTimes->{3.5198542171235666`*^9, 3.5226106726139193`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \:554f\:984c11\:ff1a1000\:307e\:3067\:306e\:53cc\:5b50\:7d20\:6570\:306f\:3044\ \:304f\:3064\:3042\:308b\:304b\:ff0e\:95a2\:6570\:3092\:4f5c\:6210\:3057\:3066\ \:6570\:3048\:3066\:307f\:3088\:3046\:ff0etwin[n_] (\:3061\:306a\:307f\:306b\:53cc\:5b50\:7d20\:6570\:304c\:7121\:9650\:500b\ \:5b58\:5728\:3059\:308b\:304b\:3069\:3046\:304b\:306f\:6570\:5b66\:4e0a\:ff0c\ \:672a\:89e3\:6c7a\:306e\:554f\:984c\:3067\:3042\:308b\:ff09\ \>", "Subsubsection", CellChangeTimes->{{3.522609379397952*^9, 3.522609389666539*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"twin", "[", "n_", "]"}], ":=", RowBox[{"Length", "[", RowBox[{"Select", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Prime", "[", RowBox[{"Range", "[", RowBox[{"PrimePi", "[", "n", "]"}], "]"}], "]"}], ",", "2", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[Equal]", "2"}], ")"}], "&"}]}], "]"}], "]"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"twin", "[", "100000", "]"}]], "Input"], Cell[BoxData["1224"], "Output", CellChangeTimes->{3.5198542171945705`*^9, 3.522610676630149*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:30e1\:30eb\:30bb\:30f3\:30cc\:6570", "Section"], Cell[TextData[{ "\:30e1\:30eb\:30bb\:30f3\:30cc\:6570\:3068\:306f\:ff0c", Cell[BoxData[ RowBox[{ SuperscriptBox["2", "x"], "\:ff0d1"}]]], "\:306e\:5f62\:3092\:3057\:305f\:81ea\:7136\:6570\:306e\:3053\:3068\:3092\ \:3044\:3046\:ff0e\:7279\:306b\:7d20\:6570\:306b\:306a\:308b\:5834\:5408\:30e1\ \:30eb\:30bb\:30f3\:30cc\:7d20\:6570\:3068\:3044\:3044\:ff0c\:6700\:5927\:7d20\ \:6570\:306e\:767a\:898b\:306b\:975e\:5e38\:306b\:6df1\:3044\:95a2\:4fc2\:3092\ \:3082\:3063\:3066\:3044\:308b\:ff0e\:3053\:308c\:306b\:95a2\:3057\:3066\:306f\ GINPS\:3068\:3044\:3046\:30d7\:30ed\:30b8\:30a7\:30af\:30c8\:304c\:3042\:308b\ \:ff0e" }], "Text"], Cell[BoxData[ RowBox[{"x", "=", RowBox[{ RowBox[{"1", SuperscriptBox[ "\:304b\:308910\:307e\:3067\:306e\:81ea\:7136\:6570\:306b\:5bfe\:3057\ \:30662", "x"]}], "-", RowBox[{"1", RowBox[{ "\:3092\:8a08\:7b97\:3055\:305b\:308b\:306b\:306f\:6b21\:306e\:3088\:3046\ \:306b\:3059\:308b", "\:ff0e"}], "#", "\:306e\:4e2d\:306b\:5909\:6570\:304c\:53d6\:308a\:8fbc\:307e\:308c\:308b\ ", RowBox[{ RowBox[{"(", "\:7121\:540d\:95a2\:6570", ")"}], "."}]}]}]}]], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "^", "#"}], "-", "1"}], ")"}], "&"}], "[", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "3", ",", "7", ",", "15", ",", "31", ",", "63", ",", "127", ",", "255", ",", "511", ",", "1023"}], "}"}]], "Output", CellChangeTimes->{3.519854224042962*^9, 3.5226134248649693`*^9}] }, Open ]], Cell["\:6b21\:3067\:3082\:540c\:3058\:7d50\:679c\:304c\:5f97\:3089\:308c\:308b\ \:ff0e", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "^", "#"}], "-", "1"}], ")"}], "&"}], "[", RowBox[{"Range", "[", RowBox[{"1", ",", "10"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "3", ",", "7", ",", "15", ",", "31", ",", "63", ",", "127", ",", "255", ",", "511", ",", "1023"}], "}"}]], "Output", CellChangeTimes->{3.5198542240819645`*^9, 3.522613428425173*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"x", "=", RowBox[{ "1", "\:756a\:76ee\:304b\:308910\:756a\:76ee\:307e\:3067\:306e\:7d20\:6570\ \:306b\:5bfe\:3057\:3066"}]}], ",", RowBox[{ SuperscriptBox["2", "x"], RowBox[{"\:ff0d1\:3092\:8a08\:7b97\:3055\:305b\:308b", "."}]}]}]], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "^", "#"}], "-", "1"}], ")"}], "&"}], "[", RowBox[{"Prime", "[", RowBox[{"Range", "[", RowBox[{"1", ",", "10"}], "]"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3", ",", "7", ",", "31", ",", "127", ",", "2047", ",", "8191", ",", "131071", ",", "524287", ",", "8388607", ",", "536870911"}], "}"}]], "Output", CellChangeTimes->{3.5198542241109667`*^9, 3.52261343274942*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:30e1\:30eb\:30bb\:30f3\:30cc\:6570\:306e\:7d20\:6570\:5224\:5b9a", \ "Section"], Cell[BoxData[ RowBox[{"x", "=", RowBox[{"1", SuperscriptBox["\:304b\:308910\:307e\:3067\:306e\:81ea\:7136\:6570\:30672", "x"], RowBox[{ RowBox[{ RowBox[{"\[Minus]", "1"}], RowBox[{ "\:3092\:8a08\:7b97\:3055\:305b", "\:ff0c", "\:305d\:308c\:304c\:7d20\:6570\:304b\:3069\:3046\:304b\:3092\:5224\ \:5b9a\:3059\:308b"}]}], "."}]}]}]], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ RowBox[{"2", "^", "#"}], "-", "1"}], "]"}], "&"}], "[", RowBox[{"Range", "[", RowBox[{"1", ",", "10"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "False", ",", "True", ",", "True", ",", "False", ",", "True", ",", "False", ",", "True", ",", "False", ",", "False", ",", "False"}], "}"}]], "Output", CellChangeTimes->{3.5198542279601865`*^9, 3.52261344900735*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"x", "=", RowBox[{ "1", "\:304b\:3089100\:307e\:3067\:306e\:81ea\:7136\:6570\:306e\:3046\:3061\ "}]}], ",", RowBox[{ SuperscriptBox["2", "x"], RowBox[{ RowBox[{ "\[Minus]", "\:ff11\:304c\:7d20\:6570\:3067\:3042\:308b\:3082\:306e\:3092\:9078\:3076\ "}], "."}]}]}]], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Select", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"1", ",", "100"}], "]"}], ",", RowBox[{ RowBox[{"PrimeQ", "[", RowBox[{ SuperscriptBox["2", "#"], "-", "1"}], "]"}], "&"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "5", ",", "7", ",", "13", ",", "17", ",", "19", ",", "31", ",", "61", ",", "89"}], "}"}]], "Output", CellChangeTimes->{3.51985422802219*^9, 3.5226134529455757`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"x", "=", RowBox[{"1", SuperscriptBox[ "\:304b\:3089100\:307e\:3067\:306e\:81ea\:7136\:6570\:306b\:5bfe\:3057\ \:30662", "x"], RowBox[{ RowBox[{"\[Minus]", RowBox[{ "\:ff11\:3092\:8a08\:7b97\:3057\:305f\:3082\:306e\:306e\:3046\:3061", "\:ff0c", "\:305d\:308c\:304c\:7d20\:6570\:3067\:3042\:308b\:3082\:306e\:3092\ \:9078\:3076"}]}], "."}]}]}]], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Select", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "^", "#"}], "-", "1"}], ")"}], "&"}], ",", RowBox[{"Range", "[", RowBox[{"1", ",", "100"}], "]"}]}], "]"}], ",", "PrimeQ"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3", ",", "7", ",", "31", ",", "127", ",", "8191", ",", "131071", ",", "524287", ",", "2147483647", ",", "2305843009213693951", ",", "618970019642690137449562111"}], "}"}]], "Output", CellChangeTimes->{3.5198542280581923`*^9, 3.5226135708013163`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PrimeQ", "[", RowBox[{ SuperscriptBox["2", "9941"], "-", "1"}], "]"}]], "Input"], Cell[BoxData["True"], "Output", CellChangeTimes->{3.5198542300793076`*^9, 3.522613586582219*^9}] }, Open ]], Cell["\<\ \:3053\:306e\:30e1\:30eb\:30bb\:30f3\:30cc\:7d20\:6570\:304c\:7121\:9650\:500b\ \:5b58\:5728\:3059\:308b\:304b\:3069\:3046\:304b\:3082\:6570\:5b66\:4e0a\:672a\ \:89e3\:6c7a\:3067\:3042\:308b\:3057,\:4eca\:5f8c\:ff0c\:5de8\:5927\:7d20\ \:6570\:306e\:6709\:529b\:306a\:6570\:3067\:3042\:308b\:3053\:3068\:306f\:9593\ \:9055\:3044\:306a\:3044\:3060\:308d\:3046\:ff0e\:73fe\:5728\:306f\:4e16\:754c\ \:4e2d\:3067 GINPS \:306b\:3088\:308a\:767a\:898b\:306e\:7af6\:4e89\:304c\ \:8d77\:3053\:3063\:3066\:3044\:308b\:ff0e\ \>", "Text", CellChangeTimes->{{3.522613601898095*^9, 3.5226136043222337`*^9}}] }, Open ]], Cell["\:30e8\:30bb\:30d5\:30b9\:306e\:554f\:984c(\:7d99\:5b50\:7acb\:3066)", \ "Section"], Cell["\<\ \:554f\:984c\:ff1a\:300c\:30ed\:30fc\:30de\:306e\:5175\:304c10\:4eba\:306e\ \:30e6\:30c0\:30e4\:5175\:3092\:6d1e\:7a9f\:306b\:8ffd\:3044\:8fbc\:3093\:3067\ ,\:3044\:307e\:307e\:3055\:306b\:653b\:6483\:3092\:3057\:3088\:3046\:3068\ \:3057\:3066\:3044\:305f.\:30e6\:30c0\:30e4\:306e\:5175\:58eb\:306f\:6575\ \:306e\:5203\:306b\:304b\:304b\:308b\:3088\:308a\:306f\:81ea\:5203\:306e\:9053\ \:3092\:9078\:3093\:3060.\:3053\:306e\:3068\:304d,\:4f1d\:8aac\:306b\:3088\ \:308c\:3070\:5f7c\:308910\:4eba\:306f\:8f2a\:306b\:306a\:3063\:30661\:4eba\ \:304a\:304d\:306b\:6b7b\:3093\:3060\:3068\:3044\:3046.\:6700\:5f8c\:306b\ \:6b7b\:3093\:3060\:306e\:306f\:8ab0\:304b\:300d\:ff0e\ \>", "Text", CellChangeTimes->{{3.522614193326923*^9, 3.522614214654143*^9}}], Cell["\<\ \:3053\:306e\:554f\:984c\:3092Mathematica\:3067\:89e3\:3044\:3066\:307f\:308b\ \:ff0e\:305d\:306e\:305f\:3081\:306b\:307e\:305a\:3001\:30ea\:30b9\:30c8\:51e6\ \:7406\:306b\:95a2\:3059\:308b\:3044\:304f\:3064\:304b\:306e\:95a2\:6570\:3092\ \:7d39\:4ecb\:3059\:308b\ \>", "Text", CellChangeTimes->{{3.5226142175873103`*^9, 3.5226142224885907`*^9}}], Cell["\<\ 10\:500b\:306e\:30ea\:30b9\:30c8\:3092\:304b\:3089\:4e00\:3064\:304a\:304d\ \:306b\:8981\:7d20\:3092\:9664\:304f\:30d7\:30ed\:30b0\:30e9\:30e0\:3092\:8003\ \:3048\:3088\:3046\:ff0e\:305d\:306e\:305f\:3081\:306b\:306f\:ff0cRotateLeft \ \:3068 Rest \:3092\:7528\:3044\:308b\:ff0e\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RotateLeft", "[", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.516099702045069*^9, 3.5198536017173676`*^9, 3.5226136300407047`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Rest", "[", RowBox[{"{", RowBox[{ "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "1"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.5160997020700703`*^9, 3.519853601743369*^9, 3.522613634105937*^9}] }, Open ]], Cell["\<\ \:3053\:308c\:30672\:3092\:9664\:304f\:3053\:3068\:304c\:3067\:304d\:305f\ \:ff0e\:6b21\:306b4\:3092\:9664\:304f\:305f\:3081\:306b\:306f\:540c\:69d8\ \:306e\:624b\:9806\:3092\:884c\:3048\:3070\:3088\:3044\:ff0e\:3042\:3068\:306f\ \:7e70\:308a\:8fd4\:3057\:306b\:306a\:308b\:306e\:3067 Nest \ \:3092\:9069\:7528\:3059\:308b\:ff0e\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Nest", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Rest", "[", RowBox[{"RotateLeft", "[", "#", "]"}], "]"}], ")"}], "&"}], ",", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10"}], "}"}], ",", "9"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", "5", "}"}]], "Output", CellChangeTimes->{3.516099702095072*^9, 3.519853601771371*^9, 3.522613648281748*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \:554f\:984c12 \:3000\:3053\:308c\:3092\:6c42\:3081\:308b\:30d7\:30ed\:30b0\ \:30e9\:30e0\:3092\:95a2\:6570\:578b\:306b\:307e\:3068\:3081\:3088\:3046. \ josephus[lis_]\ \>", "Subsubsection", CellChangeTimes->{{3.522609411045762*^9, 3.5226094125898504`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"josephus", "[", "lis_", "]"}], ":=", RowBox[{"Nest", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"Rest", "[", RowBox[{"RotateLeft", "[", "#", "]"}], "]"}], ")"}], "&"}], ",", "lis", ",", RowBox[{ RowBox[{"Length", "[", "lis", "]"}], "-", "1"}]}], "]"}]}]], "Input"] }, Open ]], Cell["19\:4eba\:3067\:306f,", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"josephus", "[", RowBox[{"Range", "[", "19", "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", "7", "}"}]], "Output", CellChangeTimes->{3.516099702214079*^9, 3.519853601809373*^9, 3.5226136805885963`*^9}] }, Open ]], Cell["\:9014\:4e2d\:306e\:7d4c\:904e\:3092\:51fa\:529b\:3059\:308b\:3053\:3068\ \:3082\:3067\:304d\:308b\:ff0e", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TracePrint", "[", RowBox[{ RowBox[{"josephus", "[", RowBox[{"Range", "[", "5", "]"}], "]"}], ",", "RotateLeft"}], "]"}]], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{" ", "\[InvisibleSpace]", TagBox["RotateLeft", HoldForm]}], SequenceForm[ Indent[4], HoldForm[RotateLeft]], Editable->False]], "Print", CellChangeTimes->{3.5160997022400804`*^9, 3.5198536018403745`*^9, 3.5226136847728353`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{" ", "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", "1"}], "}"}], HoldForm]}], SequenceForm[ Indent[3], HoldForm[{2, 3, 4, 5, 1}]], Editable->False]], "Print", CellChangeTimes->{3.5160997022400804`*^9, 3.5198536018403745`*^9, 3.522613684777836*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{" ", "\[InvisibleSpace]", TagBox["RotateLeft", HoldForm]}], SequenceForm[ Indent[4], HoldForm[RotateLeft]], Editable->False]], "Print", CellChangeTimes->{3.5160997022400804`*^9, 3.5198536018403745`*^9, 3.5226136847818356`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{" ", "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"4", ",", "5", ",", "1", ",", "3"}], "}"}], HoldForm]}], SequenceForm[ Indent[3], HoldForm[{4, 5, 1, 3}]], Editable->False]], "Print", CellChangeTimes->{3.5160997022400804`*^9, 3.5198536018403745`*^9, 3.5226136847868357`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{" ", "\[InvisibleSpace]", TagBox["RotateLeft", HoldForm]}], SequenceForm[ Indent[4], HoldForm[RotateLeft]], Editable->False]], "Print", CellChangeTimes->{3.5160997022400804`*^9, 3.5198536018403745`*^9, 3.522613684789836*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{" ", "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"1", ",", "3", ",", "5"}], "}"}], HoldForm]}], SequenceForm[ Indent[3], HoldForm[{1, 3, 5}]], Editable->False]], "Print", CellChangeTimes->{3.5160997022400804`*^9, 3.5198536018403745`*^9, 3.5226136847918367`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{" ", "\[InvisibleSpace]", TagBox["RotateLeft", HoldForm]}], SequenceForm[ Indent[4], HoldForm[RotateLeft]], Editable->False]], "Print", CellChangeTimes->{3.5160997022400804`*^9, 3.5198536018403745`*^9, 3.522613684794836*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{" ", "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], HoldForm]}], SequenceForm[ Indent[3], HoldForm[{5, 3}]], Editable->False]], "Print", CellChangeTimes->{3.5160997022400804`*^9, 3.5198536018403745`*^9, 3.522613684796837*^9}], Cell[BoxData[ RowBox[{"{", "3", "}"}]], "Output", CellChangeTimes->{3.5160997022530813`*^9, 3.5198536018553753`*^9, 3.5226136847988367`*^9}] }, Open ]], Cell["collatz \:554f\:984c \:ff083 n + 1 \:554f\:984c\:ff09", "Section", CellChangeTimes->{{3.52261423697742*^9, 3.522614274238551*^9}}], Cell["\:3000\:3053\:306e\:554f\:984c\:306f\:53e4\:304f\:304b\:3089\:77e5\:3089\ \:308c\:3066\:3044\:308b\:3082\:306e\:3067\:6b21\:306e\:3088\:3046\:306a\:3082\ \:306e\:3067\:3042\:308b\:ff0e", "Text", CellChangeTimes->{{3.522614310466623*^9, 3.522614315159891*^9}}], Cell["\<\ \:300c\:3042\:308b\:81ea\:7136\:6570\:3092\:8003\:3048\:308b.\:3053\:308c\ \:304c\:5076\:6570\:306e\:3068\:304d\:306f\:534a\:5206\:306b\:3057, \:5947\ \:6570\:306e\:3068\:304d\:306f 3 \:500d\:3057\:3066 1 \:8db3\:3059\:300d\ \:3053\:306e\:3088\:3046\:306b\:3057\:3066\:81ea\:7136\:6570\:5217\:3092\:5b9a\ \:7fa9\:3059\:308b\:ff0e\ \>", "Text", CellChangeTimes->{{3.52261431793705*^9, 3.522614327417592*^9}, { 3.5226144005857773`*^9, 3.522614413849536*^9}}], Cell[TextData[{ "\:3059\:308b\:3068\:ff0c\:3053\:306e\:6570\:5217\:304c\:975e\:5e38\:306b\ \:4e0d\:601d\:8b70\:306a\:632f\:308b\:821e\:3044\:3092\:3059\:308b\:3053\:3068\ \:306b\:6c17\:3065\:304f\:ff0e\:3053\:308c\:3092 ", StyleBox["Mathematica", FontSlant->"Italic"], " \:3067\:78ba\:8a8d\:3057\:3066\:307f\:3088\:3046\:ff0e" }], "Text", CellChangeTimes->{{3.5226143334969397`*^9, 3.5226143469957123`*^9}}], Cell["\<\ next[i_?OddQ]:=next[i]=3i+1 next[i_?EvenQ]:=next[i]=i/2 collatz[i_]:= FixedPointList[next,i,SameTest -> ((#2==1)&)]\ \>", "Input", AspectRatioFixed->True], Cell["9 \:304b\:3089\:59cb\:3081\:3066\:307f\:3088\:3046\:ff0e", "Text", CellChangeTimes->{3.522614361366534*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"List", "[", RowBox[{"collatz", "[", "9", "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ "9", ",", "28", ",", "14", ",", "7", ",", "22", ",", "11", ",", "34", ",", "17", ",", "52", ",", "26", ",", "13", ",", "40", ",", "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.5160997023080845`*^9, 3.519853617353262*^9, 3.522614364072689*^9}] }, Open ]], Cell["\<\ \:3053\:306e\:3088\:3046\:306b\:ff14\:ff0c\:ff12\:ff0c\:ff11\:306e\:30eb\:30fc\ \:30d7\:306b\:5165\:3063\:3066\:3057\:307e\:3046\:ff0e\:ff11\:304b\:3089\:ff13\ \:ff10\:307e\:3067\:306e\:81ea\:7136\:6570\:306e\:632f\:308b\:821e\:3044\:306e\ \:69d8\:5b50\:3092\:307f\:308b\:ff0e\ \>", "Text", CellChangeTimes->{{3.5226144868017087`*^9, 3.5226145006825027`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"List", "[", RowBox[{"collatz", "[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "30"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "3", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "6", ",", "3", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "7", ",", "22", ",", "11", ",", "34", ",", "17", ",", "52", ",", "26", ",", "13", ",", "40", ",", "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "9", ",", "28", ",", "14", ",", "7", ",", "22", ",", "11", ",", "34", ",", "17", ",", "52", ",", "26", ",", "13", ",", "40", ",", "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "11", ",", "34", ",", "17", ",", "52", ",", "26", ",", "13", ",", "40", ",", "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "12", ",", "6", ",", "3", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "13", ",", "40", ",", "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "14", ",", "7", ",", "22", ",", "11", ",", "34", ",", "17", ",", "52", ",", "26", ",", "13", ",", "40", ",", "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "15", ",", "46", ",", "23", ",", "70", ",", "35", ",", "106", ",", "53", ",", "160", ",", "80", ",", "40", ",", "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "17", ",", "52", ",", "26", ",", "13", ",", "40", ",", "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "18", ",", "9", ",", "28", ",", "14", ",", "7", ",", "22", ",", "11", ",", "34", ",", "17", ",", "52", ",", "26", ",", "13", ",", "40", ",", "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "19", ",", "58", ",", "29", ",", "88", ",", "44", ",", "22", ",", "11", ",", "34", ",", "17", ",", "52", ",", "26", ",", "13", ",", "40", ",", "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "21", ",", "64", ",", "32", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "22", ",", "11", ",", "34", ",", "17", ",", "52", ",", "26", ",", "13", ",", "40", ",", "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "23", ",", "70", ",", "35", ",", "106", ",", "53", ",", "160", ",", "80", ",", "40", ",", "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "24", ",", "12", ",", "6", ",", "3", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "25", ",", "76", ",", "38", ",", "19", ",", "58", ",", "29", ",", "88", ",", "44", ",", "22", ",", "11", ",", "34", ",", "17", ",", "52", ",", "26", ",", "13", ",", "40", ",", "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "26", ",", "13", ",", "40", ",", "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "27", ",", "82", ",", "41", ",", "124", ",", "62", ",", "31", ",", "94", ",", "47", ",", "142", ",", "71", ",", "214", ",", "107", ",", "322", ",", "161", ",", "484", ",", "242", ",", "121", ",", "364", ",", "182", ",", "91", ",", "274", ",", "137", ",", "412", ",", "206", ",", "103", ",", "310", ",", "155", ",", "466", ",", "233", ",", "700", ",", "350", ",", "175", ",", "526", ",", "263", ",", "790", ",", "395", ",", "1186", ",", "593", ",", "1780", ",", "890", ",", "445", ",", "1336", ",", "668", ",", "334", ",", "167", ",", "502", ",", "251", ",", "754", ",", "377", ",", "1132", ",", "566", ",", "283", ",", "850", ",", "425", ",", "1276", ",", "638", ",", "319", ",", "958", ",", "479", ",", "1438", ",", "719", ",", "2158", ",", "1079", ",", "3238", ",", "1619", ",", "4858", ",", "2429", ",", "7288", ",", "3644", ",", "1822", ",", "911", ",", "2734", ",", "1367", ",", "4102", ",", "2051", ",", "6154", ",", "3077", ",", "9232", ",", "4616", ",", "2308", ",", "1154", ",", "577", ",", "1732", ",", "866", ",", "433", ",", "1300", ",", "650", ",", "325", ",", "976", ",", "488", ",", "244", ",", "122", ",", "61", ",", "184", ",", "92", ",", "46", ",", "23", ",", "70", ",", "35", ",", "106", ",", "53", ",", "160", ",", "80", ",", "40", ",", "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "28", ",", "14", ",", "7", ",", "22", ",", "11", ",", "34", ",", "17", ",", "52", ",", "26", ",", "13", ",", "40", ",", "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "29", ",", "88", ",", "44", ",", "22", ",", "11", ",", "34", ",", "17", ",", "52", ",", "26", ",", "13", ",", "40", ",", "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{ "30", ",", "15", ",", "46", ",", "23", ",", "70", ",", "35", ",", "106", ",", "53", ",", "160", ",", "80", ",", "40", ",", "20", ",", "10", ",", "5", ",", "16", ",", "8", ",", "4", ",", "2", ",", "1"}], "}"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5160997023340855`*^9, 3.519853617396264*^9, 3.5226143666638374`*^9}] }, Open ]], Cell["\:3059\:3079\:3066 4, 2, 1 \:306e\:30eb\:30fc\:30d7\:306b\:5165\:308b\ \:ff0e", "Text", CellChangeTimes->{{3.5226145159593763`*^9, 3.522614533191362*^9}}], Cell["\<\ \:554f\:984c13 1 \:304b\:3089 100 \:307e\:3067\:306e\:81ea\:7136\:6570\ \:306e\:3046\:3061, 1 \:306b\:53ce\:675f\:3059\:308b\:5c65\:6b74\:304c\:4e00\ \:756a\:9577\:3044\:6570\:3092\:898b\:3064\:3051\:306a\:3055\:3044.\ \>", "Subsubsection", CellChangeTimes->{{3.5226094187822046`*^9, 3.522609422920441*^9}, { 3.5226145414488344`*^9, 3.522614543695963*^9}}], Cell["871\:3082\:30eb\:30fc\:30d7\:306b\:5165\:308b\:304c\:ff0c\:305d\:306e\ \:69d8\:5b50\:3092\:30b0\:30e9\:30d5\:3067\:307f\:308b\:ff0e", "Text"], Cell[CellGroupData[{ Cell["\<\ ListPlot[collatz[871],PlotJoined -> True, PlotRange -> {0,200000}]\ \>", "Input", AspectRatioFixed->True], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxV1ntoTnEcx/HDHyx/PX9Iij+OJUnSMDbGduZ+GR5zHWPHmOW6uQ/Dz+ay 3DbX3NLZGlFLDyuZqINISs01ufWQovxhSikpl/N7f9RW69tr3+ez385+3/M7 p1dxWX5JR8dxmv9+/6v2qy0nKpn7PX5g68pGnIKP4ZitjZdxV3wOd7f11zXc E1/ALj6BU23NvoJ743rcx9Z3LbgvvoT72Vp6F/fHzXiArT0e4TR8Cw+Mqnn2 HA/C9/Bg66IkTseteAgO8VDr2pc4Az/AmVENV3zAw/ATPNy6/gvOwq/xiKj6 Ld/xSPwRZ0fV7fYb5+Cv2ItqEO+cG9HIP+jn4k/WxtpUdrCfd0bhb/Tl9+RH 48f05dv0x9ia9Yq+/JD+WHyDvrVpekp/HGa/jbVT/Zb+eMx+G1n7PcHmU1/Q l+/Tn2jrafbbyNrvSZj9NnKC/mQc0Mefr9PPwxfpyyfpT8E19HGigf5UfIS+ XEV/Gl5LH8cO0I/jSls9+Tifl3fbGsobyE+3NaglL+8gL5eRx+Fe8vl4E3m5 lLw8h4qTa8jPwIvIy1vIy8vJ47Rd5Gfi9eRx/BB5eTt5HOq8moX3kJc3kpeX UuXZ5Kku1+PJXI/B4eb2uXAZef1fCshjfx15eTGfw+428nPxKvI4yX4bmf0O 5RLyrFtuyMvl5HGipv3fmaggP8/WGubXk6vI49Yz5GU9n+bjreRxkueTkdnv UGa/nUK8hDz2Nb+y5hfXaX4XYM0vThwmL+8kL2t+F5LfR17W/OK2o+TlavJF mP325IPkZfY7xBWaXx8zvy5+w3nlyXW2+jiP562RT9ka4J9XWU9usDWp9W6y PnNe0cT68lnWlzmvfFx4nvVlzqsAd+L8DWWuR+dEF52/xZjz18Upd1hf5np8 mesxMvMbyFWsj2PMb1LW/HJfxphfF8eZX09mfnUfx5lfgw3nVSDrvJJXs77M HDnMvZ4bLnY4fz1Z54jMc9TIGayv36dzXs5lfZn72OEc0XPT1bmi+1Hm3PVl 3hOMnM76Mu+Nocx76f9zi/c+h3NZ76GuzHutJ/Me7MttOX8AM+OSUw== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 179.}, {0, 200000}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{3.5160997024690933`*^9, 3.516099758240283*^9, 3.519853617548273*^9, 3.5226143718391333`*^9}] }, Open ]], Cell["\<\ \:5b9f\:306f\:3053\:306e\:898f\:5247\:3067\:306f,\:3059\:3079\:3066\:81ea\ \:7136\:6570\:304c\:3053\:306e\:30eb-\:30d7\:306b\:5165\:308a\:305d\:3046\ \:306a\:3053\:3068\:304c\:30b3\:30f3\:30d4\:30e5-\:30bf\:3067\:78ba\:8a8d\ \:3055\:308c\:3066\:3044\:308b\:304c,\:53b3\:5bc6\:306b\:306f\:8a3c\:660e\ \:3055\:308c\:3066\:3044\:306a\:3044\:672a\:89e3\:6c7a\:554f\:984c\:3067\:3042\ \:308b\:ff0e\ \>", "Text"], Cell["\<\ \:3068\:308a\:3042\:3048\:305a\:ff0c100 \:304b\:3089 1000 \:306e\:6570\:304c\ \:30eb\:30fc\:30d7\:306b\:5165\:308b\:307e\:3067\:ff0c\:3069\:306e\:304f\:3089\ \:3044\:306e\:9577\:3055\:304b\:898b\:3066\:307f\:3088\:3046\:ff0e\ \>", "Text", CellChangeTimes->{{3.5226145610009527`*^9, 3.5226145992841425`*^9}}], Cell[CellGroupData[{ Cell["\<\ t=Table[Length[collatz[i]],{i,100,1000}] \ \>", "Input", AspectRatioFixed->True], Cell[BoxData[ RowBox[{"{", RowBox[{ "26", ",", "26", ",", "26", ",", "88", ",", "13", ",", "39", ",", "13", ",", "101", ",", "114", ",", "114", ",", "114", ",", "70", ",", "21", ",", "13", ",", "34", ",", "34", ",", "21", ",", "21", ",", "34", ",", "34", ",", "21", ",", "96", ",", "21", ",", "47", ",", "109", ",", "109", ",", "109", ",", "47", ",", "8", ",", "122", ",", "29", ",", "29", ",", "29", ",", "29", ",", "29", ",", "42", ",", "16", ",", "91", ",", "16", ",", "42", ",", "16", ",", "16", ",", "104", ",", "104", ",", "24", ",", "117", ",", "117", ",", "117", ",", "24", ",", "24", ",", "16", ",", "16", ",", "24", ",", "37", ",", "24", ",", "86", ",", "37", ",", "37", ",", "37", ",", "55", ",", "11", ",", "99", ",", "24", ",", "24", ",", "112", ",", "112", ",", "112", ",", "68", ",", "11", ",", "50", ",", "11", ",", "125", ",", "32", ",", "32", ",", "32", ",", "81", ",", "19", ",", "32", ",", "32", ",", "32", ",", "19", ",", "19", ",", "94", ",", "94", ",", "19", ",", "45", ",", "19", ",", "45", ",", "107", ",", "107", ",", "107", ",", "45", ",", "14", ",", "120", ",", "120", ",", "120", ",", "27", ",", "27", ",", "27", ",", "120", ",", "27", ",", "19", ",", "27", ",", "40", ",", "27", ",", "27", ",", "89", ",", "89", ",", "14", ",", "40", ",", "40", ",", "40", ",", "14", ",", "14", ",", "102", ",", "102", ",", "115", ",", "27", ",", "115", ",", "53", ",", "115", ",", "115", ",", "71", ",", "71", ",", "22", ",", "53", ",", "14", ",", "14", ",", "35", ",", "35", ",", "35", ",", "128", ",", "22", ",", "84", ",", "22", ",", "128", ",", "35", ",", "35", ",", "35", ",", "53", ",", "22", ",", "22", ",", "97", ",", "97", ",", "22", ",", "22", ",", "48", ",", "48", ",", "110", ",", "48", ",", "110", ",", "66", ",", "110", ",", "110", ",", "48", ",", "48", ",", "9", ",", "123", ",", "123", ",", "123", ",", "30", ",", "30", ",", "30", ",", "79", ",", "30", ",", "123", ",", "30", ",", "22", ",", "30", ",", "30", ",", "43", ",", "43", ",", "17", ",", "30", ",", "92", ",", "92", ",", "17", ",", "17", ",", "43", ",", "43", ",", "17", ",", "43", ",", "17", ",", "61", ",", "105", ",", "105", ",", "105", ",", "43", ",", "25", ",", "30", ",", "118", ",", "118", ",", "118", ",", "118", ",", "118", ",", "56", ",", "25", ",", "74", ",", "25", ",", "118", ",", "17", ",", "17", ",", "17", ",", "43", ",", "25", ",", "38", ",", "38", ",", "38", ",", "25", ",", "25", ",", "87", ",", "87", ",", "38", ",", "131", ",", "38", ",", "38", ",", "38", ",", "38", ",", "56", ",", "56", ",", "12", ",", "25", ",", "100", ",", "100", ",", "25", ",", "25", ",", "25", ",", "144", ",", "113", ",", "51", ",", "113", ",", "25", ",", "113", ",", "113", ",", "69", ",", "69", ",", "12", ",", "113", ",", "51", ",", "51", ",", "12", ",", "12", ",", "126", ",", "126", ",", "33", ",", "126", ",", "33", ",", "126", ",", "33", ",", "33", ",", "82", ",", "82", ",", "20", ",", "126", ",", "33", ",", "33", ",", "33", ",", "33", ",", "33", ",", "51", ",", "20", ",", "46", ",", "20", ",", "46", ",", "95", ",", "95", ",", "95", ",", "46", ",", "20", ",", "20", ",", "46", ",", "46", ",", "20", ",", "20", ",", "46", ",", "46", ",", "108", ",", "64", ",", "108", ",", "59", ",", "108", ",", "108", ",", "46", ",", "46", ",", "15", ",", "33", ",", "121", ",", "121", ",", "121", ",", "121", ",", "121", ",", "121", ",", "28", ",", "59", ",", "28", ",", "77", ",", "28", ",", "28", ",", "121", ",", "121", ",", "28", ",", "20", ",", "20", ",", "20", ",", "28", ",", "28", ",", "41", ",", "41", ",", "28", ",", "41", ",", "28", ",", "134", ",", "90", ",", "90", ",", "90", ",", "134", ",", "15", ",", "134", ",", "41", ",", "41", ",", "41", ",", "41", ",", "41", ",", "33", ",", "15", ",", "59", ",", "15", ",", "54", ",", "103", ",", "103", ",", "103", ",", "41", ",", "116", ",", "28", ",", "28", ",", "28", ",", "116", ",", "116", ",", "54", ",", "54", ",", "116", ",", "28", ",", "116", ",", "54", ",", "72", ",", "72", ",", "72", ",", "98", ",", "23", ",", "116", ",", "54", ",", "54", ",", "15", ",", "15", ",", "15", ",", "41", ",", "36", ",", "129", ",", "36", ",", "129", ",", "36", ",", "36", ",", "129", ",", "129", ",", "23", ",", "36", ",", "85", ",", "85", ",", "23", ",", "23", ",", "129", ",", "129", ",", "36", ",", "36", ",", "36", ",", "28", ",", "36", ",", "36", ",", "54", ",", "54", ",", "23", ",", "49", ",", "23", ",", "23", ",", "98", ",", "98", ",", "98", ",", "142", ",", "23", ",", "49", ",", "23", ",", "142", ",", "49", ",", "49", ",", "49", ",", "98", ",", "111", ",", "23", ",", "49", ",", "49", ",", "111", ",", "111", ",", "67", ",", "67", ",", "111", ",", "62", ",", "111", ",", "36", ",", "49", ",", "49", ",", "49", ",", "62", ",", "10", ",", "36", ",", "124", ",", "124", ",", "124", ",", "124", ",", "124", ",", "62", ",", "31", ",", "124", ",", "31", ",", "124", ",", "31", ",", "31", ",", "80", ",", "80", ",", "31", ",", "31", ",", "124", ",", "124", ",", "31", ",", "31", ",", "23", ",", "23", ",", "31", ",", "23", ",", "31", ",", "49", ",", "44", ",", "44", ",", "44", ",", "137", ",", "18", ",", "44", ",", "31", ",", "31", ",", "93", ",", "93", ",", "93", ",", "44", ",", "18", ",", "137", ",", "18", ",", "31", ",", "44", ",", "44", ",", "44", ",", "88", ",", "18", ",", "44", ",", "44", ",", "44", ",", "18", ",", "18", ",", "62", ",", "62", ",", "106", ",", "57", ",", "106", ",", "31", ",", "106", ",", "106", ",", "44", ",", "44", ",", "26", ",", "31", ",", "31", ",", "31", ",", "119", ",", "119", ",", "119", ",", "31", ",", "119", ",", "57", ",", "119", ",", "119", ",", "119", ",", "119", ",", "57", ",", "57", ",", "26", ",", "75", ",", "75", ",", "75", ",", "26", ",", "26", ",", "119", ",", "119", ",", "18", ",", "57", ",", "18", ",", "70", ",", "18", ",", "18", ",", "44", ",", "44", ",", "26", ",", "132", ",", "39", ",", "39", ",", "39", ",", "39", ",", "39", ",", "70", ",", "26", ",", "132", ",", "26", ",", "132", ",", "88", ",", "88", ",", "88", ",", "132", ",", "39", ",", "26", ",", "132", ",", "132", ",", "39", ",", "39", ",", "39", ",", "39", ",", "39", ",", "31", ",", "39", ",", "31", ",", "57", ",", "57", ",", "57", ",", "132", ",", "13", ",", "52", ",", "26", ",", "26", ",", "101", ",", "101", ",", "101", ",", "39", ",", "26", ",", "145", ",", "26", ",", "101", ",", "26", ",", "26", ",", "145", ",", "145", ",", "114", ",", "52", ",", "52", ",", "52", ",", "114", ",", "114", ",", "26", ",", "26", ",", "114", ",", "52", ",", "114", ",", "145", ",", "70", ",", "70", ",", "70", ",", "96", ",", "13", ",", "65", ",", "114", ",", "114", ",", "52", ",", "52", ",", "52", ",", "65", ",", "13", ",", "65", ",", "13", ",", "39", ",", "127", ",", "127", ",", "127", ",", "39", ",", "34", ",", "127", ",", "127", ",", "127", ",", "34", ",", "34", ",", "127", ",", "127", ",", "34", ",", "127", ",", "34", ",", "65", ",", "83", ",", "83", ",", "83", ",", "171", ",", "21", ",", "34", ",", "127", ",", "127", ",", "34", ",", "34", ",", "34", ",", "65", ",", "34", ",", "26", ",", "34", ",", "26", ",", "34", ",", "34", ",", "52", ",", "52", ",", "21", ",", "47", ",", "47", ",", "47", ",", "21", ",", "21", ",", "47", ",", "47", ",", "96", ",", "34", ",", "96", ",", "140", ",", "96", ",", "96", ",", "47", ",", "47", ",", "21", ",", "140", ",", "21", ",", "21", ",", "47", ",", "47", ",", "47", ",", "96", ",", "21", ",", "91", ",", "21", ",", "47", ",", "47", ",", "47", ",", "47", ",", "140", ",", "109", ",", "21", ",", "65", ",", "65", ",", "109", ",", "109", ",", "60", ",", "60", ",", "109", ",", "34", ",", "109", ",", "153", ",", "47", ",", "47", ",", "47", ",", "60", ",", "16", ",", "34", ",", "34", ",", "34", ",", "122", ",", "122", ",", "122", ",", "153", ",", "122", ",", "34", ",", "122", ",", "60", ",", "122", ",", "122", ",", "122", ",", "122", ",", "29", ",", "122", ",", "60", ",", "60", ",", "29", ",", "29", ",", "78", ",", "78", ",", "29", ",", "78", ",", "29", ",", "104", ",", "122", ",", "122", ",", "122", ",", "73", ",", "29", ",", "60", ",", "21", ",", "21", ",", "21", ",", "21", ",", "21", ",", "73", ",", "29", ",", "47", ",", "29", ",", "135", ",", "42", ",", "42", ",", "42", ",", "135", ",", "29", ",", "42", ",", "42", ",", "42", ",", "29", ",", "29", ",", "135", ",", "135", ",", "91", ",", "135", ",", "91", ",", "42", ",", "91", ",", "91", ",", "135", ",", "135", ",", "16", ",", "29", ",", "135", ",", "135", ",", "42", ",", "42", ",", "42", ",", "86", ",", "42", ",", "42", ",", "42", ",", "42", ",", "42", ",", "42", ",", "34", ",", "34", ",", "16", ",", "60", ",", "60", ",", "60", ",", "16", ",", "16", ",", "55", ",", "55", ",", "104", ",", "29", ",", "104", ",", "148", ",", "104", ",", "104", ",", "42", ",", "42", ",", "117", ",", "148", ",", "29", ",", "29", ",", "29", ",", "29", ",", "29", ",", "179", ",", "117", ",", "148", ",", "117", ",", "29", ",", "55", ",", "55", ",", "55", ",", "148", ",", "117", ",", "117", ",", "29", ",", "29", ",", "117", ",", "117", ",", "55", ",", "55", ",", "73", ",", "148", ",", "73", ",", "47", ",", "73", ",", "73", ",", "99", ",", "99", ",", "24", ",", "68", ",", "117", ",", "117", ",", "55", ",", "55", ",", "55", ",", "117", ",", "16", ",", "68", ",", "16", ",", "55", ",", "16", ",", "16", ",", "42", ",", "42", ",", "37", ",", "130", ",", "130", ",", "130", ",", "37", ",", "37", ",", "130", ",", "130", ",", "37", ",", "130", ",", "37", ",", "68", ",", "130", ",", "130", ",", "130", ",", "117", ",", "24", ",", "130", ",", "37", ",", "37", ",", "86", ",", "86", ",", "86", ",", "130", ",", "24", ",", "174", ",", "24", ",", "86", ",", "130", ",", "130", ",", "130", ",", "37", ",", "37", ",", "37", ",", "37", ",", "37", ",", "37", ",", "37", ",", "29", ",", "29", ",", "37", ",", "29", ",", "37", ",", "29", ",", "55", ",", "55", ",", "55", ",", "130", ",", "24", ",", "50", ",", "50", ",", "50", ",", "24", ",", "24", ",", "24", ",", "143", ",", "99", ",", "50", ",", "99", ",", "37", ",", "99", ",", "99", ",", "143", ",", "143", ",", "24", ",", "99", ",", "50", ",", "50", ",", "24", ",", "24", ",", "143", ",", "143", ",", "50", ",", "24", ",", "50", ",", "37", ",", "50", ",", "50", ",", "99", ",", "99", ",", "112", ",", "94", ",", "24", ",", "24", ",", "50", ",", "50", ",", "50", ",", "50", ",", "112"}], "}"}]], "Output", CellChangeTimes->{3.5160997025660987`*^9, 3.519853617684281*^9, 3.5226143761553802`*^9}] }, Open ]], Cell["\:3053\:306e\:4e2d\:3067\:ff0c\:6700\:5927\:306e\:9577\:3055\:306f\:ff0c\ ", "Text"], Cell[CellGroupData[{ Cell["Max[t]", "Input", AspectRatioFixed->True], Cell[BoxData["179"], "Output", CellChangeTimes->{3.5160997025951004`*^9, 3.5198536177332835`*^9, 3.522614378675524*^9, 3.522614611542844*^9}] }, Open ]], Cell["\:3067\:3042\:308b\:ff0e\:305d\:3057\:3066\:3053\:308c\:3092\:4e0e\:3048\ \:308b\:81ea\:7136\:6570\:306f,", "Text"], Cell[CellGroupData[{ Cell["Position[t,179]", "Input", AspectRatioFixed->True], Cell[BoxData[ RowBox[{"{", RowBox[{"{", "772", "}"}], "}"}]], "Output", CellChangeTimes->{3.516099702619102*^9, 3.519853617764285*^9, 3.522614380580633*^9, 3.522614614853033*^9}] }, Open ]], Cell["\:3067\:3042\:308b\:ff0e\:3068\:3082\:304b\:304f\:4e0d\:601d\:8b70\:306a\ \:6570\:5217\:3060\:ff0e", "Text"], Cell[CellGroupData[{ Cell["\:30bf\:30fc\:30c8\:30eb\:30b0\:30e9\:30d5\:30a3\:30c3\:30af\:30b9 \ (LOGO)", "Section", CellChangeTimes->{{3.522614660382637*^9, 3.522614669927183*^9}}], Cell[CellGroupData[{ Cell["\:30bf\:30fc\:30c8\:30eb\:30b3\:30de\:30f3\:30c9", "Subsection"], Cell["\<\ \:30bf\:30fc\:30c8\:30eb\:30b0\:30e9\:30d5\:30a3\:30c3\:30af\:30b9\:3068\:306f\ ,\:30d7\:30ed\:30b0\:30e9\:30df\:30f3\:30b0\:8a00\:8a9e LOGO \:306a\:3069\ \:3067\:6709\:540d\:306a\:30b0\:30e9\:30d5\:30a3\:30c3\:30af\:30b9\:30e1\:30bd\ \:30c3\:30c9\:3067\:3042\:308b\:ff0e\:3053\:308c\:306f\:30bf-\:30c8\:30eb(\ \:4e80)\:306b\:9577\:3055\:3068\:89d2\:5ea6\:3092\:6307\:5b9a\:3057\:3066\ \:7dda\:5206\:3092\:63cf\:3044\:3066\:30b0\:30e9\:30d5\:30a3\:30c3\:30af\:30b9\ \:3092\:63cf\:3044\:3066\:3044\:304f\:306e\:3067,\:3053\:306e\:3088\:3046\ \:306a\:540d\:524d\:304c\:3064\:3044\:305f\:ff0eMathematica\:3067\:306f\:524d\ \:5f8c\:5de6\:53f3\:3092\:6b21\:306e\:3088\:3046\:306b\:5b9a\:7fa9\:3057\:3066\ \:ff0cpath\:306e\:30ea\:30b9\:30c8\:3092\:4f5c\:6210\:3059\:308b\:ff0e\ \>", "Text", CellChangeTimes->{{3.522614651660138*^9, 3.5226146549003234`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"initial", "[", RowBox[{"start_:", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"X", "=", "start"}], ";", RowBox[{"U", "=", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ";", RowBox[{"path", "=", RowBox[{"{", "X", "}"}]}]}], ")"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"right", "[", "a_", "]"}], ":=", RowBox[{"U", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"aa", "=", RowBox[{ RowBox[{"a", " ", "Degree"}], "//", "N"}]}], "]"}], ",", RowBox[{"Sin", "[", "aa", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "aa", "]"}]}], ",", RowBox[{"Cos", "[", "aa", "]"}]}], "}"}]}], "}"}], ".", "U"}]}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"left", "[", "a_", "]"}], ":=", RowBox[{"U", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"aa", "=", RowBox[{ RowBox[{"a", " ", "Degree"}], "//", "N"}]}], "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", "aa", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", "aa", "]"}], ",", RowBox[{"Cos", "[", "aa", "]"}]}], "}"}]}], "}"}], ".", "U"}]}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"forward", "[", "s_", "]"}], ":=", RowBox[{"AppendTo", "[", RowBox[{"path", ",", RowBox[{"X", "+=", RowBox[{"s", " ", "U"}]}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"back", "[", "s_", "]"}], ":=", RowBox[{"AppendTo", "[", RowBox[{"path", ",", RowBox[{"X", "-=", RowBox[{"s", " ", "U"}]}]}], "]"}]}]], "Input"], Cell["\<\ \:305d\:3057\:3066, path \:306e\:30ea\:30b9\:30c8\:3092\:4f5c\:6210\:5f8c, \ Line \:6587\:3067\:7dda\:5206\:3092\:63cf\:304f\:ff0e\ \>", "Text"], Cell[BoxData[ RowBox[{"showturtlepath", ":=", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01", "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"Line", "[", "path", "]"}]}], "}"}], "]"}], ",", RowBox[{"PlotRange", "->", "All"}], ",", RowBox[{"AspectRatio", "->", "Automatic"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5226154709950013`*^9, 3.5226155073310795`*^9}, { 3.522615547212361*^9, 3.522615567363513*^9}, {3.522615597812255*^9, 3.522615631963208*^9}}] }, Open ]], Cell["\:7df4\:7fd214 \ \:4e09\:89d2\:5f62\:3084\:56db\:89d2\:5f62\:3092\:63cf\:3044\:3066\:307f\:3088\ \:3046.", "Subsubsection", CellChangeTimes->{{3.5226094286607695`*^9, 3.52260942954782*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"initial", "[", "]"}], ";", RowBox[{"right", "[", "60", "]"}], ";", RowBox[{"forward", "[", "1", "]"}], ";", RowBox[{"left", "[", "120", "]"}], ";", RowBox[{"forward", "[", "1", "]"}], ";", RowBox[{"left", "[", "120", "]"}], ";", RowBox[{"forward", "[", "1", "]"}], ";", "showturtlepath"}]], "Input", CellChangeTimes->{3.5226148078420715`*^9}], Cell[BoxData[ GraphicsBox[ {RGBColor[0, 0, 0], Thickness[0.01], LineBox[{{0, 0}, {0.5000000000000001, -0.8660254037844386}, {1., 0.}, { 1.1102230246251565`*^-16, 2.220446049250313*^-16}}]}, AspectRatio->Automatic, ImageSize->{200., Automatic}, PlotRange->All]], "Output", CellChangeTimes->{ 3.5226148085561123`*^9, 3.5226155744679193`*^9, {3.5226156069697785`*^9, 3.5226156343433447`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\:591a\:89d2\:5f62", "Subsection"], Cell["\:6b63 n \:89d2\:5f62\:3092\:63cf\:304f\:305f\:3081\:306b\:ff0c\:6b21\ \:306e\:3088\:3046\:306b\:95a2\:6570\:3092\:5b9a\:7fa9\:3059\:308b\:ff0e", \ "Text", CellChangeTimes->{{3.522614753151943*^9, 3.5226147550880537`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"polygon", "[", "n_", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"initial", "[", "]"}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"left", "[", RowBox[{"360", "/", "n"}], "]"}], ";", RowBox[{"forward", "[", "1", "]"}]}], ",", RowBox[{"{", "n", "}"}]}], "]"}], ";", "showturtlepath"}], ")"}]}]], "Input"], Cell["\:6b63\:ff16\:89d2\:5f62\:3092\:63cf\:304f\:ff0e", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"polygon", "[", "6", "]"}]], "Input", CellChangeTimes->{{3.516099775645279*^9, 3.516099781643622*^9}, { 3.519845495536829*^9, 3.5198455019841976`*^9}, {3.5198536350082717`*^9, 3.5198536358713207`*^9}, {3.522614769513879*^9, 3.522614770737949*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0, 0, 0], Thickness[0.01], LineBox[{{0, 0}, {0.5000000000000001, 0.8660254037844386}, { 3.3306690738754696`*^-16, 1.7320508075688774`}, {-0.9999999999999997, 1.7320508075688779`}, {-1.5, 0.8660254037844395}, {-1.0000000000000007`, 4.440892098500626*^-16}, {-6.661338147750939*^-16, \ -4.440892098500626*^-16}}]}, AspectRatio->Automatic, ImageSize->{238., Automatic}, PlotRange->All]], "Output", CellChangeTimes->{ 3.5160997028381147`*^9, {3.5160997730901327`*^9, 3.5160997824126663`*^9}, { 3.519845484307187*^9, 3.5198455026072335`*^9}, {3.519853623276601*^9, 3.519853636838376*^9}, {3.522614765150629*^9, 3.522614771664002*^9}, 3.5226156413027425`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:6e26\:5dfb\:304d\:7dda\:ff08\:87ba\:65cb\:ff09", "Subsection"], Cell["\<\ \:6e26\:5dfb\:304d\:7dda\:3092\:63cf\:304f\:305f\:3081\:306b\:ff0c\:6b21\:306e\ \:3088\:3046\:306b\:62e1\:5927\:6bd4\:3068\:89d2\:5ea6\:3092\:6b21\:306e\:3088\ \:3046\:306b\:5b9a\:7fa9\:3059\:308b\:ff0e\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"spiral", "[", RowBox[{"angle_", ",", "ratio_"}], "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"initial", "[", "]"}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"left", "[", "angle", "]"}], ";", RowBox[{"forward", "[", "i", "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "ratio"}], "}"}]}], "]"}], ";", "showturtlepath"}], ")"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"spiral", "[", RowBox[{"60", ",", "30"}], "]"}]], "Input", CellChangeTimes->{{3.51609978877203*^9, 3.516099808675168*^9}, { 3.5226148539057055`*^9, 3.5226148713287024`*^9}, {3.522614930298075*^9, 3.522614936081406*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0, 0, 0], Thickness[0.01], LineBox[{{0, 0}, {0.5000000000000001, 0.8660254037844386}, {-0.49999999999999944`, 2.598076211353316}, {-3.4999999999999996`, 2.5980762113533173`}, {-5.500000000000002, -0.8660254037844362}, \ {-3.000000000000005, -5.196152422706632}, { 2.999999999999995, -5.196152422706637}, {6.500000000000002, 0.8660254037844295}, {2.5000000000000093`, 7.794228634059944}, {-6.499999999999991, 7.794228634059955}, {-11.500000000000004`, -0.8660254037844233}, \ {-6.000000000000018, -10.392304845413257`}, { 5.999999999999982, -10.392304845413278`}, {12.500000000000004`, 0.8660254037844126}, {5.5000000000000275`, 12.990381056766568`}, {-9.499999999999972, 12.9903810567666}, {-17.5, -0.8660254037844002}, {-9.000000000000034, \ -15.588457268119875`}, {8.999999999999966, -15.588457268119917`}, { 18.500000000000007`, 0.8660254037843913}, {8.500000000000053, 18.18653347947319}, {-12.499999999999947`, 18.18653347947325}, {-23.500000000000004`, -0.8660254037843664}, \ {-12.000000000000064`, -20.78460969082649}, { 11.999999999999936`, -20.784609690826567`}, {24.500000000000007`, 0.8660254037843558}, {11.500000000000087`, 23.382685902179805`}, {-15.499999999999913`, 23.382685902179905`}, {-29.500000000000007`, -0.8660254037843238}, \ {-15.000000000000108`, -25.9807621135331}, { 14.999999999999892`, -25.980762113533224`}}]}, AspectRatio->Automatic, ImageSize->{266., Automatic}, PlotRange->All]], "Output", CellChangeTimes->{ 3.5160997028601155`*^9, {3.516099785858863*^9, 3.5160998090661907`*^9}, 3.5198454843241873`*^9, 3.519853643422753*^9, {3.522614851084544*^9, 3.522614872309758*^9}, {3.522614932252187*^9, 3.5226149366804404`*^9}, 3.522615645494982*^9}] }, Open ]] }, Open ]] }, Open ]], Cell["\:7df4\:7fd215 \ \:6e26\:5dfb\:306b\:89d2\:5ea6\:3001\:9577\:3055\:3001\:8272\:3001\:592a\:3055\ \:3092\:5909\:5316\:3055\:305b\:3088\:3046", "Subsubsection", CellChangeTimes->{{3.5226094286607695`*^9, 3.52260942954782*^9}, { 3.5226150077035027`*^9, 3.522615041667445*^9}, {3.5226153479359627`*^9, 3.522615370844273*^9}, {3.522615653519441*^9, 3.522615666879205*^9}, { 3.5226157490779066`*^9, 3.52261575980552*^9}}], Cell[CellGroupData[{ Cell["\:30d5\:30e9\:30af\:30bf\:30eb\:56f3\:5f62", "Section"], Cell["\<\ \:30bf-\:30c8\:30eb\:30b0\:30e9\:30d5\:30a3\:30c3\:30af\:30b9\:3092\:518d\ \:5e30\:7684\:306b\:4f7f\:3046\:3053\:3068\:3067,\:30d5\:30e9\:30af\:30bf\ \:30eb\:56f3\:5f62\:3092\:63cf\:304f\:3053\:3068\:304c\:3067\:304d\:308b\:ff0e\ \:3053\:3053\:3067\:306f,\:30b3\:30c3\:30db\:306e\:66f2\:7dda(\:96ea\:7247\ \:66f2\:7dda)\:3092\:63cf\:3044\:3066\:307f\:3088\:3046\:ff0e\:307e\:305a\ \:306f\:95a2\:6570 Koch \ \:3092\:518d\:5e30\:7684\:306b\:5b9a\:7fa9\:3059\:308b\:ff0e\ \>", "Text", CellChangeTimes->{{3.52261577745853*^9, 3.522615780482703*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"koch", "[", RowBox[{"length_", ",", "0"}], "]"}], ":=", RowBox[{"forward", "[", "length", "]"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"koch", "[", RowBox[{"length_", ",", "depth_"}], "]"}], ":=", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"koch", "[", RowBox[{ RowBox[{"length", "/", "3"}], ",", RowBox[{"depth", "-", "1"}]}], "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"left", "[", "60", "]"}], ";", "\[IndentingNewLine]", RowBox[{"koch", "[", RowBox[{ RowBox[{"length", "/", "3"}], ",", RowBox[{"depth", "-", "1"}]}], "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"right", "[", "120", "]"}], ";", "\[IndentingNewLine]", RowBox[{"koch", "[", RowBox[{ RowBox[{"length", "/", "3"}], ",", RowBox[{"depth", "-", "1"}]}], "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"left", "[", "60", "]"}], ";", "\[IndentingNewLine]", RowBox[{"koch", "[", RowBox[{ RowBox[{"length", "/", "3"}], ",", RowBox[{"depth", "-", "1"}]}], "]"}]}], ")"}]}], ";"}]], "Input"], Cell["\<\ \:3053\:3053\:3067\:9577\:3055 1 \:306e\:7dda\:5206\:306b\:5bfe\:3057,\:305d\ \:306e 3 \:7b49\:5206\:3057\:305f\:4e2d\:592e\:90e8\:3092\:6b63\:4e09\:89d2\ \:5f62\:306e\:ff12\:3064\:306e\:659c\:8fba\:3067\:7f6e\:304d\:63db\:3048\:308b\ \:ff0e\:3053\:306e\:64cd\:4f5c\:3092\:9806\:6b21\:7e70\:308a\:8fd4\:3059\:3068\ \:96ea\:7247\:306e\:3088\:3046\:306a\:66f2\:7dda\:304c\:63cf\:3051\:308b\:ff0e\ \:3053\:306e\:66f2\:7dda\:306e\:7279\:5fb4\:306f\:3069\:306e\:90e8\:5206\:306b\ \:6ce8\:76ee\:3057\:3066\:3082\:5168\:4f53\:3068\:76f8\:4f3c\:5f62\:306b\:306a\ \:3063\:3066\:3044\:308b\:3053\:3068\:3060\:ff0e\:3053\:306e\:3088\:3046\:306a\ \:56f3\:5f62\:3092\:30d5\:30e9\:30af\:30bf\:30eb\:56f3\:5f62\:3068\:3044\:3044\ \:ff0c\:76f4\:7dda\:306e\:6b21\:5143\:304c\:ff11\:6b21\:5143\:306a\:306e\:306b\ \:5bfe\:3057\:ff0c\:3053\:306e\:66f2\:7dda\:306e\:76f8\:4f3c\:6b21\:5143\:306f\ log4\:ff0flog3 = 1.2618 \:6b21\:5143\:3068\:3044\:3046\:ff0e\ \>", "Text", CellChangeTimes->{{3.522615798563737*^9, 3.52261581522069*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"snow", "[", "n_", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"initial", "[", "]"}], ";", RowBox[{"koch", "[", RowBox[{"1.", ",", "n"}], "]"}], ";", RowBox[{"right", "[", "120", "]"}], ";", "showturtlepath"}], ")"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"snow", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5160998218369207`*^9, 3.516099825988158*^9}, { 3.516185378027072*^9, 3.516185378377092*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ {RGBColor[0, 0, 0], Thickness[0.01], LineBox[{{0, 0}, {0.3333333333333333, 0.}, {0.5, 0.28867513459481287`}, { 0.6666666666666666, 0.}, {1., -3.700743415417188*^-17}}]}, AspectRatio->Automatic, PlotRange->All], ",", GraphicsBox[ {RGBColor[0, 0, 0], Thickness[0.01], LineBox[{{0, 0}, {0.1111111111111111, 0.}, {0.16666666666666669`, 0.09622504486493762}, {0.22222222222222224`, 0.}, { 0.33333333333333337`, -1.2335811384723961`*^-17}, { 0.38888888888888895`, 0.09622504486493759}, {0.3333333333333334, 0.19245008972987523`}, {0.44444444444444453`, 0.1924500897298752}, { 0.5000000000000001, 0.2886751345948128}, {0.5555555555555556, 0.1924500897298752}, {0.6666666666666666, 0.19245008972987518`}, { 0.611111111111111, 0.09622504486493759}, { 0.6666666666666665, -1.3877787807814457`*^-17}, { 0.7777777777777776, -5.088522196198634*^-17}, {0.8333333333333331, 0.0962250448649375}, {0.8888888888888886, -8.326672684688674*^-17}, { 0.9999999999999997, -1.264420666934206*^-16}}]}, AspectRatio->Automatic, PlotRange->All], ",", GraphicsBox[ {RGBColor[0, 0, 0], Thickness[0.01], LineBox[{{0, 0}, {0.037037037037037035`, 0.}, {0.05555555555555555, 0.032075014954979206`}, {0.07407407407407407, 0.}, { 0.1111111111111111, -4.11193712824132*^-18}, {0.12962962962962962`, 0.03207501495497919}, {0.11111111111111112`, 0.06415002990995841}, { 0.14814814814814814`, 0.0641500299099584}, {0.16666666666666666`, 0.0962250448649376}, {0.18518518518518517`, 0.0641500299099584}, { 0.2222222222222222, 0.06415002990995838}, {0.2037037037037037, 0.032075014954979185`}, { 0.2222222222222222, -1.3877787807814457`*^-17}, { 0.25925925925925924`, -2.6213599192538418`*^-17}, {0.2777777777777778, 0.03207501495497916}, {0.2962962962962963, -4.163336342344337*^-17}, { 0.3333333333333333, -5.6025143372288*^-17}, {0.35185185185185186`, 0.03207501495497913}, {0.33333333333333337`, 0.06415002990995833}, { 0.3703703703703704, 0.06415002990995831}, {0.38888888888888895`, 0.09622504486493749}, {0.37037037037037046`, 0.1283000598199167}, { 0.3333333333333334, 0.12830005981991674`}, {0.35185185185185197`, 0.16037507477489593`}, {0.3333333333333335, 0.19245008972987515`}, { 0.3703703703703705, 0.19245008972987512`}, {0.38888888888888906`, 0.22452510468485432`}, {0.40740740740740755`, 0.19245008972987512`}, { 0.4444444444444446, 0.1924500897298751}, {0.46296296296296313`, 0.2245251046848543}, {0.44444444444444464`, 0.2566001196398335}, { 0.4814814814814817, 0.2566001196398335}, {0.5000000000000002, 0.28867513459481264`}, {0.5185185185185187, 0.2566001196398334}, { 0.5555555555555557, 0.2566001196398334}, {0.5370370370370372, 0.22452510468485423`}, {0.5555555555555557, 0.19245008972987504`}, { 0.5925925925925927, 0.192450089729875}, {0.6111111111111112, 0.2245251046848542}, {0.6296296296296297, 0.192450089729875}, { 0.6666666666666666, 0.19245008972987498`}, {0.6481481481481481, 0.1603750747748958}, {0.6666666666666666, 0.1283000598199166}, { 0.6296296296296297, 0.1283000598199166}, {0.6111111111111112, 0.09622504486493741}, {0.6296296296296297, 0.06415002990995822}, { 0.6666666666666666, 0.0641500299099582}, {0.6481481481481481, 0.03207501495497901}, { 0.6666666666666666, -1.8735013540549517`*^-16}, { 0.7037037037037036, -2.0174191535433978`*^-16}, {0.7222222222222221, 0.032075014954978984`}, { 0.7407407407407406, -2.1510571102112408`*^-16}, { 0.7777777777777776, -2.294974909699687*^-16}, {0.7962962962962961, 0.032075014954978956`}, {0.7777777777777776, 0.06415002990995816}, { 0.8148148148148145, 0.06415002990995815}, {0.833333333333333, 0.09622504486493733}, {0.8518518518518515, 0.06415002990995813}, { 0.8888888888888885, 0.06415002990995812}, {0.87037037037037, 0.03207501495497893}, {0.8888888888888885, -2.706168622523819*^-16}, { 0.9259259259259255, -2.8500864220122654`*^-16}, {0.944444444444444, 0.0320750149549789}, {0.9629629629629625, -2.983724378680108*^-16}, { 0.9999999999999994, -3.1276421781685546`*^-16}}]}, AspectRatio->Automatic, PlotRange->All], ",", GraphicsBox[ {RGBColor[0, 0, 0], Thickness[0.01], LineBox[{{0, 0}, {0.012345679012345678`, 0.}, {0.018518518518518517`, 0.010691671651659735`}, {0.024691358024691357`, 0.}, { 0.037037037037037035`, -1.3706457094137734`*^-18}, { 0.043209876543209874`, 0.010691671651659731`}, {0.03703703703703704, 0.02138334330331947}, {0.04938271604938272, 0.021383343303319466`}, { 0.05555555555555556, 0.0320750149549792}, {0.0617283950617284, 0.021383343303319466`}, {0.07407407407407407, 0.021383343303319462`}, { 0.06790123456790123, 0.01069167165165973}, { 0.07407407407407407, -3.469446951953614*^-18}, { 0.08641975308641975, -7.581384080194934*^-18}, {0.09259259259259259, 0.01069167165165972}, {0.09876543209876543, -1.214306433183765*^-17}, { 0.1111111111111111, -1.6940324314785857`*^-17}, {0.11728395061728394`, 0.01069167165165971}, {0.11111111111111112`, 0.021383343303319445`}, { 0.1234567901234568, 0.02138334330331944}, {0.12962962962962965`, 0.03207501495497917}, {0.12345679012345682`, 0.042766686606638904`}, { 0.11111111111111115`, 0.04276668660663891}, {0.11728395061728399`, 0.05345835825829864}, {0.11111111111111116`, 0.06415002990995837}, { 0.12345679012345684`, 0.06415002990995837}, {0.12962962962962968`, 0.0748417015616181}, {0.13580246913580252`, 0.06415002990995836}, { 0.1481481481481482, 0.06415002990995836}, {0.15432098765432103`, 0.07484170156161808}, {0.1481481481481482, 0.08553337321327782}, { 0.16049382716049387`, 0.08553337321327782}, {0.1666666666666667, 0.09622504486493755}, {0.17283950617283955`, 0.08553337321327781}, { 0.18518518518518523`, 0.08553337321327781}, {0.1790123456790124, 0.07484170156161808}, {0.18518518518518523`, 0.06415002990995836}, { 0.1975308641975309, 0.06415002990995836}, {0.20370370370370375`, 0.07484170156161808}, {0.2098765432098766, 0.06415002990995836}, { 0.22222222222222227`, 0.06415002990995836}, {0.21604938271604943`, 0.05345835825829863}, {0.22222222222222227`, 0.0427666866066389}, { 0.2098765432098766, 0.0427666866066389}, {0.20370370370370375`, 0.032075014954979164`}, {0.2098765432098766, 0.02138334330331943}, { 0.22222222222222227`, 0.021383343303319428`}, {0.21604938271604943`, 0.010691671651659698`}, { 0.22222222222222227`, -3.469446951953614*^-17}, { 0.23456790123456794`, -3.9491729502484346`*^-17}, { 0.24074074074074078`, 0.010691671651659688`}, { 0.24691358024691362`, -4.5102810375396984`*^-17}, { 0.2592592592592593, -4.990007035834519*^-17}, {0.26543209876543217`, 0.010691671651659677`}, {0.25925925925925936`, 0.02138334330331941}, { 0.27160493827160503`, 0.021383343303319407`}, {0.2777777777777779, 0.032075014954979136`}, {0.2839506172839507, 0.021383343303319403`}, { 0.2962962962962964, 0.0213833433033194}, {0.2901234567901236, 0.01069167165165967}, {0.2962962962962964, -6.245004513516506*^-17}, { 0.30864197530864207`, -6.724730511811326*^-17}, {0.31481481481481494`, 0.01069167165165966}, {0.32098765432098775`, -7.28583859910259*^-17}, { 0.3333333333333334, -7.76556459739741*^-17}, {0.3395061728395063, 0.01069167165165965}, {0.3333333333333335, 0.021383343303319383`}, { 0.34567901234567916`, 0.02138334330331938}, {0.351851851851852, 0.03207501495497911}, {0.3456790123456792, 0.04276668660663884}, { 0.33333333333333354`, 0.04276668660663885}, {0.3395061728395064, 0.053458358258298574`}, {0.3333333333333336, 0.06415002990995831}, { 0.34567901234567927`, 0.06415002990995831}, {0.35185185185185214`, 0.07484170156161804}, {0.35802469135802495`, 0.0641500299099583}, { 0.3703703703703706, 0.0641500299099583}, {0.3765432098765435, 0.07484170156161803}, {0.3703703703703707, 0.08553337321327777}, { 0.38271604938271636`, 0.08553337321327777}, {0.38888888888888923`, 0.09622504486493749}, {0.3827160493827164, 0.10691671651659723`}, { 0.37037037037037074`, 0.10691671651659725`}, {0.3765432098765436, 0.11760838816825697`}, {0.3703703703703708, 0.1283000598199167}, { 0.3580246913580251, 0.1283000598199167}, {0.35185185185185225`, 0.11760838816825699`}, {0.34567901234567944`, 0.1283000598199167}, { 0.33333333333333376`, 0.1283000598199167}, {0.3395061728395066, 0.13899173147157645`}, {0.3333333333333338, 0.1496834031232362}, { 0.3456790123456795, 0.1496834031232362}, {0.35185185185185236`, 0.16037507477489593`}, {0.34567901234567955`, 0.17106674642655567`}, { 0.33333333333333387`, 0.17106674642655567`}, {0.33950617283950674`, 0.1817584180782154}, {0.3333333333333339, 0.19245008972987515`}, { 0.3456790123456796, 0.19245008972987515`}, {0.35185185185185247`, 0.2031417613815349}, {0.3580246913580253, 0.19245008972987515`}, { 0.37037037037037096`, 0.19245008972987515`}, {0.3765432098765438, 0.2031417613815349}, {0.370370370370371, 0.21383343303319463`}, { 0.3827160493827167, 0.21383343303319463`}, {0.38888888888888956`, 0.22452510468485437`}, {0.3950617283950624, 0.21383343303319463`}, { 0.40740740740740805`, 0.21383343303319463`}, {0.40123456790123524`, 0.2031417613815349}, {0.40740740740740805`, 0.19245008972987515`}, { 0.41975308641975373`, 0.19245008972987515`}, {0.4259259259259266, 0.2031417613815349}, {0.4320987654320994, 0.19245008972987515`}, { 0.4444444444444451, 0.19245008972987515`}, {0.45061728395061795`, 0.2031417613815349}, {0.44444444444444514`, 0.21383343303319463`}, { 0.4567901234567908, 0.21383343303319463`}, {0.4629629629629637, 0.22452510468485437`}, {0.4567901234567909, 0.2352167763365141}, { 0.4444444444444452, 0.2352167763365141}, {0.45061728395061806`, 0.24590844798817385`}, {0.44444444444444525`, 0.2566001196398336}, { 0.45679012345679093`, 0.2566001196398336}, {0.4629629629629638, 0.26729179129149333`}, {0.4691358024691366, 0.2566001196398336}, { 0.4814814814814823, 0.2566001196398336}, {0.48765432098765515`, 0.26729179129149333`}, {0.48148148148148234`, 0.27798346294315307`}, { 0.493827160493828, 0.27798346294315307`}, {0.5000000000000009, 0.2886751345948128}, {0.5061728395061738, 0.27798346294315307`}, { 0.5185185185185194, 0.27798346294315307`}, {0.5123456790123465, 0.26729179129149333`}, {0.5185185185185194, 0.2566001196398336}, { 0.530864197530865, 0.2566001196398336}, {0.5370370370370379, 0.26729179129149333`}, {0.5432098765432107, 0.2566001196398336}, { 0.5555555555555564, 0.2566001196398336}, {0.5493827160493835, 0.24590844798817385`}, {0.5555555555555564, 0.2352167763365141}, { 0.5432098765432107, 0.2352167763365141}, {0.5370370370370379, 0.22452510468485437`}, {0.5432098765432107, 0.21383343303319463`}, { 0.5555555555555564, 0.21383343303319463`}, {0.5493827160493835, 0.2031417613815349}, {0.5555555555555564, 0.19245008972987515`}, { 0.567901234567902, 0.19245008972987515`}, {0.5740740740740748, 0.2031417613815349}, {0.5802469135802477, 0.19245008972987515`}, { 0.5925925925925933, 0.19245008972987515`}, {0.5987654320987662, 0.2031417613815349}, {0.5925925925925933, 0.21383343303319463`}, { 0.604938271604939, 0.21383343303319463`}, {0.6111111111111118, 0.22452510468485437`}, {0.6172839506172847, 0.21383343303319463`}, { 0.6296296296296303, 0.21383343303319463`}, {0.6234567901234574, 0.2031417613815349}, {0.6296296296296303, 0.19245008972987515`}, { 0.6419753086419759, 0.19245008972987515`}, {0.6481481481481488, 0.2031417613815349}, {0.6543209876543217, 0.19245008972987515`}, { 0.6666666666666673, 0.19245008972987515`}, {0.6604938271604944, 0.1817584180782154}, {0.6666666666666673, 0.17106674642655567`}, { 0.6543209876543217, 0.17106674642655567`}, {0.6481481481481488, 0.16037507477489593`}, {0.6543209876543217, 0.1496834031232362}, { 0.6666666666666673, 0.1496834031232362}, {0.6604938271604944, 0.13899173147157645`}, {0.6666666666666673, 0.1283000598199167}, { 0.6543209876543217, 0.1283000598199167}, {0.6481481481481488, 0.11760838816825699`}, {0.6419753086419759, 0.1283000598199167}, { 0.6296296296296303, 0.1283000598199167}, {0.6234567901234574, 0.11760838816825699`}, {0.6296296296296303, 0.10691671651659726`}, { 0.6172839506172847, 0.10691671651659726`}, {0.6111111111111118, 0.09622504486493753}, {0.6172839506172847, 0.08553337321327781}, { 0.6296296296296303, 0.08553337321327781}, {0.6234567901234574, 0.07484170156161808}, {0.6296296296296303, 0.06415002990995836}, { 0.6419753086419759, 0.06415002990995836}, {0.6481481481481488, 0.07484170156161808}, {0.6543209876543217, 0.06415002990995836}, { 0.6666666666666673, 0.06415002990995836}, {0.6604938271604944, 0.05345835825829862}, {0.6666666666666673, 0.04276668660663889}, { 0.6543209876543217, 0.04276668660663889}, {0.6481481481481488, 0.03207501495497916}, {0.6543209876543217, 0.021383343303319424`}, { 0.6666666666666673, 0.02138334330331942}, {0.6604938271604944, 0.01069167165165969}, {0.6666666666666673, -4.336808689942018*^-17}, { 0.6790123456790129, -4.5424055463540834`*^-17}, {0.6851851851851858, 0.010691671651659684`}, { 0.6913580246913587, -4.683753385137379*^-17}, { 0.7037037037037043, -4.8208179560787565`*^-17}, {0.7098765432098771, 0.010691671651659681`}, {0.7037037037037043, 0.021383343303319414`}, { 0.7160493827160499, 0.02138334330331941}, {0.7222222222222228, 0.032075014954979136`}, {0.7283950617283956, 0.021383343303319403`}, { 0.7407407407407413, 0.021383343303319403`}, {0.7345679012345684, 0.01069167165165967}, {0.7407407407407413, -6.245004513516506*^-17}, { 0.7530864197530869, -6.450601369928571*^-17}, {0.7592592592592597, 0.010691671651659665`}, { 0.7654320987654326, -6.591949208711867*^-17}, { 0.7777777777777782, -6.729013779653245*^-17}, {0.7839506172839511, 0.010691671651659662`}, {0.7777777777777782, 0.021383343303319396`}, { 0.7901234567901239, 0.021383343303319393`}, {0.7962962962962967, 0.03207501495497912}, {0.7901234567901239, 0.042766686606638855`}, { 0.7777777777777782, 0.04276668660663886}, {0.7839506172839511, 0.05345835825829859}, {0.7777777777777782, 0.06415002990995833}, { 0.7901234567901239, 0.06415002990995833}, {0.7962962962962967, 0.07484170156161805}, {0.8024691358024696, 0.06415002990995833}, { 0.8148148148148152, 0.06415002990995833}, {0.8209876543209881, 0.07484170156161805}, {0.8148148148148152, 0.08553337321327778}, { 0.8271604938271608, 0.08553337321327778}, {0.8333333333333337, 0.0962250448649375}, {0.8395061728395066, 0.08553337321327778}, { 0.8518518518518522, 0.08553337321327778}, {0.8456790123456793, 0.07484170156161804}, {0.8518518518518522, 0.0641500299099583}, { 0.8641975308641978, 0.0641500299099583}, {0.8703703703703707, 0.07484170156161803}, {0.8765432098765435, 0.0641500299099583}, { 0.8888888888888892, 0.0641500299099583}, {0.8827160493827163, 0.05345835825829857}, {0.8888888888888892, 0.042766686606638835`}, { 0.8765432098765435, 0.042766686606638835`}, {0.8703703703703707, 0.0320750149549791}, {0.8765432098765435, 0.02138334330331937}, { 0.8888888888888892, 0.021383343303319365`}, {0.8827160493827163, 0.010691671651659634`}, {0.8888888888888892, -9.8879238130678*^-17}, { 0.9012345679012348, -1.0093520669479866`*^-16}, {0.9074074074074077, 0.010691671651659629`}, { 0.9135802469135805, -1.0234868508263162`*^-16}, { 0.9259259259259262, -1.037193307920454*^-16}, {0.932098765432099, 0.010691671651659625`}, {0.9259259259259262, 0.02138334330331936}, { 0.9382716049382718, 0.021383343303319355`}, {0.9444444444444446, 0.03207501495497908}, {0.9506172839506175, 0.021383343303319348`}, { 0.9629629629629631, 0.021383343303319348`}, {0.9567901234567903, 0.010691671651659615`}, { 0.9629629629629631, -1.1796119636642288`*^-16}, { 0.9753086419753088, -1.2001716493054355`*^-16}, {0.9814814814814816, 0.01069167165165961}, {0.9876543209876545, -1.214306433183765*^-16}, { 1.0000000000000002`, -1.2280128902779028`*^-16}}]}, AspectRatio->Automatic, PlotRange->All]}], "}"}]], "Output", CellChangeTimes->{ 3.5160997031551323`*^9, {3.5160998168676367`*^9, 3.5160998265531907`*^9}, 3.516185338250797*^9, 3.5161853788121166`*^9, 3.519845513489856*^9, 3.519853643495757*^9, 3.52261581871089*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListAnimate", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.516185342083016*^9, 3.5161853514165497`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`i3$$ = 4, Typeset`show$$ = True, Typeset`bookmarkList$$ = { "\"min\"" :> {$CellContext`i3$$ = 1}, "\"max\"" :> {$CellContext`i3$$ = 4}}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`i3$$], 1, ""}, 1, 4, 1}}, Typeset`size$$ = Automatic, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`i3$1660$$ = 0}, PaneBox[ PanelBox[ DynamicWrapperBox[GridBox[{ { ItemBox[ ItemBox[ StyleBox[GridBox[{ { TagBox["\<\"\"\>", HoldForm], AnimatorBox[Dynamic[$CellContext`i3$$], {1, 4, 1}, AnimationRate->Automatic, AppearanceElements->{ "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}, AutoAction->False, DisplayAllSteps->True]} }, AutoDelete->False, GridBoxAlignment->{ "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "ListAnimateLabel", StripOnInput->False], Alignment->{Automatic, Inherited}, StripOnInput->False], Background->None, StripOnInput->False]}, { ItemBox[ TagBox[ StyleBox[ PaneBox[ TagBox[ PaneSelectorBox[{1-> GraphicsBox[ {RGBColor[0, 0, 0], Thickness[0.01], LineBox[{{0, 0}, {0.3333333333333333, 0.}, {0.5, 0.28867513459481287`}, {0.6666666666666666, 0.}, { 1., -3.700743415417188*^-17}}]}, AspectRatio->Automatic, PlotRange->All], 2-> GraphicsBox[ {RGBColor[0, 0, 0], Thickness[0.01], LineBox[{{0, 0}, {0.1111111111111111, 0.}, { 0.16666666666666669`, 0.09622504486493762}, { 0.22222222222222224`, 0.}, { 0.33333333333333337`, -1.2335811384723961`*^-17}, { 0.38888888888888895`, 0.09622504486493759}, { 0.3333333333333334, 0.19245008972987523`}, { 0.44444444444444453`, 0.1924500897298752}, { 0.5000000000000001, 0.2886751345948128}, { 0.5555555555555556, 0.1924500897298752}, { 0.6666666666666666, 0.19245008972987518`}, { 0.611111111111111, 0.09622504486493759}, { 0.6666666666666665, -1.3877787807814457`*^-17}, { 0.7777777777777776, -5.088522196198634*^-17}, { 0.8333333333333331, 0.0962250448649375}, { 0.8888888888888886, -8.326672684688674*^-17}, { 0.9999999999999997, -1.264420666934206*^-16}}]}, AspectRatio->Automatic, PlotRange->All], 3-> GraphicsBox[ {RGBColor[0, 0, 0], Thickness[0.01], LineBox[{{0, 0}, {0.037037037037037035`, 0.}, { 0.05555555555555555, 0.032075014954979206`}, { 0.07407407407407407, 0.}, { 0.1111111111111111, -4.11193712824132*^-18}, { 0.12962962962962962`, 0.03207501495497919}, { 0.11111111111111112`, 0.06415002990995841}, { 0.14814814814814814`, 0.0641500299099584}, { 0.16666666666666666`, 0.0962250448649376}, { 0.18518518518518517`, 0.0641500299099584}, { 0.2222222222222222, 0.06415002990995838}, { 0.2037037037037037, 0.032075014954979185`}, { 0.2222222222222222, -1.3877787807814457`*^-17}, { 0.25925925925925924`, -2.6213599192538418`*^-17}, { 0.2777777777777778, 0.03207501495497916}, { 0.2962962962962963, -4.163336342344337*^-17}, { 0.3333333333333333, -5.6025143372288*^-17}, { 0.35185185185185186`, 0.03207501495497913}, { 0.33333333333333337`, 0.06415002990995833}, { 0.3703703703703704, 0.06415002990995831}, { 0.38888888888888895`, 0.09622504486493749}, { 0.37037037037037046`, 0.1283000598199167}, { 0.3333333333333334, 0.12830005981991674`}, { 0.35185185185185197`, 0.16037507477489593`}, { 0.3333333333333335, 0.19245008972987515`}, { 0.3703703703703705, 0.19245008972987512`}, { 0.38888888888888906`, 0.22452510468485432`}, { 0.40740740740740755`, 0.19245008972987512`}, { 0.4444444444444446, 0.1924500897298751}, { 0.46296296296296313`, 0.2245251046848543}, { 0.44444444444444464`, 0.2566001196398335}, { 0.4814814814814817, 0.2566001196398335}, { 0.5000000000000002, 0.28867513459481264`}, { 0.5185185185185187, 0.2566001196398334}, { 0.5555555555555557, 0.2566001196398334}, { 0.5370370370370372, 0.22452510468485423`}, { 0.5555555555555557, 0.19245008972987504`}, { 0.5925925925925927, 0.192450089729875}, { 0.6111111111111112, 0.2245251046848542}, { 0.6296296296296297, 0.192450089729875}, { 0.6666666666666666, 0.19245008972987498`}, { 0.6481481481481481, 0.1603750747748958}, { 0.6666666666666666, 0.1283000598199166}, { 0.6296296296296297, 0.1283000598199166}, { 0.6111111111111112, 0.09622504486493741}, { 0.6296296296296297, 0.06415002990995822}, { 0.6666666666666666, 0.0641500299099582}, { 0.6481481481481481, 0.03207501495497901}, { 0.6666666666666666, -1.8735013540549517`*^-16}, { 0.7037037037037036, -2.0174191535433978`*^-16}, { 0.7222222222222221, 0.032075014954978984`}, { 0.7407407407407406, -2.1510571102112408`*^-16}, { 0.7777777777777776, -2.294974909699687*^-16}, { 0.7962962962962961, 0.032075014954978956`}, { 0.7777777777777776, 0.06415002990995816}, { 0.8148148148148145, 0.06415002990995815}, { 0.833333333333333, 0.09622504486493733}, { 0.8518518518518515, 0.06415002990995813}, { 0.8888888888888885, 0.06415002990995812}, { 0.87037037037037, 0.03207501495497893}, { 0.8888888888888885, -2.706168622523819*^-16}, { 0.9259259259259255, -2.8500864220122654`*^-16}, { 0.944444444444444, 0.0320750149549789}, { 0.9629629629629625, -2.983724378680108*^-16}, { 0.9999999999999994, -3.1276421781685546`*^-16}}]}, AspectRatio->Automatic, PlotRange->All], 4-> GraphicsBox[ {RGBColor[0, 0, 0], Thickness[0.01], LineBox[{{0, 0}, {0.012345679012345678`, 0.}, { 0.018518518518518517`, 0.010691671651659735`}, { 0.024691358024691357`, 0.}, { 0.037037037037037035`, -1.3706457094137734`*^-18}, { 0.043209876543209874`, 0.010691671651659731`}, { 0.03703703703703704, 0.02138334330331947}, { 0.04938271604938272, 0.021383343303319466`}, { 0.05555555555555556, 0.0320750149549792}, { 0.0617283950617284, 0.021383343303319466`}, { 0.07407407407407407, 0.021383343303319462`}, { 0.06790123456790123, 0.01069167165165973}, { 0.07407407407407407, -3.469446951953614*^-18}, { 0.08641975308641975, -7.581384080194934*^-18}, { 0.09259259259259259, 0.01069167165165972}, { 0.09876543209876543, -1.214306433183765*^-17}, { 0.1111111111111111, -1.6940324314785857`*^-17}, { 0.11728395061728394`, 0.01069167165165971}, { 0.11111111111111112`, 0.021383343303319445`}, { 0.1234567901234568, 0.02138334330331944}, { 0.12962962962962965`, 0.03207501495497917}, { 0.12345679012345682`, 0.042766686606638904`}, { 0.11111111111111115`, 0.04276668660663891}, { 0.11728395061728399`, 0.05345835825829864}, { 0.11111111111111116`, 0.06415002990995837}, { 0.12345679012345684`, 0.06415002990995837}, { 0.12962962962962968`, 0.0748417015616181}, { 0.13580246913580252`, 0.06415002990995836}, { 0.1481481481481482, 0.06415002990995836}, { 0.15432098765432103`, 0.07484170156161808}, { 0.1481481481481482, 0.08553337321327782}, { 0.16049382716049387`, 0.08553337321327782}, { 0.1666666666666667, 0.09622504486493755}, { 0.17283950617283955`, 0.08553337321327781}, { 0.18518518518518523`, 0.08553337321327781}, { 0.1790123456790124, 0.07484170156161808}, { 0.18518518518518523`, 0.06415002990995836}, { 0.1975308641975309, 0.06415002990995836}, { 0.20370370370370375`, 0.07484170156161808}, { 0.2098765432098766, 0.06415002990995836}, { 0.22222222222222227`, 0.06415002990995836}, { 0.21604938271604943`, 0.05345835825829863}, { 0.22222222222222227`, 0.0427666866066389}, { 0.2098765432098766, 0.0427666866066389}, { 0.20370370370370375`, 0.032075014954979164`}, { 0.2098765432098766, 0.02138334330331943}, { 0.22222222222222227`, 0.021383343303319428`}, { 0.21604938271604943`, 0.010691671651659698`}, { 0.22222222222222227`, -3.469446951953614*^-17}, { 0.23456790123456794`, -3.9491729502484346`*^-17}, { 0.24074074074074078`, 0.010691671651659688`}, { 0.24691358024691362`, -4.5102810375396984`*^-17}, { 0.2592592592592593, -4.990007035834519*^-17}, { 0.26543209876543217`, 0.010691671651659677`}, { 0.25925925925925936`, 0.02138334330331941}, { 0.27160493827160503`, 0.021383343303319407`}, { 0.2777777777777779, 0.032075014954979136`}, { 0.2839506172839507, 0.021383343303319403`}, { 0.2962962962962964, 0.0213833433033194}, { 0.2901234567901236, 0.01069167165165967}, { 0.2962962962962964, -6.245004513516506*^-17}, { 0.30864197530864207`, -6.724730511811326*^-17}, { 0.31481481481481494`, 0.01069167165165966}, { 0.32098765432098775`, -7.28583859910259*^-17}, { 0.3333333333333334, -7.76556459739741*^-17}, { 0.3395061728395063, 0.01069167165165965}, { 0.3333333333333335, 0.021383343303319383`}, { 0.34567901234567916`, 0.02138334330331938}, { 0.351851851851852, 0.03207501495497911}, { 0.3456790123456792, 0.04276668660663884}, { 0.33333333333333354`, 0.04276668660663885}, { 0.3395061728395064, 0.053458358258298574`}, { 0.3333333333333336, 0.06415002990995831}, { 0.34567901234567927`, 0.06415002990995831}, { 0.35185185185185214`, 0.07484170156161804}, { 0.35802469135802495`, 0.0641500299099583}, { 0.3703703703703706, 0.0641500299099583}, { 0.3765432098765435, 0.07484170156161803}, { 0.3703703703703707, 0.08553337321327777}, { 0.38271604938271636`, 0.08553337321327777}, { 0.38888888888888923`, 0.09622504486493749}, { 0.3827160493827164, 0.10691671651659723`}, { 0.37037037037037074`, 0.10691671651659725`}, { 0.3765432098765436, 0.11760838816825697`}, { 0.3703703703703708, 0.1283000598199167}, { 0.3580246913580251, 0.1283000598199167}, { 0.35185185185185225`, 0.11760838816825699`}, { 0.34567901234567944`, 0.1283000598199167}, { 0.33333333333333376`, 0.1283000598199167}, { 0.3395061728395066, 0.13899173147157645`}, { 0.3333333333333338, 0.1496834031232362}, { 0.3456790123456795, 0.1496834031232362}, { 0.35185185185185236`, 0.16037507477489593`}, { 0.34567901234567955`, 0.17106674642655567`}, { 0.33333333333333387`, 0.17106674642655567`}, { 0.33950617283950674`, 0.1817584180782154}, { 0.3333333333333339, 0.19245008972987515`}, { 0.3456790123456796, 0.19245008972987515`}, { 0.35185185185185247`, 0.2031417613815349}, { 0.3580246913580253, 0.19245008972987515`}, { 0.37037037037037096`, 0.19245008972987515`}, { 0.3765432098765438, 0.2031417613815349}, { 0.370370370370371, 0.21383343303319463`}, { 0.3827160493827167, 0.21383343303319463`}, { 0.38888888888888956`, 0.22452510468485437`}, { 0.3950617283950624, 0.21383343303319463`}, { 0.40740740740740805`, 0.21383343303319463`}, { 0.40123456790123524`, 0.2031417613815349}, { 0.40740740740740805`, 0.19245008972987515`}, { 0.41975308641975373`, 0.19245008972987515`}, { 0.4259259259259266, 0.2031417613815349}, { 0.4320987654320994, 0.19245008972987515`}, { 0.4444444444444451, 0.19245008972987515`}, { 0.45061728395061795`, 0.2031417613815349}, { 0.44444444444444514`, 0.21383343303319463`}, { 0.4567901234567908, 0.21383343303319463`}, { 0.4629629629629637, 0.22452510468485437`}, { 0.4567901234567909, 0.2352167763365141}, { 0.4444444444444452, 0.2352167763365141}, { 0.45061728395061806`, 0.24590844798817385`}, { 0.44444444444444525`, 0.2566001196398336}, { 0.45679012345679093`, 0.2566001196398336}, { 0.4629629629629638, 0.26729179129149333`}, { 0.4691358024691366, 0.2566001196398336}, { 0.4814814814814823, 0.2566001196398336}, { 0.48765432098765515`, 0.26729179129149333`}, { 0.48148148148148234`, 0.27798346294315307`}, { 0.493827160493828, 0.27798346294315307`}, { 0.5000000000000009, 0.2886751345948128}, { 0.5061728395061738, 0.27798346294315307`}, { 0.5185185185185194, 0.27798346294315307`}, { 0.5123456790123465, 0.26729179129149333`}, { 0.5185185185185194, 0.2566001196398336}, { 0.530864197530865, 0.2566001196398336}, { 0.5370370370370379, 0.26729179129149333`}, { 0.5432098765432107, 0.2566001196398336}, { 0.5555555555555564, 0.2566001196398336}, { 0.5493827160493835, 0.24590844798817385`}, { 0.5555555555555564, 0.2352167763365141}, { 0.5432098765432107, 0.2352167763365141}, { 0.5370370370370379, 0.22452510468485437`}, { 0.5432098765432107, 0.21383343303319463`}, { 0.5555555555555564, 0.21383343303319463`}, { 0.5493827160493835, 0.2031417613815349}, { 0.5555555555555564, 0.19245008972987515`}, { 0.567901234567902, 0.19245008972987515`}, { 0.5740740740740748, 0.2031417613815349}, { 0.5802469135802477, 0.19245008972987515`}, { 0.5925925925925933, 0.19245008972987515`}, { 0.5987654320987662, 0.2031417613815349}, { 0.5925925925925933, 0.21383343303319463`}, { 0.604938271604939, 0.21383343303319463`}, { 0.6111111111111118, 0.22452510468485437`}, { 0.6172839506172847, 0.21383343303319463`}, { 0.6296296296296303, 0.21383343303319463`}, { 0.6234567901234574, 0.2031417613815349}, { 0.6296296296296303, 0.19245008972987515`}, { 0.6419753086419759, 0.19245008972987515`}, { 0.6481481481481488, 0.2031417613815349}, { 0.6543209876543217, 0.19245008972987515`}, { 0.6666666666666673, 0.19245008972987515`}, { 0.6604938271604944, 0.1817584180782154}, { 0.6666666666666673, 0.17106674642655567`}, { 0.6543209876543217, 0.17106674642655567`}, { 0.6481481481481488, 0.16037507477489593`}, { 0.6543209876543217, 0.1496834031232362}, { 0.6666666666666673, 0.1496834031232362}, { 0.6604938271604944, 0.13899173147157645`}, { 0.6666666666666673, 0.1283000598199167}, { 0.6543209876543217, 0.1283000598199167}, { 0.6481481481481488, 0.11760838816825699`}, { 0.6419753086419759, 0.1283000598199167}, { 0.6296296296296303, 0.1283000598199167}, { 0.6234567901234574, 0.11760838816825699`}, { 0.6296296296296303, 0.10691671651659726`}, { 0.6172839506172847, 0.10691671651659726`}, { 0.6111111111111118, 0.09622504486493753}, { 0.6172839506172847, 0.08553337321327781}, { 0.6296296296296303, 0.08553337321327781}, { 0.6234567901234574, 0.07484170156161808}, { 0.6296296296296303, 0.06415002990995836}, { 0.6419753086419759, 0.06415002990995836}, { 0.6481481481481488, 0.07484170156161808}, { 0.6543209876543217, 0.06415002990995836}, { 0.6666666666666673, 0.06415002990995836}, { 0.6604938271604944, 0.05345835825829862}, { 0.6666666666666673, 0.04276668660663889}, { 0.6543209876543217, 0.04276668660663889}, { 0.6481481481481488, 0.03207501495497916}, { 0.6543209876543217, 0.021383343303319424`}, { 0.6666666666666673, 0.02138334330331942}, { 0.6604938271604944, 0.01069167165165969}, { 0.6666666666666673, -4.336808689942018*^-17}, { 0.6790123456790129, -4.5424055463540834`*^-17}, { 0.6851851851851858, 0.010691671651659684`}, { 0.6913580246913587, -4.683753385137379*^-17}, { 0.7037037037037043, -4.8208179560787565`*^-17}, { 0.7098765432098771, 0.010691671651659681`}, { 0.7037037037037043, 0.021383343303319414`}, { 0.7160493827160499, 0.02138334330331941}, { 0.7222222222222228, 0.032075014954979136`}, { 0.7283950617283956, 0.021383343303319403`}, { 0.7407407407407413, 0.021383343303319403`}, { 0.7345679012345684, 0.01069167165165967}, { 0.7407407407407413, -6.245004513516506*^-17}, { 0.7530864197530869, -6.450601369928571*^-17}, { 0.7592592592592597, 0.010691671651659665`}, { 0.7654320987654326, -6.591949208711867*^-17}, { 0.7777777777777782, -6.729013779653245*^-17}, { 0.7839506172839511, 0.010691671651659662`}, { 0.7777777777777782, 0.021383343303319396`}, { 0.7901234567901239, 0.021383343303319393`}, { 0.7962962962962967, 0.03207501495497912}, { 0.7901234567901239, 0.042766686606638855`}, { 0.7777777777777782, 0.04276668660663886}, { 0.7839506172839511, 0.05345835825829859}, { 0.7777777777777782, 0.06415002990995833}, { 0.7901234567901239, 0.06415002990995833}, { 0.7962962962962967, 0.07484170156161805}, { 0.8024691358024696, 0.06415002990995833}, { 0.8148148148148152, 0.06415002990995833}, { 0.8209876543209881, 0.07484170156161805}, { 0.8148148148148152, 0.08553337321327778}, { 0.8271604938271608, 0.08553337321327778}, { 0.8333333333333337, 0.0962250448649375}, { 0.8395061728395066, 0.08553337321327778}, { 0.8518518518518522, 0.08553337321327778}, { 0.8456790123456793, 0.07484170156161804}, { 0.8518518518518522, 0.0641500299099583}, { 0.8641975308641978, 0.0641500299099583}, { 0.8703703703703707, 0.07484170156161803}, { 0.8765432098765435, 0.0641500299099583}, { 0.8888888888888892, 0.0641500299099583}, { 0.8827160493827163, 0.05345835825829857}, { 0.8888888888888892, 0.042766686606638835`}, { 0.8765432098765435, 0.042766686606638835`}, { 0.8703703703703707, 0.0320750149549791}, { 0.8765432098765435, 0.02138334330331937}, { 0.8888888888888892, 0.021383343303319365`}, { 0.8827160493827163, 0.010691671651659634`}, { 0.8888888888888892, -9.8879238130678*^-17}, { 0.9012345679012348, -1.0093520669479866`*^-16}, { 0.9074074074074077, 0.010691671651659629`}, { 0.9135802469135805, -1.0234868508263162`*^-16}, { 0.9259259259259262, -1.037193307920454*^-16}, { 0.932098765432099, 0.010691671651659625`}, { 0.9259259259259262, 0.02138334330331936}, { 0.9382716049382718, 0.021383343303319355`}, { 0.9444444444444446, 0.03207501495497908}, { 0.9506172839506175, 0.021383343303319348`}, { 0.9629629629629631, 0.021383343303319348`}, { 0.9567901234567903, 0.010691671651659615`}, { 0.9629629629629631, -1.1796119636642288`*^-16}, { 0.9753086419753088, -1.2001716493054355`*^-16}, { 0.9814814814814816, 0.01069167165165961}, { 0.9876543209876545, -1.214306433183765*^-16}, { 1.0000000000000002`, -1.2280128902779028`*^-16}}]}, AspectRatio->Automatic, PlotRange->All]}, Dynamic[$CellContext`i3$$], Alignment->Automatic, ImageSize->All], Identity, Editable->True, Selectable->True], ImageMargins->10], Deployed->False, StripOnInput->False, ScriptLevel->0, GraphicsBoxOptions->{PreserveImageOptions->True}, Graphics3DBoxOptions->{PreserveImageOptions->True}], Identity, Editable->False, Selectable->False], Alignment->{Left, Center}, Background->GrayLevel[1], Frame->1, FrameStyle->GrayLevel[0, 0.2], ItemSize->Automatic, StripOnInput->False]} }, AutoDelete->False, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> { Offset[0.7], { Offset[0.5599999999999999]}, Offset[0.7]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.4], { Offset[0.8]}, Offset[0.4]}, "RowsIndexed" -> {}}], If[ CurrentValue["SelectionOver"], Manipulate`Dump`ReadControllerState[ Map[Manipulate`Dump`updateOneVar[#, CurrentValue["PreviousFormatTime"], CurrentValue["CurrentFormatTime"]]& , { Manipulate`Dump`controllerLink[{$CellContext`i3$$, \ $CellContext`i3$1660$$}, "X1", If["DefaultAbsolute", True, "JB1"], False, {1, 4, 1}, 4, 1.]}], CurrentValue[{ "ControllerData", { "Gamepad", "Joystick", "Multi-Axis Controller"}}], {}]], ImageSizeCache->{391., {83.25, 88.25}}], DefaultBaseStyle->{}, FrameMargins->{{5, 5}, {5, 5}}], BaselinePosition->Automatic, ImageMargins->0], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "ListAnimate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.5161853539316936`*^9, 3.519845520171238*^9, 3.5198536468399487`*^9, 3.522615820534994*^9}] }, Open ]], Cell["\<\ \:7df4\:7fd216 koch \:306e\:4e2d\:8eab\:3092\:5909\:3048\:3066\:3044\:308d\ \:3044\:308d\:306a\:518d\:5e30\:7684\:306a\:56f3\:5f62\:3092\:4f5c\:6210\:3057\ \:3088\:3046.\ \>", "Subsubsection", CellChangeTimes->{{3.5226158333517265`*^9, 3.52261583619989*^9}}], Cell["Tree \:3092\:3064\:304f\:308b", "Section"], Cell["\<\ \:81ea\:7136\:754c\:3042\:308b\:3044\:308d\:3044\:308d\:306a\:56f3\:5f62\:304c\ \:3053\:306e\:30d5\:30e9\:30af\:30bf\:30eb\:56f3\:5f62\:306b\:6975\:3081\:3066\ \:4f3c\:3066\:3044\:308b.\:3053\:3053\:3067\:306f,\:6728\:306e\:6a21\:64ec\ \:7684\:306b\:4f5c\:6210\:3059\:308b\:ff0e\:307e\:305abranch \:3092\:5b9a\ \:7fa9\:3059\:308b\:ff0e\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"branch", "[", RowBox[{"depth_Integer", ",", "length_", ",", "angle_", ",", "ratio_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{"forward", "[", "length", "]"}], ";", RowBox[{"left", "[", RowBox[{"angle", "/", "2"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"depth", ">", "0"}], ",", RowBox[{"branch", "[", RowBox[{ RowBox[{"depth", "-", "1"}], ",", RowBox[{"length", "*", "ratio"}], ",", "angle", ",", "ratio"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"points", ",", "X"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"right", "[", "angle", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"depth", ">", "0"}], ",", RowBox[{"branch", "[", RowBox[{ RowBox[{"depth", "-", "1"}], ",", RowBox[{"length", "*", "ratio"}], ",", "angle", ",", "ratio"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"left", "[", RowBox[{"angle", "/", "2"}], "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"back", "[", "length", "]"}], ";"}], ")"}]}]], "Input"], Cell["\:6b21\:306b,tree \:3092\:5b9a\:7fa9\:3059\:308b\:ff0e", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"tree", "[", RowBox[{"depth_Integer", ",", "length_", ",", "angle_", ",", "ratio_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{"initial", "[", "]"}], ";", RowBox[{"points", "=", RowBox[{"{", "}"}]}], ";", RowBox[{"left", "[", "90", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"depth", ">", "0"}], ",", RowBox[{"branch", "[", RowBox[{"depth", ",", "length", ",", "angle", ",", "ratio"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Line", "[", "path", "]"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ")"}]}]], "Input"], Cell["\:3044\:304f\:3064\:304b\:6570\:5024\:3092\:4ee3\:5165\:3057\:3066\:4f5c\ \:6210\:3057\:3066\:307f\:308b\:ff0e", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tree", "[", RowBox[{"8", ",", "1", ",", "45", ",", "0.6"}], "]"}]], "Input", CellChangeTimes->{{3.5160998332125716`*^9, 3.516099839099908*^9}, { 3.51984552912075*^9, 3.519845537904252*^9}}], Cell[BoxData[ GraphicsBox[ LineBox[{{0, 0}, {6.123233995736766*^-17, 1.}, {-0.22961005941905377`, 1.5543277195067722`}, {-0.48416850064621086`, 1.8088861607339293`}, {-0.6837264796686487, 1.8915457821247887`}, {-0.8133264796686487, 1.8915457821247887`}, {-0.8851673521167263, 1.8617883184240793`}, {-0.9181581260997658, 1.8287975444410398`}, {-0.9288708130320211, 1.802934830359732}, {-0.9288708130320211, 1.786138670359732}, {-0.9288708130320211, 1.802934830359732}, {-0.9407474916659153, 1.7910581517258377`}, {-0.9288708130320211, 1.802934830359732}, {-0.9181581260997658, 1.8287975444410398`}, {-0.9440208401810737, 1.8180848575087845`}, {-0.9558975188149679, 1.8062081788748903`}, {-0.9440208401810737, 1.8180848575087845`}, {-0.9608170001810736, 1.8180848575087845`}, {-0.9440208401810737, 1.8180848575087845`}, {-0.9181581260997658, 1.8287975444410398`}, {-0.8851673521167263, 1.8617883184240793`}, {-0.9318233521167263, 1.8617883184240793`}, {-0.9576860661980342, 1.851075631491824}, {-0.9695627448319284, 1.8391989528579298`}, {-0.9576860661980342, 1.851075631491824}, {-0.9744822261980342, 1.851075631491824}, {-0.9576860661980342, 1.851075631491824}, {-0.9318233521167263, 1.8617883184240793`}, {-0.9576860661980342, 1.8725010053563347`}, {-0.9744822261980342, 1.8725010053563347`}, {-0.9576860661980342, 1.8725010053563347`}, {-0.9695627448319285, 1.8843776839902289`}, {-0.9576860661980342, 1.8725010053563347`}, {-0.9318233521167263, 1.8617883184240793`}, {-0.8851673521167264, 1.8617883184240793`}, {-0.8133264796686488, 1.8915457821247887`}, {-0.8851673521167265, 1.921303245825498}, {-0.9318233521167264, 1.921303245825498}, {-0.9576860661980343, 1.9105905588932426`}, {-0.9695627448319285, 1.8987138802593484`}, {-0.9576860661980343, 1.9105905588932426`}, {-0.9744822261980343, 1.9105905588932426`}, {-0.9576860661980343, 1.9105905588932426`}, {-0.9318233521167264, 1.921303245825498}, {-0.9576860661980343, 1.9320159327577533`}, {-0.9744822261980343, 1.9320159327577533`}, {-0.9576860661980343, 1.9320159327577533`}, {-0.9695627448319286, 1.9438926113916475`}, {-0.9576860661980343, 1.9320159327577533`}, {-0.9318233521167264, 1.921303245825498}, {-0.8851673521167265, 1.9213032458254982`}, {-0.9181581260997661, 1.9542940198085377`}, {-0.944020840181074, 1.965006706740793}, {-0.960817000181074, 1.965006706740793}, {-0.944020840181074, 1.965006706740793}, {-0.9558975188149683, 1.9768833853746872`}, {-0.944020840181074, 1.965006706740793}, {-0.9181581260997661, 1.9542940198085377`}, {-0.9288708130320216, 1.9801567338898456`}, {-0.9407474916659159, 1.9920334125237398`}, {-0.9288708130320216, 1.9801567338898456`}, {-0.9288708130320216, 1.9969528938898455`}, {-0.9288708130320215, 1.9801567338898456`}, {-0.918158126099766, 1.9542940198085377`}, {-0.8851673521167264, 1.9213032458254982`}, {-0.8133264796686487, 1.891545782124789}, {-0.6837264796686489, 1.8915457821247894`}, {-0.7753675185104256, 1.9831868209665655`}, {-0.8472083909585033, 2.0129442846672747`}, {-0.8938643909585032, 2.0129442846672747`}, {-0.9197271050398111, 2.0022315977350194`}, {-0.9316037836737053, 1.9903549191011252`}, {-0.9197271050398111, 2.0022315977350194`}, {-0.9365232650398111, 2.0022315977350194`}, {-0.9197271050398111, 2.0022315977350194`}, {-0.8938643909585032, 2.0129442846672747`}, {-0.9197271050398113, 2.02365697159953}, {-0.9365232650398112, 2.02365697159953}, {-0.9197271050398113, 2.02365697159953}, {-0.9316037836737056, 2.035533650233424}, {-0.9197271050398113, 2.02365697159953}, {-0.8938643909585032, 2.0129442846672747`}, {-0.8472083909585033, 2.0129442846672747`}, {-0.8801991649415429, 2.045935058650314}, {-0.906061879022851, 2.0566477455825694`}, {-0.9228580390228509, 2.0566477455825694`}, {-0.906061879022851, 2.0566477455825694`}, {-0.9179385576567453, 2.0685244242164633`}, {-0.906061879022851, 2.0566477455825694`}, {-0.880199164941543, 2.045935058650314}, {-0.8909118518737985, 2.071797772731622}, {-0.9027885305076928, 2.083674451365516}, {-0.8909118518737985, 2.071797772731622}, {-0.8909118518737986, 2.088593932731622}, {-0.8909118518737985, 2.071797772731622}, {-0.880199164941543, 2.045935058650314}, {-0.8472083909585033, 2.0129442846672747`}, {-0.7753675185104256, 1.9831868209665657`}, {-0.8051249822111354, 2.055027693414643}, {-0.838115756194175, 2.0880184673976823`}, {-0.8639784702754829, 2.0987311543299376`}, {-0.8807746302754829, 2.0987311543299376`}, {-0.8639784702754829, 2.0987311543299376`}, {-0.8758551489093772, 2.1106078329638316`}, {-0.8639784702754829, 2.0987311543299376`}, {-0.838115756194175, 2.0880184673976823`}, {-0.8488284431264305, 2.11388118147899}, {-0.8607051217603248, 2.125757860112884}, {-0.8488284431264305, 2.11388118147899}, {-0.8488284431264306, 2.1306773414789903`}, {-0.8488284431264305, 2.11388118147899}, {-0.838115756194175, 2.0880184673976823`}, {-0.8051249822111353, 2.055027693414643}, {-0.8051249822111355, 2.101683693414643}, {-0.815837669143391, 2.127546407495951}, {-0.8277143477772853, 2.139423086129845}, {-0.815837669143391, 2.127546407495951}, {-0.8158376691433911, 2.144342567495951}, {-0.815837669143391, 2.127546407495951}, {-0.8051249822111355, 2.101683693414643}, {-0.7944122952788802, 2.127546407495951}, {-0.7944122952788804, 2.144342567495951}, {-0.7944122952788802, 2.127546407495951}, {-0.782535616644986, 2.1394230861298453`}, {-0.7944122952788802, 2.127546407495951}, {-0.8051249822111355, 2.101683693414643}, {-0.8051249822111352, 2.055027693414643}, {-0.7753675185104254, 1.9831868209665657`}, {-0.6837264796686484, 1.8915457821247899`}, {-0.4841685006462103, 1.808886160733932}, {-0.5668281220370709, 2.008444139756369}, {-0.6584691608788479, 2.1000851785981447`}, {-0.7303100333269256, 2.1298426422988537`}, {-0.7769660333269255, 2.1298426422988532`}, {-0.8028287474082333, 2.119129955366598}, {-0.8147054260421275, 2.1072532767327035`}, {-0.8028287474082333, 2.119129955366598}, {-0.8196249074082332, 2.119129955366598}, {-0.8028287474082333, 2.119129955366598}, {-0.7769660333269255, 2.1298426422988532`}, {-0.8028287474082335, 2.1405553292311086`}, {-0.8196249074082335, 2.1405553292311086`}, {-0.8028287474082335, 2.1405553292311086`}, {-0.8147054260421278, 2.1524320078650026`}, {-0.8028287474082335, 2.1405553292311086`}, {-0.7769660333269255, 2.1298426422988532`}, {-0.7303100333269256, 2.1298426422988537`}, {-0.7633008073099653, 2.162833416281893}, {-0.7891635213912733, 2.1735461032141483`}, {-0.8059596813912733, 2.1735461032141483`}, {-0.7891635213912733, 2.1735461032141483`}, {-0.8010402000251676, 2.1854227818480423`}, {-0.7891635213912733, 2.1735461032141483`}, {-0.7633008073099653, 2.162833416281893}, {-0.7740134942422209, 2.188696130363201}, {-0.7858901728761152, 2.200572808997095}, {-0.7740134942422209, 2.188696130363201}, {-0.774013494242221, 2.205492290363201}, {-0.7740134942422209, 2.188696130363201}, {-0.7633008073099653, 2.162833416281893}, {-0.7303100333269256, 2.1298426422988537`}, {-0.6584691608788478, 2.100085178598145}, {-0.6882266245795577, 2.1719260510462224`}, {-0.7212173985625975, 2.2049168250292617`}, {-0.7470801126439055, 2.2156295119615166`}, {-0.7638762726439055, 2.2156295119615166`}, {-0.7470801126439055, 2.2156295119615166`}, {-0.7589567912777998, 2.2275061905954106`}, {-0.7470801126439055, 2.2156295119615166`}, {-0.7212173985625975, 2.2049168250292617`}, {-0.731930085494853, 2.2307795391105696`}, {-0.7438067641287474, 2.2426562177444636`}, {-0.731930085494853, 2.2307795391105696`}, {-0.7319300854948532, 2.2475756991105698`}, {-0.731930085494853, 2.2307795391105696`}, {-0.7212173985625975, 2.2049168250292617`}, {-0.6882266245795577, 2.1719260510462224`}, {-0.6882266245795582, 2.2185820510462224`}, {-0.6989393115118138, 2.2444447651275303`}, {-0.7108159901457081, 2.2563214437614243`}, {-0.6989393115118138, 2.2444447651275303`}, {-0.698939311511814, 2.2612409251275305`}, {-0.6989393115118138, 2.2444447651275303`}, {-0.6882266245795582, 2.2185820510462224`}, {-0.677513937647303, 2.2444447651275303`}, {-0.6775139376473033, 2.2612409251275305`}, {-0.677513937647303, 2.2444447651275303`}, {-0.665637259013409, 2.2563214437614247`}, {-0.677513937647303, 2.2444447651275303`}, {-0.6882266245795582, 2.2185820510462224`}, {-0.6882266245795577, 2.1719260510462224`}, {-0.6584691608788478, 2.100085178598145}, {-0.5668281220370706, 2.00844413975637}, {-0.5668281220370719, 2.1380441397563694`}, {-0.596585585737782, 2.2098850122044467`}, {-0.6295763597208218, 2.242875786187486}, {-0.6554390738021298, 2.253588473119741}, {-0.6722352338021298, 2.253588473119741}, {-0.6554390738021298, 2.253588473119741}, {-0.6673157524360241, 2.265465151753635}, {-0.6554390738021298, 2.253588473119741}, {-0.6295763597208218, 2.242875786187486}, {-0.6402890466530774, 2.268738500268794}, {-0.6521657252869717, 2.280615178902688}, {-0.6402890466530774, 2.268738500268794}, {-0.6402890466530776, 2.2855346602687936`}, {-0.6402890466530774, 2.268738500268794}, {-0.6295763597208218, 2.242875786187486}, {-0.596585585737782, 2.2098850122044467`}, {-0.5965855857377825, 2.2565410122044467`}, {-0.6072982726700381, 2.2824037262857546`}, {-0.6191749513039324, 2.2942804049196486`}, {-0.6072982726700381, 2.2824037262857546`}, {-0.6072982726700383, 2.2991998862857543`}, {-0.6072982726700381, 2.2824037262857546`}, {-0.5965855857377825, 2.2565410122044467`}, {-0.5858728988055275, 2.2824037262857546`}, {-0.5858728988055277, 2.2991998862857543`}, {-0.5858728988055275, 2.2824037262857546`}, {-0.5739962201716334, 2.294280404919649}, {-0.5858728988055275, 2.2824037262857546`}, {-0.5965855857377825, 2.2565410122044467`}, {-0.596585585737782, 2.2098850122044467`}, {-0.5668281220370719, 2.1380441397563694`}, {-0.5370706583363635, 2.209885012204447}, {-0.537070658336364, 2.2565410122044467`}, {-0.5477833452686197, 2.2824037262857546`}, {-0.559660023902514, 2.2942804049196486`}, {-0.5477833452686197, 2.2824037262857546`}, {-0.5477833452686199, 2.2991998862857543`}, {-0.5477833452686197, 2.2824037262857546`}, {-0.537070658336364, 2.2565410122044467`}, {-0.526357971404109, 2.2824037262857546`}, {-0.5263579714041092, 2.2991998862857543`}, {-0.526357971404109, 2.2824037262857546`}, {-0.5144812927702149, 2.294280404919649}, {-0.526357971404109, 2.2824037262857546`}, {-0.537070658336364, 2.2565410122044467`}, {-0.5370706583363635, 2.209885012204447}, {-0.5040798843533245, 2.242875786187487}, {-0.4933671974210695, 2.2687385002687948`}, {-0.4933671974210697, 2.2855346602687945`}, {-0.4933671974210695, 2.2687385002687948`}, {-0.48149051878717547`, 2.280615178902689}, {-0.4933671974210695, 2.2687385002687948`}, {-0.5040798843533245, 2.242875786187487}, {-0.4782171702720168, 2.2535884731197426`}, {-0.4663404916381228, 2.265465151753637}, {-0.4782171702720168, 2.2535884731197426`}, {-0.4614210102720169, 2.253588473119743}, {-0.4782171702720168, 2.2535884731197426`}, {-0.5040798843533245, 2.242875786187487}, {-0.5370706583363635, 2.209885012204447}, {-0.5668281220370718, 2.1380441397563694`}, {-0.56682812203707, 2.00844413975637}, {-0.4841685006462082, 1.808886160733934}, {-0.22961005941904855`, 1.554327719506781}, {-0.22961005941905344`, 1.9143277195067798`}, {-0.31226968080991524`, 2.113885698529216}, {-0.4039107196516927, 2.205526737370991}, {-0.47575159209977047`, 2.235284201071699}, {-0.5224075920997703, 2.2352842010716985`}, {-0.548270306181078, 2.2245715141394427`}, {-0.560146984814972, 2.2126948355055482`}, {-0.548270306181078, 2.2245715141394427`}, {-0.5650664661810779, 2.224571514139442}, {-0.548270306181078, 2.2245715141394427`}, {-0.5224075920997703, 2.2352842010716985`}, {-0.5482703061810783, 2.2459968880039534`}, {-0.5650664661810783, 2.245996888003953}, {-0.5482703061810783, 2.2459968880039534`}, {-0.5601469848149727, 2.2578735666378473`}, {-0.5482703061810783, 2.2459968880039534`}, {-0.5224075920997703, 2.2352842010716985`}, {-0.47575159209977047`, 2.235284201071699}, {-0.5087423660828104, 2.2682749750547377`}, {-0.5346050801641185, 2.2789876619869927`}, {-0.5514012401641184, 2.278987661986992}, {-0.5346050801641185, 2.2789876619869927`}, {-0.5464817587980129, 2.2908643406208866`}, {-0.5346050801641185, 2.2789876619869927`}, {-0.5087423660828104, 2.2682749750547377`}, {-0.5194550530150661, 2.2941376891360457`}, {-0.5313317316489605, 2.3060143677699396`}, {-0.5194550530150661, 2.2941376891360457`}, {-0.5194550530150663, 2.3109338491360454`}, {-0.5194550530150661, 2.2941376891360457`}, {-0.5087423660828104, 2.2682749750547377`}, {-0.47575159209977047`, 2.235284201071699}, {-0.4039107196516926, 2.205526737370991}, {-0.433668183352403, 2.2773676098190676`}, {-0.46665895733544294`, 2.3103583838021065`}, {-0.49252167141675096`, 2.3210710707343614`}, {-0.5093178314167509, 2.321071070734361}, {-0.49252167141675096`, 2.3210710707343614`}, {-0.5043983500506454, 2.3329477493682553`}, {-0.49252167141675096`, 2.3210710707343614`}, {-0.46665895733544294`, 2.3103583838021065`}, {-0.4773716442676987, 2.336221097883414}, {-0.48924832290159304`, 2.348097776517308}, {-0.4773716442676986, 2.336221097883414}, {-0.4773716442676989, 2.3530172578834136`}, {-0.4773716442676986, 2.336221097883414}, {-0.4666589573354429, 2.3103583838021065`}, {-0.4336681833524029, 2.2773676098190676`}, {-0.4336681833524037, 2.3240236098190676`}, {-0.44438087028465945`, 2.349886323900375}, {-0.45625754891855386`, 2.361763002534269}, {-0.44438087028465945`, 2.349886323900375}, {-0.4443808702846597, 2.366682483900375}, {-0.44438087028465945`, 2.349886323900375}, {-0.4336681833524037, 2.3240236098190676`}, {-0.4229554964201488, 2.3498863239003756`}, {-0.42295549642014907`, 2.3666824839003753`}, {-0.4229554964201488, 2.3498863239003756`}, {-0.41107881778625477`, 2.36176300253427}, {-0.4229554964201488, 2.3498863239003756`}, {-0.4336681833524037, 2.3240236098190676`}, {-0.4336681833524029, 2.2773676098190676`}, {-0.40391071965169245`, 2.205526737370991}, {-0.31226968080991474`, 2.113885698529216}, {-0.3122696808099169, 2.2434856985292155`}, {-0.3420271445106274, 2.3153265709772923`}, {-0.3750179184936674, 2.348317344960331}, {-0.4008806325749754, 2.359030031892586}, {-0.41767679257497536`, 2.3590300318925856`}, {-0.4008806325749754, 2.359030031892586}, {-0.4127573112088698, 2.37090671052648}, {-0.4008806325749754, 2.359030031892586}, {-0.3750179184936674, 2.348317344960331}, {-0.3857306054259232, 2.3741800590416386`}, {-0.3976072840598176, 2.3860567376755326`}, {-0.3857306054259232, 2.3741800590416386`}, {-0.38573060542592347`, 2.3909762190416384`}, {-0.3857306054259232, 2.3741800590416386`}, {-0.3750179184936674, 2.348317344960331}, {-0.3420271445106274, 2.3153265709772923`}, {-0.34202714451062816`, 2.3619825709772924`}, {-0.35273983144288396`, 2.3878452850586}, {-0.36461651007677837`, 2.399721963692494}, {-0.35273983144288396`, 2.3878452850586}, {-0.35273983144288423`, 2.4046414450585996`}, {-0.35273983144288396`, 2.3878452850586}, {-0.34202714451062816`, 2.3619825709772924`}, {-0.3313144575783733, 2.3878452850586003`}, {-0.3313144575783736, 2.4046414450586}, {-0.3313144575783733, 2.3878452850586003`}, {-0.31943777894447933`, 2.3997219636924947`}, {-0.3313144575783733, 2.3878452850586003`}, {-0.34202714451062816`, 2.3619825709772924`}, {-0.3420271445106273, 2.3153265709772928`}, {-0.3122696808099168, 2.243485698529216}, {-0.2825122171092088, 2.3153265709772937`}, {-0.28251221710920965`, 2.3619825709772937`}, {-0.29322490404146545`, 2.387845285058601}, {-0.30510158267535986`, 2.399721963692495}, {-0.29322490404146545`, 2.387845285058601}, {-0.29322490404146573`, 2.404641445058601}, {-0.29322490404146545`, 2.387845285058601}, {-0.28251221710920965`, 2.3619825709772937`}, {-0.2717995301769548, 2.3878452850586016`}, {-0.27179953017695513`, 2.4046414450586013`}, {-0.2717995301769548, 2.3878452850586016`}, {-0.25992285154306083`, 2.399721963692496}, {-0.2717995301769548, 2.3878452850586016`}, {-0.28251221710920965`, 2.3619825709772937`}, {-0.28251221710920876`, 2.315326570977294}, {-0.24952144312616997`, 2.3483173449603343`}, {-0.23880875619391512`, 2.374180059041642}, {-0.23880875619391542`, 2.390976219041642}, {-0.23880875619391512`, 2.374180059041642}, {-0.22693207756002115`, 2.3860567376755366`}, {-0.23880875619391512`, 2.374180059041642}, {-0.24952144312616995`, 2.3483173449603343`}, {-0.2236587290448623, 2.35903003189259}, {-0.21178205041096834`, 2.3709067105264845`}, {-0.2236587290448623, 2.35903003189259}, {-0.2068625690448624, 2.3590300318925905`}, {-0.2236587290448623, 2.35903003189259}, {-0.24952144312616995`, 2.3483173449603343`}, {-0.2825122171092087, 2.315326570977294}, {-0.31226968080991657`, 2.243485698529216}, {-0.312269680809914, 2.1138856985292165`}, {-0.22961005941905105`, 1.914327719506781}, {-0.14695043802819596`, 2.1138856985292196`}, {-0.14695043802819854`, 2.243485698529219}, {-0.1767079017289092, 2.315326570977296}, {-0.20969867571194928`, 2.3483173449603347`}, {-0.23556138979325733`, 2.3590300318925896`}, {-0.25235754979325725`, 2.359030031892589}, {-0.23556138979325733`, 2.3590300318925896`}, {-0.24743806842715177`, 2.3709067105264836`}, {-0.23556138979325733`, 2.3590300318925896`}, {-0.20969867571194928`, 2.3483173449603347`}, {-0.22041136264420513`, 2.374180059041642}, {-0.23228804127809957`, 2.386056737675536}, {-0.22041136264420513`, 2.374180059041642}, {-0.22041136264420547`, 2.390976219041642}, {-0.2204113626442051, 2.374180059041642}, {-0.20969867571194925`, 2.3483173449603347`}, {-0.17670790172890916`, 2.315326570977296}, {-0.17670790172891013`, 2.3619825709772955`}, {-0.18742058866116598`, 2.387845285058603}, {-0.19929726729506042`, 2.399721963692497}, {-0.18742058866116598`, 2.387845285058603}, {-0.18742058866116634`, 2.4046414450586027`}, {-0.18742058866116598`, 2.387845285058603}, {-0.1767079017289101, 2.3619825709772955`}, {-0.16599521479665533`, 2.3878452850586034`}, {-0.1659952147966557, 2.404641445058603}, {-0.16599521479665533`, 2.3878452850586034`}, {-0.1541185361627614, 2.399721963692498}, {-0.16599521479665533`, 2.3878452850586034`}, {-0.1767079017289101, 2.3619825709772955`}, {-0.1767079017289091, 2.315326570977296}, {-0.14695043802819832`, 2.243485698529219}, {-0.11719297432749064`, 2.315326570977297}, {-0.11719297432749165`, 2.361982570977297}, {-0.12790566125974753`, 2.3878452850586043`}, {-0.13978233989364197`, 2.3997219636924982`}, {-0.12790566125974753`, 2.3878452850586043`}, {-0.1279056612597479, 2.404641445058604}, {-0.12790566125974753`, 2.3878452850586043`}, {-0.11719297432749165`, 2.361982570977297}, {-0.1064802873952369, 2.3878452850586047`}, {-0.10648028739523728`, 2.4046414450586044`}, {-0.1064802873952369, 2.3878452850586047`}, {-0.094603608761343, 2.399721963692499}, {-0.1064802873952369, 2.3878452850586047`}, {-0.11719297432749165`, 2.361982570977297}, {-0.1171929743274906, 2.315326570977297}, {-0.08420220034445196, 2.3483173449603374`}, {-0.07348951341219723, 2.3741800590416453`}, {-0.0734895134121976, 2.390976219041645}, {-0.07348951341219723, 2.3741800590416453`}, {-0.06161283477830332, 2.3860567376755397`}, {-0.07348951341219723, 2.3741800590416453`}, {-0.08420220034445196, 2.3483173449603374`}, {-0.05833948626314439, 2.359030031892593}, {-0.04646280762925049, 2.3709067105264876`}, {-0.05833948626314439, 2.359030031892593}, {-0.041543326263144484`, 2.3590300318925936`}, {-0.05833948626314439, 2.359030031892593}, {-0.08420220034445196, 2.3483173449603374`}, {-0.11719297432749057`, 2.315326570977297}, {-0.14695043802819813`, 2.243485698529219}, {-0.1469504380281951, 2.11388569852922}, {-0.05530939918642119, 2.2055267373709984`}, {-0.025551935485713658`, 2.2773676098190765`}, {-0.025551935485714748`, 2.324023609819076}, {-0.03626462241797067, 2.3498863239003835`}, {-0.04814130105186512, 2.3617630025342775`}, {-0.03626462241797067, 2.3498863239003835`}, {-0.036264622417971064`, 2.3666824839003833`}, {-0.03626462241797066, 2.3498863239003835`}, {-0.02555193548571473, 2.324023609819076}, {-0.014839248553460034`, 2.349886323900384}, {-0.014839248553460435`, 2.3666824839003837`}, {-0.014839248553460032`, 2.349886323900384}, {-0.002962569919566149, 2.3617630025342784`}, {-0.01483924855346003, 2.349886323900384}, {-0.025551935485714716`, 2.324023609819076}, {-0.025551935485713592`, 2.2773676098190765`}, { 0.007438838497324969, 2.3103583838021167`}, {0.018151525429579658`, 2.3362210978834246`}, {0.018151525429579252`, 2.3530172578834243`}, { 0.018151525429579658`, 2.3362210978834246`}, {0.030028204063473535`, 2.348097776517319}, {0.018151525429579658`, 2.3362210978834246`}, { 0.007438838497324981, 2.3103583838021167`}, {0.033301552578632515`, 2.3210710707343725`}, {0.045178231212526385`, 2.332947749368267}, { 0.033301552578632515`, 2.3210710707343725`}, {0.05009771257863241, 2.321071070734373}, {0.033301552578632515`, 2.3210710707343725`}, { 0.007438838497324997, 2.3103583838021167`}, {-0.025551935485713523`, 2.2773676098190765`}, {-0.05530939918642091, 2.2055267373709984`}, { 0.016531473261655542`, 2.2352842010717096`}, {0.04952224724469406, 2.2682749750547497`}, {0.060234934176948716`, 2.2941376891360576`}, { 0.06023493417694829, 2.3109338491360574`}, {0.060234934176948716`, 2.2941376891360576`}, {0.07211161281084258, 2.306014367769952}, { 0.060234934176948716`, 2.2941376891360576`}, {0.04952224724469406, 2.2682749750547497`}, {0.07538496132600157, 2.2789876619870055`}, { 0.08726163995989543, 2.2908643406209}, {0.07538496132600157, 2.2789876619870055`}, {0.09218112132600145, 2.278987661987006}, { 0.07538496132600156, 2.2789876619870055`}, {0.04952224724469405, 2.2682749750547497`}, {0.01653147326165555, 2.2352842010717096`}, { 0.06318747326165523, 2.235284201071711}, {0.08905018734296274, 2.2459968880039667`}, {0.1009268659768566, 2.257873566637861}, { 0.08905018734296274, 2.2459968880039667`}, {0.10584634734296262`, 2.245996888003967}, {0.08905018734296274, 2.2459968880039667`}, { 0.06318747326165523, 2.235284201071711}, {0.0890501873429633, 2.2245715141394564`}, {0.10584634734296318`, 2.224571514139457}, { 0.0890501873429633, 2.2245715141394564`}, {0.10092686597685777`, 2.2126948355055625`}, {0.0890501873429633, 2.2245715141394564`}, { 0.06318747326165525, 2.235284201071711}, {0.01653147326165557, 2.2352842010717096`}, {-0.05530939918642081, 2.2055267373709984`}, {-0.1469504380281943, 2.11388569852922}, {-0.22961005941904783`, 1.9143277195067814`}, {-0.2296100594190383, 1.554327719506784}, { 2.856048730848215*^-14, 1.0000000000000218`}, {0.22961005941906606`, 1.554327719506796}, {0.22961005941905652`, 1.9143277195067934`}, { 0.1469504380281924, 2.1138856985292276`}, {0.05530939918641406, 2.205526737371001}, {-0.01653147326166389, 2.235284201071708}, {-0.06318747326166355, 2.235284201071707}, {-0.08905018734297103, 2.224571514139451}, {-0.10092686597686487`, 2.2126948355055567`}, {-0.08905018734297103, 2.224571514139451}, {-0.10584634734297091`, 2.2245715141394506`}, {-0.08905018734297103, 2.224571514139451}, {-0.06318747326166355, 2.235284201071707}, {-0.0890501873429716, 2.2459968880039614`}, {-0.10584634734297148`, 2.245996888003961}, {-0.0890501873429716, 2.2459968880039614`}, {-0.10092686597686608`, 2.2578735666378553`}, {-0.0890501873429716, 2.2459968880039614`}, {-0.06318747326166355, 2.235284201071707}, {-0.016531473261663897`, 2.235284201071708}, {-0.049522247244704116`, 2.2682749750547466`}, {-0.07538496132601216, 2.278987661987001}, {-0.09218112132601203, 2.2789876619870006`}, {-0.07538496132601216, 2.278987661987001}, {-0.08726163995990664, 2.290864340620895}, {-0.07538496132601216, 2.278987661987001}, {-0.04952224724470411, 2.2682749750547466`}, {-0.060234934176960124`, 2.294137689136054}, {-0.0721116128108546, 2.306014367769948}, {-0.06023493417696012, 2.294137689136054}, {-0.06023493417696059, 2.310933849136054}, {-0.06023493417696012, 2.294137689136054}, {-0.049522247244704096`, 2.2682749750547466`}, {-0.01653147326166387, 2.235284201071708}, { 0.05530939918641407, 2.205526737371001}, {0.025551935485702892`, 2.2773676098190774`}, {-0.007438838497337341, 2.310358383802116}, {-0.033301552578645394`, 2.3210710707343702`}, {-0.05009771257864526, 2.32107107073437}, {-0.033301552578645394`, 2.3210710707343702`}, {-0.045178231212539874`, 2.332947749368264}, {-0.03330155257864539, 2.3210710707343702`}, {-0.007438838497337334, 2.310358383802116}, {-0.018151525429593363`, 2.3362210978834232`}, {-0.03002820406348785, 2.348097776517317}, {-0.018151525429593363`, 2.3362210978834232`}, {-0.018151525429593845`, 2.353017257883423}, {-0.01815152542959336, 2.3362210978834232`}, {-0.007438838497337322, 2.310358383802116}, { 0.025551935485702927`, 2.2773676098190774`}, {0.025551935485701574`, 2.324023609819077}, {0.014839248553445534`, 2.3498863239003844`}, { 0.0029625699195510447`, 2.3617630025342784`}, {0.014839248553445534`, 2.3498863239003844`}, {0.014839248553445043`, 2.366682483900384}, { 0.014839248553445535`, 2.3498863239003844`}, {0.025551935485701584`, 2.324023609819077}, {0.03626462241795611, 2.349886323900385}, { 0.03626462241795562, 2.3666824839003846`}, {0.03626462241795612, 2.349886323900385}, {0.04814130105184991, 2.3617630025342793`}, { 0.036264622417956124`, 2.349886323900385}, {0.02555193548570161, 2.324023609819077}, {0.025551935485703007`, 2.2773676098190774`}, { 0.055309399186414296`, 2.205526737371001}, {0.14695043802819285`, 2.113885698529228}, {0.14695043802818897`, 2.243485698529227}, { 0.11719297432747766`, 2.3153265709773034`}, {0.08420220034443737, 2.348317344960342}, {0.058339486263129306`, 2.3590300318925963`}, { 0.04154332626312945, 2.359030031892596}, {0.058339486263129306`, 2.3590300318925963`}, {0.046462807629234805`, 2.3709067105264903`}, { 0.058339486263129306`, 2.3590300318925963`}, {0.08420220034443737, 2.348317344960342}, {0.0734895134121813, 2.3741800590416493`}, { 0.061612834778286794`, 2.3860567376755433`}, {0.0734895134121813, 2.3741800590416493`}, {0.07348951341218078, 2.390976219041649}, { 0.0734895134121813, 2.3741800590416493`}, {0.08420220034443737, 2.348317344960342}, {0.11719297432747766`, 2.3153265709773034`}, { 0.11719297432747622`, 2.361982570977303}, {0.10648028739522013`, 2.3878452850586105`}, {0.09460360876132562, 2.3997219636925045`}, { 0.10648028739522013`, 2.3878452850586105`}, {0.1064802873952196, 2.40464144505861}, {0.10648028739522013`, 2.3878452850586105`}, { 0.11719297432747622`, 2.361982570977303}, {0.12790566125973069`, 2.387845285058611}, {0.12790566125973016`, 2.4046414450586107`}, { 0.12790566125973069`, 2.387845285058611}, {0.13978233989362443`, 2.3997219636925053`}, {0.12790566125973069`, 2.387845285058611}, { 0.11719297432747623`, 2.361982570977303}, {0.11719297432747772`, 2.3153265709773034`}, {0.1469504380281891, 2.2434856985292275`}, { 0.17670790172889594`, 2.3153265709773057`}, {0.17670790172889447`, 2.3619825709773052`}, {0.16599521479663837`, 2.3878452850586127`}, { 0.15411853616274385`, 2.3997219636925067`}, {0.16599521479663837`, 2.3878452850586127`}, {0.16599521479663784`, 2.4046414450586124`}, { 0.1659952147966384, 2.3878452850586127`}, {0.1767079017288945, 2.3619825709773052`}, {0.18742058866114894`, 2.387845285058613}, { 0.18742058866114839`, 2.404641445058613}, {0.18742058866114894`, 2.387845285058613}, {0.19929726729504268`, 2.3997219636925076`}, { 0.18742058866114894`, 2.387845285058613}, {0.1767079017288945, 2.3619825709773052`}, {0.176707901728896, 2.3153265709773057`}, { 0.20969867571193418`, 2.348317344960346}, {0.22041136264418862`, 2.3741800590416537`}, {0.22041136264418806`, 2.3909762190416535`}, { 0.22041136264418862`, 2.3741800590416537`}, {0.23228804127808236`, 2.386056737675548}, {0.22041136264418862`, 2.3741800590416537`}, { 0.20969867571193418`, 2.348317344960346}, {0.23556138979324154`, 2.359030031892602}, {0.24743806842713528`, 2.3709067105264965`}, { 0.23556138979324154`, 2.359030031892602}, {0.2523575497932414, 2.3590300318926025`}, {0.23556138979324154`, 2.359030031892602}, { 0.20969867571193418`, 2.348317344960346}, {0.17670790172889603`, 2.3153265709773057`}, {0.1469504380281893, 2.2434856985292275`}, { 0.14695043802819355`, 2.113885698529229}, {0.2296100594190587, 1.9143277195067956`}, {0.3122696808099107, 2.1138856985292342`}, { 0.3122696808099064, 2.243485698529233}, {0.28251221710919494`, 2.3153265709773088`}, {0.24952144312615462`, 2.3483173449603467`}, { 0.22365872904484657`, 2.359030031892601}, {0.20686256904484673`, 2.3590300318926007`}, {0.22365872904484657`, 2.359030031892601}, { 0.21178205041095205`, 2.3709067105264947`}, {0.22365872904484657`, 2.359030031892601}, {0.24952144312615462`, 2.3483173449603467`}, { 0.2388087561938985, 2.374180059041654}, {0.22693207756000397`, 2.3860567376755477`}, {0.2388087561938985, 2.374180059041654}, { 0.23880875619389794`, 2.390976219041654}, {0.2388087561938985, 2.374180059041654}, {0.24952144312615462`, 2.3483173449603467`}, { 0.28251221710919494`, 2.3153265709773088`}, {0.2825122171091934, 2.3619825709773083`}, {0.27179953017693725`, 2.387845285058616}, { 0.25992285154304273`, 2.3997219636925093`}, {0.27179953017693725`, 2.387845285058616}, {0.2717995301769367, 2.4046414450586155`}, { 0.27179953017693725`, 2.387845285058616}, {0.2825122171091934, 2.3619825709773083`}, {0.29322490404144774`, 2.3878452850586163`}, { 0.2932249040414472, 2.404641445058616}, {0.29322490404144774`, 2.3878452850586163`}, {0.30510158267534143`, 2.3997219636925107`}, { 0.29322490404144774`, 2.3878452850586163`}, {0.2825122171091934, 2.3619825709773083`}, {0.282512217109195, 2.3153265709773088`}, { 0.3122696808099065, 2.243485698529233}, {0.3420271445106131, 2.315326570977311}, {0.3420271445106115, 2.3619825709773106`}, { 0.33131445757835537`, 2.387845285058618}, {0.31943777894446085`, 2.3997219636925116`}, {0.33131445757835537`, 2.387845285058618}, { 0.3313144575783548, 2.4046414450586178`}, {0.3313144575783554, 2.387845285058618}, {0.3420271445106116, 2.3619825709773106`}, { 0.35273983144286597`, 2.3878452850586185`}, {0.35273983144286536`, 2.404641445058618}, {0.35273983144286597`, 2.3878452850586185`}, { 0.36461651007675966`, 2.399721963692513}, {0.35273983144286597`, 2.3878452850586185`}, {0.3420271445106116, 2.3619825709773106`}, { 0.3420271445106133, 2.315326570977311}, {0.3750179184936513, 2.348317344960351}, {0.38573060542590565`, 2.374180059041659}, { 0.38573060542590504`, 2.390976219041659}, {0.38573060542590565`, 2.374180059041659}, {0.39760728405979934`, 2.3860567376755535`}, { 0.38573060542590565`, 2.374180059041659}, {0.37501791849365135`, 2.348317344960351}, {0.40088063257495865`, 2.3590300318926074`}, { 0.41275731120885234`, 2.370906710526502}, {0.40088063257495865`, 2.3590300318926074`}, {0.4176767925749585, 2.359030031892608}, { 0.40088063257495865`, 2.3590300318926074`}, {0.3750179184936514, 2.348317344960351}, {0.3420271445106134, 2.315326570977311}, { 0.31226968080990697`, 2.243485698529233}, {0.3122696808099117, 2.1138856985292342`}, {0.4039107196516839, 2.205526737371013}, { 0.4336681833523903, 2.277367609819091}, {0.4336681833523886, 2.3240236098190907`}, {0.4229554964201324, 2.349886323900398}, { 0.4110788177862379, 2.3617630025342917`}, {0.4229554964201324, 2.349886323900398}, {0.4229554964201318, 2.366682483900398}, { 0.4229554964201324, 2.349886323900398}, {0.4336681833523886, 2.3240236098190907`}, {0.4443808702846429, 2.3498863239003986`}, { 0.4443808702846423, 2.3666824839003984`}, {0.4443808702846429, 2.3498863239003986`}, {0.4562575489185366, 2.361763002534293}, { 0.4443808702846429, 2.3498863239003986`}, {0.4336681833523886, 2.3240236098190907`}, {0.4336681833523903, 2.277367609819091}, { 0.4666589573354283, 2.3103583838021318`}, {0.4773716442676826, 2.3362210978834397`}, {0.47737164426768197`, 2.3530172578834394`}, { 0.4773716442676826, 2.3362210978834397`}, {0.48924832290157627`, 2.348097776517334}, {0.4773716442676826, 2.3362210978834397`}, { 0.4666589573354283, 2.3103583838021318`}, {0.49252167141673553`, 2.321071070734388}, {0.5043983500506292, 2.3329477493682824`}, { 0.4925216714167355, 2.321071070734388}, {0.5093178314167353, 2.3210710707343885`}, {0.4925216714167354, 2.321071070734388}, { 0.46665895733542817`, 2.3103583838021318`}, {0.4336681833523902, 2.277367609819091}, {0.40391071965168385`, 2.205526737371013}, { 0.4757515920997596, 2.2352842010717247`}, {0.5087423660827975, 2.2682749750547653`}, {0.5194550530150518, 2.294137689136073}, { 0.5194550530150511, 2.310933849136073}, {0.5194550530150518, 2.294137689136073}, {0.5313317316489454, 2.3060143677699676`}, { 0.5194550530150518, 2.294137689136073}, {0.5087423660827975, 2.2682749750547653`}, {0.5346050801641048, 2.2789876619870215`}, { 0.5464817587979984, 2.290864340620916}, {0.5346050801641048, 2.2789876619870215`}, {0.5514012401641046, 2.278987661987022}, { 0.5346050801641048, 2.2789876619870215`}, {0.5087423660827975, 2.2682749750547653`}, {0.47575159209975965`, 2.2352842010717247`}, { 0.5224075920997591, 2.2352842010717264`}, {0.5482703061810663, 2.2459968880039827`}, {0.56014698481496, 2.257873566637877}, { 0.5482703061810663, 2.2459968880039827`}, {0.5650664661810662, 2.245996888003983}, {0.5482703061810663, 2.2459968880039827`}, { 0.5224075920997591, 2.2352842010717264`}, {0.5482703061810672, 2.224571514139472}, {0.565066466181067, 2.2245715141394724`}, { 0.5482703061810672, 2.224571514139472}, {0.5601469848149617, 2.2126948355055784`}, {0.5482703061810672, 2.224571514139472}, { 0.5224075920997591, 2.235284201071726}, {0.4757515920997596, 2.235284201071724}, {0.4039107196516839, 2.205526737371012}, { 0.31226968080991196`, 2.113885698529233}, {0.22961005941906132`, 1.914327719506794}, {0.22961005941907545`, 1.554327719506798}, { 0.48416850064621975`, 1.8088861607339621`}, {0.5668281220370703, 2.008444139756401}, {0.5668281220370652, 2.1380441397563996`}, { 0.5370706583363534, 2.2098850122044755`}, {0.5040798843533129, 2.2428757861875135`}, {0.4782171702720048, 2.2535884731197675`}, { 0.461421010272005, 2.253588473119767}, {0.47821717027200483`, 2.2535884731197675`}, {0.46634049163811025`, 2.265465151753661}, { 0.47821717027200483`, 2.2535884731197675`}, {0.504079884353313, 2.2428757861875135`}, {0.49336719742105667`, 2.2687385002688205`}, { 0.4814905187871621, 2.280615178902714}, {0.49336719742105667`, 2.2687385002688205`}, {0.493367197421056, 2.2855346602688202`}, { 0.49336719742105667`, 2.2687385002688205`}, {0.504079884353313, 2.2428757861875135`}, {0.5370706583363535, 2.2098850122044755`}, { 0.5370706583363516, 2.256541012204475}, {0.5263579714040953, 2.282403726285782}, {0.5144812927702008, 2.2942804049196757`}, { 0.5263579714040953, 2.282403726285782}, {0.5263579714040947, 2.299199886285782}, {0.5263579714040953, 2.282403726285782}, { 0.5370706583363516, 2.256541012204475}, {0.5477833452686058, 2.282403726285783}, {0.5477833452686052, 2.2991998862857828`}, { 0.5477833452686058, 2.282403726285783}, {0.5596600239024995, 2.2942804049196774`}, {0.5477833452686058, 2.282403726285783}, { 0.5370706583363516, 2.256541012204475}, {0.5370706583363535, 2.2098850122044755`}, {0.5668281220370655, 2.1380441397564}, { 0.5965855857377715, 2.209885012204478}, {0.5965855857377697, 2.256541012204478}, {0.5858728988055134, 2.282403726285785}, { 0.5739962201716188, 2.2942804049196783`}, {0.5858728988055134, 2.282403726285785}, {0.5858728988055127, 2.2991998862857845`}, { 0.5858728988055134, 2.282403726285785}, {0.5965855857377698, 2.256541012204478}, {0.6072982726700239, 2.2824037262857857`}, { 0.6072982726700232, 2.2991998862857854`}, {0.6072982726700239, 2.2824037262857857`}, {0.6191749513039175, 2.29428040491968}, { 0.6072982726700239, 2.2824037262857857`}, {0.5965855857377698, 2.256541012204478}, {0.5965855857377717, 2.209885012204478}, { 0.6295763597208094, 2.242875786187519}, {0.6402890466530635, 2.2687385002688267`}, {0.6402890466530629, 2.2855346602688265`}, { 0.6402890466530635, 2.2687385002688267`}, {0.6521657252869572, 2.280615178902721}, {0.6402890466530635, 2.2687385002688267`}, { 0.6295763597208094, 2.242875786187519}, {0.6554390738021165, 2.253588473119775}, {0.6673157524360102, 2.2654651517536695`}, { 0.6554390738021165, 2.253588473119775}, {0.6722352338021164, 2.253588473119776}, {0.6554390738021165, 2.253588473119775}, { 0.6295763597208094, 2.242875786187519}, {0.5965855857377717, 2.209885012204478}, {0.5668281220370657, 2.1380441397564}, { 0.5668281220370712, 2.008444139756402}, {0.6584691608788428, 2.100085178598181}, {0.6882266245795488, 2.1719260510462592`}, { 0.6882266245795468, 2.218582051046259}, {0.6775139376472904, 2.244444765127566}, {0.6656372590133958, 2.2563214437614594`}, { 0.6775139376472904, 2.244444765127566}, {0.6775139376472897, 2.2612409251275656`}, {0.6775139376472904, 2.244444765127566}, { 0.6882266245795468, 2.218582051046259}, {0.6989393115118009, 2.2444447651275667`}, {0.6989393115118001, 2.2612409251275665`}, { 0.6989393115118009, 2.2444447651275667`}, {0.7108159901456945, 2.256321443761461}, {0.698939311511801, 2.2444447651275667`}, { 0.6882266245795469, 2.218582051046259}, {0.6882266245795489, 2.1719260510462592`}, {0.7212173985625866, 2.2049168250293}, { 0.7319300854948407, 2.230779539110608}, {0.73193008549484, 2.2475756991106075`}, {0.7319300854948407, 2.230779539110608}, { 0.7438067641287343, 2.242656217744502}, {0.7319300854948407, 2.230779539110608}, {0.7212173985625866, 2.2049168250293}, { 0.7470801126438937, 2.215629511961556}, {0.7589567912777873, 2.2275061905954505`}, {0.7470801126438937, 2.215629511961556}, { 0.7638762726438936, 2.215629511961557}, {0.7470801126438937, 2.215629511961556}, {0.7212173985625866, 2.2049168250293}, { 0.688226624579549, 2.1719260510462592`}, {0.6584691608788431, 2.100085178598181}, {0.7303100333269186, 2.129842642298893}, { 0.7633008073099563, 2.162833416281934}, {0.7740134942422104, 2.1886961303632417`}, {0.7740134942422097, 2.2054922903632415`}, { 0.7740134942422104, 2.1886961303632417`}, {0.785890172876104, 2.200572808997136}, {0.7740134942422104, 2.1886961303632417`}, { 0.7633008073099563, 2.162833416281934}, {0.7891635213912634, 2.17354610321419}, {0.801040200025157, 2.1854227818480845`}, { 0.7891635213912634, 2.17354610321419}, {0.8059596813912633, 2.173546103214191}, {0.7891635213912634, 2.17354610321419}, { 0.7633008073099563, 2.162833416281934}, {0.7303100333269187, 2.129842642298893}, {0.776966033326918, 2.1298426422988954`}, { 0.8028287474082252, 2.1405553292311517`}, {0.8147054260421187, 2.152432007865046}, {0.8028287474082252, 2.1405553292311517`}, { 0.819624907408225, 2.1405553292311525`}, {0.8028287474082252, 2.1405553292311517`}, {0.776966033326918, 2.1298426422988954`}, { 0.8028287474082262, 2.1191299553666414`}, {0.819624907408226, 2.1191299553666423`}, {0.8028287474082262, 2.1191299553666414`}, { 0.8147054260421208, 2.107253276732748}, {0.8028287474082262, 2.1191299553666414`}, {0.776966033326918, 2.1298426422988954`}, { 0.7303100333269187, 2.129842642298893}, {0.6584691608788433, 2.100085178598181}, {0.5668281220370721, 2.0084441397564015`}, { 0.48416850064622297`, 1.8088861607339624`}, {0.6837264796686546, 1.8915457821248298`}, {0.7753675185104258, 1.9831868209666095`}, { 0.8051249822111315, 2.0550276934146874`}, {0.8051249822111294, 2.101683693414687}, {0.7944122952788729, 2.127546407495994}, { 0.7825356166449783, 2.1394230861298875`}, {0.7944122952788729, 2.127546407495994}, {0.7944122952788721, 2.1443425674959937`}, { 0.7944122952788729, 2.127546407495994}, {0.8051249822111294, 2.101683693414687}, {0.8158376691433834, 2.127546407495995}, { 0.8158376691433826, 2.1443425674959946`}, {0.8158376691433834, 2.127546407495995}, {0.8277143477772769, 2.1394230861298897`}, { 0.8158376691433834, 2.127546407495995}, {0.8051249822111294, 2.101683693414687}, {0.8051249822111316, 2.0550276934146874`}, { 0.8381157561941692, 2.088018467397728}, {0.8488284431264232, 2.113881181479036}, {0.8488284431264225, 2.1306773414790356`}, { 0.8488284431264232, 2.113881181479036}, {0.8607051217603168, 2.1257578601129308`}, {0.8488284431264232, 2.113881181479036}, { 0.8381157561941692, 2.088018467397728}, {0.8639784702754764, 2.0987311543299842`}, {0.8758551489093699, 2.110607832963879}, { 0.8639784702754764, 2.0987311543299842`}, {0.8807746302754762, 2.098731154329985}, {0.8639784702754764, 2.0987311543299842`}, { 0.8381157561941692, 2.0880184673977276`}, {0.8051249822111316, 2.055027693414687}, {0.775367518510426, 1.9831868209666088`}, { 0.8472083909585013, 2.0129442846673213`}, {0.8801991649415388, 2.045935058650362}, {0.8909118518737928, 2.07179777273167}, { 0.8909118518737921, 2.0885939327316696`}, {0.8909118518737928, 2.07179777273167}, {0.9027885305076864, 2.0836744513655647`}, { 0.8909118518737928, 2.07179777273167}, {0.8801991649415388, 2.045935058650362}, {0.906061879022846, 2.0566477455826186`}, { 0.9179385576567395, 2.0685244242165135`}, {0.906061879022846, 2.0566477455826186`}, {0.9228580390228458, 2.0566477455826195`}, { 0.9060618790228461, 2.0566477455826186`}, {0.8801991649415389, 2.045935058650362}, {0.8472083909585014, 2.0129442846673213`}, { 0.8938643909585008, 2.0129442846673236`}, {0.9197271050398079, 2.0236569715995802`}, {0.9316037836737014, 2.035533650233475}, { 0.9197271050398079, 2.0236569715995802`}, {0.9365232650398077, 2.023656971599581}, {0.9197271050398079, 2.0236569715995802`}, { 0.8938643909585008, 2.0129442846673236`}, {0.9197271050398089, 2.0022315977350695`}, {0.9365232650398088, 2.0022315977350704`}, { 0.919727105039809, 2.0022315977350695`}, {0.9316037836737037, 1.990354919101176}, {0.919727105039809, 2.0022315977350695`}, { 0.8938643909585009, 2.0129442846673236`}, {0.8472083909585015, 2.0129442846673213`}, {0.7753675185104263, 1.9831868209666088`}, { 0.6837264796686554, 1.891545782124829}, {0.8133264796686537, 1.8915457821248352`}, {0.8851673521167289, 1.9213032458255477`}, { 0.9181581260997664, 1.9542940198085883`}, {0.9288708130320205, 1.9801567338898964`}, {0.9288708130320197, 1.9969528938898962`}, { 0.9288708130320205, 1.9801567338898964`}, {0.940747491665914, 1.992033412523791}, {0.9288708130320205, 1.9801567338898964`}, { 0.9181581260997665, 1.9542940198085883`}, {0.9440208401810737, 1.9650067067408448`}, {0.9558975188149672, 1.9768833853747394`}, { 0.9440208401810737, 1.9650067067408448`}, {0.9608170001810734, 1.9650067067408457`}, {0.9440208401810737, 1.9650067067408448`}, { 0.9181581260997667, 1.9542940198085883`}, {0.8851673521167291, 1.9213032458255475`}, {0.9318233521167285, 1.9213032458255497`}, { 0.9576860661980355, 1.9320159327578061`}, {0.9695627448319291, 1.9438926113917008`}, {0.9576860661980355, 1.9320159327578061`}, { 0.9744822261980353, 1.932015932757807}, {0.9576860661980355, 1.9320159327578061`}, {0.9318233521167285, 1.9213032458255497`}, { 0.9576860661980366, 1.9105905588932957`}, {0.9744822261980364, 1.9105905588932965`}, {0.9576860661980366, 1.9105905588932957`}, { 0.9695627448319313, 1.8987138802594021`}, {0.9576860661980366, 1.9105905588932957`}, {0.9318233521167285, 1.9213032458255497`}, { 0.8851673521167291, 1.9213032458255472`}, {0.813326479668654, 1.8915457821248347`}, {0.8851673521167321, 1.8617883184241293`}, { 0.9318233521167315, 1.8617883184241317`}, {0.9576860661980385, 1.8725010053563882`}, {0.969562744831932, 1.8843776839902828`}, { 0.9576860661980385, 1.8725010053563882`}, {0.9744822261980383, 1.872501005356389}, {0.9576860661980385, 1.8725010053563882`}, { 0.9318233521167315, 1.8617883184241317`}, {0.9576860661980396, 1.851075631491878}, {0.9744822261980394, 1.8510756314918788`}, { 0.9576860661980396, 1.851075631491878}, {0.9695627448319343, 1.8391989528579844`}, {0.9576860661980396, 1.851075631491878}, { 0.9318233521167315, 1.8617883184241317`}, {0.8851673521167321, 1.8617883184241293`}, {0.918158126099773, 1.828797544441092}, { 0.9440208401810811, 1.8180848575088382`}, {0.9608170001810808, 1.818084857508839}, {0.9440208401810811, 1.8180848575088382`}, { 0.9558975188149759, 1.8062081788749447`}, {0.9440208401810811, 1.8180848575088382`}, {0.918158126099773, 1.828797544441092}, { 0.9288708130320296, 1.802934830359785}, {0.9407474916659243, 1.7910581517258914`}, {0.9288708130320296, 1.802934830359785}, { 0.9288708130320305, 1.7861386703597852`}, {0.9288708130320296, 1.802934830359785}, {0.918158126099773, 1.828797544441092}, { 0.8851673521167321, 1.8617883184241293`}, {0.8133264796686539, 1.8915457821248345`}, {0.6837264796686557, 1.8915457821248278`}, { 0.4841685006462249, 1.8088861607339592`}, {0.22961005941908463`, 1.5543277195067924`}, {6.289413434501512*^-14, 1.000000000000016}, { 1.1507461650239748`*^-13, 2.9976021664879227`*^-14}}], PlotRange->All]], "Output", CellChangeTimes->{ 3.5160997033051414`*^9, {3.516099834332636*^9, 3.516099839497931*^9}, { 3.519845526201583*^9, 3.519845538261273*^9}, 3.5198536469889565`*^9, 3.5226158687527514`*^9}] }, Open ]] }, Open ]] }, WindowToolbars->{"RulerBar", "EditBar"}, CellGrouping->Manual, WindowSize->{1185, 912}, WindowMargins->{{333, Automatic}, {Automatic, 22}}, PrintingCopies->1, PrintingPageRange->{9, 9}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowSelection->True, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, Magnification->1, FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (2010\:5e7412\:67082\ \:65e5)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Info3522639132-4133947"->{ Cell[7154, 213, 121, 2, 42, "Print", CellTags->"Info3522639132-4133947"], Cell[7278, 217, 813, 23, 23, "Print", CellTags->"Info3522639132-4133947"]}, "Info3522639133-4133947"->{ Cell[8177, 248, 121, 2, 42, "Print", CellTags->"Info3522639133-4133947"], Cell[8301, 252, 855, 24, 26, "Print", CellTags->"Info3522639133-4133947"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info3522639132-4133947", 296098, 7307}, {"Info3522639133-4133947", 296287, 7312} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[572, 22, 307, 8, 88, "Title"], Cell[882, 32, 1622, 23, 119, "Text"], Cell[CellGroupData[{ Cell[2529, 59, 255, 6, 51, "Subtitle", Evaluatable->False], Cell[CellGroupData[{ Cell[2809, 69, 73, 0, 71, "Section"], Cell[2885, 71, 157, 3, 29, "Text"], Cell[3045, 76, 121, 4, 31, "Input"], Cell[CellGroupData[{ Cell[3191, 84, 169, 5, 31, "Input"], Cell[3363, 91, 261, 7, 33, "Output"] }, Open ]], Cell[3639, 101, 510, 8, 29, "Text"], Cell[CellGroupData[{ Cell[4174, 113, 102, 3, 31, "Input"], Cell[4279, 118, 142, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4458, 126, 169, 5, 31, "Input"], Cell[4630, 133, 221, 6, 33, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4900, 145, 63, 0, 71, "Section"], Cell[4966, 147, 214, 4, 29, "Text"], Cell[5183, 153, 158, 5, 33, "Input"], Cell[5344, 160, 159, 5, 33, "Input"], Cell[CellGroupData[{ Cell[5528, 169, 182, 6, 31, "Input"], Cell[5713, 177, 359, 11, 33, "Output"] }, Open ]], Cell[6087, 191, 993, 15, 47, "Text"], Cell[CellGroupData[{ Cell[7105, 210, 46, 1, 31, "Input"], Cell[7154, 213, 121, 2, 42, "Print", CellTags->"Info3522639132-4133947"], Cell[7278, 217, 813, 23, 23, "Print", CellTags->"Info3522639132-4133947"] }, Open ]], Cell[CellGroupData[{ Cell[8128, 245, 46, 1, 31, "Input"], Cell[8177, 248, 121, 2, 42, "Print", CellTags->"Info3522639133-4133947"], Cell[8301, 252, 855, 24, 26, "Print", CellTags->"Info3522639133-4133947"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9205, 282, 49, 0, 71, "Section"], Cell[9257, 284, 335, 5, 29, "Text"], Cell[9595, 291, 170, 2, 29, "Text"], Cell[9768, 295, 108, 3, 31, "Input"], Cell[CellGroupData[{ Cell[9901, 302, 59, 1, 31, "Input"], Cell[9963, 305, 148, 3, 30, "Output"] }, Open ]], Cell[10126, 311, 250, 4, 29, "Text"], Cell[10379, 317, 212, 7, 52, "Input"], Cell[CellGroupData[{ Cell[10616, 328, 336, 10, 45, "Subsubsection"], Cell[10955, 340, 250, 4, 29, "Text"], Cell[11208, 346, 526, 19, 103, "Input"], Cell[11737, 367, 64, 0, 29, "Text"], Cell[CellGroupData[{ Cell[11826, 371, 189, 6, 31, "Input"], Cell[12018, 379, 2749, 51, 239, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[14806, 435, 43, 0, 71, "Section"], Cell[CellGroupData[{ Cell[14874, 439, 24, 0, 28, "Subsection"], Cell[14901, 441, 332, 5, 29, "Text"], Cell[15236, 448, 230, 7, 31, "Input"] }, Open ]], Cell[15481, 458, 90, 1, 29, "Text"], Cell[15574, 461, 252, 8, 45, "Input"], Cell[CellGroupData[{ Cell[15851, 473, 27, 0, 36, "Subsection"], Cell[15881, 475, 133, 3, 29, "Text"], Cell[16017, 480, 387, 12, 47, "Input"] }, Open ]], Cell[16419, 495, 197, 5, 28, "Subsubsection"], Cell[16619, 502, 12169, 723, 100, 10531, 693, "GraphicsData", "PostScript", \ "Graphics"], Cell[CellGroupData[{ Cell[28813, 1229, 271, 6, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[29109, 1239, 451, 14, 31, "Input"], Cell[29563, 1255, 16630, 291, 251, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[46242, 1552, 43, 0, 71, "Section"], Cell[46288, 1554, 372, 6, 29, "Text"], Cell[CellGroupData[{ Cell[46685, 1564, 25, 0, 36, "Subsection"], Cell[CellGroupData[{ Cell[46735, 1568, 236, 7, 31, "Input"], Cell[46974, 1577, 148, 3, 23, "Print"], Cell[47125, 1582, 148, 3, 23, "Print"], Cell[47276, 1587, 150, 3, 23, "Print"], Cell[47429, 1592, 149, 3, 23, "Print"] }, Open ]], Cell[47593, 1598, 90, 1, 29, "Text"], Cell[CellGroupData[{ Cell[47708, 1603, 375, 13, 72, "Input"], Cell[48086, 1618, 236, 5, 30, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[48371, 1629, 24, 0, 36, "Subsection"], Cell[CellGroupData[{ Cell[48420, 1633, 208, 7, 31, "Input"], Cell[48631, 1642, 172, 3, 23, "Print"], Cell[48806, 1647, 172, 3, 23, "Print"], Cell[48981, 1652, 170, 3, 23, "Print"], Cell[49154, 1657, 171, 3, 23, "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[49386, 1667, 23, 0, 71, "Section"], Cell[49412, 1669, 126, 1, 29, "Text"], Cell[49541, 1672, 319, 7, 31, "Input"], Cell[CellGroupData[{ Cell[49885, 1683, 433, 12, 72, "Input"], Cell[50321, 1697, 366, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50724, 1711, 363, 10, 72, "Input"], Cell[51090, 1723, 312, 7, 30, "Output"] }, Open ]], Cell[51417, 1733, 264, 5, 29, "Text"], Cell[CellGroupData[{ Cell[51706, 1742, 256, 6, 31, "Input"], Cell[51965, 1750, 312, 7, 30, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[52338, 1764, 112, 1, 49, "Subtitle"], Cell[52453, 1767, 595, 10, 29, "Text"], Cell[CellGroupData[{ Cell[53073, 1781, 24, 0, 71, "Section"], Cell[53100, 1783, 498, 8, 29, "Text"], Cell[CellGroupData[{ Cell[53623, 1795, 140, 4, 31, "Input"], Cell[53766, 1801, 253, 5, 30, "Output"] }, Open ]], Cell[54034, 1809, 52, 0, 29, "Text"], Cell[CellGroupData[{ Cell[54111, 1813, 143, 4, 31, "Input"], Cell[54257, 1819, 175, 3, 30, "Output"] }, Open ]], Cell[54447, 1825, 267, 5, 29, "Text"], Cell[CellGroupData[{ Cell[54739, 1834, 118, 3, 31, "Input"], Cell[54860, 1839, 358, 11, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55255, 1855, 156, 3, 31, "Input"], Cell[55414, 1860, 169, 3, 30, "Output"] }, Open ]] }, Open ]], Cell[55610, 1867, 431, 10, 28, "Subsubsection"], Cell[56044, 1879, 262, 4, 26, "Text"], Cell[56309, 1885, 212, 6, 31, "Input"], Cell[56524, 1893, 218, 4, 27, "Subsubsection"], Cell[CellGroupData[{ Cell[56767, 1901, 22, 0, 41, "Section"], Cell[56792, 1903, 270, 5, 29, "Text"], Cell[57065, 1910, 258, 5, 31, "Input"], Cell[CellGroupData[{ Cell[57348, 1919, 138, 4, 31, "Input"], Cell[57489, 1925, 358, 9, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[57884, 1939, 113, 3, 31, "Input"], Cell[58000, 1944, 313, 7, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[58350, 1956, 140, 4, 31, "Input"], Cell[58493, 1962, 315, 7, 30, "Output"] }, Open ]], Cell[58823, 1972, 363, 6, 29, "Text"], Cell[59189, 1980, 123, 2, 31, "Input"], Cell[59315, 1984, 202, 6, 31, "Input"], Cell[CellGroupData[{ Cell[59542, 1994, 111, 3, 31, "Input"], Cell[59656, 1999, 447, 11, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[60140, 2015, 138, 4, 31, "Input"], Cell[60281, 2021, 470, 13, 30, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[60800, 2040, 73, 0, 71, "Section"], Cell[60876, 2042, 505, 8, 29, "Text"], Cell[61384, 2052, 165, 2, 29, "Text"], Cell[61552, 2056, 105, 3, 31, "Input"], Cell[CellGroupData[{ Cell[61682, 2063, 141, 4, 31, "Input"], Cell[61826, 2069, 224, 4, 30, "Output"] }, Open ]], Cell[62065, 2076, 232, 4, 29, "Text"], Cell[CellGroupData[{ Cell[62322, 2084, 182, 6, 31, "Input"], Cell[62507, 2092, 224, 4, 30, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[62804, 2104, 275, 6, 51, "Subtitle", Evaluatable->False], Cell[63082, 2112, 141, 1, 71, "Section"], Cell[63226, 2115, 308, 7, 26, "Text"], Cell[63537, 2124, 184, 6, 35, "Subsection", Evaluatable->False], Cell[63724, 2132, 265, 4, 26, "Text"], Cell[63992, 2138, 197, 7, 31, "Input"], Cell[64192, 2147, 310, 12, 47, "Input"], Cell[CellGroupData[{ Cell[64527, 2163, 728, 23, 92, "Input"], Cell[65258, 2188, 3546, 64, 242, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[68841, 2257, 275, 10, 31, "Input"], Cell[69119, 2269, 7130, 133, 99, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[76286, 2407, 215, 7, 32, "Subsection", Evaluatable->False], Cell[76504, 2416, 302, 17, 184, "Input"] }, Open ]], Cell[76821, 2436, 64, 1, 36, "Subsection", Evaluatable->False], Cell[CellGroupData[{ Cell[76910, 2441, 460, 16, 66, "Input"], Cell[77373, 2459, 183, 4, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77593, 2468, 193, 7, 31, "Input"], Cell[77789, 2477, 138, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77964, 2484, 101, 3, 31, "Input"], Cell[78068, 2489, 163, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[78268, 2496, 230, 9, 40, "Input"], Cell[78501, 2507, 164, 2, 30, "Output"] }, Open ]], Cell[78680, 2512, 221, 5, 28, "Subsubsection"], Cell[78904, 2519, 216, 2, 26, "Text"], Cell[79123, 2523, 723, 23, 72, "Input"], Cell[79849, 2548, 116, 1, 29, "Text"], Cell[CellGroupData[{ Cell[79990, 2553, 198, 7, 31, "Input"], Cell[80191, 2562, 151, 3, 47, "Output"] }, Open ]], Cell[80357, 2568, 490, 11, 28, "Subsubsection"], Cell[CellGroupData[{ Cell[80872, 2583, 63, 1, 28, "Subsection", Evaluatable->False], Cell[80938, 2586, 157, 2, 29, "Text"], Cell[CellGroupData[{ Cell[81120, 2592, 259, 9, 52, "Input"], Cell[81382, 2603, 203, 4, 47, "Output"] }, Open ]], Cell[81600, 2610, 85, 1, 29, "Text"], Cell[81688, 2613, 568, 17, 72, "Input"], Cell[82259, 2632, 116, 1, 29, "Text"], Cell[CellGroupData[{ Cell[82400, 2637, 81, 2, 31, "Input"], Cell[82484, 2641, 216, 4, 30, "Output"] }, Open ]] }, Open ]], Cell[82727, 2649, 91, 1, 29, "Text"], Cell[CellGroupData[{ Cell[82843, 2654, 174, 5, 31, "Input"], Cell[83020, 2661, 883, 15, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[83940, 2681, 145, 4, 36, "Subsection", Evaluatable->False], Cell[84088, 2687, 463, 7, 29, "Text"], Cell[84554, 2696, 452, 7, 29, "Text"], Cell[85009, 2705, 164, 5, 31, "Input"], Cell[85176, 2712, 216, 7, 31, "Input"], Cell[85395, 2721, 96, 1, 29, "Text"], Cell[CellGroupData[{ Cell[85516, 2726, 124, 2, 31, "Input"], Cell[85643, 2730, 202, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[85882, 2738, 86, 2, 31, "Input"], Cell[85971, 2742, 236, 5, 30, "Output"] }, Open ]], Cell[86222, 2750, 559, 8, 29, "Text"], Cell[86784, 2760, 166, 5, 31, "Input"], Cell[86953, 2767, 279, 9, 31, "Input"], Cell[87235, 2778, 70, 0, 29, "Text"], Cell[CellGroupData[{ Cell[87330, 2782, 87, 2, 31, "Input"], Cell[87420, 2786, 225, 5, 30, "Output"] }, Open ]], Cell[87660, 2794, 589, 9, 29, "Text"], Cell[88252, 2805, 232, 4, 29, "Text"], Cell[88487, 2811, 384, 13, 69, "Input"], Cell[88874, 2826, 114, 1, 29, "Text"], Cell[CellGroupData[{ Cell[89013, 2831, 81, 2, 31, "Input"], Cell[89097, 2835, 142, 3, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[89276, 2843, 224, 7, 31, "Input"], Cell[89503, 2852, 425, 9, 30, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[89977, 2867, 95, 1, 36, "Subsection", Evaluatable->False], Cell[90075, 2870, 335, 6, 29, "Text"], Cell[90413, 2878, 80, 2, 31, "Input"], Cell[90496, 2882, 67, 2, 31, "Input"], Cell[CellGroupData[{ Cell[90588, 2888, 112, 3, 31, "Input"], Cell[90703, 2893, 205, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[90945, 2903, 116, 3, 31, "Input"], Cell[91064, 2908, 362, 10, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[91463, 2923, 114, 3, 31, "Input"], Cell[91580, 2928, 211, 5, 30, "Output"] }, Open ]], Cell[91806, 2936, 210, 5, 29, "Text"], Cell[CellGroupData[{ Cell[92041, 2945, 216, 8, 47, "Input"], Cell[92260, 2955, 545, 15, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[92842, 2975, 137, 4, 31, "Input"], Cell[92982, 2981, 1175, 30, 206, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[94206, 3017, 202, 3, 71, "Section"], Cell[94411, 3022, 480, 8, 29, "Text"], Cell[CellGroupData[{ Cell[94916, 3034, 1150, 30, 172, "Input"], Cell[96069, 3066, 224, 4, 23, "Print"], Cell[96296, 3072, 225, 4, 23, "Print"], Cell[96524, 3078, 226, 4, 23, "Print"], Cell[96753, 3084, 226, 4, 23, "Print"], Cell[96982, 3090, 226, 4, 23, "Print"], Cell[97211, 3096, 227, 4, 23, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[97487, 3106, 528, 8, 27, "Subsubsection"], Cell[98018, 3116, 1350, 35, 210, "Input"] }, Closed]], Cell[99383, 3154, 231, 4, 26, "Text"], Cell[99617, 3160, 105, 1, 71, "Section"], Cell[99725, 3163, 783, 12, 44, "Text"], Cell[CellGroupData[{ Cell[100533, 3179, 61, 1, 31, "Input"], Cell[100597, 3182, 184, 4, 30, "Output"] }, Open ]], Cell[100796, 3189, 449, 11, 29, "Text"], Cell[101248, 3202, 204, 6, 31, "Input"], Cell[CellGroupData[{ Cell[101477, 3212, 67, 1, 31, "Input"], Cell[101547, 3215, 176, 4, 30, "Output"] }, Open ]], Cell[101738, 3222, 439, 7, 29, "Text"], Cell[CellGroupData[{ Cell[102202, 3233, 143, 4, 31, "Input"], Cell[102348, 3239, 119, 2, 30, "Output"] }, Open ]], Cell[102482, 3244, 231, 7, 31, "Input"], Cell[CellGroupData[{ Cell[102738, 3255, 60, 1, 31, "Input"], Cell[102801, 3258, 122, 2, 30, "Output"] }, Open ]], Cell[102938, 3263, 253, 5, 29, "Text"], Cell[103194, 3270, 181, 5, 31, "Input"], Cell[CellGroupData[{ Cell[103400, 3279, 62, 1, 31, "Input"], Cell[103465, 3282, 177, 4, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[103679, 3291, 215, 4, 27, "Subsubsection"], Cell[103897, 3297, 444, 14, 31, "Input"], Cell[CellGroupData[{ Cell[104366, 3315, 59, 1, 31, "Input"], Cell[104428, 3318, 177, 4, 30, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[104654, 3328, 31, 0, 71, "Section"], Cell[104688, 3330, 417, 7, 29, "Text"], Cell[CellGroupData[{ Cell[105130, 3341, 90, 1, 36, "Subsection"], Cell[105223, 3344, 182, 2, 29, "Text"], Cell[CellGroupData[{ Cell[105430, 3350, 62, 1, 31, "Input"], Cell[105495, 3353, 95, 1, 30, "Output"] }, Open ]], Cell[105605, 3357, 171, 2, 29, "Text"], Cell[CellGroupData[{ Cell[105801, 3363, 69, 1, 31, "Input"], Cell[105873, 3366, 239, 7, 30, "Output"] }, Open ]], Cell[106127, 3376, 186, 2, 29, "Text"], Cell[CellGroupData[{ Cell[106338, 3382, 59, 1, 31, "Input"], Cell[106400, 3385, 95, 1, 30, "Output"] }, Open ]], Cell[106510, 3389, 172, 2, 29, "Text"], Cell[CellGroupData[{ Cell[106707, 3395, 174, 5, 31, "Input"], Cell[106884, 3402, 232, 5, 30, "Output"] }, Open ]], Cell[107131, 3410, 96, 1, 29, "Text"], Cell[CellGroupData[{ Cell[107252, 3415, 115, 3, 31, "Input"], Cell[107370, 3420, 230, 5, 30, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[107649, 3431, 200, 2, 27, "Subsubsection"], Cell[107852, 3435, 252, 5, 29, "Text"], Cell[CellGroupData[{ Cell[108129, 3444, 62, 1, 31, "Input"], Cell[108194, 3447, 97, 1, 30, "Output"] }, Open ]], Cell[108306, 3451, 122, 1, 29, "Text"], Cell[CellGroupData[{ Cell[108453, 3456, 174, 5, 31, "Input"], Cell[108630, 3463, 403, 7, 30, "Output"] }, Open ]], Cell[109048, 3473, 96, 1, 29, "Text"], Cell[CellGroupData[{ Cell[109169, 3478, 115, 3, 31, "Input"], Cell[109287, 3483, 403, 7, 30, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[109739, 3496, 52, 0, 36, "Subsection"], Cell[109794, 3498, 156, 1, 29, "Text"], Cell[CellGroupData[{ Cell[109975, 3503, 177, 5, 31, "Input"], Cell[110155, 3510, 10933, 185, 240, "Output"] }, Open ]], Cell[121103, 3698, 450, 7, 29, "Text"], Cell[CellGroupData[{ Cell[121578, 3709, 339, 10, 31, "Input"], Cell[121920, 3721, 15464, 261, 233, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[137445, 3989, 43, 0, 71, "Section"], Cell[137491, 3991, 564, 9, 29, "Text"], Cell[CellGroupData[{ Cell[138080, 4004, 246, 6, 31, "Input"], Cell[138329, 4012, 430, 8, 30, "Output"] }, Open ]], Cell[138774, 4023, 616, 9, 29, "Text"], Cell[CellGroupData[{ Cell[139415, 4036, 590, 10, 31, "Input"], Cell[140008, 4048, 1876, 56, 50, "Output"] }, Open ]], Cell[141899, 4107, 273, 5, 29, "Text"], Cell[CellGroupData[{ Cell[142197, 4116, 314, 11, 31, "Input"], Cell[142514, 4129, 603, 19, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[143154, 4153, 59, 1, 31, "Input"], Cell[143216, 4156, 96, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[143349, 4162, 527, 8, 43, "Subsubsection"], Cell[143879, 4172, 623, 20, 31, "Input"], Cell[CellGroupData[{ Cell[144527, 4196, 62, 1, 31, "Input"], Cell[144592, 4199, 97, 1, 30, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[144750, 4207, 55, 0, 71, "Section"], Cell[144808, 4209, 639, 12, 47, "Text"], Cell[145450, 4223, 500, 14, 32, "Text"], Cell[CellGroupData[{ Cell[145975, 4241, 284, 9, 31, "Input"], Cell[146262, 4252, 238, 5, 30, "Output"] }, Open ]], Cell[146515, 4260, 96, 1, 29, "Text"], Cell[CellGroupData[{ Cell[146636, 4265, 204, 7, 31, "Input"], Cell[146843, 4274, 238, 5, 30, "Output"] }, Open ]], Cell[147096, 4282, 291, 8, 29, "Text"], Cell[CellGroupData[{ Cell[147412, 4294, 238, 8, 31, "Input"], Cell[147653, 4304, 261, 6, 30, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[147963, 4316, 87, 1, 71, "Section"], Cell[148053, 4319, 382, 11, 29, "Text"], Cell[CellGroupData[{ Cell[148460, 4334, 214, 7, 31, "Input"], Cell[148677, 4343, 261, 5, 30, "Output"] }, Open ]], Cell[148953, 4351, 337, 12, 29, "Text"], Cell[CellGroupData[{ Cell[149315, 4367, 250, 8, 33, "Input"], Cell[149568, 4377, 231, 5, 30, "Output"] }, Open ]], Cell[149814, 4385, 419, 12, 29, "Text"], Cell[CellGroupData[{ Cell[150258, 4401, 315, 11, 31, "Input"], Cell[150576, 4414, 301, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[150914, 4425, 110, 3, 33, "Input"], Cell[151027, 4430, 97, 1, 30, "Output"] }, Open ]], Cell[151139, 4434, 604, 9, 29, "Text"] }, Open ]], Cell[151758, 4446, 89, 1, 71, "Section"], Cell[151850, 4449, 758, 11, 44, "Text"], Cell[152611, 4462, 357, 6, 29, "Text"], Cell[152971, 4470, 301, 5, 29, "Text"], Cell[CellGroupData[{ Cell[153297, 4479, 200, 5, 31, "Input"], Cell[153500, 4486, 254, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[153791, 4497, 194, 5, 31, "Input"], Cell[153988, 4504, 242, 6, 30, "Output"] }, Open ]], Cell[154245, 4513, 352, 6, 29, "Text"], Cell[CellGroupData[{ Cell[154622, 4523, 350, 10, 31, "Input"], Cell[154975, 4535, 139, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[155151, 4543, 269, 5, 27, "Subsubsection"], Cell[155423, 4550, 346, 11, 31, "Input"] }, Open ]], Cell[155784, 4564, 37, 0, 29, "Text"], Cell[CellGroupData[{ Cell[155846, 4568, 94, 2, 31, "Input"], Cell[155943, 4572, 141, 3, 30, "Output"] }, Open ]], Cell[156099, 4578, 120, 1, 29, "Text"], Cell[CellGroupData[{ Cell[156244, 4583, 168, 5, 31, "Input"], Cell[156415, 4590, 296, 10, 23, "Print"], Cell[156714, 4602, 370, 12, 23, "Print"], Cell[157087, 4616, 296, 10, 23, "Print"], Cell[157386, 4628, 359, 12, 23, "Print"], Cell[157748, 4642, 294, 10, 23, "Print"], Cell[158045, 4654, 346, 12, 23, "Print"], Cell[158394, 4668, 294, 10, 23, "Print"], Cell[158691, 4680, 331, 12, 23, "Print"], Cell[159025, 4694, 145, 3, 30, "Output"] }, Open ]], Cell[159185, 4700, 137, 1, 71, "Section"], Cell[159325, 4703, 266, 3, 26, "Text"], Cell[159594, 4708, 470, 8, 29, "Text"], Cell[160067, 4718, 413, 8, 29, "Text"], Cell[160483, 4728, 170, 6, 82, "Input"], Cell[160656, 4736, 114, 1, 29, "Text"], Cell[CellGroupData[{ Cell[160795, 4741, 91, 2, 31, "Input"], Cell[160889, 4745, 398, 9, 30, "Output"] }, Open ]], Cell[161302, 4757, 370, 6, 29, "Text"], Cell[CellGroupData[{ Cell[161697, 4767, 209, 6, 31, "Input"], Cell[161909, 4775, 7855, 183, 278, "Output"] }, Open ]], Cell[169779, 4961, 161, 2, 29, "Text"], Cell[169943, 4965, 372, 6, 27, "Subsubsection"], Cell[170318, 4973, 147, 1, 26, "Text"], Cell[CellGroupData[{ Cell[170490, 4978, 129, 4, 48, "Input"], Cell[170622, 4984, 1536, 30, 241, "Output"] }, Open ]], Cell[172173, 5017, 416, 7, 29, "Text"], Cell[172592, 5026, 318, 5, 29, "Text"], Cell[CellGroupData[{ Cell[172935, 5035, 99, 4, 48, "Input"], Cell[173037, 5041, 10846, 143, 487, "Output"] }, Open ]], Cell[183898, 5187, 90, 1, 29, "Text"], Cell[CellGroupData[{ Cell[184013, 5192, 48, 1, 31, "Input"], Cell[184064, 5195, 145, 2, 30, "Output"] }, Open ]], Cell[184224, 5200, 121, 1, 29, "Text"], Cell[CellGroupData[{ Cell[184370, 5205, 57, 1, 31, "Input"], Cell[184430, 5208, 186, 4, 30, "Output"] }, Open ]], Cell[184631, 5215, 114, 1, 29, "Text"], Cell[CellGroupData[{ Cell[184770, 5220, 160, 2, 71, "Section"], Cell[CellGroupData[{ Cell[184955, 5226, 70, 0, 36, "Subsection"], Cell[185028, 5228, 862, 12, 47, "Text"], Cell[185893, 5242, 378, 13, 31, "Input"], Cell[186274, 5257, 568, 19, 31, "Input"], Cell[186845, 5278, 567, 19, 31, "Input"], Cell[187415, 5299, 199, 6, 31, "Input"], Cell[187617, 5307, 196, 6, 31, "Input"], Cell[187816, 5315, 154, 3, 29, "Text"], Cell[187973, 5320, 638, 15, 31, "Input"] }, Open ]], Cell[188626, 5338, 199, 3, 27, "Subsubsection"], Cell[CellGroupData[{ Cell[188850, 5345, 396, 9, 25, "Input"], Cell[189249, 5356, 414, 10, 189, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[189700, 5371, 40, 0, 36, "Subsection"], Cell[189743, 5373, 229, 3, 29, "Text"], Cell[189975, 5378, 407, 13, 31, "Input"], Cell[190385, 5393, 64, 0, 29, "Text"], Cell[CellGroupData[{ Cell[190474, 5397, 276, 4, 31, "Input"], Cell[190753, 5403, 734, 15, 222, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[191536, 5424, 70, 0, 36, "Subsection"], Cell[191609, 5426, 226, 4, 29, "Text"], Cell[191838, 5432, 455, 14, 31, "Input"], Cell[CellGroupData[{ Cell[192318, 5450, 251, 5, 31, "Input"], Cell[192572, 5457, 1853, 35, 259, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[194464, 5497, 432, 6, 27, "Subsubsection"], Cell[CellGroupData[{ Cell[194921, 5507, 61, 0, 41, "Section"], Cell[194985, 5509, 556, 9, 29, "Text"], Cell[195544, 5520, 171, 5, 31, "Input"], Cell[195718, 5527, 1193, 28, 172, "Input"], Cell[196914, 5557, 1025, 14, 47, "Text"], Cell[197942, 5573, 293, 9, 31, "Input"], Cell[CellGroupData[{ Cell[198260, 5586, 289, 7, 31, "Input"], Cell[198552, 5595, 17634, 260, 74, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[216235, 5861, 132, 2, 31, "Input"], Cell[216370, 5865, 27145, 469, 204, "Output"] }, Open ]], Cell[243530, 6337, 270, 5, 27, "Subsubsection"], Cell[243803, 6344, 48, 0, 41, "Section"], Cell[243854, 6346, 359, 6, 26, "Text"], Cell[244216, 6354, 1277, 32, 172, "Input"], Cell[245496, 6388, 70, 0, 29, "Text"], Cell[245569, 6390, 854, 23, 112, "Input"], Cell[246426, 6415, 126, 1, 29, "Text"], Cell[CellGroupData[{ Cell[246577, 6420, 219, 4, 31, "Input"], Cell[246799, 6426, 48631, 855, 447, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature KvTRP2mVFj96ODKFnSW3SqM7 *)