(*********************************************************************** 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[ 37087, 1245]*) (*NotebookOutlinePosition[ 38142, 1281]*) (* CellTagsIndexPosition[ 38098, 1277]*) (*WindowFrame->Normal*) Notebook[{ Cell[TextData[ "Mathematics 263 Laboratory 1 \ September 1, 1993\n\t \nName: _____________________________ \ Lab Partner: ___________________________\n\t \nConsulted with: \ ____________________________________________________________"], "Text", CellMargins->{{17, Inherited}, {Inherited, Inherited}}, Evaluatable->False, CellLabelMargins->{{1, Inherited}, {Inherited, Inherited}}, AspectRatioFixed->True], Cell[TextData["Introduction to Second Order\nDifferential Equations"], "Title", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "In this laboratory we will learn how to solve second order differential \ equations that are linear with constant coefficients, that is equations of \ the form"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica MathPictureStart % Start of picture % Scaling calculations 0 1 0 1 [ [ 0.000000 0.000000 0 0 ] [ 1.000000 0.127451 0 0 ] ] MathScale % Start of Graphics 0 setgray 0 setlinewidth gsave 0.000000 0.000000 translate 1.000000 0.127451 scale 1 string 102 13 1 [102 0 0 13 0 0] { currentfile 1 index readhexstring pop } false 3 colorimage FFFFFFFC01FFFFFFFFFFFFFFFFFFFFE00FFFFFFFFFFFFFFFFF803FFFFFFF FFF007FFFFFFFFFFC0 FFFFFFE3FE3FFFFFFFFFFFFFFFFFFF1FF1FFFFFFFFFFFFFFFC7FC7FFFFFF FF8FF8FFFFFFFFF1C0 FFFFFFFFFFC7FFFFFFFFFFFFFFFFFFFFFE3FFFFFFFFFFFFFFFFFF8FFFFFF FFFFFF1C7FFF1FFE00 FF8007FF8007FFFFFFFFFFFF000FFFFC003FFFFFFFFFFE00FFF000FFFFFF FFFE0003FFF803FE00 FF8FF8FF8FF8FFFFFFFFFFFFE3FE3FFC7FC7FFFFFFFFFE3FE3F1FF1C0007 FFFE3FE3FFF8E3FFC0 FF8FF8FF8FF8FFFFFF1FFFFFE3FE3FFC7FC7FFF1FFFFFE3FFFF1FF1FFFFF FFFE3F03FFF8FC7FC0 FFF1FF1FF1FF1FFFFF1FFFFFFC7FC7FF8FF8FFF1FFFFFFC7FFFE3FE3FFFF FFFFC71C7FFF1C7FC0 FFFE001FF1FF1FFFC0007FFFFC7FC7FF8FF8FC0007FFFFC7FFFE3FE00007 FFFFC71C7FFF1C7FC0 FFFE3FE3FE3FE3FFFF1FFFFFFF8FF8FFF1FF1FF1FFFFFFF8FF8FC7FC7FFF FFFFF81F8FFFE07FC0 FFFFC01FFE3FE3FFFF1FFFFFFF8007FFF1FF1FF1FFFFFFFF007FC7FC7FFF FFFFFF000FFF007FC0 FFFFFFFFFFC71FFFFFFFFFFFFFF1FFFFFE3FFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFE3FFFFE07FC0 FFFFFFFFFFC71FFFFFFFFFFFFFF1FFFFFE3FFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFE3FFFFE07FC0 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFC7FFF1FFFC0 pop grestore %% End of Graphics MathPictureEnd %% End of picture \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{102, 13}, ImageMargins->{{140, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgIoc>Ic3>IVC>IIS>II03=Voc=Vc3=V VC=VIS=V00?o 1003o``01Ol500;o0`000ol0000300001P001?l00?l30005o`000?l03`001Ol0003o00@000Co003o 3@001Ol0003o008000Go003o0005o`D000Go0000o`0500;o2@0000H000Co003o0`001Ol0003o00L0 00?o00001@001Ol0003o00@000Co003o1@000ol000050003o`0000@000Co003o2`000ol00002o`D0 00?o0?l0200000L01?l30005o`000?l01005o`H000Go0000o`040004o`00o`801Ol60003o`0000@0 00?o00001_l60005o`3o0?l010000ol0o`08000020001?l00?l30005o`000?l01@000ol000070005 o`000?l010001?l00?l30003o`0000L000Oo0000o`3o00<000?o00002@02o`8000?o00000P02o`P0 000800?o10001Ol0003o00D000?o00001`04o`D000Co003o0`000ol0000800?o0P001Ol0003o00`0 1?l300?o2000010000?o0?l04@000ol000050003o`0002H000?o00001002o`P0000@0003o`3o0140 00?o00001@000ol0000V0003o`0000@00_l80000EP000ol000020003o`0000P00000\ \>"], ImageRangeCache->{{{0, 101}, {12, 0}} -> {-0.0363617, -6.37261*^-7, 0.010621, 0.010621}}], Cell[TextData[{ StyleBox["where ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["a", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[", ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["b", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[", and ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["c", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[" are constants and ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["a", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[" is not 0 (if the equation is really second order).", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["Part 1: Homogeneous Equations"], "Section", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ StyleBox[ "The word homogeneous is overworked in the sciences and mathematics, but in \ this course a \"homogeneous equation\" is an equation that zero will solve. \ In the space below (after lab period is over?), show that the differential \ equation above is homogeneous if and only if ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["g", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["(", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["t", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[") = 0.", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["\n\n"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "Let's attempt to solve the homogeneous differential equation"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica MathPictureStart % Start of picture % Scaling calculations 0 1 0 1 [ [ 0.000000 0.000000 0 0 ] [ 1.000000 0.154762 0 0 ] ] MathScale % Start of Graphics 0 setgray 0 setlinewidth gsave 0.000000 0.000000 translate 1.000000 0.154762 scale 1 string 84 13 1 [84 0 0 13 0 0] { currentfile 1 index readhexstring pop } false 3 colorimage FC01FFFFFFFFFFFFFFFFFFFFE00FFFFFFFFFFFFFFFFFF007FFFFFFFFFFFF FFF0 E3FE3FFFFFFFFFFFFFFFFFFF1FF1FFFFFFFFFFFFFFFF8FF8FFFFFFFFFFFF FFF0 FFFFC7FFFFFFFFFFFFFFFFFFFFFE3FFFFFFFFFFFFFFFFFFF1FFFFFFFFFFF FFF0 FF8007FFFFFFFFFFFF000FFFFC003FFFFFFFFFFFF8FFFE001FFFFFFFFFC0 FC70 FF8FF8FFFFFFFFFFF8FFF1FFFC7FC7FFFFFFFFFFF8FFFE3FE38000FFFE3F 1FF0 FF8FF8FFFFFF1FFFFFFFF1FFFC7FC7FFF1FFFC00001FFE3FE3FFFFFFF1FF E3F0 FFF1FF1FFFFF1FFFFFFFF1FFFF8FF8FFF1FFFC7FF8FFFFC7FC7FFFFFF1FF E3F0 FFF1FF1FFFC0007FFFFFF1FFFF8FF8FC0007FF8FF8FFFFC7FC0000FFF1FF E3F0 FFFE3FE3FFFF1FFFF8000FFFFFF1FF1FF1FFFFF1F8FFFFF8FF8FFFFFF1FF E3F0 FFFE3FE3FFFF1FFFF8FFFFFFFFF1FF1FF1FFFFFE38FFFFF8FF8FFFFFF1FF E3F0 FFFFC71FFFFFFFFFF8FFFFFFFFFE3FFFFFFFFFFFC0FFFFFFFFFFFFFFFE3F 1FF0 FFFFC71FFFFFFFFFF80001FFFFFE3FFFFFFFFFFFF8FFFFFFFFFFFFFFFFC0 FFF0 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFF0 pop grestore %% End of Graphics MathPictureEnd %% End of picture \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{84, 13}, ImageMargins->{{149, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgIoc>Ic3>IVC>IIS>II03=Voc=Vc3=V VC=VIS=V0003o`0001800_l80000E0000001\ \>"], ImageRangeCache->{{{0, 83}, {12, 0}} -> {-0.0352239, -7.73818*^-7, 0.012897, 0.012897}}], Cell[TextData[ "The differential operator in this differential equation is "], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["L[ y_ ] := D[y, {t, 2}] + 5 D[y, t] + 4 y"], "Input", AspectRatioFixed->True], Cell[TextData[{ StyleBox["Define this equation in ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["Mathematica", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[" by entering the command", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["diffeq = L[ y[t] ] == 0"], "Input", AspectRatioFixed->True], Cell[TextData[ "We begin by noticing that the equation will be solved by a function if a sum \ of multiples of the function and its 1st and 2nd derivatives is zero. So, it \ makes sense to consider functions whose derivatives are similar to the \ original function. Accordingly, define"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["f[t_] := E^(r t)"], "Input", AspectRatioFixed->True], Cell[TextData[ "Write this function and its 1st and 2nd derivatives in standard mathematical \ notation below, and explain why it is appropriate to use it here."], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["\n\n"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "We can substitute this \"template\" function into the equation by using the \ command:"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["feq = diffeq /. y -> f"], "Input", AspectRatioFixed->True], Cell[TextData[ "In your own words, briefly explain what this command does:"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["\n"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ StyleBox["Notice that there is a common factor of ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["e", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["rt", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontSlant->"Italic", FontVariations->{"CompatibilityType"->"Superscript"}], StyleBox[ " on the left side of this equation. We can divide it out as follows:", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["feq2 = feq[[1]]/E^(r t) == feq[[2]]/E^(r t)"], "Input", AspectRatioFixed->True], Cell[TextData[{ StyleBox["This is called the ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["characteristic", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[" (in Rob's terminology) or ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["auxiliary", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[" (in Swokowski's) ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["equation", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[ ". If we simplify it we find that it is just a polynomial equation in the \ variable ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["r", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["!", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["chareq = Simplify[feq2]"], "Input", AspectRatioFixed->True], Cell[TextData[{ StyleBox["Of course solving this equation is easy, but we can ask ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["Mathematica", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[" to do it, anyway.", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["charsoln = Solve[chareq,r]"], "Input", AspectRatioFixed->True], Cell[TextData[{ StyleBox["This tells us that there are two values of ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["r", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[" that yield solutions of the original differential equation: ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["r", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[" = \[Dash]4 and ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["r", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[" = \[Dash]1. We can define the two solutions", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "y1[t] := f[t] /. charsoln[[1]];\ny2[t] := f[t] /. charsoln[[2]];"], "Input", AspectRatioFixed->True], Cell[TextData["We can check that the definitions are correct"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["{y1[t], y2[t]}"], "Input", AspectRatioFixed->True], Cell[TextData[ "and check that they solve the original differential equation. "], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["{L[ y1[t] ], L[ y2[t] ]}"], "Input", AspectRatioFixed->True], Cell[TextData[{ StyleBox[ "Now we have two solutions to the differential equation, but what is the ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["general solution", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[" (the form for all solutions)?", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["Part 2: The Superposition Principle"], "Section", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ StyleBox[ "Check to see which of the following functions solve the differential \ equation. You may do this by hand or use ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["Mathematica", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[ ", as the command below suggests. Indicate which ones solve and which \ don't. ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ StyleBox["a) ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["y", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["1", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["(", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["t", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[") + ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["y", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["2", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["(", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["t", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[") d) \[Dash]3 ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["y", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["1", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["(", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["t", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[") + 2", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["y", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["2", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["(", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["t", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[")", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ StyleBox["b) ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["y", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["1", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["(", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["t", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[") \[Dash] ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["y", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["2", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["(", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["t", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[") e) ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["y", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["1", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["(", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["t", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[")/ ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["y", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["2", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["(", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["t", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[")", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ StyleBox["c) ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["y", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["1", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["(", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["t", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[") ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["y", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["2", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["(", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["t", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[") f) 4 ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["y", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["1", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["(", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["t", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[") + 0.5", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["y", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["2", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["(", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["t", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[")", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["L[ y1[t] + y2[t] ] //Simplify"], "Input", AspectRatioFixed->True], Cell[TextData[ "Make a hypothesis about the form of the general solution of the differential \ equation."], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "The general solution of the equation has the form:\n"], "Subsubtitle", Evaluatable->False, TextAlignment->Left, AspectRatioFixed->True], Cell[TextData[{ StyleBox[ "Verify your general solution satisfies the differential equation (by hand \ or with ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["Mathematica", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[").", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[{ StyleBox[ "If your hypothesis is correct, it is is an example of the Superposition \ Principle, which says: a linear differential operator ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["L", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[" has the property that ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["L", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["[", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["C", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["1", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["y", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["1", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox[" + C", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["2", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["y", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["2", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["] = ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["C", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["1", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["L", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["[", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["y", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["1", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["] + ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["C", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["2", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["L", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["[", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["y", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["2", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["].", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["Part 3: Show What You Know"], "Section", Evaluatable->False, AspectRatioFixed->True], Cell[TextData[ "Use the technique you have learned to find a general solution for the \ differential equation"], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica MathPictureStart % Start of picture % Scaling calculations 0 1 0 1 [ [ 0.000000 0.000000 0 0 ] [ 1.000000 0.216667 0 0 ] ] MathScale % Start of Graphics 0 setgray 0 setlinewidth gsave 0.000000 0.000000 translate 1.000000 0.216667 scale 1 string 60 13 1 [60 0 0 13 0 0] { currentfile 1 index readhexstring pop } false 3 colorimage FFFE00FFFFFFFFFFFFFFFFFFFFF007FFFFFFFFFFFFFFF0 FFF1FF1FFFFFFFFFFFFFFFFFFF8FF8FFFFFFFFFFFFFFF0 FFFFFFE3FFFFFFFFFFFFFFFFFFFFFF1FFFFFFFFFFFFFF0 FFFFC003FFFFFFFFFFFF803FFFFE001FFFFFFFFFC0FC70 FFFFC7FC7FFFFFFFFFFFFFC7FFFE3FE38000FFFE3F1FF0 FFFFC7FC7FFFFF8FFFFFFFF8FFFE3FE3FFFFFFF1FFE3F0 FFFFF8FF8FFFFF8FFFFF8000FFFFC7FC7FFFFFF1FFE3F0 FFFFF8FF8FFFE0003FFC7FF8FFFFC7FC0000FFF1FFE3F0 FFFFFF1FF1FFFF8FFFFC7FF8FFFFF8FF8FFFFFF1FFE3F0 FFFFFF1FF1FFFF8FFFFC7FF8FFFFF8FF8FFFFFF1FFE3F0 FFFFFFE38FFFFFFFFFFC7FF8FFFFFFFFFFFFFFFE3F1FF0 FFFFFFE38FFFFFFFFFFF8007FFFFFFFFFFFFFFFFC0FFF0 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0 pop grestore %% End of Graphics MathPictureEnd %% End of picture \ \>"], "Graphics", Evaluatable->False, AspectRatioFixed->True, ImageSize->{60, 13}, ImageMargins->{{161, Inherited}, {Inherited, Inherited}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHgIoc>Ic3>IVC>IIS>II03=Voc=Vc3=V VC=VIS=V"], ImageRangeCache->{{{0, 59}, {12, 0}} -> {-0.032645, -1.08335*^-6, 0.0180558, 0.0180558}}], Cell[TextData[{ StyleBox["Plot the particular solution ( ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["y", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["1", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["(", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["t", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[") + ", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["y", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox["2", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSize->10, FontVariations->{"CompatibilityType"->"Subscript"}], StyleBox["(", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"], StyleBox["t", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago", FontSlant->"Italic"], StyleBox[ "))/2 using the command below. What sort of function is this? Briefly \ explain how this function appeared here (Friday's lecture should help!).", Evaluatable->False, AspectRatioFixed->True, FontFamily->"Chicago"] }], "Text", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["Plot[(y1[t] + y2[t])/2, {t,0,2}]"], "Input", AspectRatioFixed->True] }, FrontEndVersion->"Macintosh 3.0", ScreenRectangle->{{0, 640}, {0, 460}}, WindowToolbars->{}, CellGrouping->Manual, WindowSize->{520, 365}, WindowMargins->{{28, Automatic}, {Automatic, 16}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, MacintoshSystemPageSetup->"\<\ AVU/IFiQKFD000000V8/009R==0000000P;_@09BfMP0AP1Y06`0I@1^0642HR`0 0V8dl00000020^lP0U;If000000000000000009R;00000000000000000000000 00000000000000000000000000000000\>" ] (*********************************************************************** 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[1711, 51, 481, 8, 70, "Text", Evaluatable->False], Cell[2195, 61, 127, 2, 70, "Title", Evaluatable->False], Cell[2325, 65, 234, 5, 70, "Text", Evaluatable->False], Cell[2562, 72, 3812, 87, 21, 1523, 54, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[6377, 161, 1117, 43, 70, "Text", Evaluatable->False], Cell[7497, 206, 107, 2, 70, "Section", Evaluatable->False], Cell[7607, 210, 889, 29, 70, "Text", Evaluatable->False], Cell[8499, 241, 78, 2, 70, "Text", Evaluatable->False], Cell[8580, 245, 135, 3, 70, "Text", Evaluatable->False], Cell[8718, 250, 3436, 85, 21, 1339, 54, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[12157, 337, 134, 3, 70, "Text", Evaluatable->False], Cell[12294, 342, 94, 1, 70, "Input"], Cell[12391, 345, 443, 16, 70, "Text", Evaluatable->False], Cell[12837, 363, 76, 1, 70, "Input"], Cell[12916, 366, 346, 6, 70, "Text", Evaluatable->False], Cell[13265, 374, 69, 1, 70, "Input"], Cell[13337, 377, 219, 4, 70, "Text", Evaluatable->False], Cell[13559, 383, 78, 2, 70, "Text", Evaluatable->False], Cell[13640, 387, 161, 4, 70, "Text", Evaluatable->False], Cell[13804, 393, 75, 1, 70, "Input"], Cell[13882, 396, 133, 3, 70, "Text", Evaluatable->False], Cell[14018, 401, 76, 2, 70, "Text", Evaluatable->False], Cell[14097, 405, 695, 24, 70, "Text", Evaluatable->False], Cell[14795, 431, 96, 1, 70, "Input"], Cell[14894, 434, 1214, 45, 70, "Text", Evaluatable->False], Cell[16111, 481, 76, 1, 70, "Input"], Cell[16190, 484, 469, 16, 70, "Text", Evaluatable->False], Cell[16662, 502, 79, 1, 70, "Input"], Cell[16744, 505, 982, 34, 70, "Text", Evaluatable->False], Cell[17729, 541, 118, 2, 70, "Input"], Cell[17850, 545, 119, 2, 70, "Text", Evaluatable->False], Cell[17972, 549, 67, 1, 70, "Input"], Cell[18042, 552, 138, 3, 70, "Text", Evaluatable->False], Cell[18183, 557, 77, 1, 70, "Input"], Cell[18263, 560, 505, 17, 70, "Text", Evaluatable->False], Cell[18771, 579, 113, 2, 70, "Section", Evaluatable->False], Cell[18887, 583, 593, 20, 70, "Text", Evaluatable->False], Cell[19483, 605, 2642, 103, 70, "Text", Evaluatable->False], Cell[22128, 710, 2638, 103, 70, "Text", Evaluatable->False], Cell[24769, 815, 2639, 103, 70, "Text", Evaluatable->False], Cell[27411, 920, 82, 1, 70, "Input"], Cell[27496, 923, 163, 4, 70, "Text", Evaluatable->False], Cell[27662, 929, 157, 4, 70, "Subsubtitle", Evaluatable->False], Cell[27822, 935, 484, 18, 70, "Text", Evaluatable->False], Cell[28309, 955, 3817, 145, 70, "Text", Evaluatable->False], Cell[32129, 1102, 104, 2, 70, "Section", Evaluatable->False], Cell[32236, 1106, 168, 4, 70, "Text", Evaluatable->False], Cell[32407, 1112, 3028, 70, 21, 1092, 41, "GraphicsData", "PostScript", "Graphics", Evaluatable->False], Cell[35438, 1184, 1558, 57, 70, "Text", Evaluatable->False], Cell[36999, 1243, 85, 1, 70, "Input"] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)