(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 563503, 15877] NotebookOptionsPosition[ 496308, 14333] NotebookOutlinePosition[ 546339, 15384] CellTagsIndexPosition[ 546296, 15381] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ StyleBox["This is a Mathematica notebook corresponding to the book\n \n \ ", FontFamily->"Arial"], StyleBox["\n Distributions: Theory and Applications\n \ by\n J.J. Duistermaat and J.A.C. Kolk\n \ Birkh\[ADoubleDot]user Verlag\n \n", FontFamily->"Arial", FontSize->36], StyleBox["This notebook was created by: \n \n ", FontFamily->"Arial"], StyleBox["J.A.C. Kolk (j.a.c.kolk@uu.nl).", FontFamily->"Arial", FontSize->24], StyleBox[" \n \nDate: ", FontFamily->"Arial"], StyleBox["15-06-2010 ", FontFamily->"Arial", FontColor->RGBColor[1, 0.5, 0]], StyleBox[" ", FontFamily->"Arial"] }], "Comments", CellChangeTimes->{{3.4454112965996246`*^9, 3.445411533817625*^9}, 3.4454118675496244`*^9, {3.445414267445625*^9, 3.445414300892625*^9}, { 3.44558834978568*^9, 3.4455883784246798`*^9}, {3.4455976036366796`*^9, 3.4455977451216803`*^9}, {3.4457726691968236`*^9, 3.445772688113824*^9}, { 3.445772784252824*^9, 3.4457727856998234`*^9}, {3.4458591309939694`*^9, 3.4458591321059694`*^9}, {3.4463041949300003`*^9, 3.44630419577*^9}, { 3.446481620586197*^9, 3.446481622098197*^9}, {3.4465448713574057`*^9, 3.446544873653405*^9}, {3.4468039307680197`*^9, 3.44680393135102*^9}, { 3.447494619958421*^9, 3.447494624229421*^9}, {3.447742859548047*^9, 3.447742995261047*^9}, {3.4481716521960278`*^9, 3.4481716706590276`*^9}, { 3.4856036330608416`*^9, 3.4856036478438416`*^9}}, FontSize->18, FontColor->RGBColor[0, 0, 0.501961], Background->RGBColor[ 0.41568627450980394`, 0.8235294117647058, 0.5098039215686274]], Cell[CellGroupData[{ Cell["Initialization", "Section", CellChangeTimes->{{3.447514528308421*^9, 3.4475145364114213`*^9}, { 3.447742320699047*^9, 3.4477423280660467`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell["\<\ The cells below are initialization cells. These cells are automatically \ evaluated by Mathematica as soon as the notebook is opened.\ \>", "Text", CellChangeTimes->{3.4454118675496244`*^9, 3.4468029625580196`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"darkblue", "=", RowBox[{"RGBColor", "[", RowBox[{ RowBox[{"34", "/", "256"}], ",", RowBox[{"44", "/", "256"}], ",", RowBox[{"162", "/", "256"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lightblue", "=", RowBox[{"RGBColor", "[", RowBox[{ RowBox[{"220", "/", "256"}], ",", RowBox[{"248", "/", "256"}], ",", RowBox[{"248", "/", "256"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"darkgreen", "=", RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0.5", ",", "0"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"modulePlot", "[", RowBox[{"function_", ",", RowBox[{"{", RowBox[{"xmin_", ",", "xmax_"}], "}"}], ",", RowBox[{"ticks_:", "None"}], ",", "plotrange_", ",", RowBox[{"imagesize_:", "600"}], ",", RowBox[{"aspectratio_:", "Automatic"}], ",", RowBox[{"{", "opts___", "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "x", "}"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"function", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "xmin", ",", "xmax"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", RowBox[{"AxesStyle", "\[Rule]", "darkgreen"}], ",", " ", RowBox[{"Background", "\[Rule]", "lightblue"}], ",", RowBox[{"TicksStyle", "\[Rule]", "darkblue"}], ",", "\[IndentingNewLine]", RowBox[{"Ticks", "\[Rule]", "ticks"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "plotrange"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "imagesize"}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "\[Rule]", "aspectratio"}], ",", "\[IndentingNewLine]", "opts"}], "]"}]}], "]"}]}]}], "Input", InitializationCell->True, CellChangeTimes->{ 3.4454118675496244`*^9, {3.44558758758568*^9, 3.44558758858368*^9}, { 3.446371106900213*^9, 3.446371152346213*^9}, {3.446470646678197*^9, 3.446470691983197*^9}, {3.446470735313197*^9, 3.4464707975481973`*^9}, { 3.4464708303281975`*^9, 3.446470846978197*^9}, {3.446471086838197*^9, 3.446471109799197*^9}, {3.446471149590197*^9, 3.446471153050197*^9}, { 3.446471723435197*^9, 3.446471744888197*^9}, {3.446478047567197*^9, 3.446478078110197*^9}, {3.4464782404131975`*^9, 3.446478323911197*^9}, { 3.446480945938197*^9, 3.446480949866197*^9}, {3.446481003359197*^9, 3.4464810355971975`*^9}, {3.4465346521594057`*^9, 3.4465347293624053`*^9}, {3.4465347721314054`*^9, 3.4465347866704054`*^9}, {3.446534954726405*^9, 3.446534955733405*^9}, 3.4465358323094053`*^9, {3.446543655292405*^9, 3.4465436674284053`*^9}, 3.4465449166124053`*^9, {3.4468038694530196`*^9, 3.4468038715080194`*^9}, 3.447407965818424*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"moduleParametricPlot3D", "[", RowBox[{ "function_", ",", "\[Alpha]min_", ",", "\[Alpha]max_", ",", "tmin_", ",", "tmax_"}], "]"}], "[", RowBox[{"mesh_", ",", "viewpoint_"}], "]"}], "[", RowBox[{ RowBox[{"imagesize_:", "400"}], ",", RowBox[{"colorfunction_:", "White"}], ",", RowBox[{"{", "opts___", "}"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", "t"}], "}"}], ",", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"function", "[", RowBox[{"\[Alpha]", ",", "t"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "\[Alpha]min", ",", "\[Alpha]max"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "tmin", ",", "tmax"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"BoxRatios", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", RowBox[{"Mesh", "\[Rule]", "mesh"}], ",", "\[IndentingNewLine]", RowBox[{"ViewPoint", "\[Rule]", "viewpoint"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "imagesize"}], ",", "\[IndentingNewLine]", RowBox[{"ColorFunction", "\[Rule]", "colorfunction"}], ",", "\[IndentingNewLine]", "opts"}], "]"}]}], "]"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4471373691978254`*^9, 3.447137455128825*^9}, { 3.447137535404825*^9, 3.447137598623825*^9}, {3.447137629415825*^9, 3.4471376300228252`*^9}, {3.447137663828825*^9, 3.4471379558348255`*^9}, { 3.4471380461768255`*^9, 3.4471381036198254`*^9}, {3.447138134464825*^9, 3.4471384100988255`*^9}, {3.447138446543825*^9, 3.447138457543825*^9}, { 3.447138497637825*^9, 3.4471385341408253`*^9}, {3.447138635636825*^9, 3.447138646267825*^9}, {3.447138729688825*^9, 3.447138742238825*^9}, { 3.447138774964825*^9, 3.447138777988825*^9}, {3.4471388767528253`*^9, 3.447138980177825*^9}, {3.447139049849825*^9, 3.4471390896838255`*^9}, { 3.4471391784198256`*^9, 3.447139298948825*^9}, {3.4471395312638254`*^9, 3.447139613405825*^9}, 3.447139649979825*^9, {3.447139687401825*^9, 3.447139841000825*^9}, 3.447139871524825*^9, 3.4471399304528255`*^9, { 3.4471400015848255`*^9, 3.447140018726825*^9}, {3.447140096514825*^9, 3.4471400992358255`*^9}, {3.4471401635018253`*^9, 3.447140314714825*^9}, { 3.4471403458768253`*^9, 3.4471403483488255`*^9}, {3.4471403920018253`*^9, 3.447140457802825*^9}, {3.447140551665825*^9, 3.4471405629038253`*^9}, { 3.447140595618825*^9, 3.4471406193608255`*^9}, {3.4471406499358253`*^9, 3.447140720154825*^9}, 3.447140801055825*^9, {3.447140834043825*^9, 3.4471409324528255`*^9}, {3.447140968154825*^9, 3.447140969978825*^9}, { 3.447141058477825*^9, 3.4471412334568253`*^9}, {3.4471413347428255`*^9, 3.4471413731578255`*^9}, {3.447142973760825*^9, 3.447142974754825*^9}, { 3.447149102315034*^9, 3.447149150865034*^9}, {3.447149380925034*^9, 3.447149460756034*^9}, {3.447150510900034*^9, 3.447150557168034*^9}, { 3.447150797410034*^9, 3.447150798624034*^9}, {3.447151108431034*^9, 3.447151110207034*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 1.1 Example 1.3", "Section", CellChangeTimes->{{3.447514528308421*^9, 3.4475145364114213`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{ RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ FractionBox["1", RowBox[{"Abs", "[", RowBox[{"Log", "[", "x", "]"}], "]"}]], ",", RowBox[{"{", RowBox[{"x", ",", "0.00001`", ",", "0.5`"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", "0.5`", "}"}], ",", RowBox[{"{", "1.4`", "}"}]}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "1800"}], ",", " ", RowBox[{"MaxRecursion", "->", "15"}], ",", " ", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12.`"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2", "=", RowBox[{"Plot", "[", RowBox[{ FractionBox["1", RowBox[{"x", " ", RowBox[{"Abs", "[", RowBox[{"Log", "[", "x", "]"}], "]"}]}]], ",", RowBox[{"{", RowBox[{"x", ",", "0.00001`", ",", "0.5`"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", "0.5`", "}"}], ",", RowBox[{"{", "50", "}"}]}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "800"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "50"}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12.`"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"GraphicsRow", "[", RowBox[{"{", RowBox[{"p1", ",", "p2"}], "}"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}]}], "]"}]}], "Input", CellChangeTimes->{{3.447514435197421*^9, 3.4475144869174213`*^9}, { 3.447514603367421*^9, 3.447514620086421*^9}, {3.447999558486826*^9, 3.447999615939826*^9}, {3.45846312469*^9, 3.4584631551730003`*^9}, { 3.458466463384*^9, 3.45846647324*^9}, {3.458466550115*^9, 3.458466551227*^9}, {3.458466693356*^9, 3.458466694115*^9}, { 3.4584667736070004`*^9, 3.4584667767019997`*^9}, {3.458466914367*^9, 3.4584669173900003`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 1.2 Example 1.4 and Example 20.27", "Section", CellChangeTimes->{{3.447514528308421*^9, 3.4475145364114213`*^9}, { 3.4475146652204213`*^9, 3.4475146741394215`*^9}, {3.447516572831421*^9, 3.4475166050614214`*^9}, {3.447665116529627*^9, 3.447665133832627*^9}, { 3.4480979349296064`*^9, 3.448097948525606*^9}, {3.4481756317290277`*^9, 3.4481756664070272`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Re", "[", RowBox[{"ComplexExpand", "[", RowBox[{ FractionBox["1", RowBox[{"1", "-", " ", RowBox[{"r", " ", RowBox[{"E", "^", RowBox[{"(", RowBox[{"I", " ", "x"}], ")"}]}]}]}]], ",", RowBox[{"{", RowBox[{"x", "\[Element]", "\[DoubleStruckCapitalR]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", "\[Element]", "\[DoubleStruckCapitalR]"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.448097813157606*^9, 3.4480978192076063`*^9}, 3.4480980679016066`*^9, 3.4480981414356065`*^9, {3.4481156083466063`*^9, 3.4481156107196064`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"A", "[", RowBox[{"r_", ",", "x_"}], "]"}], ":=", FractionBox[ RowBox[{"1", "-", RowBox[{"r", " ", RowBox[{"Cos", "[", "x", "]"}]}]}], RowBox[{"1", "+", SuperscriptBox["r", "2"], "-", RowBox[{"2", " ", "r", " ", RowBox[{"Cos", "[", "x", "]"}]}]}]]}], "\[IndentingNewLine]", RowBox[{"Limit", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"r", ",", "x"}], "]"}], ",", RowBox[{"r", "\[Rule]", "1"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "[", "r_", "]"}], ":=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"A", "[", RowBox[{ RowBox[{"r", "+", RowBox[{"9", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "2"}], "k"], SuperscriptBox["10", RowBox[{"-", "j"}]]}]}]}], ",", "x"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "2", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.105"}], ",", "0.105"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "21"}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", RowBox[{"MaxRecursion", "\[Rule]", "15"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"l", " ", "0.05"}], ",", RowBox[{"{", RowBox[{"l", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "10", ",", "20"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}]}], "]"}]}], "\n", RowBox[{ RowBox[{"q", "[", "r_", "]"}], ":=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"A", "[", RowBox[{ RowBox[{"r", "+", RowBox[{"9", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "2"}], "k"], SuperscriptBox["10", RowBox[{"-", "j"}]]}]}]}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "5", ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "\[Pi]"}], "-", "1"}], ",", RowBox[{ RowBox[{"3", " ", "\[Pi]"}], "+", "1"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "21"}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", RowBox[{"MaxRecursion", "\[Rule]", "15"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"2", " ", "l", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"l", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", FractionBox["1", "2"], ",", "10", ",", "20"}], "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}]}], "\n", RowBox[{"GraphicsRow", "[", RowBox[{"{", RowBox[{ RowBox[{"p", "[", "0.9", "]"}], ",", RowBox[{"q", "[", "0.9", "]"}]}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4478303456208115`*^9, 3.447830372121812*^9}, { 3.447830410588812*^9, 3.4478304255018115`*^9}, {3.447831799984812*^9, 3.4478318375318117`*^9}, 3.4478318776038113`*^9, {3.4478327997358117`*^9, 3.4478328855538116`*^9}, {3.4478436930328116`*^9, 3.447843743357812*^9}, { 3.4478437951788116`*^9, 3.447844041989812*^9}, {3.4478440729478116`*^9, 3.4478440924908113`*^9}, {3.4478441499038115`*^9, 3.447844183444812*^9}, 3.4478442649288116`*^9, {3.4478443364998116`*^9, 3.4478443674748116`*^9}, { 3.4478444932268114`*^9, 3.4478445251938114`*^9}, {3.4478445931258116`*^9, 3.447844686800812*^9}, {3.4478447192228117`*^9, 3.4478448325358114`*^9}, { 3.4478448687978115`*^9, 3.4478449664908113`*^9}, {3.4478450141698112`*^9, 3.447845083293812*^9}, {3.4478451215188117`*^9, 3.4478451897408113`*^9}, { 3.4478452373038116`*^9, 3.447845238069812*^9}, {3.4478452914858117`*^9, 3.4478453785548115`*^9}, {3.4478454257288113`*^9, 3.4478454344478116`*^9}, {3.447846109392812*^9, 3.4478461635738115`*^9}, { 3.4480873732806063`*^9, 3.4480873768876066`*^9}, {3.4480874199026065`*^9, 3.4480874235176067`*^9}, {3.4480886843806067`*^9, 3.4480887159586067`*^9}, {3.4480888970826063`*^9, 3.4480889117526064`*^9}, {3.4480893253846064`*^9, 3.4480893552386065`*^9}, {3.448096443513606*^9, 3.448096498671606*^9}, { 3.4480966000096064`*^9, 3.448096604544606*^9}, 3.4480980679016066`*^9, 3.4480981414356065`*^9, {3.4481058189396067`*^9, 3.4481058588446064`*^9}, { 3.448105943612606*^9, 3.4481059566746063`*^9}, {3.4481060731636066`*^9, 3.4481060895076065`*^9}, {3.4481156163546066`*^9, 3.448115629480606*^9}, { 3.448698968416608*^9, 3.4486989779486084`*^9}, {3.448699010636608*^9, 3.448699020938608*^9}, {3.458463318111*^9, 3.4584633283599997`*^9}}], Cell[TextData[{ "The family of functions ", Cell[BoxData[ FormBox[ SubscriptBox["A", "r"], TraditionalForm]]], " has some remarkable properties." }], "Text", CellChangeTimes->{ 3.4454118675496244`*^9, 3.4468029625580196`*^9, {3.448963515037882*^9, 3.4489635316428823`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"prim0", "[", RowBox[{"r_", ",", "\[Alpha]_"}], "]"}], ":=", RowBox[{"Evaluate", "[", RowBox[{"FullSimplify", "[", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"r", ",", "\[Alpha]"}], "]"}], ",", "\[Alpha]"}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"prim0", "[", RowBox[{"r", ",", "\[Alpha]"}], "]"}]}], "Input", CellChangeTimes->{{3.4481064892266064`*^9, 3.4481065051026063`*^9}, { 3.4481755155930276`*^9, 3.4481755221130276`*^9}}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ SubscriptBox["\[PartialD]", "\[Alpha]"], RowBox[{"prim0", "[", RowBox[{"r", ",", "\[Alpha]"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4481070325036063`*^9, 3.4481070911486063`*^9}, 3.448175529392028*^9}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"prim0", "[", RowBox[{ RowBox[{"k", " ", "0.1"}], ",", "\[Alpha]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "\[Pi]"}], ",", RowBox[{"-", FractionBox["\[Pi]", "2"]}], ",", FractionBox["\[Pi]", "2"], ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["\[Pi]", "2"]}], ",", FractionBox["\[Pi]", "2"]}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "->", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]], "Input", CellChangeTimes->{{3.4481065695816064`*^9, 3.448106574572606*^9}, { 3.448109063742606*^9, 3.4481090687176065`*^9}, 3.448124555235606*^9, { 3.4481245900306063`*^9, 3.4481245907506065`*^9}, {3.4481246247176065`*^9, 3.4481246307816067`*^9}, {3.448125379690606*^9, 3.4481254145356064`*^9}, 3.4481755385780277`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"prim1", "[", RowBox[{"r_", ",", "\[Alpha]_"}], "]"}], ":=", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"prim0", "[", RowBox[{"r", ",", "\[Alpha]"}], "]"}], ",", RowBox[{"\[Alpha]", "\[LessEqual]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"prim0", "[", RowBox[{"r", ",", "\[Alpha]"}], "]"}], "+", "\[Pi]"}], ",", RowBox[{"\[Alpha]", ">", "0"}]}], "}"}]}], "}"}], "]"}]}], "\n", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"prim1", "[", RowBox[{ RowBox[{"k", " ", "0.1"}], ",", "\[Alpha]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "9"}], "}"}]}], "]"}], ",", FractionBox["\[Alpha]", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "13"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "\[Pi]"}], ",", RowBox[{"-", FractionBox["\[Pi]", "2"]}], ",", FractionBox["\[Pi]", "2"], ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["\[Pi]", "2"]}], ",", FractionBox["\[Pi]", "2"], ",", "\[Pi]", ",", FractionBox[ RowBox[{"3", " ", "\[Pi]"}], "2"]}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4481157122276063`*^9, 3.4481157682696066`*^9}, { 3.4481158570316067`*^9, 3.4481160206096067`*^9}, {3.4481160892146063`*^9, 3.448116099612606*^9}, {3.448116197407606*^9, 3.448116234006606*^9}, { 3.448116372237606*^9, 3.4481164020686064`*^9}, {3.448124571761606*^9, 3.4481245726086063`*^9}, {3.4481246380216064`*^9, 3.4481246439886065`*^9}, {3.4481254337706065`*^9, 3.4481254512546062`*^9}, {3.448125487414606*^9, 3.4481255546896067`*^9}, { 3.4481255961746063`*^9, 3.4481256188786063`*^9}, {3.448125674827606*^9, 3.4481256788586063`*^9}, 3.4481257351776066`*^9, {3.4481755484020276`*^9, 3.448175569970028*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"prim", "[", RowBox[{"r_", ",", "\[Alpha]_"}], "]"}], ":=", RowBox[{ FractionBox["\[Alpha]", "2"], "-", RowBox[{"ArcTan", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"r", "+", "1"}], ")"}], " ", RowBox[{"Tan", "[", FractionBox["\[Alpha]", "2"], "]"}]}], RowBox[{"r", "-", "1"}]], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"prim", "[", RowBox[{"r", ",", "\[Alpha]"}], "]"}], ",", "\[Alpha]"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.4481717096430273`*^9, 3.4481718729450274`*^9}, { 3.4481755834560275`*^9, 3.4481755860060277`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 1.3", "Section", CellChangeTimes->{{3.447514528308421*^9, 3.4475145364114213`*^9}, { 3.4475146652204213`*^9, 3.4475146741394215`*^9}, {3.447516572831421*^9, 3.4475166050614214`*^9}, {3.447665116529627*^9, 3.447665133832627*^9}, { 3.4480979349296064`*^9, 3.448097948525606*^9}, {3.4481756317290277`*^9, 3.4481756664070272`*^9}, {3.458464493269*^9, 3.4584645009960003`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{ RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"prim", "[", RowBox[{ RowBox[{"k", " ", "0.1"}], ",", "\[Alpha]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "9"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Pi]"}], ",", RowBox[{"-", FractionBox["\[Pi]", "2"]}], ",", FractionBox["\[Pi]", "2"], ",", "\[Pi]"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2", "=", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "Pi"}], ",", RowBox[{"-", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Pi", ",", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"Pi", "/", "2"}]}], "}"}]}], "}"}]}], "}"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p3", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.02", ",", "0.02"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Pi", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p1", ",", "p2", ",", "p3"}], "]"}]}], "Input", CellChangeTimes->{ 3.4481719272240276`*^9, {3.4481720029640274`*^9, 3.4481720036200275`*^9}, { 3.4481721634420276`*^9, 3.4481721718180275`*^9}, 3.4481723124190273`*^9, { 3.448172412024028*^9, 3.4481724605530276`*^9}, 3.448175590911028*^9, { 3.4584637056940002`*^9, 3.458463711469*^9}, {3.458463755259*^9, 3.4584637742019997`*^9}, {3.4584638578929996`*^9, 3.458463868901*^9}, { 3.458463901139*^9, 3.4584641183190002`*^9}, {3.458464188908*^9, 3.4584642314700003`*^9}, {3.458464279334*^9, 3.458464418318*^9}, { 3.4584646055880003`*^9, 3.4584646069560003`*^9}, {3.4584863572659426`*^9, 3.4584863634679427`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 1.4", "Section", CellChangeTimes->{{3.447514528308421*^9, 3.4475145364114213`*^9}, { 3.4475146652204213`*^9, 3.4475146741394215`*^9}, {3.447516572831421*^9, 3.4475166050614214`*^9}, {3.447665116529627*^9, 3.447665133832627*^9}, { 3.4480979349296064`*^9, 3.448097948525606*^9}, {3.4481756317290277`*^9, 3.4481756664070272`*^9}, {3.458464493269*^9, 3.4584645009960003`*^9}, { 3.4584862181529427`*^9, 3.4584862200169425`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"A", "[", RowBox[{ RowBox[{"k", " ", "0.1"}], ",", "\[Alpha]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{ RowBox[{"-", "\[Pi]"}], "-", "0.25"}], ",", RowBox[{"\[Pi]", "+", "0.25"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"l", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"l", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0.75", ",", "1", ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0.4", ",", "3.5"}], "}"}]}], ",", RowBox[{"AxesOrigin", "->", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}]], "Input", CellChangeTimes->{{3.4481061685866065`*^9, 3.4481062007626066`*^9}, { 3.4487208285456085`*^9, 3.448720846017608*^9}, {3.448720957800608*^9, 3.448720985685608*^9}, {3.4487210382126083`*^9, 3.4487210865126085`*^9}, { 3.448721135438608*^9, 3.4487211504296083`*^9}, {3.4487212141546082`*^9, 3.448721291525608*^9}, 3.4487213331796083`*^9, {3.4487213956086082`*^9, 3.448721444708608*^9}, {3.448721583079608*^9, 3.4487217019506083`*^9}, { 3.448722357313608*^9, 3.4487223903216085`*^9}, {3.448722450036608*^9, 3.448722465836608*^9}, {3.448722504704608*^9, 3.4487225437836084`*^9}, { 3.4487225739346085`*^9, 3.4487225915886083`*^9}, {3.458463426468*^9, 3.458463427028*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Pi]"}], "\[Pi]"], RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"A", "[", RowBox[{ RowBox[{"0.1", " ", "k"}], ",", "\[Alpha]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "10"}], "}"}]}], "]"}], RowBox[{"\[DifferentialD]", "\[Alpha]"}]}]}], "\[Equal]", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"2", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "9"}], "}"}]}], "]"}], ",", RowBox[{"{", "\[Pi]", "}"}]}], "]"}]}]], "Input"], Cell[TextData[{ "Finding an antiderivative of ", Cell[BoxData[ FormBox[ SubscriptBox["A", "r"], TraditionalForm]]], ". First apply Exercise 0.1 in [7] and use twice the duplication formula for \ the arctangent. " }], "Text", CellChangeTimes->{ 3.4454118675496244`*^9, 3.4468029625580196`*^9, {3.448963515037882*^9, 3.4489635316428823`*^9}, {3.448963563357882*^9, 3.448963594842882*^9}, { 3.4489821492616663`*^9, 3.448982271081667*^9}, {3.4489826015756664`*^9, 3.4489826039436665`*^9}}], Cell[BoxData[{ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"A", "[", RowBox[{"r", ",", "x", ",", "0"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], "\[Rule]", FractionBox[ RowBox[{"1", "-", RowBox[{"t", "^", "2"}]}], RowBox[{"1", "+", RowBox[{"t", "^", "2"}]}]]}], "}"}]}], ")"}], RowBox[{"2", "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t", "^", "2"}]}], ")"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{"%", ",", "t"}], "]"}]}], "Input", CellChangeTimes->{{3.4489799396956663`*^9, 3.4489800468026667`*^9}, { 3.4489801098796663`*^9, 3.448980127774667*^9}, {3.4489801734756665`*^9, 3.448980188602667*^9}}], Cell[BoxData[ RowBox[{"FullSimplify", "[", FractionBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "r"}], ")"}], " ", "t"}], RowBox[{"1", "-", "r"}]], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "r"}], ")"}], " ", "t"}], RowBox[{ RowBox[{"-", "1"}], "+", "r"}]]}], RowBox[{"1", "+", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "r"}], ")"}], " ", "t"}], RowBox[{"1", "-", "r"}]], FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "r"}], ")"}], " ", "t"}], RowBox[{ RowBox[{"-", "1"}], "+", "r"}]]}]}]], "]"}]], "Input", CellChangeTimes->{{3.4489807572886667`*^9, 3.4489808295376663`*^9}}], Cell[BoxData[ RowBox[{"Expand", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "t"}], ")"}]}], "+", "t"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "r", "+", "t", "+", RowBox[{"r", " ", "t"}]}], ")"}]}], "]"}]], "Input", CellChangeTimes->{{3.4489809281676664`*^9, 3.448980934623667*^9}}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ FractionBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "r"}], ")"}], " ", "t"}], RowBox[{"1", "-", "r"}]], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "r"}], ")"}], " ", "t"}], RowBox[{ RowBox[{"-", "1"}], "+", "r"}]]}], RowBox[{"1", "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "r"}], ")"}], " ", "t"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "r"}], ")"}], " ", "t"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "r"}], ")"}]}]]}]], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{"2", FractionBox[ RowBox[{"r", "+", "1"}], RowBox[{"r", "-", "1"}]], " ", "t"}], RowBox[{"1", "-", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"r", "+", "1"}], RowBox[{"r", "-", "1"}]], " ", "t"}], ")"}], "2"]}]]}]}], "]"}]], "Input", CellChangeTimes->{{3.4489810115316668`*^9, 3.4489811303916664`*^9}, { 3.4489812387336664`*^9, 3.4489813141406665`*^9}, {3.4489824725976667`*^9, 3.4489825085446663`*^9}, {3.4489825768206663`*^9, 3.4489825907806664`*^9}}], Cell[TextData[{ "The envelope of the graphs of the ", Cell[BoxData[ FormBox[ SubscriptBox["A", "r"], TraditionalForm]]], "." }], "Text", CellChangeTimes->{ 3.4454118675496244`*^9, 3.4468029625580196`*^9, {3.448963515037882*^9, 3.4489635316428823`*^9}, {3.448963563357882*^9, 3.448963594842882*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"A", "[", RowBox[{"r_", ",", "x_", ",", "y_"}], "]"}], ":=", RowBox[{ FractionBox[ RowBox[{"1", "-", RowBox[{"r", " ", RowBox[{"Cos", "[", "x", "]"}]}]}], RowBox[{"1", "+", SuperscriptBox["r", "2"], "-", RowBox[{"2", " ", "r", " ", RowBox[{"Cos", "[", "x", "]"}]}]}]], "-", "y"}]}]], "Input", CellChangeTimes->{{3.4488982464914055`*^9, 3.4488982540264053`*^9}, 3.448953325989012*^9, 3.448963656327882*^9}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"D", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"r", ",", "x", ",", "y"}], "]"}], ",", "r"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.4488969359464054`*^9, 3.448896969914405*^9}, { 3.448898263377405*^9, 3.4488982640174055`*^9}, 3.448953325989012*^9, 3.448963656332882*^9}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"r", ",", "x", ",", "y"}], "]"}], ",", "r"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"A", "[", RowBox[{"r", ",", "x", ",", "y"}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "r"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.448898038587405*^9, 3.448898090522405*^9}, { 3.448898141464405*^9, 3.448898145664405*^9}, {3.448898280904405*^9, 3.448898341397405*^9}, 3.448953325989012*^9, 3.448963656332882*^9}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"Csc", "[", "x", "]"}], "2"], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{"Cos", "[", "x", "]"}], "2"], "+", SqrtBox[ SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "2"]]}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "Pi"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4488984705664053`*^9, 3.4488984832694054`*^9}, { 3.448952636230012*^9, 3.4489526423730116`*^9}, 3.448953325989012*^9, 3.448963656332882*^9}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"Csc", "[", "x", "]"}], "2"], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{"Cos", "[", "x", "]"}], "2"], "+", SqrtBox[ SuperscriptBox[ RowBox[{"Sin", "[", "x", "]"}], "2"]]}], ")"}]}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", FractionBox["1", RowBox[{"Abs", "[", RowBox[{"Sin", "[", "x", "]"}], "]"}]]}], ")"}]}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Pi]"}], "<", "x", "<", "\[Pi]"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.448898533179405*^9, 3.448898577848405*^9}, { 3.448898613374405*^9, 3.4488986368294053`*^9}, {3.4489524304370117`*^9, 3.448952458072012*^9}, {3.4489525629310117`*^9, 3.4489526019220114`*^9}, { 3.4489529519770117`*^9, 3.4489529725400114`*^9}, {3.4489530278340116`*^9, 3.4489530398410115`*^9}, {3.448953086935012*^9, 3.448953178171012*^9}, 3.448953325989012*^9, {3.4489543402100115`*^9, 3.4489543844620113`*^9}, 3.448963656332882*^9}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"r", ",", "x", ",", "0"}], "]"}], "/.", RowBox[{"{", RowBox[{"r", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"Sin", "[", "x", "]"}]}], ")"}], "/", RowBox[{"Cos", "[", "x", "]"}]}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4489553775030117`*^9, 3.4489554826340113`*^9}, { 3.4489636277678823`*^9, 3.448963656332882*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"1", "/", RowBox[{"Abs", "[", RowBox[{"Sin", "[", "x", "]"}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.448898668539405*^9, 3.448898687497405*^9}, { 3.448953051277012*^9, 3.448953060277012*^9}, 3.448953325989012*^9, 3.448963656332882*^9}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"A", "[", RowBox[{ RowBox[{"k", " ", "0.1"}], ",", "\[Alpha]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "10"}], "}"}]}], "]"}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"1", "/", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{ RowBox[{"-", "\[Pi]"}], "-", "0.25"}], ",", RowBox[{"\[Pi]", "+", "0.25"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"l", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"l", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0.75", ",", "1", ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0.4", ",", "10"}], "}"}]}], ",", RowBox[{"AxesOrigin", "->", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "13"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}]], "Input", CellChangeTimes->{{3.4488987637974052`*^9, 3.4488987936684055`*^9}, { 3.4488988620014052`*^9, 3.4488988933434052`*^9}, {3.4488989652114053`*^9, 3.448898969730405*^9}, 3.448953325989012*^9, 3.448963656332882*^9}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"A", "[", RowBox[{"r", ",", "x", ",", "0"}], "]"}], "/.", RowBox[{"{", RowBox[{"r", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"Sin", "[", "x", "]"}]}], ")"}], "/", RowBox[{"Cos", "[", "x", "]"}]}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4489553775030117`*^9, 3.4489554826340113`*^9}, { 3.448963627772882*^9, 3.448963656332882*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 1.5 ", "Section", CellChangeTimes->{{3.447515244302421*^9, 3.447515266098421*^9}, { 3.4475164859884214`*^9, 3.447516487324421*^9}, {3.4585399789510956`*^9, 3.4585399899100957`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Off", "[", RowBox[{"General", "::", "\"\\""}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]", "[", "x_", "]"}], ":=", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "1"}], "/", "x"}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p0", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Alpha]", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0.4`"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]", "[", "x_", "]"}], ":=", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "1"}], "/", "x"}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p00", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Alpha]", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a1", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b1", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]1", "[", "x_", "]"}], ":=", RowBox[{"0", "/;", RowBox[{"x", "\[LessEqual]", "a1"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]1", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", RowBox[{"x", "-", "a1"}], "]"}], " ", RowBox[{"\[Alpha]", "[", RowBox[{"b1", "-", "x"}], "]"}]}], "/;", RowBox[{"a1", "<", "x", "<", "b1"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]1", "[", "x_", "]"}], ":=", RowBox[{"0", "/;", RowBox[{"b1", "\[LessEqual]", "x"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Beta]1", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a1", ",", "b1"}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Int1", "=", RowBox[{"N", "[", RowBox[{ SubsuperscriptBox["\[Integral]", "a1", "b1"], RowBox[{ RowBox[{"\[Beta]1", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]1", "[", "x_", "]"}], ":=", FractionBox[ RowBox[{"\[Beta]1", "[", "x", "]"}], "Int1"]}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Gamma]1", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", FractionBox["1", "2"]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"ImageSize", "\[Rule]", "90"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"N", "[", RowBox[{ SubsuperscriptBox["\[Integral]", "Global`a1", "Global`b1"], RowBox[{ RowBox[{"Global`\[Gamma]1", "[", "Global`x", "]"}], RowBox[{"\[DifferentialD]", "Global`x"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]", "=", FractionBox["1", "2"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Global`\[Gamma]1\[Epsilon]", "[", "Global`x_", "]"}], ":=", FractionBox[ RowBox[{"\[Gamma]1", "[", FractionBox["x", "\[Epsilon]"], "]"}], "\[Epsilon]"]}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Gamma]1\[Epsilon]", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a1", ",", "b1"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", "0.005", "]"}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"ImageSize", "\[Rule]", "90"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"GraphicsRow", "[", RowBox[{"{", RowBox[{"p1", ",", "p2"}], "}"}], "]"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a2", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b2", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]2", "[", "x_", "]"}], ":=", RowBox[{"0", "/;", RowBox[{"x", "\[LessEqual]", "a2"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]2", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", RowBox[{"x", "-", "a2"}], "]"}], " ", RowBox[{"\[Alpha]", "[", RowBox[{"b2", "-", "x"}], "]"}]}], "/;", RowBox[{"a2", "<", "x", "<", "b2"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]2", "[", "x_", "]"}], ":=", RowBox[{"0", "/;", RowBox[{"b2", "\[LessEqual]", "x"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Beta]2", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a2", ",", "b2"}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Int2", "=", RowBox[{"N", "[", RowBox[{ SubsuperscriptBox["\[Integral]", "a2", "b2"], RowBox[{ RowBox[{"\[Beta]2", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]2", "[", "x_", "]"}], ":=", FractionBox[ RowBox[{"\[Beta]2", "[", "x", "]"}], "Int2"]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p3", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Gamma]2", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a2", ",", "b2"}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"N", "[", RowBox[{ SubsuperscriptBox["\[Integral]", "a2", "b2"], RowBox[{ RowBox[{"\[Gamma]2", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.482042304932434*^9, 3.482042349519434*^9}, { 3.4820423802664337`*^9, 3.4820424044734335`*^9}, {3.4820424468324337`*^9, 3.4820424877724338`*^9}, {3.482042553936434*^9, 3.482042585271434*^9}, { 3.482042620340434*^9, 3.4820426272684336`*^9}, {3.482042672935434*^9, 3.4820426787284336`*^9}, {3.482042750116434*^9, 3.4820427641484337`*^9}, { 3.4820432868154335`*^9, 3.482043292526434*^9}, {3.482043819448434*^9, 3.4820438429964337`*^9}, {3.4820439004764338`*^9, 3.482043913475434*^9}, { 3.482043945081434*^9, 3.4820439503344336`*^9}, {3.4820439859524336`*^9, 3.482044047571434*^9}, {3.4820440886574335`*^9, 3.4820441569404335`*^9}, { 3.4820441974214334`*^9, 3.4820442942684336`*^9}, {3.482044328099434*^9, 3.482044329515434*^9}, 3.482044419750434*^9, 3.482044450125434*^9, { 3.4820445259524336`*^9, 3.482044529239434*^9}, {3.482044591026434*^9, 3.482044592642434*^9}, {3.482044628267434*^9, 3.4820446313224335`*^9}, { 3.4820448747074337`*^9, 3.482044878915434*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 1.6 Problem 1.3", "Section", CellChangeTimes->{ 3.447514096746421*^9, {3.447514687085421*^9, 3.4475147034184213`*^9}, { 3.4480982054156065`*^9, 3.4480982066226063`*^9}, {3.458465317718*^9, 3.4584653188059998`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "[", "x_", "]"}], ":=", RowBox[{"0", "/;", RowBox[{"x", "<", RowBox[{"-", "1"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox["35", "32"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", "2"]}], ")"}], "3"]}], "/;", RowBox[{ RowBox[{"-", "1"}], "\[LessEqual]", "x", "\[LessEqual]", "1"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "[", "x_", "]"}], ":=", RowBox[{"0", "/;", RowBox[{"x", ">", "1"}]}]}], "\[IndentingNewLine]", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"p", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"p", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1.1`"}], ",", "1.1`"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", " ", RowBox[{"MaxRecursion", "->", "15"}], ",", " ", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"35", "/", "32"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12.`"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}]}], "Input", CellChangeTimes->{{3.447514572963421*^9, 3.447514589038421*^9}, 3.447514738902421*^9, 3.4479996740658264`*^9, {3.458489719228943*^9, 3.4584897605859423`*^9}, {3.4584901542669425`*^9, 3.4584901547709427`*^9}, {3.4584902458949423`*^9, 3.458490255188943*^9}, { 3.482045301581434*^9, 3.4820453318274336`*^9}, {3.482045451564434*^9, 3.482045452428434*^9}, {3.4820455175844336`*^9, 3.482045518864434*^9}, { 3.482045600356434*^9, 3.4820456394734335`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 1.7 Problem 1.11", "Section", CellChangeTimes->{ 3.447514097802421*^9, {3.447514788831421*^9, 3.447514806204421*^9}, { 3.4480982127266064`*^9, 3.4480982136866064`*^9}, {3.4584890429189425`*^9, 3.4584890500139427`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Off", "[", RowBox[{"NIntegrate", "::", "ploss"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "[", "x_", "]"}], ":=", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"x", "<", RowBox[{"-", "1"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["35", "32"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", "2"]}], ")"}], "3"]}], ",", RowBox[{ RowBox[{"-", "1"}], "\[LessEqual]", "x", "\[LessEqual]", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"x", ">", "1"}]}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"200", RowBox[{"p", "[", RowBox[{"100", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.01"}], ",", "0.01"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.01"}], ",", "0.01"}], "}"}], ",", RowBox[{"{", "200", "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12."}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"1000", RowBox[{"p", "[", RowBox[{"1000", "t"}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "0.001"}], ",", "x"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.0015"}], ",", "0.0015"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.0015"}], ",", "0.0015"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12."}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p3", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"1000", RowBox[{"p", "[", RowBox[{"1000", "t"}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "0.001"}], ",", "\[Xi]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", RowBox[{"-", "0.001"}], ",", "x"}], "}"}]}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.003"}], ",", "0.003"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.003"}], ",", "0.003"}], "}"}], ",", RowBox[{"{", "0.003", "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12."}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"GraphicsArray", "[", RowBox[{"{", RowBox[{"p1", ",", "p2"}], "}"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p3", ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4492025974446106`*^9, 3.4492026096836104`*^9}, 3.4584653951070004`*^9, 3.458465509333*^9, {3.4584871899949427`*^9, 3.4584872402629423`*^9}, {3.4584882402669425`*^9, 3.458488248747943*^9}, { 3.458488412808943*^9, 3.4584884778699427`*^9}, {3.458488511431943*^9, 3.4584885394019423`*^9}, {3.4584886657179427`*^9, 3.4584886744289427`*^9}, 3.4584887165229425`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 1.8 Problem 1.13", "Section", CellChangeTimes->{{3.4469984175439997`*^9, 3.44699841984*^9}, 3.447514099249421*^9, {3.447514841461421*^9, 3.447514845362421*^9}, { 3.4480982203666067`*^9, 3.4480982209506063`*^9}, {3.4584894265209427`*^9, 3.4584894343529425`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Composition", "[", RowBox[{"ArcCos", ",", "Cos"}], "]"}], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[Pi]"}], "-", "1"}], ",", RowBox[{ RowBox[{"4", " ", "\[Pi]"}], "+", "1"}]}], "}"}], ",", " ", RowBox[{"MaxRecursion", "->", "15"}], ",", " ", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"Ticks", "->", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "4"}], ",", "4", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}]}], "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"\[Pi]", "+", "0.1"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "->", "Automatic"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "11"}]}], "}"}]}], ",", RowBox[{"ImageSize", "->", "300"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"ArcCos", "[", "t", "]"}], ",", "t"}], "]"}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"Cos", "[", "x", "]"}]}]}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], ",", "x"}], "]"}]}]}], "Input", CellChangeTimes->{{3.446998338398*^9, 3.446998399099*^9}, { 3.447514898100421*^9, 3.4475149049694214`*^9}, 3.4479997087428265`*^9, { 3.4501090665554247`*^9, 3.450109069717425*^9}, {3.4584852925869427`*^9, 3.4584852999279423`*^9}, {3.4584853749559426`*^9, 3.4584853938579426`*^9}, {3.4584855085959425`*^9, 3.458485509115943*^9}}], Cell[TextData[{ "Notice that ", StyleBox["Mathematica", FontSlant->"Italic"], " defines cos \[SmallCircle] arccos on a domain properly containing [ -1, 1 \ ] ." }], "Text", CellChangeTimes->{ 3.4454118675496244`*^9, {3.4454140164276247`*^9, 3.445414040490625*^9}, { 3.4454232654836245`*^9, 3.445423287265625*^9}, {3.4454252534336247`*^9, 3.445425330805625*^9}, {3.44552651212768*^9, 3.4455265208866796`*^9}, { 3.44552656050068*^9, 3.44552661151368*^9}, {3.44552791431168*^9, 3.44552792946268*^9}, {3.44552838048468*^9, 3.44552843550568*^9}, { 3.4455284733246803`*^9, 3.44552848151968*^9}, {3.44552886534568*^9, 3.44552890954468*^9}, {3.4455856581556797`*^9, 3.44558566265968*^9}, { 3.4457675798458233`*^9, 3.4457676327768235`*^9}, {3.4457676652188234`*^9, 3.4457677196698236`*^9}, {3.4457687514758234`*^9, 3.4457687559448233`*^9}, {3.4457704043748236`*^9, 3.445770443601824*^9}, 3.4457707416028233`*^9, {3.4457708017018237`*^9, 3.4457708176768236`*^9}, { 3.4457711173798237`*^9, 3.4457712212778234`*^9}, {3.4457712543318233`*^9, 3.4457713925718236`*^9}, {3.445771577535824*^9, 3.4457716023078237`*^9}, { 3.4457716418718233`*^9, 3.4457717724138236`*^9}, {3.4457718525698233`*^9, 3.445771857233824*^9}, {3.4457721812708235`*^9, 3.4457721846308236`*^9}, { 3.445772218620824*^9, 3.445772256844824*^9}, {3.4458435199359694`*^9, 3.4458435406849694`*^9}, {3.4458439680589695`*^9, 3.445843985274969*^9}, { 3.4458441651769695`*^9, 3.445844207062969*^9}, {3.445844902536969*^9, 3.4458450299359694`*^9}, {3.4458554402629695`*^9, 3.4458555975079694`*^9}, {3.4458556399229693`*^9, 3.445855729675969*^9}, { 3.445855794090969*^9, 3.4458558665489693`*^9}, {3.4458561400229692`*^9, 3.4458561723629694`*^9}, {3.4458589475969696`*^9, 3.445858995347969*^9}, { 3.4462793972480154`*^9, 3.4462794739160156`*^9}, {3.4462795242010155`*^9, 3.446279524393016*^9}, {3.446279828664016*^9, 3.4462799879270153`*^9}, { 3.4462884028540154`*^9, 3.4462884251000156`*^9}, {3.4463031333190002`*^9, 3.4463031517980003`*^9}, {3.446303220042*^9, 3.446303233817*^9}, { 3.446303273862*^9, 3.446303277351*^9}, 3.4464826952521973`*^9, 3.4464827481531973`*^9, 3.446482834126197*^9, {3.4464828906011972`*^9, 3.446482917263197*^9}, 3.446482967775197*^9, 3.446483021393197*^9, { 3.446483053983197*^9, 3.446483082070197*^9}, {3.4464831644891973`*^9, 3.446483193928197*^9}, 3.4464832348371973`*^9, 3.4464832721961975`*^9, 3.446483333280197*^9, 3.446483410676197*^9, {3.4464834930221972`*^9, 3.446483554891197*^9}, 3.446483628367197*^9, 3.4464836596931973`*^9, 3.4464837641771975`*^9, {3.4464838815051975`*^9, 3.4464839039951973`*^9}, 3.4464839448611975`*^9, {3.4464840249361973`*^9, 3.446484067207197*^9}, { 3.446484097636197*^9, 3.446484123562197*^9}, {3.4467941740790195`*^9, 3.4467943018190193`*^9}, {3.4467943367390194`*^9, 3.4467945943930197`*^9}, {3.4467946792270193`*^9, 3.44679474286302*^9}, { 3.44679478171402*^9, 3.4467947843930197`*^9}, {3.4467948327320194`*^9, 3.4467948567970195`*^9}, {3.4467948987010193`*^9, 3.4467950409630194`*^9}, {3.446895784767*^9, 3.446895808443*^9}, { 3.4469646193794127`*^9, 3.446964730196413*^9}, {3.4476573566046267`*^9, 3.4476573603166265`*^9}, {3.447743786537047*^9, 3.4477437886190467`*^9}}], Cell[BoxData[{ RowBox[{"modulePlot", "[", RowBox[{"ArcCos", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ FractionBox["k", "2"], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "3"}], ",", "3", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ FractionBox[ RowBox[{"k", " ", "\[Pi]"}], "2"], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "4", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"\[Pi]", "+", "0.1"}]}], "}"}], ",", "400", ",", RowBox[{"{", "}"}]}], "]"}], "\n", RowBox[{"modulePlot", "[", RowBox[{ RowBox[{"Composition", "[", RowBox[{"Cos", ",", "ArcCos"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ FractionBox["k", "2"], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "3"}], ",", "3", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ FractionBox["k", "2"], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "3"}], ",", "3", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["\[Pi]", "2"]}], "-", "0.1"}], ",", RowBox[{ FractionBox["\[Pi]", "2"], "+", "0.1"}]}], "}"}], ",", "400", ",", RowBox[{"{", "}"}]}], "]"}], "\n", RowBox[{"modulePlot", "[", RowBox[{ RowBox[{"Composition", "[", RowBox[{"ArcCos", ",", "Cos"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[Pi]"}], "-", "1"}], ",", RowBox[{ RowBox[{"4", " ", "\[Pi]"}], "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "4"}], ",", "4", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"\[Pi]", "+", "0.1"}]}], "}"}], ",", "300", ",", RowBox[{"{", "}"}]}], "]"}], "\n", RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"k", " ", "\[Pi]"}], "2"], ",", RowBox[{"ArcCos", "[", RowBox[{"Cos", "[", FractionBox[ RowBox[{"k", " ", "\[Pi]"}], "2"], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}], "]"}], "\n", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{ RowBox[{"Composition", "[", RowBox[{"ArcCos", ",", "Cos"}], "]"}], "[", "x", "]"}]}], "\[Equal]", FractionBox[ RowBox[{"Abs", "[", RowBox[{"Sin", "[", "x", "]"}], "]"}], RowBox[{"Sin", "[", "x", "]"}]]}], "]"}], "\n", RowBox[{"modulePlot", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"Abs", "[", RowBox[{"Sin", "[", "#1", "]"}], "]"}], RowBox[{"Sin", "[", "#1", "]"}]], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[Pi]"}], ",", RowBox[{"4", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "4"}], ",", "4", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"k", ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "0.1"}], ",", RowBox[{"1", "+", "0.1"}]}], "}"}], ",", "400", ",", RowBox[{"{", "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4468943292186117`*^9, 3.4468943361786118`*^9}, { 3.4468944102466116`*^9, 3.446894442462612*^9}, {3.446894495730612*^9, 3.446894544096612*^9}, {3.4468945998386116`*^9, 3.4468946087726116`*^9}, { 3.446894657005612*^9, 3.4468946721066117`*^9}, {3.446894787499612*^9, 3.446894799513612*^9}, {3.4468948595996118`*^9, 3.446894904044612*^9}, { 3.446895125001*^9, 3.446895230384*^9}, {3.446895336947*^9, 3.446895349922*^9}, {3.44689558263*^9, 3.44689558598*^9}, { 3.4468956240880003`*^9, 3.446895697436*^9}, {3.44691140501*^9, 3.4469115508570004`*^9}, {3.44691162895*^9, 3.4469117349119997`*^9}, { 3.4469118727939997`*^9, 3.446911883656*^9}, {3.446911966422*^9, 3.446911970193*^9}, {3.446912024807*^9, 3.446912118961*^9}, { 3.446912162104*^9, 3.446912186741*^9}, {3.446912222117*^9, 3.446912227027*^9}, {3.4469122984560003`*^9, 3.446912313318*^9}, { 3.4469126192860003`*^9, 3.446912693047*^9}, {3.446912753454*^9, 3.4469128047530003`*^9}, {3.446912865*^9, 3.446913092277*^9}, { 3.446913125507*^9, 3.446913178005*^9}, {3.4469132366210003`*^9, 3.446913262832*^9}, {3.446913315473*^9, 3.4469133186610003`*^9}, { 3.4469133604379997`*^9, 3.446913432634*^9}, {3.4469135582980003`*^9, 3.446913585991*^9}, {3.4469136517460003`*^9, 3.446913653109*^9}, { 3.446913791428*^9, 3.446913815582*^9}, {3.44691384874*^9, 3.4469138522349997`*^9}, {3.446914761624*^9, 3.446914807341*^9}, { 3.4469155950109997`*^9, 3.446915595716*^9}, {3.446921099841*^9, 3.446921112109*^9}, {3.4469211504119997`*^9, 3.446921217797*^9}, { 3.446964030564413*^9, 3.446964067842413*^9}, {3.446964113026413*^9, 3.446964193986413*^9}, {3.446964261783413*^9, 3.446964283501413*^9}, { 3.446964317244413*^9, 3.446964395337413*^9}, {3.446964444925413*^9, 3.4469644547804127`*^9}, {3.446964506795413*^9, 3.446964515795413*^9}, { 3.4469645670724125`*^9, 3.446964612002413*^9}, {3.4469648741974125`*^9, 3.4469648776644125`*^9}, {3.4469649286224127`*^9, 3.4469649414904127`*^9}, {3.4469650027604127`*^9, 3.446965014961413*^9}, { 3.446965052479413*^9, 3.446965089705413*^9}, {3.446965121922413*^9, 3.446965123762413*^9}, {3.446965205396413*^9, 3.446965236715413*^9}, { 3.446965323972413*^9, 3.4469653602024126`*^9}, {3.446965505189413*^9, 3.4469655317934127`*^9}, {3.4469680725844126`*^9, 3.446968121125413*^9}, { 3.446968156236413*^9, 3.4469681837964125`*^9}, 3.446968216682413*^9, 3.4469682879004126`*^9, {3.446968326001413*^9, 3.4469683362964125`*^9}, { 3.446968412758413*^9, 3.4469684815294127`*^9}, {3.4469685243294125`*^9, 3.446968557059413*^9}, {3.446968625193413*^9, 3.446968745208413*^9}, { 3.446969141389413*^9, 3.4469691467934127`*^9}, {3.4469754737074127`*^9, 3.4469755714594126`*^9}, {3.4469756095624127`*^9, 3.4469756120494127`*^9}, {3.44699597587*^9, 3.446995979979*^9}, { 3.446996078196*^9, 3.4469960983380003`*^9}, {3.446996214468*^9, 3.446996255809*^9}, {3.4474080130124245`*^9, 3.4474080203214245`*^9}}], Cell["\<\ We recognize arccos \[SmallCircle] cos as a convolution product .\ \>", "Text", CellChangeTimes->{ 3.4454118675496244`*^9, {3.4454140164276247`*^9, 3.445414040490625*^9}, { 3.4454232654836245`*^9, 3.445423287265625*^9}, {3.4454252534336247`*^9, 3.445425330805625*^9}, {3.44552651212768*^9, 3.4455265208866796`*^9}, { 3.44552656050068*^9, 3.44552661151368*^9}, {3.44552791431168*^9, 3.44552792946268*^9}, {3.44552838048468*^9, 3.44552843550568*^9}, { 3.4455284733246803`*^9, 3.44552848151968*^9}, {3.44552886534568*^9, 3.44552890954468*^9}, {3.4455856581556797`*^9, 3.44558566265968*^9}, { 3.4457675798458233`*^9, 3.4457676327768235`*^9}, {3.4457676652188234`*^9, 3.4457677196698236`*^9}, {3.4457687514758234`*^9, 3.4457687559448233`*^9}, {3.4457704043748236`*^9, 3.445770443601824*^9}, 3.4457707416028233`*^9, {3.4457708017018237`*^9, 3.4457708176768236`*^9}, { 3.4457711173798237`*^9, 3.4457712212778234`*^9}, {3.4457712543318233`*^9, 3.4457713925718236`*^9}, {3.445771577535824*^9, 3.4457716023078237`*^9}, { 3.4457716418718233`*^9, 3.4457717724138236`*^9}, {3.4457718525698233`*^9, 3.445771857233824*^9}, {3.4457721812708235`*^9, 3.4457721846308236`*^9}, { 3.445772218620824*^9, 3.445772256844824*^9}, {3.4458435199359694`*^9, 3.4458435406849694`*^9}, {3.4458439680589695`*^9, 3.445843985274969*^9}, { 3.4458441651769695`*^9, 3.445844207062969*^9}, {3.445844902536969*^9, 3.4458450299359694`*^9}, {3.4458554402629695`*^9, 3.4458555975079694`*^9}, {3.4458556399229693`*^9, 3.445855729675969*^9}, { 3.445855794090969*^9, 3.4458558665489693`*^9}, {3.4458561400229692`*^9, 3.4458561723629694`*^9}, {3.4458589475969696`*^9, 3.445858995347969*^9}, { 3.4462793972480154`*^9, 3.4462794739160156`*^9}, {3.4462795242010155`*^9, 3.446279524393016*^9}, {3.446279828664016*^9, 3.4462799879270153`*^9}, { 3.4462884028540154`*^9, 3.4462884251000156`*^9}, {3.4463031333190002`*^9, 3.4463031517980003`*^9}, {3.446303220042*^9, 3.446303233817*^9}, { 3.446303273862*^9, 3.446303277351*^9}, 3.4464826952521973`*^9, 3.4464827481531973`*^9, 3.446482834126197*^9, {3.4464828906011972`*^9, 3.446482917263197*^9}, 3.446482967775197*^9, 3.446483021393197*^9, { 3.446483053983197*^9, 3.446483082070197*^9}, {3.4464831644891973`*^9, 3.446483193928197*^9}, 3.4464832348371973`*^9, 3.4464832721961975`*^9, 3.446483333280197*^9, 3.446483410676197*^9, {3.4464834930221972`*^9, 3.446483554891197*^9}, 3.446483628367197*^9, 3.4464836596931973`*^9, 3.4464837641771975`*^9, {3.4464838815051975`*^9, 3.4464839039951973`*^9}, 3.4464839448611975`*^9, {3.4464840249361973`*^9, 3.446484067207197*^9}, { 3.446484097636197*^9, 3.446484123562197*^9}, {3.4467941740790195`*^9, 3.4467943018190193`*^9}, {3.4467943367390194`*^9, 3.4467945943930197`*^9}, {3.4467946792270193`*^9, 3.44679474286302*^9}, { 3.44679478171402*^9, 3.4467947843930197`*^9}, {3.4467948327320194`*^9, 3.4467948567970195`*^9}, {3.4467948987010193`*^9, 3.4467950409630194`*^9}, {3.446895784767*^9, 3.446895808443*^9}, { 3.4469646193794127`*^9, 3.446964730196413*^9}, {3.4469688037874126`*^9, 3.446968854336413*^9}}], Cell[BoxData[{ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Composition", "[", RowBox[{"ArcCos", ",", "Cos"}], "]"}], "[", "x", "]"}], "-", RowBox[{"(", RowBox[{ FractionBox["\[Pi]", "2"], "-", RowBox[{ RowBox[{"Composition", "[", RowBox[{"ArcSin", ",", "Sin"}], "]"}], "[", RowBox[{"x", "+", FractionBox["\[Pi]", "2"]}], "]"}]}], ")"}]}], ")"}]}], ",", "x"}], "]"}], "\n", RowBox[{"modulePlot", "[", RowBox[{ RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", RowBox[{"-", "2"}]}], "2"], RowBox[{"Convolve", "[", RowBox[{ RowBox[{"Boole", "[", RowBox[{"0", "<", "y", "<", "\[Pi]"}], "]"}], ",", RowBox[{"Boole", "[", RowBox[{"0", "<", "y", "<", "\[Pi]"}], "]"}], ",", "y", ",", RowBox[{"#1", "-", RowBox[{"2", " ", "k", " ", "\[Pi]"}]}]}], "]"}]}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[Pi]"}], ",", RowBox[{"4", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "4"}], ",", "4", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "4"}], ",", "4", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"\[Pi]", "+", "0.1"}]}], "}"}], ",", "600", ",", RowBox[{"{", "}"}]}], "]"}], "\n", RowBox[{"modulePlot", "[", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", RowBox[{"-", "2"}]}], "2"], RowBox[{"\[Pi]", " ", RowBox[{"UnitTriangle", "[", RowBox[{ FractionBox["#1", "\[Pi]"], "-", RowBox[{"2", " ", "k"}], "-", "1"}], "]"}]}]}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[Pi]"}], ",", RowBox[{"4", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "4"}], ",", "4", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "4"}], ",", "4", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"\[Pi]", "+", "0.1"}]}], "}"}], ",", "600", ",", RowBox[{"{", "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.446964932653413*^9, 3.4469649468674126`*^9}, { 3.4469689613984127`*^9, 3.4469689630844126`*^9}, {3.446968994380413*^9, 3.446969041144413*^9}, {3.446969093685413*^9, 3.446969094981413*^9}, { 3.446969382677413*^9, 3.4469694191224127`*^9}, {3.446969451729413*^9, 3.446969452376413*^9}, {3.4474080213054247`*^9, 3.4474080221144247`*^9}}], Cell[BoxData[{ RowBox[{"modulePlot", "[", RowBox[{ RowBox[{"Composition", "[", RowBox[{"ArcSin", ",", "Sin"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]"}], ",", RowBox[{"4", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "4"}], ",", "4", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "4"}], ",", "4", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["\[Pi]", "2"]}], "-", "0.4"}], ",", RowBox[{ FractionBox["\[Pi]", "2"], "+", "0.4"}]}], "}"}], ",", "800", ",", RowBox[{"{", "}"}]}], "]"}], "\n", RowBox[{"FullSimplify", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{ RowBox[{"Composition", "[", RowBox[{"ArcSin", ",", "Sin"}], "]"}], "[", "x", "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"modulePlot", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["\[Pi]", "2"], "-", RowBox[{ RowBox[{"Composition", "[", RowBox[{"ArcSin", ",", "Sin"}], "]"}], "[", RowBox[{"#1", "+", FractionBox["\[Pi]", "2"]}], "]"}]}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ FractionBox[ RowBox[{"k", " ", "\[Pi]"}], "2"], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "4"}], ",", "4", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ FractionBox[ RowBox[{"k", " ", "\[Pi]"}], "2"], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "4"}], ",", "4", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"\[Pi]", "+", "0.1"}]}], "}"}], ",", "800", ",", RowBox[{"{", "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4474080230734243`*^9, 3.4474080239544244`*^9}}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Convolve", "[", RowBox[{ RowBox[{"Boole", "[", RowBox[{"0", "<", "y", "<", "Pi"}], "]"}], ",", RowBox[{"Boole", "[", RowBox[{"0", "<", "y", "<", "Pi"}], "]"}], ",", "y", ",", "x"}], "]"}], "==", RowBox[{"Pi", " ", RowBox[{"UnitTriangle", "[", RowBox[{ RowBox[{"x", "/", "Pi"}], "-", "1"}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.44692052*^9, 3.446920554777*^9}, {3.446920927233*^9, 3.446921005492*^9}, {3.446921050914*^9, 3.4469210629049997`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 2.1 \[Delta]-neighborhood", "Section", CellChangeTimes->{{3.4469984175439997`*^9, 3.44699841984*^9}, 3.447514099249421*^9, {3.447514841461421*^9, 3.447514845362421*^9}, { 3.4475151814224215`*^9, 3.447515191366421*^9}, {3.4475164428304214`*^9, 3.447516446888421*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"tubecurve", "[", "\[Phi]_", "]"}], "[", "\[Delta]_", "]"}], "[", "t_", "]"}], ":=", RowBox[{ RowBox[{"\[Phi]", "[", "t", "]"}], "-", FractionBox[ RowBox[{"\[Delta]", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], ".", RowBox[{ SuperscriptBox["\[Phi]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{ SuperscriptBox["\[Phi]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "2"], "+", SuperscriptBox[ RowBox[{ RowBox[{ SuperscriptBox["\[Phi]", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "2"]}]]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Phi]", "[", "t_", "]"}], ":=", FractionBox[ RowBox[{"3", " ", RowBox[{"{", RowBox[{"t", ",", SuperscriptBox["t", "2"]}], "}"}]}], RowBox[{"1", "+", SuperscriptBox["t", "3"]}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.9`", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"\[Phi]", "[", RowBox[{"-", "0.5"}], "]"}], ",", "0.2"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"tubecurve", "[", "\[Phi]", "]"}], "[", "\[Delta]", "]"}], "[", "t", "]"}], ",", RowBox[{"\[Phi]", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "0.5"}], ",", "15"}], "}"}], ",", RowBox[{"MaxRecursion", "->", "15"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.9", "]"}], ",", RowBox[{"GrayLevel", "[", "0", "]"}]}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "None"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", RowBox[{"-", "0.2"}], ",", "0.2", ",", "0.0005"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"d", ",", "p", ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], "Input", CellChangeTimes->{ 3.4475163465924215`*^9, {3.447999765925826*^9, 3.4479997940658264`*^9}, { 3.448000185219826*^9, 3.4480001971068263`*^9}, 3.4480011742378263`*^9, { 3.4585406984130955`*^9, 3.458540718492096*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 2.2 Lemmas 2.8 and 2.9, and 2.9", "Section", CellChangeTimes->{{3.447515244302421*^9, 3.447515266098421*^9}, { 3.4475164859884214`*^9, 3.447516487324421*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]", "[", "x_", "]"}], ":=", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "1"}], "/", "x"}]]}], "\[IndentingNewLine]", RowBox[{"p0", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Alpha]", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0.52"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Alpha]", "[", RowBox[{"1", "/", "2"}], "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a1", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b1", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]1", "[", "x_", "]"}], ":=", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"x", "\[LessEqual]", "a1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", RowBox[{"x", "-", "a1"}], "]"}], " ", RowBox[{"\[Alpha]", "[", RowBox[{"b1", "-", "x"}], "]"}]}], ",", RowBox[{"a1", "<", "x", "<", "b1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"b1", "\[LessEqual]", "x"}]}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Int1", "=", RowBox[{"N", "[", RowBox[{ SubsuperscriptBox["\[Integral]", "a1", "b1"], RowBox[{ RowBox[{"\[Beta]1", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]1", "[", "x_", "]"}], ":=", FractionBox[ RowBox[{"\[Beta]1", "[", "x", "]"}], "Int1"]}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"\[Gamma]1", "[", "0.5", "]"}], ",", "2"}], "]"}], "\[IndentingNewLine]", RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"\[Gamma]1", "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1.1"}], ",", "2.1"}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"1", "/", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", "0.598", "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], "\[IndentingNewLine]", ",", RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.4586460101090956`*^9, 3.4586460667260957`*^9}, { 3.458646402909096*^9, 3.4586464042190957`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 2.3 Lemma 2.9", "Section", CellChangeTimes->{{3.4469984175439997`*^9, 3.44699841984*^9}, 3.447514099249421*^9, {3.447514841461421*^9, 3.447514845362421*^9}, { 3.4475151814224215`*^9, 3.447515191366421*^9}, {3.4475160800434213`*^9, 3.447516091706421*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ RowBox[{"\[Gamma]1", "[", "x1", "]"}], " ", RowBox[{"\[Gamma]2", "[", "x2", "]"}]}], ",", RowBox[{"{", RowBox[{"x1", ",", "a1", ",", "b1"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "a2", ",", "b2"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"2", " ", RowBox[{"{", RowBox[{"a1", ",", "b1", ",", "0.6`"}], "}"}]}]}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"50", ",", "50"}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], " ", ",", " ", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"(", RowBox[{"White", "&"}], ")"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.4475158359314213`*^9, 3.4475158627384214`*^9}, { 3.447515925022421*^9, 3.447516039064421*^9}, {3.4585499219440956`*^9, 3.4585499291040955`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Figures 2.2 and 2.3. Because of problems with rendering the graphics by ", StyleBox["Mathematica", FontSlant->"Italic"], " in the Versions from 6.0 on, the illustrations were produced using Version \ 5.2 with the code below. " }], "Section", CellChangeTimes->{{3.447515244302421*^9, 3.447515266098421*^9}, { 3.4475164859884214`*^9, 3.447516487324421*^9}, {3.485601747136842*^9, 3.4856018008858414`*^9}, {3.485601835627842*^9, 3.4856019172708416`*^9}, { 3.485602092964842*^9, 3.4856021381788416`*^9}, {3.4856036109818416`*^9, 3.485603612549842*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Off", "[", RowBox[{"General", "::", "spell1"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]", "[", "x_", "]"}], ":=", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "1"}], "/", "x"}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p0", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Alpha]", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0.4"}], "}"}], ",", RowBox[{"PlotPoints", "->", "100"}], ",", RowBox[{"Ticks", "->", "None"}], ",", RowBox[{"AspectRatio", "->", "Automatic"}], ",", RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], ";"}], "\.01"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "1"}], "/", "x"}]], "p00"}], "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Alpha]", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotPoints", "->", "100"}], ",", RowBox[{"Ticks", "->", "None"}], ",", RowBox[{"AspectRatio", "->", "Automatic"}], ",", RowBox[{"PlotRange", "->", "All"}]}], "]"}]}]}], ";"}], "\.01"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a1", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"b1", "=", "2"}], ";"}], "\.01"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]1", "[", "x_", "]"}], ":=", RowBox[{"0", "/;", RowBox[{"x", "<=", "a1"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]1", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", RowBox[{"x", "-", "a1"}], "]"}], RowBox[{"\[Alpha]", "[", RowBox[{"b1", "-", "x"}], "]"}]}], "/;", RowBox[{"a1", "<", "x", "<", "b1"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]1", "[", "x_", "]"}], ":=", RowBox[{"0", "/;", RowBox[{"b1", "<=", "x"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Beta]1", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a1", ",", "b1"}], "}"}], ",", RowBox[{"Ticks", "->", "None"}], ",", RowBox[{"AspectRatio", "->", "1"}], ",", RowBox[{"PlotRange", "->", "All"}]}], "]"}], "\.01"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Int1", "=", RowBox[{ RowBox[{ RowBox[{"N", "[", RowBox[{ SubsuperscriptBox["\[Integral]", "a1", "b1"], RowBox[{ RowBox[{"\[Beta]1", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "]"}], RowBox[{"\[Gamma]1", "[", "x_", "]"}]}], ":=", RowBox[{ RowBox[{ RowBox[{"1", "/", "Int1"}], " ", RowBox[{"\[Beta]1", "[", "x", "]"}], "p1"}], "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Gamma]1", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", RowBox[{"Ticks", "->", "None"}], ",", RowBox[{"AspectRatio", "->", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"PlotRange", "->", "All"}]}], "]"}]}]}]}], ";"}], "\.01"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"N", "[", RowBox[{ SubsuperscriptBox["\[Integral]", "a1", "b1"], RowBox[{ RowBox[{"\[Gamma]1", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "]"}], "\[Epsilon]"}], "=", RowBox[{"1", "/", "2"}]}], ";", "\.01", RowBox[{ RowBox[{"\[Gamma]1\[Epsilon]", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"1", "/", "\[Epsilon]"}], " ", RowBox[{"\[Gamma]1", "[", RowBox[{"x", "/", "\[Epsilon]"}], "]"}], "p2"}], "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Gamma]1\[Epsilon]", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a1", ",", "b1"}], "}"}], ",", RowBox[{"Ticks", "->", "None"}], ",", RowBox[{"AspectRatio", "->", "1"}], ",", RowBox[{"PlotRange", "->", "All"}]}], "]"}]}]}], ";", "\.01", RowBox[{"Show", "[", RowBox[{ RowBox[{"GraphicsArray", "[", RowBox[{"{", RowBox[{"p1", ",", "p2"}], "}"}], "]"}], ",", RowBox[{"Ticks", "->", "None"}], ",", RowBox[{"AspectRatio", "->", "Automatic"}], ",", RowBox[{"PlotRange", "->", "All"}], ",", RowBox[{"ImageSize", "->", "500"}]}], "]"}]}], "\.01"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"a2", "=", "2"}], ";", "\.01", RowBox[{"b2", "=", "3"}], ";"}], "\.01"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]2", "[", "x_", "]"}], ":=", RowBox[{"0", "/;", RowBox[{"x", "<=", "a2"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]2", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", RowBox[{"x", "-", "a2"}], "]"}], RowBox[{"\[Alpha]", "[", RowBox[{"b2", "-", "x"}], "]"}]}], "/;", RowBox[{"a2", "<", "x", "<", "b2"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]2", "[", "x_", "]"}], ":=", RowBox[{"0", "/;", RowBox[{"b2", "<=", "x"}]}]}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Beta]2", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a2", ",", "b2"}], "}"}], ",", RowBox[{"Ticks", "->", "None"}], ",", RowBox[{"AspectRatio", "->", "1"}], ",", RowBox[{"PlotRange", "->", "All"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Int2", "=", RowBox[{ RowBox[{ RowBox[{"N", "[", RowBox[{ SubsuperscriptBox["\[Integral]", "a2", "b2"], RowBox[{ RowBox[{"\[Beta]2", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "]"}], RowBox[{"\[Gamma]2", "[", "x_", "]"}]}], ":=", RowBox[{ RowBox[{"1", "/", "Int2"}], " ", RowBox[{"\[Beta]2", "[", "x", "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p3", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Gamma]2", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a2", ",", "b2"}], "}"}], ",", RowBox[{"Ticks", "->", "None"}], ",", RowBox[{"AspectRatio", "->", "Automatic"}], ",", RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], ";"}], "\.01"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ SubsuperscriptBox["\[Integral]", "a2", "b2"], RowBox[{ RowBox[{"\[Gamma]2", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.4856014949738417`*^9, 3.4856017117978415`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 2.4 Theorem 2.15", "Section", CellChangeTimes->{{3.447516690032421*^9, 3.447516708335421*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"s", "[", "0", "]"}], "[", "x_", "]"}], ":=", FractionBox[ SuperscriptBox["x", "3"], "6"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"s", "[", "1", "]"}], "[", "x_", "]"}], ":=", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], "3"], "-", RowBox[{"4", " ", SuperscriptBox["x", "3"]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"s", "[", "x_", "]"}], ":=", RowBox[{"0", "/;", RowBox[{"x", "<", RowBox[{"-", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"s", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"s", "[", "0", "]"}], "[", RowBox[{"x", "+", "2"}], "]"}], "/;", RowBox[{ RowBox[{"-", "2"}], "<", "x", "<", RowBox[{"-", "1"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"s", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"s", "[", "1", "]"}], "[", RowBox[{"x", "+", "1"}], "]"}], "/;", RowBox[{ RowBox[{"-", "1"}], "<", "x", "<", "0"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"s", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"s", "[", "1", "]"}], "[", RowBox[{ RowBox[{"-", "x"}], "+", "1"}], "]"}], "/;", RowBox[{"0", "<", "x", "<", "1"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"s", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"s", "[", "0", "]"}], "[", RowBox[{ RowBox[{"-", "x"}], "+", "2"}], "]"}], "/;", RowBox[{"1", "<", "x", "<", "2"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"s", "[", "x_", "]"}], ":=", RowBox[{"0", "/;", RowBox[{"2", "<", "x"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"spl", "[", "x_", "]"}], ":=", RowBox[{"s", "[", RowBox[{"2", " ", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"spl0", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Global`spl", "[", RowBox[{"x", "+", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0.7`"}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12.`"}]}], "}"}]}]}], "]"}]}], ";", RowBox[{"spl1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"spl", "[", RowBox[{"x", "+", FractionBox["1", "2"]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1.5`"}], ",", "0.5`"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0.7`"}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12.`"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"spl2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"spl", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0.7`"}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12.`"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"spl3", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"spl", "[", RowBox[{"x", "-", FractionBox["1", "2"]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.5`"}], ",", "1.5`"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0.7`"}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12.`"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"spl4", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"spl", "[", RowBox[{"x", "-", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0.7`"}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12.`"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ssa", "=", RowBox[{"Show", "[", RowBox[{"spl0", ",", "spl1", ",", "spl2", ",", "spl3", ",", "spl4", ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0.7`"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", "0.6`", "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"ssb", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", RowBox[{"-", "2"}]}], "2"], RowBox[{"spl", "[", RowBox[{"x", "+", FractionBox["j", "2"]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotPoints", "\[Rule]", "200"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12.`"}]}], "}"}]}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.4475167203724213`*^9, 3.4475168313914213`*^9}, { 3.447516864956421*^9, 3.4475168908264213`*^9}, {3.447516933090421*^9, 3.447516938822421*^9}, {3.447516972822421*^9, 3.447516973893421*^9}, 3.447671825220627*^9}, FontColor->RGBColor[0, 0, 0.500008], Background->RGBColor[0.832044, 0.996109, 0.832044]] }, Open ]], Cell[CellGroupData[{ Cell["Figure 2.5", "Section", CellChangeTimes->{{3.447665337060627*^9, 3.447665342428627*^9}, { 3.4585507135050955`*^9, 3.458550715961096*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"-", SuperscriptBox["x", "2"]}]], SqrtBox["\[Pi]"]], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot3D", "[", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", SuperscriptBox["x1", "2"]}], "-", SuperscriptBox["x2", "2"]}]], "\[Pi]"], ",", RowBox[{"{", RowBox[{"x1", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"2", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", RowBox[{"-", "4"}], ",", "1"}], "}"}]}]}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"ImageSize", "\[Rule]", "550"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"(", RowBox[{"White", "&"}], ")"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], ",", RowBox[{"r", " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], ",", FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"-", SuperscriptBox["r", "2"]}]], "\[Pi]"]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"30", ",", "60"}], "}"}]}], ",", RowBox[{"PlotPoints", "->", "50"}], ",", RowBox[{"AspectRatio", "\[Rule]", "0.7`"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "4", ",", "0.05`"}], "}"}]}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"ImageSize", "\[Rule]", "550"}], ",", RowBox[{"BoundaryStyle", "->", "Automatic"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"(", RowBox[{"White", "&"}], ")"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.4475170823584213`*^9, 3.4475170993684216`*^9}, { 3.4475171578924212`*^9, 3.4475171840664215`*^9}, {3.4475172742054214`*^9, 3.4475173257384214`*^9}, {3.4585505709830956`*^9, 3.4585505833980956`*^9}, { 3.4585506416430955`*^9, 3.4585506487380953`*^9}, {3.4585507554450955`*^9, 3.4585507766350956`*^9}, {3.4585509692650957`*^9, 3.4585509776720953`*^9}, { 3.4585513283960953`*^9, 3.4585513644970956`*^9}, {3.4585514997540956`*^9, 3.4585515370480957`*^9}, {3.4585518495660954`*^9, 3.458551858025096*^9}, { 3.4585519309700956`*^9, 3.4585519727990956`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 2.6 Problem 2.2", "Section", CellChangeTimes->{ 3.447514100137421*^9, {3.447665370994627*^9, 3.4476653772746267`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]", "=", FractionBox["1", "50"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]", "[", "x_", "]"}], ":=", RowBox[{ FractionBox["1", RowBox[{ SqrtBox["\[Pi]"], "\[Epsilon]"}]], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox["x", "2"], SuperscriptBox["\[Epsilon]", "2"]]}]]}]}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[Gamma]", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Gamma]", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.05"}], ",", "0.05"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.05"}], ",", "0.05"}], "}"}], ",", RowBox[{"{", "25", "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "15."}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "-", "y"}], "]"}], RowBox[{"\[Gamma]", "[", "y", "]"}]}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}], ",", RowBox[{"{", "0.5", "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "15."}]}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.4492026111466103`*^9, 3.4492026129946103`*^9}, { 3.4511101412484303`*^9, 3.4511101429444304`*^9}, {3.4585522271360955`*^9, 3.458552235935096*^9}, 3.458552624020096*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 5.1 Problem 5.3", "Section", CellChangeTimes->{ 3.447514101961421*^9, {3.447665483100627*^9, 3.447665488403627*^9}, 3.447671873943627*^9, {3.450599915044067*^9, 3.450599915637067*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{ RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ FractionBox["x", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["\[Epsilon]", "2"]}]], ",", RowBox[{"{", RowBox[{"\[Epsilon]", ",", "0.025", ",", "0.25", ",", "0.025"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.55"}], ",", "0.55"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "10.5"}], ",", "10.5"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12."}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], ",", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"p2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ FractionBox["\[Epsilon]", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["\[Epsilon]", "2"]}]], ",", RowBox[{"{", RowBox[{"\[Epsilon]", ",", "0.025", ",", "0.25", ",", "0.025"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.55"}], ",", "0.55"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "10.5"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12."}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], ",", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"GraphicsRow", "[", RowBox[{ RowBox[{"{", RowBox[{"p1", ",", "p2"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], "Input", CellChangeTimes->{{3.450594903149067*^9, 3.450594922347067*^9}, { 3.450594955610067*^9, 3.4505949623130665`*^9}, {3.450595236505067*^9, 3.450595261881067*^9}, {3.450595390458067*^9, 3.450595425072067*^9}, { 3.450595558192067*^9, 3.4505955600000668`*^9}, {3.450596295742067*^9, 3.450596298574067*^9}, {3.4506000052780666`*^9, 3.450600042114067*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 5.2 Problem 5.5", "Section", CellChangeTimes->{ 3.447514101961421*^9, {3.447665483100627*^9, 3.447665488403627*^9}, 3.447671873943627*^9, {3.450599921324067*^9, 3.4505999217640667`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\n", RowBox[{ RowBox[{"u", "[", RowBox[{"t_", ",", "x_"}], "]"}], ":=", FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox["x", "2"], RowBox[{"4", " ", "t"}]]}]], SqrtBox[ RowBox[{"4", " ", "\[Pi]", " ", "t"}]]]}], "\n", RowBox[{ RowBox[{"t", "=", FractionBox["1", "10"]}], ";"}], "\n", RowBox[{"u", "[", RowBox[{"t", ",", "0"}], "]"}], "\n", RowBox[{ RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"t", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"u", "[", RowBox[{"t", ",", "0"}], "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12."}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"p11", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"t", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12."}]}], "}"}]}], ",", RowBox[{"Ticks", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}]}], RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", "200"}]}], "*)"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v", "[", RowBox[{"t_", ",", "x_"}], "]"}], ":=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "xx"], RowBox[{"u", "[", RowBox[{"t", ",", "xx"}], "]"}]}], "/.", "\[InvisibleSpace]", RowBox[{"xx", "\[Rule]", "x"}]}]}], "\n", RowBox[{"sol", "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"v", "[", RowBox[{"t", ",", "x"}], "]"}]}], "\[Equal]", "0"}], ",", "x"}], "]"}], "/.", "\[InvisibleSpace]", RowBox[{"Rule", "\[Rule]", "Equal"}]}]}], "\n", RowBox[{ RowBox[{"p2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"v", "[", RowBox[{"t", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", FractionBox["1", SqrtBox["5"]]}], ",", FractionBox["1", SqrtBox["5"]], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"v", "[", RowBox[{"t", ",", RowBox[{"-", FractionBox["1", SqrtBox["5"]]}]}], "]"}], ",", RowBox[{"v", "[", RowBox[{"t", ",", FractionBox["1", SqrtBox["5"]]}], "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12."}]}], "}"}]}]}], RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", "200"}]}], "*)"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p21", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"v", "[", RowBox[{"t", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12."}]}], "}"}]}], ",", RowBox[{"Ticks", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}]}], RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", "200"}]}], "*)"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"w", "[", RowBox[{"t_", ",", "x_"}], "]"}], ":=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "xx"], RowBox[{"v", "[", RowBox[{"t", ",", "xx"}], "]"}]}], "/.", "\[InvisibleSpace]", RowBox[{"xx", "\[Rule]", "x"}]}]}], "\n", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"w", "[", RowBox[{"t", ",", "x"}], "]"}]}], "\[Equal]", "0"}], ",", "x"}], "]"}], "\n", RowBox[{ RowBox[{"p3", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"w", "[", RowBox[{"t", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", SqrtBox[ FractionBox["3", "5"]]}], ",", SqrtBox[ FractionBox["3", "5"]], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["5", RowBox[{"\[ExponentialE]", " "}]], SqrtBox[ FractionBox["10", RowBox[{"\[ExponentialE]", " ", "\[Pi]"}]]]}], ",", RowBox[{"w", "[", RowBox[{"t", ",", RowBox[{"-", SqrtBox[ FractionBox["3", "5"]]}]}], "]"}], ",", RowBox[{"w", "[", RowBox[{"t", ",", FractionBox["1", SqrtBox["5"]]}], "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12."}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "200"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"p31", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"w", "[", RowBox[{"t", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12."}]}], "}"}]}]}], RowBox[{"(*", RowBox[{",", RowBox[{"ImageSize", "\[Rule]", "200"}]}], "*)"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], RowBox[{ RowBox[{"u", "[", RowBox[{"t", ",", "x"}], "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "\n", RowBox[{"Show", "[", RowBox[{ RowBox[{"GraphicsArray", "[", RowBox[{"{", RowBox[{"p1", ",", "p2", ",", "p3"}], "}"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"GraphicsArray", "[", RowBox[{"{", RowBox[{"p11", ",", "p21", ",", "p31"}], "}"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], "\n", "p11", "\[IndentingNewLine]", "p21", "\[IndentingNewLine]", RowBox[{"p31", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "t", "]"}], "\n", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "t"], RowBox[{"u", "[", RowBox[{"t", ",", "x"}], "]"}]}], "-", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]], RowBox[{"u", "[", RowBox[{"t", ",", "x"}], "]"}]}]}], "]"}]}], "Input", CellChangeTimes->{ 3.458553118954096*^9, {3.4585531577340956`*^9, 3.458553167310096*^9}, { 3.458831859753042*^9, 3.458831871914042*^9}, {3.4588319372140417`*^9, 3.458832117149042*^9}, {3.458832152668042*^9, 3.458832228792042*^9}, { 3.458832261767042*^9, 3.458832262670042*^9}, {3.4588322970560417`*^9, 3.458832381477042*^9}, {3.458832428705042*^9, 3.458832441117042*^9}, { 3.458832499763042*^9, 3.4588325002650423`*^9}, {3.458832539755042*^9, 3.458832648333042*^9}, {3.4588327154160423`*^9, 3.458832718735042*^9}, { 3.458832829076042*^9, 3.458832848301042*^9}, {3.4588329000150423`*^9, 3.458832913075042*^9}, {3.458832957860042*^9, 3.458832992565042*^9}, { 3.4588330551920424`*^9, 3.4588331549960423`*^9}, {3.4588331903060417`*^9, 3.458833191080042*^9}, {3.458833226010042*^9, 3.4588333724240417`*^9}, { 3.458833407946042*^9, 3.458833412519042*^9}, {3.458833454360042*^9, 3.458833475242042*^9}, {3.458833519767042*^9, 3.458833521856042*^9}, { 3.458833618639042*^9, 3.458833648878042*^9}, {3.458833791198042*^9, 3.458833791720042*^9}, {3.458833900190042*^9, 3.458833939315042*^9}, { 3.4588339706990423`*^9, 3.458833979046042*^9}, {3.458834020835042*^9, 3.458834025348042*^9}, {3.458834102172042*^9, 3.458834197455042*^9}, { 3.4588342392800417`*^9, 3.458834268429042*^9}, {3.4588343057870417`*^9, 3.458834342330042*^9}, {3.458834386575042*^9, 3.458834576748042*^9}, { 3.458834634163042*^9, 3.4588347057730417`*^9}, {3.458834887486042*^9, 3.458834964980042*^9}, {3.458835168184042*^9, 3.4588351718900423`*^9}, { 3.458835208281042*^9, 3.458835216935042*^9}, {3.4589080932508345`*^9, 3.458908127801835*^9}, {3.458915305008835*^9, 3.4589153942748346`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 5.3 Problem 5.9", "Section", CellChangeTimes->{ 3.447514102817421*^9, {3.447665555760627*^9, 3.447665568351627*^9}, { 3.450599927548067*^9, 3.450599928140067*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "10000"], FractionBox[ RowBox[{"Sin", "[", RowBox[{ SuperscriptBox["n", "2"], "x"}], "]"}], SuperscriptBox["n", "2"]]}]}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"f", "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"PlotPoints", "\[Rule]", "10000"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Pi", "/", "2"}], ",", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1.2337"}], "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10."}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], "Input", CellChangeTimes->{ 3.4492026160156107`*^9, 3.458885055701*^9, {3.4588851777060003`*^9, 3.4588851959969997`*^9}, {3.4589164251518345`*^9, 3.458916431726835*^9}}], Cell[BoxData["$Aborted"], "Output", CellChangeTimes->{3.458885143308*^9, 3.458912767869835*^9, 3.458916470459835*^9}] }, Open ]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "10000"], FractionBox[ RowBox[{"Sin", "[", RowBox[{ SuperscriptBox["n", "2"], "x"}], "]"}], SuperscriptBox["n", "2"]]}]}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"f", "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ FractionBox["\[Pi]", "2"], "-", "0.05"}], ",", RowBox[{ FractionBox["\[Pi]", "2"], "+", "0.15"}]}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"PlotPoints", "\[Rule]", "10000"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10."}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], "Input", CellChangeTimes->{3.4492026176236105`*^9, 3.458885210135*^9, 3.4589278997348347`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "Infinity"], FractionBox[ RowBox[{"Sin", "[", RowBox[{ SuperscriptBox["n", "2"], "x"}], "]"}], SuperscriptBox["n", "2"]]}]}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"Pi", "/", "2"}], "]"}], ",", "5"}], "]"}]}], "Input", CellChangeTimes->{{3.458916270645835*^9, 3.458916370728835*^9}}], Cell[BoxData["1.23370055013616982735431137498451992529`5."], "Output", CellChangeTimes->{{3.458916279244835*^9, 3.458916336356835*^9}, 3.458916375739835*^9}] }, Open ]] }, Open ]], Cell["Figure 9.1 See separateFile RCL.nb", "Section", CellChangeTimes->{ 3.447514102817421*^9, {3.447665555760627*^9, 3.447665568351627*^9}, { 3.450599927548067*^9, 3.450599928140067*^9}, {3.4589181552738347`*^9, 3.4589181786238346`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[CellGroupData[{ Cell["Problem 9.14 A computation", "Section", CellChangeTimes->{ 3.447514102817421*^9, {3.447665555760627*^9, 3.447665568351627*^9}, { 3.4476896123536267`*^9, 3.4476896263206267`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"DSolve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"L", " ", RowBox[{ RowBox[{"J", "''"}], "[", "t", "]"}]}], "+", RowBox[{"R", " ", RowBox[{ RowBox[{"J", "'"}], "[", "t", "]"}]}], "+", RowBox[{ FractionBox["1", "C"], " ", RowBox[{"J", "[", "t", "]"}]}]}], "==", "0"}], ",", "J", ",", "t"}], "]"}], "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"L", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"R", " ", "x"}], "+", FractionBox["1", "C"]}], "==", "0"}], ",", "x"}], "]"}]}], "Input", CellChangeTimes->{{3.399886173546875*^9, 3.399886247390625*^9}, { 3.399886281078125*^9, 3.399886281796875*^9}, {3.3998968999375*^9, 3.39989695090625*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Ra", "=", "4"}], ";"}], "\n", RowBox[{ RowBox[{"L", "=", "2"}], ";"}], "\n", RowBox[{ RowBox[{"Ca", "=", "1"}], ";"}], "\n", RowBox[{ RowBox[{"Rb", "=", RowBox[{"2", " ", SqrtBox["2"]}]}], ";"}], "\n", RowBox[{"N", "[", "%", "]"}], "\n", RowBox[{ RowBox[{"Rc", "=", "1"}], ";"}], "\n", RowBox[{ RowBox[{"Rd", "=", "0"}], ";"}], "\n", RowBox[{ SuperscriptBox["Ra", "2"], "-", FractionBox[ RowBox[{"4", " ", "L"}], "Ca"]}], "\n", RowBox[{ SuperscriptBox["Rb", "2"], "-", FractionBox[ RowBox[{"4", " ", "L"}], "Ca"]}], "\n", RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["Rc", "2"], "-", FractionBox[ RowBox[{"4", " ", "L"}], "Ca"]}], ")"}]}], "\n", FractionBox[ SqrtBox[ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["Rd", "2"], "-", FractionBox[ RowBox[{"4", " ", "L"}], "Ca"]}], ")"}]}]], RowBox[{"2", " ", "L"}]], "\n", FractionBox["2", SqrtBox[ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["Rd", "2"], "-", FractionBox[ RowBox[{"4", " ", "L"}], "Ca"]}], ")"}]}]]], "\n", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"HeavisideTheta", "[", "t", "]"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"Ra", " ", "t"}], RowBox[{"2", " ", "L"}]]}]], " ", RowBox[{"Sinh", "[", FractionBox[ RowBox[{"t", " ", SqrtBox[ RowBox[{ SuperscriptBox["Ra", "2"], "-", FractionBox[ RowBox[{"4", " ", "L"}], "Ca"]}]]}], RowBox[{"2", " ", "L"}]], "]"}]}], SqrtBox[ RowBox[{ SuperscriptBox["Ra", "2"], "-", FractionBox[ RowBox[{"4", " ", "L"}], "Ca"]}]]], ",", FractionBox[ RowBox[{ RowBox[{"HeavisideTheta", "[", "t", "]"}], " ", "t", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"Rb", " ", "t"}], RowBox[{"2", " ", "L"}]]}]]}], "L"], ",", FractionBox[ RowBox[{"2", " ", RowBox[{"HeavisideTheta", "[", "t", "]"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"Rc", " ", "t"}], RowBox[{"2", " ", "L"}]]}]], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"t", " ", SqrtBox[ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["Rc", "2"], "-", FractionBox[ RowBox[{"4", " ", "L"}], "Ca"]}], ")"}]}]]}], RowBox[{"2", " ", "L"}]], "]"}]}], SqrtBox[ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["Rc", "2"], "-", FractionBox[ RowBox[{"4", " ", "L"}], "Ca"]}], ")"}]}]]], ",", FractionBox[ RowBox[{"2", " ", RowBox[{"HeavisideTheta", "[", "t", "]"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"Rd", " ", "t"}], RowBox[{"2", " ", "L"}]]}]], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"t", " ", SqrtBox[ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["Rd", "2"], "-", FractionBox[ RowBox[{"4", " ", "L"}], "Ca"]}], ")"}]}]]}], RowBox[{"2", " ", "L"}]], "]"}]}], SqrtBox[ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["Rd", "2"], "-", FractionBox[ RowBox[{"4", " ", "L"}], "Ca"]}], ")"}]}]]]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "17"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "0.8"}], ",", "0.8"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "11."}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Pi]", SqrtBox["2"]}], ",", RowBox[{"2", " ", "\[Pi]", " ", SqrtBox["2"]}], ",", RowBox[{"3", " ", "\[Pi]", " ", SqrtBox["2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", SqrtBox["2"]]}], ",", FractionBox["1", SqrtBox["2"]]}], "}"}]}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{ 3.4511105803814297`*^9, {3.45111061953643*^9, 3.4511108499584303`*^9}, { 3.45111089498143*^9, 3.45111091539643*^9}, {3.45111096291543*^9, 3.45111115047143*^9}, {3.45111141974443*^9, 3.4511114461504297`*^9}, { 3.45111152976943*^9, 3.45111156227343*^9}, {3.45111220546743*^9, 3.45111233142443*^9}, {3.4511123903664303`*^9, 3.45111246589743*^9}, 3.45111253556743*^9, {3.45111262544143*^9, 3.45111263023343*^9}, { 3.45111277268943*^9, 3.4511127915904303`*^9}, {3.4511128271904297`*^9, 3.45111285613943*^9}, {3.45111292829643*^9, 3.45111296028643*^9}, { 3.45111299344543*^9, 3.4511130276824303`*^9}, {3.45111322555243*^9, 3.4511132278154297`*^9}, {3.4511132960104303`*^9, 3.45111330919543*^9}, { 3.45111336386343*^9, 3.45111338394943*^9}, {3.45111343381143*^9, 3.4511134375064297`*^9}, {3.45111381808543*^9, 3.45111382557343*^9}, { 3.4511155111644297`*^9, 3.45111555713743*^9}, {3.45111788939643*^9, 3.4511180227674303`*^9}, {3.4511180659334297`*^9, 3.45111812252943*^9}, { 3.45111819222043*^9, 3.4511182009004297`*^9}, {3.45111824221043*^9, 3.45111830132743*^9}, {3.45111833326543*^9, 3.4511183562754297`*^9}, { 3.45111843891643*^9, 3.4511184443594303`*^9}, {3.4511184776174297`*^9, 3.45111849523143*^9}, {3.45111868104443*^9, 3.45111868847543*^9}, { 3.45111876039443*^9, 3.45111876132343*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 10.1 Problem 5.5", "Section", CellChangeTimes->{{3.4476719597386265`*^9, 3.4476719734656267`*^9}, { 3.447672006815627*^9, 3.4476720092386265`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "4"], "-", SuperscriptBox["x", "2"]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", SqrtBox["2"]}], ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", SqrtBox["2"]}], ",", RowBox[{"-", "1"}], ",", "1", ",", SqrtBox["2"]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", RowBox[{"ImageSize", "->", "300"}]}], "]"}]], "Input", CellChangeTimes->{{3.447676629561627*^9, 3.4476766463686266`*^9}, 3.447676695326627*^9, {3.4511189583924303`*^9, 3.45111896271143*^9}, { 3.45111903998743*^9, 3.45111904057943*^9}, {3.458747621716037*^9, 3.4587476482700367`*^9}, {3.4589184616028347`*^9, 3.458918462874835*^9}, { 3.458918498040835*^9, 3.4589185123998346`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure without caption Corollary 11.7", "Section", CellChangeTimes->{{3.4476720830196266`*^9, 3.4476720878026266`*^9}, { 3.447672263624627*^9, 3.4476722725596266`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"compact", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.45", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "0.2"}], "+", RowBox[{"Cos", "[", RowBox[{"n", " ", RowBox[{"\[Pi]", "/", "5"}]}], "]"}]}], ",", RowBox[{"0.3", "+", RowBox[{"Sin", "[", RowBox[{"n", " ", RowBox[{"\[Pi]", "/", "5"}]}], "]"}]}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "8"}], "}"}]}], "]"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x1", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.85", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "2"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x2", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.85", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "0.4"}]}], "}"}], ",", "1.9"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n1", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.75", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], ",", "1.7"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n2", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.65", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], ",", "1.4"}], "]"}]}], "}"}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\<\!\(\* StyleBox[SubscriptBox[\"K\", \"j\"], FontSlant->\"Italic\"]\)\>\"", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", RowBox[{"-", "0.1"}]}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\* StyleBox[\"X\", FontSlant->\"Italic\"]\)\>\"", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1.8"}]}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"0.9", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\* StyleBox[SubscriptBox[\"d\", \"j\"], FontSlant->\"Italic\"]\)-nbhd of supp \!\(\*SubscriptBox[\(\[Chi]\), \(j\)]\)\ \>\"", ",", RowBox[{"{", RowBox[{"0.1", ",", "2.05"}], "}"}]}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "x1", ",", "x2", ",", "n1", ",", "n2", ",", "compact", ",", "t", ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14."}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], "Input", CellChangeTimes->{{3.482050524804434*^9, 3.482050577000434*^9}, { 3.482050618710434*^9, 3.482050620158434*^9}, 3.4820506517724338`*^9, { 3.4820506877544336`*^9, 3.482050720304434*^9}, {3.482050765790434*^9, 3.482050974498434*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 12.1 Problem 12.2", "Section", CellChangeTimes->{ 3.447514103577421*^9, {3.447672324444627*^9, 3.447672329709627*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"PolarPlot", "[", RowBox[{ RowBox[{"r", SqrtBox[ RowBox[{"Abs", "[", RowBox[{"Cos", "[", "\[Alpha]", "]"}], "]"}]]}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "->", "Automatic"}]}], "]"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "7", ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"l1", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "Tiny", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "7.2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"7.2", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"l2", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "Tiny", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "4.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4.8"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p1", "=", RowBox[{"Show", "[", RowBox[{"p", ",", "l1", ",", "l2"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x1", "2"], "+", SuperscriptBox["x2", "2"]}], "\[Equal]", RowBox[{"c", " ", "x1"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["x1", "2"], "+", SuperscriptBox["x2", "2"]}], "\[Equal]", RowBox[{ RowBox[{"-", "c"}], " ", "x1"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x1", ",", RowBox[{"-", "7"}], ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", RowBox[{"-", "7"}], ",", "7"}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "False"}], ",", RowBox[{"ContourStyle", "->", "Black"}], ",", RowBox[{"AspectRatio", "->", "Automatic"}]}], "]"}], ",", RowBox[{"{", RowBox[{"c", ",", "1", ",", "7", ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"l1", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "Tiny", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "7.5"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"7.5", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"l3", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "Small", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q1", "=", RowBox[{"Show", "[", RowBox[{"q", ",", "l1", ",", "l3"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"GraphicsArray", "[", RowBox[{"{", RowBox[{"p1", ",", "q1"}], "}"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4587482223900366`*^9, 3.458748326302037*^9}, { 3.4587483620390368`*^9, 3.458748492439037*^9}, {3.458748559955037*^9, 3.458748579050037*^9}, {3.458748611675037*^9, 3.458748689748037*^9}, { 3.4587487290000367`*^9, 3.4587490375810366`*^9}, {3.458886465424*^9, 3.458886489422*^9}, {3.458886587459*^9, 3.458886612447*^9}, { 3.458886760009*^9, 3.458886768542*^9}, {3.4588868577799997`*^9, 3.458886861841*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 12.2 Problem 12.8", "Section", CellChangeTimes->{ 3.4475141044414215`*^9, {3.447672431407627*^9, 3.447672442950627*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "[", "a_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "a", "]"}], ",", RowBox[{"Sin", "[", "a", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "a", "]"}]}], ",", RowBox[{"Cos", "[", "a", "]"}]}], "}"}]}], "}"}]}], "\n", RowBox[{ RowBox[{"arrow", "[", RowBox[{"x_", ",", "y_", ",", "h_", ",", "b_", ",", "a_"}], "]"}], ":=", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"r", "[", "a", "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "b"}], ",", RowBox[{ RowBox[{"-", "4"}], " ", "h"}]}], "}"}]}], "+", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"r", "[", "a", "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "b"}], ",", RowBox[{ RowBox[{"-", "4"}], " ", "h"}]}], "}"}]}], "+", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ",", RowBox[{ RowBox[{ RowBox[{"r", "[", "a", "]"}], ".", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "3"}], " ", "h"}]}], "}"}]}], "+", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "=", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", RowBox[{"Abs", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"l", "/.", RowBox[{"(", RowBox[{ RowBox[{"Line", "[", "pts_", "]"}], "\[RuleDelayed]", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.88", "]"}], ",", RowBox[{"Polygon", "[", "pts", "]"}]}], "}"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2.1"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.4"}], ",", "1.4"}], "}"}], ",", RowBox[{"{", RowBox[{"1.4", ",", "1.4"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.4", ",", "1.4"}], "}"}], ",", RowBox[{"{", RowBox[{"1.4", ",", "2.2"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\* StyleBox[\"V\", FontSlant->\"Italic\"]\)\>\"", ",", RowBox[{"{", RowBox[{"0.5", ",", "1.1"}], "}"}]}], "]"}], ",", RowBox[{"arrow", "[", RowBox[{ RowBox[{"-", "0.8"}], ",", "0.8", ",", "0.06", ",", "0.03", ",", RowBox[{"3", RowBox[{"\[Pi]", "/", "4"}]}]}], "]"}], ",", RowBox[{"arrow", "[", RowBox[{"1", ",", "1", ",", "0.06", ",", "0.03", ",", RowBox[{"\[Pi]", "/", "4"}]}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p", ",", "l", ",", "a", ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"x\", FontSlant->\"Italic\"]\)\>\"", ",", "\"\<\!\(\* StyleBox[\"t\", FontSlant->\"Italic\"]\)\>\""}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14."}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}]}], "Input", CellChangeTimes->{ 3.4492026212586107`*^9, 3.458885331508*^9, {3.4588856483529997`*^9, 3.45888572662*^9}, {3.458885808565*^9, 3.458885831612*^9}, { 3.458885865304*^9, 3.4588859258050003`*^9}, {3.458886181296*^9, 3.458886226189*^9}, {3.45888628817*^9, 3.458886315329*^9}, { 3.4588863864709997`*^9, 3.45888639762*^9}, {3.458919904610835*^9, 3.4589199051308346`*^9}, {3.458920040683835*^9, 3.4589200430428348`*^9}}], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "[", "a_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "a", "]"}], ",", RowBox[{"Sin", "[", "a", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "a", "]"}]}], ",", RowBox[{"Cos", "[", "a", "]"}]}], "}"}]}], "}"}]}], "\n", RowBox[{ RowBox[{"arrow", "[", RowBox[{"x_", ",", "y_", ",", "h_", ",", "b_", ",", "a_"}], "]"}], ":=", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"r", "[", "a", "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "b"}], ",", RowBox[{ RowBox[{"-", "4"}], " ", "h"}]}], "}"}]}], "+", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"r", "[", "a", "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "b"}], ",", RowBox[{ RowBox[{"-", "4"}], " ", "h"}]}], "}"}]}], "+", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ",", RowBox[{ RowBox[{ RowBox[{"r", "[", "a", "]"}], ".", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "3"}], " ", "h"}]}], "}"}]}], "+", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"l", "=", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", RowBox[{"Abs", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"l", "/.", "\[InvisibleSpace]", RowBox[{ RowBox[{"Line", "[", "pts_", "]"}], "\[RuleDelayed]", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.92`", "]"}], ",", RowBox[{"Polygon", "[", "pts", "]"}]}], "}"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"a", "=", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2.1`"}], "}"}]}], "}"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p", ",", "l", ",", "a", ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"x\", FontSlant->\"Italic\"]\)\>\"", ",", "\"\<\!\(\* StyleBox[\"t\", FontSlant->\"Italic\"]\)\>\"", ",", " ", RowBox[{"FontSlant", "->", "Italic"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "11.`"}]}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.447675858039627*^9, 3.447675894940627*^9}, { 3.447675983983627*^9, 3.4476760193496265`*^9}, {3.4476761801956267`*^9, 3.447676183322627*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Problem 12.13 A computation", "Section", CellChangeTimes->{{3.4476749954126267`*^9, 3.447675009627627*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "[", "x_List", "]"}], ":=", SqrtBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"Length", "[", "x", "]"}]], RowBox[{ RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}], "^", "2"}]}]]}], "\[IndentingNewLine]", RowBox[{"n", "[", RowBox[{"{", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "}"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "[", RowBox[{"x1_", ",", "x2_", ",", "x3_"}], "]"}], ":=", RowBox[{"Cos", "[", RowBox[{"k", " ", RowBox[{"n", "[", RowBox[{"{", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "}"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"x1_", ",", "x2_", ",", "x3_"}], "]"}], ":=", FractionBox[ RowBox[{"Sin", "[", RowBox[{"k", " ", RowBox[{"n", "[", RowBox[{"{", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "}"}], "]"}]}], "]"}], RowBox[{"n", "[", RowBox[{"{", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "}"}], "]"}]]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "1"]], RowBox[{"g", "[", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "]"}]}], "]"}], "/.", RowBox[{"(", RowBox[{ RowBox[{"n", "[", RowBox[{"{", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "}"}], "]"}], "\[Rule]", "\"\<||x||\>\""}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "1"]], " ", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "1"]], RowBox[{"g", "[", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "]"}]}]}], "]"}], "/.", RowBox[{"(", RowBox[{ RowBox[{"n", "[", RowBox[{"{", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "}"}], "]"}], "\[Rule]", "\"\<||x||\>\""}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "1"]], " ", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "1"]], RowBox[{"g", "[", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "]"}]}]}], "+", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "2"]], " ", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "2"]], " ", RowBox[{"g", "[", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "]"}]}]}], "+", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "3"]], " ", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "3"]], " ", RowBox[{"g", "[", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "]"}]}]}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "1"]], RowBox[{"h", "[", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "]"}]}], "]"}], "/.", RowBox[{"(", RowBox[{ RowBox[{"n", "[", RowBox[{"{", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "}"}], "]"}], "\[Rule]", "\"\<||x||\>\""}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "1"]], " ", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "1"]], RowBox[{"h", "[", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "]"}]}]}], "]"}], "/.", RowBox[{"(", RowBox[{ RowBox[{"n", "[", RowBox[{"{", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "}"}], "]"}], "\[Rule]", "\"\<||x||\>\""}], ")"}]}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "1"]], " ", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "1"]], RowBox[{"h", "[", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "]"}]}]}], "+", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "2"]], " ", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "2"]], " ", RowBox[{"h", "[", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "]"}]}]}], "+", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "3"]], " ", RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["x", "3"]], " ", RowBox[{"h", "[", RowBox[{ SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"], ",", SubscriptBox["x", "3"]}], "]"}]}]}]}], "]"}]}], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Figure 13.1 Nappes of cone", "Section", CellChangeTimes->{{3.4476725125146265`*^9, 3.447672539808627*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Off", "[", RowBox[{"General", "::", "spell1"}], "]"}], "\n", RowBox[{"(*", RowBox[{"transparant", " ", "cone"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x1", "[", RowBox[{"\[Alpha]_", ",", "t_"}], "]"}], ":=", RowBox[{"t", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"x2", "[", RowBox[{"\[Alpha]_", ",", "t_"}], "]"}], ":=", RowBox[{"t", " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x3", "[", RowBox[{"\[Alpha]_", ",", "t_"}], "]"}], ":=", "t"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"\[Alpha]_", ",", "t_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"x1", "[", RowBox[{"\[Alpha]", ",", "t"}], "]"}], ",", RowBox[{"x2", "[", RowBox[{"\[Alpha]", ",", "t"}], "]"}], ",", RowBox[{"x3", "[", RowBox[{"\[Alpha]", ",", "t"}], "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{}], "\[IndentingNewLine]", RowBox[{ RowBox[{"raster", "=", "0.04"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"point", "=", "0.001"}], ";"}], "\n", RowBox[{ RowBox[{"list", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Point", "[", RowBox[{"x", "[", RowBox[{"\[Alpha]", ",", "t"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]", ",", "raster"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "3"}], ",", "3", ",", "raster"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"cone", "=", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "point", "]"}], ",", "list"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"cif", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"x", "[", RowBox[{"\[Alpha]", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "200"}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"cib", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"x", "[", RowBox[{"\[Alpha]", ",", RowBox[{"-", "3"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "200"}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"view", "=", RowBox[{"2", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0.7"}], "}"}]}]}], ";"}], "\n", RowBox[{"Show", "[", RowBox[{"cone", ",", "cif", ",", "cib", ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"BoxRatios", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1.7"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ViewPoint", "\[Rule]", "view"}], ",", RowBox[{"DisplayFunction", "\[Rule]", "$DisplayFunction"}]}], "]"}]}], "Input", CellChangeTimes->{3.458886889675*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 13.2 Level surfaces of Lorentz metric", "Section", CellChangeTimes->{{3.447431948188424*^9, 3.4474319531404247`*^9}, { 3.447672571008627*^9, 3.447672597173627*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"ParametricPlot3D", ",", " ", RowBox[{"BoundaryStyle", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotPoints", "\[Rule]", "70"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"ViewPoint", "\[Rule]", " ", RowBox[{"{", RowBox[{"3", ",", RowBox[{"-", "2.8"}], ",", "1.4"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], ";", RowBox[{"g", "=", RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], ",", " ", RowBox[{"r", " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], ",", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"r", "^", "2"}], "-", "c"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], ",", " ", RowBox[{"r", " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], ",", RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"r", "^", "2"}], "-", "c"}], "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", " ", "0", ",", " ", RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", " ", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"#3", "&"}], ",", " ", RowBox[{"#5", "&"}]}], "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{ RowBox[{"-", "3"}], ",", "3", ",", RowBox[{"1", "/", "8"}]}], "]"}], ",", RowBox[{"Range", "[", RowBox[{"0", ",", RowBox[{"2", " ", "\[Pi]"}], ",", " ", RowBox[{"2", " ", RowBox[{"\[Pi]", "/", "60"}]}]}], "]"}]}], "}"}]}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"All", ",", "All", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.01"}], ",", "3.01"}], "}"}]}], "}"}]}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"(", RowBox[{"White", "&"}], ")"}]}], ",", RowBox[{"MaxRecursion", "\[Rule]", "5"}], ",", RowBox[{"BoxRatios", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"c", ",", " ", RowBox[{"{", RowBox[{"-", "1"}], "}"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], ",", " ", RowBox[{"r", " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], ",", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"r", "^", "2"}], "-", "c"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], ",", " ", RowBox[{"r", " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], ",", RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"r", "^", "2"}], "-", "c"}], "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", " ", "0", ",", " ", RowBox[{"3", " ", RowBox[{"\[Pi]", " ", "/", "2"}]}]}], "}"}], ",", " ", RowBox[{"MeshFunctions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"#3", "&"}], ",", " ", RowBox[{"#5", "&"}]}], "}"}]}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{ RowBox[{"-", "3"}], ",", "3", ",", RowBox[{"1", "/", "8"}]}], "]"}], ",", RowBox[{"Range", "[", RowBox[{"0", ",", RowBox[{"2", " ", "\[Pi]"}], ",", " ", RowBox[{"2", " ", RowBox[{"\[Pi]", "/", "60"}]}]}], "]"}]}], "}"}]}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"All", ",", "All", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.01"}], ",", "3.01"}], "}"}]}], "}"}]}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"(", RowBox[{"White", "&"}], ")"}]}], ",", RowBox[{"MaxRecursion", "\[Rule]", "5"}], ",", RowBox[{"BoxRatios", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"c", ",", " ", RowBox[{"{", RowBox[{"0", ",", "1", ",", "4"}], "}"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.4487977163614197`*^9, 3.44879772281142*^9}, { 3.44879865306742*^9, 3.44879869152642*^9}, {3.4487987266224203`*^9, 3.44879875892142*^9}, {3.4487988272614202`*^9, 3.4487988354274197`*^9}, { 3.44879893245542*^9, 3.44879893886342*^9}, {3.44879962815142*^9, 3.44879963936742*^9}, {3.448965384986882*^9, 3.448965394745882*^9}, { 3.45112624680343*^9, 3.45112625277743*^9}, {3.4511264352604303`*^9, 3.45112643872043*^9}, {3.45112648824543*^9, 3.4511265461494303`*^9}, { 3.45112739032143*^9, 3.45112739473743*^9}, {3.4511275026754303`*^9, 3.45112750646743*^9}, {3.45112755220043*^9, 3.45112756156043*^9}}], Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ "\"\\"", ",", "g", ",", RowBox[{"ImageResolution", "\[Rule]", "800"}]}], "]"}]], "Input", CellChangeTimes->{{3.448965678132882*^9, 3.4489657069138823`*^9}, { 3.448965785853882*^9, 3.448965816427882*^9}, {3.448965860736882*^9, 3.4489658802568817`*^9}, {3.448965918166882*^9, 3.448965964915882*^9}, { 3.448965997673882*^9, 3.448966004872882*^9}, 3.448966038575882*^9, { 3.448966100643882*^9, 3.448966110386882*^9}, {3.45112574833043*^9, 3.45112575176243*^9}, {3.45112586239643*^9, 3.4511258850584297`*^9}, { 3.45112596062243*^9, 3.4511259661424303`*^9}, {3.45112600017243*^9, 3.4511260062274303`*^9}, {3.4511260699924297`*^9, 3.45112607172843*^9}, { 3.4511262625574303`*^9, 3.45112626438043*^9}, {3.45112697774043*^9, 3.45112697836443*^9}, {3.45112710542143*^9, 3.45112710641243*^9}, { 3.45112716552943*^9, 3.45112716662543*^9}, {3.45112726522043*^9, 3.4511272671314297`*^9}, {3.45112779848543*^9, 3.45112782309943*^9}}], Cell["The code below is obsolete.", "Text", CellChangeTimes->{{3.447676840627627*^9, 3.447676859089627*^9}, { 3.44879775130842*^9, 3.44879776629142*^9}}, Background->RGBColor[0.988235, 0.996078, 0.839216]], Cell[BoxData[{ RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cone", "=", RowBox[{ RowBox[{"#2", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "#1", "]"}], ",", RowBox[{"Sin", "[", "#1", "]"}], ",", "1"}], "}"}]}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"cone", "[", RowBox[{"\[Alpha]", ",", "t"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"composfun", "[", "f_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"#1", ",", "#2"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"\[Alpha]min", ",", "#2"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"\[Alpha]max", ",", "#2"}], "]"}], ",", " ", RowBox[{"f", "[", RowBox[{"#1", ",", "tmax"}], "]"}]}], "}"}], "&"}], "[", RowBox[{"#1", ",", "#2"}], "]"}], "&"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"composfun", "[", "cone", "]"}], "[", RowBox[{"\[Alpha]", ",", "t"}], "]"}]}], "Input", CellChangeTimes->{{3.4471492684890337`*^9, 3.4471492960290337`*^9}, { 3.447149347245034*^9, 3.447149431261034*^9}, {3.447150805575034*^9, 3.447150809714034*^9}, {3.447151563446034*^9, 3.447151569326034*^9}, { 3.4471616706578264`*^9, 3.4471616799688263`*^9}, {3.4471617882038264`*^9, 3.4471617906058264`*^9}, 3.447257818126631*^9, {3.4472691562156305`*^9, 3.4472691711356306`*^9}, 3.4472692237156305`*^9, {3.4477569764500465`*^9, 3.447756986800047*^9}, {3.4477570174710464`*^9, 3.4477570899710464`*^9}, 3.4477571876510468`*^9, {3.447757247864047*^9, 3.447757325510047*^9}, { 3.447758502723047*^9, 3.447758504232047*^9}, 3.447758692925047*^9, { 3.447760745209047*^9, 3.447760746808047*^9}, 3.447760781826047*^9, { 3.447761081253047*^9, 3.447761130723047*^9}, {3.447761190591047*^9, 3.447761207861047*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"\[Alpha]min", "=", FractionBox["\[Pi]", "6"]}], ";"}], "\n", RowBox[{ RowBox[{"\[Alpha]max", "=", FractionBox[ RowBox[{"9", " ", "\[Pi]"}], "5"]}], ";"}], "\n", RowBox[{ RowBox[{"tmin", "=", "0"}], ";"}], "\n", RowBox[{ RowBox[{"tmax", "=", "3"}], ";"}], "\n", RowBox[{ RowBox[{"mesh", "=", RowBox[{"{", RowBox[{"41", ",", "25"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"viewpoint", "=", RowBox[{"{", RowBox[{"3", ",", RowBox[{"-", "0.7"}], ",", "1.4"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"coneupp", "=", RowBox[{ RowBox[{ RowBox[{"moduleParametricPlot3D", "[", RowBox[{ RowBox[{"composfun", "[", "cone", "]"}], ",", "\[Alpha]min", ",", "\[Alpha]max", ",", "tmin", ",", "tmax"}], "]"}], "[", RowBox[{"mesh", ",", "viewpoint"}], "]"}], "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.447150566925034*^9, 3.447150571405034*^9}, { 3.447150603043034*^9, 3.447150656248034*^9}, {3.447150813494034*^9, 3.447150937144034*^9}, {3.447151132518034*^9, 3.4471511383960342`*^9}, 3.4471616868488264`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"composfun", "[", "f_", "]"}], ":=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"#1", ",", "#2"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"\[Alpha]min", ",", "#2"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"\[Alpha]max", ",", "#2"}], "]"}], ",", " ", RowBox[{"f", "[", RowBox[{"#1", ",", "tmin"}], "]"}]}], "}"}], "&"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]min", "=", RowBox[{"-", FractionBox[ RowBox[{"5", "\[Pi]"}], "6"]}]}], ";"}], "\n", RowBox[{ RowBox[{"\[Alpha]max", "=", FractionBox[ RowBox[{"4", " ", "\[Pi]"}], "5"]}], ";"}], "\n", RowBox[{ RowBox[{"tmin", "=", RowBox[{"-", "3"}]}], ";"}], "\n", RowBox[{ RowBox[{"tmax", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conedow", "=", RowBox[{ RowBox[{ RowBox[{"moduleParametricPlot3D", "[", RowBox[{ RowBox[{"composfun", "[", "cone", "]"}], ",", "\[Alpha]min", ",", "\[Alpha]max", ",", "tmin", ",", "tmax"}], "]"}], "[", RowBox[{"mesh", ",", "viewpoint"}], "]"}], "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{ 3.447150226874034*^9, {3.447150263961034*^9, 3.447150292335034*^9}, { 3.447150698655034*^9, 3.447150718460034*^9}, {3.447150749763034*^9, 3.447150754034034*^9}, {3.4471509423050337`*^9, 3.447150949273034*^9}, { 3.447151145894034*^9, 3.447151147461034*^9}, 3.4471616930238266`*^9, { 3.447161834576826*^9, 3.4471618414808264`*^9}, {3.447269235139631*^9, 3.447269271033631*^9}, {3.447757911892047*^9, 3.447757942482047*^9}, { 3.447760817550047*^9, 3.447760819470047*^9}}], Cell[BoxData[{ RowBox[{"Print", "[", "\"\\"", "]"}], "\n", RowBox[{"Clear", "[", RowBox[{ "composfun", ",", "\[Alpha]min", ",", "\[Alpha]max", ",", "tmin", ",", "tmax", ",", "mesh"}], "]"}], "\n", RowBox[{ RowBox[{"hyperb1", "=", RowBox[{ RowBox[{"#1", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "#2", "]"}], " ", RowBox[{"Cosh", "[", "#3", "]"}]}], ",", RowBox[{ RowBox[{"Sin", "[", "#2", "]"}], " ", RowBox[{"Cosh", "[", "#3", "]"}]}], ",", RowBox[{"Sinh", "[", "#3", "]"}]}], "}"}]}], "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"composfun", "[", "r_", "]"}], "[", "f_", "]"}], ":=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"r", ",", "#1", ",", "#2"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"r", ",", "\[Alpha]min", ",", "#2"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"r", ",", "\[Alpha]max", ",", "#2"}], "]"}], ",", " ", RowBox[{"f", "[", RowBox[{"r", ",", "#1", ",", "tmin"}], "]"}], ",", " ", RowBox[{"f", "[", RowBox[{"r", ",", "#1", ",", "tmax"}], "]"}]}], "}"}], "&"}]}], "\n", RowBox[{ RowBox[{"r", "=", SqrtBox["2"]}], ";"}], "\n", RowBox[{ RowBox[{"\[Alpha]min", "=", FractionBox["\[Pi]", "6"]}], ";"}], "\n", RowBox[{ RowBox[{"\[Alpha]max", "=", FractionBox[ RowBox[{"9", " ", "\[Pi]"}], "5"]}], ";"}], "\n", RowBox[{ RowBox[{"tmin", "=", RowBox[{"ArcSinh", "[", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], SqrtBox["2"]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"tmax", "=", RowBox[{"-", "tmin"}]}], ";"}], "\n", RowBox[{ RowBox[{"mesh", "=", RowBox[{"{", RowBox[{"50", ",", "50"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"hyperb1large", "=", RowBox[{ RowBox[{ RowBox[{"moduleParametricPlot3D", "[", RowBox[{ RowBox[{ RowBox[{"composfun", "[", "r", "]"}], "[", "hyperb1", "]"}], ",", "\[Alpha]min", ",", "\[Alpha]max", ",", "tmin", ",", "tmax"}], "]"}], "[", RowBox[{"mesh", ",", "viewpoint"}], "]"}], "[", RowBox[{"{", "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"r", "=", "1"}], ";"}], "\n", RowBox[{ RowBox[{"tmin", "=", RowBox[{"ArcSinh", "[", RowBox[{"-", "3"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"tmax", "=", RowBox[{"-", "tmin"}]}], ";"}], "\n", RowBox[{ RowBox[{"hyperb1small", "=", RowBox[{ RowBox[{ RowBox[{"moduleParametricPlot3D", "[", RowBox[{ RowBox[{ RowBox[{"composfun", "[", "r", "]"}], "[", "hyperb1", "]"}], ",", "\[Alpha]min", ",", "\[Alpha]max", ",", "tmin", ",", "tmax"}], "]"}], "[", RowBox[{"mesh", ",", "viewpoint"}], "]"}], "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.447151299827034*^9, 3.447151395085034*^9}, { 3.447151461025034*^9, 3.4471514886800337`*^9}, {3.447151538453034*^9, 3.447151556031034*^9}, {3.447151602195034*^9, 3.447151630697034*^9}, { 3.447151671846034*^9, 3.447151677589034*^9}, {3.447151718550034*^9, 3.447151743795034*^9}, {3.447151799368034*^9, 3.447151985677034*^9}, { 3.447152137427034*^9, 3.447152147813034*^9}, {3.447152181745034*^9, 3.4471522289220343`*^9}, {3.447152260453034*^9, 3.447152269492034*^9}, { 3.447152323387034*^9, 3.4471523692980337`*^9}, {3.447152424473034*^9, 3.447152425966034*^9}, {3.447152493811034*^9, 3.447152496306034*^9}, { 3.447152556840034*^9, 3.447152562767034*^9}, {3.447154213393034*^9, 3.447154260358034*^9}, {3.4471543721320343`*^9, 3.447154374240034*^9}, { 3.447154553410034*^9, 3.447154554858034*^9}, {3.4471546477650337`*^9, 3.447154683775034*^9}, {3.4471614025208263`*^9, 3.4471614336928263`*^9}, { 3.447161576076826*^9, 3.4471615981418266`*^9}, 3.4471617516178265`*^9, { 3.4471618194618263`*^9, 3.4471618309738264`*^9}, {3.447269252287631*^9, 3.4472692823076305`*^9}, {3.4474280767244244`*^9, 3.4474280779624243`*^9}, {3.447428189509424*^9, 3.4474281981094246`*^9}, { 3.4474282281454244`*^9, 3.4474282341454244`*^9}, {3.447428528410424*^9, 3.4474285658144245`*^9}, {3.4474286950624247`*^9, 3.4474286958634243`*^9}, {3.4477579619570465`*^9, 3.447758085774047*^9}, { 3.4477581326450467`*^9, 3.4477581604900465`*^9}, {3.4477582153220468`*^9, 3.447758232157047*^9}, {3.4477585171840467`*^9, 3.447758517996047*^9}, { 3.4477587730230465`*^9, 3.447758786621047*^9}, {3.447760826241047*^9, 3.447760827817047*^9}}], Cell[BoxData[{ RowBox[{"Print", "[", "\"\\"", "]"}], "\n", RowBox[{"Clear", "[", RowBox[{ "composfun", ",", "\[Alpha]min", ",", "\[Alpha]max", ",", "tmin", ",", "tmax", ",", "mesh"}], "]"}], "\n", RowBox[{ RowBox[{"hyperb2up", "=", RowBox[{ RowBox[{"#1", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "#2", "]"}], " ", RowBox[{"Sinh", "[", "#3", "]"}]}], ",", RowBox[{ RowBox[{"Sin", "[", "#2", "]"}], " ", RowBox[{"Sinh", "[", "#3", "]"}]}], ",", RowBox[{"Cosh", "[", "#3", "]"}]}], "}"}]}], "&"}]}], ";"}], "\n", RowBox[{ RowBox[{"hyperb2down", "=", RowBox[{ RowBox[{"#1", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "#2", "]"}], " ", RowBox[{"Sinh", "[", "#3", "]"}]}], ",", RowBox[{ RowBox[{"Sin", "[", "#2", "]"}], " ", RowBox[{"Sinh", "[", "#3", "]"}]}], ",", RowBox[{"-", RowBox[{"Cosh", "[", "#3", "]"}]}]}], "}"}]}], "&"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"composfunup", "[", "r_", "]"}], "[", "f_", "]"}], " ", ":=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"r", ",", "#1", ",", "#2"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"r", ",", "#1", ",", " ", "tmax"}], "]"}]}], "}"}], "&"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"composfundown", "[", "r_", "]"}], "[", "f_", "]"}], ":=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"r", ",", "#1", ",", "#2"}], "]"}], ",", RowBox[{"f", "[", RowBox[{"r", ",", "#1", ",", RowBox[{"-", "tmax"}]}], "]"}]}], "}"}], "&"}]}], "\n", RowBox[{ RowBox[{"r", "=", "1"}], ";"}], "\n", RowBox[{ RowBox[{"\[Alpha]min", "=", RowBox[{"-", "\[Pi]"}]}], ";"}], "\n", RowBox[{ RowBox[{"\[Alpha]max", "=", RowBox[{"\[Pi]", "+", FractionBox["\[Pi]", "124"]}]}], ";"}], "\n", RowBox[{ RowBox[{"tmin", "=", "0"}], ";"}], "\n", RowBox[{ RowBox[{"tmax", "=", RowBox[{"ArcCosh", "[", "3", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"mesh", "=", RowBox[{"{", RowBox[{"70", ",", "21"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"hyperb2upp", "=", RowBox[{ RowBox[{ RowBox[{"moduleParametricPlot3D", "[", RowBox[{ RowBox[{ RowBox[{"composfunup", "[", "r", "]"}], "[", "hyperb2up", "]"}], ",", "\[Alpha]min", ",", "\[Alpha]max", ",", "tmin", ",", "tmax"}], "]"}], "[", RowBox[{"mesh", ",", "viewpoint"}], "]"}], "[", RowBox[{"{", "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"hyperb2dow", "=", RowBox[{ RowBox[{ RowBox[{"moduleParametricPlot3D", "[", RowBox[{ RowBox[{ RowBox[{"composfundown", "[", "r", "]"}], "[", "hyperb2down", "]"}], ",", "\[Alpha]min", ",", "\[Alpha]max", ",", "tmin", ",", "tmax"}], "]"}], "[", RowBox[{"mesh", ",", "viewpoint"}], "]"}], "[", RowBox[{"{", "}"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4471587973098264`*^9, 3.4471588007918262`*^9}, { 3.4471588424928265`*^9, 3.4471590333368263`*^9}, {3.4471590978368263`*^9, 3.4471591117568264`*^9}, {3.4471591602488265`*^9, 3.4471591949908266`*^9}, 3.4471592992838264`*^9, {3.4471593477288265`*^9, 3.447159348489826*^9}, { 3.4471593980918264`*^9, 3.4471594057048264`*^9}, {3.4471595066048265`*^9, 3.4471595946278267`*^9}, {3.4471596629208264`*^9, 3.447159714621826*^9}, { 3.4471597452588263`*^9, 3.4471597643468266`*^9}, {3.4471599495608263`*^9, 3.447159958767826*^9}, {3.447159996885826*^9, 3.4471600229408264`*^9}, { 3.447160108489826*^9, 3.4471601353678265`*^9}, {3.4471601782118263`*^9, 3.447160213904826*^9}, {3.4471602906128263`*^9, 3.4471602946128263`*^9}, { 3.447160347583826*^9, 3.4471603480778265`*^9}, {3.4471606382248263`*^9, 3.4471606408328266`*^9}, {3.4471607125798264`*^9, 3.447160717491826*^9}, 3.4471608013438263`*^9, {3.4471610246998262`*^9, 3.4471610309868264`*^9}, { 3.4471611219298267`*^9, 3.4471611264698267`*^9}, {3.4471612084888268`*^9, 3.4471612485218267`*^9}, {3.4471614989428263`*^9, 3.447161508930826*^9}, { 3.4471615554738264`*^9, 3.4471615574738264`*^9}, {3.4471616339358263`*^9, 3.4471616353748264`*^9}, {3.4471618649318266`*^9, 3.4471618730498266`*^9}, {3.447161941649826*^9, 3.4471619607458267`*^9}, { 3.4471620459608264`*^9, 3.4471620520088263`*^9}, {3.447269292622631*^9, 3.447269306520631*^9}, 3.447269388289631*^9, {3.447758316736047*^9, 3.4477584417170467`*^9}, {3.447758528268047*^9, 3.447758551010047*^9}, { 3.4477588067990465`*^9, 3.447758808234047*^9}, {3.447759196629047*^9, 3.447759200282047*^9}, {3.447760842607047*^9, 3.447760849583047*^9}}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ "hyperb2upp", ",", "hyperb2dow", ",", "coneupp", ",", "conedow", ",", "hyperb1small", ",", "hyperb1large"}], "]"}]], "Input", CellChangeTimes->{{3.447160388425826*^9, 3.4471604172098265`*^9}, { 3.4471605657618265`*^9, 3.4471605834148264`*^9}, {3.4471606194388266`*^9, 3.4471606215168266`*^9}, {3.4471606548618264`*^9, 3.4471606740658264`*^9}, {3.4471607284868264`*^9, 3.4471607683888264`*^9}, 3.4471609101568265`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 13.3 Graph of | \[CapitalGamma] |", "Section", CellChangeTimes->{{3.4476726393476267`*^9, 3.4476726445316267`*^9}, { 3.447672718150627*^9, 3.4476727632766266`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell["\<\ Clear[\"`*\"] Plot3D[Abs[Gamma[x + I y]], {x, -2.5, 3.2}, {y, -2, 2.2},PlotRange -> {0, \ 10}, PlotPoints -> {131, 129},ColorFunction->White, Mesh->80,BoxRatios -> \ Automatic, ViewPoint -> {-1, -2, 1}, Boxed -> False, Axes -> None]\ \>", "Input", CellChangeTimes->{{3.458886947593*^9, 3.458886956782*^9}, {3.458887001043*^9, 3.4588870176099997`*^9}, {3.4588870767530003`*^9, 3.458887081183*^9}, 3.4588871283640003`*^9, {3.458887218137*^9, 3.458887251061*^9}, { 3.458887548156*^9, 3.458887563483*^9}, {3.458887634042*^9, 3.458887690876*^9}, {3.458887772288*^9, 3.4588878248129997`*^9}, { 3.4588878851140003`*^9, 3.458887886961*^9}, {3.458887918039*^9, 3.458887923159*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Figure 13.4 Graph of restriction of ", Cell[BoxData[ FormBox[ FractionBox["1", "\[CapitalGamma]"], TraditionalForm]], "None"], " FOLLOWING INPUT IS CONFUSING" }], "Section", CellChangeTimes->{{3.4476726393476267`*^9, 3.4476726445316267`*^9}, { 3.447672718150627*^9, 3.4476727632766266`*^9}, {3.4476727944986267`*^9, 3.4476728669726267`*^9}, {3.447673208098627*^9, 3.447673225938627*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c1", "=", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c2", "=", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"e", "=", "0.2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "[", "a_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "a", "]"}], ",", RowBox[{"Sin", "[", "a", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "a", "]"}]}], ",", RowBox[{"Cos", "[", "a", "]"}]}], "}"}]}], "}"}]}], "\n", RowBox[{ RowBox[{"arrow", "[", RowBox[{"x_", ",", "y_", ",", "h_", ",", "b_", ",", "a_"}], "]"}], ":=", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"r", "[", "a", "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "b"}], ",", RowBox[{ RowBox[{"-", "4"}], " ", "h"}]}], "}"}]}], "+", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"r", "[", "a", "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "b"}], ",", RowBox[{ RowBox[{"-", "4"}], " ", "h"}]}], "}"}]}], "+", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ",", RowBox[{ RowBox[{ RowBox[{"r", "[", "a", "]"}], ".", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "3"}], " ", "h"}]}], "}"}]}], "+", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ci1", "[", "t_", "]"}], ":=", RowBox[{"0.4", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ci2", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "-", RowBox[{"0.4", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p1", "=", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\<0\>\"", ",", RowBox[{"c1", "+", RowBox[{"{", RowBox[{"0", ",", "0.08"}], "}"}]}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<1\>\"", ",", RowBox[{"c2", "+", RowBox[{"{", RowBox[{"0", ",", "0.08"}], "}"}]}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\* StyleBox[\"\[Epsilon]\", FontSlant->\"Italic\"]\)\>\"", ",", RowBox[{"c1", "+", RowBox[{"{", RowBox[{ RowBox[{"e", "+", "0.05"}], ",", "0.08"}], "}"}]}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<1-\!\(\* StyleBox[\"\[Epsilon]\", FontSlant->\"Italic\"]\)\>\"", ",", RowBox[{"c2", "+", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "e"}], "-", "0.08"}], ",", "0.08"}], "}"}]}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\*FractionBox[\(1\), \(2\)]\)+\!\(\* StyleBox[\"R\", FontSlant->\"Italic\"]\)\>\"", ",", RowBox[{"{", RowBox[{ RowBox[{"1.5", "+", "0.13"}], ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\*SubscriptBox[\"\[Gamma]\", StyleBox[\"R\", FontSlant->\"Italic\"]]\)\>\"", ",", RowBox[{"{", RowBox[{"1.01", ",", "0.98"}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[Delta]\), \(\[Epsilon]\)]\)\>\"", ",", RowBox[{"{", RowBox[{"1.01", ",", "0.27"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AbsolutePointSize", "[", "4", "]"}], ",", RowBox[{"Point", "[", "c1", "]"}], ",", RowBox[{"Point", "[", "c2", "]"}], ",", RowBox[{"Point", "[", RowBox[{"c1", "+", RowBox[{"{", RowBox[{"e", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"c2", "-", RowBox[{"{", RowBox[{"e", ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"1.5", ",", "0"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", "0"}], "}"}], ",", "1"}], "]"}], "}"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"c1", "+", RowBox[{"{", RowBox[{"e", ",", "0"}], "}"}]}], ",", RowBox[{"c2", "-", RowBox[{"{", RowBox[{"e", ",", "0"}], "}"}]}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"ci1", "[", RowBox[{"Pi", "/", "4"}], "]"}], ",", RowBox[{"ci2", "[", RowBox[{"7", RowBox[{"Pi", "/", "4"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"ci1", "[", RowBox[{"7", RowBox[{"Pi", "/", "4"}]}], "]"}], ",", RowBox[{"ci2", "[", RowBox[{"Pi", "/", "4"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{"c1", ",", "e"}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{"c2", ",", "e"}], "]"}], ",", RowBox[{"arrow", "[", RowBox[{ RowBox[{"-", "e"}], ",", RowBox[{"-", "0.04"}], ",", "0.02", ",", "0.01", ",", "\[Pi]"}], "]"}], ",", RowBox[{"arrow", "[", RowBox[{"0.3", ",", "0.04", ",", "0.02", ",", "0.01", ",", RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}]}], "]"}], ",", RowBox[{"arrow", "[", RowBox[{"0.7", ",", RowBox[{"-", "0.04"}], ",", "0.02", ",", "0.01", ",", RowBox[{"\[Pi]", "/", "2"}]}], "]"}], ",", RowBox[{"arrow", "[", RowBox[{ RowBox[{"0.5", "-", "0.02"}], ",", "0.285", ",", "0.02", ",", "0.01", ",", RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}]}], "]"}], ",", RowBox[{"arrow", "[", RowBox[{"0.57", ",", RowBox[{"-", "0.285"}], ",", "0.02", ",", "0.01", ",", RowBox[{"\[Pi]", "/", "2"}]}], "]"}], ",", RowBox[{"arrow", "[", RowBox[{ RowBox[{"1", "+", "e"}], ",", "0.04", ",", "0.02", ",", "0.01", ",", "0"}], "]"}], ",", RowBox[{"arrow", "[", RowBox[{ RowBox[{"0.5", "-", "0.02"}], ",", "1", ",", "0.02", ",", "0.01", ",", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}]}], "]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2", "=", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"ci1", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"Pi", "/", "4"}], ",", RowBox[{"7", RowBox[{"Pi", "/", "4"}]}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p3", "=", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"ci2", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"Pi", "/", "4"}], ",", RowBox[{"7", RowBox[{"Pi", "/", "4"}]}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{"p1", ",", "p2", ",", "p3", ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "15."}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"DisplayFunction", "\[Rule]", "$DisplayFunction"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{3.4492026238566103`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"FindMaximum", "[", RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", "x", "]"}]], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3.5"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", "x", "]"}]], ",", "x"}], "]"}], "==", "0"}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"PolyGamma", "[", RowBox[{"0", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "4"}], ",", RowBox[{"-", "3"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"PolyGamma", "[", RowBox[{"0", ",", "x"}], "]"}], "==", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3.5"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"1", "/", RowBox[{"Gamma", "[", RowBox[{"-", "3.635293366436902"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"PolyGamma", "[", RowBox[{"0", ",", "x"}], "]"}], "==", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", "1.5"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"1", "/", RowBox[{"Gamma", "[", "1.4616321449683622", "]"}]}]}], "Input", CellChangeTimes->{{3.4588882194040003`*^9, 3.458888368935*^9}, { 3.4589710353258348`*^9, 3.458971131574835*^9}, {3.458971177789835*^9, 3.4589712767038345`*^9}, {3.4589714814988346`*^9, 3.4589715327468348`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"5498.177645504457`", ",", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"-", "7.687788325031634`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.458888244775*^9, 3.458888314705*^9}, 3.4588883699700003`*^9, 3.458971084685835*^9, 3.458971195771835*^9, { 3.4589712371358347`*^9, 3.4589712465758348`*^9}, 3.458971279848835*^9, { 3.458971494028835*^9, 3.4589715005928345`*^9}, 3.458971534360835*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"PolyGamma", "[", RowBox[{"0", ",", "x"}], "]"}], "\[Rule]", "0"}], "}"}], "}"}]], "Output",\ CellChangeTimes->{{3.458888244775*^9, 3.458888314705*^9}, 3.4588883699700003`*^9, 3.458971084685835*^9, 3.458971195771835*^9, { 3.4589712371358347`*^9, 3.4589712465758348`*^9}, 3.458971279848835*^9, { 3.458971494028835*^9, 3.4589715005928345`*^9}, 3.458971534363835*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"-", "3.635293366436902`"}]}], "}"}]], "Output", CellChangeTimes->{{3.458888244775*^9, 3.458888314705*^9}, 3.4588883699700003`*^9, 3.458971084685835*^9, 3.458971195771835*^9, { 3.4589712371358347`*^9, 3.4589712465758348`*^9}, 3.458971279848835*^9, { 3.458971494028835*^9, 3.4589715005928345`*^9}, 3.458971534369835*^9}], Cell[BoxData["4.079508980001612`"], "Output", CellChangeTimes->{{3.458888244775*^9, 3.458888314705*^9}, 3.4588883699700003`*^9, 3.458971084685835*^9, 3.458971195771835*^9, { 3.4589712371358347`*^9, 3.4589712465758348`*^9}, 3.458971279848835*^9, { 3.458971494028835*^9, 3.4589715005928345`*^9}, 3.4589715343718348`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"x", "\[Rule]", "1.4616321449683622`"}], "}"}]], "Output", CellChangeTimes->{{3.458888244775*^9, 3.458888314705*^9}, 3.4588883699700003`*^9, 3.458971084685835*^9, 3.458971195771835*^9, { 3.4589712371358347`*^9, 3.4589712465758348`*^9}, 3.458971279848835*^9, { 3.458971494028835*^9, 3.4589715005928345`*^9}, 3.4589715343728347`*^9}], Cell[BoxData["1.1291738854501412`"], "Output", CellChangeTimes->{{3.458888244775*^9, 3.458888314705*^9}, 3.4588883699700003`*^9, 3.458971084685835*^9, 3.458971195771835*^9, { 3.4589712371358347`*^9, 3.4589712465758348`*^9}, 3.458971279848835*^9, { 3.458971494028835*^9, 3.4589715005928345`*^9}, 3.4589715343738346`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"Gamma", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "4.1"}], ",", "4.1"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"PlotPoints", "\[Rule]", "200"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1.129", ",", "4.076"}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14."}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.4588879967*^9, 3.458888095271*^9}, { 3.4588881929639997`*^9, 3.458888201025*^9}, 3.4588882332980003`*^9, { 3.4589712939988346`*^9, 3.458971380761835*^9}, {3.4589715440568347`*^9, 3.458971545831835*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 13.5 Problem 13.11", "Section", CellChangeTimes->{ 3.447514105137421*^9, {3.447673187699627*^9, 3.4476731983946266`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "[", "a_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "a", "]"}], ",", RowBox[{"Sin", "[", "a", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "a", "]"}]}], ",", RowBox[{"Cos", "[", "a", "]"}]}], "}"}]}], "}"}]}], "\n", RowBox[{ RowBox[{"arrow", "[", RowBox[{"x_", ",", "y_", ",", "h_", ",", "b_", ",", "a_"}], "]"}], ":=", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"r", "[", "a", "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "b"}], ",", RowBox[{ RowBox[{"-", "4"}], " ", "h"}]}], "}"}]}], "+", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"r", "[", "a", "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "b"}], ",", RowBox[{ RowBox[{"-", "4"}], " ", "h"}]}], "}"}]}], "+", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ",", RowBox[{ RowBox[{ RowBox[{"r", "[", "a", "]"}], ".", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "3"}], " ", "h"}]}], "}"}]}], "+", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"poly", "=", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.8", ",", "2.8"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2.8", ",", "0"}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "0.85", "]"}], ",", "poly"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "=", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "t"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "2.8"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1.4", ",", "1.4"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.4", ",", "1.4"}], "}"}], ",", RowBox[{"{", RowBox[{"2.8", ",", "1.4"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"arrow", "[", RowBox[{"1.4", ",", "0.8", ",", "0.04", ",", "0.02", ",", "0"}], "]"}], ",", RowBox[{"arrow", "[", RowBox[{"2.2", ",", "1.4", ",", "0.04", ",", "0.02", ",", RowBox[{"\[Pi]", "/", "2"}]}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"g", ",", "l", ",", "a", ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "16."}]}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<|| x ||\>\""}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14."}]}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "350"}]}], "]"}]}], "Input", CellChangeTimes->{ 3.44920262853061*^9, {3.45111924171143*^9, 3.45111926600143*^9}, { 3.4511194081244297`*^9, 3.45111945492943*^9}, {3.4511195703154297`*^9, 3.4511195736164303`*^9}, {3.4511196237414303`*^9, 3.45111962982443*^9}, { 3.458888465024*^9, 3.458888593895*^9}, 3.458888628863*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Problem 13.12 A computation", "Section", CellChangeTimes->{ 3.4475141058894215`*^9, {3.4476733120926266`*^9, 3.4476733293876266`*^9}, { 3.447685212892627*^9, 3.4476852365316267`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"A", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "y1"}], ",", RowBox[{ RowBox[{"-", "2"}], "y2"}], ",", RowBox[{ RowBox[{"-", "2"}], "y3"}], ",", RowBox[{"2", "y4"}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{"Inverse", "[", "A", "]"}], "\[IndentingNewLine]", RowBox[{"Transpose", "[", RowBox[{"Inverse", "[", "A", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Det", "[", "A", "]"}], "\[IndentingNewLine]", RowBox[{"Det", "[", RowBox[{"Inverse", "[", "A", "]"}], "]"}]}], "Input", CellChangeTimes->{{3.403543269172477*^9, 3.403543344656852*^9}, { 3.40385127496875*^9, 3.403851277921875*^9}, {3.403852441265625*^9, 3.403852445875*^9}, {3.403856209328125*^9, 3.4038562146875*^9}, { 3.4038562769375*^9, 3.403856283828125*^9}, {3.404464896734375*^9, 3.40446490753125*^9}, {3.404478437671875*^9, 3.40447845228125*^9}, { 3.404478500578125*^9, 3.404478504*^9}, {3.404478576296875*^9, 3.4044785781875*^9}, {3.40475099889361*^9, 3.40475102233111*^9}}], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"yj", " ", RowBox[{"Sinh", "[", "a", "]"}]}], "+", RowBox[{"yn", " ", RowBox[{"Cosh", "[", "a", "]"}]}]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"yj", " ", RowBox[{"Cosh", "[", "a", "]"}]}], "+", RowBox[{"yn", " ", RowBox[{"Sinh", "[", "a", "]"}]}]}], ")"}], "2"]}], "]"}]], "Input", CellChangeTimes->{{3.40473903379986*^9, 3.404739152596735*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 14.1 Graph of sinc", "Section", CellChangeTimes->{ 3.4475141058894215`*^9, {3.4476733120926266`*^9, 3.4476733293876266`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ FractionBox[ RowBox[{"Sin", "[", "x", "]"}], "x"], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "21"}], " ", "\[Pi]"}], ",", RowBox[{"21", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"AspectRatio", "\[Rule]", FractionBox["1", "4"]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "20"}], " ", "\[Pi]"}], ",", RowBox[{"20", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.217"}], ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12.`"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"FindMinimum", "[", RowBox[{ FractionBox[ RowBox[{"Sin", "[", "x", "]"}], "x"], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4588888164779997`*^9, 3.4588888502679996`*^9}, { 3.458972135886835*^9, 3.458972195723835*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.21723362821122164`"}], ",", RowBox[{"{", RowBox[{"x", "\[Rule]", "4.493409457896377`"}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{{3.458888794799*^9, 3.458888850844*^9}, { 3.4589721679918346`*^9, 3.4589721967868347`*^9}, 3.458972239588835*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Computation of a tempered distribution", "Section", CellChangeTimes->{ 3.4475141058894215`*^9, {3.4476733120926266`*^9, 3.4476733293876266`*^9}, { 3.4476769753236265`*^9, 3.447676992730627*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Cos", "[", SuperscriptBox["\[ExponentialE]", "x"], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "4.5"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "10000"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", " ", RowBox[{"Ticks", "\[Rule]", "None"}]}], "]"}]], "Input", CellChangeTimes->{3.4476945888946266`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Problem 14.9 A computation", "Section", CellChangeTimes->{ 3.4475141058894215`*^9, {3.4476733120926266`*^9, 3.4476733293876266`*^9}, { 3.4476871100646267`*^9, 3.447687117535627*^9}, {3.447687159029627*^9, 3.447687175253627*^9}, 3.447687317652627*^9}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox["x", "2"], "2"]}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{"x", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox["x", "2"], "2"]}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Ff", "[", "\[Xi]_", "]"}], "=", RowBox[{"FullSimplify", "[", RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "x", " ", "\[Xi]"}]], " ", RowBox[{"f", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Fg", "[", "\[Xi]_", "]"}], "=", RowBox[{"FullSimplify", "[", RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "x", " ", "\[Xi]"}]], " ", RowBox[{"g", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.395372040335054*^9, 3.395372080624893*^9}, { 3.3953721251540422`*^9, 3.395372153953116*^9}, {3.395372622506081*^9, 3.395372625887582*^9}, {3.395372772517241*^9, 3.395372778922317*^9}, { 3.395383685203125*^9, 3.39538368721875*^9}}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"E", "^", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "I"}], " ", "x", " ", "xi"}], "+", RowBox[{ RowBox[{"x", "^", "2"}], "/", "2"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "5"}], "}"}]}], "]"}], "\[Equal]", RowBox[{ RowBox[{"I", "^", "5"}], " ", RowBox[{"E", "^", RowBox[{"(", RowBox[{ RowBox[{"xi", "^", "2"}], "/", "2"}], ")"}]}], RowBox[{"D", "[", RowBox[{ RowBox[{"E", "^", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{"I", " ", "xi"}]}], ")"}], "^", "2"}], "/", "2"}], ")"}]}], ",", RowBox[{"{", RowBox[{"xi", ",", "5"}], "}"}]}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.444491990112*^9, 3.444492187355*^9}, {3.444492219626*^9, 3.444492243168*^9}, {3.444492307477*^9, 3.4444923347469997`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Problem 14.10 A computation", "Section", CellChangeTimes->{ 3.4475141058894215`*^9, {3.4476733120926266`*^9, 3.4476733293876266`*^9}, { 3.4476871100646267`*^9, 3.447687117535627*^9}, {3.447687159029627*^9, 3.447687175253627*^9}, 3.447687317652627*^9, {3.447741082210047*^9, 3.4477410836740465`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"FullSimplify", "[", RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], ")"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"x", " ", "\[Xi]"}], "+", RowBox[{"y", " ", "\[Eta]"}]}], ")"}]}]}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", SuperscriptBox["y", "2"]}], ")"}]}], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "]"}], "\n", RowBox[{"FullSimplify", "[", RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], ")"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"x", " ", "\[Xi]"}], "+", RowBox[{"y", " ", "\[Eta]"}]}], ")"}]}]}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "3"], "-", RowBox[{"3", " ", "x", " ", SuperscriptBox["y", "2"]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.447741086255047*^9, 3.447741131418047*^9}, { 3.4477411813750467`*^9, 3.4477411869900465`*^9}, {3.4477413293750467`*^9, 3.447741391001047*^9}, {3.447741474163047*^9, 3.447741475775047*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Problem 14.16 Solution A computation", "Section", CellChangeTimes->{ 3.4475141058894215`*^9, {3.4476733120926266`*^9, 3.4476733293876266`*^9}, { 3.4476871100646267`*^9, 3.447687117535627*^9}, {3.447687159029627*^9, 3.447687175253627*^9}, 3.447687317652627*^9, {3.447741082210047*^9, 3.4477410836740465`*^9}, {3.4493312404494133`*^9, 3.449331249865413*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Sin", "[", RowBox[{"a", " ", "\[Xi]"}], "]"}], RowBox[{"Cos", "[", RowBox[{"x", " ", "\[Xi]"}], "]"}]}], RowBox[{"\[Xi]", RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[Xi]", "^", "2"}]}], ")"}]}]], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", "Infinity"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"a", ">", "0"}], ",", RowBox[{ RowBox[{"Im", "[", "x", "]"}], "\[Equal]", "0"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.39498106096875*^9, 3.394981145359375*^9}, { 3.449331267970413*^9, 3.4493312916004133`*^9}, {3.4493313279694133`*^9, 3.449331343095413*^9}, {3.4493313942264132`*^9, 3.449331404746413*^9}, { 3.449331470542413*^9, 3.4493314808694134`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"Cosh", "[", "x", "]"}], "\[ExponentialE]"]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "1"}], "\[LessEqual]", "x", "\[LessEqual]", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Sinh", "[", "1", "]"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", RowBox[{"Abs", "[", "x", "]"}]}]]}], ",", RowBox[{"x", ">", "1"}]}], "}"}]}], "}"}], "]"}]}], "\n", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"f", "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"f", "'"}], "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.8", ",", "1.1"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"f", "''"}], "[", "x", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.8", ",", "1.1"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input", CellChangeTimes->{{3.449331819373413*^9, 3.449331825082413*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Problem 14.19 A computation", "Section", CellChangeTimes->{ 3.4475141058894215`*^9, {3.4476733120926266`*^9, 3.4476733293876266`*^9}, { 3.4476871100646267`*^9, 3.447687117535627*^9}, {3.447687159029627*^9, 3.447687175253627*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], RowBox[{ FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "2"]}], ")"}], "2"]], RowBox[{"\[DifferentialD]", "x"}]}]}], "\[IndentingNewLine]", RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], RowBox[{ FractionBox[ SuperscriptBox["x", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "2"]}], ")"}], "2"]], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Problem 14.20 A computation", "Section", CellChangeTimes->{ 3.4475141058894215`*^9, {3.4476733120926266`*^9, 3.4476733293876266`*^9}, { 3.4476871100646267`*^9, 3.447687117535627*^9}, {3.447687159029627*^9, 3.447687175253627*^9}, {3.4493303838184133`*^9, 3.4493303855064135`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"Sin", "[", RowBox[{"a", " ", "x"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"b", " ", "x"}], "]"}]}], SuperscriptBox["x", "2"]], RowBox[{"\[DifferentialD]", "x"}]}]}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"a", "+", "b"}], "]"}], "-", RowBox[{"Abs", "[", RowBox[{"a", "-", "b"}], "]"}]}], "\[Equal]", RowBox[{"2", RowBox[{"Min", "[", RowBox[{"a", ",", "b"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", ">", "0"}], ",", RowBox[{"b", ">", "0"}]}], "}"}]}], "]"}]}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.4493297351594133`*^9, 3.4493297379694133`*^9}, { 3.449329827412413*^9, 3.449329842123413*^9}, 3.449330286378413*^9, { 3.449330426170413*^9, 3.4493304420654135`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Problem 14.28 A computation", "Section", CellChangeTimes->{ 3.4475141058894215`*^9, {3.4476733120926266`*^9, 3.4476733293876266`*^9}, { 3.4476871100646267`*^9, 3.447687117535627*^9}, {3.447687159029627*^9, 3.447687175253627*^9}, 3.447687317652627*^9, {3.447689099622627*^9, 3.4476891009986267`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"L", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"\[ImaginaryI]", " ", "\[Xi]"}], ")"}], "2"]}], "+", RowBox[{"R", " ", "\[ImaginaryI]", " ", "\[Xi]"}], " ", "+", FractionBox["1", "C"]}], "==", "0"}], ",", "\[Xi]"}], "]"}], ",", RowBox[{"C", ">", "0"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"L", " ", SuperscriptBox[ RowBox[{"(", "\[Eta]", ")"}], "2"]}], "+", RowBox[{"R", " ", "\[Eta]"}], "+", FractionBox["1", "C"]}], "==", "0"}], ",", "\[Eta]"}], "]"}], ",", RowBox[{"C", ">", "0"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["\[Xi]", "+"], ",", SubscriptBox["\[Xi]", "-"]}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"L", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"\[ImaginaryI]", " ", "\[Xi]"}], ")"}], "2"]}], "-", RowBox[{"R", " ", "\[ImaginaryI]", " ", "\[Xi]"}], " ", "+", FractionBox["1", "C"]}], "==", "0"}], ",", "\[Xi]"}], "]"}], ",", RowBox[{"C", ">", "0"}]}], "]"}], " ", "/.", RowBox[{"{", RowBox[{"Rule", "->", "Equal"}], "}"}]}], ")"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"L", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"\[ImaginaryI]", " ", "\[Xi]"}], ")"}], "2"]}], "-", RowBox[{"R", " ", "\[ImaginaryI]", " ", "\[Xi]"}], " ", "+", FractionBox["1", "C"]}], "==", "0"}], ",", "\[Xi]"}], "]"}], ",", RowBox[{"C", ">", "0"}]}], "]"}], " ", "/.", RowBox[{"{", RowBox[{"Rule", "->", "Equal"}], "}"}]}], ")"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "\[IndentingNewLine]", RowBox[{ SubscriptBox["\[Xi]", "+"], "[", RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Apart", "[", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"L", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"\[ImaginaryI]", " ", "\[Xi]"}], ")"}], "2"]}], "+", RowBox[{"R", " ", "\[ImaginaryI]", " ", "\[Xi]"}], " ", "+", FractionBox["1", "C"]}]], ",", "\[Xi]"}], "]"}]}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Q", "=", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"4", "L"}], "C"], "-", SuperscriptBox["R", "2"]}]]}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{"Together", "[", RowBox[{ FractionBox["1", RowBox[{"\[Xi]", "-", RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"\[ImaginaryI]", " ", "R"}], "-", "Q"}], RowBox[{"2", " ", "L"}]], ")"}]}]], "-", FractionBox["1", RowBox[{"\[Xi]", "-", RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"\[ImaginaryI]", " ", "R"}], "+", "Q"}], RowBox[{"2", " ", "L"}]], ")"}]}]]}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.399274461296875*^9, 3.399274547890625*^9}, { 3.3992745986875*^9, 3.399274624546875*^9}, {3.399278763875*^9, 3.399278770375*^9}, {3.39927924025*^9, 3.39927924453125*^9}, { 3.39927941465625*^9, 3.399279430265625*^9}, {3.399279488421875*^9, 3.399279492609375*^9}, {3.399279625*^9, 3.399279680796875*^9}, { 3.399279727859375*^9, 3.3992798091875*^9}, {3.399279847484375*^9, 3.39927984853125*^9}, {3.399279882203125*^9, 3.39927992096875*^9}, { 3.3992801564375*^9, 3.39928020440625*^9}, {3.39928031690625*^9, 3.39928056834375*^9}, {3.39928063190625*^9, 3.399280657265625*^9}, { 3.399280690765625*^9, 3.3992806980625*^9}, {3.39928093215625*^9, 3.399280970625*^9}, {3.39928529621875*^9, 3.399285334859375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["c", "-"], "[", "\[Alpha]", "]"}], "=", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ SuperscriptBox["x", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"Gamma", "[", "\[Alpha]", "]"}]], RowBox[{"Fg", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], ",", RowBox[{"0", "<", RowBox[{"Re", "[", "\[Alpha]", "]"}], "<", "1"}]}], "]"}], "-", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "0"], RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "x"}], ")"}], RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"Gamma", "[", "\[Alpha]", "]"}]], RowBox[{"Fg", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], ",", RowBox[{"0", "<", RowBox[{"Re", "[", "\[Alpha]", "]"}], "<", "1"}]}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ SuperscriptBox["x", RowBox[{"-", "\[Alpha]"}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", "\[Alpha]"}], "]"}]], RowBox[{"g", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], ",", RowBox[{"0", "<", RowBox[{"Re", "[", "\[Alpha]", "]"}], "<", "1"}]}], "]"}], "-", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "0"], RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "x"}], ")"}], RowBox[{"-", "\[Alpha]"}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", "\[Alpha]"}], "]"}]], RowBox[{"g", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], ",", RowBox[{"0", "<", RowBox[{"Re", "[", "\[Alpha]", "]"}], "<", "1"}]}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "0"}], "<", RowBox[{"Re", "[", "\[Alpha]", "]"}], "<", "1"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.395373149281715*^9, 3.395373204830821*^9}, { 3.39537324157952*^9, 3.395373246722432*^9}, {3.395373363750161*^9, 3.395373374205875*^9}, {3.395373550939797*^9, 3.39537355462573*^9}, { 3.395382805890625*^9, 3.395382899703125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"F", "[", SuperscriptBox[ SubscriptBox["\[Chi]", "+"], "\[Alpha]"], "]"}], "=", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["c", "+"], "[", "\[Alpha]", "]"}], "2"], RowBox[{"(", RowBox[{ SuperscriptBox[ SubscriptBox["\[Chi]", "+"], RowBox[{"1", "-", "\[Alpha]"}]], "+", SuperscriptBox[ SubscriptBox["\[Chi]", "-"], RowBox[{"1", "-", "\[Alpha]"}]]}], ")"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["c", "-"], "[", "\[Alpha]", "]"}], "2"], RowBox[{"(", RowBox[{ SuperscriptBox[ SubscriptBox["\[Chi]", "+"], RowBox[{"1", "-", "\[Alpha]"}]], "-", SuperscriptBox[ SubscriptBox["\[Chi]", "-"], RowBox[{"1", "-", "\[Alpha]"}]]}], ")"}]}]}], "//", "FullSimplify"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"F", "[", SuperscriptBox[ SubscriptBox["\[Chi]", "-"], "\[Alpha]"], "]"}], "=", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["c", "+"], "[", "\[Alpha]", "]"}], "2"], RowBox[{"(", RowBox[{ SuperscriptBox[ SubscriptBox["\[Chi]", "+"], RowBox[{"1", "-", "\[Alpha]"}]], "+", SuperscriptBox[ SubscriptBox["\[Chi]", "-"], RowBox[{"1", "-", "\[Alpha]"}]]}], ")"}]}], "-", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["c", "-"], "[", "\[Alpha]", "]"}], "2"], RowBox[{"(", RowBox[{ SuperscriptBox[ SubscriptBox["\[Chi]", "+"], RowBox[{"1", "-", "\[Alpha]"}]], "-", SuperscriptBox[ SubscriptBox["\[Chi]", "-"], RowBox[{"1", "-", "\[Alpha]"}]]}], ")"}]}]}], "//", "FullSimplify"}]}]}], "Input", CellChangeTimes->{{3.395373633761855*^9, 3.395373691386941*^9}, { 3.395383226625*^9, 3.395383244765625*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Problem 14.38 A computation", "Section", CellChangeTimes->{ 3.4475141058894215`*^9, {3.4476733120926266`*^9, 3.4476733293876266`*^9}, { 3.4476871100646267`*^9, 3.447687117535627*^9}, {3.447687159029627*^9, 3.447687175253627*^9}, {3.4476876272026267`*^9, 3.4476876284986267`*^9}, { 3.4476880705856266`*^9, 3.4476880719936266`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{ RowBox[{"u", "[", "x_", "]"}], ":=", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "p"}], " ", RowBox[{"Abs", "[", RowBox[{"x", "-", "xi"}], "]"}]}]], RowBox[{"2", "p"}]], "+", RowBox[{"a", " ", SuperscriptBox["E", RowBox[{"p", " ", "x"}]]}], "+", RowBox[{"b", " ", SuperscriptBox["E", RowBox[{ RowBox[{"-", "p"}], " ", "x"}]]}]}]}], "\[IndentingNewLine]", RowBox[{"u0", "=", RowBox[{ RowBox[{"u", "[", "x", "]"}], "/.", RowBox[{"x", "->", "0"}]}]}], "\[IndentingNewLine]", RowBox[{"u1", "=", RowBox[{ RowBox[{"u", "[", "x", "]"}], "/.", RowBox[{"x", "->", "1"}]}]}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"u", "[", "x", "]"}], "/.", RowBox[{"Flatten", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u0", "==", "0"}], ",", RowBox[{"u1", "==", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{"%", ",", RowBox[{"Assumptions", "->", RowBox[{"{", RowBox[{ RowBox[{"0", "<", "x", "<", "1"}], "&&", RowBox[{"x", "<", "xi"}], "&&", RowBox[{"0", "<", "xi", "<", "1"}], "&&", RowBox[{ RowBox[{"Im", "[", "x", "]"}], "==", "0"}], "&&", RowBox[{ RowBox[{"Im", "[", "xi", "]"}], "==", "0"}], "&&", RowBox[{ RowBox[{"Im", "[", "p", "]"}], "==", "0"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{"%%", ",", RowBox[{"Assumptions", "->", RowBox[{"{", RowBox[{ RowBox[{"0", "<", "x", "<", "1"}], "&&", RowBox[{"xi", "<", "x"}], "&&", RowBox[{"0", "<", "xi", "<", "1"}], "&&", RowBox[{ RowBox[{"Im", "[", "x", "]"}], "==", "0"}], "&&", RowBox[{ RowBox[{"Im", "[", "xi", "]"}], "==", "0"}], "&&", RowBox[{ RowBox[{"Im", "[", "p", "]"}], "==", "0"}]}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.39599449875*^9, 3.395994610375*^9}, { 3.395994870484375*^9, 3.3959951316875*^9}, {3.39599516940625*^9, 3.395995227484375*^9}, {3.395995257953125*^9, 3.395995263703125*^9}, { 3.395995505828125*^9, 3.395995619625*^9}, {3.395995968046875*^9, 3.395995972375*^9}, {3.396007250015625*^9, 3.396007255296875*^9}, { 3.3960075205*^9, 3.3960075256875*^9}, {3.396007565171875*^9, 3.39600761015625*^9}, {3.396007647140625*^9, 3.396007655296875*^9}, { 3.396007686609375*^9, 3.39600779734375*^9}, {3.396007859890625*^9, 3.396007860453125*^9}, {3.396007910375*^9, 3.39600792703125*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Problem 14.39 A computation", "Section", CellChangeTimes->{ 3.4475141058894215`*^9, {3.4476733120926266`*^9, 3.4476733293876266`*^9}, { 3.4476871100646267`*^9, 3.447687117535627*^9}, {3.447687159029627*^9, 3.447687175253627*^9}, {3.4476876272026267`*^9, 3.4476876284986267`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["c", "+"], "[", "\[Alpha]", "]"}], "=", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ SuperscriptBox["x", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"Gamma", "[", "\[Alpha]", "]"}]], RowBox[{"Ff", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], ",", RowBox[{"0", "<", RowBox[{"Re", "[", "\[Alpha]", "]"}], "<", "1"}]}], "]"}], "+", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "0"], RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "x"}], ")"}], RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"Gamma", "[", "\[Alpha]", "]"}]], RowBox[{"Ff", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], ",", RowBox[{"0", "<", RowBox[{"Re", "[", "\[Alpha]", "]"}], "<", "1"}]}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ SuperscriptBox["x", RowBox[{"-", "\[Alpha]"}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", "\[Alpha]"}], "]"}]], RowBox[{"f", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], ",", RowBox[{"0", "<", RowBox[{"Re", "[", "\[Alpha]", "]"}], "<", "1"}]}], "]"}], "+", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "0"], RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "x"}], ")"}], RowBox[{"-", "\[Alpha]"}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", "\[Alpha]"}], "]"}]], RowBox[{"f", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], ",", RowBox[{"0", "<", RowBox[{"Re", "[", "\[Alpha]", "]"}], "<", "1"}]}], "]"}]}], ")"}]}], ",", RowBox[{"0", "<", RowBox[{"Re", "[", "\[Alpha]", "]"}], "<", "1"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.395372861592284*^9, 3.395373011171883*^9}, { 3.395373116894314*^9, 3.395373136612811*^9}, 3.395373195207755*^9, { 3.395373283136546*^9, 3.395373287871915*^9}, {3.39537352042163*^9, 3.395373544266765*^9}, {3.3953825626875*^9, 3.39538263171875*^9}, { 3.395382726140625*^9, 3.39538274759375*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Problem 14.39 Solution A computation", "Section", CellChangeTimes->{ 3.4475141058894215`*^9, {3.4476733120926266`*^9, 3.4476733293876266`*^9}, { 3.4476871100646267`*^9, 3.447687117535627*^9}, {3.447687159029627*^9, 3.447687175253627*^9}, {3.4476876272026267`*^9, 3.4476876284986267`*^9}, { 3.447741987294047*^9, 3.447741991070047*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", RowBox[{"(", RowBox[{"a", "-", "1"}], ")"}]}], RowBox[{"E", "^", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"x", "^", "2"}]}], "/", "2"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.398093598265625*^9, 3.398093637703125*^9}}], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "x"}], ")"}], "^", RowBox[{"(", RowBox[{"a", "-", "1"}], ")"}]}], RowBox[{"E", "^", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"x", "^", "2"}]}], "/", "2"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "Infinity"}], ",", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.39809468871875*^9, 3.398094702046875*^9}}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", "Pi", "]"}], RowBox[{"2", "^", "a"}], " ", RowBox[{"Gamma", "[", RowBox[{"a", "/", "2"}], "]"}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Gamma", "[", "a", "]"}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a"}], ")"}], "/", "2"}], "]"}]}], ")"}]}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"a", ">", "0"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.398095796375*^9, 3.398095904859375*^9}, { 3.3981486115625*^9, 3.3981486175*^9}, {3.398148675203125*^9, 3.398148770078125*^9}}], Cell[BoxData[ RowBox[{"FullSimplify", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"a", "/", "2"}], "]"}], "/", RowBox[{"Gamma", "[", "a", "]"}]}], "\[Equal]", RowBox[{ RowBox[{"Sqrt", "[", "Pi", "]"}], RowBox[{ RowBox[{"2", "^", RowBox[{"(", RowBox[{"1", "-", "a"}], ")"}]}], "/", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "1"}], ")"}], "/", "2"}], "]"}]}]}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"a", ">", "0"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.39814882246875*^9, 3.39814894203125*^9}}], Cell[BoxData[ RowBox[{"FullSimplify", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a"}], "]"}], "/", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a"}], ")"}], "/", "2"}], "]"}]}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"a", "/", "2"}]}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", "Pi", "]"}], RowBox[{"2", "^", "a"}]}], ")"}]}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"a", ">", "0"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.3981490603125*^9, 3.39814911125*^9}, { 3.398149160703125*^9, 3.398149166578125*^9}, {3.398149198765625*^9, 3.39814920065625*^9}, {3.398149236078125*^9, 3.398149244109375*^9}}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", "Pi", "]"}], RowBox[{"2", "^", RowBox[{"(", RowBox[{"1", "-", "a"}], ")"}]}], " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"a", "/", "2"}]}], "]"}], "/", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "a"}], ")"}], "/", "2"}], "]"}]}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"a", ">", "0"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.39814939565625*^9, 3.39814944321875*^9}}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"a", "/", "2"}], "]"}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"a", "/", "2"}]}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Gamma", "[", "a", "]"}], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a"}], "]"}]}], ")"}]}]}], "\[Equal]", RowBox[{"Out", "[", "3", "]"}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"a", ">", "0"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.39815061609375*^9, 3.3981506975*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Problem 14.41 Solution A computation", "Section", CellChangeTimes->{ 3.4475141058894215`*^9, {3.4476733120926266`*^9, 3.4476733293876266`*^9}, { 3.4476871100646267`*^9, 3.447687117535627*^9}, {3.447687159029627*^9, 3.447687175253627*^9}, {3.4476876272026267`*^9, 3.4476876284986267`*^9}, { 3.4477401587590466`*^9, 3.4477401782370467`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "1"}], "1"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["s", "2"]}], ")"}], RowBox[{ FractionBox["a", "2"], "-", "1"}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "\[Alpha]", " ", "s"}], "+", "\[Beta]"}], ")"}], RowBox[{"-", "a"}]], RowBox[{"\[DifferentialD]", "s"}]}]}]], "Input", CellChangeTimes->{{3.403521243406852*^9, 3.403521359953727*^9}}], Cell["Below the original output in Version 5.1 is reproduced", "Text", CellChangeTimes->{{3.447676840627627*^9, 3.447676859089627*^9}, { 3.4477403161180468`*^9, 3.447740324925047*^9}}, Background->RGBColor[0.988235, 0.996078, 0.839216]] }, Open ]], Cell[CellGroupData[{ Cell["Problem 14.47 Solution A computation", "Section", CellChangeTimes->{ 3.4475141058894215`*^9, {3.4476733120926266`*^9, 3.4476733293876266`*^9}, { 3.4476871100646267`*^9, 3.447687117535627*^9}, {3.447687159029627*^9, 3.447687175253627*^9}, {3.4476876272026267`*^9, 3.4476876284986267`*^9}, { 3.4493309932394133`*^9, 3.449331004511413*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Sin", "[", RowBox[{"a", " ", "x"}], "]"}], RowBox[{"Sin", "[", RowBox[{"b", " ", "x"}], "]"}]}], "x"], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}], ",", RowBox[{"Assumptions", "->", RowBox[{"{", RowBox[{ RowBox[{"a", ">", "0"}], ",", RowBox[{"b", ">", "0"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.449330657797413*^9, 3.449330673550413*^9}, { 3.449330753519413*^9, 3.449330756391413*^9}, {3.449330799205413*^9, 3.4493308447064133`*^9}, 3.449330947596413*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Figures 16.1 and 16.6 Problem 16.5", "Section", CellChangeTimes->{ 3.4475141066884212`*^9, {3.447673640674627*^9, 3.4476736661046267`*^9}, { 3.4476738398796268`*^9, 3.447673870916627*^9}, {3.449490217680617*^9, 3.449490218288617*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"ComplexExpand", "[", RowBox[{"FullSimplify", "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", RowBox[{"-", "N"}]}], "N"], SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "n", " ", "x"}]]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", RowBox[{"-", "35"}]}], "35"], SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "n", " ", "x"}]]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", "\[Pi]"}]}], ",", RowBox[{ RowBox[{"2", "\[Pi]"}], "+", "1"}]}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "400"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Frame", "\[Rule]", "False"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Limit", "[", RowBox[{ FractionBox[ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"35", "+", RowBox[{"1", "/", "2"}]}], ")"}], "x"}], "]"}], RowBox[{"Sin", "[", RowBox[{"x", "/", "2"}], "]"}]], ",", RowBox[{"x", "\[Rule]", "0"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"Plot", "[", RowBox[{ FractionBox[ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"35", "+", RowBox[{"1", "/", "2"}]}], ")"}], "x"}], "]"}], RowBox[{"Sin", "[", RowBox[{"x", "/", "2"}], "]"}]], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", "\[Pi]"}]}], ",", RowBox[{ RowBox[{"2", "\[Pi]"}], "+", "1"}]}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"PlotPoints", "\[Rule]", "10001"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Frame", "\[Rule]", "False"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", "71", "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "18."}]}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Cot", "[", FractionBox["x", "2"], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "\[Pi]"}], "-", "1"}], ",", RowBox[{ RowBox[{"3", " ", "\[Pi]"}], "+", "1"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "11"}], ",", "11"}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "20"}], ",", RowBox[{"MaxRecursion", "\[Rule]", "10"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"l", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"l", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "0", ",", "10"}], "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"P", "=", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Log", "[", RowBox[{"1", "-", RowBox[{"Cos", "[", "#1", "]"}]}], "]"}]}], "&"}]}], ";"}], "\n", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"P", "[", "x", "]"}]}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Cot", "[", FractionBox["x", "2"], "]"}]}]}], "]"}], "\n", RowBox[{ RowBox[{"plot2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"P", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "\[Pi]"}], "-", "1"}], ",", RowBox[{ RowBox[{"3", " ", "\[Pi]"}], "+", "1"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "7"}], ",", "1"}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "55"}], ",", RowBox[{"MaxRecursion", "\[Rule]", "10"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"l", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"l", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0"}], "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}]}], ";"}], "\n", RowBox[{"GraphicsRow", "[", RowBox[{"{", RowBox[{"plot1", ",", "plot2"}], "}"}], "]"}]}], "Input", CellChangeTimes->{{3.4492026305886106`*^9, 3.4492026325086107`*^9}, { 3.4492038186406107`*^9, 3.4492038330006104`*^9}, {3.4492038748156104`*^9, 3.4492038937156105`*^9}, {3.449490242081617*^9, 3.4494902426576166`*^9}, { 3.458888926076*^9, 3.458888956094*^9}, {3.458888997512*^9, 3.458889017832*^9}, {3.458889081704*^9, 3.458889120653*^9}, { 3.458972802384835*^9, 3.458972803152835*^9}, {3.4589728406308346`*^9, 3.4589728418788347`*^9}, {3.4589757309208345`*^9, 3.4589757315768347`*^9}, { 3.458975932713835*^9, 3.4589759333788347`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Cos", "[", RowBox[{"N", " ", "x"}], "]"}], "-", FractionBox[ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], " ", RowBox[{"Sin", "[", RowBox[{"N", " ", "x"}], "]"}]}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Cos", "[", "x", "]"}]}]]}]], "Output", CellChangeTimes->{ 3.458888891277*^9, 3.458888927141*^9, {3.458888976184*^9, 3.4588890184779997`*^9}, {3.458889088289*^9, 3.458889121257*^9}, 3.458972806070835*^9, 3.458972843160835*^9, 3.4589757337678347`*^9, 3.4589759366358347`*^9}], Cell[BoxData["71"], "Output", CellChangeTimes->{ 3.458888891277*^9, 3.458888927141*^9, {3.458888976184*^9, 3.4588890184779997`*^9}, {3.458889088289*^9, 3.458889121257*^9}, 3.458972806070835*^9, 3.458972843160835*^9, 3.4589757337678347`*^9, 3.458975937101835*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Figure 16.2 Truncated graphs of ", Cell[BoxData[ FormBox[ SubscriptBox[ RowBox[{"D", " "}], "20"], TraditionalForm]], "None"], " and ... " }], "Section", CellChangeTimes->{ 3.4475141080094213`*^9, {3.4476740771846266`*^9, 3.447674092759627*^9}, { 3.447674151796627*^9, 3.447674165003627*^9}, {3.447674251950627*^9, 3.447674277725627*^9}, {3.4476743192036266`*^9, 3.4476743225146265`*^9}, { 3.4476855296586266`*^9, 3.447685531746627*^9}, {3.447686673377627*^9, 3.4476867345186267`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{ RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"25", "+", RowBox[{"1", "/", "2"}]}], ")"}], "x"}], "]"}], "/", RowBox[{"Sin", "[", RowBox[{"x", "/", "2"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "0.5"}], "-", RowBox[{"2", "\[Pi]"}]}], ",", RowBox[{ RowBox[{"2", "\[Pi]"}], "+", "0.5"}]}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"PlotPoints", "\[Rule]", "1000"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "3.1"}], ",", "3.1"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "False"}], ",", RowBox[{"Ticks", "\[Rule]", "False"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", RowBox[{"Sin", "[", RowBox[{"x", "/", "2"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "1"}], "/", RowBox[{"Sin", "[", RowBox[{"x", "/", "2"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "0.5"}], "-", RowBox[{"2", "\[Pi]"}]}], ",", RowBox[{ RowBox[{"2", "\[Pi]"}], "+", "0.5"}]}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "3.1"}], ",", "3.1"}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "\[Pi]"}], ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "16."}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "False"}], ",", RowBox[{"Ticks", "\[Rule]", "False"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"GraphicsArray", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "p1", "}"}], ",", RowBox[{"{", RowBox[{"p2", "//.", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{"a___", ",", RowBox[{"b", ":", RowBox[{"{", RowBox[{"_", ",", "y1_"}], "}"}]}], ",", RowBox[{"c", ":", RowBox[{"{", RowBox[{"_", ",", "y2_"}], "}"}]}], ",", "d___"}], "}"}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"Sequence", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], "]"}]}], "]"}], "/;", RowBox[{ RowBox[{"Abs", "[", RowBox[{"y1", "-", "y2"}], "]"}], ">", "4"}]}]}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], "Input", CellChangeTimes->{ 3.398495046921875*^9, 3.4492026364886103`*^9, {3.4588891985889997`*^9, 3.458889256538*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Figure 16.3 Graph of ", Cell[BoxData[ FormBox[ SubscriptBox["F", "8"], TraditionalForm]], "None"] }], "Section", CellChangeTimes->{ 3.4475141080094213`*^9, {3.4476740771846266`*^9, 3.447674092759627*^9}, { 3.447674151796627*^9, 3.447674165003627*^9}, {3.447674251950627*^9, 3.447674277725627*^9}, {3.4476743192036266`*^9, 3.4476743225146265`*^9}, { 3.4476854096496267`*^9, 3.4476854818236265`*^9}, {3.447686681016627*^9, 3.447686683200627*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{ RowBox[{"F", "[", RowBox[{"n_", ",", "x_"}], "]"}], ":=", FractionBox[ SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{"n", " ", "x"}], "2"], "]"}], "2"], RowBox[{"n", " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{" ", "x"}], "2"], "]"}], "2"]}]]}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"8", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "\[Pi]"}], "-", "0.4"}], ",", RowBox[{ RowBox[{"2", "\[Pi]"}], "+", "0.4"}]}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "\[Pi]"}], ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", "8", "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "16."}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], "Input", CellChangeTimes->{ 3.4492026378946104`*^9, {3.4588892811400003`*^9, 3.458889299606*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 16.4 Example 16.24 ", "Section", CellChangeTimes->{ 3.4475141080094213`*^9, {3.4476740771846266`*^9, 3.447674092759627*^9}, { 3.447674151796627*^9, 3.447674165003627*^9}, {3.447674251950627*^9, 3.447674277725627*^9}, {3.4476743192036266`*^9, 3.4476743225146265`*^9}, { 3.4476771952626266`*^9, 3.447677227989627*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[ RowBox[{"BernoulliB", "[", RowBox[{"1", ",", "0"}], "]"}]], "Input", CellChangeTimes->{{3.4503661101560197`*^9, 3.4503661491700196`*^9}, { 3.4503662661230197`*^9, 3.4503662817150197`*^9}, {3.4503663463430195`*^9, 3.4503663516870193`*^9}, {3.4503664300670195`*^9, 3.4503664920790195`*^9}, {3.4503665298450193`*^9, 3.4503665612110195`*^9}, {3.4503676655980196`*^9, 3.4503677036890197`*^9}, 3.4504171697912226`*^9, 3.4504172159632225`*^9}], Cell[BoxData[{ RowBox[{"BernoulliB", "[", RowBox[{"2", ",", "0"}], "]"}], "\[IndentingNewLine]", RowBox[{"BernoulliB", "[", RowBox[{"2", ",", RowBox[{"1", "/", "2"}]}], "]"}]}], "Input", CellChangeTimes->{3.4504171697912226`*^9, 3.4504172159632225`*^9}], Cell[BoxData[{ RowBox[{"FindMaximum", "[", RowBox[{ RowBox[{"BernoulliB", "[", RowBox[{"3", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.25"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"BernoulliB", "[", RowBox[{"3", ",", "x"}], "]"}], ",", "x"}], "]"}], "\[Equal]", "0"}], ",", "x"}], "]"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{"BernoulliB", "[", RowBox[{"3", ",", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{"3", "-", SqrtBox["3"]}], ")"}]}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"FullSimplify", "[", RowBox[{"BernoulliB", "[", RowBox[{"3", ",", RowBox[{ FractionBox["1", "6"], " ", RowBox[{"(", RowBox[{"3", "-", SqrtBox["3"]}], ")"}]}]}], "]"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.4503677419190197`*^9, 3.45036776311302*^9}, { 3.4504155813082223`*^9, 3.4504155833002224`*^9}, {3.450415927033222*^9, 3.4504159280892224`*^9}, 3.4504171697912226`*^9, 3.4504172159632225`*^9}], Cell[BoxData[{ RowBox[{"FindMaximum", "[", RowBox[{ RowBox[{"BernoulliB", "[", RowBox[{"4", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.5"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"FindMinimum", "[", RowBox[{ RowBox[{"BernoulliB", "[", RowBox[{"4", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{"BernoulliB", "[", RowBox[{"4", ",", RowBox[{"1", "/", "2"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{"BernoulliB", "[", RowBox[{"4", ",", "0"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.4503669459010196`*^9, 3.4503669740030193`*^9}, { 3.4503675027250195`*^9, 3.45036752539602*^9}, {3.4503681658470197`*^9, 3.4503681693210196`*^9}, 3.4504171697912226`*^9, 3.4504172159632225`*^9}], Cell[BoxData[{ RowBox[{"FindMaximum", "[", RowBox[{ RowBox[{"BernoulliB", "[", RowBox[{"5", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.25"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"BernoulliB", "[", RowBox[{"5", ",", "x"}], "]"}], ",", "x"}], "]"}], "\[Equal]", "0"}], ",", "x"}], "]"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"FullSimplify", "[", RowBox[{"BernoulliB", "[", RowBox[{"5", ",", RowBox[{ FractionBox["1", "30"], " ", RowBox[{"(", RowBox[{"15", "-", SqrtBox[ RowBox[{"15", " ", RowBox[{"(", RowBox[{"15", "-", RowBox[{"2", " ", SqrtBox["30"]}]}], ")"}]}]]}], ")"}]}]}], "]"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.4503670059440193`*^9, 3.4503670328080196`*^9}, { 3.4503670809990196`*^9, 3.4503670909250193`*^9}, {3.4503681556100197`*^9, 3.4503681643050194`*^9}, {3.4503682656520195`*^9, 3.45036829697602*^9}, { 3.4503684531210194`*^9, 3.4503685087100196`*^9}, 3.4503730684420195`*^9, 3.4504171697912226`*^9, 3.4504172159632225`*^9}], Cell[BoxData[{ RowBox[{"FindMaximum", "[", RowBox[{ RowBox[{"BernoulliB", "[", RowBox[{"6", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.5"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"FindMaximum", "[", RowBox[{ RowBox[{"BernoulliB", "[", RowBox[{"6", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{"BernoulliB", "[", RowBox[{"6", ",", RowBox[{"1", "/", "2"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{"BernoulliB", "[", RowBox[{"6", ",", "0"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.4503720483050194`*^9, 3.4503720815830193`*^9}, { 3.4503721187170196`*^9, 3.4503721268690195`*^9}, {3.4503721582030196`*^9, 3.4503721968570194`*^9}, 3.4504171697912226`*^9, 3.4504172159632225`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"bpl", "[", RowBox[{"n_", ",", "ticks__"}], "]"}], ":=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"BernoulliB", "[", RowBox[{"n", ",", RowBox[{"x", "-", RowBox[{"\[LeftFloor]", "x", "\[RightFloor]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "600"}], ",", RowBox[{"ImageSize", "\[Rule]", "150"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",", "ticks"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "11."}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"bpl", "[", "1", "]"}], "=", RowBox[{"Show", "[", RowBox[{ RowBox[{ RowBox[{"bpl", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}], "//.", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{"a___", ",", RowBox[{"b", ":", RowBox[{"{", RowBox[{"_", ",", "y1_"}], "}"}]}], ",", RowBox[{"c", ":", RowBox[{"{", RowBox[{"_", ",", "y2_"}], "}"}]}], ",", "d___"}], "}"}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"Sequence", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], "]"}]}], "]"}], "/;", RowBox[{ RowBox[{"Abs", "[", RowBox[{"y1", "-", "y2"}], "]"}], ">", "0.5"}]}]}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "11."}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"bpl", "[", "2", "]"}], "=", RowBox[{"Show", "[", RowBox[{"bpl", "[", RowBox[{"2", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "12"}], ",", RowBox[{"1", "/", "6"}]}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"bpl", "[", "3", "]"}], "=", RowBox[{"Show", "[", RowBox[{"bpl", "[", RowBox[{"3", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0481"}], ",", "0.0481"}], " ", "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"bpl", "[", "4", "]"}], "=", RowBox[{"Show", "[", RowBox[{"bpl", "[", RowBox[{"4", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "30"}], ",", RowBox[{"7", "/", "240"}]}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"bpl", "[", "5", "]"}], "=", RowBox[{"Show", "[", RowBox[{"bpl", "[", RowBox[{"5", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0244"}], ",", "0.0244"}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"bpl", "[", "6", "]"}], "=", RowBox[{"Show", "[", RowBox[{"bpl", "[", RowBox[{"6", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "31"}], "/", "1344"}], ",", RowBox[{"1", "/", "42"}]}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"bpl", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"bpl", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "4", ",", "6"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"GraphicsArray", "[", RowBox[{"{", RowBox[{"t1", ",", "t2"}], "}"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4503655297480197`*^9, 3.4503655573430195`*^9}, { 3.4503655942290196`*^9, 3.4503656878870196`*^9}, {3.4503657339090195`*^9, 3.4503657481990194`*^9}, {3.4503657935380197`*^9, 3.4503658367280197`*^9}, {3.45036590129202*^9, 3.4503659040040197`*^9}, { 3.4503659509770193`*^9, 3.4503659750790195`*^9}, {3.45036601639802*^9, 3.45036605162002*^9}, {3.4503661290390196`*^9, 3.4503661337670193`*^9}, { 3.4503661691170197`*^9, 3.4503662525260196`*^9}, {3.45036631550902*^9, 3.4503663237480197`*^9}, {3.4503668014090195`*^9, 3.45036689251602*^9}, { 3.4503671566370196`*^9, 3.4503672215770197`*^9}, {3.4503673878480196`*^9, 3.4503674013750196`*^9}, {3.4503674470630198`*^9, 3.4503674590600195`*^9}, 3.4503676431070194`*^9, {3.45036834687002*^9, 3.4503683789200196`*^9}, { 3.4503684106310196`*^9, 3.4503684162700195`*^9}, {3.4503685313930197`*^9, 3.4503685491020193`*^9}, {3.45037222178502*^9, 3.45037225681102*^9}, { 3.4503724334490194`*^9, 3.4503724397440195`*^9}, {3.45037276362202*^9, 3.4503727727500196`*^9}, {3.4504154073832226`*^9, 3.4504154246492224`*^9}, {3.4504156081972227`*^9, 3.4504156333692226`*^9}, {3.4504156689992228`*^9, 3.4504156796832223`*^9}, {3.4504158511162224`*^9, 3.450415863995222*^9}, 3.4504171697912226`*^9, 3.4504172159632225`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Computation in Example 16.23", "Section", CellChangeTimes->{ 3.4475141080094213`*^9, {3.4476740771846266`*^9, 3.447674092759627*^9}, { 3.447674151796627*^9, 3.447674165003627*^9}, {3.447674251950627*^9, 3.447674277725627*^9}, {3.4476743192036266`*^9, 3.4476743225146265`*^9}, { 3.4476771952626266`*^9, 3.447677227989627*^9}, {3.4476855791756268`*^9, 3.447685595822627*^9}, {3.447685956418627*^9, 3.4476859571706266`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"Pi", " ", RowBox[{"Cot", "[", RowBox[{"Pi", " ", "z"}], "]"}]}], "-", RowBox[{"1", "/", "z"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "5"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Pi", " ", "z", " ", RowBox[{"Cot", "[", RowBox[{"Pi", " ", "z"}], "]"}]}], "-", "1"}], ")"}], "/", RowBox[{"z", "^", "2"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "5"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"Pi", " ", "z", " ", RowBox[{"Cot", "[", RowBox[{"Pi", " ", "z"}], "]"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", RowBox[{"z", "^", "2"}]}], ")"}]}], ",", RowBox[{"z", "\[Rule]", "0"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"Cot", "[", "z", "]"}], "^", "2"}], "==", RowBox[{"-", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"Cot", "'"}], "[", "z", "]"}]}], ")"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.447686058558627*^9, 3.447686064661627*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Computation in Example 16.24", "Section", CellChangeTimes->{ 3.4475141080094213`*^9, {3.4476740771846266`*^9, 3.447674092759627*^9}, { 3.447674151796627*^9, 3.447674165003627*^9}, {3.447674251950627*^9, 3.447674277725627*^9}, {3.4476743192036266`*^9, 3.4476743225146265`*^9}, { 3.4476771952626266`*^9, 3.447677227989627*^9}, {3.4476855791756268`*^9, 3.447685595822627*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Series", "[", RowBox[{ RowBox[{"Cot", "[", RowBox[{"t", "/", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "3"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Cot", "[", RowBox[{"t", "/", "2"}], "]"}], "-", RowBox[{"2", "/", "t"}]}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{3.458890144009*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "t", "]"}], "/", "t"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "x"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1000"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ";"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Figure 16.5 Graph of sawtooth", "Section", CellChangeTimes->{ 3.4475141080094213`*^9, {3.4476740771846266`*^9, 3.447674092759627*^9}, { 3.447674151796627*^9, 3.447674165003627*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ FractionBox["1", "2"], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "100"], FractionBox[ RowBox[{"Sin", "[", RowBox[{"2", "n", " ", "\[Pi]", " ", "x"}], "]"}], RowBox[{"n", " ", "\[Pi]"}]]}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "2"}], "-", "0.2"}], ",", RowBox[{"2", "+", "0.2"}]}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"MaxRecursion", "->", "8"}], ",", RowBox[{"PlotPoints", "->", "500"}], ",", RowBox[{"PlotRange", "->", "Full"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ov", "=", "0.89490"}], "\[IndentingNewLine]", RowBox[{"l1", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Thickness", "[", "0.01", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "ov"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"1", "-", "ov"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"k", ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", "0.09"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", "1", "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"k", ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", "0.09"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"(", RowBox[{"p", "//.", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{"a___", ",", RowBox[{"b", ":", RowBox[{"{", RowBox[{"_", ",", "y1_"}], "}"}]}], ",", RowBox[{"c", ":", RowBox[{"{", RowBox[{"_", ",", "y2_"}], "}"}]}], ",", "d___"}], "}"}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"Sequence", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], "]"}]}], "]"}], "/;", RowBox[{ RowBox[{"Abs", "[", RowBox[{"y1", "-", "y2"}], "]"}], ">", "0.8"}]}]}]}], ")"}], ",", RowBox[{"(*", RowBox[{"c1", ",", "c2", ","}], "*)"}], RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14."}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}]}], "]"}]}], "Input", CellChangeTimes->{ 3.44920264132061*^9, 3.4504178545692225`*^9, {3.4504179836852226`*^9, 3.4504180427942224`*^9}, {3.4504180982402225`*^9, 3.4504181683542223`*^9}, {3.4504182210252223`*^9, 3.4504182275692225`*^9}, {3.4504182815252223`*^9, 3.4504184243732224`*^9}, {3.4504184594912224`*^9, 3.4504184602982225`*^9}, {3.4504185022482224`*^9, 3.4504185045602226`*^9}, {3.450418536118222*^9, 3.450418542014222*^9}, { 3.4504185891312227`*^9, 3.4504185919392223`*^9}, {3.4588893992799997`*^9, 3.4588894070950003`*^9}, {3.458889914683*^9, 3.458889915403*^9}, { 3.458889961584*^9, 3.458890001398*^9}, {3.458890037141*^9, 3.458890047458*^9}, {3.458890114392*^9, 3.458890118791*^9}, { 3.458890163774*^9, 3.458890221521*^9}, {3.4588943654849997`*^9, 3.4588943881400003`*^9}, {3.4588946539*^9, 3.45889484085*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"ov", "=", "0.0895"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Thickness", "[", "0.01", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "2"}], "+", "ov"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"1", "/", "2"}], "-", "ov"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "2"}], ",", "2", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "100"], FractionBox[ RowBox[{"Sin", "[", RowBox[{"2", "n", " ", "\[Pi]", " ", "x"}], "]"}], RowBox[{"n", " ", "\[Pi]"}]]}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}]}], ",", RowBox[{"MaxRecursion", "->", "8"}], ",", RowBox[{"PlotPoints", "->", "4000"}], ",", RowBox[{"PlotRange", "->", "Full"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "11."}]}], "}"}]}], ",", RowBox[{"ImageSize", "->", "300"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p", ",", "l"}], "]"}]}], "Input", CellChangeTimes->{ 3.45889421225*^9, {3.4588942834890003`*^9, 3.4588942915179996`*^9}, { 3.45889485931*^9, 3.458894897951*^9}, {3.458894929986*^9, 3.458895012054*^9}, {3.4588950997209997`*^9, 3.4588952622790003`*^9}, { 3.458895292766*^9, 3.458895330308*^9}, {3.458895460252*^9, 3.4588955085699997`*^9}, {3.458895541792*^9, 3.458895550983*^9}, { 3.45889565752*^9, 3.4588957158380003`*^9}, {3.458895826984*^9, 3.4588958308789997`*^9}, {3.458973839855835*^9, 3.458973857629835*^9}, 3.4589741757078347`*^9, {3.458974245055835*^9, 3.458974258445835*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"l", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Thickness", "[", "0.01", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "2"}], "+", "ov"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"1", "/", "2"}], "-", "ov"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "2"}], ",", "2", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "100"], FractionBox[ RowBox[{"Sin", "[", RowBox[{"2", "n", " ", "\[Pi]", " ", "x"}], "]"}], RowBox[{"n", " ", "\[Pi]"}]]}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "2"}], "-", "ov"}], ",", RowBox[{ RowBox[{"1", "/", "2"}], "+", "ov"}]}], "}"}]}], "}"}]}], ",", RowBox[{"MaxRecursion", "->", "8"}], ",", RowBox[{"PlotPoints", "->", "4000"}], ",", RowBox[{"PlotRange", "->", "Full"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "6."}]}], "}"}]}], ",", RowBox[{"ImageSize", "->", "300"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p", ",", "l"}], "]"}]}], "Input", CellChangeTimes->{{3.4589740048218346`*^9, 3.458974012364835*^9}, { 3.4589748348788347`*^9, 3.4589748555578346`*^9}, {3.458975055329835*^9, 3.458975056961835*^9}, {3.458975154171835*^9, 3.458975156155835*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Problem 16.2 A computation", "Section", CellChangeTimes->{ 3.4475141080094213`*^9, {3.4476740771846266`*^9, 3.447674092759627*^9}, { 3.447674151796627*^9, 3.447674165003627*^9}, {3.447686155190627*^9, 3.4476861690856266`*^9}, {3.447743164755047*^9, 3.4477431651790466`*^9}, { 3.4494875967426167`*^9, 3.4494875973746166`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"ComplexExpand", "[", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"r", " ", RowBox[{"E", "^", RowBox[{"(", RowBox[{"I", " ", "x"}], ")"}]}]}]}], ")"}]}], "]"}], "\[Equal]", FractionBox[ RowBox[{"1", "-", RowBox[{"r", " ", RowBox[{"Cos", "[", "x", "]"}]}], "+", RowBox[{"I", " ", "r", " ", RowBox[{"Sin", "[", "x", "]"}]}]}], RowBox[{"1", "+", RowBox[{"r", "^", "2"}], "-", RowBox[{"2", "r", " ", RowBox[{"Cos", "[", "x", "]"}]}]}]]}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.4494686379546165`*^9, 3.4494687398766165`*^9}, { 3.4494688459026165`*^9, 3.4494690593076167`*^9}, 3.449487458972617*^9}], Cell[BoxData["True"], "Output", CellChangeTimes->{3.4588958503710003`*^9}], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Re", "[", RowBox[{"ComplexExpand", "[", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"(", RowBox[{"1", "-", " ", RowBox[{"r", " ", RowBox[{"E", "^", RowBox[{"(", RowBox[{"I", " ", "x"}], ")"}]}]}]}], ")"}], "^", "2"}]], ",", RowBox[{"{", RowBox[{"x", "\[Element]", "\[DoubleStruckCapitalR]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", "\[Element]", "\[DoubleStruckCapitalR]"}], "}"}]}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.449469199291617*^9, 3.449469203731617*^9}, 3.449487458972617*^9}], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", RowBox[{"Im", "[", FractionBox[ RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"r", " ", RowBox[{"Cos", "[", "x", "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", "x", "]"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["r", "2"], "-", RowBox[{"2", " ", "r", " ", RowBox[{"Cos", "[", "x", "]"}]}]}], ")"}], "2"]], "]"}]}], "+", RowBox[{"Re", "[", FractionBox[ RowBox[{"1", "-", RowBox[{"2", " ", "r", " ", RowBox[{"Cos", "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "x"}], "]"}]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["r", "2"], "-", RowBox[{"2", " ", "r", " ", RowBox[{"Cos", "[", "x", "]"}]}]}], ")"}], "2"]], "]"}]}]], "Output", CellChangeTimes->{3.458895852618*^9}], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ FractionBox[ RowBox[{"1", "-", RowBox[{"2", " ", "r", " ", RowBox[{"Cos", "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "x"}], "]"}]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["r", "2"], "-", RowBox[{"2", " ", "r", " ", RowBox[{"Cos", "[", "x", "]"}]}]}], ")"}], "2"]], ",", RowBox[{"r", "\[Rule]", "1"}]}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.4494692666556168`*^9, 3.449469280582617*^9}, 3.449487458972617*^9}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", RowBox[{"Cos", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"Csc", "[", FractionBox["x", "2"], "]"}], "2"]}]], "Output", CellChangeTimes->{3.458895854359*^9}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", RowBox[{"Cos", "[", "x", "]"}], " ", SuperscriptBox[ RowBox[{"Csc", "[", FractionBox["x", "2"], "]"}], "2"]}], "\[Equal]", RowBox[{ FractionBox["1", "2"], "-", FractionBox["1", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["x", "2"], "]"}], "2"]}]]}]}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.4494694030636168`*^9, 3.449469405271617*^9}, { 3.449469502826617*^9, 3.449469535536617*^9}, {3.449469579062617*^9, 3.4494695877256165`*^9}, 3.449487458972617*^9}], Cell[BoxData["True"], "Output", CellChangeTimes->{3.458895856111*^9}], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Im", "[", RowBox[{"ComplexExpand", "[", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"(", RowBox[{"1", "-", " ", RowBox[{"r", " ", RowBox[{"E", "^", RowBox[{"(", RowBox[{"I", " ", "x"}], ")"}]}]}]}], ")"}], "^", "2"}]], ",", RowBox[{"{", RowBox[{"x", "\[Element]", "\[DoubleStruckCapitalR]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", "\[Element]", "\[DoubleStruckCapitalR]"}], "}"}]}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.449469723309617*^9, 3.449469724861617*^9}, 3.449487458972617*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Im", "[", FractionBox[ RowBox[{"1", "-", RowBox[{"2", " ", "r", " ", RowBox[{"Cos", "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "x"}], "]"}]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["r", "2"], "-", RowBox[{"2", " ", "r", " ", RowBox[{"Cos", "[", "x", "]"}]}]}], ")"}], "2"]], "]"}], "-", RowBox[{"2", " ", RowBox[{"Re", "[", FractionBox[ RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"r", " ", RowBox[{"Cos", "[", "x", "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", "x", "]"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["r", "2"], "-", RowBox[{"2", " ", "r", " ", RowBox[{"Cos", "[", "x", "]"}]}]}], ")"}], "2"]], "]"}]}]}]], "Output", CellChangeTimes->{3.458895858031*^9}], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], FractionBox[ RowBox[{"r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"r", " ", RowBox[{"Cos", "[", "x", "]"}]}]}], ")"}], " ", RowBox[{"Sin", "[", "x", "]"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["r", "2"], "-", RowBox[{"2", " ", "r", " ", RowBox[{"Cos", "[", "x", "]"}]}]}], ")"}], "2"]]}], ",", RowBox[{"r", "\[Rule]", "1"}]}], "]"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.449469775042617*^9, 3.4494697946096168`*^9}, 3.449487458972617*^9}], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Cot", "[", FractionBox["x", "2"], "]"}]}]], "Output", CellChangeTimes->{3.458895859538*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Problem 16.3 A computation", "Section", CellChangeTimes->{ 3.4475141080094213`*^9, {3.4476740771846266`*^9, 3.447674092759627*^9}, { 3.447674151796627*^9, 3.447674165003627*^9}, {3.447686155190627*^9, 3.4476861690856266`*^9}, {3.447743164755047*^9, 3.4477431651790466`*^9}, { 3.4494876626506166`*^9, 3.449487665306617*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[TextData[{ "We want to compute the Fourier series of the periodic function arccos \ \[SmallCircle] cos. ", StyleBox["\nMathematica", FontSlant->"Italic"], " does not recognize a pattern. " }], "Text", CellChangeTimes->{ 3.4454118675496244`*^9, {3.4454140164276247`*^9, 3.445414040490625*^9}, { 3.4454232654836245`*^9, 3.445423287265625*^9}, {3.4454252534336247`*^9, 3.445425330805625*^9}, {3.44552651212768*^9, 3.4455265208866796`*^9}, { 3.44552656050068*^9, 3.44552661151368*^9}, {3.44552791431168*^9, 3.44552792946268*^9}, {3.44552838048468*^9, 3.44552843550568*^9}, { 3.4455284733246803`*^9, 3.44552848151968*^9}, {3.44552886534568*^9, 3.44552890954468*^9}, {3.4455856581556797`*^9, 3.44558566265968*^9}, { 3.4457675798458233`*^9, 3.4457676327768235`*^9}, {3.4457676652188234`*^9, 3.4457677196698236`*^9}, {3.4457687514758234`*^9, 3.4457687559448233`*^9}, {3.4457704043748236`*^9, 3.445770443601824*^9}, 3.4457707416028233`*^9, {3.4457708017018237`*^9, 3.4457708176768236`*^9}, { 3.4457711173798237`*^9, 3.4457712212778234`*^9}, {3.4457712543318233`*^9, 3.4457713925718236`*^9}, {3.445771577535824*^9, 3.4457716023078237`*^9}, { 3.4457716418718233`*^9, 3.4457717724138236`*^9}, {3.4457718525698233`*^9, 3.445771857233824*^9}, {3.4457721812708235`*^9, 3.4457721846308236`*^9}, { 3.445772218620824*^9, 3.445772256844824*^9}, {3.4458435199359694`*^9, 3.4458435406849694`*^9}, {3.4458439680589695`*^9, 3.445843985274969*^9}, { 3.4458441651769695`*^9, 3.445844207062969*^9}, {3.445844902536969*^9, 3.4458450299359694`*^9}, {3.4458554402629695`*^9, 3.4458555975079694`*^9}, {3.4458556399229693`*^9, 3.445855729675969*^9}, { 3.445855794090969*^9, 3.4458558665489693`*^9}, {3.4458561400229692`*^9, 3.4458561723629694`*^9}, {3.4458589475969696`*^9, 3.445858995347969*^9}, { 3.4462793972480154`*^9, 3.4462794739160156`*^9}, {3.4462795242010155`*^9, 3.446279524393016*^9}, {3.446279828664016*^9, 3.4462799879270153`*^9}, { 3.4462884028540154`*^9, 3.4462884251000156`*^9}, {3.4463031333190002`*^9, 3.4463031517980003`*^9}, {3.446303220042*^9, 3.446303233817*^9}, { 3.446303273862*^9, 3.446303277351*^9}, 3.4464826952521973`*^9, 3.4464827481531973`*^9, 3.446482834126197*^9, {3.4464828906011972`*^9, 3.446482917263197*^9}, 3.446482967775197*^9, 3.446483021393197*^9, { 3.446483053983197*^9, 3.446483082070197*^9}, {3.4464831644891973`*^9, 3.446483193928197*^9}, 3.4464832348371973`*^9, 3.4464832721961975`*^9, 3.446483333280197*^9, 3.446483410676197*^9, {3.4464834930221972`*^9, 3.446483554891197*^9}, 3.446483628367197*^9, 3.4464836596931973`*^9, 3.4464837641771975`*^9, {3.4464838815051975`*^9, 3.4464839039951973`*^9}, 3.4464839448611975`*^9, {3.4464840249361973`*^9, 3.446484067207197*^9}, { 3.446484097636197*^9, 3.446484123562197*^9}, {3.4467941740790195`*^9, 3.4467943018190193`*^9}, {3.4467943367390194`*^9, 3.4467945943930197`*^9}, {3.4467946792270193`*^9, 3.44679474286302*^9}, { 3.44679478171402*^9, 3.4467947843930197`*^9}, {3.4467948327320194`*^9, 3.4467948567970195`*^9}, {3.4467948987010193`*^9, 3.4467950409630194`*^9}, {3.446895784767*^9, 3.446895808443*^9}, { 3.4469646193794127`*^9, 3.446964730196413*^9}, {3.4469688037874126`*^9, 3.446968854336413*^9}, {3.447580731780835*^9, 3.447580774106835*^9}, { 3.4475835196218348`*^9, 3.447583535988835*^9}, {3.447588519728835*^9, 3.4475885323618345`*^9}, 3.4477430942190466`*^9, {3.447743202386047*^9, 3.447743214320047*^9}}], Cell[BoxData[{ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"Composition", "[", RowBox[{"ArcCos", ",", "Cos"}], "]"}], "[", "x", "]"}], ",", RowBox[{ RowBox[{"-", "\[Pi]"}], "<", "x", "<", "\[Pi]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"modulePlot", "[", RowBox[{ RowBox[{"Composition", "[", RowBox[{"ArcCos", ",", "Cos"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[Pi]"}], "-", "1"}], ",", RowBox[{ RowBox[{"4", " ", "\[Pi]"}], "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "4"}], ",", "4", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"\[Pi]", "+", "0.1"}]}], "}"}], ",", "800", ",", RowBox[{"{", "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.447582163954835*^9, 3.4475822295698347`*^9}, { 3.4475832092408347`*^9, 3.4475832116288347`*^9}, {3.447743541857047*^9, 3.447743542624047*^9}}], Cell["\<\ Instead we compute the Fourier series of the absolute value function made 2\ \[Pi] - periodic. \ \>", "Text", CellChangeTimes->{ 3.4454118675496244`*^9, {3.4454140164276247`*^9, 3.445414040490625*^9}, { 3.4454232654836245`*^9, 3.445423287265625*^9}, {3.4454252534336247`*^9, 3.445425330805625*^9}, {3.44552651212768*^9, 3.4455265208866796`*^9}, { 3.44552656050068*^9, 3.44552661151368*^9}, {3.44552791431168*^9, 3.44552792946268*^9}, {3.44552838048468*^9, 3.44552843550568*^9}, { 3.4455284733246803`*^9, 3.44552848151968*^9}, {3.44552886534568*^9, 3.44552890954468*^9}, {3.4455856581556797`*^9, 3.44558566265968*^9}, { 3.4457675798458233`*^9, 3.4457676327768235`*^9}, {3.4457676652188234`*^9, 3.4457677196698236`*^9}, {3.4457687514758234`*^9, 3.4457687559448233`*^9}, {3.4457704043748236`*^9, 3.445770443601824*^9}, 3.4457707416028233`*^9, {3.4457708017018237`*^9, 3.4457708176768236`*^9}, { 3.4457711173798237`*^9, 3.4457712212778234`*^9}, {3.4457712543318233`*^9, 3.4457713925718236`*^9}, {3.445771577535824*^9, 3.4457716023078237`*^9}, { 3.4457716418718233`*^9, 3.4457717724138236`*^9}, {3.4457718525698233`*^9, 3.445771857233824*^9}, {3.4457721812708235`*^9, 3.4457721846308236`*^9}, { 3.445772218620824*^9, 3.445772256844824*^9}, {3.4458435199359694`*^9, 3.4458435406849694`*^9}, {3.4458439680589695`*^9, 3.445843985274969*^9}, { 3.4458441651769695`*^9, 3.445844207062969*^9}, {3.445844902536969*^9, 3.4458450299359694`*^9}, {3.4458554402629695`*^9, 3.4458555975079694`*^9}, {3.4458556399229693`*^9, 3.445855729675969*^9}, { 3.445855794090969*^9, 3.4458558665489693`*^9}, {3.4458561400229692`*^9, 3.4458561723629694`*^9}, {3.4458589475969696`*^9, 3.445858995347969*^9}, { 3.4462793972480154`*^9, 3.4462794739160156`*^9}, {3.4462795242010155`*^9, 3.446279524393016*^9}, {3.446279828664016*^9, 3.4462799879270153`*^9}, { 3.4462884028540154`*^9, 3.4462884251000156`*^9}, {3.4463031333190002`*^9, 3.4463031517980003`*^9}, {3.446303220042*^9, 3.446303233817*^9}, { 3.446303273862*^9, 3.446303277351*^9}, 3.4464826952521973`*^9, 3.4464827481531973`*^9, 3.446482834126197*^9, {3.4464828906011972`*^9, 3.446482917263197*^9}, 3.446482967775197*^9, 3.446483021393197*^9, { 3.446483053983197*^9, 3.446483082070197*^9}, {3.4464831644891973`*^9, 3.446483193928197*^9}, 3.4464832348371973`*^9, 3.4464832721961975`*^9, 3.446483333280197*^9, 3.446483410676197*^9, {3.4464834930221972`*^9, 3.446483554891197*^9}, 3.446483628367197*^9, 3.4464836596931973`*^9, 3.4464837641771975`*^9, {3.4464838815051975`*^9, 3.4464839039951973`*^9}, 3.4464839448611975`*^9, {3.4464840249361973`*^9, 3.446484067207197*^9}, { 3.446484097636197*^9, 3.446484123562197*^9}, {3.4467941740790195`*^9, 3.4467943018190193`*^9}, {3.4467943367390194`*^9, 3.4467945943930197`*^9}, {3.4467946792270193`*^9, 3.44679474286302*^9}, { 3.44679478171402*^9, 3.4467947843930197`*^9}, {3.4467948327320194`*^9, 3.4467948567970195`*^9}, {3.4467948987010193`*^9, 3.4467950409630194`*^9}, {3.446895784767*^9, 3.446895808443*^9}, { 3.4469646193794127`*^9, 3.446964730196413*^9}, {3.4469688037874126`*^9, 3.446968854336413*^9}, {3.447580731780835*^9, 3.447580774106835*^9}, { 3.447583546428835*^9, 3.447583549723835*^9}, {3.447583597520835*^9, 3.447583618879835*^9}, {3.447583662176835*^9, 3.447583687211835*^9}}], Cell[BoxData[{ RowBox[{"FourierCoefficient", "[", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], ",", "x", ",", "n"}], "]"}], "\n", RowBox[{"FourierSeries", "[", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], ",", "x", ",", "10"}], "]"}], "\n", RowBox[{ FractionBox["\[Pi]", "2"], "-", RowBox[{ FractionBox["2", "\[Pi]"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", RowBox[{"-", "4"}]}], "5"], FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "-", "1"}], ")"}], " ", "x"}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "-", "1"}], ")"}], "2"]]}]}]}], "\n", RowBox[{"FullSimplify", "[", RowBox[{"%", "\[Equal]", "%%"}], "]"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{"FourierSeries", "[", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], ",", "x", ",", "10"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.447580782242835*^9, 3.4475808062418346`*^9}, { 3.447580909140835*^9, 3.4475809203398347`*^9}, 3.4475810519318347`*^9, { 3.447581140961835*^9, 3.4475811617108345`*^9}, {3.447581258631835*^9, 3.4475813611948347`*^9}, {3.447581393568835*^9, 3.4475814431098347`*^9}, { 3.447581497395835*^9, 3.447581499002835*^9}, {3.447581545127835*^9, 3.4475816017488346`*^9}, {3.447581643409835*^9, 3.447581689815835*^9}, { 3.4475818245628347`*^9, 3.447581848271835*^9}, {3.447581919313835*^9, 3.447581954640835*^9}, {3.4475820041188345`*^9, 3.447582029645835*^9}, 3.447582061954835*^9, {3.4475822929578347`*^9, 3.447582295631835*^9}, { 3.447582344614835*^9, 3.447582525737835*^9}, {3.4475825620668344`*^9, 3.4475826196048346`*^9}, {3.4475826889918346`*^9, 3.447582698369835*^9}, { 3.447582751304835*^9, 3.447582772890835*^9}, {3.447582954402835*^9, 3.447582956224835*^9}, {3.447583005315835*^9, 3.447583014119835*^9}, { 3.4475831532158346`*^9, 3.4475832018198347`*^9}, {3.4475834473198347`*^9, 3.4475834623658347`*^9}, {3.4475838336968346`*^9, 3.447583847101835*^9}, { 3.4477433194290466`*^9, 3.447743322975047*^9}}], Cell[BoxData[ RowBox[{"modulePlot", "[", RowBox[{ RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"FourierSeries", "[", RowBox[{ RowBox[{"Abs", "[", "#", "]"}], ",", "#", ",", "30"}], "]"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "4"}], "\[Pi]"}], "-", "1"}], ",", RowBox[{ RowBox[{"4", "\[Pi]"}], "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "4"}], ",", "4", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "4"}], ",", "4", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"\[Pi]", "+", "0.1"}]}], "}"}], ",", "800", ",", RowBox[{"{", "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4475838409208345`*^9, 3.447583850278835*^9}, { 3.447585131820835*^9, 3.447585138475835*^9}, {3.447585261813835*^9, 3.447585356310835*^9}, {3.4475854566818347`*^9, 3.4475855193028345`*^9}, { 3.447595863586*^9, 3.44759587448*^9}, {3.447596578075*^9, 3.447596604534*^9}, {3.447596646005*^9, 3.447596714755*^9}, { 3.447596749119*^9, 3.4475967872279997`*^9}, {3.4475968215150003`*^9, 3.4475968411470003`*^9}, {3.447596925917*^9, 3.447596930164*^9}, { 3.4476045922799997`*^9, 3.447604604118*^9}, {3.447654764558627*^9, 3.447654794635627*^9}, {3.447654877207627*^9, 3.447654879140627*^9}, { 3.4477433154640465`*^9, 3.4477433295560465`*^9}, {3.4477434993460464`*^9, 3.4477435508390465`*^9}}], Cell[BoxData[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "\[Infinity]"], FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "-", "1"}], ")"}], "2"]]}], "\n", FractionBox[ RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Pi]"}], "\[Pi]"], RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"Composition", "[", RowBox[{"ArcCos", ",", "Cos"}], "]"}], "[", "x", "]"}], "2"], RowBox[{"\[DifferentialD]", "x"}]}]}], RowBox[{"2", " ", "\[Pi]"}]], "\n", FractionBox[ RowBox[{"2", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SuperscriptBox["x", "2"], RowBox[{"\[DifferentialD]", "x"}]}]}]}], RowBox[{"2", " ", "\[Pi]"}]], "\n", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["\[Pi]", "2"], ")"}], "2"], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", RowBox[{"-", "\[Infinity]"}]}], "\[Infinity]"], SuperscriptBox[ RowBox[{"(", FractionBox["2", RowBox[{"\[Pi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "n"}], "-", "1"}], ")"}], "2"]}]], ")"}], "2"]}]}], "\n", RowBox[{"FullSimplify", "[", RowBox[{ FractionBox[ RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Pi]"}], "\[Pi]"], RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"Composition", "[", RowBox[{"ArcCos", ",", "Cos"}], "]"}], "[", "x", "]"}], "2"], RowBox[{"\[DifferentialD]", "x"}]}]}], RowBox[{"2", " ", "\[Pi]"}]], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["\[Pi]", "2"], ")"}], "2"], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", RowBox[{"-", "\[Infinity]"}]}], "\[Infinity]"], SuperscriptBox[ RowBox[{"(", FractionBox["2", RowBox[{"\[Pi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "n"}], "-", "1"}], ")"}], "2"]}]], ")"}], "2"]}]}]}], "]"}], "\n", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "n"}], "-", "1"}], ")"}], "4"]]}], "\[IndentingNewLine]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], FractionBox["1", RowBox[{" ", SuperscriptBox["n", "4"]}]]}]}], "Input", CellChangeTimes->{{3.4475895998098345`*^9, 3.447589651216835*^9}, { 3.4498303146722107`*^9, 3.44983043985721*^9}, 3.4498304709192104`*^9, { 3.4498305259172106`*^9, 3.4498305428592105`*^9}, {3.44983060582421*^9, 3.4498306867002106`*^9}, {3.4498307304652104`*^9, 3.4498308398112106`*^9}, {3.4498308819532104`*^9, 3.4498309324472103`*^9}, {3.4498309711312103`*^9, 3.4498309930062103`*^9}, {3.4498311917672105`*^9, 3.4498312081752105`*^9}, {3.4498316042212105`*^9, 3.4498316074452105`*^9}, {3.4498318031862106`*^9, 3.44983180687121*^9}, { 3.4498319144502106`*^9, 3.4498319159382105`*^9}, {3.44983207448921*^9, 3.4498322283602104`*^9}, {3.4498323719622107`*^9, 3.4498323739212103`*^9}, {3.4498325935652103`*^9, 3.4498326244342103`*^9}, {3.4498371196812105`*^9, 3.4498371268072104`*^9}, {3.4498371582302103`*^9, 3.4498371672542105`*^9}}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Pi]", " ", "\[Xi]"}]], " ", SuperscriptBox[ RowBox[{"Sinc", "[", RowBox[{ FractionBox["\[Pi]", "2"], " ", "\[Xi]"}], "]"}], "2"]}], "\[Equal]", SuperscriptBox[ RowBox[{"(", RowBox[{"\[ImaginaryI]", FractionBox[ RowBox[{" ", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Pi]", " ", "\[Xi]"}]], "-", "1"}]}], "\[Xi]"]}], ")"}], "2"]}], ",", RowBox[{"\[Xi]", "\[Element]", "\[DoubleStruckCapitalR]"}]}], "]"}]], "Input", CellChangeTimes->{{3.447603215744*^9, 3.4476035336549997`*^9}, { 3.447603566755*^9, 3.447603597007*^9}, {3.447603648835*^9, 3.447603651237*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"f", "=", RowBox[{ RowBox[{ RowBox[{"Composition", "[", RowBox[{"ArcSin", ",", "Sin"}], "]"}], "[", "#1", "]"}], "&"}]}], ";"}], "\n", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "\[Pi]"}], "-", "1"}], ",", RowBox[{ RowBox[{"3", " ", "\[Pi]"}], "+", "1"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["\[Pi]", "2"]}], ",", FractionBox["\[Pi]", "2"]}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "0.2"}], "-", FractionBox["\[Pi]", "2"]}], ",", RowBox[{ FractionBox["\[Pi]", "2"], "+", "0.2"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}], "\n", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"Composition", "[", RowBox[{"ArcCos", ",", "Cos"}], "]"}], "[", RowBox[{"x", "+", FractionBox["\[Pi]", "2"]}], "]"}], "-", FractionBox["\[Pi]", "2"]}]}], "]"}], "\n", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "-", "1"}], ")"}], " ", RowBox[{"(", RowBox[{"x", "+", FractionBox["\[Pi]", "2"]}], ")"}]}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"]}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "-", "1"}], ")"}], " ", "x"}], "]"}]}]}], ",", RowBox[{"k", "\[Element]", "\[DoubleStruckCapitalZ]"}]}], "]"}], "\n", RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Pi]"}], "\[Pi]"], RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"f", "[", "x", "]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "-", "1"}], ")"}], " ", "x"}], "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "\n", RowBox[{"Plot", "[", RowBox[{ RowBox[{ FractionBox["4", "\[Pi]"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "30"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "1"}]], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "n"}], "-", "1"}], ")"}], " ", "x"}], "]"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "n"}], "-", "1"}], ")"}], "2"]]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "\[Pi]"}], "-", "1"}], ",", RowBox[{ RowBox[{"3", " ", "\[Pi]"}], "+", "1"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12."}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["\[Pi]", "2"]}], ",", FractionBox["\[Pi]", "2"]}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "0.2"}], "-", FractionBox["\[Pi]", "2"]}], ",", RowBox[{ FractionBox["\[Pi]", "2"], "+", "0.2"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ FractionBox["4", "\[Pi]"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "100"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "1"}]], " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "n"}], "-", "1"}], ")"}], " ", "x"}], "]"}]}], RowBox[{ RowBox[{"2", " ", "n"}], "-", "1"}]]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "\[Pi]"}], "-", "1"}], ",", RowBox[{ RowBox[{"3", " ", "\[Pi]"}], "+", "1"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12."}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "0.2"}], "-", "1"}], ",", RowBox[{"1", "+", "0.2"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "1"}]], " "}], RowBox[{ RowBox[{"2", " ", "n"}], "-", "1"}]]}]}], "Input", CellChangeTimes->{{3.44965465327361*^9, 3.4496546681766105`*^9}, { 3.4496549165146103`*^9, 3.4496549171306105`*^9}, {3.4496550109656105`*^9, 3.44965501114861*^9}, {3.4496609745606103`*^9, 3.4496610340846105`*^9}, { 3.4496619188496103`*^9, 3.4496620169086103`*^9}, {3.4496641911046104`*^9, 3.4496643125276103`*^9}, {3.4496643819186106`*^9, 3.4496644157886105`*^9}, 3.4496648664026103`*^9, {3.44966661766761*^9, 3.4496667191976104`*^9}, { 3.4496670721736107`*^9, 3.4496671530806103`*^9}, {3.4496671934066105`*^9, 3.4496672299396105`*^9}, {3.4496672617306104`*^9, 3.4496672711456103`*^9}, {3.4496816313456106`*^9, 3.44968180987761*^9}, { 3.4496818439666104`*^9, 3.4496818799526105`*^9}, {3.4496821767756104`*^9, 3.4496821839706106`*^9}, {3.44968232840361*^9, 3.4496823290736103`*^9}, { 3.4498143212712107`*^9, 3.4498143301862106`*^9}, {3.44981436519921*^9, 3.4498144248922105`*^9}, {3.4498144728582106`*^9, 3.4498144739222107`*^9}, {3.4498149463362103`*^9, 3.4498149473582106`*^9}, {3.4498149901082106`*^9, 3.44981499065221*^9}, { 3.4498152305592103`*^9, 3.4498152311982107`*^9}, {3.4498154928562107`*^9, 3.4498155239332104`*^9}, {3.4498156991892104`*^9, 3.4498156996032104`*^9}, 3.44981680006021*^9, {3.4498168320592103`*^9, 3.44981686252921*^9}, { 3.4498274517962103`*^9, 3.44982749247021*^9}, {3.4498275306672106`*^9, 3.44982755070621*^9}, {3.4498280168892107`*^9, 3.4498280326372104`*^9}, { 3.4498280967682104`*^9, 3.4498281031912107`*^9}}], Cell[BoxData[ RowBox[{"modulePlot", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["4", "\[Pi]"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "50"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"k", "-", "1"}]], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "-", "1"}], ")"}], " ", "#"}], "]"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "-", "1"}], ")"}], "2"]]}]}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[Pi]"}], "-", "1"}], ",", RowBox[{ RowBox[{"4", " ", "\[Pi]"}], "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "4"}], ",", "4", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", RowBox[{"\[Pi]", "/", "2"}]}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "0.1"}], "-", RowBox[{"Pi", "/", "2"}]}], ",", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "+", "0.1"}]}], "}"}], ",", "300", ",", RowBox[{"{", "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.44968248687261*^9, 3.4496825406386104`*^9}, { 3.4496825806846104`*^9, 3.4496825816996107`*^9}, {3.4496826171776104`*^9, 3.4496826408666105`*^9}, 3.4497313595242105`*^9, 3.4497314683772106`*^9, { 3.4497564600542107`*^9, 3.4497564612782106`*^9}, {3.4498154769052105`*^9, 3.4498154859612103`*^9}}], Cell[BoxData[ RowBox[{"modulePlot", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["4", "\[Pi]"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "100"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"k", "-", "1"}]], " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "-", "1"}], ")"}], " ", "#"}], "]"}]}], RowBox[{ RowBox[{"2", " ", "k"}], "-", "1"}]]}]}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[Pi]"}], "-", "1"}], ",", RowBox[{ RowBox[{"4", " ", "\[Pi]"}], "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "4"}], ",", "4", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"k", ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "0.1"}], "-", RowBox[{"Pi", "/", "2"}]}], ",", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "+", "0.1"}]}], "}"}], ",", "300", ",", RowBox[{"{", "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.44973137508821*^9, 3.44973139913321*^9}, { 3.4497314356682105`*^9, 3.4497314362602105`*^9}, {3.44975646668521*^9, 3.4497564677092104`*^9}}], Cell[BoxData[{ RowBox[{ SubscriptBox["\[PartialD]", "x"], FractionBox[ RowBox[{"4", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "4"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"k", "-", "1"}]], " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "-", "1"}], ")"}], " ", "x"}], "]"}]}], RowBox[{ RowBox[{"2", " ", "k"}], "-", "1"}]]}]}], "\[Pi]"]}], "\n", RowBox[{ RowBox[{"f", "=", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", RowBox[{"HeavisideTheta", "[", RowBox[{ RowBox[{"-", "#1"}], "+", FractionBox["\[Pi]", "2"]}], "]"}], " ", RowBox[{"HeavisideTheta", "[", RowBox[{"#1", "+", FractionBox["\[Pi]", "2"]}], "]"}]}]}], "&"}]}], ";"}], "\n", RowBox[{"modulePlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", RowBox[{"HeavisideTheta", "[", RowBox[{ RowBox[{"-", "#1"}], "+", FractionBox["\[Pi]", "2"]}], "]"}], " ", RowBox[{"HeavisideTheta", "[", RowBox[{"#1", "+", FractionBox["\[Pi]", "2"]}], "]"}]}]}], "&"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "\[Pi]"}], "-", "1"}], ",", RowBox[{ RowBox[{"4", " ", "\[Pi]"}], "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "4"}], ",", "4", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"k", ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "0.1"}], "-", FractionBox["\[Pi]", "2"]}], ",", RowBox[{ FractionBox["\[Pi]", "2"], "+", "0.1"}]}], "}"}], ",", "300", ",", RowBox[{"{", "}"}]}], "]"}], "\n", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"f", "[", "x", "]"}]}], "\n", RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox["x", "2"], "2"]}]]}], "\n", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"a", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", RowBox[{"-", "\[Infinity]"}]}], "\[Infinity]"], RowBox[{"g", "[", RowBox[{"h", "+", RowBox[{"k", " ", "a"}]}], "]"}]}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", RowBox[{"-", "\[Infinity]"}]}], "\[Infinity]"], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{ "\[ImaginaryI]", " ", "n", " ", "h", " ", "2", " ", "\[Pi]"}], "a"]}]], " ", RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"g", "[", "x", "]"}], " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ "\[ImaginaryI]", " ", "n", " ", "h", " ", "2", " ", "\[Pi]", " ", "x"}], "a"]]}], "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}], ",", RowBox[{"a", "\[Element]", "\[DoubleStruckCapitalR]"}]}], "]"}], "\n", RowBox[{"Simplify", "[", RowBox[{"N", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Abs", "[", FractionBox["a", "h"], "]"}], " ", RowBox[{"EllipticTheta", "[", RowBox[{"3", ",", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "a"}], "2"], ",", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox["a", "2"], "2"]}]]}], "]"}]}], "-", RowBox[{ SqrtBox[ RowBox[{"2", " ", "\[ExponentialE]", " ", "\[Pi]"}]], " ", RowBox[{"EllipticTheta", "[", RowBox[{"3", ",", FractionBox[ RowBox[{"h", " ", "\[Pi]"}], "a"], ",", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[Pi]", "2"]}], SuperscriptBox["a", "2"]]}]]}], "]"}], " ", RowBox[{"Sign", "[", "a", "]"}]}]}], ",", RowBox[{"{", RowBox[{"a", ",", "1", ",", "4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"h", ",", "1", ",", "2", ",", "0.5"}], "}"}]}], "]"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.4497447672492104`*^9, 3.4497448553552103`*^9}, { 3.4497449061602106`*^9, 3.4497449244312105`*^9}, {3.4497450366012106`*^9, 3.4497450486492105`*^9}, {3.4497457141782103`*^9, 3.44974574308121*^9}, { 3.4497501883942103`*^9, 3.4497502199782104`*^9}, 3.4497504400462103`*^9, { 3.4497556585632105`*^9, 3.4497558713542104`*^9}, {3.4497560313672104`*^9, 3.4497560453482103`*^9}, {3.44975647756721*^9, 3.44975647893521*^9}, { 3.4497582986782103`*^9, 3.44975868610021*^9}, {3.4497587896302104`*^9, 3.4497587931812105`*^9}, {3.4497588423872104`*^9, 3.4497589287412105`*^9}, {3.4497624710382104`*^9, 3.44976247381021*^9}, { 3.4497625064532104`*^9, 3.4497626839142103`*^9}, {3.4497627554382105`*^9, 3.44976275577221*^9}, {3.4497628404522104`*^9, 3.4497628407032104`*^9}, { 3.44976289281721*^9, 3.4497629192892103`*^9}, {3.4497630821582108`*^9, 3.4497630833292103`*^9}, {3.4497631237882104`*^9, 3.4497631249032106`*^9}, {3.4497632134192104`*^9, 3.4497632416352105`*^9}, {3.4497632843472104`*^9, 3.4497632893682103`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Problem 16.6 A computation", "Section", CellChangeTimes->{ 3.4475141080094213`*^9, {3.4476740771846266`*^9, 3.447674092759627*^9}, { 3.447674151796627*^9, 3.447674165003627*^9}, {3.447686155190627*^9, 3.4476861690856266`*^9}, {3.447743164755047*^9, 3.4477431651790466`*^9}, { 3.4494876626506166`*^9, 3.449487665306617*^9}, {3.449488599573617*^9, 3.449488600269617*^9}, {3.450163387681425*^9, 3.450163389225425*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"FullSimplify", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], FractionBox[ RowBox[{"Cos", "[", FractionBox["x", "2"], "]"}], RowBox[{"Sinc", "[", FractionBox["x", "2"], "]"}]]}], "]"}], "\n", RowBox[{"FullSimplify", "[", RowBox[{"%", "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{"x", "-", RowBox[{"Sin", "[", "x", "]"}]}], RowBox[{"4", " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["x", "2"], "]"}], "2"]}]]}]}], "]"}]}], "Input", CellChangeTimes->{{3.4494869821786165`*^9, 3.4494870218886166`*^9}, { 3.449488624549617*^9, 3.449488685377617*^9}, 3.4494887525676165`*^9}], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], "-", "x"}], RowBox[{"4", " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox["x", "2"], "]"}], "2"]}]], ",", RowBox[{"x", "\[Rule]", "0"}]}], "]"}]], "Input", CellChangeTimes->{{3.4494780785276165`*^9, 3.449478106541617*^9}}], Cell[BoxData[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"n", " ", RowBox[{"Cos", "[", RowBox[{"n", " ", "\[Pi]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", "n"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"s", "[", "n_", "]"}], ":=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], " ", "k"}]}]}], "\n", RowBox[{"Table", "[", RowBox[{ RowBox[{"s", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "10"}], "}"}]}], "]"}], "\n", RowBox[{ RowBox[{"N", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Evaluate", "[", FractionBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], RowBox[{"n", "+", "1"}]], RowBox[{"s", "[", "k", "]"}]}], "n"], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "200"}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{"%", ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "20"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"-", "0.5"}], "}"}]}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.4501633762654247`*^9, 3.4501633830354247`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"s", "[", "n_", "]"}], ":=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"a", "[", "k", "]"}]}]}], "\n", RowBox[{ RowBox[{"c", "[", "n_", "]"}], ":=", FractionBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"s", "[", "k", "]"}]}], "n"]}], "\n", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], RowBox[{ RowBox[{"a", "[", "n", "]"}], " ", SuperscriptBox["r", "n"]}]}], "\n", RowBox[{"q", "=", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], RowBox[{ SuperscriptBox["r", "n"], " ", RowBox[{"a", "[", "n", "]"}]}]}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], "2"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], RowBox[{"n", " ", RowBox[{"c", "[", "n", "]"}], " ", SuperscriptBox["r", "n"]}]}]}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.450169772099425*^9, 3.4501698471044245`*^9}, { 3.450169881167425*^9, 3.450170033695425*^9}, {3.4501701002274246`*^9, 3.450170125924425*^9}, {3.4501701758714247`*^9, 3.4501701911094246`*^9}, { 3.4501721749724245`*^9, 3.4501721781114244`*^9}, 3.450172216271425*^9, 3.450172513849425*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"a", "[", "n_", "]"}], ":=", FractionBox["1", SuperscriptBox["n", "2"]]}], "\n", RowBox[{ RowBox[{"r", "=", FractionBox["1", "2"]}], ";"}], "\n", RowBox[{"c", "[", "n", "]"}], "\n", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], RowBox[{ SuperscriptBox["r", "n"], " ", RowBox[{"a", "[", "n", "]"}]}]}], "\n", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], "2"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], RowBox[{"n", " ", RowBox[{"c", "[", "n", "]"}], " ", SuperscriptBox["r", "n"]}]}]}], "\n", "q", "\n", RowBox[{"Clear", "[", "a", "]"}]}], "Input", CellChangeTimes->{{3.450170049348425*^9, 3.450170092659425*^9}, { 3.4501701318514247`*^9, 3.4501701475764246`*^9}, {3.450170220356425*^9, 3.450170254570425*^9}, {3.4501702961614246`*^9, 3.450170398082425*^9}, { 3.4501704510314245`*^9, 3.4501705061354246`*^9}, 3.4501705617204247`*^9, { 3.450170596103425*^9, 3.4501705963834248`*^9}, {3.450170629077425*^9, 3.4501706340694246`*^9}, {3.450170715600425*^9, 3.450170716304425*^9}, { 3.4501707758214245`*^9, 3.450170812014425*^9}, {3.450172172184425*^9, 3.450172216271425*^9}, {3.450172287126425*^9, 3.450172291174425*^9}, 3.450172513849425*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "n_", "]"}], ":=", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "n"}], "n"]}], " "}], "\[IndentingNewLine]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], RowBox[{ SuperscriptBox["r", "n"], " ", RowBox[{ "a", "[", "n", "]"}]}]}], "\[IndentingNewLine]", "q", "\[IndentingNewLine]", RowBox[{"Clear", "[", "a", "]"}]}], "Input", CellChangeTimes->{{3.450170412961425*^9, 3.450170432728425*^9}, { 3.450170579863425*^9, 3.4501705821214247`*^9}, {3.450170841929425*^9, 3.450170844427425*^9}, 3.450172216271425*^9, 3.450172513849425*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"a", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "n"}], " ", RowBox[{"n", "^", "2"}]}]}], "\[IndentingNewLine]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], RowBox[{ SuperscriptBox["r", "n"], " ", RowBox[{ "a", "[", "n", "]"}]}]}], "\[IndentingNewLine]", "q", "\[IndentingNewLine]", RowBox[{"Clear", "[", "a", "]"}]}], "Input", CellChangeTimes->{{3.450170517626425*^9, 3.450170537177425*^9}, { 3.450170852655425*^9, 3.450170899309425*^9}, 3.450172216271425*^9, 3.450172513849425*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "n_", "]"}], ":=", RowBox[{"n", "^", "3"}]}], " "}], "\[IndentingNewLine]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], RowBox[{ SuperscriptBox["r", "n"], " ", RowBox[{ "a", "[", "n", "]"}]}]}], "\[IndentingNewLine]", "q", "\[IndentingNewLine]", RowBox[{"Clear", "[", "a", "]"}]}], "Input", CellChangeTimes->{{3.450172374217425*^9, 3.450172383256425*^9}, 3.4501724739844246`*^9, 3.450172513849425*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Problem 16.8 A computation", "Section", CellChangeTimes->{ 3.4475141080094213`*^9, {3.4476740771846266`*^9, 3.447674092759627*^9}, { 3.447674151796627*^9, 3.447674165003627*^9}, {3.447686155190627*^9, 3.4476861690856266`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], ",", RowBox[{"r", " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], ",", FractionBox[ RowBox[{"1", "-", SuperscriptBox["r", "2"]}], RowBox[{"1", "-", RowBox[{"2", "r", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", SuperscriptBox["r", "2"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", RowBox[{"{", RowBox[{"21", ",", "100"}], "}"}]}], ",", RowBox[{"Shading", "\[Rule]", "False"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}], ",", "1"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ FractionBox[ RowBox[{"1", "-", SuperscriptBox["r", "2"]}], RowBox[{"1", "-", RowBox[{"2", "r", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", SuperscriptBox["r", "2"]}]], "/.", RowBox[{"r", "\[Rule]", "0.9"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"-", "0.1"}], ",", RowBox[{ RowBox[{"2", "\[Pi]"}], "+", "0.8"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotPoints", "\[Rule]", "70"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"Pi", ",", "Pi"}], "}"}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.398494673015625*^9, 3.39849468546875*^9}, { 3.398494743234375*^9, 3.398494754546875*^9}, {3.398494900734375*^9, 3.39849490553125*^9}, {3.447686264624627*^9, 3.4476862748996267`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Problem 16.16 See Solutions", "Section", CellChangeTimes->{{3.4476765086626267`*^9, 3.4476765256366267`*^9}, { 3.4494877086956167`*^9, 3.4494877094876165`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " is unable to simplify the integral at the end." }], "Text", Background->RGBColor[0.988235, 0.996078, 0.839216]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"s", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ RowBox[{"\[Pi]", FractionBox[ RowBox[{"Cosh", "[", RowBox[{"x", "+", "\[Pi]"}], "]"}], RowBox[{"Sinh", "[", "\[Pi]", "]"}]]}], "-", "1"}], ")"}]}], "/;", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "\[Pi]"}], "<", "x", "<", "0"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"s", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ RowBox[{"\[Pi]", FractionBox[ RowBox[{"Cosh", "[", RowBox[{"x", "-", "\[Pi]"}], "]"}], RowBox[{"Sinh", "[", "\[Pi]", "]"}]]}], "-", "1"}], ")"}]}], "/;", RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", RowBox[{"2", "\[Pi]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"s", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ RowBox[{"\[Pi]", FractionBox[ RowBox[{"Cosh", "[", RowBox[{"x", "-", RowBox[{"3", "\[Pi]"}]}], "]"}], RowBox[{"Sinh", "[", "\[Pi]", "]"}]]}], "-", "1"}], ")"}]}], "/;", RowBox[{ RowBox[{"2", "\[Pi]"}], "<", "x", "\[LessEqual]", RowBox[{"4", "\[Pi]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"s", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ RowBox[{"\[Pi]", FractionBox[ RowBox[{"Cosh", "[", RowBox[{"x", "-", RowBox[{"5", "\[Pi]"}]}], "]"}], RowBox[{"Sinh", "[", "\[Pi]", "]"}]]}], "-", "1"}], ")"}]}], "/;", RowBox[{ RowBox[{"4", "\[Pi]"}], "<", "x", "\[LessEqual]", RowBox[{"6", "\[Pi]"}]}]}]}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"s", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{ RowBox[{"4", "\[Pi]"}], "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", "\[Pi]"}], ",", RowBox[{"4", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "2000"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "8."}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", RowBox[{"(", RowBox[{"4", "Pi"}], ")"}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"s", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{ RowBox[{"4", "\[Pi]"}], "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", "\[Pi]"}], ",", RowBox[{"4", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "2000"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "8."}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"s", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{ RowBox[{"4", "\[Pi]"}], "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", "\[Pi]"}], ",", RowBox[{"4", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "2000"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10."}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"s", "[", "0", "]"}], ",", "16"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "[", "x_", "]"}], ":=", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ RowBox[{"\[Pi]", FractionBox[ RowBox[{"Cosh", "[", RowBox[{"x", "-", "\[Pi]"}], "]"}], RowBox[{"Sinh", "[", "\[Pi]", "]"}]]}], "-", "1"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"t", "[", "x", "]"}], "-", RowBox[{ RowBox[{"t", "''"}], "[", "x", "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"t", "'"}], "[", "x", "]"}], ",", RowBox[{"x", "\[Rule]", RowBox[{"2", "\[Pi]"}]}], ",", RowBox[{"Direction", "\[Rule]", RowBox[{"-", "1"}]}]}], "]"}], "-", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"t", "'"}], "[", "x", "]"}], ",", RowBox[{"x", "\[Rule]", "0"}], ",", RowBox[{"Direction", "\[Rule]", "1"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"2", RowBox[{"N", "[", RowBox[{"180", RowBox[{ RowBox[{"ArcTan", "[", RowBox[{"Pi", "/", "2"}], "]"}], "/", "Pi"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"i", " ", "x", " ", "\[Xi]"}]], FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], "\[Pi]i", " ", "k", " ", "\[Xi]"}]], RowBox[{"1", "+", SuperscriptBox["\[Xi]", "2"]}]]}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Im", "[", "x", "]"}], "\[Equal]", "0"}], ",", RowBox[{"Element", "[", RowBox[{"k", ",", "Integers"}], "]"}], ",", RowBox[{"k", "\[GreaterEqual]", "0"}]}], "}"}]}]}], "]"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"2", "\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"Residue", "[", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", RowBox[{"(", RowBox[{"x", "-", RowBox[{"2", "\[Pi]", " ", "k"}]}], ")"}], "\[Xi]"}]], RowBox[{"1", "+", SuperscriptBox["\[Xi]", "2"]}]], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "\[ImaginaryI]"}], "}"}]}], "]"}]}], "\n", RowBox[{ RowBox[{"-", "2"}], "\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"Residue", "[", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", RowBox[{"(", RowBox[{"x", "-", RowBox[{"2", "\[Pi]", " ", "k"}]}], ")"}], "\[Xi]"}]], RowBox[{"1", "+", SuperscriptBox["\[Xi]", "2"]}]], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.4492026426256104`*^9, 3.4492026434336104`*^9}, { 3.4511199643334303`*^9, 3.45111999173943*^9}, {3.45112010607343*^9, 3.45112014308243*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"s", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "1"}], "/", "2"}], ",", RowBox[{ RowBox[{"4", "\[Pi]"}], "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", "\[Pi]"}], ",", RowBox[{"4", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", "2000"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "10."}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]], "Input", CellChangeTimes->{{3.45112034197643*^9, 3.45112034678343*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Problem 16.19. (i) A computation", "Section", CellChangeTimes->{{3.4476765086626267`*^9, 3.4476765256366267`*^9}, { 3.4476858113946266`*^9, 3.447685837056627*^9}, {3.4494877409586167`*^9, 3.4494877417186165`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Sin", "[", RowBox[{"Pi", "/", "4"}], "]"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"2", "+", RowBox[{"4", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"16", RowBox[{"n", "^", "2"}]}], "-", "1"}], ")"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "Infinity"}], "}"}]}], "]"}]}]}], "\[Equal]", RowBox[{"Pi", "/", RowBox[{"Sqrt", "[", "2", "]"}]}]}], "]"}]}], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Problem 16.20. (v) A computation", "Section", CellChangeTimes->{{3.4476765086626267`*^9, 3.4476765256366267`*^9}, { 3.4476858113946266`*^9, 3.447685837056627*^9}, {3.447686433358627*^9, 3.4476864391586266`*^9}, {3.449487747085617*^9, 3.449487748861617*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", RowBox[{"z", "^", "2"}]}], ")"}]}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"n", " ", "x"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"z", "^", "2"}], "-", RowBox[{"n", "^", "2"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "Infinity"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Im", "[", "z", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"Im", "[", "x", "]"}], "\[Equal]", "0"}]}], "}"}]}], "]"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Problem 16.22 A computation", "Section", CellChangeTimes->{{3.4476765086626267`*^9, 3.4476765256366267`*^9}, { 3.4476858113946266`*^9, 3.447685837056627*^9}, {3.447686433358627*^9, 3.4476864391586266`*^9}, {3.449487747085617*^9, 3.449487748861617*^9}, { 3.449504234319617*^9, 3.449504236783617*^9}, {3.450091189782425*^9, 3.450091190966425*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"f", "=", RowBox[{ RowBox[{ RowBox[{"Composition", "[", RowBox[{"ArcTan", ",", "Tan"}], "]"}], "[", FractionBox["#1", "2"], "]"}], "&"}]}], "\n", RowBox[{"f", "[", "x", "]"}], "\n", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "\[Pi]"}], "-", "1"}], ",", RowBox[{ RowBox[{"3", " ", "\[Pi]"}], "+", "1"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["\[Pi]", "2"]}], ",", FractionBox["\[Pi]", "2"]}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["\[Pi]", "2"]}], "-", "0.2"}], ",", RowBox[{ FractionBox["\[Pi]", "2"], "+", "0.2"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}], "\n", RowBox[{"FullSimplify", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"f", "[", "x", "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4494969328296165`*^9, 3.4494969644876165`*^9}, { 3.449497001733617*^9, 3.449497028740617*^9}, {3.449497212585617*^9, 3.449497377448617*^9}, {3.449497417094617*^9, 3.4494974984586167`*^9}, { 3.449497552863617*^9, 3.449497600420617*^9}, {3.449497682696617*^9, 3.449497684880617*^9}, {3.4494977508366165`*^9, 3.449497792698617*^9}, 3.449504303898617*^9, {3.449504334507617*^9, 3.449504338989617*^9}, 3.450091223629425*^9}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ FractionBox["x", "2"], "-", RowBox[{"\[Pi]", " ", RowBox[{"Floor", "[", FractionBox[ RowBox[{"x", "+", "\[Pi]"}], RowBox[{"2", " ", "\[Pi]"}]], "]"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "3"}], " ", "\[Pi]"}], ",", RowBox[{"3", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["\[Pi]", "2"]}], ",", FractionBox["\[Pi]", "2"]}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]], "Input", CellChangeTimes->{{3.449498368135617*^9, 3.449498376297617*^9}, { 3.449498419260617*^9, 3.449498519351617*^9}, {3.4494985880116167`*^9, 3.449498644795617*^9}, {3.449498676302617*^9, 3.4494986926056166`*^9}, { 3.4494988057676167`*^9, 3.449498809918617*^9}, {3.4494988520846167`*^9, 3.449498891962617*^9}, {3.4494989382156167`*^9, 3.4494989587586164`*^9}, { 3.449499059472617*^9, 3.449499060104617*^9}, {3.4494990995136166`*^9, 3.4494991129586167`*^9}, {3.4494991452846165`*^9, 3.4494991586196165`*^9}, {3.4494992092186165`*^9, 3.449499221233617*^9}, { 3.4494994523406167`*^9, 3.4494994658436165`*^9}, 3.449504303898617*^9, 3.450091223629425*^9}], Cell[BoxData[{ RowBox[{"f", "=", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "+", "1"}]], " ", RowBox[{"Sin", "[", RowBox[{"n", " ", "#1"}], "]"}]}], "n"]}], "&"}]}], "\n", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"f", "[", "x", "]"}], "]"}], ",", RowBox[{"x", "\[Element]", "\[DoubleStruckCapitalR]"}]}], "]"}], "\n", RowBox[{"Plot", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "3"}], " ", "\[Pi]"}], ",", RowBox[{"3", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["\[Pi]", "2"]}], ",", FractionBox["\[Pi]", "2"]}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}], "\n", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"f", "[", "x", "]"}]}], "\n", RowBox[{"FullSimplify", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"f", "[", "x", "]"}]}], "]"}], "\n", RowBox[{"Plot", "[", RowBox[{ FractionBox[ RowBox[{"Log", "[", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "x"}]], "]"}], RowBox[{"2", " ", "\[ImaginaryI]"}]], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "3"}], " ", "\[Pi]"}], ",", RowBox[{"3", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["\[Pi]", "2"]}], ",", FractionBox["\[Pi]", "2"]}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{"f", "[", RowBox[{"Pi", "/", "4"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.4495054498836164`*^9, 3.449505465575617*^9}, { 3.4495086388796167`*^9, 3.4495087210186167`*^9}, {3.449508761056617*^9, 3.449508807347617*^9}, {3.449508841380617*^9, 3.4495088439326167`*^9}, { 3.4495555797750125`*^9, 3.4495556707890124`*^9}, {3.4495562865540123`*^9, 3.4495562931780124`*^9}, {3.4495572417220125`*^9, 3.4495573168660126`*^9}, {3.4495575941160126`*^9, 3.4495576393900127`*^9}, {3.4495580585990124`*^9, 3.449558185075012*^9}, { 3.449558437049012*^9, 3.4495584374600124`*^9}, {3.4495588499890127`*^9, 3.449558917464012*^9}, 3.4495591271940126`*^9, {3.4495605945830126`*^9, 3.449560634247012*^9}}], Cell[BoxData[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], FractionBox["1", RowBox[{ RowBox[{"4", " ", SuperscriptBox["n", "2"]}], "-", "1"}]]}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "1"}]], RowBox[{ RowBox[{"4", " ", SuperscriptBox["n", "2"]}], "-", "1"}]]}], "]"}], "\[IndentingNewLine]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], FractionBox["1", RowBox[{" ", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "n"}], "-", "2"}], ")"}], "2"], "-", "1"}]}]]}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ FractionBox["2", "\[Pi]"], "+", RowBox[{ FractionBox["4", "\[Pi]"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "1"}]], " ", RowBox[{"Cos", "[", RowBox[{"2", " ", "n", " ", "x"}], "]"}]}], RowBox[{ RowBox[{"4", " ", SuperscriptBox["n", "2"]}], "-", "1"}]]}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "3"}], " ", "\[Pi]"}], ",", RowBox[{"3", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ FractionBox["4", "\[Pi]"], "-", "1", "+", RowBox[{ FractionBox["8", "\[Pi]"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "1"}]], SuperscriptBox[ RowBox[{"Cos", "[", RowBox[{"n", " ", "x"}], "]"}], "2"]}], RowBox[{ RowBox[{"4", " ", SuperscriptBox["n", "2"]}], "-", "1"}]]}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "3"}], " ", "\[Pi]"}], ",", RowBox[{"3", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ FractionBox["2", "\[Pi]"], "-", RowBox[{ FractionBox["4", "\[Pi]"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], FractionBox[ RowBox[{"Cos", "[", RowBox[{"2", " ", "n", " ", "x"}], "]"}], RowBox[{ RowBox[{"4", " ", SuperscriptBox["n", "2"]}], "-", "1"}]]}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "3"}], " ", "\[Pi]"}], ",", RowBox[{"3", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ FractionBox["8", "\[Pi]"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], FractionBox[ SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"n", " ", "x"}], "]"}], "2"], RowBox[{ RowBox[{"4", " ", SuperscriptBox["n", "2"]}], "-", "1"}]]}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "\[Pi]"}], "-", "0.4"}], ",", RowBox[{ RowBox[{"2", " ", "\[Pi]"}], "+", "0.4"}]}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12."}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ FractionBox["8", "\[Pi]"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], FractionBox[ RowBox[{"n", " ", RowBox[{"Sin", "[", RowBox[{"2", "n", " ", "x"}], "]"}]}], RowBox[{ RowBox[{"4", " ", SuperscriptBox["n", "2"]}], "-", "1"}]]}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]"}], "-", "0.4"}], ",", RowBox[{ RowBox[{"2", " ", "\[Pi]"}], "+", "0.4"}]}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12."}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"k", " ", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"4", " ", SuperscriptBox["n", "2"]}], "-", "1"}]], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"2", " ", "n"}], "-", "1"}]], "-", FractionBox["1", RowBox[{ RowBox[{"2", " ", "n"}], "+", "1"}]]}], ")"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"FourierCoefficient", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Sin", "[", "x", "]"}], "]"}], ",", "x", ",", "n"}], "]"}]}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.4500086947348156`*^9, 3.450008876796816*^9}, 3.4500094173668156`*^9, {3.450010419296816*^9, 3.4500104392218156`*^9}, 3.4500160143458157`*^9, {3.4500160750268154`*^9, 3.4500161114648156`*^9}, { 3.450020163865*^9, 3.450020174281*^9}, {3.450021051499*^9, 3.450021086407*^9}, {3.450021117174*^9, 3.4500211180369997`*^9}, { 3.450022187609*^9, 3.4500221892019997`*^9}, 3.450022448915*^9, { 3.450023621894*^9, 3.450023684861*^9}, {3.450028637834*^9, 3.450028747363*^9}, {3.450028801477*^9, 3.45002885135*^9}, { 3.450029522039*^9, 3.4500295404779997`*^9}, {3.450029980958*^9, 3.450029988844*^9}, {3.450086678426425*^9, 3.450086690125425*^9}, { 3.4500934454184246`*^9, 3.450093472455425*^9}, {3.4500935372364244`*^9, 3.450093578688425*^9}, {3.4504190467492228`*^9, 3.4504190552022223`*^9}, { 3.4504201129332223`*^9, 3.4504201267322226`*^9}, {3.4504202019532223`*^9, 3.450420301330222*^9}, {3.4504204299202223`*^9, 3.450420455811222*^9}}], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " is not very illuminating." }], "Text", CellChangeTimes->{{3.447676840627627*^9, 3.447676859089627*^9}, { 3.44879775130842*^9, 3.44879776629142*^9}, {3.4500163292088156`*^9, 3.4500163490078154`*^9}}, Background->RGBColor[0.988235, 0.996078, 0.839216]], Cell[BoxData[{ RowBox[{"FullSimplify", "[", RowBox[{ FractionBox["8", "\[Pi]"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], FractionBox[ SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"n", " ", "x"}], "]"}], "2"], RowBox[{ RowBox[{"4", " ", SuperscriptBox["n", "2"]}], "-", "1"}]]}]}], "]"}], "\n", RowBox[{"Plot", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{ SubscriptBox["\[PartialD]", "x"], FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"ArcTanh", "[", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "x"}]], "]"}], "-", RowBox[{"ArcTanh", "[", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "x"}]], "]"}]}], ")"}]}], "\[Pi]"]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"ArcTanh", "[", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "x"}]], "]"}], "-", RowBox[{"ArcTanh", "[", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "x"}]], "]"}]}], ")"}]}], "\[Pi]"], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{ FractionBox["2", "\[Pi]"], "+", RowBox[{ FractionBox["4", "\[Pi]"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "1"}]], " ", RowBox[{"Cos", "[", RowBox[{"n", " ", "x"}], "]"}]}], RowBox[{ RowBox[{"4", " ", SuperscriptBox["n", "2"]}], "-", "1"}]]}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.4500164377758155`*^9, 3.4500164429568157`*^9}, { 3.4500164826728153`*^9, 3.450016488513816*^9}, {3.4500165259228153`*^9, 3.4500165572718153`*^9}, {3.4500167610508156`*^9, 3.4500167651898155`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Problem 16.23 A computation", "Section", CellChangeTimes->{{3.4476765086626267`*^9, 3.4476765256366267`*^9}, { 3.4476858113946266`*^9, 3.447685837056627*^9}, {3.447686433358627*^9, 3.4476864391586266`*^9}, {3.4476882124416265`*^9, 3.4476882159856267`*^9}, { 3.4494877555016165`*^9, 3.449487756917617*^9}, {3.4500159576148157`*^9, 3.4500159585908155`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"\[Alpha]_", ",", "\[Lambda]_"}], "]"}], "[", "x", "]"}], ":=", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Lambda]", "\[Alpha]"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Lambda]"}], " ", "x"}]], " ", SuperscriptBox["x", RowBox[{"\[Alpha]", "-", "1"}]]}], RowBox[{"Gamma", "[", "\[Alpha]", "]"}]], RowBox[{"UnitStep", "[", "x", "]"}]}]}], "\[IndentingNewLine]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"5", ",", "7"}], "]"}], "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "\[IndentingNewLine]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{"x", " ", RowBox[{ RowBox[{"f", "[", RowBox[{"5", ",", "7"}], "]"}], "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "\[IndentingNewLine]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SuperscriptBox["x", "2"], " ", RowBox[{ RowBox[{"f", "[", RowBox[{"5", ",", "7"}], "]"}], "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "\[IndentingNewLine]", RowBox[{"PDF", "[", RowBox[{ RowBox[{"GammaDistribution", "[", RowBox[{"\[Alpha]", ",", FractionBox["1", "\[Lambda]"]}], "]"}], ",", "x"}], "]"}], "\[IndentingNewLine]", RowBox[{"Mean", "[", RowBox[{"GammaDistribution", "[", RowBox[{"\[Alpha]", ",", FractionBox["1", "\[Lambda]"]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Variance", "[", RowBox[{"GammaDistribution", "[", RowBox[{"\[Alpha]", ",", FractionBox["1", "\[Lambda]"]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "5"], " ", RowBox[{"PDF", "[", RowBox[{ RowBox[{"GammaDistribution", "[", RowBox[{"\[Alpha]", ",", FractionBox["1", "\[Lambda]"]}], "]"}], ",", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"\[Alpha]", ">", "0"}], "&&", RowBox[{"\[Lambda]", ">", "0"}]}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.396105062109375*^9, 3.39610526465625*^9}, { 3.39610529559375*^9, 3.39610537303125*^9}, {3.3961054215*^9, 3.396105433296875*^9}, {3.396105466390625*^9, 3.39610564853125*^9}, { 3.39610587365625*^9, 3.396105915125*^9}, {3.3961059628125*^9, 3.396105979859375*^9}, {3.396106028921875*^9, 3.39610603759375*^9}, { 3.396115575078125*^9, 3.39611565378125*^9}, {3.396171828484375*^9, 3.396171852390625*^9}, {3.447688140690627*^9, 3.4476881420506268`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["17.1 Appendix A computation", "Section", CellChangeTimes->{ 3.4475141058894215`*^9, {3.4476733120926266`*^9, 3.4476733293876266`*^9}, { 3.4476871100646267`*^9, 3.447687117535627*^9}, {3.447687159029627*^9, 3.447687175253627*^9}, {3.4476893332576265`*^9, 3.447689342704627*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Simplify", "[", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ SuperscriptBox["r", RowBox[{"n", "/", "2"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["r", "2"]}], ")"}], "l"]], RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["n", "2"], "-", "1"}], ",", RowBox[{"x", " ", "r"}]}], "]"}], RowBox[{"\[DifferentialD]", "r"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{",", RowBox[{"Assumptions", "->", RowBox[{"{", RowBox[{ RowBox[{"Element", "[", RowBox[{"n", ",", "Integers"}], "]"}], ",", RowBox[{"n", ">", "0"}], ",", RowBox[{"Element", "[", RowBox[{"l", ",", "Integers"}], "]"}], ",", RowBox[{"n", ">", "0"}]}], " "}]}]}], "*)"}]}]}], "Input", CellChangeTimes->{{3.4476893480966268`*^9, 3.447689366635627*^9}}], Cell[BoxData[{ RowBox[{"Series", "[", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{"l", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Series", "[", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"n", "+", FractionBox["1", "2"]}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.399872967734375*^9, 3.39987303428125*^9}, { 3.39987316834375*^9, 3.39987321996875*^9}, {3.399873508109375*^9, 3.3998735106875*^9}, {3.399873551734375*^9, 3.3998735521875*^9}}], Cell[BoxData[ RowBox[{"BesselK", "[", RowBox[{"0", ",", "0"}], "]"}]], "Input", CellChangeTimes->{{3.3999724411875*^9, 3.399972460203125*^9}, { 3.399972494296875*^9, 3.3999725463125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"coef", "[", "x_", "]"}], ":=", SuperscriptBox["x", RowBox[{"1", "-", "k"}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "[", "r_", "]"}], ":=", FractionBox[ SuperscriptBox["r", RowBox[{"n", "/", "2"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["r", "2"]}], ")"}], "k"]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bes", "[", "r_", "]"}], ":=", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["n", "2"], "-", "1"}], ",", " ", "r"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Jnt", "[", "x_", "]"}], ":=", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ RowBox[{"a", "[", "r", "]"}], " ", RowBox[{"bes", "[", RowBox[{"x", " ", "r"}], "]"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}]}], " ", "]"}], ",", RowBox[{"Assumptions", "->", RowBox[{"{", RowBox[{ RowBox[{"n", ">", "0"}], ",", RowBox[{"k", ">", FractionBox["n", "2"]}], ",", RowBox[{"x", ">", "0"}]}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Int", "[", "x_", "]"}], ":=", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"coef", "[", "x", "]"}], RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ RowBox[{"a", "[", "r", "]"}], " ", RowBox[{"bes", "[", RowBox[{"x", " ", "r"}], "]"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}]}], " ", "]"}]}], ",", RowBox[{"Assumptions", "->", RowBox[{"{", RowBox[{ RowBox[{"n", ">", "0"}], ",", RowBox[{"k", ">", FractionBox["n", "2"]}], ",", RowBox[{"x", ">", "0"}]}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Int", "[", "x", "]"}]}], "Input", CellChangeTimes->{{3.447689794707627*^9, 3.447689810435627*^9}}], Cell[BoxData[ RowBox[{"Jnt", "[", "x", "]"}]], "Input", CellChangeTimes->{{3.4476898622176266`*^9, 3.4476898725316267`*^9}}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Int", "[", "x", "]"}], ",", "x"}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "k"}], ")"}], SuperscriptBox["x", RowBox[{"-", "k"}]], " ", RowBox[{"Jnt", "[", "x", "]"}]}], "+", RowBox[{ SuperscriptBox["x", RowBox[{"1", "-", "k"}]], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Jnt", "[", "x", "]"}], ",", "x"}], "]"}]}]}]}], ",", RowBox[{"Assumptions", "->", RowBox[{"{", RowBox[{ RowBox[{"n", ">", "0"}], ",", RowBox[{"k", ">", FractionBox["n", "2"]}], ",", RowBox[{"x", ">", "0"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.400932555484375*^9, 3.40093256515625*^9}, { 3.400932718375*^9, 3.400932817390625*^9}, {3.400934428703125*^9, 3.400934436640625*^9}, {3.400934851328125*^9, 3.400934867296875*^9}, 3.400934917859375*^9}], Cell[BoxData[ RowBox[{ RowBox[{"D", "[", " ", RowBox[{ RowBox[{"bes", "[", "y", "]"}], ",", "y"}], "]"}], "/.", RowBox[{"{", RowBox[{"y", "->", RowBox[{"x", " ", "r"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.447689927744627*^9, 3.447689933263627*^9}}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "2"], RowBox[{"D", "[", RowBox[{ RowBox[{"Int", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"x", " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Int", "[", "x", "]"}], ",", "x"}], "]"}]}]}], "==", RowBox[{ RowBox[{"2", RowBox[{"(", RowBox[{"1", "-", "k"}], ")"}], SuperscriptBox["x", RowBox[{"1", "-", "k"}]], " ", RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", "[", "r", "]"}], RowBox[{"(", RowBox[{"x", " ", "r"}], ")"}], RowBox[{"D", "[", " ", RowBox[{ RowBox[{"bes", "[", "y", "]"}], ",", "y"}], "]"}]}], "/.", RowBox[{"{", RowBox[{"y", "->", RowBox[{"x", " ", "r"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}]}], " ", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["n", "2"], "-", "1"}], ")"}], "2"]}], ")"}], RowBox[{"Int", "[", "x", "]"}]}], "-", RowBox[{ SuperscriptBox["x", RowBox[{"1", "-", "k"}]], " ", RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ RowBox[{"a", "[", "r", "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"x", " ", "r"}], ")"}], "2"], RowBox[{"bes", "[", RowBox[{"x", " ", "r"}], "]"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}]}], " ", "]"}]}]}]} ], ",", RowBox[{"Assumptions", "->", RowBox[{"{", RowBox[{ RowBox[{"n", ">", "0"}], ",", RowBox[{"k", ">", FractionBox["n", "2"]}], ",", RowBox[{"x", ">", "0"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.400935371640625*^9, 3.400935386*^9}, { 3.4009354414375*^9, 3.400935514625*^9}, {3.400935548015625*^9, 3.40093555746875*^9}, {3.4009356125625*^9, 3.400935666375*^9}, { 3.4009357149375*^9, 3.400935871890625*^9}, {3.400935924328125*^9, 3.40093596428125*^9}, {3.40094311971875*^9, 3.400943171890625*^9}}], Cell[BoxData[{ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"r", " ", RowBox[{"int", "[", "r", "]"}]}], ",", "r"}], "]"}], "-", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ FractionBox["n", "2"], "+", "1", "-", RowBox[{"2", "k"}]}], ")"}], " ", SuperscriptBox["r", RowBox[{"n", "/", "2"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["r", "2"], "+", "1"}], ")"}], RowBox[{"-", "k"}]]}], "+", RowBox[{"2", "k", FractionBox[ SuperscriptBox["r", RowBox[{"n", "/", "2"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["r", "2"]}], ")"}], RowBox[{"k", "+", "1"}]]]}]}], ")"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Expand", "[", RowBox[{"Simplify", "[", RowBox[{"2", RowBox[{"(", RowBox[{"1", "-", "k"}], ")"}], RowBox[{"(", RowBox[{ FractionBox["n", "2"], "+", "1", "-", RowBox[{"2", "k"}]}], ")"}]}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.4476899637286267`*^9, 3.4476899688166265`*^9}}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], RowBox[{"(", RowBox[{"1", "-", "k"}], ")"}], RowBox[{"(", RowBox[{ FractionBox["n", "2"], "+", "1", "-", RowBox[{"2", "k"}]}], ")"}], RowBox[{"coef", "[", "x", "]"}], RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ RowBox[{"a", "[", "r", "]"}], " ", RowBox[{"bes", "[", RowBox[{"x", " ", "r"}], "]"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}]}], " ", "]"}]}], "-", RowBox[{"2", RowBox[{"(", RowBox[{"1", "-", "k"}], ")"}], "2", "k", " ", RowBox[{"coef", "[", "x", "]"}], RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ FractionBox[ RowBox[{"a", "[", "r", "]"}], RowBox[{"1", "+", SuperscriptBox["r", "2"]}]], " ", RowBox[{"bes", "[", RowBox[{"x", " ", "r"}], "]"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}]}], " ", "]"}]}], "-", RowBox[{ RowBox[{"coef", "[", "x", "]"}], RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ RowBox[{"a", "[", "r", "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"x", " ", "r"}], ")"}], "2"], " ", RowBox[{"bes", "[", RowBox[{"x", " ", "r"}], "]"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}]}], " ", "]"}]}]}], "==", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "-", RowBox[{"2", SuperscriptBox["k", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "2"}], ")"}], "k"}], "-", FractionBox[ SuperscriptBox["n", "2"], "2"], "+", "n", "-", "2"}], ")"}], RowBox[{"coef", "[", "x", "]"}], RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ RowBox[{"a", "[", "r", "]"}], " ", RowBox[{"bes", "[", RowBox[{"x", " ", "r"}], "]"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}]}], " ", "]"}]}]}], ",", RowBox[{"Assumptions", "->", RowBox[{"{", RowBox[{ RowBox[{"Element", "[", RowBox[{"k", ",", "Integers"}], "]"}], ",", RowBox[{"Element", "[", RowBox[{"n", ",", "Integers"}], "]"}], ",", RowBox[{"k", ">", FractionBox["n", "2"]}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.400928447671875*^9, 3.400928459625*^9}, { 3.400928518625*^9, 3.400928556421875*^9}, {3.400928592921875*^9, 3.40092864971875*^9}, {3.400928713671875*^9, 3.400928745484375*^9}, { 3.400928878953125*^9, 3.40092899784375*^9}, {3.400929152640625*^9, 3.400929170015625*^9}, {3.40092920178125*^9, 3.40092923765625*^9}, { 3.400929276171875*^9, 3.400929306171875*^9}}], Cell[BoxData[{ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "2"], RowBox[{"D", "[", RowBox[{ RowBox[{"BesselK", "[", RowBox[{"n", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"x", " ", RowBox[{"D", "[", RowBox[{ RowBox[{"BesselK", "[", RowBox[{"n", ",", "x"}], "]"}], ",", "x"}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["n", "2"], "+", SuperscriptBox["x", "2"]}], ")"}], RowBox[{"BesselK", "[", RowBox[{"n", ",", "x"}], "]"}]}]}], "==", "0"}], "]"}], "\[IndentingNewLine]", RowBox[{"BesselK", "[", RowBox[{ FractionBox["1", "2"], ",", "x"}], "]"}], "\[IndentingNewLine]", RowBox[{"BesselK", "[", RowBox[{"n", ",", "1"}], "]"}]}], "Input", CellChangeTimes->{{3.401088074046875*^9, 3.40108821325*^9}, { 3.401088280734375*^9, 3.40108829259375*^9}, {3.40108834378125*^9, 3.401088347609375*^9}, {3.4010883928125*^9, 3.40108841228125*^9}}], Cell[BoxData[{ RowBox[{"Together", "[", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], RowBox[{"(", FractionBox["\[Xi]", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[Xi]", "2"]}], ")"}], "\[Kappa]"]], ")"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"i1", "=", RowBox[{"Expand", "[", RowBox[{ RowBox[{ RowBox[{"Numerator", "[", "%", "]"}], RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[Xi]", "2"]}], ")"}]}], ",", "\[Xi]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"i1", "==", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "\[Kappa]"}]}], ")"}], SuperscriptBox["\[Xi]", "4"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "-", RowBox[{"2", "\[Kappa]"}]}], ")"}], " ", SuperscriptBox["\[Xi]", "2"]}], "+", "1"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Together", "[", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], " ", RowBox[{"(", RowBox[{"\[Xi]", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], RowBox[{"(", FractionBox["\[Xi]", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[Xi]", "2"]}], ")"}], "\[Kappa]"]], ")"}]}]}], ")"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"%", "==", FractionBox[ RowBox[{"1", "+", RowBox[{"2", RowBox[{"(", RowBox[{"1", "-", RowBox[{"4", "\[Kappa]"}]}], ")"}], SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", "\[Kappa]"}], "-", "1"}], ")"}], "2"], SuperscriptBox["\[Xi]", "4"]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[Xi]", "2"]}], ")"}], RowBox[{"\[Kappa]", "+", "2"}]]]}], "]"}], "\[IndentingNewLine]", RowBox[{"Together", "[", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"\[Xi]", ",", "\[Xi]"}]], RowBox[{"(", FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[Xi]", "2"]}], ")"}], "\[Kappa]"]], ")"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"i2", "=", RowBox[{"Expand", "[", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["m", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[Xi]", "2"]}], ")"}], "2"]}], "-", RowBox[{"2", "m", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "\[Kappa]"}]}], ")"}], SuperscriptBox["\[Xi]", "2"]}]}], ")"}], RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[Xi]", "2"]}], ")"}]}], "+", "1", "+", RowBox[{"2", RowBox[{"(", RowBox[{"1", "-", RowBox[{"4", "\[Kappa]"}]}], ")"}], SuperscriptBox["\[Xi]", "2"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", "\[Kappa]"}], "-", "1"}], ")"}], "2"], SuperscriptBox["\[Xi]", "4"]}]}], ",", "\[Xi]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"eq", "=", RowBox[{"Simplify", "[", RowBox[{"Expand", "[", RowBox[{ RowBox[{"i2", "+", RowBox[{"a", " ", "i1"}], "+", "b", "+", RowBox[{"c", " ", "2", " ", "\[Kappa]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "\[Kappa]"}], "+", "1"}], ")"}], SuperscriptBox["\[Xi]", "2"]}], "-", "1"}], ")"}]}]}], ",", "\[Xi]"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"eq1", "=", RowBox[{"Coefficient", "[", RowBox[{"eq", ",", SuperscriptBox["\[Xi]", "4"]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"eq2", "=", RowBox[{"Coefficient", "[", RowBox[{"eq", ",", SuperscriptBox["\[Xi]", "2"]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"eq3", "=", RowBox[{ SuperscriptBox["m", "2"], "+", "a", "+", "b", "-", RowBox[{"2", " ", "m"}], "-", RowBox[{"2", " ", "c", " ", "\[Kappa]"}], "+", "1"}]}], "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"eq1", "==", "0"}], ",", RowBox[{"eq2", "==", "0"}], ",", RowBox[{"eq3", "==", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4476900382836266`*^9, 3.4476900446986265`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"a", "[", "\[Xi]_", "]"}], ":=", FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[Xi]", "2"]}], ")"}], "\[Kappa]"]]}], "\[IndentingNewLine]", RowBox[{"eq", "=", RowBox[{"Expand", "[", RowBox[{ RowBox[{"Numerator", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"\[Xi]", ",", "\[Xi]"}]], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[Xi]", "2"], "-", "r"}], ")"}], " ", RowBox[{"a", "[", "\[Xi]", "]"}]}], ")"}]}], "-", RowBox[{"p", " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], RowBox[{"(", RowBox[{"\[Xi]", " ", RowBox[{"a", "[", "\[Xi]", "]"}]}], ")"}]}]}], "+", RowBox[{"q", " ", RowBox[{"a", "[", "\[Xi]", "]"}]}]}], " ", "]"}], "]"}], ",", "\[Xi]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"eq1", "=", RowBox[{"Coefficient", "[", RowBox[{"eq", ",", SuperscriptBox["\[Xi]", "4"]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"eq2", "=", RowBox[{"Coefficient", "[", RowBox[{"eq", ",", SuperscriptBox["\[Xi]", "2"]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"eq3", "=", RowBox[{"FullSimplify", "[", RowBox[{"eq", "-", RowBox[{"eq1", " ", SuperscriptBox["\[Xi]", "4"]}], "-", RowBox[{"eq2", " ", SuperscriptBox["\[Xi]", "2"]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"eq1", "==", "0"}], ",", RowBox[{"eq2", "==", "0"}], ",", RowBox[{"eq3", "==", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "q", ",", "r"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.401173497109375*^9, 3.401173819703125*^9}, { 3.401173878296875*^9, 3.401173890375*^9}, {3.40117393121875*^9, 3.40117397909375*^9}, {3.401179809828125*^9, 3.4011798795625*^9}, { 3.4011799104375*^9, 3.401179911375*^9}, {3.401179959609375*^9, 3.4011799736875*^9}, {3.401185051515625*^9, 3.401185064296875*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"a", "[", "\[Xi]_", "]"}], ":=", FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[Xi]", "2"]}], ")"}], "\[Kappa]"]]}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"Cos", "[", RowBox[{"x", " ", "\[Xi]"}], "]"}], " ", RowBox[{"a", "[", "\[Xi]", "]"}], RowBox[{"\[DifferentialD]", "\[Xi]"}]}]}], ",", RowBox[{"Assumptions", "->", RowBox[{"{", RowBox[{ RowBox[{"Element", "[", RowBox[{"\[Kappa]", ",", "Integers"}], "]"}], ",", RowBox[{"\[Kappa]", ">", "0"}]}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.40126282503125*^9, 3.401263016515625*^9}, { 3.401263340578125*^9, 3.401263394953125*^9}, {3.4476900913876266`*^9, 3.447690093624627*^9}}], Cell[BoxData[{ RowBox[{"\[Kappa]", "=", "2"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"Cos", "[", RowBox[{"x", " ", "\[Xi]"}], "]"}], " ", RowBox[{"a", "[", "\[Xi]", "]"}], RowBox[{"\[DifferentialD]", "\[Xi]"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.4476900953046265`*^9, 3.447690101726627*^9}}], Cell[BoxData[{ RowBox[{"\[Kappa]", "=", "2"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"Cos", "[", RowBox[{"x", " ", "\[Xi]"}], "]"}], " ", RowBox[{"a", "[", "\[Xi]", "]"}], RowBox[{"\[DifferentialD]", "\[Xi]"}]}]}], "]"}]}], "Input"], Cell[BoxData[{ RowBox[{"\[Kappa]", "=", "3"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"Cos", "[", RowBox[{"x", " ", "\[Xi]"}], "]"}], " ", RowBox[{"a", "[", "\[Xi]", "]"}], RowBox[{"\[DifferentialD]", "\[Xi]"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.40126356859375*^9, 3.40126356940625*^9}}], Cell[BoxData[{ RowBox[{"\[Kappa]", "=", FractionBox["1", "2"]}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"Cos", "[", RowBox[{"x", " ", "\[Xi]"}], "]"}], " ", RowBox[{"a", "[", "\[Xi]", "]"}], RowBox[{"\[DifferentialD]", "\[Xi]"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.401264461625*^9, 3.40126446975*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"k", "[", "\[Xi]_", "]"}], ":=", RowBox[{ SubsuperscriptBox["\[Integral]", "x", "\[Infinity]"], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["t", "2"], "-", SuperscriptBox["\[Xi]", "2"]}], ")"}], RowBox[{"k", "-", FractionBox["1", "2"]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Xi]", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"\[Xi]", ",", "\[Xi]"}]], RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"2", "k"}], "-", "1"}], ")"}]}]}], " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], RowBox[{"-", "\[Xi]"}]}]}], ")"}], RowBox[{"k", "[", "\[Xi]", "]"}]}], "==", "0"}], "]"}]}], "Input", CellChangeTimes->{{3.4012765535*^9, 3.4012766459375*^9}, { 3.401276748921875*^9, 3.401276943984375*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"l", "[", "\[Xi]_", "]"}], ":=", RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Xi]"}], "\[Xi]"], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["\[Xi]", "2"], "-", SuperscriptBox["t", "2"]}], ")"}], RowBox[{"k", "-", FractionBox["1", "2"]}]], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Xi]", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"\[Xi]", ",", "\[Xi]"}]], RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"2", "k"}], "-", "1"}], ")"}]}]}], " ", RowBox[{ SubscriptBox["\[PartialD]", "\[Xi]"], RowBox[{"-", "\[Xi]"}]}]}], ")"}], RowBox[{"l", "[", "\[Xi]", "]"}]}], "==", "0"}], "]"}]}], "Input", CellChangeTimes->{{3.401277147890625*^9, 3.401277225421875*^9}}], Cell[BoxData[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "k"}], "-", "1"}], ")"}], "p"}], "+", "q", "+", RowBox[{"4", RowBox[{"k", "^", "2"}]}], "-", RowBox[{"6", "k"}], "+", "2"}], "==", "0"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}], "p"}], "+", "q", "-", RowBox[{"k", RowBox[{"(", RowBox[{ RowBox[{"2", "k"}], "+", "1"}], ")"}], "r"}], "+", "2", "-", RowBox[{"5", "k"}]}], "==", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "p"}], "+", "q", "+", RowBox[{"2", "k", " ", "r"}], "+", "2"}], "==", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"p", ",", "q", ",", "r"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}], RowBox[{"(", RowBox[{"r", "+", "3", "-", RowBox[{"2", "k"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "k"}]}], ")"}], "r"}], "-", RowBox[{"2", "k"}], "+", "1", "-", RowBox[{"k", RowBox[{"(", RowBox[{ RowBox[{"2", "k"}], "+", "1"}], ")"}], "r"}], "+", "2", "-", RowBox[{"5", "k"}]}], "==", "0"}], "]"}], "\[IndentingNewLine]", RowBox[{"Det", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", "k"}], "-", "1"}], ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"k", "-", "1"}], ",", "1", ",", RowBox[{ RowBox[{"-", "k"}], RowBox[{"(", RowBox[{ RowBox[{"2", "k"}], "+", "1"}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", RowBox[{"2", "k"}]}], "}"}]}], "}"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.401433736359375*^9, 3.401433901234375*^9}, { 3.40143780271875*^9, 3.40143790965625*^9}, {3.40143844053125*^9, 3.40143854159375*^9}}], Cell[BoxData[{ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"x", "^", RowBox[{"(", RowBox[{"-", "m"}], ")"}]}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", "m"}], " ", RowBox[{"u", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"x", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", "m"}], " ", RowBox[{"u", "[", "x", "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{ RowBox[{"m", "^", "2"}], " ", RowBox[{"x", "^", "m"}], " ", RowBox[{"u", "[", "x", "]"}]}]}], ")"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", "m"}], " ", RowBox[{"u", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.40143443859375*^9, 3.40143454409375*^9}, { 3.401434603859375*^9, 3.401434619734375*^9}, 3.4014347031875*^9, { 3.40143474225*^9, 3.401434744*^9}}], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "/", "2"}], ")"}], "^", RowBox[{"(", "3.5", ")"}]}], " ", RowBox[{ RowBox[{"BesselK", "[", RowBox[{"3.5", ",", "x"}], "]"}], "/", RowBox[{"Gamma", "[", "3.5", "]"}]}]}], ",", RowBox[{"x", "->", "0"}]}], "]"}]], "Input", CellChangeTimes->{{3.40144068471875*^9, 3.401440740390625*^9}, { 3.40144077325*^9, 3.40144080296875*^9}}], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"1", "/", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"x", "^", "2"}]}], ")"}], "^", "k"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.401444789671875*^9, 3.40144482234375*^9}}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"E", "^", RowBox[{"(", RowBox[{"-", "xi"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"xi", "^", "2"}], "-", RowBox[{"x", "^", "2"}]}], ")"}], "^", RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}]}], ",", RowBox[{"{", RowBox[{"xi", ",", "x", ",", "Infinity"}], "}"}]}], "]"}], "==", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}], "!"}], " ", RowBox[{"E", "^", RowBox[{"(", RowBox[{"-", "x"}], ")"}]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], RowBox[{"k", "-", "1"}]], FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "k"}], "-", "1", "-", "j"}], ")"}], "!"}], RowBox[{ RowBox[{"(", RowBox[{"2", "x"}], ")"}], "^", "j"}]}], RowBox[{ RowBox[{"j", "!"}], RowBox[{ RowBox[{"(", RowBox[{"k", "-", "1", "-", "j"}], ")"}], "!"}]}]]}]}]}], ",", RowBox[{"Assumptions", "->", RowBox[{"{", RowBox[{ RowBox[{"Element", "[", RowBox[{"k", ",", "Integers"}], "]"}], ",", RowBox[{"k", ">", "0"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.401453604984375*^9, 3.401453829046875*^9}}], Cell[BoxData[ RowBox[{"FullSimplify", "[", FractionBox[ RowBox[{ RowBox[{"Sqrt", "[", "Pi", "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"k", "-", RowBox[{"1", "/", "2"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", "k", "]"}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", "k"}], "-", "1"}], "]"}]}]], "]"}]], "Input", CellChangeTimes->{{3.401459220875*^9, 3.40145929384375*^9}}], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"2", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"Cos", "[", RowBox[{"x", " ", "xi"}], "]"}]}], ")"}], "/", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "^", RowBox[{"(", RowBox[{"1", "+", "s"}], ")"}]}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "->", RowBox[{"{", RowBox[{"0", "<", "s", "<", "1"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.401700009828125*^9, 3.40170007053125*^9}, { 3.40170011275*^9, 3.401700129359375*^9}, {3.40170016975*^9, 3.4017001739375*^9}, {3.40170026403125*^9, 3.4017002653125*^9}, { 3.401701975421875*^9, 3.401701989359375*^9}}], Cell[BoxData[ RowBox[{"BesselK", "[", RowBox[{ RowBox[{"3", "/", "2"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.4020515478125*^9, 3.4020515833125*^9}}], Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"Cos", "[", "u", "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["u", "2"]}], ")"}], "3"]], RowBox[{"\[DifferentialD]", "u"}]}]}]], "Input", CellChangeTimes->{{3.402053249484375*^9, 3.402053354015625*^9}}], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "1"}]]}], RowBox[{ SuperscriptBox["2", "5"], RowBox[{"2", "!"}]}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", "0"}], "2"], FractionBox[ RowBox[{ SuperscriptBox["2", "m"], RowBox[{ RowBox[{"(", RowBox[{"6", "-", "m", "-", "2"}], ")"}], "!"}]}], RowBox[{ RowBox[{"m", "!"}], RowBox[{ RowBox[{"(", RowBox[{"3", "-", "m", "-", "1"}], ")"}], "!"}]}]]}]}]], "Input", CellChangeTimes->{{3.4020534484375*^9, 3.40205364196875*^9}, { 3.402053762453125*^9, 3.402053765328125*^9}}], Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", RowBox[{"\[Nu]", "+", "1"}]], RowBox[{"BesselJ", "[", RowBox[{"\[Nu]", ",", RowBox[{"a", " ", "x"}]}], "]"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["k", "2"]}], ")"}], RowBox[{"\[Mu]", "+", "1"}]]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellChangeTimes->{{3.40206720096875*^9, 3.402067327703125*^9}}], Cell[BoxData[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{"1", "-", RowBox[{"Cos", "[", "t", "]"}]}], SuperscriptBox["t", RowBox[{"1", "+", RowBox[{"2", "s"}]}]]], RowBox[{"\[DifferentialD]", "t"}]}]}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ FractionBox[ RowBox[{"1", "-", RowBox[{"Cos", "[", "t", "]"}]}], SuperscriptBox["t", "2"]], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"-", " ", RowBox[{"Cos", "[", RowBox[{"\[Pi]", " ", "s"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "2"}], " ", "s"}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", ",", "0.01", ",", "0.99"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"-", " ", RowBox[{"Cos", "[", RowBox[{"\[Pi]", " ", "s"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "2"}], " ", "s"}], "]"}]}], "/.", RowBox[{"s", "->", RowBox[{ RowBox[{"1", "/", "2"}], "+", RowBox[{"1", "/", "10000"}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"-", " ", RowBox[{"Cos", "[", RowBox[{"\[Pi]", " ", "s"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "2"}], " ", "s"}], "]"}]}], ",", RowBox[{"{", RowBox[{"s", "->", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.402119411703125*^9, 3.4021194750625*^9}, { 3.40233211121875*^9, 3.402332113765625*^9}, {3.402332189390625*^9, 3.40233227740625*^9}, {3.40233246053125*^9, 3.40233258734375*^9}, { 3.402332619875*^9, 3.402332651796875*^9}, {3.40233269025*^9, 3.40233269571875*^9}, {3.40233282325*^9, 3.40233282525*^9}, { 3.4023329855*^9, 3.402333037890625*^9}, {3.40233308059375*^9, 3.40233317590625*^9}}], Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Pi]"}], "\[Pi]"], RowBox[{ SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"s", " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "]"}], "2"], SuperscriptBox[ RowBox[{"Cos", "[", "\[Theta]", "]"}], RowBox[{"n", "-", "2"}]], RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]], "Input", CellChangeTimes->{{3.402120254890625*^9, 3.402120364953125*^9}}], Cell[BoxData[{ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"m", " ", "x", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "m"}], ")"}], "^", "2"}], RowBox[{"x", "^", "2"}]}]}], ")"}]}], "==", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"m", "^", "2"}], RowBox[{"x", "^", "2"}]}]}], ")"}], RowBox[{"(", RowBox[{"m", "-", "1"}], ")"}], "x"}]}], ",", "m"}], "]"}], ",", RowBox[{"x", ">", "0"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"m", "^", "2"}], "-", "m", "-", RowBox[{"1", "/", RowBox[{"x", "^", "2"}]}]}], "==", "0"}], ",", "m"}], "]"}], ",", RowBox[{"x", ">", "0"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4023058196875*^9, 3.40230593115625*^9}, 3.40230597*^9, { 3.402306038140625*^9, 3.402306090484375*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Problem 17.8", "Section", CellChangeTimes->{{3.447674529527627*^9, 3.447674561397627*^9}, { 3.4505078645992413`*^9, 3.4505078905742416`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Abs", "[", "x", "]"}], "m"], " ", RowBox[{"BesselK", "[", RowBox[{"m", ",", RowBox[{"Abs", "[", "x", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"m", ">", "0"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", "k", "]"}]], " ", RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "t"}], RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[Xi]", "2"]}], ")"}]}]], " ", SuperscriptBox["t", RowBox[{"k", "-", "1"}]]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"\[Xi]", ">", "0"}], "&&", RowBox[{"k", ">", "0"}]}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "x", " ", "\[Xi]"}], "-", RowBox[{"t", " ", SuperscriptBox["x", "2"]}]}]], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"\[Xi]", "\[Element]", "\[DoubleStruckCapitalR]"}], "&&", RowBox[{"t", ">", "0"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "t"}], "-", FractionBox[ SuperscriptBox["p", "2"], RowBox[{"4", " ", "t"}]]}]], " ", SuperscriptBox["t", RowBox[{"m", "-", "1"}]]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"p", ">", "0"}], "&&", RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalR]"}]}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "t"}], "-", FractionBox[ SuperscriptBox["p", "2"], RowBox[{"4", " ", "t"}]]}]], " ", SuperscriptBox["t", RowBox[{"-", FractionBox["1", "2"]}]]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"p", ">", "0"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"%%", "/.", RowBox[{"m", "\[Rule]", FractionBox["1", "2"]}]}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"BesselK", "[", RowBox[{"m", ",", "p"}], "]"}], "\[Equal]", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"-", "m"}], ",", "p"}], "]"}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalR]"}], "&&", RowBox[{"p", ">", "0"}]}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.4505000296092415`*^9, 3.4505000772542415`*^9}, 3.4505001210602417`*^9, {3.4505003867892413`*^9, 3.4505004217722416`*^9}, { 3.4505004525702415`*^9, 3.4505005211872416`*^9}, {3.450500569266241*^9, 3.4505005727652416`*^9}, {3.4505007379702415`*^9, 3.4505007632952414`*^9}, {3.4505008432182417`*^9, 3.4505008692832413`*^9}, 3.4505009820362415`*^9, {3.4505010124332414`*^9, 3.450501106582241*^9}, { 3.4505011427882414`*^9, 3.4505011676912413`*^9}, {3.4505047387912416`*^9, 3.4505047880662413`*^9}, {3.4505048243942413`*^9, 3.450504917877241*^9}, { 3.4505049651632414`*^9, 3.450504999061241*^9}, {3.4505053033052416`*^9, 3.4505053278142414`*^9}, {3.4505053619282417`*^9, 3.450505385660241*^9}, { 3.4505054883492413`*^9, 3.4505054985562415`*^9}, {3.4505055302182417`*^9, 3.4505055312962413`*^9}, 3.4505075105442414`*^9, 3.4505079212432413`*^9}], Cell[BoxData[{ RowBox[{"FullSimplify", "[", FractionBox[ RowBox[{"Integrate", "[", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "x", " ", "\[Xi]"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[Xi]", "2"]}], ")"}], "k"]], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Element]", "\[DoubleStruckCapitalR]"}], "&&", RowBox[{"k", ">", FractionBox["1", "2"]}]}], "}"}]}]}], "]"}], RowBox[{"2", " ", "\[Pi]"}]], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ FractionBox["1", RowBox[{"2", SqrtBox["\[Pi]"], RowBox[{"Gamma", "[", "k", "]"}]}]], " ", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox["x", "2"], RowBox[{"4", " ", "t"}]]}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]], " ", FractionBox["1", SqrtBox["t"]], " ", SuperscriptBox["t", RowBox[{"k", "-", "1"}]]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"x", ">", "0"}], "&&", RowBox[{"k", ">", FractionBox["1", "2"]}]}], "}"}]}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"f", "[", "x", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{ FractionBox["1", RowBox[{ SuperscriptBox["2", RowBox[{"k", "-", FractionBox["1", "2"]}]], SqrtBox["\[Pi]"], RowBox[{"Gamma", "[", "k", "]"}]}]], SuperscriptBox[ RowBox[{"Abs", "[", "x", "]"}], RowBox[{"k", "-", RowBox[{"1", "/", "2"}]}]], RowBox[{"BesselK", "[", RowBox[{ RowBox[{"k", "-", FractionBox["1", "2"]}], ",", RowBox[{"Abs", "[", "x", "]"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"g", "[", "x", "]"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "x", "]"}], "\[Equal]", RowBox[{"g", "[", "x", "]"}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"k", ">", FractionBox["1", "2"]}], "&&", RowBox[{"x", ">", "0"}]}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.4505071948662415`*^9, 3.4505071973002415`*^9}, { 3.450507441573241*^9, 3.4505074674532413`*^9}, 3.4505075105442414`*^9, { 3.4505076026952415`*^9, 3.4505076551642413`*^9}, 3.4505079212432413`*^9}], Cell[BoxData[ RowBox[{"FindMaximum", "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["r", RowBox[{"4", "-", FractionBox["1", "2"]}]], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"4", "-", FractionBox["1", "2"]}], ",", "r"}], "]"}]}], RowBox[{ SuperscriptBox["2", RowBox[{ FractionBox["1", "2"], "+", "4"}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", "4", "]"}]}]], ",", RowBox[{"{", RowBox[{"r", ",", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.458976557561835*^9, 3.4589765896968346`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Limit", "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["r", RowBox[{"4", "-", FractionBox["1", "2"]}]], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"4", "-", FractionBox["1", "2"]}], ",", "r"}], "]"}]}], RowBox[{ SuperscriptBox["2", RowBox[{ FractionBox["1", "2"], "+", "4"}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", "4", "]"}]}]], ",", RowBox[{"r", "->", "0"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"%", ",", "5"}], "]"}]}], "Input", CellChangeTimes->{{3.4589767041918344`*^9, 3.458976750742835*^9}}], Cell[BoxData[ FractionBox["5", "64"]], "Output", CellChangeTimes->{{3.4589767371378345`*^9, 3.4589767519468346`*^9}}], Cell[BoxData["0.078125`5."], "Output", CellChangeTimes->{{3.4589767371378345`*^9, 3.458976751980835*^9}}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Evaluate", "[", FractionBox[ RowBox[{ SuperscriptBox["r", RowBox[{"k", "-", FractionBox["1", "2"]}]], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"k", "-", FractionBox["1", "2"]}], ",", "r"}], "]"}]}], RowBox[{ SuperscriptBox["2", RowBox[{ FractionBox["1", "2"], "+", "k"}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", "k", "]"}]}]], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0.2", ",", "1.4", ",", "0.2"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Evaluate", "[", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "r"}], ")"}], RowBox[{"k", "-", FractionBox["1", "2"]}]], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"k", "-", FractionBox["1", "2"]}], ",", RowBox[{"-", "r"}]}], "]"}]}], RowBox[{ SuperscriptBox["2", RowBox[{ FractionBox["1", "2"], "+", "k"}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", "k", "]"}]}]], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0.2", ",", "1.4", ",", "0.2"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"r", ",", RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", "2.3"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12."}]}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{"k", ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", FractionBox[ RowBox[{ SuperscriptBox["r", RowBox[{"4", "-", FractionBox["1", "2"]}]], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"4", "-", FractionBox["1", "2"]}], ",", "r"}], "]"}]}], RowBox[{ SuperscriptBox["2", RowBox[{ FractionBox["1", "2"], "+", "4"}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", "4", "]"}]}]], "]"}], ",", RowBox[{"{", RowBox[{"r", ",", RowBox[{"-", "1"}], ",", "10.4"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12."}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "0.01"}], ",", "0.083"}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"10", "k"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"5", "/", "64"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{"GraphicsRow", "[", RowBox[{"{", RowBox[{"p1", ",", "p2"}], "}"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "650"}]}], "]"}]}], "Input", CellChangeTimes->{{3.450687045144638*^9, 3.450687053293638*^9}, { 3.4589767675898347`*^9, 3.4589768455768347`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Chap. 18. Computation for subordination principle", "Section", CellChangeTimes->{{3.447674529527627*^9, 3.447674561397627*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "[", RowBox[{"x_", ",", "t_"}], "]"}], ":=", RowBox[{ FractionBox["1", SqrtBox[ RowBox[{"\[Pi]", " ", "t"}]]], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox["x", "2"], RowBox[{"4", "t"}]]}]]}]}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "t"], " ", RowBox[{"q", "[", RowBox[{"x", ",", "t"}], "]"}]}], "==", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"x", ",", "x"}]], RowBox[{"q", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"q", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{"t", ">", "0"}], "}"}]}]}], "]"}]}], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Problem 18.11 A computation", "Section", CellChangeTimes->{{3.4476765086626267`*^9, 3.4476765256366267`*^9}, { 3.4476858113946266`*^9, 3.447685837056627*^9}, {3.447686433358627*^9, 3.4476864391586266`*^9}, {3.4476882124416265`*^9, 3.4476882159856267`*^9}, { 3.4476887886726265`*^9, 3.447688792752627*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Sinc", "[", RowBox[{"k", " ", RowBox[{"Pi", "/", "2"}]}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "Infinity"}], ",", "Infinity", ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Sinc", "[", RowBox[{"k", " ", "Pi"}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "Infinity"}], ",", "Infinity", ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Sinc", "[", RowBox[{"k", " ", "Pi"}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "10000"}], ",", "10000", ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"2", "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Sinc", "[", RowBox[{"k", " ", RowBox[{"Pi", "/", "2"}]}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "1000"}], ",", "1000", ",", "1"}], "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"2", "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Sinc", "[", RowBox[{"k", " ", RowBox[{"Pi", "/", "2"}]}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "100000"}], ",", "100000", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.447688794376627*^9, 3.447688807313627*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"\[Rho]", "=", RowBox[{ RowBox[{"2", "\[IndentingNewLine]", "\[Omega]"}], "=", FractionBox["\[Pi]", "\[Rho]"]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"2", "\[Pi]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Rho]"}], "\[Rho]"], RowBox[{ RowBox[{"Sign", "[", "\[Xi]", "]"}], SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "k", " ", "\[Omega]", " ", "\[Xi]"}]], SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "x", " ", "\[Xi]"}]], RowBox[{"\[DifferentialD]", "\[Xi]"}]}]}]}], ",", RowBox[{"\[Rho]", ">", "0"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"2", "\[Rho]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Rho]"}], "\[Rho]"], RowBox[{ RowBox[{"Sign", "[", "\[Xi]", "]"}], SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "n", " ", "\[Xi]"}]], SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "x", " ", "\[Xi]"}]], RowBox[{"\[DifferentialD]", "\[Xi]"}]}]}]}], ",", RowBox[{"\[Rho]", ">", "0"}]}], "]"}], "==", RowBox[{"\[ImaginaryI]", " ", FractionBox[ SuperscriptBox[ RowBox[{"Sin", "[", RowBox[{"\[Rho]", FractionBox[ RowBox[{"x", "+", "n"}], "2"]}], "]"}], "2"], RowBox[{"\[Rho]", FractionBox[ RowBox[{"x", "+", "n"}], "2"]}]]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"2", "\[Rho]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Rho]"}], "\[Rho]"], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "k", " ", "\[Omega]", " ", "\[Xi]"}]], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", " ", "\[ImaginaryI]"}], " ", "l", " ", "\[Omega]", " ", "\[Xi]"}]], RowBox[{"\[DifferentialD]", "\[Xi]"}]}]}]}], ",", RowBox[{"\[Rho]", ">", "0"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"t", "[", "k_", "]"}], "[", "x_", "]"}], ":=", RowBox[{ FractionBox["1", SqrtBox["\[Omega]"]], FractionBox[ SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{ RowBox[{"\[Rho]", " ", "x"}], "+", RowBox[{"k", " ", "\[Pi]"}]}], "2"], "]"}], "2"], FractionBox[ RowBox[{ RowBox[{"\[Rho]", " ", "x"}], "+", RowBox[{"k", " ", "\[Pi]"}]}], "2"]]}]}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"t", "[", "1", "]"}], "[", "x", "]"}], RowBox[{ RowBox[{"t", "[", "0", "]"}], "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"t", "[", "1", "]"}], "[", "x", "]"}], RowBox[{ RowBox[{"t", "[", "1", "]"}], "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"t", "[", "2", "]"}], "[", "x", "]"}], RowBox[{ RowBox[{"t", "[", "2", "]"}], "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}]}], " ", "*)"}]}]}]], "Input", CellChangeTimes->{{3.4476888251186266`*^9, 3.447688831437627*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 19.1 Example 19.3 ", "Section", CellChangeTimes->{{3.4476747497226267`*^9, 3.4476747966636267`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Off", "[", RowBox[{"General", "::", "spell1"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]", "[", "x_", "]"}], ":=", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "1"}], "/", "x"}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p0", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Alpha]", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0.4"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]", "[", "x_", "]"}], ":=", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "1"}], "/", "x"}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p00", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Alpha]", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a1", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b1", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]1", "[", "x_", "]"}], ":=", RowBox[{"0", "/;", RowBox[{"x", "\[LessEqual]", "a1"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]1", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", RowBox[{"x", "-", "a1"}], "]"}], RowBox[{"\[Alpha]", "[", RowBox[{"b1", "-", "x"}], "]"}]}], "/;", RowBox[{"a1", "<", "x", "<", "b1"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]1", "[", "x_", "]"}], ":=", RowBox[{"0", "/;", RowBox[{"b1", "\[LessEqual]", "x"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Beta]1", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a1", ",", "b1"}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Int1", "=", RowBox[{"N", "[", RowBox[{ SubsuperscriptBox["\[Integral]", "a1", "b1"], RowBox[{ RowBox[{"\[Beta]1", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]1", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"1", "/", "Int1"}], " ", RowBox[{"\[Beta]1", "[", "x", "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Gamma]1", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ SubsuperscriptBox["\[Integral]", "a1", "b1"], RowBox[{ RowBox[{"\[Gamma]1", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]", "=", RowBox[{"1", "/", "5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]1\[Epsilon]", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"1", "/", "\[Epsilon]"}], " ", RowBox[{"\[Gamma]1", "[", RowBox[{"x", "/", "\[Epsilon]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Gamma]1\[Epsilon]", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a1", ",", "b1"}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"GraphicsArray", "[", RowBox[{"{", RowBox[{"p1", ",", "p2"}], "}"}], "]"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a2", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b2", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]2", "[", "x_", "]"}], ":=", RowBox[{"0", "/;", RowBox[{"x", "\[LessEqual]", "a2"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]2", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", RowBox[{"x", "-", "a2"}], "]"}], RowBox[{"\[Alpha]", "[", RowBox[{"b2", "-", "x"}], "]"}]}], "/;", RowBox[{"a2", "<", "x", "<", "b2"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]2", "[", "x_", "]"}], ":=", RowBox[{"0", "/;", RowBox[{"b2", "\[LessEqual]", "x"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Beta]2", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a2", ",", "b2"}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Int2", "=", RowBox[{"N", "[", RowBox[{ SubsuperscriptBox["\[Integral]", "a2", "b2"], RowBox[{ RowBox[{"\[Beta]2", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]2", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"1", "/", "Int2"}], " ", RowBox[{"\[Beta]2", "[", "x", "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p3", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Gamma]2", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a2", ",", "b2"}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ SubsuperscriptBox["\[Integral]", "a2", "b2"], RowBox[{ RowBox[{"\[Gamma]2", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Psi]", "[", "z_", "]"}], ":=", RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "z"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]1\[Epsilon]", "[", RowBox[{"\[Zeta]", "+", "0.5"}], "]"}], "-", RowBox[{"\[Gamma]1\[Epsilon]", "[", RowBox[{"\[Zeta]", "-", "1"}], "]"}]}], ")"}], RowBox[{"\[DifferentialD]", "\[Zeta]"}]}]}]}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[Psi]", "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "a1", ",", "b1"}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "0.5"}], ",", "1", ",", "1.5", ",", "2"}], "}"}], ",", RowBox[{"{", "1", "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"PlotPoints", "->", "400"}], ",", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14."}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], "Input", CellChangeTimes->{ 3.4492026451196103`*^9, 3.4589771493198347`*^9, {3.458977306320835*^9, 3.4589773152158346`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Remark 19.11 A computation", "Section", CellChangeTimes->{{3.447675152403627*^9, 3.447675192329627*^9}, { 3.447687862565627*^9, 3.447687878204627*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x1_", ",", "x2_"}], "]"}], ":=", FractionBox[ SuperscriptBox["x1", "2"], RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["x1", "2"], "+", SuperscriptBox["x2", "2"]}], ")"}], " ", RowBox[{"Log", "[", RowBox[{ SuperscriptBox["x1", "2"], "+", SuperscriptBox["x2", "2"]}], "]"}]}]]}], "\n", RowBox[{"FullSimplify", "[", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", RowBox[{"x1", ",", "2"}], "}"}]], RowBox[{"f", "[", RowBox[{"x1", ",", "x2"}], "]"}]}], "]"}], "\n", RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", RowBox[{"x1", ",", "2"}], "}"}]], RowBox[{"f", "[", RowBox[{"x1", ",", "x2"}], "]"}]}]}], "Input", CellChangeTimes->{{3.447687881433627*^9, 3.4476878967246265`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Figure 19.2 and 19.3", "Section", CellChangeTimes->{{3.447675152403627*^9, 3.447675192329627*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Off", "[", RowBox[{"General", "::", "spell1"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", FractionBox["1", SqrtBox["2"]]}], ";"}], "\[IndentingNewLine]", RowBox[{"Apart", "[", FractionBox["\[Xi]", RowBox[{ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[Xi]", "2"]}], ")"}], RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[Xi]", "4"]}], ")"}]}]], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"2", RowBox[{"Sign", "[", "x", "]"}], SuperscriptBox["\[ExponentialE]", RowBox[{"-", RowBox[{"Abs", "[", "x", "]"}]}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12."}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "6"}], ",", RowBox[{"-", "3"}], ",", "3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\<\!\(\* StyleBox[\"f\", FontSlant->\"Italic\"]\)\>\""}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"Italic\"]\)\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k", "[", "\[Xi]_", "]"}], ":=", FractionBox[ RowBox[{"\[Xi]", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "x", " ", "\[Xi]"}]]}], RowBox[{"1", "+", SuperscriptBox["\[Xi]", "4"]}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"res1", "[", "x", "]"}], "=", RowBox[{"ComplexExpand", "[", RowBox[{"2", "\[Pi]", " ", "I", RowBox[{"(", RowBox[{ RowBox[{"Residue", "[", RowBox[{ RowBox[{"k", "[", "\[Xi]", "]"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", RowBox[{"w", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[ImaginaryI]"}], ")"}]}]}], "}"}]}], "]"}], "+", RowBox[{"Residue", "[", RowBox[{ RowBox[{"k", "[", "\[Xi]", "]"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", RowBox[{"w", RowBox[{"(", RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}]}]}], "}"}]}], "]"}]}], ")"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"res11", "[", "x", "]"}], "=", RowBox[{"ComplexExpand", "[", RowBox[{"2", "\[Pi]", " ", "I", RowBox[{"(", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Xi]", "-", RowBox[{"w", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[ImaginaryI]"}], ")"}]}]}], ")"}], RowBox[{"k", "[", "\[Xi]", "]"}]}], ",", RowBox[{"\[Xi]", "->", RowBox[{"w", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "\[ImaginaryI]"}], ")"}]}]}]}], "]"}], ")"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"res12", "[", "x", "]"}], "=", RowBox[{"ComplexExpand", "[", RowBox[{"2", "\[Pi]", " ", "I", RowBox[{"(", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Xi]", "-", RowBox[{"w", RowBox[{"(", RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}]}]}], ")"}], RowBox[{"k", "[", "\[Xi]", "]"}]}], ",", RowBox[{"\[Xi]", "->", RowBox[{"w", RowBox[{"(", RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}]}]}]}], "]"}], ")"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"res11", "[", "x", "]"}], "+", RowBox[{"res12", "[", "x", "]"}]}], "\[Equal]", RowBox[{"res1", "[", "x", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"res2", "[", "x", "]"}], "=", RowBox[{"ComplexExpand", "[", RowBox[{ RowBox[{"-", "2"}], "\[Pi]", " ", "I", RowBox[{"(", RowBox[{ RowBox[{"Residue", "[", RowBox[{ RowBox[{"k", "[", "\[Xi]", "]"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", RowBox[{"w", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[ImaginaryI]"}], ")"}]}]}], "}"}]}], "]"}], "+", RowBox[{"Residue", "[", RowBox[{ RowBox[{"k", "[", "\[Xi]", "]"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", RowBox[{"w", RowBox[{"(", RowBox[{"1", "-", "\[ImaginaryI]"}], ")"}]}]}], "}"}]}], "]"}]}], ")"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "[", "x_", "]"}], ":=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[ImaginaryI]", FractionBox[ RowBox[{"\[Xi]", " ", RowBox[{"Sin", "[", RowBox[{"x", " ", "\[Xi]"}], "]"}]}], RowBox[{"1", "+", SuperscriptBox["\[Xi]", "4"]}]]}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Im", "[", "x", "]"}], "\[Equal]", "0"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"h", "[", "x", "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ FractionBox["1", "\[ImaginaryI]"], RowBox[{"h", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.001"}], ",", "0.001"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"Italic\"]\)\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hpos", "[", "x_", "]"}], ":=", RowBox[{"\[Pi]", " ", "\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "w"}], " ", "x"}]], RowBox[{"Sin", "[", RowBox[{"w", " ", "x"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{"-", RowBox[{"D", "[", RowBox[{ RowBox[{"hpos", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hneg", "[", "x_", "]"}], ":=", RowBox[{"\[Pi]", " ", "\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"w", " ", "x"}]], RowBox[{"Sin", "[", RowBox[{"w", " ", "x"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{"-", RowBox[{"D", "[", RowBox[{ RowBox[{"hneg", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"\[ImaginaryI]", FractionBox[ RowBox[{ SuperscriptBox["\[Xi]", "3"], " ", RowBox[{"Sin", "[", RowBox[{"x", " ", "\[Xi]"}], "]"}]}], RowBox[{"1", "+", SuperscriptBox["\[Xi]", "4"]}]]}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Im", "[", "x", "]"}], "\[Equal]", "0"}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{3.44920264825261*^9, 3.458895939309*^9}], Cell[BoxData[ RowBox[{ FractionBox["\[Xi]", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[Xi]", "2"]}], ")"}]}]], "+", FractionBox[ RowBox[{"\[Xi]", "-", SuperscriptBox["\[Xi]", "3"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[Xi]", "4"]}], ")"}]}]]}]], "Output", CellChangeTimes->{3.458895927715*^9}], Cell[BoxData["\<\"Function f\"\>"], "Print", CellChangeTimes->{3.4588959277200003`*^9}], Cell[BoxData["\<\"Function \ \\!\\(\\*\\nStyleBox[\\\"h\\\",\\nFontSlant->\\\"Italic\\\"]\\)\"\>"], "Print",\ CellChangeTimes->{3.4588959277279997`*^9}], Cell[BoxData[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["x", SqrtBox["2"]]}]], " ", "\[Pi]", " ", RowBox[{"Sin", "[", FractionBox["x", SqrtBox["2"]], "]"}]}]], "Output", CellChangeTimes->{3.458895927756*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["x", SqrtBox["2"]]}]], " ", "\[Pi]", " ", RowBox[{"Cos", "[", FractionBox["x", SqrtBox["2"]], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["x", SqrtBox["2"]]}]], " ", "\[Pi]", " ", RowBox[{"Sin", "[", FractionBox["x", SqrtBox["2"]], "]"}]}]}]], "Output", CellChangeTimes->{3.458895927856*^9}], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["x", SqrtBox["2"]]}]], " ", "\[Pi]", " ", RowBox[{"Cos", "[", FractionBox["x", SqrtBox["2"]], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["x", SqrtBox["2"]]}]], " ", "\[Pi]", " ", RowBox[{"Sin", "[", FractionBox["x", SqrtBox["2"]], "]"}]}]}]], "Output", CellChangeTimes->{3.458895927941*^9}], Cell[BoxData["True"], "Output", CellChangeTimes->{3.458895927977*^9}], Cell[BoxData[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", FractionBox["x", SqrtBox["2"]]], " ", "\[Pi]", " ", RowBox[{"Sin", "[", FractionBox["x", SqrtBox["2"]], "]"}]}]], "Output", CellChangeTimes->{3.458895928017*^9}], Cell[BoxData[ RowBox[{"\[ImaginaryI]", " ", "\[Pi]", " ", RowBox[{"Cosh", "[", FractionBox["x", SqrtBox["2"]], "]"}], " ", RowBox[{"Sin", "[", FractionBox["x", SqrtBox["2"]], "]"}]}]], "Output", CellChangeTimes->{3.458895928564*^9}], Cell[BoxData["$Aborted"], "Output", CellChangeTimes->{3.458895990876*^9}], Cell[BoxData["\<\"Function \[Dash]\\!\\(\\*SuperscriptBox[\\(\[PartialD]\\), \ \\(2\\)]\\)\\!\\(\\*\\nStyleBox[\\\"h\\\",\\nFontSlant->\\\"Italic\\\"]\\)\"\>\ "], "Print", CellChangeTimes->{3.458895990877*^9}], Cell[BoxData[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["x", SqrtBox["2"]]}]], " ", "\[Pi]", " ", RowBox[{"Cos", "[", FractionBox["x", SqrtBox["2"]], "]"}]}]], "Output", CellChangeTimes->{3.458895990934*^9}], Cell[BoxData[ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["\[ExponentialE]", FractionBox["x", SqrtBox["2"]]], " ", "\[Pi]", " ", RowBox[{"Cos", "[", FractionBox["x", SqrtBox["2"]], "]"}]}]], "Output", CellChangeTimes->{3.458895990959*^9}], Cell[BoxData["\<\"First identity in \ (\[SixPointedStar]\[SixPointedStar])\"\>"], "Print", CellChangeTimes->{3.45889599096*^9}], Cell[BoxData[ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Pi]", " ", RowBox[{"Cos", "[", FractionBox["x", SqrtBox["2"]], "]"}], " ", RowBox[{"Sinh", "[", FractionBox["x", SqrtBox["2"]], "]"}]}]], "Output", CellChangeTimes->{3.458895991258*^9}] }, Open ]], Cell[BoxData[{ RowBox[{"Clear", "[", "\"\<`*\>\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{ FractionBox["1", "2"], SqrtBox["2"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", "x"}]], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "w"}], " ", "x"}]], RowBox[{"(", RowBox[{ RowBox[{"Sin", "[", RowBox[{"w", " ", "x"}], "]"}], "-", RowBox[{"Cos", "[", RowBox[{"w", " ", "x"}], "]"}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", "x"]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"w", " ", "x"}]], RowBox[{"(", RowBox[{ RowBox[{"Sin", "[", RowBox[{"w", " ", "x"}], "]"}], "+", RowBox[{"Cos", "[", RowBox[{"w", " ", "x"}], "]"}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"f", "[", "x", "]"}], "\[IndentingNewLine]", RowBox[{"g", "[", "x", "]"}], "\[IndentingNewLine]", RowBox[{"f", "[", "0", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f1", "[", "x_", "]"}], ":=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"f", "'"}], "[", "x", "]"}], "]"}]}], "\n", RowBox[{ RowBox[{"g1", "[", "x_", "]"}], ":=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"g", "'"}], "[", "x", "]"}], "]"}]}], "\n", RowBox[{"f1", "[", "x", "]"}], "\n", RowBox[{"g1", "[", "x", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f2", "[", "x_", "]"}], ":=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"f", "''"}], "[", "x", "]"}], "]"}]}], "\n", RowBox[{ RowBox[{"g2", "[", "x_", "]"}], ":=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"g", "''"}], "[", "x", "]"}], "]"}]}], "\n", RowBox[{"f2", "[", "x", "]"}], "\n", RowBox[{"g2", "[", "x", "]"}], "\n", RowBox[{"f2", "[", "0", "]"}], "\n", RowBox[{"g2", "[", "0", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f3", "[", "x_", "]"}], ":=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"f", "'''"}], "[", "x", "]"}], "]"}]}], "\n", RowBox[{ RowBox[{"g3", "[", "x_", "]"}], ":=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"g", "'''"}], "[", "x", "]"}], "]"}]}], "\n", RowBox[{"f3", "[", "x", "]"}], "\n", RowBox[{"g3", "[", "x", "]"}], "\n", RowBox[{"f3", "[", "0", "]"}], "\n", RowBox[{"g3", "[", "0", "]"}], "\n", RowBox[{ RowBox[{"f4", "[", "x_", "]"}], ":=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"f", "''''"}], "[", "x", "]"}], "]"}]}], "\n", RowBox[{ RowBox[{"g4", "[", "x_", "]"}], ":=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"g", "''''"}], "[", "x", "]"}], "]"}]}], "\n", RowBox[{"f4", "[", "x", "]"}], "\n", RowBox[{"g4", "[", "x", "]"}], "\n", RowBox[{"f4", "[", "0", "]"}], "\n", RowBox[{"g4", "[", "0", "]"}]}], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"m00", "=", RowBox[{ RowBox[{"FindMaximum", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m0", "=", "0.36"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"F0", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "12"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "11."}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"G0", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"g", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "12"}], ",", "0"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "11."}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T0", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Text", "[", RowBox[{ StyleBox["u", FontSlant->"Italic"], ",", RowBox[{"{", RowBox[{"4.2", ",", "0.2"}], "}"}]}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"H0", "=", RowBox[{"Show", "[", RowBox[{"F0", ",", "G0", ",", "T0", ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", "0.4"}], "}"}]}], ",", RowBox[{"FormatType", "\[Rule]", "TraditionalForm"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14."}]}], "}"}]}], ",", RowBox[{"(*", RowBox[{ RowBox[{"PlotLabel", "\[Rule]", "\"\<\!\(\* StyleBox[\"u\", FontSlant->\"Italic\"]\)\>\""}], ","}], "*)"}], RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "m0"}], ",", "m0"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "->", "300"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.4492026493336105`*^9, 3.4492026512536106`*^9}, { 3.4588970372938347`*^9, 3.4588971232798347`*^9}, {3.458897331705835*^9, 3.458897339537835*^9}, {3.4588976275128345`*^9, 3.458897653047835*^9}, { 3.458897704021835*^9, 3.458897799534835*^9}, {3.458897838772835*^9, 3.4588978738918347`*^9}, {3.458897905817835*^9, 3.458898023778835*^9}, { 3.458898129221835*^9, 3.458898156146835*^9}, {3.4588986293198347`*^9, 3.458898630079835*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"m10", "=", RowBox[{"f1", "[", "0.1", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"f1", "[", "0", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m1", "=", "0.41"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"F1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f1", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0.1"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"G1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"g1", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.1"}], ",", "0"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T1", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Text", "[", RowBox[{"\"\<\[PartialD]\!\(\* StyleBox[\"u\", FontSlant->\"Italic\"]\)\>\"", ",", RowBox[{"{", RowBox[{"0.07", ",", "0.4128"}], "}"}]}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"H1", "=", RowBox[{"Show", "[", RowBox[{"F1", ",", "G1", ",", "T1", ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0.409", ",", "0.415"}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14."}]}], "}"}]}], ",", RowBox[{"FormatType", "\[Rule]", "TraditionalForm"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Sqrt", "[", "2", "]"}]}]}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "->", "300"}]}], "]"}]}]}], "Input", CellChangeTimes->{ 3.4492026521176105`*^9, {3.458897142598835*^9, 3.4588971873528347`*^9}, 3.458897364185835*^9, {3.458898194383835*^9, 3.4588982380698347`*^9}, { 3.4588983048428345`*^9, 3.458898330296835*^9}, {3.4588983688948345`*^9, 3.458898425579835*^9}, {3.4588984604018345`*^9, 3.4588986757838345`*^9}, { 3.4588987375698347`*^9, 3.458898754600835*^9}, {3.458898804693835*^9, 3.4588988060458345`*^9}, {3.458898874705835*^9, 3.458898929813835*^9}, { 3.4588990605668344`*^9, 3.458899156416835*^9}, {3.458899426482835*^9, 3.4588994468008347`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["2"]}]], "Output", CellChangeTimes->{ 3.4588989311678348`*^9, 3.458899062631835*^9, {3.458899096488835*^9, 3.458899158886835*^9}, {3.458899428822835*^9, 3.458899447421835*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"f2", "[", "0.1", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"F2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f2", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0.1"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"G2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"g2", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.1"}], ",", "0"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T2", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\*SuperscriptBox[\(\[PartialD]\), \(2\)]\)\!\(\* StyleBox[\"u\", FontSlant->\"Italic\"]\)\>\"", ",", RowBox[{"{", RowBox[{"0.07", ",", RowBox[{"-", "0.045"}]}], "}"}]}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"H2", "=", RowBox[{"Show", "[", RowBox[{"F2", ",", "G2", ",", "T2", ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14."}]}], "}"}]}], ",", RowBox[{"FormatType", "\[Rule]", "TraditionalForm"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.09"}], ",", "0.09"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "->", "300"}]}], "]"}]}]}], "Input", CellChangeTimes->{ 3.44920265295761*^9, {3.458897253808835*^9, 3.458897295275835*^9}, 3.4588973768098345`*^9, {3.458897428228835*^9, 3.4588974881918344`*^9}, { 3.4589010808598347`*^9, 3.458901137039835*^9}}], Cell[BoxData[ RowBox[{"-", "0.09039411891884663`"}]], "Output", CellChangeTimes->{ 3.458897296363835*^9, 3.458897377728835*^9, 3.458897443886835*^9, 3.458897489449835*^9, 3.458898726494835*^9, {3.458901095021835*^9, 3.458901123252835*^9}}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"f3", "[", "0.1", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"F3", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f3", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0.1"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"G3", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"g3", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.1"}], ",", "0"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T3", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\*SuperscriptBox[\(\[PartialD]\), \(3\)]\)\!\(\* StyleBox[\"u\", FontSlant->\"Italic\"]\)\>\"", ",", RowBox[{"{", RowBox[{"0.07", ",", RowBox[{"-", "0.9"}]}], "}"}]}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"H3", "=", RowBox[{"Show", "[", RowBox[{"F3", ",", "G3", ",", "T3", ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "0.8"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14."}]}], "}"}]}], ",", RowBox[{"FormatType", "\[Rule]", "TraditionalForm"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "0.81"}]}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "->", "300"}]}], "]"}]}]}], "Input", CellChangeTimes->{ 3.4492026538936105`*^9, {3.4588975570958347`*^9, 3.4588975614278345`*^9}, { 3.4588989631748347`*^9, 3.458899027055835*^9}, {3.458901152662835*^9, 3.458901164022835*^9}, {3.458901205388835*^9, 3.458901222106835*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"F4", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f4", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0.1"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"G4", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"g4", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.1"}], ",", "0"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Black"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T4", "=", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\*SuperscriptBox[\(\[PartialD]\), \(4\)]\)\!\(\* StyleBox[\"u\", FontSlant->\"Italic\"]\)\>\"", ",", RowBox[{"{", RowBox[{"0.065", ",", "1.4"}], "}"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"H4", "=", RowBox[{"Show", "[", RowBox[{"F4", ",", "G4", ",", "T4", ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "14."}]}], "}"}]}], ",", RowBox[{"FormatType", "\[Rule]", "TraditionalForm"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "->", "300"}], ",", RowBox[{"AxesOrigin", "->", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}]}], "Input", CellChangeTimes->{ 3.4492026551096106`*^9, {3.4588992028428345`*^9, 3.4588992510758348`*^9}, { 3.4588992827868347`*^9, 3.458899297304835*^9}, 3.458901015761835*^9}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"GraphicsArray", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "H0", "}"}], ",", RowBox[{"{", "H1", "}"}], ",", RowBox[{"{", "H2", "}"}], ",", RowBox[{"{", "H3", "}"}], ",", RowBox[{"{", "H4", "}"}]}], "}"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}]}], "]"}]], "Input", CellChangeTimes->{3.4589010258288345`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"GraphicsArray", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"H0", ",", "H1"}], "}"}], ",", RowBox[{"{", RowBox[{"H2", ",", "H3"}], "}"}], ",", RowBox[{"{", "H4", "}"}]}], "}"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "450"}]}], "]"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"F00", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "103", ",", "110"}], "}"}]}], "]"}]}], ";"}]], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"a1", "[", "x_", "]"}], ":=", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["x", SqrtBox["2"]]}]], RowBox[{"Sin", "[", FractionBox["x", SqrtBox["2"]], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a2", "[", "x_", "]"}], ":=", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox["x", SqrtBox["2"]]], RowBox[{"Sin", "[", FractionBox["x", SqrtBox["2"]], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"a1", "[", "x", "]"}], "\n", RowBox[{"a2", "[", "x", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"a1", "''"}], "[", "x", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"a2", "''"}], "[", "x", "]"}], "]"}]}], "Input"] }, Open ]], Cell["Example 20.27 see Figure 1.2", "Section", CellChangeTimes->{{3.447514528308421*^9, 3.4475145364114213`*^9}, { 3.4475146652204213`*^9, 3.4475146741394215`*^9}, {3.447516572831421*^9, 3.4475166050614214`*^9}, {3.447665116529627*^9, 3.447665133832627*^9}, { 3.4480979349296064`*^9, 3.448097948525606*^9}, {3.4481756317290277`*^9, 3.4481756664070272`*^9}, {3.448175758036028*^9, 3.4481757885520277`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[CellGroupData[{ Cell["Miscellenea", "Section", CellChangeTimes->{{3.447514528308421*^9, 3.4475145364114213`*^9}, { 3.4475146652204213`*^9, 3.4475146741394215`*^9}, {3.447516572831421*^9, 3.4475166050614214`*^9}, {3.447665116529627*^9, 3.447665133832627*^9}, { 3.4480979349296064`*^9, 3.448097948525606*^9}, {3.4481756317290277`*^9, 3.4481756664070272`*^9}, {3.448175758036028*^9, 3.4481757885520277`*^9}, { 3.4481759826600275`*^9, 3.4481759907800274`*^9}}, FontColor->RGBColor[0.0156252, 0.191409, 0.55079], Background->RGBColor[0.832044, 0.996109, 0.832044]], Cell[BoxData[{ RowBox[{"Sin", "[", RowBox[{"Pi", "/", "4"}], "]"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"2", "+", RowBox[{"4", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}], "/", RowBox[{"(", RowBox[{ RowBox[{"16", RowBox[{"n", "^", "2"}]}], "-", "1"}], ")"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "Infinity"}], "}"}]}], "]"}]}]}], "\[Equal]", RowBox[{"Pi", "/", RowBox[{"Sqrt", "[", "2", "]"}]}]}], "]"}]}], "Input"], Cell[BoxData[{ RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"Pi", " ", RowBox[{"Cot", "[", RowBox[{"Pi", " ", "z"}], "]"}]}], "-", RowBox[{"1", "/", "z"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "5"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Pi", " ", "z", " ", RowBox[{"Cot", "[", RowBox[{"Pi", " ", "z"}], "]"}]}], "-", "1"}], ")"}], "/", RowBox[{"z", "^", "2"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "5"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"Pi", " ", "z", " ", RowBox[{"Cot", "[", RowBox[{"Pi", " ", "z"}], "]"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", RowBox[{"z", "^", "2"}]}], ")"}]}], ",", RowBox[{"z", "\[Rule]", "0"}]}], "]"}]}], "Input"], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"Cot", "[", "z", "]"}], "^", "2"}], "==", RowBox[{"-", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"Cot", "'"}], "[", "z", "]"}]}], ")"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], ",", RowBox[{"r", " ", RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], ",", FractionBox[ RowBox[{"1", "-", SuperscriptBox["r", "2"]}], RowBox[{"1", "-", RowBox[{"2", "r", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", SuperscriptBox["r", "2"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{"0", ",", "5"}], "}"}]}], ",", RowBox[{"PlotPoints", "\[Rule]", RowBox[{"{", RowBox[{"21", ",", "100"}], "}"}]}], ",", RowBox[{"Shading", "\[Rule]", "False"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"Ticks", "\[Rule]", "None"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}], ",", "1"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ FractionBox[ RowBox[{"1", "-", SuperscriptBox["r", "2"]}], RowBox[{"1", "-", RowBox[{"2", "r", " ", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", SuperscriptBox["r", "2"]}]], "/.", RowBox[{"r", "\[Rule]", "0.9"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"-", "0.1"}], ",", RowBox[{ RowBox[{"2", "\[Pi]"}], "+", "0.8"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotPoints", "\[Rule]", "70"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"Pi", "<", "PI"}], "}"}], "}"}]}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.398240973984375*^9, 3.39824098571875*^9}}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", RowBox[{"z", "^", "2"}]}], ")"}]}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"n", " ", "x"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"z", "^", "2"}], "-", RowBox[{"n", "^", "2"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "Infinity"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Im", "[", "z", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"Im", "[", "x", "]"}], "\[Equal]", "0"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"TrigExpand", "[", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"z", " ", "x"}], "+", RowBox[{"n", " ", "x"}]}], "]"}], "/", RowBox[{"(", RowBox[{"z", "+", "n"}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"z", " ", "x"}], "-", RowBox[{"n", " ", "x"}]}], "]"}], "/", RowBox[{"(", RowBox[{"z", "-", "n"}], ")"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Pi", " ", "z", " ", RowBox[{ RowBox[{"Cos", "[", RowBox[{"z", RowBox[{"(", RowBox[{"Pi", "-", "x"}], ")"}]}], "]"}], "/", RowBox[{"Sin", "[", RowBox[{"Pi", " ", "z"}], "]"}]}]}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"2", RowBox[{"z", "^", "2"}]}], ")"}]}], ",", RowBox[{"z", "\[Rule]", "0"}]}], "]"}], "]"}]], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"F", "[", RowBox[{"n_", ",", "x_"}], "]"}], ":=", FractionBox[ SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{"n", " ", "x"}], "2"], "]"}], "2"], RowBox[{"n", " ", SuperscriptBox[ RowBox[{"Sin", "[", FractionBox[ RowBox[{" ", "x"}], "2"], "]"}], "2"]}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"8", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "\[Pi]"}], "-", "0.4"}], ",", RowBox[{ RowBox[{"2", "\[Pi]"}], "+", "0.4"}]}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "\[Pi]"}], ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", "8", "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "16."}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{3.4492026561096106`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"25", "+", RowBox[{"1", "/", "2"}]}], ")"}], "x"}], "]"}], "/", RowBox[{"Sin", "[", RowBox[{"x", "/", "2"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "0.5"}], "-", RowBox[{"2", "\[Pi]"}]}], ",", RowBox[{ RowBox[{"2", "\[Pi]"}], "+", "0.5"}]}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "1000"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "3.1"}], ",", "3.1"}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "False"}], ",", RowBox[{"Ticks", "\[Rule]", "False"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", RowBox[{"Sin", "[", RowBox[{"x", "/", "2"}], "]"}]}], ",", RowBox[{ RowBox[{"-", "1"}], "/", RowBox[{"Sin", "[", RowBox[{"x", "/", "2"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "0.5"}], "-", RowBox[{"2", "\[Pi]"}]}], ",", RowBox[{ RowBox[{"2", "\[Pi]"}], "+", "0.5"}]}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "3.1"}], ",", "3.1"}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "\[Pi]"}], ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "16."}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "False"}], ",", RowBox[{"Ticks", "\[Rule]", "False"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"GraphicsArray", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "p1", "}"}], ",", RowBox[{"{", RowBox[{"p2", "//.", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{"a___", ",", RowBox[{"b", ":", RowBox[{"{", RowBox[{"_", ",", "y1_"}], "}"}]}], ",", RowBox[{"c", ":", RowBox[{"{", RowBox[{"_", ",", "y2_"}], "}"}]}], ",", "d___"}], "}"}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"Sequence", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}], "]"}]}], "]"}], "/;", RowBox[{ RowBox[{"Abs", "[", RowBox[{"y1", "-", "y2"}], "]"}], ">", "4"}]}]}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"DisplayFunction", "\[Rule]", "$DisplayFunction"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{3.4492026583676105`*^9}], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"\[ExponentialE]", "^", RowBox[{"(", RowBox[{ RowBox[{"-", " ", "\[ImaginaryI]"}], " ", "x", " ", "\[Xi]"}], ")"}]}], RowBox[{"Log", "[", RowBox[{"1", "+", RowBox[{"\[Xi]", "^", "2"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", RowBox[{"-", "Infinity"}], ",", "Infinity"}], "}"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Im", "[", "x", "]"}], "\[Equal]", "0"}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[{ RowBox[{"Factor", "[", RowBox[{ RowBox[{ RowBox[{"x", "^", "4"}], "+", "1"}], StyleBox[",", "MR"], " ", StyleBox[ RowBox[{"GaussianIntegers", "->", "True"}], "MR"], StyleBox[",", "MR"], StyleBox[ RowBox[{"Extension", "->", RowBox[{"{", RowBox[{"Sqrt", "[", "2", "]"}], "}"}]}], "MR"]}], "]"}], "\[IndentingNewLine]", RowBox[{"Apart", "[", RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "4"}], "+", "1"}], ")"}]}], "]"}]}], "Input"], Cell[BoxData[{ RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], RowBox[{ FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "2"]}], ")"}], "2"]], RowBox[{"\[DifferentialD]", "x"}]}]}], "\[IndentingNewLine]", RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], RowBox[{ FractionBox[ SuperscriptBox["x", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "2"]}], ")"}], "2"]], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"V", "[", RowBox[{"s_", ",", "t_"}], "]"}], ":=", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"a", " ", "x"}], "+", RowBox[{"b", " ", "y"}]}]], RowBox[{"U", "[", RowBox[{"x", ",", "y"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{"Log", "[", "s", "]"}]}], "\[IndentingNewLine]", RowBox[{"y", "=", RowBox[{ FractionBox[ SuperscriptBox["\[Sigma]", "2"], "2"], RowBox[{"(", RowBox[{"T", "-", "t"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"a", "=", RowBox[{ FractionBox["1", "2"], "-", FractionBox["r", SuperscriptBox["\[Sigma]", "2"]]}]}], "\[IndentingNewLine]", RowBox[{"b", "=", RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["1", "2"], "+", FractionBox["r", SuperscriptBox["\[Sigma]", "2"]]}], ")"}], "2"]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "t"], " ", RowBox[{"V", "[", RowBox[{"s", ",", "t"}], "]"}]}], "+", RowBox[{"r", " ", "s", " ", RowBox[{ SubscriptBox["\[PartialD]", "s"], " ", RowBox[{"V", "[", RowBox[{"s", ",", "t"}], "]"}]}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Sigma]", "2"], SuperscriptBox["s", "2"]}], "2"], RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"s", ",", "s"}]], RowBox[{"V", "[", RowBox[{"s", ",", "t"}], "]"}]}]}], "-", RowBox[{"r", " ", RowBox[{"V", "[", RowBox[{"s", ",", "t"}], "]"}]}]}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Log", "[", "s", "]"}], "->", "x"}], ",", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["\[Sigma]", "2"], "2"], RowBox[{"(", RowBox[{"T", "-", "t"}], ")"}]}], "->", "y"}]}], "}"}]}]}], "Input", CellChangeTimes->{{3.3982399871875*^9, 3.3982400061875*^9}, {3.398240047*^9, 3.398240048578125*^9}, {3.398240095515625*^9, 3.398240117484375*^9}, { 3.398240153*^9, 3.39824043909375*^9}, {3.39824047271875*^9, 3.398240623390625*^9}, {3.39824073003125*^9, 3.398240750265625*^9}, { 3.39824082765625*^9, 3.39824094409375*^9}, {3.398241070390625*^9, 3.398241120265625*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"\[Epsilon]", "=", RowBox[{"1", "/", "50"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"ArcTan", "[", RowBox[{"x", "/", "\[Epsilon]"}], "]"}], "/", RowBox[{"ArcTan", "[", RowBox[{"1", "/", "\[Epsilon]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "200"}]}], "]"}]}], "Input", CellChangeTimes->{{3.448176017439028*^9, 3.4481760945590277`*^9}, { 3.4481761374950275`*^9, 3.448176281222028*^9}}] }, Open ]] }, AutoGeneratedPackage->Automatic, ScreenStyleEnvironment->"Working", CellGrouping->Automatic, WindowSize->{1542, 1079}, WindowMargins->{{-1559, Automatic}, {Automatic, 39}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, ShowSelection->True, AnimationDisplayTime->0.2, FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (November 10, 2008)", StyleDefinitions->Notebook[{ Cell[ CellGroupData[{ Cell["Style Definitions", "Subtitle"], Cell[ "Modify the definitions below to change the default appearance of all \ cells in a given style. Make modifications to any definition using commands \ in the Format menu.", "Text"], Cell[ CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[ StyleData[All, "Working"], PageWidth -> WindowWidth, CellLabelMargins -> {{12, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 9], Cell[ StyleData[All, "Presentation"], PageWidth -> WindowWidth, CellLabelMargins -> {{24, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 12], Cell[ StyleData[All, "Condensed"], PageWidth -> WindowWidth, CellLabelMargins -> {{8, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 8], Cell[ StyleData[All, "Printout"], PageWidth -> PaperWidth, CellLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 5, PrivateFontOptions -> {"FontType" -> "Outline"}]}, Closed]], Cell[ CellGroupData[{ Cell["Notebook Options", "Section"], Cell[ "The options defined for the style below will be used at the \ Notebook level.", "Text"], Cell[ StyleData["Notebook"], PageHeaders -> {{ Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"], None, Cell[ TextData[{ ValueBox["FileName"]}], "Header"]}, { Cell[ TextData[{ ValueBox["FileName"]}], "Header"], None, Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"]}}, CellFrameLabelMargins -> 6, StyleMenuListing -> None]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Headings", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Title"], CellMargins -> {{12, Inherited}, {20, 40}}, CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 11}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 36, FontWeight -> "Bold"], Cell[ StyleData["Title", "Presentation"], CellMargins -> {{24, 10}, {20, 40}}, LineSpacing -> {1, 0}, FontSize -> 44], Cell[ StyleData["Title", "Condensed"], CellMargins -> {{8, 10}, {4, 8}}, FontSize -> 20], Cell[ StyleData["Title", "Printout"], CellMargins -> {{2, 10}, {12, 30}}, FontSize -> 24]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], CellMargins -> {{12, Inherited}, {20, 15}}, CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 24], Cell[ StyleData["Subtitle", "Presentation"], CellMargins -> {{24, 10}, {20, 20}}, LineSpacing -> {1, 0}, FontSize -> 36], Cell[ StyleData["Subtitle", "Condensed"], CellMargins -> {{8, 10}, {4, 4}}, FontSize -> 14], Cell[ StyleData["Subtitle", "Printout"], CellMargins -> {{2, 10}, {12, 8}}, FontSize -> 18]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle"], CellMargins -> {{12, Inherited}, {20, 15}}, CellGroupingRules -> {"TitleGrouping", 20}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}}, FontFamily -> "Helvetica", FontSize -> 14, FontSlant -> "Italic"], Cell[ StyleData["Subsubtitle", "Presentation"], CellMargins -> {{24, 10}, {20, 20}}, LineSpacing -> {1, 0}, FontSize -> 24], Cell[ StyleData["Subsubtitle", "Condensed"], CellMargins -> {{8, 10}, {8, 8}}, FontSize -> 12], Cell[ StyleData["Subsubtitle", "Printout"], CellMargins -> {{2, 10}, {12, 8}}, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellDingbat -> "\[FilledSquare]", CellMargins -> {{25, Inherited}, {8, 24}}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 7}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 16, FontWeight -> "Bold"], Cell[ StyleData["Section", "Presentation"], CellMargins -> {{40, 10}, {11, 32}}, LineSpacing -> {1, 0}, FontSize -> 24], Cell[ StyleData["Section", "Condensed"], CellMargins -> {{18, Inherited}, {6, 12}}, FontSize -> 12], Cell[ StyleData["Section", "Printout"], CellMargins -> {{13, 0}, {7, 22}}, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellDingbat -> "\[FilledSmallSquare]", CellMargins -> {{22, Inherited}, {8, 20}}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Times", FontSize -> 14, FontWeight -> "Bold"], Cell[ StyleData["Subsection", "Presentation"], CellMargins -> {{36, 10}, {11, 32}}, LineSpacing -> {1, 0}, FontSize -> 22], Cell[ StyleData["Subsection", "Condensed"], CellMargins -> {{16, Inherited}, {6, 12}}, FontSize -> 12], Cell[ StyleData["Subsection", "Printout"], CellMargins -> {{9, 0}, {7, 22}}, FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellDingbat -> "\[FilledSmallSquare]", CellMargins -> {{22, Inherited}, {8, 18}}, CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubsection", FontFamily -> "Times", FontWeight -> "Bold"], Cell[ StyleData["Subsubsection", "Presentation"], CellMargins -> {{34, 10}, {11, 26}}, LineSpacing -> {1, 0}, FontSize -> 18], Cell[ StyleData["Subsubsection", "Condensed"], CellMargins -> {{17, Inherited}, {6, 12}}, FontSize -> 10], Cell[ StyleData["Subsubsection", "Printout"], CellMargins -> {{9, 0}, {7, 14}}, FontSize -> 11]}, Closed]]}, Open]], Cell[ CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[ StyleData["Text"], CellMargins -> {{12, 10}, {7, 7}}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, Hyphenation -> True, LineSpacing -> {1, 3}, CounterIncrements -> "Text", FontFamily -> "Helvetica", FontColor -> RGBColor[0.0195315, 0.17969, 0.55079], Background -> RGBColor[0.832044, 0.996109, 0.832044]], Cell[ RawData[ "Cell[StyleData[\"Text\", \"Presentation\"],\n CellMargins->{{24, \ 10}, {10, 10}},\n LineSpacing->{1, 5},\n FontSize->16]"], CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}, FontSize -> 16], Cell[ RawData[ "Cell[StyleData[\"Text\", \"Condensed\"],\n CellMargins->{{8, 10}, \ {6, 6}},\n LineSpacing->{1, 1},\n FontSize->11]"], CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ RawData[ "Cell[StyleData[\"Text\", \"Printout\"],\n CellMargins->{{2, 2}, \ {6, 6}},\n TextJustification->0.5,\n FontSize->10]"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, FontSize -> 10], Cell[ RawData[ "Cell[StyleData[\"SmallText\"],\n CellMargins->{{12, 10}, {6, 6}},\ \n DefaultNewInlineCellStyle->\"None\",\n Hyphenation->True,\n \ LineSpacing->{1, 3},\n LanguageCategory->\"NaturalLanguage\",\n \ CounterIncrements->\"SmallText\",\n FontFamily->\"Helvetica\",\n \ FontSize->9,\n FontColor->RGBColor[0, 0, 1]]"], CellMargins -> {{12, 10}, {6, 6}}, DefaultNewInlineCellStyle -> "None", Hyphenation -> True, LineSpacing -> {1, 3}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "SmallText", FontFamily -> "Helvetica", FontSize -> 9, FontColor -> RGBColor[0, 0, 1]], Cell[ RawData[ "Cell[StyleData[\"SmallText\", \"Presentation\"],\n \ CellMargins->{{24, 10}, {8, 8}},\n LineSpacing->{1, 5},\n FontSize->12]"], CellMargins -> {{24, 10}, {8, 8}}, LineSpacing -> {1, 5}, FontSize -> 12], Cell[ RawData[ "Cell[StyleData[\"SmallText\", \"Condensed\"],\n CellMargins->{{8, \ 10}, {5, 5}},\n LineSpacing->{1, 2},\n FontSize->9]"], CellMargins -> {{8, 10}, {5, 5}}, LineSpacing -> {1, 2}, FontSize -> 9], Cell[ RawData[ "Cell[StyleData[\"SmallText\", \"Printout\"],\n CellMargins->{{2, \ 2}, {5, 5}},\n TextJustification->0.5,\n FontSize->7]"], CellMargins -> {{2, 2}, {5, 5}}, TextJustification -> 0.5, FontSize -> 7], Cell[ RawData["Cell[\"Styles for Input/Output\", \"Section\"]"], "Section"], Cell[ RawData[ "Cell[\"\\<\\\nThe cells in this section define styles used for \ input and output to the \\\nkernel. Be careful when modifying, renaming, or \ removing these styles, because the \\\nfront end associates special meanings \ with these style names. Some attributes for \\\nthese styles are actually set \ in FormatType Styles (in the last section of this \\\nstylesheet). \\\n\\>\", \ \"Text\"]"], "Text"], Cell[ StyleData["Input"], CellMargins -> {{45, 10}, {5, 7}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", FontWeight -> "Bold", FontColor -> RGBColor[0, 0, 0.500008], Background -> RGBColor[0.832044, 0.996109, 0.832044]], Cell[ RawData[ "Cell[StyleData[\"Input\", \"Presentation\"],\n CellMargins->{{72, \ Inherited}, {8, 10}},\n LineSpacing->{1, 0},\n FontSize->16]"], CellMargins -> {{72, Inherited}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ RawData[ "Cell[StyleData[\"Input\", \"Condensed\"],\n CellMargins->{{40, \ 10}, {2, 3}},\n FontSize->11]"], CellMargins -> {{40, 10}, {2, 3}}, FontSize -> 11], Cell[ RawData[ "Cell[StyleData[\"Input\", \"Printout\"],\n CellMargins->{{39, 0}, \ {4, 6}},\n LinebreakAdjustments->{0.85, 2, 10, 1, 1},\n FontSize->9]"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9], Cell[ StyleData["InputOnly"], Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ CellGroupData[{ Cell[ StyleData["Output"], CellMargins -> {{47, 10}, {7, 5}}, CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Output"], Cell[ StyleData["Output", "Presentation"], CellMargins -> {{72, Inherited}, {10, 8}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["Output", "Condensed"], CellMargins -> {{41, Inherited}, {3, 2}}, FontSize -> 11], Cell[ StyleData["Output", "Printout"], CellMargins -> {{39, 0}, {6, 4}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Message"], CellMargins -> {{45, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Message", StyleMenuListing -> None, FontSize -> 11, FontColor -> RGBColor[0, 0, 1]], Cell[ StyleData["Message", "Presentation"], CellMargins -> {{72, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["Message", "Condensed"], CellMargins -> {{41, Inherited}, {Inherited, Inherited}}, FontSize -> 11], Cell[ StyleData["Message", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontSize -> 7, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Print"], CellMargins -> {{45, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Print", StyleMenuListing -> None], Cell[ StyleData["Print", "Presentation"], CellMargins -> {{72, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["Print", "Condensed"], CellMargins -> {{41, Inherited}, {Inherited, Inherited}}, FontSize -> 11], Cell[ StyleData["Print", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Graphics"], CellMargins -> {{4, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Graphics", ImageMargins -> {{43, Inherited}, {Inherited, 0}}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 10], Cell[ StyleData["Graphics", "Presentation"], ImageMargins -> {{62, Inherited}, {Inherited, 0}}], Cell[ StyleData["Graphics", "Condensed"], ImageMargins -> {{38, Inherited}, {Inherited, 0}}, Magnification -> 0.6], Cell[ StyleData["Graphics", "Printout"], ImageMargins -> {{30, Inherited}, {Inherited, 0}}, Magnification -> 0.8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CellLabel"], LanguageCategory -> None, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9, FontColor -> RGBColor[0, 0, 1]], Cell[ StyleData["CellLabel", "Presentation"], FontSize -> 12], Cell[ StyleData["CellLabel", "Condensed"], FontSize -> 9], Cell[ StyleData["CellLabel", "Printout"], FontFamily -> "Courier", FontSize -> 8, FontSlant -> "Italic", FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["FrameLabel"], LanguageCategory -> None, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9], Cell[ StyleData["FrameLabel", "Presentation"], FontSize -> 12], Cell[ StyleData["FrameLabel", "Condensed"], FontSize -> 9], Cell[ StyleData["FrameLabel", "Printout"], FontFamily -> "Courier", FontSize -> 8, FontSlant -> "Italic", FontColor -> GrayLevel[0]]}, Closed]]}, Open]], Cell[ CellGroupData[{ Cell["Inline Formatting", "Section"], Cell[ "These styles are for modifying individual words or letters in a \ cell exclusive of the cell tag.", "Text"], Cell[ StyleData["RM"], StyleMenuListing -> None, FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["BF"], StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["IT"], StyleMenuListing -> None, FontSlant -> "Italic"], Cell[ StyleData["TR"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["TI"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["TB"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["TBI"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ StyleData["MR"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["MO"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["MB"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["MBO"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ StyleData["SR"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["SO"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["SB"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["SBO"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ CellGroupData[{ Cell[ StyleData["SO10"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["SO10", "Printout"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 7, FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["SO10", "EnhancedPrintout"], StyleMenuListing -> None, FontFamily -> "Futura", FontSize -> 7, FontWeight -> "Plain", FontSlant -> "Italic"]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["InlineFormula"], CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", ScriptLevel -> 1, SingleLetterItalics -> True], Cell[ StyleData["InlineFormula", "Presentation"], CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}, FontSize -> 16], Cell[ StyleData["InlineFormula", "Condensed"], CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["InlineFormula", "Printout"], CellMargins -> {{2, 0}, {6, 6}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"], CellMargins -> {{42, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", ScriptLevel -> 0, SingleLetterItalics -> True, UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], Cell[ StyleData["DisplayFormula", "Presentation"], LineSpacing -> {1, 5}, FontSize -> 16], Cell[ StyleData["DisplayFormula", "Condensed"], LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["DisplayFormula", "Printout"], FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Program"], CellFrame -> {{0, 0}, {0.5, 0.5}}, CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, Hyphenation -> False, LanguageCategory -> "Formula", ScriptLevel -> 1, FontFamily -> "Courier"], Cell[ StyleData["Program", "Presentation"], CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}, FontSize -> 16], Cell[ StyleData["Program", "Condensed"], CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["Program", "Printout"], CellMargins -> {{2, 0}, {6, 6}}, FontSize -> 9]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Outline Styles", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Outline1"], CellMargins -> {{12, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 50}, ParagraphIndent -> -38, CounterIncrements -> "Outline1", FontSize -> 18, FontWeight -> "Bold", CounterBoxOptions -> {CounterFunction :> CapitalRomanNumeral}], Cell[ StyleData["Outline1", "Printout"], CounterBoxOptions -> {CounterFunction :> CapitalRomanNumeral}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Outline2"], CellMargins -> {{59, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 60}, ParagraphIndent -> -27, CounterIncrements -> "Outline2", FontSize -> 15, FontWeight -> "Bold", CounterBoxOptions -> {CounterFunction :> (Part[ CharacterRange["A", "Z"], #]& )}], Cell[ StyleData["Outline2", "Printout"], CounterBoxOptions -> {CounterFunction :> (Part[ CharacterRange["A", "Z"], #]& )}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Outline3"], CellMargins -> {{108, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 70}, ParagraphIndent -> -21, CounterIncrements -> "Outline3", FontSize -> 12, CounterBoxOptions -> {CounterFunction :> Identity}], Cell[ StyleData["Outline3", "Printout"], CounterBoxOptions -> {CounterFunction :> Identity}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Outline4"], CellMargins -> {{158, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 80}, ParagraphIndent -> -18, CounterIncrements -> "Outline4", FontSize -> 10, CounterBoxOptions -> {CounterFunction :> (Part[ CharacterRange["a", "z"], #]& )}], Cell[ StyleData["Outline4", "Printout"]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Hyperlink Styles", "Section"], Cell[ "The cells below define styles useful for making hypertext \ ButtonBoxes. The \"Hyperlink\" style is for links within the same Notebook, \ or between Notebooks.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Hyperlink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0, 0, 1], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonNote -> ButtonData}], Cell[ StyleData["Hyperlink", "Presentation"], FontSize -> 16], Cell[ StyleData["Hyperlink", "Condensed"], FontSize -> 11], Cell[ StyleData["Hyperlink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ "The following styles are for linking automatically to the on-line \ help system.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["MainBookLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0, 0, 1], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["MainBook", #]}]& )}], Cell[ StyleData["MainBookLink", "Presentation"], FontSize -> 16], Cell[ StyleData["MainBookLink", "Condensed"], FontSize -> 11], Cell[ StyleData["MainBookLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["AddOnsLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0, 0, 1], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["AddOns", #]}]& )}], Cell[ StyleData["AddOnsLink", "Presentation"], FontSize -> 16], Cell[ StyleData["AddOnsLink", "Condensed"], FontSize -> 11], Cell[ StyleData["AddOnsLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["RefGuideLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0, 0, 1], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}], Cell[ StyleData["RefGuideLink", "Presentation"], FontSize -> 16], Cell[ StyleData["RefGuideLink", "Condensed"], FontSize -> 11], Cell[ StyleData["RefGuideLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["GettingStartedLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0, 0, 1], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["GettingStarted", #]}]& )}], Cell[ StyleData["GettingStartedLink", "Presentation"], FontSize -> 16], Cell[ StyleData["GettingStartedLink", "Condensed"], FontSize -> 11], Cell[ StyleData["GettingStartedLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["OtherInformationLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0, 0, 1], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["OtherInformation", #]}]& )}], Cell[ StyleData["OtherInformationLink", "Presentation"], FontSize -> 16], Cell[ StyleData["OtherInformationLink", "Condensed"], FontSize -> 11], Cell[ StyleData["OtherInformationLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[ StyleData["Header"], CellMargins -> {{0, 0}, {4, 1}}, DefaultNewInlineCellStyle -> "None", LanguageCategory -> "NaturalLanguage", StyleMenuListing -> None, FontSize -> 10, FontSlant -> "Italic"], Cell[ StyleData["Footer"], CellMargins -> {{0, 0}, {0, 4}}, DefaultNewInlineCellStyle -> "None", LanguageCategory -> "NaturalLanguage", StyleMenuListing -> None, FontSize -> 9, FontSlant -> "Italic"], Cell[ StyleData["PageNumber"], CellMargins -> {{0, 0}, {4, 1}}, StyleMenuListing -> None, FontFamily -> "Times", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell["Palette Styles", "Section"], Cell[ "The cells below define styles that define standard ButtonFunctions, \ for use in palette buttons.", "Text"], Cell[ StyleData["Paste"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, Placeholder]}]& )}], Cell[ StyleData["Evaluate"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], SelectionEvaluate[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["EvaluateCell"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionMove[ FrontEnd`InputNotebook[], All, Cell, 1], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["CopyEvaluate"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["CopyEvaluateCell"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[], All]}]& )}]}, Closed]], Cell[ CellGroupData[{ Cell["Placeholder Styles", "Section"], Cell[ "The cells below define styles useful for making placeholder objects \ in palette templates.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Placeholder"], Placeholder -> True, StyleMenuListing -> None, FontSlant -> "Italic", FontColor -> RGBColor[0.890623, 0.864698, 0.384756], TagBoxOptions -> { Editable -> False, Selectable -> False, StripWrapperBoxes -> False}], Cell[ StyleData["Placeholder", "Presentation"]], Cell[ StyleData["Placeholder", "Condensed"]], Cell[ StyleData["Placeholder", "Printout"]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PrimaryPlaceholder"], StyleMenuListing -> None, DrawHighlighted -> True, FontSlant -> "Italic", Background -> RGBColor[0.912505, 0.891798, 0.507774], TagBoxOptions -> { Editable -> False, Selectable -> False, StripWrapperBoxes -> False}], Cell[ StyleData["PrimaryPlaceholder", "Presentation"]], Cell[ StyleData["PrimaryPlaceholder", "Condensed"]], Cell[ StyleData["PrimaryPlaceholder", "Printout"]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["FormatType Styles", "Section"], Cell[ "The cells below define styles that are mixed in with the styles of \ most cells. If a cell's FormatType matches the name of one of the styles \ defined below, then that style is applied between the cell's style and its \ own options. This is particularly true of Input and Output.", "Text"], Cell[ StyleData["CellExpression"], PageWidth -> Infinity, CellMargins -> {{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel -> False, ShowSpecialCharacters -> False, AllowInlineCells -> False, Hyphenation -> False, AutoItalicWords -> {}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 12, Background -> GrayLevel[1]], Cell[ StyleData["InputForm"], InputAutoReplacements -> {}, AllowInlineCells -> False, Hyphenation -> False, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["OutputForm"], PageWidth -> Infinity, TextAlignment -> Left, LineSpacing -> {0.6, 1}, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["StandardForm"], InputAutoReplacements -> { "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", Inherited}, "TwoByteSyntaxCharacterAutoReplacement" -> True, LineSpacing -> {1.25, 0}, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["TraditionalForm"], InputAutoReplacements -> { "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", Inherited}, "TwoByteSyntaxCharacterAutoReplacement" -> True, LineSpacing -> {1.25, 0}, SingleLetterItalics -> True, TraditionalFunctionNotation -> True, DelimiterMatching -> None, StyleMenuListing -> None], Cell[ "The style defined below is mixed in to any cell that is in an \ inline cell within another.", "Text"], Cell[ StyleData["InlineCell"], LanguageCategory -> "Formula", ScriptLevel -> 1, StyleMenuListing -> None], Cell[ StyleData["InlineCellEditing"], StyleMenuListing -> None, Background -> RGBColor[1, 0.749996, 0.8]]}, Closed]], Cell[ CellGroupData[{ Cell["Automatic Styles", "Section"], Cell[ "The cells below define styles that are used to affect the display \ of certain types of objects in typeset expressions. For example, \ \"UnmatchedBracket\" style defines how unmatched bracket, curly bracket, and \ parenthesis characters are displayed (typically by coloring them to make them \ stand out).", "Text"], Cell[ StyleData["UnmatchedBracket"], StyleMenuListing -> None, FontColor -> RGBColor[0.760006, 0.330007, 0.8]]}, Closed]]}, Open]]}, Visible -> False, FrontEndVersion -> "7.0 for Microsoft Windows (64-bit) (November 10, 2008)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 1710, 36, 415, "Comments"], Cell[CellGroupData[{ Cell[2280, 60, 257, 4, 67, "Section"], Cell[2540, 66, 225, 4, 45, "Text"], Cell[2768, 72, 2897, 65, 225, "Input", InitializationCell->True], Cell[5668, 139, 3449, 66, 185, "Input", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ Cell[9154, 210, 216, 3, 67, "Section"], Cell[9373, 215, 2403, 63, 121, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[11813, 283, 488, 7, 67, "Section"], Cell[12304, 292, 710, 20, 62, "Input"], Cell[13017, 314, 5670, 138, 258, "Input"], Cell[18690, 454, 288, 9, 45, "Text"], Cell[18981, 465, 546, 14, 65, "Input"], Cell[19530, 481, 284, 7, 44, "Input"], Cell[19817, 490, 1256, 33, 58, "Input"], Cell[21076, 525, 2614, 67, 107, "Input"], Cell[23693, 594, 716, 21, 91, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[24446, 620, 501, 7, 67, "Section"], Cell[24950, 629, 3210, 89, 119, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[28197, 723, 554, 8, 67, "Section"], Cell[28754, 733, 2000, 48, 65, "Input"], Cell[30757, 783, 670, 21, 57, "Input"], Cell[31430, 806, 507, 12, 45, "Text"], Cell[31940, 820, 801, 23, 81, "Input"], Cell[32744, 845, 799, 28, 77, "Input"], Cell[33546, 875, 430, 13, 44, "Input"], Cell[33979, 890, 1498, 49, 80, "Input"], Cell[35480, 941, 313, 9, 45, "Text"], Cell[35796, 952, 495, 14, 62, "Input"], Cell[36294, 968, 354, 9, 44, "Input"], Cell[36651, 979, 734, 20, 44, "Input"], Cell[37388, 1001, 631, 18, 60, "Input"], Cell[38022, 1021, 1219, 32, 62, "Input"], Cell[39244, 1055, 480, 13, 44, "Input"], Cell[39727, 1070, 520, 15, 60, "Input"], Cell[40250, 1087, 1763, 49, 87, "Input"], Cell[42016, 1138, 478, 13, 44, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[42531, 1156, 305, 5, 67, "Section"], Cell[42839, 1163, 8150, 214, 774, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[51026, 1382, 344, 6, 67, "Section"], Cell[51373, 1390, 2420, 64, 181, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[53830, 1459, 348, 6, 67, "Section"], Cell[54181, 1467, 4959, 143, 241, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[59177, 1615, 393, 6, 67, "Section"], Cell[59573, 1623, 2103, 58, 85, "Input"], Cell[61679, 1683, 3345, 50, 45, "Text"], Cell[65027, 1735, 7359, 186, 228, "Input"], Cell[72389, 1923, 3207, 46, 45, "Text"], Cell[75599, 1971, 3364, 102, 152, "Input"], Cell[78966, 2075, 2372, 77, 114, "Input"], Cell[81341, 2154, 584, 15, 44, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[81962, 2174, 398, 6, 67, "Section"], Cell[82363, 2182, 3056, 89, 198, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[85456, 2276, 281, 4, 67, "Section"], Cell[85740, 2282, 3610, 100, 275, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[89387, 2387, 386, 6, 67, "Section"], Cell[89776, 2395, 1080, 27, 65, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[90893, 2427, 689, 13, 67, "Section"], Cell[91585, 2442, 6839, 197, 522, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[98461, 2644, 215, 3, 67, "Section"], Cell[98679, 2649, 7958, 232, 459, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[106674, 2886, 251, 4, 67, "Section"], Cell[106928, 2892, 3345, 85, 212, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[110310, 2982, 241, 4, 67, "Section"], Cell[110554, 2988, 2727, 79, 217, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[113318, 3072, 311, 5, 67, "Section"], Cell[113632, 3079, 2986, 85, 119, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[116655, 3169, 313, 5, 67, "Section"], Cell[116971, 3176, 10959, 306, 641, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[127967, 3487, 289, 5, 67, "Section"], Cell[CellGroupData[{ Cell[128281, 3496, 1381, 37, 134, "Input"], Cell[129665, 3535, 121, 2, 27, "Output"] }, Open ]], Cell[129801, 3540, 1220, 33, 127, "Input"], Cell[CellGroupData[{ Cell[131046, 3577, 498, 15, 92, "Input"], Cell[131547, 3594, 162, 2, 27, "Output"] }, Open ]] }, Open ]], Cell[131736, 3600, 355, 6, 67, "Section"], Cell[CellGroupData[{ Cell[132116, 3610, 297, 5, 47, "Section"], Cell[132416, 3617, 810, 25, 96, "Input"], Cell[133229, 3644, 6206, 182, 556, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[139472, 3831, 270, 4, 67, "Section"], Cell[139745, 3837, 1254, 34, 53, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[141036, 3876, 284, 4, 67, "Section"], Cell[141323, 3882, 3929, 116, 185, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[145289, 4003, 241, 4, 67, "Section"], Cell[145533, 4009, 4550, 136, 236, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[150120, 4150, 243, 4, 67, "Section"], Cell[150366, 4156, 4812, 143, 165, "Input"], Cell[155181, 4301, 3358, 103, 165, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[158576, 4409, 221, 3, 67, "Section"], Cell[158800, 4414, 6209, 206, 406, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[165046, 4625, 220, 3, 67, "Section"], Cell[165269, 4630, 3701, 108, 345, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[169007, 4743, 286, 4, 67, "Section"], Cell[169296, 4749, 6562, 161, 185, "Input"], Cell[175861, 4912, 1074, 17, 44, "Input"], Cell[176938, 4931, 209, 3, 45, "Text"], Cell[177150, 4936, 1912, 43, 125, "Input"], Cell[179065, 4981, 1212, 35, 194, "Input"], Cell[180280, 5018, 1717, 46, 177, "Input"], Cell[182000, 5066, 4618, 116, 372, "Input"], Cell[186621, 5184, 4835, 119, 319, "Input"], Cell[191459, 5305, 487, 9, 44, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[191983, 5319, 286, 4, 67, "Section"], Cell[192272, 5325, 705, 12, 78, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[193014, 5342, 531, 11, 77, "Section"], Cell[193548, 5355, 8971, 262, 375, "Input"], Cell[CellGroupData[{ Cell[202544, 5621, 1565, 45, 201, "Input"], Cell[204112, 5668, 465, 9, 27, "Output"], Cell[204580, 5679, 451, 10, 27, "Output"], Cell[205034, 5691, 397, 7, 27, "Output"], Cell[205434, 5700, 329, 4, 27, "Output"], Cell[205766, 5706, 381, 6, 27, "Output"], Cell[206150, 5714, 330, 4, 27, "Output"] }, Open ]], Cell[206495, 5721, 1192, 31, 65, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[207724, 5757, 244, 4, 67, "Section"], Cell[207971, 5763, 4481, 133, 205, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[212489, 5901, 302, 5, 67, "Section"], Cell[212794, 5908, 1347, 31, 125, "Input"], Cell[214144, 5941, 557, 17, 46, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[214738, 5963, 248, 4, 67, "Section"], Cell[CellGroupData[{ Cell[215011, 5971, 1352, 39, 116, "Input"], Cell[216366, 6012, 321, 8, 27, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[216736, 6026, 311, 5, 67, "Section"], Cell[217050, 6033, 411, 10, 46, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[217498, 6048, 373, 6, 67, "Section"], Cell[217874, 6056, 1544, 41, 159, "Input"], Cell[219421, 6099, 1049, 33, 44, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[220507, 6137, 426, 7, 67, "Section"], Cell[220936, 6146, 2133, 61, 98, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[223106, 6212, 485, 7, 67, "Section"], Cell[223594, 6221, 899, 25, 62, "Input"], Cell[224496, 6248, 1674, 50, 121, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[226207, 6303, 352, 6, 67, "Section"], Cell[226562, 6311, 643, 21, 114, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[227242, 6337, 402, 6, 67, "Section"], Cell[227647, 6345, 1036, 30, 82, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Open ]], Cell[CellGroupData[{ Cell[228720, 6380, 426, 7, 67, "Section"], Cell[229149, 6389, 4621, 125, 274, "Input"], Cell[233773, 6516, 2934, 79, 109, "Input"], Cell[236710, 6597, 1961, 64, 96, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[238708, 6666, 456, 7, 67, "Section"], Cell[239167, 6675, 2768, 77, 167, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[241972, 6757, 402, 6, 67, "Section"], Cell[242377, 6765, 2985, 79, 109, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[245399, 6849, 463, 7, 67, "Section"], Cell[245865, 6858, 444, 14, 44, "Input"], Cell[246312, 6874, 512, 17, 44, "Input"], Cell[246827, 6893, 785, 23, 44, "Input"], Cell[247615, 6918, 689, 21, 44, "Input"], Cell[248307, 6941, 852, 24, 44, "Input"], Cell[249162, 6967, 618, 19, 44, "Input"], Cell[249783, 6988, 731, 22, 44, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[250551, 7015, 467, 7, 67, "Section"], Cell[251021, 7024, 545, 18, 58, "Input"], Cell[251569, 7044, 240, 3, 45, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[251846, 7052, 465, 7, 67, "Section"], Cell[252314, 7061, 653, 18, 60, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[253004, 7084, 357, 6, 67, "Section"], Cell[CellGroupData[{ Cell[253386, 7094, 6505, 184, 432, "Input"], Cell[259894, 7280, 565, 16, 46, "Output"], Cell[260462, 7298, 277, 5, 27, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[260788, 7309, 639, 15, 67, "Section"], Cell[261430, 7326, 3842, 113, 105, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[265309, 7444, 592, 13, 67, "Section"], Cell[265904, 7459, 1488, 45, 126, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[267429, 7509, 451, 7, 67, "Section"], Cell[267883, 7518, 474, 8, 44, "Input"], Cell[268360, 7528, 267, 6, 65, "Input"], Cell[268630, 7536, 1194, 34, 136, "Input"], Cell[269827, 7572, 905, 22, 105, "Input"], Cell[270735, 7596, 1239, 34, 112, "Input"], Cell[271977, 7632, 908, 22, 105, "Input"], Cell[272888, 7656, 6268, 179, 245, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[279193, 7840, 549, 8, 67, "Section"], Cell[279745, 7850, 1328, 44, 105, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[281110, 7899, 501, 8, 67, "Section"], Cell[281614, 7909, 511, 17, 65, "Input"], Cell[282128, 7928, 448, 13, 44, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[282613, 7946, 301, 5, 67, "Section"], Cell[282917, 7953, 4848, 136, 213, "Input"], Cell[287768, 8091, 2934, 78, 160, "Input"], Cell[290705, 8171, 2564, 72, 140, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[293306, 8248, 451, 7, 67, "Section"], Cell[293760, 8257, 844, 23, 62, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[294607, 8282, 75, 1, 27, "Output"], Cell[294685, 8285, 748, 22, 62, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[295436, 8309, 1042, 33, 53, "Output"], Cell[296481, 8344, 693, 20, 69, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[297177, 8366, 247, 8, 44, "Output"], Cell[297427, 8376, 720, 20, 71, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[298150, 8398, 70, 1, 27, "Output"], Cell[298223, 8401, 748, 22, 62, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[298974, 8425, 1047, 34, 53, "Output"], Cell[300024, 8461, 733, 22, 66, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[300760, 8485, 162, 5, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[300959, 8495, 449, 7, 67, "Section"], Cell[301411, 8504, 3552, 53, 63, "Text"], Cell[304966, 8559, 1381, 42, 65, "Input"], Cell[306350, 8603, 3429, 49, 45, "Text"], Cell[309782, 8654, 2207, 47, 153, "Input"], Cell[311992, 8703, 1780, 46, 44, "Input"], Cell[313775, 8751, 3465, 103, 340, "Input"], Cell[317243, 8856, 966, 28, 68, "Input"], Cell[318212, 8886, 8025, 231, 380, "Input"], Cell[326240, 9119, 1939, 59, 68, "Input"], Cell[328182, 9180, 1653, 53, 68, "Input"], Cell[329838, 9235, 6034, 171, 288, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[335909, 9411, 545, 8, 67, "Section"], Cell[336457, 9421, 694, 20, 131, "Input"], Cell[337154, 9443, 371, 11, 71, "Input"], Cell[337528, 9456, 1745, 56, 192, "Input"], Cell[339276, 9514, 1484, 43, 194, "Input"], Cell[340763, 9559, 1376, 34, 249, "Input"], Cell[342142, 9595, 700, 20, 147, "Input"], Cell[342845, 9617, 652, 19, 131, "Input"], Cell[343500, 9638, 530, 15, 131, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[344067, 9658, 349, 6, 67, "Section"], Cell[344419, 9666, 2241, 62, 134, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[346697, 9733, 276, 4, 67, "Section"], Cell[346976, 9739, 180, 5, 45, "Text"], Cell[347159, 9746, 7959, 245, 514, "Input"], Cell[355121, 9993, 980, 28, 44, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[356138, 10026, 332, 5, 67, "Section"], Cell[356473, 10033, 710, 23, 65, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[357220, 10061, 376, 5, 67, "Section"], Cell[357599, 10068, 735, 25, 44, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[358371, 10098, 469, 7, 67, "Section"], Cell[358843, 10107, 1945, 53, 135, "Input"], Cell[360791, 10162, 1636, 40, 59, "Input"], Cell[362430, 10204, 3232, 89, 230, "Input"], Cell[365665, 10295, 8855, 259, 480, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[374523, 10556, 325, 8, 45, "Text"], Cell[374851, 10566, 2460, 74, 221, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[377348, 10645, 478, 7, 67, "Section"], Cell[377829, 10654, 2780, 73, 311, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[380646, 10732, 400, 6, 67, "Section"], Cell[381049, 10740, 991, 30, 92, "Input"], Cell[382043, 10772, 662, 18, 80, "Input"], Cell[382708, 10792, 194, 4, 44, "Input"], Cell[382905, 10798, 2036, 64, 213, "Input"], Cell[384944, 10864, 126, 2, 44, "Input"], Cell[385073, 10868, 1014, 30, 58, "Input"], Cell[386090, 10900, 278, 8, 44, "Input"], Cell[386371, 10910, 2503, 75, 92, "Input"], Cell[388877, 10987, 1209, 40, 105, "Input"], Cell[390089, 11029, 3025, 88, 105, "Input"], Cell[393117, 11119, 1095, 32, 102, "Input"], Cell[394215, 11153, 4636, 150, 390, "Input"], Cell[398854, 11305, 2186, 61, 176, "Input"], Cell[401043, 11368, 922, 26, 100, "Input"], Cell[401968, 11396, 427, 10, 78, "Input"], Cell[402398, 11408, 359, 9, 78, "Input"], Cell[402760, 11419, 423, 10, 78, "Input"], Cell[403186, 11431, 439, 11, 93, "Input"], Cell[403628, 11444, 1073, 33, 82, "Input"], Cell[404704, 11479, 1049, 33, 84, "Input"], Cell[405756, 11514, 2190, 72, 105, "Input"], Cell[407949, 11588, 1157, 36, 65, "Input"], Cell[409109, 11626, 473, 14, 44, "Input"], Cell[409585, 11642, 346, 10, 44, "Input"], Cell[409934, 11654, 1514, 50, 70, "Input"], Cell[411451, 11706, 428, 13, 62, "Input"], Cell[411882, 11721, 813, 22, 44, "Input"], Cell[412698, 11745, 169, 4, 44, "Input"], Cell[412870, 11751, 376, 11, 66, "Input"], Cell[413249, 11764, 695, 24, 68, "Input"], Cell[413947, 11790, 576, 18, 69, "Input"], Cell[414526, 11810, 2038, 63, 159, "Input"], Cell[416567, 11875, 456, 13, 57, "Input"], Cell[417026, 11890, 1116, 34, 65, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[418179, 11929, 255, 4, 67, "Section"], Cell[418437, 11935, 4257, 115, 252, "Input"], Cell[422697, 12052, 2870, 86, 262, "Input"], Cell[425570, 12140, 619, 20, 86, "Input"], Cell[CellGroupData[{ Cell[426214, 12164, 669, 21, 111, "Input"], Cell[426886, 12187, 119, 2, 44, "Output"], Cell[427008, 12191, 106, 1, 27, "Output"] }, Open ]], Cell[427129, 12195, 4373, 128, 207, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[431539, 12328, 241, 3, 67, "Section"], Cell[431783, 12333, 1036, 33, 138, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[432856, 12371, 425, 6, 67, "Section"], Cell[433284, 12379, 1621, 53, 125, "Input"], Cell[434908, 12434, 4288, 123, 327, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[439233, 12562, 223, 3, 67, "Section"], Cell[439459, 12567, 8208, 230, 760, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[447704, 12802, 267, 4, 67, "Section"], Cell[447974, 12808, 844, 28, 111, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[448855, 12841, 210, 3, 67, "Section"], Cell[CellGroupData[{ Cell[449090, 12848, 8123, 245, 635, "Input"], Cell[457216, 13095, 407, 14, 52, "Output"], Cell[457626, 13111, 88, 1, 23, "Print"], Cell[457717, 13114, 154, 3, 23, "Print"], Cell[457874, 13119, 286, 9, 56, "Output"], Cell[458163, 13130, 605, 21, 56, "Output"], Cell[458771, 13153, 585, 20, 56, "Output"], Cell[459359, 13175, 70, 1, 27, "Output"], Cell[459432, 13178, 265, 8, 56, "Output"], Cell[459700, 13188, 258, 8, 45, "Output"], Cell[459961, 13198, 74, 1, 27, "Output"], Cell[460038, 13201, 210, 3, 23, "Print"], Cell[460251, 13206, 286, 9, 56, "Output"], Cell[460540, 13217, 283, 9, 56, "Output"], Cell[460826, 13228, 128, 2, 23, "Print"], Cell[460957, 13232, 276, 9, 45, "Output"] }, Open ]], Cell[461248, 13244, 3087, 96, 621, "Input"], Cell[464338, 13342, 3090, 87, 145, "Input"], Cell[CellGroupData[{ Cell[467453, 13433, 2611, 70, 165, "Input"], Cell[470067, 13505, 245, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[470349, 13516, 2111, 61, 128, "Input"], Cell[472463, 13579, 251, 5, 27, "Output"] }, Open ]], Cell[472729, 13587, 2179, 63, 128, "Input"], Cell[474911, 13652, 1986, 58, 108, "Input"], Cell[476900, 13712, 426, 12, 44, "Input"], Cell[477329, 13726, 392, 12, 44, "Input"], Cell[477724, 13740, 224, 7, 44, "Input"], Cell[477951, 13749, 830, 27, 201, "Input"] }, Open ]], Cell[478796, 13779, 527, 7, 67, "Section"], Cell[CellGroupData[{ Cell[479348, 13790, 558, 8, 47, "Section"], Cell[479909, 13800, 710, 23, 65, "Input"], Cell[480622, 13825, 993, 34, 85, "Input"], Cell[481618, 13861, 268, 9, 44, "Input"], Cell[481889, 13872, 1316, 37, 93, "Input"], Cell[483208, 13911, 870, 25, 65, "Input"], Cell[484081, 13938, 735, 25, 44, "Input"], Cell[484819, 13965, 460, 16, 44, "Input"], Cell[485282, 13983, 568, 18, 44, "Input"], Cell[485853, 14003, 1439, 44, 106, "Input"], Cell[487295, 14049, 3921, 114, 125, "Input"], Cell[491219, 14165, 581, 18, 44, "Input"], Cell[491803, 14185, 527, 18, 65, "Input"], Cell[492333, 14205, 643, 21, 114, "Input"], Cell[492979, 14228, 2350, 73, 217, "Input"], Cell[495332, 14303, 960, 27, 65, "Input"] }, Open ]] } ] *) (* End of internal cache information *)