(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 88134, 3627]*) (*NotebookOutlinePosition[ 89314, 3664]*) (* CellTagsIndexPosition[ 89270, 3660]*) (*WindowFrame->Normal*) Notebook[{ Cell[TextData["Higher Order Equations"], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[TextData["Wronskian"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Compute the Wronskian of the functions\na) ", StyleBox["E^t", FontFamily->"Courier", FontWeight->"Bold"], ", ", StyleBox["E^(-t)", FontFamily->"Courier", FontWeight->"Bold"], ", ", StyleBox["E^(2t)", FontFamily->"Courier", FontWeight->"Bold"], ", ", StyleBox["E^(-2t)\n", FontFamily->"Courier", FontWeight->"Bold"], "b) ", StyleBox["1", FontFamily->"Courier", FontWeight->"Bold"], ", ", StyleBox["t", FontFamily->"Courier", FontWeight->"Bold"], ", ", StyleBox["Cos[t]", FontFamily->"Courier", FontWeight->"Bold"], ", ", StyleBox["Sin[t]", FontFamily->"Courier", FontWeight->"Bold"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["Solution"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ m ={{ E^t, E^(-t), E^(2t), E^(-2t) }, { E^t,-E^(-t),2E^(2t),-2E^(-2t) }, { E^t, E^(-t),4E^(2t), 4E^(-2t) }, { E^t,-E^(-t),8E^(2t),-8E^(-2t) }}; \ \>", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["Det[m]", "Input", AspectRatioFixed->True], Cell[BoxData[ \(72\)], "Output"] }, Open ]], Cell["\<\ w[f1_,f2_,f3_,f4_] :=Det[ {{ f1, f2, f3, f4 }, {D[f1,t], D[f2,t], D[f3,t], D[f4,t] }, {D[f1,{t,2}],D[f2,{t,2}],D[f3,{t,2}],D[f4,{t,2}]}, {D[f1,{t,3}],D[f2,{t,3}],D[f3,{t,3}],D[f4,{t,3}]}}]\ \>", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["w[E^t, E^(-t), E^(2t), E^(-2t)]", "Input", AspectRatioFixed->True], Cell[BoxData[ \(72\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["w[1,t,Cos[t],Sin[t]]", "Input", AspectRatioFixed->True], Cell[BoxData[ \(Cos[t]\^2 + Sin[t]\^2\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Simplify[%,Trig->True]", "Input", AspectRatioFixed->True], Cell[BoxData[ \(1\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData["Finding n-th roots"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Find the 6th roots of ", StyleBox["-4", FontFamily->"Courier", FontWeight->"Bold"], " and plot them." }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["Solution"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["Solve[z^6 == -4]", "Input", AspectRatioFixed->True], Cell[BoxData[ \({{z \[Rule] \(-I\)\ 2\^\(1/3\)}, {z \[Rule] I\ 2\^\(1/3\)}, { z \[Rule] \(-\((\(-1\))\)\^\(1/6\)\)\ 2\^\(1/3\)}, { z \[Rule] \((\(-1\))\)\^\(1/6\)\ 2\^\(1/3\)}, { z \[Rule] \(-\((\(-1\))\)\^\(5/6\)\)\ 2\^\(1/3\)}, { z \[Rule] \((\(-1\))\)\^\(5/6\)\ 2\^\(1/3\)}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["N[%]", "Input", AspectRatioFixed->True], Cell[BoxData[ \({{z \[Rule] \(-1.25992104989487296`\)\ I}, { z \[Rule] 1.25992104989487296`\ I}, { z \[Rule] \(-1.09112363597172134`\) - 0.629960524947436351`\ I}, { z \[Rule] \(1.09112363597172134`\[InvisibleSpace]\) + 0.629960524947436351`\ I}, { z \[Rule] \(1.09112363597172112`\[InvisibleSpace]\) - 0.62996052494743715`\ I}, { z \[Rule] \(-1.09112363597172112`\) + 0.62996052494743715`\ I}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["p = {Re[z], Im[z]} /. %", "Input", AspectRatioFixed->True], Cell[BoxData[ \({{0, \(-1.25992104989487296`\)}, {0, 1.25992104989487296`}, { \(-1.09112363597172134`\), \(-0.629960524947436351`\)}, { 1.09112363597172134`, 0.629960524947436351`}, {1.09112363597172112`, \(-0.62996052494743715`\)}, {\(-1.09112363597172112`\), 0.62996052494743715`}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["ListPlot[p, AspectRatio->1]", "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.436422 0.5 0.377953 [ [.06358 .4875 -6 -9 ] [.06358 .4875 6 0 ] [.28179 .4875 -12 -9 ] [.28179 .4875 12 0 ] [.71821 .4875 -9 -9 ] [.71821 .4875 9 0 ] [.93642 .4875 -3 -9 ] [.93642 .4875 3 0 ] [.4875 .12205 -12 -4.5 ] [.4875 .12205 0 4.5 ] [.4875 .31102 -24 -4.5 ] [.4875 .31102 0 4.5 ] [.4875 .68898 -18 -4.5 ] [.4875 .68898 0 4.5 ] [.4875 .87795 -6 -4.5 ] [.4875 .87795 0 4.5 ] [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .06358 .5 m .06358 .50625 L s [(-1)] .06358 .4875 0 1 Mshowa .28179 .5 m .28179 .50625 L s [(-0.5)] .28179 .4875 0 1 Mshowa .71821 .5 m .71821 .50625 L s [(0.5)] .71821 .4875 0 1 Mshowa .93642 .5 m .93642 .50625 L s [(1)] .93642 .4875 0 1 Mshowa .125 Mabswid .10722 .5 m .10722 .50375 L s .15086 .5 m .15086 .50375 L s .1945 .5 m .1945 .50375 L s .23815 .5 m .23815 .50375 L s .32543 .5 m .32543 .50375 L s .36907 .5 m .36907 .50375 L s .41272 .5 m .41272 .50375 L s .45636 .5 m .45636 .50375 L s .54364 .5 m .54364 .50375 L s .58728 .5 m .58728 .50375 L s .63093 .5 m .63093 .50375 L s .67457 .5 m .67457 .50375 L s .76185 .5 m .76185 .50375 L s .8055 .5 m .8055 .50375 L s .84914 .5 m .84914 .50375 L s .89278 .5 m .89278 .50375 L s .01994 .5 m .01994 .50375 L s .98006 .5 m .98006 .50375 L s .25 Mabswid 0 .5 m 1 .5 L s .5 .12205 m .50625 .12205 L s [(-1)] .4875 .12205 1 0 Mshowa .5 .31102 m .50625 .31102 L s [(-0.5)] .4875 .31102 1 0 Mshowa .5 .68898 m .50625 .68898 L s [(0.5)] .4875 .68898 1 0 Mshowa .5 .87795 m .50625 .87795 L s [(1)] .4875 .87795 1 0 Mshowa .125 Mabswid .5 .15984 m .50375 .15984 L s .5 .19764 m .50375 .19764 L s .5 .23543 m .50375 .23543 L s .5 .27323 m .50375 .27323 L s .5 .34882 m .50375 .34882 L s .5 .38661 m .50375 .38661 L s .5 .42441 m .50375 .42441 L s .5 .4622 m .50375 .4622 L s .5 .5378 m .50375 .5378 L s .5 .57559 m .50375 .57559 L s .5 .61339 m .50375 .61339 L s .5 .65118 m .50375 .65118 L s .5 .72677 m .50375 .72677 L s .5 .76457 m .50375 .76457 L s .5 .80236 m .50375 .80236 L s .5 .84016 m .50375 .84016 L s .5 .08425 m .50375 .08425 L s .5 .04646 m .50375 .04646 L s .5 .00866 m .50375 .00866 L s .5 .91575 m .50375 .91575 L s .5 .95354 m .50375 .95354 L s .5 .99134 m .50375 .99134 L s .25 Mabswid .5 0 m .5 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath .008 w .5 .02381 Mdot .5 .97619 Mdot .02381 .2619 Mdot .97619 .7381 Mdot .97619 .2619 Mdot .02381 .7381 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 282}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^OShn03ooeGooj[ooonICXf=SLcII03=Voc=Vc3=V VC=VIS=VP000ol0000j0003o`0003/000?o0000400008`000?o0000R`0008`000?o0000R`0008`000?o0000 R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000 R`0008`00_n<0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000 S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000 S002oh`0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003 o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003 o`0008/0002<00;oS00008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000 R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000 R`0008`00_n<0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000 S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000N002o`@00_l300?o 1P000ol0002;0000M`001?l00?l300;o1P000ol000030003o`0008/0001g0004o`00o`/000?o0000 0`03oh/0001g0004o`00o`P00ol60003o`0008/0001g0004o`00o`P000?o00001P000ol0002;0000 N002o`T01?l50003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003 o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<00;oS00008`000?o0000 R`0000H00_n40003o`0008800_l700001P02oh@000?o0000PP02o`L0002<0003o`0008/0002<0003 o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<00;o S00008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000 R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000 R`0008`00_n<0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000 S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000 S0000ol0002;0000S002oh`0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003 o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002300?o1P000ol0002;0000 Q0000ol000050003o`0008/000240003o`0000D00on;0000Q0000ol000050003o`0008/000240003 o`0000D000?o0000R`0008<00_l70003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003 o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<00;o S00008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000 R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`00_n<0000 S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000 R`02ohd0002;00;oS@0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`00_n<0000 S0000ol0002;0000S0000ol0002;0000\ \>"], ImageRangeCache->{{{0, 281}, {281, 0}} -> {-1.14569, -1.32293, 0.00815439, 0.00941586}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]], Cell[TextData[{ "\"By hand\" : ", StyleBox["-4 = 4 (Cos[Pi+2m Pi] + I Sin[Pi+2m Pi])", FontFamily->"Courier", FontWeight->"Bold"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["\<\ q = Table[{4^(1/6)Cos[Pi/6 + 2 m Pi/6], 4^(1/6)Sin[Pi/6 + 2 m \ Pi/6]}, \t\t{m, 0, 5}] \ \>", "Input", AspectRatioFixed->True], Cell[BoxData[ \({{\@3\/2\^\(2/3\), 1\/2\^\(2/3\)}, {0, 2\^\(1/3\)}, { \(-\(\@3\/2\^\(2/3\)\)\), 1\/2\^\(2/3\)}, {\(-\(\@3\/2\^\(2/3\)\)\), \(-\(1\/2\^\(2/3\)\)\)}, {0, \(-2\^\(1/3\)\)}, {\@3\/2\^\(2/3\), \(-\(1\/2\^\(2/3\)\)\)}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["ListPlot[q, AspectRatio->1]", "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: 1 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.436422 0.5 0.377953 [ [.06358 .4875 -6 -9 ] [.06358 .4875 6 0 ] [.28179 .4875 -12 -9 ] [.28179 .4875 12 0 ] [.71821 .4875 -9 -9 ] [.71821 .4875 9 0 ] [.93642 .4875 -3 -9 ] [.93642 .4875 3 0 ] [.4875 .12205 -12 -4.5 ] [.4875 .12205 0 4.5 ] [.4875 .31102 -24 -4.5 ] [.4875 .31102 0 4.5 ] [.4875 .68898 -18 -4.5 ] [.4875 .68898 0 4.5 ] [.4875 .87795 -6 -4.5 ] [.4875 .87795 0 4.5 ] [ 0 0 0 0 ] [ 1 1 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .06358 .5 m .06358 .50625 L s [(-1)] .06358 .4875 0 1 Mshowa .28179 .5 m .28179 .50625 L s [(-0.5)] .28179 .4875 0 1 Mshowa .71821 .5 m .71821 .50625 L s [(0.5)] .71821 .4875 0 1 Mshowa .93642 .5 m .93642 .50625 L s [(1)] .93642 .4875 0 1 Mshowa .125 Mabswid .10722 .5 m .10722 .50375 L s .15086 .5 m .15086 .50375 L s .1945 .5 m .1945 .50375 L s .23815 .5 m .23815 .50375 L s .32543 .5 m .32543 .50375 L s .36907 .5 m .36907 .50375 L s .41272 .5 m .41272 .50375 L s .45636 .5 m .45636 .50375 L s .54364 .5 m .54364 .50375 L s .58728 .5 m .58728 .50375 L s .63093 .5 m .63093 .50375 L s .67457 .5 m .67457 .50375 L s .76185 .5 m .76185 .50375 L s .8055 .5 m .8055 .50375 L s .84914 .5 m .84914 .50375 L s .89278 .5 m .89278 .50375 L s .01994 .5 m .01994 .50375 L s .98006 .5 m .98006 .50375 L s .25 Mabswid 0 .5 m 1 .5 L s .5 .12205 m .50625 .12205 L s [(-1)] .4875 .12205 1 0 Mshowa .5 .31102 m .50625 .31102 L s [(-0.5)] .4875 .31102 1 0 Mshowa .5 .68898 m .50625 .68898 L s [(0.5)] .4875 .68898 1 0 Mshowa .5 .87795 m .50625 .87795 L s [(1)] .4875 .87795 1 0 Mshowa .125 Mabswid .5 .15984 m .50375 .15984 L s .5 .19764 m .50375 .19764 L s .5 .23543 m .50375 .23543 L s .5 .27323 m .50375 .27323 L s .5 .34882 m .50375 .34882 L s .5 .38661 m .50375 .38661 L s .5 .42441 m .50375 .42441 L s .5 .4622 m .50375 .4622 L s .5 .5378 m .50375 .5378 L s .5 .57559 m .50375 .57559 L s .5 .61339 m .50375 .61339 L s .5 .65118 m .50375 .65118 L s .5 .72677 m .50375 .72677 L s .5 .76457 m .50375 .76457 L s .5 .80236 m .50375 .80236 L s .5 .84016 m .50375 .84016 L s .5 .08425 m .50375 .08425 L s .5 .04646 m .50375 .04646 L s .5 .00866 m .50375 .00866 L s .5 .91575 m .50375 .91575 L s .5 .95354 m .50375 .95354 L s .5 .99134 m .50375 .99134 L s .25 Mabswid .5 0 m .5 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath .008 w .97619 .7381 Mdot .5 .97619 Mdot .02381 .7381 Mdot .02381 .2619 Mdot .5 .02381 Mdot .97619 .2619 Mdot % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 282}, ImageMargins->{{34, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^OShn03ooeGooj[ooonICXf=SLcII03=Voc=Vc3=V VC=VIS=VP000ol0000j0003o`0003/000?o0000400008`000?o0000R`0008`000?o0000R`0008`000?o0000 R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000 R`0008`00_n<0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000 S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000 S002oh`0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003 o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003 o`0008/0002<00;oS00008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000 R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000 R`0008`00_n<0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000 S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000N002o`@00_l300?o 1P000ol0002;0000M`001?l00?l300;o1P000ol000030003o`0008/0001g0004o`00o`/000?o0000 0`03oh/0001g0004o`00o`P00ol60003o`0008/0001g0004o`00o`P000?o00001P000ol0002;0000 N002o`T01?l50003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003 o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<00;oS00008`000?o0000 R`0000H00_n40003o`0008800_l700001P02oh@000?o0000PP02o`L0002<0003o`0008/0002<0003 o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<00;o S00008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000 R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000 R`0008`00_n<0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000 S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000 S0000ol0002;0000S002oh`0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003 o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002300?o1P000ol0002;0000 Q0000ol000050003o`0008/000240003o`0000D00on;0000Q0000ol000050003o`0008/000240003 o`0000D000?o0000R`0008<00_l70003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003 o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<0003o`0008/0002<00;o S00008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000 R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`00_n<0000 S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000S0000ol0002;0000 R`02ohd0002;00;oS@0008`000?o0000R`0008`000?o0000R`0008`000?o0000R`0008`00_n<0000 S0000ol0002;0000S0000ol0002;0000\ \>"], ImageRangeCache->{{{0, 281}, {281, 0}} -> {-1.14569, -1.32293, 0.00815439, 0.00941586}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData["Solving Linear Differential Equations"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["Find the general solution to"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ L[f_]:= D[f,{t,5}] - 3D[f,{t,4}] + 3D[f,{t,3}] - 3D[f,{t,2}] + \ 2D[f,t]\ \>", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["L[y[t]] == 0", "Input", AspectRatioFixed->True], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"2", " ", RowBox[{ SuperscriptBox["y", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["y", "\[DoublePrime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{"3", " ", RowBox[{ SuperscriptBox["y", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "t", "]"}]}], "-", RowBox[{"3", " ", RowBox[{ SuperscriptBox["y", TagBox[\((4)\), Derivative], MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["y", TagBox[\((5)\), Derivative], MultilineFunction->None], "[", "t", "]"}]}], "==", "0"}]], "Output"] }, Open ]], Cell[TextData["Plot a few solutions."], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["Solution"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Using ", StyleBox["DSolve[]", FontFamily->"Courier", FontWeight->"Bold"], ":" }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["Clear[t,y]", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["DSolve[L[y[t]] == 0, y[t], t]", "Input", AspectRatioFixed->True], Cell[BoxData[ \({{y[t] \[Rule] C[5] + 1\/2\ \((2\ E\^t\ C[3] + E\^\(2\ t\)\ C[4] + 2\ C[1]\ Cos[t] + 2\ C[2]\ Sin[t])\)}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["L[y[t] /. First[%]]", "Input", AspectRatioFixed->True], Cell[BoxData[ \(2\ E\^t\ C[3] + 2\ E\^\(2\ t\)\ C[4] + 2\ C[2]\ Cos[t] - 2\ C[1]\ Sin[t] + 1\/2\ \((2\ E\^t\ C[3] + 32\ E\^\(2\ t\)\ C[4] + 2\ C[2]\ Cos[t] - 2\ C[1]\ Sin[t])\) + 3\/2\ \((2\ E\^t\ C[3] + 8\ E\^\(2\ t\)\ C[4] - 2\ C[2]\ Cos[t] + 2\ C[1]\ Sin[t])\) - 3\/2\ \((2\ E\^t\ C[3] + 4\ E\^\(2\ t\)\ C[4] - 2\ C[1]\ Cos[t] - 2\ C[2]\ Sin[t])\) - 3\/2\ \((2\ E\^t\ C[3] + 16\ E\^\(2\ t\)\ C[4] + 2\ C[1]\ Cos[t] + 2\ C[2]\ Sin[t])\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Simplify[%]", "Input", AspectRatioFixed->True], Cell[BoxData[ \(0\)], "Output"] }, Open ]], Cell[TextData["Using Characteristic Polynomial:"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["Factor[r^5 - 3r^4 + 3r^3 - 3r^2 + 2r]", "Input", AspectRatioFixed->True], Cell[BoxData[ \(\((\(-2\) + r)\)\ \((\(-1\) + r)\)\ r\ \((1 + r\^2)\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Solve[r^5 - 3r^4 + 3r^3 - 3r^2 + 2r==0]", "Input", AspectRatioFixed->True], Cell[BoxData[ \({{r \[Rule] 0}, {r \[Rule] \(-I\)}, {r \[Rule] I}, {r \[Rule] 1}, { r \[Rule] 2}}\)], "Output"] }, Open ]], Cell[TextData[{ "Solutions are: ", StyleBox["y1 == 1, y2 == E^t, y3 == E^(2t), y4 = Cos[t], y5 == Sin[t]", FontFamily->"Courier", FontWeight->"Bold"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["General soution is"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["y = c1 + c2 E^t + c3 E^(2t) + c4 Cos[t] + c5 Sin[t];", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["\<\ g = Flatten[ Table[y /.c3->0, \ {c1,-1,1},{c2,0,1},{c4,0,1},{c5,0,1}]]\ \>", "Input", AspectRatioFixed->True], Cell[BoxData[ \({\(-1\), \(-1\) + Sin[t], \(-1\) + Cos[t], \(-1\) + Cos[t] + Sin[t], \(-1\) + E\^t, \(-1\) + E\^t + Sin[t], \(-1\) + E\^t + Cos[t], \(-1\) + E\^t + Cos[t] + Sin[t], 0, Sin[t], Cos[t], Cos[t] + Sin[t], E\^t, E\^t + Sin[t], E\^t + Cos[t], E\^t + Cos[t] + Sin[t], 1, 1 + Sin[t], 1 + Cos[t], 1 + Cos[t] + Sin[t], 1 + E\^t, 1 + E\^t + Sin[t], 1 + E\^t + Cos[t], 1 + E\^t + Cos[t] + Sin[t]}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Plot[Evaluate[g],{t,-Pi,Pi}]", "Input", AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.151576 0.166789 0.0629912 [ [.04527 .15429 -6 -9 ] [.04527 .15429 6 0 ] [.19685 .15429 -6 -9 ] [.19685 .15429 6 0 ] [.34842 .15429 -6 -9 ] [.34842 .15429 6 0 ] [.65158 .15429 -3 -9 ] [.65158 .15429 3 0 ] [.80315 .15429 -3 -9 ] [.80315 .15429 3 0 ] [.95473 .15429 -3 -9 ] [.95473 .15429 3 0 ] [.4875 .04081 -12 -4.5 ] [.4875 .04081 0 4.5 ] [.4875 .29277 -6 -4.5 ] [.4875 .29277 0 4.5 ] [.4875 .41875 -6 -4.5 ] [.4875 .41875 0 4.5 ] [.4875 .54474 -6 -4.5 ] [.4875 .54474 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .04527 .16679 m .04527 .17304 L s [(-3)] .04527 .15429 0 1 Mshowa .19685 .16679 m .19685 .17304 L s [(-2)] .19685 .15429 0 1 Mshowa .34842 .16679 m .34842 .17304 L s [(-1)] .34842 .15429 0 1 Mshowa .65158 .16679 m .65158 .17304 L s [(1)] .65158 .15429 0 1 Mshowa .80315 .16679 m .80315 .17304 L s [(2)] .80315 .15429 0 1 Mshowa .95473 .16679 m .95473 .17304 L s [(3)] .95473 .15429 0 1 Mshowa .125 Mabswid .07559 .16679 m .07559 .17054 L s .1059 .16679 m .1059 .17054 L s .13622 .16679 m .13622 .17054 L s .16653 .16679 m .16653 .17054 L s .22716 .16679 m .22716 .17054 L s .25748 .16679 m .25748 .17054 L s .28779 .16679 m .28779 .17054 L s .31811 .16679 m .31811 .17054 L s .37874 .16679 m .37874 .17054 L s .40905 .16679 m .40905 .17054 L s .43937 .16679 m .43937 .17054 L s .46968 .16679 m .46968 .17054 L s .53032 .16679 m .53032 .17054 L s .56063 .16679 m .56063 .17054 L s .59095 .16679 m .59095 .17054 L s .62126 .16679 m .62126 .17054 L s .68189 .16679 m .68189 .17054 L s .71221 .16679 m .71221 .17054 L s .74252 .16679 m .74252 .17054 L s .77284 .16679 m .77284 .17054 L s .83347 .16679 m .83347 .17054 L s .86378 .16679 m .86378 .17054 L s .8941 .16679 m .8941 .17054 L s .92441 .16679 m .92441 .17054 L s .01496 .16679 m .01496 .17054 L s .98504 .16679 m .98504 .17054 L s .25 Mabswid 0 .16679 m 1 .16679 L s .5 .04081 m .50625 .04081 L s [(-2)] .4875 .04081 1 0 Mshowa .5 .29277 m .50625 .29277 L s [(2)] .4875 .29277 1 0 Mshowa .5 .41875 m .50625 .41875 L s [(4)] .4875 .41875 1 0 Mshowa .5 .54474 m .50625 .54474 L s [(6)] .4875 .54474 1 0 Mshowa .125 Mabswid .5 .0723 m .50375 .0723 L s .5 .1038 m .50375 .1038 L s .5 .13529 m .50375 .13529 L s .5 .19828 m .50375 .19828 L s .5 .22978 m .50375 .22978 L s .5 .26128 m .50375 .26128 L s .5 .32427 m .50375 .32427 L s .5 .35576 m .50375 .35576 L s .5 .38726 m .50375 .38726 L s .5 .45025 m .50375 .45025 L s .5 .48175 m .50375 .48175 L s .5 .51324 m .50375 .51324 L s .5 .00931 m .50375 .00931 L s .5 .57623 m .50375 .57623 L s .5 .60773 m .50375 .60773 L s .25 Mabswid .5 0 m .5 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .1038 m .06244 .1038 L .10458 .1038 L .14415 .1038 L .18221 .1038 L .22272 .1038 L .26171 .1038 L .30316 .1038 L .34309 .1038 L .3815 .1038 L .42237 .1038 L .46172 .1038 L .49955 .1038 L .53984 .1038 L .57861 .1038 L .61984 .1038 L .65954 .1038 L .69774 .1038 L .73838 .1038 L .77751 .1038 L .81909 .1038 L .85916 .1038 L .89771 .1038 L .93871 .1038 L .97619 .1038 L s .02381 .1038 m .06244 .08792 L .10458 .0718 L .14415 .05888 L .18221 .04932 L .20178 .0457 L .21267 .0441 L .22272 .0429 L .23293 .04195 L .23832 .04157 L .24402 .04124 L .24641 .04114 L .24897 .04104 L .25119 .04096 L .25361 .0409 L .25507 .04087 L .25643 .04085 L .25773 .04083 L .2584 .04082 L .25912 .04082 L .25983 .04081 L .26048 .04081 L .26176 .04081 L .26293 .04081 L .26416 .04081 L .26538 .04082 L .26607 .04083 L .26671 .04084 L .26912 .04088 L .27131 .04093 L .27364 .041 L .27847 .04118 L .2838 .04146 L .29326 .04215 L .30213 .04301 L .32232 .04574 L .34082 .04915 L .38045 .05911 L .41855 .07156 L .45911 .08701 L .49816 .10303 L .53966 .12009 L .57964 .13539 L .61811 .14806 L .63759 .15344 L .65902 .15841 L .67938 .16212 L .69843 .16464 L .70884 .16562 L .71396 .16599 L Mistroke .71872 .16628 L .72301 .16648 L .72758 .16664 L .7302 .1667 L .73148 .16673 L .73266 .16675 L .73371 .16676 L .73487 .16678 L .73603 .16678 L .73725 .16679 L .73856 .16679 L .73977 .16679 L .7404 .16678 L .7411 .16678 L .74251 .16676 L .74375 .16675 L .74508 .16672 L .74748 .16667 L .74985 .1666 L .75235 .16651 L .7568 .16631 L .76198 .16601 L .7668 .16566 L .77773 .16465 L .78828 .16337 L .79823 .1619 L .81683 .15848 L .85534 .14886 L .89632 .13548 L .93577 .1204 L .97371 .10483 L .97619 .1038 L Mfstroke .02381 .04081 m .02499 .04081 L .02605 .04081 L .02729 .04082 L .02846 .04084 L .03053 .04087 L .03279 .04092 L .03527 .04099 L .0379 .04108 L .04262 .04129 L .04749 .04157 L .05205 .0419 L .06244 .04284 L .07305 .0441 L .08274 .04551 L .10458 .04954 L .14429 .05968 L .18248 .07228 L .22313 .08786 L .26226 .10394 L .30384 .121 L .34391 .13624 L .38246 .14878 L .402 .15408 L .42346 .15893 L .44388 .16252 L .45301 .16379 L .46295 .16492 L .46838 .16542 L .4734 .16582 L .4781 .16613 L .4833 .16641 L .48553 .1665 L .48794 .16659 L .49002 .16665 L .4923 .16671 L .49473 .16675 L .49605 .16677 L .49728 .16678 L .49844 .16679 L .49949 .16679 L .50071 .16679 L .50186 .16678 L .50301 .16678 L .50425 .16676 L .50542 .16675 L .50648 .16673 L .5091 .16668 L .51158 .16661 L .5165 .16642 L Mistroke .52187 .16613 L .53144 .16544 L .54032 .16457 L .56088 .16178 L .5795 .15832 L .61962 .14817 L .65822 .13548 L .69928 .11975 L .73882 .1035 L .77684 .08787 L .81732 .07235 L .85628 .05951 L .87613 .05404 L .89769 .04907 L .91843 .04533 L .92832 .04392 L .93759 .04284 L .94643 .04202 L .95595 .04137 L .9611 .04112 L .96369 .04102 L .96652 .04094 L .96894 .04088 L .9703 .04085 L .97153 .04084 L .97268 .04082 L .97393 .04081 L .97511 .04081 L .97619 .04081 L Mfstroke .02381 .04081 m .04262 .0335 L .06244 .02696 L .08255 .02167 L .09409 .01929 L .10458 .01754 L .11464 .01625 L .11926 .01579 L .12415 .01539 L .12664 .01522 L .12937 .01507 L .13189 .01495 L .13419 .01486 L .1369 .01478 L .1384 .01475 L .13908 .01474 L .13982 .01473 L .14112 .01472 L .14234 .01472 L .14308 .01472 L .14378 .01472 L .14509 .01472 L .14625 .01474 L .1475 .01476 L .14867 .01478 L .14974 .01481 L .15237 .01489 L .15485 .01499 L .15979 .01527 L .16517 .01568 L .17476 .01668 L .18364 .01792 L .2023 .02148 L .22291 .02685 L .26311 .04131 L .3018 .05936 L .34294 .08169 L .38256 .10474 L .42067 .12687 L .46123 .1488 L .50027 .1669 L .52019 .1746 L .54177 .18155 L .56257 .18677 L .57248 .18871 L .58175 .1902 L .5908 .19134 L .59545 .1918 L .60052 .19222 L .60339 .19241 L Mistroke .60605 .19255 L .60881 .19268 L .6113 .19276 L .61249 .1928 L .61376 .19283 L .61497 .19285 L .61608 .19286 L .61726 .19287 L .61855 .19288 L .6192 .19288 L .6199 .19288 L .62116 .19287 L .62238 .19286 L .62308 .19285 L .62373 .19284 L .62515 .19281 L .62646 .19277 L .62882 .1927 L .63136 .19259 L .63676 .19227 L .64244 .19182 L .65206 .19078 L .66257 .18923 L .68222 .18526 L .70318 .17951 L .74473 .16397 L .78477 .14474 L .82329 .12353 L .86426 .09962 L .90371 .07686 L .94165 .05666 L .97619 .04081 L Mfstroke .02381 .10652 m .06244 .10731 L .10458 .10844 L .14415 .10982 L .18221 .11154 L .22272 .11391 L .26171 .11688 L .30316 .12099 L .34309 .12617 L .3815 .13262 L .42237 .14154 L .46172 .15273 L .49955 .1666 L .53984 .18573 L .57861 .20961 L .61984 .24268 L .65954 .28427 L .69774 .33598 L .73838 .40739 L .77751 .49681 L s .77751 .49681 m .81815 .61803 L s .02381 .10652 m .06244 .09143 L .10458 .07644 L .14415 .0649 L .16408 .06034 L .18221 .05706 L .19159 .0557 L .20178 .0545 L .20738 .05398 L .21254 .05357 L .21744 .05326 L .22015 .05312 L .22272 .05301 L .22513 .05293 L .22777 .05285 L .22893 .05283 L .23016 .0528 L .23133 .05279 L .23238 .05277 L .23355 .05277 L .23463 .05276 L .2358 .05276 L .23705 .05277 L .23813 .05277 L .23914 .05278 L .24025 .0528 L .24144 .05282 L .2441 .05288 L .24698 .05298 L .25223 .05322 L .25734 .05354 L .26207 .05392 L .27169 .05491 L .28073 .05612 L .30133 .05991 L .32152 .06502 L .34002 .07091 L .37965 .08735 L .41775 .10788 L .45831 .13454 L .49736 .1646 L .53886 .20117 L .57884 .24107 L .61731 .2844 L .65822 .33715 L .69763 .39658 L .73552 .46468 L .77585 .55358 L s .77585 .55358 m .79912 .61803 L s .02381 .04353 m .02605 .04358 L .02846 .04364 L .03279 .04381 L .03793 .04407 L .04262 .04437 L .05281 .04525 L .06244 .04635 L .08265 .04951 L .10458 .05418 L .14545 .0661 L .1848 .08099 L .22263 .09777 L .26292 .1174 L .30169 .13717 L .34292 .15823 L .38262 .17787 L .42082 .19575 L .46146 .21361 L .50059 .23003 L .54217 .24757 L .58224 .26611 L .62079 .28758 L .6618 .31735 L .70128 .35663 L .73925 .40866 L .77968 .4854 L .81859 .58724 L s .81859 .58724 m .82718 .61803 L s .02381 .04353 m .04262 .03658 L .06244 .03047 L .08255 .02568 L .09396 .02363 L .09905 .02288 L .10458 .02218 L .11004 .0216 L .11508 .02118 L .11989 .02087 L .12232 .02075 L .125 .02064 L .12623 .0206 L .12741 .02057 L .12848 .02055 L .12962 .02053 L .13085 .02051 L .13199 .0205 L .13269 .0205 L .13335 .0205 L .13459 .0205 L .13568 .02051 L .13684 .02052 L .13782 .02054 L .1389 .02056 L .14132 .02063 L .14357 .02071 L .14858 .02098 L .15402 .02138 L .15917 .02188 L .16392 .02243 L .18248 .0255 L .19211 .02764 L .20115 .02999 L .22175 .03656 L .26044 .05317 L .30158 .07626 L .3412 .1028 L .37931 .13124 L .41987 .16355 L .45891 .19566 L .50041 .23012 L .54039 .26338 L .57886 .29575 L .61978 .33171 L .65918 .36982 L .69707 .4125 L .73741 .46872 L .77623 .53883 L s .77623 .53883 m .80903 .61803 L s .02381 .16679 m .06244 .16679 L .10458 .16679 L .14415 .16679 L .18221 .16679 L .22272 .16679 L .26171 .16679 L .30316 .16679 L .34309 .16679 L .3815 .16679 L .42237 .16679 L .46172 .16679 L .49955 .16679 L .53984 .16679 L .57861 .16679 L .61984 .16679 L .65954 .16679 L .69774 .16679 L .73838 .16679 L .77751 .16679 L .81909 .16679 L .85916 .16679 L .89771 .16679 L .93871 .16679 L .97619 .16679 L s .02381 .16679 m .06244 .15091 L .10458 .13479 L .14415 .12187 L .18221 .11231 L .20178 .10869 L .21267 .10709 L .22272 .10589 L .23293 .10495 L .23832 .10456 L .24402 .10424 L .24641 .10413 L .24897 .10403 L .25119 .10396 L .25361 .10389 L .25507 .10386 L .25643 .10384 L .25773 .10382 L .2584 .10381 L .25912 .10381 L .25983 .1038 L .26048 .1038 L .26176 .1038 L .26293 .1038 L .26416 .10381 L .26538 .10381 L .26607 .10382 L .26671 .10383 L .26912 .10387 L .27131 .10392 L .27364 .10399 L .27847 .10417 L .2838 .10445 L .29326 .10514 L .30213 .106 L .32232 .10874 L .34082 .11214 L .38045 .1221 L .41855 .13455 L .45911 .15 L .49816 .16602 L .53966 .18308 L .57964 .19838 L .61811 .21105 L .63759 .21643 L .65902 .2214 L .67938 .22511 L .69843 .22764 L .70884 .22861 L .71396 .22898 L Mistroke .71872 .22927 L .72301 .22947 L .72758 .22963 L .7302 .2297 L .73148 .22972 L .73266 .22974 L .73371 .22975 L .73487 .22977 L .73603 .22977 L .73725 .22978 L .73856 .22978 L .73977 .22978 L .7404 .22977 L .7411 .22977 L .74251 .22975 L .74375 .22974 L .74508 .22971 L .74748 .22966 L .74985 .22959 L .75235 .2295 L .7568 .2293 L .76198 .229 L .7668 .22865 L .77773 .22764 L .78828 .22636 L .79823 .22489 L .81683 .22147 L .85534 .21186 L .89632 .19847 L .93577 .18339 L .97371 .16782 L .97619 .16679 L Mfstroke .02381 .1038 m .02499 .1038 L .02605 .1038 L .02729 .10381 L .02846 .10383 L .03053 .10386 L .03279 .10391 L .03527 .10398 L .0379 .10407 L .04262 .10428 L .04749 .10457 L .05205 .10489 L .06244 .10583 L .07305 .10709 L .08274 .1085 L .10458 .11253 L .14429 .12267 L .18248 .13527 L .22313 .15085 L .26226 .16694 L .30384 .18399 L .34391 .19923 L .38246 .21177 L .402 .21707 L .42346 .22192 L .44388 .22551 L .45301 .22678 L .46295 .22791 L .46838 .22841 L .4734 .22881 L .4781 .22912 L .4833 .2294 L .48553 .22949 L .48794 .22958 L .49002 .22964 L .4923 .2297 L .49473 .22974 L .49605 .22976 L .49728 .22977 L .49844 .22978 L .49949 .22978 L .50071 .22978 L .50186 .22978 L .50301 .22977 L .50425 .22976 L .50542 .22974 L .50648 .22972 L .5091 .22967 L .51158 .2296 L .5165 .22941 L Mistroke .52187 .22913 L .53144 .22843 L .54032 .22756 L .56088 .22477 L .5795 .22131 L .61962 .21116 L .65822 .19847 L .69928 .18274 L .73882 .16649 L .77684 .15086 L .81732 .13534 L .85628 .1225 L .87613 .11703 L .89769 .11206 L .91843 .10832 L .92832 .10691 L .93759 .10583 L .94643 .10501 L .95595 .10436 L .9611 .10411 L .96369 .10401 L .96652 .10393 L .96894 .10387 L .9703 .10385 L .97153 .10383 L .97268 .10381 L .97393 .10381 L .97511 .1038 L .97619 .1038 L Mfstroke .02381 .1038 m .04262 .09649 L .06244 .08995 L .08255 .08466 L .09409 .08228 L .10458 .08053 L .11464 .07925 L .11926 .07878 L .12415 .07838 L .12664 .07822 L .12937 .07806 L .13189 .07794 L .13419 .07785 L .1369 .07777 L .1384 .07774 L .13908 .07773 L .13982 .07772 L .14112 .07771 L .14234 .07771 L .14308 .07771 L .14378 .07771 L .14509 .07772 L .14625 .07773 L .1475 .07775 L .14867 .07777 L .14974 .0778 L .15237 .07788 L .15485 .07799 L .15979 .07826 L .16517 .07867 L .17476 .07967 L .18364 .08091 L .2023 .08447 L .22291 .08984 L .26311 .1043 L .3018 .12235 L .34294 .14468 L .38256 .16773 L .42067 .18986 L .46123 .21179 L .50027 .22989 L .52019 .23759 L .54177 .24454 L .56257 .24976 L .57248 .2517 L .58175 .25319 L .5908 .25433 L .59545 .25479 L .60052 .25521 L .60339 .2554 L Mistroke .60605 .25555 L .60881 .25567 L .6113 .25576 L .61249 .25579 L .61376 .25582 L .61497 .25584 L .61608 .25586 L .61726 .25587 L .61855 .25587 L .6192 .25587 L .6199 .25587 L .62116 .25586 L .62238 .25585 L .62308 .25584 L .62373 .25583 L .62515 .2558 L .62646 .25577 L .62882 .25569 L .63136 .25558 L .63676 .25526 L .64244 .25481 L .65206 .25377 L .66257 .25223 L .68222 .24825 L .70318 .2425 L .74473 .22696 L .78477 .20773 L .82329 .18652 L .86426 .16261 L .90371 .13985 L .94165 .11966 L .97619 .1038 L Mfstroke .02381 .16951 m .06244 .1703 L .10458 .17143 L .14415 .17281 L .18221 .17453 L .22272 .1769 L .26171 .17987 L .30316 .18398 L .34309 .18916 L .3815 .19561 L .42237 .20453 L .46172 .21572 L .49955 .22959 L .53984 .24872 L .57861 .2726 L .61984 .30567 L .65954 .34726 L .69774 .39897 L .73838 .47038 L .77751 .5598 L s .77751 .5598 m .79703 .61803 L s .02381 .16951 m .06244 .15442 L .10458 .13943 L .14415 .12789 L .16408 .12334 L .18221 .12005 L .19159 .11869 L .20178 .1175 L .20738 .11697 L .21254 .11656 L .21744 .11625 L .22015 .11611 L .22272 .116 L .22513 .11592 L .22777 .11584 L .22893 .11582 L .23016 .11579 L .23133 .11578 L .23238 .11577 L .23355 .11576 L .23463 .11575 L .2358 .11575 L .23705 .11576 L .23813 .11577 L .23914 .11578 L .24025 .11579 L .24144 .11581 L .2441 .11588 L .24698 .11597 L .25223 .11621 L .25734 .11653 L .26207 .11691 L .27169 .1179 L .28073 .11911 L .30133 .1229 L .32152 .12801 L .34002 .1339 L .37965 .15034 L .41775 .17088 L .45831 .19753 L .49736 .2276 L .53886 .26416 L .57884 .30406 L .61731 .3474 L .65822 .40014 L .69763 .45957 L .73552 .52768 L .77585 .61657 L s .77585 .61657 m .77638 .61803 L s .02381 .10652 m .02605 .10657 L .02846 .10663 L .03279 .1068 L .03793 .10706 L .04262 .10736 L .05281 .10824 L .06244 .10935 L .08265 .1125 L .10458 .11717 L .14545 .12909 L .1848 .14398 L .22263 .16076 L .26292 .18039 L .30169 .20016 L .34292 .22122 L .38262 .24086 L .42082 .25874 L .46146 .27661 L .50059 .29302 L .54217 .31056 L .58224 .32911 L .62079 .35057 L .6618 .38035 L .70128 .41962 L .73925 .47165 L .77968 .54839 L s .77968 .54839 m .80629 .61803 L s .02381 .10652 m .04262 .09957 L .06244 .09346 L .08255 .08867 L .09396 .08663 L .09905 .08587 L .10458 .08517 L .11004 .08459 L .11508 .08417 L .11989 .08386 L .12232 .08374 L .125 .08363 L .12623 .08359 L .12741 .08356 L .12848 .08354 L .12962 .08352 L .13085 .0835 L .13199 .08349 L .13269 .08349 L .13335 .08349 L .13459 .08349 L .13568 .0835 L .13684 .08351 L .13782 .08353 L .1389 .08355 L .14132 .08362 L .14357 .08371 L .14858 .08397 L .15402 .08437 L .15917 .08487 L .16392 .08543 L .18248 .08849 L .19211 .09063 L .20115 .09298 L .22175 .09955 L .26044 .11616 L .30158 .13925 L .3412 .16579 L .37931 .19423 L .41987 .22654 L .45891 .25865 L .50041 .29311 L .54039 .32637 L .57886 .35874 L .61978 .3947 L .65918 .43281 L .69707 .47549 L .73741 .53171 L .77623 .60182 L s .77623 .60182 m .78295 .61803 L s .02381 .22978 m .06244 .22978 L .10458 .22978 L .14415 .22978 L .18221 .22978 L .22272 .22978 L .26171 .22978 L .30316 .22978 L .34309 .22978 L .3815 .22978 L .42237 .22978 L .46172 .22978 L .49955 .22978 L .53984 .22978 L .57861 .22978 L .61984 .22978 L .65954 .22978 L .69774 .22978 L .73838 .22978 L .77751 .22978 L .81909 .22978 L .85916 .22978 L .89771 .22978 L .93871 .22978 L .97619 .22978 L s .02381 .22978 m .06244 .2139 L .10458 .19778 L .14415 .18486 L .18221 .1753 L .20178 .17168 L .21267 .17008 L .22272 .16888 L .23293 .16794 L .23832 .16755 L .24402 .16723 L .24641 .16712 L .24897 .16702 L .25119 .16695 L .25361 .16688 L .25507 .16685 L .25643 .16683 L .25773 .16681 L .2584 .16681 L .25912 .1668 L .25983 .1668 L .26048 .16679 L .26176 .16679 L .26293 .16679 L .26416 .1668 L .26538 .16681 L .26607 .16681 L .26671 .16682 L .26912 .16686 L .27131 .16691 L .27364 .16698 L .27847 .16717 L .2838 .16745 L .29326 .16813 L .30213 .16899 L .32232 .17173 L .34082 .17514 L .38045 .18509 L .41855 .19754 L .45911 .213 L .49816 .22902 L .53966 .24607 L .57964 .26138 L .61811 .27404 L .63759 .27942 L .65902 .28439 L .67938 .2881 L .69843 .29063 L .70884 .2916 L .71396 .29198 L Mistroke .71872 .29226 L .72301 .29246 L .72758 .29262 L .7302 .29269 L .73148 .29271 L .73266 .29273 L .73371 .29275 L .73487 .29276 L .73603 .29277 L .73725 .29277 L .73856 .29277 L .73977 .29277 L .7404 .29276 L .7411 .29276 L .74251 .29275 L .74375 .29273 L .74508 .2927 L .74748 .29265 L .74985 .29258 L .75235 .29249 L .7568 .29229 L .76198 .29199 L .7668 .29165 L .77773 .29063 L .78828 .28935 L .79823 .28788 L .81683 .28446 L .85534 .27485 L .89632 .26146 L .93577 .24638 L .97371 .23081 L .97619 .22978 L Mfstroke .02381 .16679 m .02499 .16679 L .02605 .1668 L .02729 .16681 L .02846 .16682 L .03053 .16685 L .03279 .1669 L .03527 .16697 L .0379 .16706 L .04262 .16727 L .04749 .16756 L .05205 .16788 L .06244 .16882 L .07305 .17008 L .08274 .17149 L .10458 .17552 L .14429 .18566 L .18248 .19826 L .22313 .21384 L .26226 .22993 L .30384 .24699 L .34391 .26222 L .38246 .27476 L .402 .28006 L .42346 .28491 L .44388 .2885 L .45301 .28977 L .46295 .2909 L .46838 .29141 L .4734 .2918 L .4781 .29212 L .4833 .29239 L .48553 .29249 L .48794 .29257 L .49002 .29264 L .4923 .29269 L .49473 .29273 L .49605 .29275 L .49728 .29276 L .49844 .29277 L .49949 .29277 L .50071 .29277 L .50186 .29277 L .50301 .29276 L .50425 .29275 L .50542 .29273 L .50648 .29271 L .5091 .29266 L .51158 .29259 L .5165 .2924 L Mistroke .52187 .29212 L .53144 .29142 L .54032 .29056 L .56088 .28776 L .5795 .2843 L .61962 .27415 L .65822 .26146 L .69928 .24574 L .73882 .22948 L .77684 .21385 L .81732 .19834 L .85628 .18549 L .87613 .18002 L .89769 .17505 L .91843 .17131 L .92832 .1699 L .93759 .16882 L .94643 .168 L .95595 .16735 L .9611 .1671 L .96369 .167 L .96652 .16692 L .96894 .16686 L .9703 .16684 L .97153 .16682 L .97268 .16681 L .97393 .1668 L .97511 .16679 L .97619 .16679 L Mfstroke .02381 .16679 m .04262 .15948 L .06244 .15294 L .08255 .14765 L .09409 .14527 L .10458 .14352 L .11464 .14224 L .11926 .14178 L .12415 .14137 L .12664 .14121 L .12937 .14105 L .13189 .14093 L .13419 .14084 L .1369 .14077 L .1384 .14074 L .13908 .14073 L .13982 .14072 L .14112 .1407 L .14234 .1407 L .14308 .1407 L .14378 .1407 L .14509 .14071 L .14625 .14072 L .1475 .14074 L .14867 .14076 L .14974 .14079 L .15237 .14087 L .15485 .14098 L .15979 .14125 L .16517 .14166 L .17476 .14266 L .18364 .1439 L .2023 .14746 L .22291 .15283 L .26311 .16729 L .3018 .18535 L .34294 .20767 L .38256 .23073 L .42067 .25286 L .46123 .27479 L .50027 .29289 L .52019 .30058 L .54177 .30754 L .56257 .31275 L .57248 .31469 L .58175 .31618 L .5908 .31732 L .59545 .31779 L .60052 .3182 L .60339 .31839 L Mistroke .60605 .31854 L .60881 .31866 L .6113 .31875 L .61249 .31878 L .61376 .31881 L .61497 .31883 L .61608 .31885 L .61726 .31886 L .61855 .31886 L .6192 .31886 L .6199 .31886 L .62116 .31885 L .62238 .31884 L .62308 .31883 L .62373 .31882 L .62515 .31879 L .62646 .31876 L .62882 .31868 L .63136 .31857 L .63676 .31826 L .64244 .31781 L .65206 .31676 L .66257 .31522 L .68222 .31124 L .70318 .30549 L .74473 .28995 L .78477 .27072 L .82329 .24951 L .86426 .2256 L .90371 .20284 L .94165 .18265 L .97619 .16679 L Mfstroke .02381 .2325 m .06244 .23329 L .10458 .23442 L .14415 .2358 L .18221 .23752 L .22272 .23989 L .26171 .24286 L .30316 .24697 L .34309 .25215 L .3815 .2586 L .42237 .26752 L .46172 .27871 L .49955 .29259 L .53984 .31171 L .57861 .33559 L .61984 .36866 L .65954 .41025 L .69774 .46197 L .73838 .53337 L s .73838 .53337 m .77543 .61803 L s .02381 .2325 m .06244 .21741 L .10458 .20242 L .14415 .19088 L .16408 .18633 L .18221 .18304 L .19159 .18168 L .20178 .18049 L .20738 .17996 L .21254 .17956 L .21744 .17925 L .22015 .17911 L .22272 .17899 L .22513 .17891 L .22777 .17883 L .22893 .17881 L .23016 .17879 L .23133 .17877 L .23238 .17876 L .23355 .17875 L .23463 .17874 L .2358 .17874 L .23705 .17875 L .23813 .17876 L .23914 .17877 L .24025 .17878 L .24144 .1788 L .2441 .17887 L .24698 .17896 L .25223 .1792 L .25734 .17952 L .26207 .1799 L .27169 .18089 L .28073 .1821 L .30133 .18589 L .32152 .191 L .34002 .19689 L .37965 .21333 L .41775 .23387 L .45831 .26052 L .49736 .29059 L .53886 .32715 L .57884 .36705 L .61731 .41039 L .65822 .46313 L .69763 .52256 L .73552 .59067 L s .73552 .59067 m .74793 .61803 L s .02381 .16951 m .02605 .16956 L .02846 .16963 L .03279 .16979 L .03793 .17005 L .04262 .17036 L .05281 .17123 L .06244 .17234 L .08265 .17549 L .10458 .18016 L .14545 .19208 L .1848 .20697 L .22263 .22375 L .26292 .24338 L .30169 .26315 L .34292 .28421 L .38262 .30385 L .42082 .32173 L .46146 .3396 L .50059 .35601 L .54217 .37355 L .58224 .3921 L .62079 .41356 L .6618 .44334 L .70128 .48261 L .73925 .53464 L .77968 .61139 L s .77968 .61139 m .78222 .61803 L s .02381 .16951 m .04262 .16256 L .06244 .15645 L .08255 .15167 L .09396 .14962 L .09905 .14886 L .10458 .14816 L .11004 .14759 L .11508 .14716 L .11989 .14685 L .12232 .14673 L .125 .14662 L .12623 .14658 L .12741 .14655 L .12848 .14653 L .12962 .14651 L .13085 .14649 L .13199 .14648 L .13269 .14648 L .13335 .14648 L .13459 .14648 L .13568 .14649 L .13684 .14651 L .13782 .14652 L .1389 .14654 L .14132 .14661 L .14357 .1467 L .14858 .14696 L .15402 .14737 L .15917 .14786 L .16392 .14842 L .18248 .15148 L .19211 .15362 L .20115 .15597 L .22175 .16254 L .26044 .17915 L .30158 .20224 L .3412 .22878 L .37931 .25722 L .41987 .28953 L .45891 .32164 L .50041 .35611 L .54039 .38936 L .57886 .42173 L .61978 .45769 L .65918 .4958 L .69707 .53848 L .73741 .5947 L s .73741 .5947 m .75033 .61803 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{282, 174}, ImageMargins->{{34, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHggYjN[Vi^OShn03ooeGooj[ooonICXf=SLcII03=Voc=Vc3=V VC=VIS=V0003o`0004l00olI00;o7P0001<0 2Ol00`3oo`0Co`@01Ol0103ooolI0003o`0000L000?o00000`02oa@00ol;0003o`0004`00olJ00;o 800001403?lE00Co0P02o`050?ooo`000_lH00;o2002o`D00_lE00;o2@000ol0001900?o70000ol0 000P00003`07ob000_l200;o0P05oaP00_l800;o1@02oaD00ol60003o`0004H00olM00;o8`0000`0 1olU00Ko0`04oaP000?o00001`000ol0000400;o5P02o`@000?o0000A002oah00_lU00002P05obd0 1?l400?o5`02o`P00_l60003o`0001D00ol00`3o001200?o7P02obL0000800?o=@03o`@00olF00;o 20000ol0000400;o6002od400_lO00;o:@0000L0ool00?o0P03o`800_l400?o1P04oa@0 0ol600;o00@0oooo1006o`030?oo00D00ol400;o1@000ol0000:0003o`0001000olB00?o0`03ob80 1?l400?o4P03o`<000?o00001003o`h0000A0003o`0000P00ol200?o1`03o`@00ol40003o`0001H0 0_l70003o`0000?o0`000ol0000200Ko1@04o`800_l400;o2P02oa@00_lA0003o`3o00;o9P02o`80 0olC00;o1002o`X000?o00002`0000P01Ol40003o`0000H00_l200?o3@03o`030?oo00Co0P000ol0 000G00;o1P07o`030?l000L000?o0?l01?l400?o00<0o`0010000ol000070003o`0001D00ol=00?o 9`02o`040?oooa<00ol400;o30000ol0000;00003`02o`H00ol200;o00<0ool04ol400;o00<0o`00 6@02o`H00_l300Co1`02o`@01Ol200Co10000ol000060003o`0001P00ol700?o00<0o`009P001_l0 ool0oa400ol500;o3002o`h0000A0004o`0000;o0P06oa@01?l00`3o0002oa/00ol600;o0P000ol0 o`03o`H000?o00001P04o`040?ooo`<000?o00001@000ol0000K00?o00@0oooo10000ol0000S00Go 0P000ol0000<00?o1P02oa0000?o00002`0000h00ol201oo1009oaX00ol600?o0`06o`<000?o0000 2@03o`030?oo00800_l50003o`0001`01_l300;o8`04o`<00_l;00Co1`02o`l00ol>00004@08oaT0 1?l300;o0P04oaT01?l600;o1002o`800ol00`3oo`0<00Go0P000ol000020003o`0001P01?l600Go 8004oa000ol:0003o`000200000>00Oo8@08o`<00olH0004o`3oo`H000?o00000`02o`<01?l>00Ko 0`000ol0000E00?o3`03oa/01?l?00?o2`02ob<0000;00Ko:P05o`@00olF00;o00<0ool01@02o`D0 0ol400Ko2`04o`8000?o00004@04oaD01?lE00?o3@05o``00_lU00002006oc001?l400Co5@000ol0 0002o`D00_l600;o0`02o`<01ol700Co3@06oad01Ol>00?o2@06o`l00_lW0000oolJo`4000040003 o`0001go0P000ol000060003o`0000D000Co00002ol20003o`0000?o0`09o`P000?o00000P02o`05 0?l00?l01@001?l0ool20003o`3o00P000?o00001@06o`8000?o00001P000ol000050003o`0000H0 00?o00001@000ol000060003o`0000D000Co00000ol20003o`0000D000?o00001P000ol000050003 o`00008000Go0000o`070004o`0000ko0P02o`@000?o00000`0000d000?o00000P04o`030?oo00;o 2@0Go`X00ol600?o2005o`@00_l500;o0`02o`L000Co003o4@001?l0o`05ob4000?o00004003oaD0 00?o00002002o``01?l=00?o300001H02ol?00Ko100;o`800ol600?o2`05o`030?l000D00_l300;o 1P000ol00002o`l000Co003o0P06obh00olQ00;o2`03o`l00ol>00006`05o`030?oo00?o1@05o`D0 7?l0103oool>00Ko1002o`<000?o00001002o`8000?o000030001Ol0003o00<00ol0103ooolW00Go 8P000ol0000700Co4004o`l0000P00Co0P05o`H01?lF00?o0P00003o`0000T000?o00006`04oal0 0_lN00?o2P0002@05_l<00;o1P02oa<00_l400;o1002o`H000Co003o4@000ol00006o``000?o0000 2@000ol0000G00Co8002oad00ol=0000>P0Co`<00_lC0003o`0000<00_l40003o`0000@00_l00`3o o`0?0005o`000?l00P05o`X000?o00002@000ol0000C00Co8@02oa`00ol@0000BP02o`030?oo00Ko 4@000ol0000400;o0`02o`H00_l00`3o000=0003o`0000800_l200Oo1P000ol000090003o`000100 1?lR00;o7002oa<0001<00;o1@09o`/00_l600?o0P02o`H000?o0?l03@000ol000040004o`0000Co 00<0ool00_l30003o`0000T000?o00002`06ob800_lL00;o5@0004h00_l700?o0P08o`D000?o0000 1P02o`800_l500?o30000ol000050003o`0000801Ol200Go2`000ol0000600Co00<0ool08`02oa/0 0olG0000D002o`P00ol700Go00<0ool02002o`800_l500;o2`000ol000060003o`0000801_l501Co 0`02ob@000?o00006@02oaX0001B00;o2@03o`T01_l700;o0P02o`@00ol90003o`0000L000?o0000 0`02o`040?ooo`@000?o00002@000ol0000400?o9002oaX00_lL0000E002o`X00ol:0003o`3o00Co 1002o`8000?o00000`02o`P00_l900;o1@000ol00004o`8000?o00002@000ol00003obD00_lI00?o 7P0005H00_l;00Co1`000ol0000300Co0P05o`@00_l70003o`0000P000?o0?l01@02o`801_l900Co 9`000ol0000E00Co8@0005P00_l=00?o1@000ol0000600?o0P04o`<00_l60003o`0000T000?o0?l0 1P001?l00002o`800ol300?o0`000ol0000S00;o5004obD0001J00;o3P04o`800_l900?o00<0ool0 0_l200;o1@000ol0000:0003o`3o00H00_l300;o00<0ool01?l60003o`0002000_lB00Co:@0005`0 0_l@00?o00<0o`002P07o`8000?o00000P000ol0000;0004o`3oo`H000?o00001Ol400?o10000ol0 000M00;o4@03obd0001N00;o4@04o``02?l30003o`0000`000Co003o1@03o`<00ol600Co00<0o`00 70000ol0000>00?o<00006000_lB00Oo2@06o`8000?o00003@000ol00005o`800_l400;o2@06oaL0 0_l<00Go<`0006800_lA0003o`0000<01?l60003o`0000Go3@07o`L000?o00000P03o`T000Co0000 1Ol@00;o2006ocP0001T00;o4002o`L06ol40004o`00o`L000?o00000P000ol0o`090003o`0000D0 6_ln0000IP000ol0000?0003o`0000`000?o00000P04o`l000?o00000_l600;o0`000ol0o`090003 o`0000l00om:0000I`02oa0000?o000020001?l00?l40003o`3o00?o3P001Ol0003o00L000Ko0000 o`02o`L000?o00003003odd0001Y00;o3`000ol0000800;o1@001?l00?l200?o30001Ol0003o00L0 00Co003o0`000ol000050003o`0000P00om@0000J`02o`h00_l?0005o`000?l00P05o`X000Go0000 o`070004o`00o`<00_l60003o`0000@00omC0000K@02o`h000?o000030000ol0000200;o0P02o`03 0?oo00;o1P000ol000020003o`0000@000Go0000o`040003o`0000<000Co00000omF0000K`03o``0 00?o00002`000ol000040004o`0000;o00<0ool01?l30003o`0000800_l50005o`000?l010000ol0 000200CoF@0007800_l;0003o`0000X000?o00001@000ol0000200;o00<0ool00P08o`8000?o0000 0`000ol0000:o`8000?o0000F00007@00_l:0003o`0000T000?o00001P000ol0000300;o00<0o`00 1@000ol0000;o`030?l000@000?o00000P000ol0001H0000MP02o`T00_l900;o20000ol000040004 o`3oo`D000?o00000`000ol000030004o`00o`D000?o00000P000ol0001G0000N002o`T000?o0000 1P000ol0000800;o1@02o`030?oo00@000?o00000`000ol000030003o`3o00H000?o00000P000ol0 001F0000NP03o`L000?o00001@000ol0000900;o1P02o`030?oo00<000?o00000`000ol000030003 o`3o00H000Go0000o`1H0000O@02o`H000?o000010000ol0000:00;o1`02o`030?oo008000?o0000 0`000ol000030003o`3o00H000Go0000o`1G0000O`02o`D00_l40003o`0000/00_l80003o`0000;o 00<0o`0010000ol000030003o`3o00H000Go0000o`1F0000P@02o`D000Go0000o`0>00?o1`001ol0 003o0?l01@000ol0000300;o1`001?l00?mF0000P`03o`<000Co003o3`000ol0o`070004o`0000?o 1@000ol0000300;o1`001?l00?mE0000QP03o`040?l0oa0000?o0?l01`000ol0000200;o1@000ol0 000300;o1`001?l00?mD0000R@04oa4000?o0?l01`02o`<00ol40003o`0000800_l80003o`3o05@0 002<00;o4@000ol0o`080007o`000?l0o`040003o`0000800_l80003o`3o05<0002<0003o`3o00;o 3`001?l0ool70007o`000?l0o`040003o`0000800_l70003o`3o05<0002<0005o`00o`000_l>0004 o`00o`L000Ko0000o`02o`<000?o00000P000ol000060003o`3o0580002<0005o`000?l00P02o`d0 00Co003o1`001?l00?l30005o`000?l00`02o`P000?o0?l0D@0008`000?o00000P02o`800ol:0005 o`000?l01`001?l00?l300;o0P001?l00002o`P00_mA0000S0000ol000040003o`0000800_l90005 o`000?l01`001?l00?l40003o`3o00@000?o00001P000ol0o`1@0000S0000ol000050003o`0000<0 0_l80004o`0000;o1P001?l00?l40003o`3o00<00_l800;oD00008`000?o00001P000ol0000400?o 1P000ol000020003o`0000@000?o0?l01@000ol0o`030003o`0000L00_m?0000S0000ol000070003 o`0000H00_l50003o`00008000?o000010000ol0o`050003o`3o00<000?o00001`02odh0002<00;o 2@02o`P00_l40003o`00008000?o000010000ol0o`050003o`3o00<000?o00001P02odh0002<0003 o`0000X000?o00001`02o`<000?o00000P000ol0000400;o1P000ol0o`020003o`0000L00_m=0000 S0000ol0000;0003o`0000P00_l20003o`00008000?o00001002o`H00_l30003o`0000L000?o0000 B`0008`000?o000030000ol0000900;o00<0o`000`000ol0000400;o1P02o`<000?o00001P02od`0 002<0003o`0000d000?o00002P000ol0o`040003o`0000@00_l600;o0P000ol0000700;oB`0008`0 00?o00003P000ol0000:00?o10000ol000040003o`0000D00_l20003o`0000L000?o0000B@0008`0 00?o00003`000ol0000;00;o10000ol000040003o`0000D00_l00`3oo`090003o`0004P0002500?o 10000ol0000@0003o`0000/00ol30003o`0000<00_l700;o00<0o`0020000ol000180000QP000ol0 00030003o`00014000?o00002`000ol0o`030003o`0000<000?o00001P001?l00?l90003o`0004L0 002400Co1003oa8000?o00002`000ol0o`030003o`0000<000?o00001P000ol0o`090003o`0004L0 00240003o`3o00D000?o00004`02o``000?o0?l00`000ol0000200;o1`02o`030?l000P000?o0000 AP0008@000?o0?l01@000ol0000E0003o`0000T000?o00000_l20003o`00008000?o00001P001?l0 ool80003o`0004H0002500;o1@000ol0000F0003o`0000T000Go0000o`020003o`00008000?o0000 1P000ol0o`0800;oA`0008`000?o00005`000ol000090005o`000?l00P001?l00002o`P000?o0?l0 20000ol000150000S0000ol0000H0003o`0000T000Oo0000o`3o00@00_l70003o`3o00P00_m60000 S0000ol0000I00;o2@000ol000020003o`3o00@000?o00001P000ol0o`080003o`0004@0002<0003 o`0001/000?o00001`000ol000020003o`3o00<00_l800?o1`02odD0002<0003o`0001`000?o0000 1`000ol000020003o`3o00<00_l800;o2002od@0002<00;o7P000ol000060003o`0000<000?o0?l0 0`000ol0000600?o1`02od@0002<0003o`0001h000?o00001P000ol000030003o`3o00800_l800;o 2002od<0002<0003o`0001l00_l70003o`0000<00_l300;o2002o`L00_m30000S0000ol0000Q0003 o`0000D000?o00000`02o`<000?o00001P03o`H000?o0?l0@P0008`000?o00008P000ol000040003 o`0000@00_l200;o2002o`L00_m20000S0000ol0000S0003o`0000@000?o00001002o`8000?o0000 1`02o`H000?o0?l0@@0008`000?o000090000ol000040003o`0000@00_l20003o`0000H00_l700;o @@0008`000?o00009@000ol000030003o`0000D00_l00`3oo`0800;o1P000ol0o`100000S002obL0 00?o00000`000ol000050004o`00o`P00_l700;o@00008`000?o00009`000ol000030003o`0000D0 00Co0?oo2002o`H000?o0?l0?`0008`000?o0000:0000ol000020003o`0000D00_l00`3o00080003 o`0000@000?o0?l0?`0008`000?o0000:@000ol000020003o`0000D00_l00`3o00070003o`0000D0 00?o0?l0?P0008`000?o0000:P000ol000020003o`0000D000Co0?oo1`02o`H000?o0?l0?P0008`0 00?o0000:P000ol000020003o`0000H000?o0?l020000ol0000500;o?P0008`000?o0000:`000ol0 00020003o`0000H00ol700;o1P000ol0o`0m0000S0000ol0000/0005o`000?l02003o`P00_l600;o ?@0008`000?o0000;@001Ol0003o00P000?o0?l01`02o`H00_lm0000S002obl000Go0000o`0800;o 2002o`D000?o0?l0?00008`000?o0000;`001?l00?l900;o1`02o`H00_ll0000S0000ol0000_0005 o`000?l02003o`L00_l50003o`3o03/0002<0003o`00030000Go0000o`0800;o1`02o`D000?o0?l0 >`0008`000?o0000<@001?l00?l900;o1`02o`D00_lk0000S0000ol0000b0004o`00o`T000?o0000 1@03o`@000?o0?l0>P0008`000?o0000<`000ol0o`0900;o1P03o`@000?o0?l0>P0008D00_l50003 o`0003@000?o0?l02@000ol0000500?o10000ol0o`0i0000Q0001?l00?l40003o`0003@000Co003o 2002o`H00ol40003o`3o03T000240004o`00o`@00ole0003o`3o00T000?o00001@03o`<000?o0?l0 >@0008@00ol50003o`0003H000?o0?l02002o`H000?o0?l010000ol0o`0h0000Q0000ol000050003 o`0003H000?o0?l02@000ol0000500?o0`000ol0o`0h0000Q@03o`@000?o0000=`000ol0o`0800;o 1P000ol0o`030003o`3o03P0002<0003o`0003P000?o0?l020000ol0000500?o0`000ol0o`0g0000 S0000ol0000h0003o`3o00P00_l600?o0`000ol0o`0g0000S0000ol0000i0003o`3o00P000?o0000 10000ol0o`030004o`00ocH0002<0003o`0003X00_l800;o1P03o`<000?o0?l0=P0008`000?o0000 >`02o`P000?o000010000ol0o`030003o`3o03H0002<00;o?002o`P00_l500Co0P001?l00?le0000 S0000ol0000l00;o1`02o`H000?o0?l00`000ol0o`0e0000S0000ol0000m00;o1`02o`D000Co0?oo 0P000ol0o`0e0000S0000ol0000m00;o1`03o`@01?l20004o`00oc@0002<0003o`0003h00_l700;o 1@001?l0ool20003o`3o03@0002<0003o`0003l000?o00001@03o`@000Co0?oo0P001?l00?lc0000 S0000ol0000o00;o1`02o`@00_l01@3oo`3o008000?o0000<@0008`000?o0000@0000ol0000500?o 10001?l0ool20003o`3o03<0002<0003o`00044000?o000010000ol0o`0400;o00D0o`00o`020003 o`000300002<00;o@P000ol0000500?o0`02o`050?oo0?l00P000ol0000`0000S0000ol0001100;o 1P000ol0o`040004o`3oo`8000?o0?l0"], ImageRangeCache->{{{0, 281}, {173, 0}} -> {-3.31142, -2.64786, 0.0235688, 0.0567137}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Example", "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Solve the initial value problem\n\t", StyleBox[ "y''''[t] - 4 y'''[t] + 4y''[t] == 0,\n\ty[1]==-1, y'[1]==2, y''[1]== 0, \ y'''[1]==0", "Input"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["Solution"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["In one step:"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["Clear[t,y]", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["\<\ DSolve[{y''''[t] - 4 y'''[t] + 4y''[t] == 0, y[1]==-1, y'[1]==2, y''[1]== 0, y'''[1]==0}, y[t],t]\ \>", "Input", AspectRatioFixed->True], Cell[BoxData[ \({{y[t] \[Rule] \(-3\) + 2\ t}}\)], "Output"] }, Open ]], Cell[TextData["Step by step: First find the general solution."], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["Factor[r^4 - 4r^3 + 4r^2]", "Input", AspectRatioFixed->True], Cell[BoxData[ \(\((\(-2\) + r)\)\^2\ r\^2\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Solve[r^4 - 4r^3 + 4r^2==0]", "Input", AspectRatioFixed->True], Cell[BoxData[ \({{r \[Rule] 0}, {r \[Rule] 0}, {r \[Rule] 2}, {r \[Rule] 2}}\)], "Output"] }, Open ]], Cell[TextData["Because of repeated roots the general solution is:"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["y[t_] = c1 + c2 t + c3 E^(2t) + c4 t E^(2t);", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["eqns = {y[1]==-1, y'[1]==2, y''[1]== 0, y'''[1]==0} ", "Input", AspectRatioFixed->True], Cell[BoxData[ \({c1 + c2 + c3\ E\^2 + c4\ E\^2 == \(-1\), c2 + 2\ c3\ E\^2 + 3\ c4\ E\^2 == 2, 4\ c3\ E\^2 + 8\ c4\ E\^2 == 0, 8\ c3\ E\^2 + 20\ c4\ E\^2 == 0}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Solve[eqns]", "Input", AspectRatioFixed->True], Cell[BoxData[ \({{c1 \[Rule] \(-3\), c2 \[Rule] 2, c3 \[Rule] 0, c4 \[Rule] 0}}\)], "Output"] }, Open ]], Cell[TextData[ "Specific solution to the initial value problem is thus:"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["y[t_] = y[t] /. First[%]", "Input", AspectRatioFixed->True], Cell[BoxData[ \(\(-3\) + 2\ t\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Method of Undetermined Coefficients for Non-homogeneous, Constant \ Coefficient, Linear Differential Equations\n", StyleBox[" L[y[t]] == g[t]", FontFamily->"Courier"] }], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Idea: For simple functions ", StyleBox["g[t]", FontFamily->"Courier", FontWeight->"Bold"], " we can \"guess\" the form of particular solution." }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell["Example", "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["Find the general solution of"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["y''''[t] - y'''[t] == Sin[2t]", "Input", AspectRatioFixed->True], Cell[BoxData[ \(0 == Sin[2\ t]\)], "Output"] }, Open ]], Cell[TextData["Solution"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell["Clear[t,y]", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["DSolve[y''''[t] - y'''[t]==Sin[2t],y[t],t]", "Input", AspectRatioFixed->True], Cell[BoxData[ \({{y[t] \[Rule] C[2] + t\ C[3] + t\^2\ C[4] + 1\/40\ \((40\ E\^t\ C[1] - Cos[2\ t] + 2\ Sin[2\ t])\)}}\)], "Output"] }, Open ]], Cell[TextData["Step by step: First solve the homogeneous equation"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["\<\ L[f_] := D[f,{t,4}] - D[f,{t,3}]; L[y[t]] == 0\ \>", "Input", AspectRatioFixed->True], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["y", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["y", TagBox[\((4)\), Derivative], MultilineFunction->None], "[", "t", "]"}]}], "==", "0"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Solve[r^4 - r^3 == 0]", "Input", AspectRatioFixed->True], Cell[BoxData[ \({{r \[Rule] 0}, {r \[Rule] 0}, {r \[Rule] 0}, {r \[Rule] 1}}\)], "Output"] }, Open ]], Cell[TextData[ "The general solution of the homogeneous equation is thus "], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["yc = c1 + c2 t + c3 t^2 + c4 E^t;", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["L[yc]", "Input", AspectRatioFixed->True], Cell[BoxData[ \(0\)], "Output"] }, Open ]], Cell[TextData[{ "To find a particular solution ", StyleBox["L[yp] = Sin[2t]", FontFamily->"Courier", FontWeight->"Bold"], "try" }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["yp = a Cos[2t] + b Sin[2t];", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["L[yp]", "Input", AspectRatioFixed->True], Cell[BoxData[ \(16\ a\ Cos[2\ t] + 8\ b\ Cos[2\ t] - 8\ a\ Sin[2\ t] + 16\ b\ Sin[2\ t]\)], "Output"] }, Open ]], Cell[TextData[{ "To get ", StyleBox["Sin[2t]", FontFamily->"Courier", FontWeight->"Bold"], " we must choose ", StyleBox["a", FontFamily->"Courier", FontWeight->"Bold"], " and ", StyleBox["b", FontFamily->"Courier", FontWeight->"Bold"], " such that" }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ eqns = {16 a + 8 b == 0, -8 a + 16 b == 1};\ \>", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["Solve[eqns]", "Input", AspectRatioFixed->True], Cell[BoxData[ \({{a \[Rule] \(-\(1\/40\)\), b \[Rule] 1\/20}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["yp = yp /. First[%]", "Input", AspectRatioFixed->True], Cell[BoxData[ \(\(-\(1\/40\)\)\ Cos[2\ t] + 1\/20\ Sin[2\ t]\)], "Output"] }, Open ]], Cell[TextData["The general solution of the original equation is then"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["y = yc + yp", "Input", AspectRatioFixed->True], Cell[BoxData[ \(c1 + c4\ E\^t + c2\ t + c3\ t\^2 - 1\/40\ Cos[2\ t] + 1\/20\ Sin[2\ t]\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Example", "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["Find the general solution of"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["y''''[t] - y[t] == 3t + Cos[t]", "Input", AspectRatioFixed->True], Cell[BoxData[ RowBox[{ RowBox[{ \(-\((c1 + c4\ E\^t + c2\ t + c3\ t\^2 - 1\/40\ Cos[2\ t] + 1\/20\ Sin[2\ t])\)[t]\), "+", RowBox[{ SuperscriptBox[ \((c1 + c4\ E\^t + c2\ t + c3\ t\^2 - 1\/40\ Cos[2\ t] + 1\/20\ Sin[2\ t])\), TagBox[\((4)\), Derivative], MultilineFunction->None], "[", "t", "]"}]}], "==", \(3\ t + Cos[t]\)}]], "Output"] }, Open ]], Cell[TextData["Solution"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell["Clear[t,y]", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["DSolve[y''''[t] - y[t] == 3t + Cos[t], y[t], t]", "Input", AspectRatioFixed->True], Cell[BoxData[ \({{y[t] \[Rule] E\^\(-t\)\ C[1] + E\^t\ C[4] + C[3]\ Cos[t] + 1\/8\ \((6 - 6\ t - Cos[t] - Sin[t])\) - C[2]\ Sin[t] + 1\/8\ \((\(-6\) - 6\ t - Cos[t] + Sin[t])\) + \(Cot[t]\ \((\(-12\)\ t\ Cos[t] - Cos[2\ t] + 12\ Sin[t])\)\ \((3\ t\ Sin[t] + Cos[t]\ Sin[t])\)\)\/\(8\ \((3\ t + Cos[t])\)\) - \(\((3\ t\ Cos[t] + Cos[t]\^2)\)\ \((2\ t + 12\ Cos[t] + 12\ t\ Sin[t] + Sin[2\ t])\)\ Tan[t]\)\/\(8\ \((3\ t + Cos[t])\)\)}}\)], "Output"] }, Open ]], Cell[TextData["Step by step: First solve the homogeneous equation"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["Clear[t,y]", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["\<\ L[f_] := D[f,{t,4}] - f; L[y[t]] == 0\ \>", "Input", AspectRatioFixed->True], Cell[BoxData[ RowBox[{ RowBox[{\(-y[t]\), "+", RowBox[{ SuperscriptBox["y", TagBox[\((4)\), Derivative], MultilineFunction->None], "[", "t", "]"}]}], "==", "0"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Solve[r^4 - 1 == 0]", "Input", AspectRatioFixed->True], Cell[BoxData[ \({{r \[Rule] \(-1\)}, {r \[Rule] \(-I\)}, {r \[Rule] I}, {r \[Rule] 1}} \)], "Output"] }, Open ]], Cell[TextData["The general solution of the homogeneous equation is"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["yc = c1 E^t + c2 E^(-t) + c3 Cos[t] + c4 Sin[t]", "Input", AspectRatioFixed->True], Cell[BoxData[ \(c2\ E\^\(-t\) + c1\ E\^t + c3\ Cos[t] + c4\ Sin[t]\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["L[yc]", "Input", AspectRatioFixed->True], Cell[BoxData[ \(0\)], "Output"] }, Open ]], Cell[TextData[{ "To find a particular solution, ", StyleBox["L[yp] == 3 t + Cos[t] ", FontFamily->"Courier", FontWeight->"Bold"], "try" }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["yp = a t + b Cos[t] + c Sin[t];", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["L[yp]", "Input", AspectRatioFixed->True], Cell[BoxData[ \(\(-a\)\ t\)], "Output"] }, Open ]], Cell[TextData[{ "The ", StyleBox["Cos[t]", FontFamily->"Courier", FontWeight->"Bold"], " and ", StyleBox["Sin[t]", FontFamily->"Courier", FontWeight->"Bold"], " terms vanish because they satisfy ", StyleBox["L[y[t]] == 0", FontFamily->"Courier", FontWeight->"Bold"], ". To get a particular solution to \"survive\" the linear operator ", StyleBox["L", FontFamily->"Courier", FontWeight->"Bold"], " multiply ", StyleBox["Cos[t]", FontFamily->"Courier", FontWeight->"Bold"], " and ", StyleBox["Sin[t]", FontFamily->"Courier", FontWeight->"Bold"], " by ", StyleBox["t:", FontFamily->"Courier", FontWeight->"Bold"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["yp = a t + b t Cos[t] + c t Sin[t];", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["L[yp]", "Input", AspectRatioFixed->True], Cell[BoxData[ \(\(-a\)\ t - 4\ c\ Cos[t] + 4\ b\ Sin[t]\)], "Output"] }, Open ]] }, Open ]], Cell[TextData[{ "To get ", StyleBox["3 t + Cos[t]", FontFamily->"Courier", FontWeight->"Bold"], " take " }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "{a -> -3", StyleBox[", ", FontFamily->"Times", FontWeight->"Plain"], "c -> -1/4, b -> 0};" }], "Input", AspectRatioFixed->True], Cell[TextData[ "The general solution of the original equation is thus "], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["\<\ y[t_] = yc + yp /. % \ \>", "Input", AspectRatioFixed->True], Cell[BoxData[ \(c2\ E\^\(-t\) + c1\ E\^t - 3\ t + c3\ Cos[t] + c4\ Sin[t] - 1\/4\ t\ Sin[t]\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Example", "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["Find the general solution of"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["y'''[t] - 2y''[t] + y'[t] == t^3 + 2 E^t", "Input", AspectRatioFixed->True], Cell[BoxData[ \(\(-3\) - 2\ c2\ E\^\(-t\) + 2\ c1\ E\^t + Sin[t]\/2 - 2\ \((c2\ E\^\(-t\) + c1\ E\^t - Cos[t]\/2 - c3\ Cos[t] - c4\ Sin[t] + 1\/4\ t\ Sin[t])\) == 2\ E\^t + t\^3\)], "Output"] }, Open ]], Cell[TextData["Solution"], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell["Clear[t,y]", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["DSolve[y'''[t] - 2y''[t] + y'[t] == t^3 + 2 E^t, y[t], t]", "Input", AspectRatioFixed->True], Cell[BoxData[ \({{y[t] \[Rule] 24\ t + 9\ t\^2 + 2\ t\^3 + t\^4\/4 + E\^t\ \((2 + t\^2 + C[1] + t\ \((\(-2\) + C[2])\) - C[2])\) + C[3]}}\)], "Output"] }, Open ]], Cell[TextData["Step by step: First solve the homogeneous equation"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["L[f_] := D[f,{t,3}] - 2D[f,{t,2}] + D[f,t]", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["L[y[t]] == 0", "Input", AspectRatioFixed->True], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["y", "\[Prime]", MultilineFunction->None], "[", "t", "]"}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["y", "\[DoublePrime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["y", TagBox[\((3)\), Derivative], MultilineFunction->None], "[", "t", "]"}]}], "==", "0"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["Solve[r^3 - 2r^2 + r == 0]", "Input", AspectRatioFixed->True], Cell[BoxData[ \({{r \[Rule] 0}, {r \[Rule] 1}, {r \[Rule] 1}}\)], "Output"] }, Open ]], Cell[TextData["The solution of the homogeneous equation is thus"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["yc = c1 + c2 E^t + c3 t E^t;", "Input", AspectRatioFixed->True], Cell[TextData[{ "To find a particular solution to ", StyleBox["L[y] == t^3 + 2 E^t", FontFamily->"Courier", FontWeight->"Bold"], " try " }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["yp = a + b t + c t^2 + d t^3 + k E^t;", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["L[yp] //Simplify", "Input", AspectRatioFixed->True], Cell[BoxData[ \(b + 2\ c\ \((\(-2\) + t)\) + 3\ d\ \((2 - 4\ t + t\^2)\)\)], "Output"] }, Open ]], Cell[TextData[{ "We cannot solve for the constants to make this equal ", StyleBox["t^3 + 2 E^t.", FontFamily->"Courier", FontWeight->"Bold"], " The reason: " }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["{L[t], L[t^2], L[t^3], L[E^t], L[t E^t]}//Simplify", "Input", AspectRatioFixed->True], Cell[BoxData[ \({1, 2\ \((\(-2\) + t)\), 3\ \((2 - 4\ t + t\^2)\), 0, 0}\)], "Output"] }, Open ]], Cell[TextData[{ "The linear operator ", StyleBox["L", FontFamily->"Courier", FontWeight->"Bold"], " lowers the degree of any polynomial it acts on by one because ", StyleBox["r == 0", FontFamily->"Courier", FontWeight->"Bold"], " is a root of the characteristic equation. To make the polynomial \ \"survive\" ", StyleBox["L", FontFamily->"Courier", FontWeight->"Bold"], " to the correct degree we need to start with a polynomial of 4th degree. \ Also, since ", StyleBox["L[E^t] == 0", FontFamily->"Courier", FontWeight->"Bold"], ", ", StyleBox["L[t E^t] == 0, ", FontFamily->"Courier", FontWeight->"Bold"], "we need to try ", StyleBox["t^2 E^t", FontFamily->"Courier", FontWeight->"Bold"], " instead of just ", StyleBox["E^t", FontFamily->"Courier", FontWeight->"Bold"], " or ", StyleBox["t E^t", FontFamily->"Courier", FontWeight->"Bold"], " in order for the function to \"survive\" ", StyleBox["L", FontFamily->"Courier", FontWeight->"Bold"], " and produce a term like ", StyleBox["E^t.", FontFamily->"Courier", FontWeight->"Bold"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["yp = t(a + b t + c t^2 + d t^3) + k t^2 E^t;", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["L[yp] //Simplify", "Input", AspectRatioFixed->True], Cell[BoxData[ \(a + 6\ c + 2\ E\^t\ k + 2\ b\ \((\(-2\) + t)\) - 12\ c\ t + 24\ d\ t + 3\ c\ t\^2 - 24\ d\ t\^2 + 4\ d\ t\^3\)], "Output"] }, Open ]], Cell[TextData[{ "To make this equal ", StyleBox["t^3 + 2E^t", FontFamily->"Courier", FontWeight->"Bold"], ", choose the constants so that" }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell["\<\ eqns = {a - 4b + 6 c == 0, 2 k == 2, 2 b - 12 c + 24 d == 0, 3 c - 24 d == 0, 4 d == 1};\ \>", "Input", AspectRatioFixed->True], Cell[CellGroupData[{ Cell["Solve[eqns]", "Input", AspectRatioFixed->True], Cell[BoxData[ \({{a \[Rule] 24, b \[Rule] 9, c \[Rule] 2, d \[Rule] 1\/4, k \[Rule] 1}} \)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell["yp = yp /. First[%]", "Input", AspectRatioFixed->True], Cell[BoxData[ \(E\^t\ t\^2 + t\ \((24 + 9\ t + 2\ t\^2 + t\^3\/4)\)\)], "Output"] }, Open ]], Cell[TextData["The general solution is thus"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["y[t_] = yc + yp", "Input", AspectRatioFixed->True], Cell[BoxData[ \(c1 + c2\ E\^t + c3\ E\^t\ t + E\^t\ t\^2 + t\ \((24 + 9\ t + 2\ t\^2 + t\^3\/4)\)\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "General Rules", StyleBox["", FontWeight->"Plain"] }], "Subsubsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ "Let ", StyleBox["P_m[t]", FontFamily->"Courier", FontWeight->"Bold"], " be a given polynomial of degree ", StyleBox["m", FontFamily->"Courier", FontWeight->"Bold"], ", and let ", StyleBox["Q_m[t], R_m[t]", FontFamily->"Courier", FontWeight->"Bold"], " stand for general polynomials of degree ", StyleBox["m", FontFamily->"Courier", FontWeight->"Bold"], ".\n\n", StyleBox["g[t] == P_m[t]\n yp == t^s Q_m[t]\n s == ", FontFamily->"Courier", FontWeight->"Bold"], "number of times ", StyleBox["0", FontFamily->"Courier", FontWeight->"Bold"], " is a root of the characteristic equation", StyleBox[ "\n\ng[t] == P_m[t] E^(a t)\n yp == t^s Q_m[t] E^(a t)\n s == ", FontFamily->"Courier", FontWeight->"Bold"], "number of times ", StyleBox["a", FontFamily->"Courier", FontWeight->"Bold"], " is a root of the characteristic equation", StyleBox[ "\n\n\ng[t] == P_m[t] E^(a t)(Sin[b t] or Cos[b t])\n yp == t^s E^(a \ t)(Q_m[t]Cos[b t]+R_m[t]Sin[b t])\n s == ", FontFamily->"Courier", FontWeight->"Bold"], "number of times ", StyleBox["a + I b", FontFamily->"Courier", FontWeight->"Bold"], " is a root of the characteristic equation" }], "Text", Evaluatable->False, AspectRatioFixed->True] }, Open ]] }, FrontEndVersion->"Macintosh 3.0", ScreenRectangle->{{0, 1024}, {0, 748}}, WindowToolbars->{"RulerBar", "EditBar"}, CellGrouping->Manual, WindowSize->{684, 644}, WindowMargins->{{60, Automatic}, {Automatic, 31}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, 128}}, ShowCellLabel->False, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, CharacterEncoding->"MacintoshAutomaticEncoding", MacintoshSystemPageSetup->"\<\ 00<0004/0B`000003]X;>omOoel?O0_B0fL5:0?l0080004/0B`000000]P2:001 0000D00000400`<300000BL?00400@63?d000000000006P801T1T00000000000 00000000004000000000000000000000\>" ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1709, 49, 102, 2, 44, "Subsection"], Cell[CellGroupData[{ Cell[1836, 55, 92, 2, 41, "Subsubsection"], Cell[1931, 59, 754, 35, 64, "Text"], Cell[2688, 96, 91, 2, 41, "Subsubsection"], Cell[2782, 100, 213, 7, 87, "Input"], Cell[CellGroupData[{ Cell[3020, 111, 49, 1, 27, "Input"], Cell[3072, 114, 36, 1, 26, "Output"] }, Open ]], Cell[3123, 118, 285, 7, 87, "Input"], Cell[CellGroupData[{ Cell[3433, 129, 75, 1, 27, "Input"], Cell[3511, 132, 36, 1, 26, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3584, 138, 63, 1, 27, "Input"], Cell[3650, 141, 55, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3742, 147, 65, 1, 27, "Input"], Cell[3810, 150, 35, 1, 26, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3894, 157, 101, 2, 41, "Subsubsection"], Cell[3998, 161, 192, 8, 31, "Text"], Cell[4193, 171, 91, 2, 41, "Subsubsection"], Cell[CellGroupData[{ Cell[4309, 177, 59, 1, 27, "Input"], Cell[4371, 180, 327, 5, 51, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4735, 190, 47, 1, 27, "Input"], Cell[4785, 193, 503, 11, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5325, 209, 66, 1, 27, "Input"], Cell[5394, 212, 335, 5, 41, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5766, 222, 70, 1, 27, "Input"], Cell[5839, 225, 9570, 312, 290, 2773, 222, "GraphicsData", "PostScript", "Graphics"], Cell[15412, 539, 130, 3, 26, "Output"] }, Open ]], Cell[15557, 545, 202, 7, 31, "Text"], Cell[CellGroupData[{ Cell[15784, 556, 138, 6, 57, "Input"], Cell[15925, 564, 272, 4, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16234, 573, 70, 1, 27, "Input"], Cell[16307, 576, 9570, 312, 290, 2773, 222, "GraphicsData", "PostScript", "Graphics"], Cell[25880, 890, 130, 3, 26, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26059, 899, 120, 2, 41, "Subsubsection"], Cell[26182, 903, 102, 2, 30, "Text"], Cell[26287, 907, 123, 4, 27, "Input"], Cell[CellGroupData[{ Cell[26435, 915, 55, 1, 27, "Input"], Cell[26493, 918, 950, 28, 28, "Output"] }, Open ]], Cell[27458, 949, 95, 2, 30, "Text"], Cell[27556, 953, 91, 2, 41, "Subsubsection"], Cell[27650, 957, 168, 8, 31, "Text"], Cell[27821, 967, 53, 1, 27, "Input"], Cell[CellGroupData[{ Cell[27899, 972, 72, 1, 27, "Input"], Cell[27974, 975, 184, 4, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28195, 984, 62, 1, 27, "Input"], Cell[28260, 987, 543, 10, 162, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28840, 1002, 54, 1, 27, "Input"], Cell[28897, 1005, 35, 1, 26, "Output"] }, Open ]], Cell[28947, 1009, 106, 2, 30, "Text"], Cell[CellGroupData[{ Cell[29078, 1015, 80, 1, 27, "Input"], Cell[29161, 1018, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29285, 1024, 82, 1, 27, "Input"], Cell[29370, 1027, 123, 2, 26, "Output"] }, Open ]], Cell[29508, 1032, 221, 7, 31, "Text"], Cell[29732, 1041, 92, 2, 30, "Text"], Cell[29827, 1045, 95, 1, 27, "Input"], Cell[CellGroupData[{ Cell[29947, 1050, 121, 4, 27, "Input"], Cell[30071, 1056, 456, 7, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30564, 1068, 71, 1, 27, "Input"], Cell[30638, 1071, 38344, 1728, 182, 23141, 1534, "GraphicsData", "PostScript", "Graphics"], Cell[68985, 2801, 130, 3, 26, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[69164, 2810, 80, 2, 41, "Subsubsection"], Cell[69247, 2814, 227, 7, 64, "Text"], Cell[69477, 2823, 91, 2, 41, "Subsubsection"], Cell[69571, 2827, 86, 2, 30, "Text"], Cell[69660, 2831, 53, 1, 27, "Input"], Cell[CellGroupData[{ Cell[69738, 2836, 152, 4, 42, "Input"], Cell[69893, 2842, 64, 1, 26, "Output"] }, Open ]], Cell[69972, 2846, 120, 2, 30, "Text"], Cell[CellGroupData[{ Cell[70117, 2852, 68, 1, 27, "Input"], Cell[70188, 2855, 59, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[70284, 2861, 70, 1, 27, "Input"], Cell[70357, 2864, 97, 2, 26, "Output"] }, Open ]], Cell[70469, 2869, 124, 2, 30, "Text"], Cell[70596, 2873, 87, 1, 27, "Input"], Cell[CellGroupData[{ Cell[70708, 2878, 95, 1, 27, "Input"], Cell[70806, 2881, 191, 3, 51, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[71034, 2889, 54, 1, 27, "Input"], Cell[71091, 2892, 100, 2, 26, "Output"] }, Open ]], Cell[71206, 2897, 130, 3, 30, "Text"], Cell[CellGroupData[{ Cell[71361, 2904, 67, 1, 27, "Input"], Cell[71431, 2907, 47, 1, 26, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[71527, 2914, 263, 7, 56, "Subsubsection"], Cell[71793, 2923, 234, 8, 31, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[72064, 2936, 80, 2, 41, "Subsubsection"], Cell[72147, 2940, 102, 2, 30, "Text"], Cell[CellGroupData[{ Cell[72274, 2946, 72, 1, 27, "Input"], Cell[72349, 2949, 48, 1, 26, "Output"] }, Open ]], Cell[72412, 2953, 91, 2, 41, "Subsubsection"], Cell[72506, 2957, 53, 1, 27, "Input"], Cell[CellGroupData[{ Cell[72584, 2962, 85, 1, 27, "Input"], Cell[72672, 2965, 162, 4, 42, "Output"] }, Open ]], Cell[72849, 2972, 124, 2, 30, "Text"], Cell[CellGroupData[{ Cell[72998, 2978, 97, 4, 42, "Input"], Cell[73098, 2984, 426, 14, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[73561, 3003, 64, 1, 27, "Input"], Cell[73628, 3006, 97, 2, 26, "Output"] }, Open ]], Cell[73740, 3011, 132, 3, 30, "Text"], Cell[73875, 3016, 76, 1, 27, "Input"], Cell[CellGroupData[{ Cell[73976, 3021, 48, 1, 27, "Input"], Cell[74027, 3024, 35, 1, 26, "Output"] }, Open ]], Cell[74077, 3028, 202, 8, 31, "Text"], Cell[74282, 3038, 70, 1, 27, "Input"], Cell[CellGroupData[{ Cell[74377, 3043, 48, 1, 27, "Input"], Cell[74428, 3046, 112, 2, 26, "Output"] }, Open ]], Cell[74555, 3051, 346, 16, 31, "Text"], Cell[74904, 3069, 103, 4, 42, "Input"], Cell[CellGroupData[{ Cell[75032, 3077, 54, 1, 27, "Input"], Cell[75089, 3080, 79, 1, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[75205, 3086, 62, 1, 27, "Input"], Cell[75270, 3089, 78, 1, 42, "Output"] }, Open ]], Cell[75363, 3093, 127, 2, 30, "Text"], Cell[CellGroupData[{ Cell[75515, 3099, 54, 1, 27, "Input"], Cell[75572, 3102, 111, 2, 42, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[75732, 3110, 80, 2, 41, "Subsubsection"], Cell[75815, 3114, 102, 2, 30, "Text"], Cell[CellGroupData[{ Cell[75942, 3120, 73, 1, 27, "Input"], Cell[76018, 3123, 475, 13, 94, "Output"] }, Open ]], Cell[76508, 3139, 91, 2, 41, "Subsubsection"], Cell[76602, 3143, 53, 1, 27, "Input"], Cell[CellGroupData[{ Cell[76680, 3148, 90, 1, 27, "Input"], Cell[76773, 3151, 582, 10, 138, "Output"] }, Open ]], Cell[77370, 3164, 124, 2, 30, "Text"], Cell[77497, 3168, 53, 1, 27, "Input"], Cell[CellGroupData[{ Cell[77575, 3173, 88, 4, 42, "Input"], Cell[77666, 3179, 244, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77947, 3192, 62, 1, 27, "Input"], Cell[78012, 3195, 111, 2, 26, "Output"] }, Open ]], Cell[78138, 3200, 125, 2, 30, "Text"], Cell[CellGroupData[{ Cell[78288, 3206, 90, 1, 27, "Input"], Cell[78381, 3209, 84, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[78502, 3215, 48, 1, 27, "Input"], Cell[78553, 3218, 35, 1, 26, "Output"] }, Open ]], Cell[78603, 3222, 209, 8, 31, "Text"], Cell[78815, 3232, 74, 1, 27, "Input"], Cell[CellGroupData[{ Cell[78914, 3237, 48, 1, 27, "Input"], Cell[78965, 3240, 43, 1, 26, "Output"] }, Open ]], Cell[79023, 3244, 753, 31, 48, "Text"], Cell[79779, 3277, 78, 1, 27, "Input"], Cell[CellGroupData[{ Cell[79882, 3282, 48, 1, 27, "Input"], Cell[79933, 3285, 73, 1, 26, "Output"] }, Open ]] }, Open ]], Cell[80033, 3290, 178, 8, 31, "Text"], Cell[80214, 3300, 160, 7, 27, "Input"], Cell[80377, 3309, 129, 3, 30, "Text"], Cell[CellGroupData[{ Cell[80531, 3316, 80, 4, 42, "Input"], Cell[80614, 3322, 116, 2, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[80767, 3329, 80, 2, 41, "Subsubsection"], Cell[80850, 3333, 102, 2, 30, "Text"], Cell[CellGroupData[{ Cell[80977, 3339, 83, 1, 27, "Input"], Cell[81063, 3342, 219, 3, 94, "Output"] }, Open ]], Cell[81297, 3348, 91, 2, 41, "Subsubsection"], Cell[81391, 3352, 53, 1, 27, "Input"], Cell[CellGroupData[{ Cell[81469, 3357, 100, 1, 27, "Input"], Cell[81572, 3360, 192, 4, 44, "Output"] }, Open ]], Cell[81779, 3367, 124, 2, 30, "Text"], Cell[81906, 3371, 85, 1, 27, "Input"], Cell[CellGroupData[{ Cell[82016, 3376, 55, 1, 27, "Input"], Cell[82074, 3379, 509, 15, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[82620, 3399, 69, 1, 27, "Input"], Cell[82692, 3402, 79, 1, 26, "Output"] }, Open ]], Cell[82786, 3406, 122, 2, 30, "Text"], Cell[82911, 3410, 71, 1, 27, "Input"], Cell[82985, 3413, 211, 8, 31, "Text"], Cell[83199, 3423, 80, 1, 27, "Input"], Cell[CellGroupData[{ Cell[83304, 3428, 59, 1, 27, "Input"], Cell[83366, 3431, 90, 1, 31, "Output"] }, Open ]], Cell[83471, 3435, 231, 8, 31, "Text"], Cell[CellGroupData[{ Cell[83727, 3447, 93, 1, 27, "Input"], Cell[83823, 3450, 90, 1, 31, "Output"] }, Open ]], Cell[83928, 3454, 1213, 45, 82, "Text"], Cell[85144, 3501, 87, 1, 27, "Input"], Cell[CellGroupData[{ Cell[85256, 3506, 59, 1, 27, "Input"], Cell[85318, 3509, 149, 2, 28, "Output"] }, Open ]], Cell[85482, 3514, 212, 8, 31, "Text"], Cell[85697, 3524, 187, 7, 87, "Input"], Cell[CellGroupData[{ Cell[85909, 3535, 54, 1, 27, "Input"], Cell[85966, 3538, 112, 2, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[86115, 3545, 62, 1, 27, "Input"], Cell[86180, 3548, 85, 1, 45, "Output"] }, Open ]], Cell[86280, 3552, 102, 2, 30, "Text"], Cell[CellGroupData[{ Cell[86407, 3558, 58, 1, 27, "Input"], Cell[86468, 3561, 122, 2, 45, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[86639, 3569, 143, 6, 41, "Subsubsection"], Cell[86785, 3577, 1333, 47, 251, "Text"] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)