(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.4' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 31767, 841] NotebookOptionsPosition[ 28014, 778] NotebookOutlinePosition[ 28467, 796] CellTagsIndexPosition[ 28424, 793] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"20200930", RowBox[{"fourier", ".", "nb"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"\:8a55\:4fa1", "\[RightArrow]", "\:30ce"}], "\:30fc", "\:30c8\:30d6\:30c3\:30af\:3092\:8a55\:4fa1"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.715477528108144*^9, 3.7154775835611143`*^9}, { 3.7480837228512983`*^9, 3.748083736672035*^9}, {3.778708765614819*^9, 3.778708769704362*^9}, {3.8098135341722717`*^9, 3.8098135444282618`*^9}}, CellLabel-> "In[112]:=",ExpressionUUID->"cbac25e4-d9fc-4de6-9fd5-a3ce8d94f698"], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"Part", " ", "1"}], ":", " ", RowBox[{"\:95a2\:6570", " ", "f", " ", "\:306e\:8a2d\:5b9a"}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.778709050768214*^9, 3.778709060679296*^9}, { 3.778709096303063*^9, 3.778709102114743*^9}}, CellLabel-> "In[113]:=",ExpressionUUID->"cb5108be-7668-4ec7-93b9-67721880f26f"], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{ "f0", ",", "f", ",", "g0", ",", "g", ",", "s", ",", "sg", ",", "x", ",", "k", ",", "ak"}], "]"}]], "Input", CellChangeTimes->{{3.715476791113186*^9, 3.715476798966383*^9}, { 3.7154771344916973`*^9, 3.7154771387698803`*^9}, {3.715477262984098*^9, 3.7154772749120502`*^9}}, CellLabel-> "In[114]:=",ExpressionUUID->"421f3830-d8a8-47d4-bbbe-13e0e325659a"], Cell[BoxData[ RowBox[{ RowBox[{"f0", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"x", "^", "2"}], "/", "2"}]}]], "Input", CellChangeTimes->{{3.6840243143034887`*^9, 3.6840243312606983`*^9}, { 3.7481319712550583`*^9, 3.748131972555114*^9}}, CellLabel-> "In[115]:=",ExpressionUUID->"b73cec8e-e96f-4407-9394-88bb5d5f7559"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"f0", "[", RowBox[{"Mod", "[", RowBox[{"x", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"-", "Pi"}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.68402433210324*^9, 3.684024366448016*^9}}, CellLabel-> "In[116]:=",ExpressionUUID->"f7bf811d-2be0-45a3-83af-7b93d73c065e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"??", "Mod"}]], "Input", CellChangeTimes->{{3.715476620764483*^9, 3.715476621904845*^9}, 3.809827291774066*^9}, CellLabel-> "In[117]:=",ExpressionUUID->"f6574ce9-3531-44ef-991e-15d2ce27cfdc"], Cell[BoxData[ InterpretationBox[ StyleBox[ FrameBox[ DynamicModuleBox[{System`InformationDump`open$$ = True, System`InformationDump`mouseOver$$ = False}, PaneSelectorBox[{True-> TagBox[GridBox[{ { ItemBox[ PaneBox[ StyleBox["\<\" Symbol\"\>", "InformationTitleText", StripOnInput->False, BaseStyle -> None], FrameMargins->{{4, 0}, {-1, 1}}], BaseStyle->"InformationTitleBackground", StripOnInput->False], ItemBox[ PaneBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "InformationHelpIcon"], ImageSizeCache->{20., {6., 14.}}], True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "InformationHelpIconHot"], ImageSizeCache->{20., {6., 14.}}]}, Dynamic[ CurrentValue["MouseOver"]]], Appearance->None, BaseStyle->"Link", ButtonData->"paclet:ref/Mod", ButtonNote->"paclet:ref/Mod"], "\"paclet:ref/Mod\""], FrameMargins->{{0, 4}, {0, 2}}], BaseStyle->"InformationTitleBackground", StripOnInput->False]}, { ItemBox[ PaneBox[ StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Mod\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"m\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"n\\\", \ \\\"TI\\\"]}], \\\"]\\\"}]\\) \\!\\(\\*StyleBox[\\\"m\\\", \\\"TI\\\"]\\) \ \:3092 \\!\\(\\*StyleBox[\\\"n\\\", \\\"TI\\\"]\\) \:3067\:5272\:3063\:305f\ \:5546\:306e\:5270\:4f59\:3092\:4e0e\:3048\:308b\:ff0e\\n\\!\\(\\*RowBox[{\\\"\ Mod\\\", \\\"[\\\", RowBox[{StyleBox[\\\"m\\\", \\\"TI\\\"], \\\",\\\", \ StyleBox[\\\"n\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"d\\\", \ \\\"TI\\\"]}], \\\"]\\\"}]\\) \:30aa\:30d5\:30bb\:30c3\:30c8 \ \\!\\(\\*StyleBox[\\\"d\\\", \\\"TI\\\"]\\) \:3092\:4f7f\:3046\:ff0e\"\>", "InformationUsageText", StripOnInput->False, LineSpacing->{1.5, 1.5, 3.}], FrameMargins->{{10, 10}, {8, 10}}], BaseStyle->"InformationUsageSubtitleBackground", StripOnInput->False], ItemBox["\<\"\"\>", BaseStyle->"InformationUsageSubtitleBackground", StripOnInput->False]}, { PaneBox[GridBox[{ { DynamicModuleBox[{System`InformationDump`open$$ = { False, False, False, False, False, False}}, StyleBox[GridBox[{ { TagBox[ TooltipBox[ StyleBox["\<\" Documentation\"\>", "InformationRowLabel", StripOnInput->False], "\"Documentation\"", TooltipStyle->"TextStyling"], Annotation[#, "Documentation", "Tooltip"]& ], TemplateBox[{ TemplateBox[{ "\"Local \[RightGuillemet]\"", "paclet:ref/Mod", "paclet:ref/Mod", "Link", { RGBColor[0.9686274509803922, 0.4666666666666667, 0.]}, BaseStyle -> { RGBColor[0.0784313725490196, 0.1568627450980392, 0.6]}}, "HyperlinkTemplate"], "\" \"", StyleBox[ "\"|\"", "InformationRowLabel", StripOnInput -> False], "\" \"", TemplateBox[{"\"Web \[RightGuillemet]\"", { URL["http://reference.wolfram.com/language/ref/Mod.html"], None}, "http://reference.wolfram.com/language/ref/Mod.html", "Hyperlink", { RGBColor[0.9686274509803922, 0.4666666666666667, 0.]}, BaseStyle -> { RGBColor[0.0784313725490196, 0.1568627450980392, 0.6]}}, "HyperlinkTemplate"]}, "RowDefault"]}, { TagBox[ TooltipBox[ StyleBox["\<\" Attributes\"\>", "InformationRowLabel", StripOnInput->False], "\"Attributes\"", TooltipStyle->"TextStyling"], Annotation[#, "Attributes", "Tooltip"]& ], RowBox[{"{", RowBox[{ "Listable", ",", "NumericFunction", ",", "Protected", ",", "ReadProtected"}], "}"}]}, { TagBox[ TooltipBox[ StyleBox["\<\" Full Name\"\>", "InformationRowLabel", StripOnInput->False], "\"FullName\"", TooltipStyle->"TextStyling"], Annotation[#, "FullName", "Tooltip"]& ], "\<\"System`Mod\"\>"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {Right, Left}}, GridBoxDividers->None, GridBoxItemSize->{"Columns" -> {Automatic, Automatic}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.8]}, Offset[0.2]}}], "DialogStyle", StripOnInput->False], DynamicModuleValues:>{}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[3.6]}, Offset[0.2]}}], FrameMargins->{{6, 6}, {6, 3}}], ""}, { ItemBox[ TagBox[ ButtonBox[ PaneSelectorBox[{False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "UpPointerOpener"], ImageSizeCache->{15., {2., 13.}}], True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "UpPointerOpenerHot"], ImageSizeCache->{15., {2., 13.}}]}, Dynamic[ System`InformationDump`mouseOver$$]], Alignment->Left, Appearance->{"Default" -> None}, ButtonFunction:>FEPrivate`Set[ System`InformationDump`open$$, False], Evaluator->Automatic, FrameMargins->{{9, 0}, {0, 0}}, ImageMargins->0, ImageSize->Full, Method->"Preemptive"], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[System`InformationDump`mouseOver$$, True], "MouseExited" :> FEPrivate`Set[System`InformationDump`mouseOver$$, False], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], BaseStyle->"InformationTitleBackground", StripOnInput->False], "\[SpanFromLeft]"} }, AutoDelete->False, FrameStyle->Directive[ GrayLevel[0.8], Thickness[Tiny]], GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}}, GridBoxDividers->{ "Columns" -> {{None}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], False-> TagBox[GridBox[{ { ItemBox[ PaneBox[ StyleBox["\<\" Symbol\"\>", "InformationTitleText", StripOnInput->False], FrameMargins->{{4, 0}, {-1, 1}}], BaseStyle->"InformationTitleBackground", StripOnInput->False], ItemBox[ PaneBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "InformationHelpIcon"]], True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "InformationHelpIconHot"]]}, Dynamic[ CurrentValue["MouseOver"]]], Appearance->None, BaseStyle->"Link", ButtonData->"paclet:ref/Mod", ButtonNote->"paclet:ref/Mod"], "\"paclet:ref/Mod\""], FrameMargins->{{0, 4}, {0, 2}}], BaseStyle->"InformationTitleBackground", StripOnInput->False]}, { ItemBox[ PaneBox[ StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Mod\\\", \\\"[\\\", \ RowBox[{StyleBox[\\\"m\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"n\\\", \ \\\"TI\\\"]}], \\\"]\\\"}]\\) \\!\\(\\*StyleBox[\\\"m\\\", \\\"TI\\\"]\\) \ \:3092 \\!\\(\\*StyleBox[\\\"n\\\", \\\"TI\\\"]\\) \:3067\:5272\:3063\:305f\ \:5546\:306e\:5270\:4f59\:3092\:4e0e\:3048\:308b\:ff0e\\n\\!\\(\\*RowBox[{\\\"\ Mod\\\", \\\"[\\\", RowBox[{StyleBox[\\\"m\\\", \\\"TI\\\"], \\\",\\\", \ StyleBox[\\\"n\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"d\\\", \ \\\"TI\\\"]}], \\\"]\\\"}]\\) \:30aa\:30d5\:30bb\:30c3\:30c8 \ \\!\\(\\*StyleBox[\\\"d\\\", \\\"TI\\\"]\\) \:3092\:4f7f\:3046\:ff0e\"\>", "InformationUsageText", StripOnInput->False, LineSpacing->{1.5, 1.5, 3.}], FrameMargins->{{10, 10}, {8, 10}}], BaseStyle->"InformationUsageSubtitleBackground", StripOnInput->False], ItemBox["\<\"\"\>", BaseStyle->"InformationUsageSubtitleBackground", StripOnInput->False]}, { ItemBox[ TagBox[ ButtonBox[ PaneSelectorBox[{False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "DownPointerOpener"]], True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "DownPointerOpenerHot"]]}, Dynamic[ System`InformationDump`mouseOver$$]], Alignment->Left, Appearance->{"Default" -> None}, ButtonFunction:>FEPrivate`Set[ System`InformationDump`open$$, True], Evaluator->Automatic, FrameMargins->{{9, 0}, {0, 0}}, ImageMargins->0, ImageSize->Full, Method->"Preemptive"], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[System`InformationDump`mouseOver$$, True], "MouseExited" :> FEPrivate`Set[System`InformationDump`mouseOver$$, False], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], BaseStyle->"InformationTitleBackground", StripOnInput->False], "\[SpanFromLeft]"} }, AutoDelete->False, FrameStyle->Directive[ GrayLevel[0.8], Thickness[Tiny]], GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}}, GridBoxDividers->{ "Columns" -> {{None}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]}, Dynamic[System`InformationDump`open$$], BaselinePosition->Baseline, FrameMargins->0, ImageSize->Automatic], DynamicModuleValues:>{}], BaseStyle->"InformationGridFrame", StripOnInput->False], "InformationGridPlain", StripOnInput->False], InformationData[ Association[ "ObjectType" -> "Symbol", "Usage" -> "\!\(\*RowBox[{\"Mod\", \"[\", RowBox[{StyleBox[\"m\", \"TI\"], \",\", \ StyleBox[\"n\", \"TI\"]}], \"]\"}]\) \!\(\*StyleBox[\"m\", \"TI\"]\) \:3092 \ \!\(\*StyleBox[\"n\", \"TI\"]\) \:3067\:5272\:3063\:305f\:5546\:306e\:5270\ \:4f59\:3092\:4e0e\:3048\:308b\:ff0e\n\!\(\*RowBox[{\"Mod\", \"[\", \ RowBox[{StyleBox[\"m\", \"TI\"], \",\", StyleBox[\"n\", \"TI\"], \",\", \ StyleBox[\"d\", \"TI\"]}], \"]\"}]\) \:30aa\:30d5\:30bb\:30c3\:30c8 \ \!\(\*StyleBox[\"d\", \"TI\"]\) \:3092\:4f7f\:3046\:ff0e", "Documentation" -> Association[ "Local" -> "paclet:ref/Mod", "Web" -> "http://reference.wolfram.com/language/ref/Mod.html"], "OwnValues" -> None, "UpValues" -> None, "DownValues" -> None, "SubValues" -> None, "DefaultValues" -> None, "NValues" -> None, "FormatValues" -> None, "Options" -> None, "Attributes" -> {Listable, NumericFunction, Protected, ReadProtected}, "FullName" -> "System`Mod"], True]]], "Output", CellChangeTimes->{3.829864727816328*^9}, CellLabel-> "Out[117]=",ExpressionUUID->"27894a29-fbd4-4328-bf26-75f702371b8c"] }, Open ]], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.684024345906453*^9, 3.6840243537950583`*^9}, { 3.684024453574738*^9, 3.684024456504429*^9}, {3.809825409365576*^9, 3.809825418067697*^9}}, CellLabel-> "In[118]:=",ExpressionUUID->"5ecc1dd4-6b19-4d1f-8f20-951ab3b5c6ec"], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"Part", " ", "2"}], ":", " ", RowBox[{ RowBox[{ "Fourier\:4fc2\:6570\:306e\:8a08\:7b97\:306e\:78ba\:8a8d", " ", "--"}], "-", " ", "\:7701\:7565\:53ef\:80fd"}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.778709116659334*^9, 3.778709156189528*^9}, { 3.7787091884129877`*^9, 3.7787091944656878`*^9}, {3.8098275632031393`*^9, 3.809827571311358*^9}}, CellLabel-> "In[119]:=",ExpressionUUID->"9a36b5a3-c699-47f1-a7eb-a0e98081d898"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ak", "=", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "x", "]"}], RowBox[{"Cos", "[", RowBox[{"k", " ", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}], "/", "Pi"}]}]], "Input", CellChangeTimes->{{3.715476634580945*^9, 3.7154766551928453`*^9}, { 3.7154768956615133`*^9, 3.71547689629777*^9}, {3.715476960796661*^9, 3.715476961554524*^9}, {3.7154770076176043`*^9, 3.715477008135099*^9}, { 3.715477049637259*^9, 3.715477110290966*^9}}, CellLabel-> "In[120]:=",ExpressionUUID->"a2622c28-50e2-48d0-9c81-b2f8a709803f"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", " ", "k", " ", "\[Pi]", " ", RowBox[{"Cos", "[", RowBox[{"k", " ", "\[Pi]"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"Sin", "[", RowBox[{"k", " ", "\[Pi]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["k", "2"], " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Sin", "[", RowBox[{"k", " ", "\[Pi]"}], "]"}]}]}], RowBox[{ SuperscriptBox["k", "3"], " ", "\[Pi]"}]]], "Output", CellChangeTimes->{3.8298647281598873`*^9}, CellLabel-> "Out[120]=",ExpressionUUID->"2e589449-813c-44fa-8746-e71b1a17c4d6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"ak", ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"Element", "[", RowBox[{"k", ",", "Integers"}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.715477112649356*^9, 3.715477127131001*^9}}, CellLabel-> "In[121]:=",ExpressionUUID->"a5eb62d7-67e3-47c6-8372-ceb6294603b7"], Cell[BoxData[ FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"]}], SuperscriptBox["k", "2"]]], "Output", CellChangeTimes->{3.829864728177988*^9}, CellLabel-> "Out[121]=",ExpressionUUID->"2700fea5-8b1b-43b4-a9d7-de4da863aef1"] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"k", " ", "\:304c", " ", "0", " ", "\:306e\:5834\:5408\:306f"}], "\:ff1f"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.7154772932325773`*^9, 3.7154773067594557`*^9}}, CellLabel-> "In[122]:=",ExpressionUUID->"66d1aafa-2990-4870-a4d4-58e2a574914e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}], "/", "Pi"}]], "Input",\ CellChangeTimes->{{3.748131949009794*^9, 3.7481319509905787`*^9}}, CellLabel-> "In[123]:=",ExpressionUUID->"350b6de0-a41a-498a-b9ef-cc9b71c4c0dc"], Cell[BoxData[ FractionBox[ SuperscriptBox["\[Pi]", "2"], "3"]], "Output", CellChangeTimes->{3.829864728243737*^9}, CellLabel-> "Out[123]=",ExpressionUUID->"5eb6f9de-263a-47df-be5e-48c2585631c9"] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "\:4f7f\:3044\:65b9\:306b\:6ce8\:610f\:304c\:5fc5\:8981\:3060\:304c", "\:3001", "\:76f4\:63a5\:8a08\:7b97\:3059\:308b\:95a2\:6570\:304c\:3042\:308b"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.8098274596748753`*^9, 3.809827477843183*^9}}, CellLabel-> "In[124]:=",ExpressionUUID->"ae506d24-c615-4aca-bdda-3ddbe9b26985"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FourierCosCoefficient", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "n"}], "]"}]], "Input", CellChangeTimes->{{3.809827394755362*^9, 3.809827452685553*^9}}, CellLabel-> "In[125]:=",ExpressionUUID->"81afaf3b-e070-4ae0-bae2-675d922afec0"], Cell[BoxData[ FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"]}], SuperscriptBox["n", "2"]]], "Output", CellChangeTimes->{3.8298647285861*^9}, CellLabel-> "Out[125]=",ExpressionUUID->"ac442f3a-111c-408d-bddf-f2b5fd9d5cb8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FourierCosCoefficient", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "0"}], "]"}]], "Input", CellChangeTimes->{{3.809827486109376*^9, 3.8098274867273283`*^9}}, CellLabel-> "In[126]:=",ExpressionUUID->"0361c8bc-3404-423a-b15c-baafa92a6980"], Cell[BoxData[ FractionBox[ SuperscriptBox["\[Pi]", "2"], "3"]], "Output", CellChangeTimes->{3.8298647286485*^9}, CellLabel-> "Out[126]=",ExpressionUUID->"1b932521-f558-4af9-9d50-0e2d13dd580c"] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"Part", " ", "3"}], ":", " ", "\:90e8\:5206\:548c\:3092\:7528\:610f"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.7787092019179296`*^9, 3.7787092163059883`*^9}}, CellLabel-> "In[127]:=",ExpressionUUID->"6fb2e8ad-adbf-4938-b25c-f8460e7a3053"], Cell[BoxData[ RowBox[{ RowBox[{"s", "[", RowBox[{"n_", ",", "x_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"Pi", "^", "2"}], "/", "6"}], "-", RowBox[{"2", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}], " ", RowBox[{ RowBox[{"Cos", "[", RowBox[{"k", " ", "x"}], "]"}], "/", RowBox[{"k", "^", "2"}]}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.684024627587324*^9, 3.6840246781176157`*^9}, { 3.748132112792324*^9, 3.7481321172929993`*^9}}, CellLabel-> "In[128]:=",ExpressionUUID->"e3a325b2-7367-4592-92c2-40202cffd659"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"s", "[", RowBox[{"10", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.684024658120638*^9, 3.6840246671924143`*^9}, { 3.80982543191052*^9, 3.809825435584805*^9}}, CellLabel-> "In[129]:=",ExpressionUUID->"e776672e-4543-4688-af57-4350432b6466"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"s", "[", RowBox[{"n", ",", "x"}], "]"}], ",", RowBox[{"f", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "20", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.684024695466975*^9, 3.6840247692459097`*^9}, { 3.715477223143455*^9, 3.7154772234372787`*^9}, {3.809825440772937*^9, 3.809825445010949*^9}, {3.8098255489447393`*^9, 3.809825553596169*^9}}, CellLabel-> "In[130]:=",ExpressionUUID->"6bd84ea2-b0d0-4aef-96fd-26f1ac09faa1"], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "n", " ", "\:3092\:5909\:3048\:3066\:3069\:3046\:306a\:308b\:304b\:898b\:3066\:307f\ \:308b\:3053\:3068"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.7787092780684147`*^9, 3.778709294719665*^9}}, CellLabel-> "In[131]:=",ExpressionUUID->"4caaad3d-7fc2-4646-be78-f8edf0a329b3"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Part", " ", "4"}], ":", " ", RowBox[{ "\:95a2\:6570", " ", "g", " ", "\:3082\:52a0\:3048\:3066\:6bd4\:8f03\:3059\:308b"}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.7787093176822844`*^9, 3.778709336204776*^9}}, CellLabel-> "In[132]:=",ExpressionUUID->"32a99030-6e99-4b3d-8f38-8a4b600eb4d6"], Cell[BoxData[ RowBox[{ RowBox[{"g0", "[", "x_", "]"}], ":=", "x"}]], "Input", CellChangeTimes->{{3.684024995240432*^9, 3.6840250073994703`*^9}, 3.715477245583486*^9, 3.748132137711103*^9}, CellLabel-> "In[133]:=",ExpressionUUID->"3d717e20-6655-4dfa-aa48-8f06f18af377"], Cell[BoxData[ RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{"g0", "[", RowBox[{"Mod", "[", RowBox[{"x", ",", RowBox[{"2", "Pi"}], ",", RowBox[{"-", "Pi"}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.684025008901125*^9, 3.6840250362872*^9}}, CellLabel-> "In[134]:=",ExpressionUUID->"6bb3142b-2e48-4c13-8b30-3eb14232e484"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"g", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7154773717716312`*^9, 3.715477372122118*^9}, { 3.809825455332189*^9, 3.809825457775978*^9}}, CellLabel-> "In[135]:=",ExpressionUUID->"9555f17f-466d-456c-af5b-880ba9770cc8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FourierSinCoefficient", "[", RowBox[{ RowBox[{"g", "[", "x", "]"}], ",", "x", ",", "n"}], "]"}]], "Input", CellLabel-> "In[136]:=",ExpressionUUID->"268ab53a-a0d9-4e77-b2c4-a74a0057338e"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"]}], "n"]}]], "Output", CellChangeTimes->{3.829864729106146*^9}, CellLabel-> "Out[136]=",ExpressionUUID->"0f34cc66-861e-4623-948d-24fa65fe58c1"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"sg", "[", RowBox[{"n_", ",", "x_"}], "]"}], ":=", RowBox[{"2", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}], RowBox[{ RowBox[{"Sin", "[", RowBox[{"k", " ", "x"}], "]"}], "/", "k"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.684025041803485*^9, 3.684025072099531*^9}, { 3.715477321002861*^9, 3.715477321555518*^9}, {3.748132150270854*^9, 3.748132151171176*^9}}, CellLabel-> "In[137]:=",ExpressionUUID->"c2df4402-a9b4-426b-92ac-5a476fcd392a"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"sg", "[", RowBox[{"n", ",", "x"}], "]"}], ",", RowBox[{"g", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "4"}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "500"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "100", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.81035071164332*^9, 3.810350759024158*^9}, 3.829864738473645*^9}, CellLabel-> "In[139]:=",ExpressionUUID->"9b60668e-b3b8-4ed1-b006-81f3a3d5845c"] }, WindowSize->{808, 805}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, ShowSelection->True, Magnification:>1.5 Inherited, FrontEndVersion->"12.2 for Mac OS X x86 (64-bit) (2021\:5e742\:67082\:65e5)", StyleDefinitions->"Default.nb", ExpressionUUID->"279d79c9-8375-4881-85b1-66a7c2b28927" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 624, 13, 78, "Input",ExpressionUUID->"cbac25e4-d9fc-4de6-9fd5-a3ce8d94f698"], Cell[1185, 35, 379, 9, 46, "Input",ExpressionUUID->"cb5108be-7668-4ec7-93b9-67721880f26f"], Cell[1567, 46, 415, 9, 66, "Input",ExpressionUUID->"421f3830-d8a8-47d4-bbbe-13e0e325659a"], Cell[1985, 57, 331, 8, 46, "Input",ExpressionUUID->"b73cec8e-e96f-4407-9394-88bb5d5f7559"], Cell[2319, 67, 366, 10, 66, "Input",ExpressionUUID->"f7bf811d-2be0-45a3-83af-7b93d73c065e"], Cell[CellGroupData[{ Cell[2710, 81, 222, 5, 46, "Input",ExpressionUUID->"f6574ce9-3531-44ef-991e-15d2ce27cfdc"], Cell[2935, 88, 13442, 315, 274, "Output",ExpressionUUID->"27894a29-fbd4-4328-bf26-75f702371b8c"] }, Open ]], Cell[16392, 406, 440, 11, 66, "Input",ExpressionUUID->"5ecc1dd4-6b19-4d1f-8f20-951ab3b5c6ec"], Cell[16835, 419, 511, 12, 46, "Input",ExpressionUUID->"9a36b5a3-c699-47f1-a7eb-a0e98081d898"], Cell[CellGroupData[{ Cell[17371, 435, 690, 18, 66, "Input",ExpressionUUID->"a2622c28-50e2-48d0-9c81-b2f8a709803f"], Cell[18064, 455, 608, 18, 75, "Output",ExpressionUUID->"2e589449-813c-44fa-8746-e71b1a17c4d6"] }, Open ]], Cell[CellGroupData[{ Cell[18709, 478, 343, 8, 66, "Input",ExpressionUUID->"a5eb62d7-67e3-47c6-8372-ceb6294603b7"], Cell[19055, 488, 291, 9, 75, "Output",ExpressionUUID->"2700fea5-8b1b-43b4-a9d7-de4da863aef1"] }, Open ]], Cell[19361, 500, 313, 7, 46, "Input",ExpressionUUID->"66d1aafa-2990-4870-a4d4-58e2a574914e"], Cell[CellGroupData[{ Cell[19699, 511, 378, 11, 66, "Input",ExpressionUUID->"350b6de0-a41a-498a-b9ef-cc9b71c4c0dc"], Cell[20080, 524, 201, 5, 73, "Output",ExpressionUUID->"5eb6f9de-263a-47df-be5e-48c2585631c9"] }, Open ]], Cell[20296, 532, 384, 9, 46, "Input",ExpressionUUID->"ae506d24-c615-4aca-bdda-3ddbe9b26985"], Cell[CellGroupData[{ Cell[20705, 545, 285, 6, 66, "Input",ExpressionUUID->"81afaf3b-e070-4ae0-bae2-675d922afec0"], Cell[20993, 553, 289, 9, 72, "Output",ExpressionUUID->"ac442f3a-111c-408d-bddf-f2b5fd9d5cb8"] }, Open ]], Cell[CellGroupData[{ Cell[21319, 567, 287, 6, 66, "Input",ExpressionUUID->"0361c8bc-3404-423a-b15c-baafa92a6980"], Cell[21609, 575, 199, 5, 73, "Output",ExpressionUUID->"1b932521-f558-4af9-9d50-0e2d13dd580c"] }, Open ]], Cell[21823, 583, 308, 7, 46, "Input",ExpressionUUID->"6fb2e8ad-adbf-4938-b25c-f8460e7a3053"], Cell[22134, 592, 812, 25, 97, "Input",ExpressionUUID->"e3a325b2-7367-4592-92c2-40202cffd659"], Cell[22949, 619, 416, 11, 66, "Input",ExpressionUUID->"e776672e-4543-4688-af57-4350432b6466"], Cell[23368, 632, 748, 19, 101, "Input",ExpressionUUID->"6bd84ea2-b0d0-4aef-96fd-26f1ac09faa1"], Cell[24119, 653, 333, 8, 46, "Input",ExpressionUUID->"4caaad3d-7fc2-4646-be78-f8edf0a329b3"], Cell[24455, 663, 413, 11, 78, "Input",ExpressionUUID->"32a99030-6e99-4b3d-8f38-8a4b600eb4d6"], Cell[24871, 676, 279, 6, 46, "Input",ExpressionUUID->"3d717e20-6655-4dfa-aa48-8f06f18af377"], Cell[25153, 684, 365, 10, 66, "Input",ExpressionUUID->"6bb3142b-2e48-4c13-8b30-3eb14232e484"], Cell[25521, 696, 391, 10, 66, "Input",ExpressionUUID->"9555f17f-466d-456c-af5b-880ba9770cc8"], Cell[CellGroupData[{ Cell[25937, 710, 219, 5, 66, "Input",ExpressionUUID->"268ab53a-a0d9-4e77-b2c4-a74a0057338e"], Cell[26159, 717, 289, 9, 70, "Output",ExpressionUUID->"0f34cc66-861e-4623-948d-24fa65fe58c1"] }, Open ]], Cell[26463, 729, 737, 22, 66, "Input",ExpressionUUID->"c2df4402-a9b4-426b-92ac-5a476fcd392a"], Cell[27203, 753, 807, 23, 120, "Input",ExpressionUUID->"9b60668e-b3b8-4ed1-b006-81f3a3d5845c"] } ] *)