<?xml version="1.0" encoding="UTF-8"?>
<Worksheet><Version major="6" minor="1"/><View-Properties><Zoom percentage="100"/></View-Properties><Styles><Layout alignment="centred" firstindent="0.0" leftmargin="0.0" linebreak="space" linespacing="0.0" name="_pstyle10" rightmargin="0.0" spaceabove="0.0" spacebelow="0.0"/><Layout leftmargin="0.0" name="_pstyle25" rightmargin="0.0"/><Layout leftmargin="0.0" name="_pstyle24" rightmargin="0.0"/><Layout alignment="left" firstindent="0.0" leftmargin="0.0" linebreak="space" linespacing="0.0" name="_pstyle23" rightmargin="0.0" spaceabove="0.0" spacebelow="0.0"/><Layout alignment="left" firstindent="0.0" leftmargin="0.0" linebreak="space" linespacing="0.0" name="_pstyle22" rightmargin="0.0" spaceabove="8.0" spacebelow="2.0"/><Layout alignment="left" firstindent="0.0" leftmargin="0.0" linebreak="space" linespacing="0.0" name="_pstyle21" rightmargin="0.0" spaceabove="8.0" spacebelow="2.0"/><Layout alignment="left" firstindent="0.0" leftmargin="0.0" linebreak="space" linespacing="0.0" name="_pstyle20" rightmargin="0.0" spaceabove="0.0" spacebelow="0.0"/><Layout alignment="left" firstindent="0.0" leftmargin="0.0" linebreak="space" linespacing="0.0" name="_pstyle19" rightmargin="0.0" spaceabove="0.0" spacebelow="0.0"/><Layout alignment="left" bullet="indent" firstindent="0.0" leftmargin="0.0" linebreak="space" linespacing="0.0" name="_pstyle18" rightmargin="0.0" spaceabove="3.0" spacebelow="3.0"/><Layout alignment="left" firstindent="0.0" leftmargin="0.0" linebreak="space" linespacing="0.0" name="_pstyle17" rightmargin="0.0" spaceabove="0.0" spacebelow="0.0"/><Layout alignment="left" firstindent="0.0" leftmargin="0.0" linebreak="space" linespacing="0.0" name="_pstyle16" rightmargin="0.0" spaceabove="8.0" spacebelow="4.0"/><Layout alignment="left" firstindent="0.0" leftmargin="0.0" linebreak="space" linespacing="0.0" name="_pstyle15" rightmargin="0.0" spaceabove="0.0" spacebelow="0.0"/><Layout alignment="centred" firstindent="0.0" leftmargin="0.0" linebreak="space" linespacing="0.0" name="_pstyle14" rightmargin="0.0" spaceabove="0.0" spacebelow="0.0"/><Layout alignment="centred" firstindent="0.0" leftmargin="0.0" linebreak="space" linespacing="0.0" name="_pstyle13" rightmargin="0.0" spaceabove="0.0" spacebelow="0.0"/><Layout alignment="left" firstindent="0.0" leftmargin="0.0" linebreak="space" linespacing="0.0" name="_pstyle12" rightmargin="0.0" spaceabove="0.0" spacebelow="0.0"/><Layout alignment="centred" firstindent="0.0" leftmargin="0.0" linebreak="space" linespacing="0.0" name="_pstyle11" rightmargin="0.0" spaceabove="0.0" spacebelow="0.0"/><Font background="[0,0,0]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" name="_pstyle10" readonly="false" size="12" underline="false"/><Font background="[0,0,0]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" name="_cstyle16" readonly="false" size="12" underline="false"/><Font background="[0,0,0]" bold="false" executable="false" family="Times New Roman" foreground="[0,128,128]" italic="false" name="_cstyle15" readonly="false" size="12" underline="true"/><Font background="[0,0,0]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" name="_cstyle14" readonly="false" size="12" underline="false"/><Font background="[0,0,0]" executable="false" family="Times New Roman" name="2D Comment" readonly="false" underline="false"/><Font background="[0,0,0]" executable="false" foreground="[0,128,128]" italic="false" name="Hyperlink" readonly="false" underline="true"/><Font background="[0,0,0]" bold="true" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="true" name="ParagraphStyle6" readonly="false" size="12" underline="false"/><Font background="[0,0,0]" bold="true" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" name="ParagraphStyle5" readonly="false" size="14" underline="false"/><Font background="[0,0,0]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" name="ParagraphStyle4" readonly="false" size="12" underline="false"/><Font background="[0,0,0]" executable="false" name="_pstyle25" readonly="false"/><Font background="[0,0,0]" executable="false" name="_pstyle24" readonly="false"/><Font background="[0,0,0]" bold="true" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="true" name="_cstyle26" readonly="false" size="12" underline="false"/><Font background="[0,0,0]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="true" name="_cstyle25" readonly="false" size="12" underline="true"/><Font background="[0,0,0]" bold="true" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" name="_cstyle24" readonly="false" size="14" underline="false"/><Font background="[0,0,0]" bold="true" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" name="_cstyle23" readonly="false" size="14" underline="false"/><Font background="[0,0,0]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" name="_cstyle22" readonly="false" size="12" underline="true"/><Font background="[0,0,0]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" name="_cstyle21" readonly="false" size="12" underline="false"/><Font background="[0,0,0]" bold="true" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" name="_cstyle20" readonly="false" size="12" underline="false"/><Font background="[0,0,0]" executable="false" family="Times New Roman" name="Page Number" readonly="false" underline="false"/><Font background="[0,0,0]" bold="true" executable="true" family="Monospaced" foreground="[255,0,0]" name="_pstyle15" readonly="false"/><Font background="[0,0,0]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="true" name="_cstyle19" readonly="false" size="12" underline="false"/><Font background="[0,0,0]" bold="false" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" name="_pstyle12" readonly="false" size="12" underline="false"/><Font background="[0,0,0]" bold="true" executable="true" family="Monospaced" foreground="[255,0,0]" italic="false" name="_cstyle18" readonly="false" size="12" underline="false"/><Font background="[0,0,0]" bold="true" executable="false" family="Times New Roman" foreground="[0,0,0]" italic="false" name="_cstyle17" readonly="false" size="18" underline="false"/></Styles><Page-Numbers enabled="false" first-number="1" first-numbered-page="1" horizontal-location="right" style="Page Number" vertical-location="bottom"/><Group><Input><Text-field layout="_pstyle10" style="_pstyle10"/><Text-field layout="_pstyle11" style="_cstyle14">ORDINARY DIFFERENTIAL EQUATIONS POWERTOOL</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle11" style="_cstyle14">Lesson 28 -- Application: Unforced Spring-Mass Oscillators</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle13" style="_cstyle15"><Hyperlink hyperlink="true" linktarget="http://www.math.sc.edu/~meade/" style="_cstyle15">Prof. Douglas B. Meade</Hyperlink></Text-field><Text-field layout="_pstyle13" style="_cstyle15"><Hyperlink hyperlink="true" linktarget="http://www.math.sc.edu/~IMI/" style="_cstyle15">Industrial Mathematics Institute</Hyperlink></Text-field><Text-field layout="_pstyle13" style="_cstyle15"><Hyperlink hyperlink="true" linktarget="http://www.math.sc.edu/" style="_cstyle15">Department of Mathematics</Hyperlink></Text-field><Text-field layout="_pstyle13" style="_cstyle15"><Hyperlink hyperlink="true" linktarget="http://www.sc.edu/" style="_cstyle15">University of South Carolina</Hyperlink></Text-field><Text-field layout="_pstyle11" style="_cstyle14">Columbia, SC 29208
</Text-field><Text-field layout="_pstyle14" style="ParagraphStyle4"><Font style="_cstyle16">URL:   </Font><Hyperlink hyperlink="true" linktarget="http://www.math.sc.edu/~meade/" style="_cstyle15">http://www.math.sc.edu/~meade/</Hyperlink></Text-field><Text-field layout="_pstyle11" style="_cstyle14">E-mail: <Hyperlink family="Times New Roman" hyperlink="true" linktarget="mailto:meade@math.sc.edu" style="Hyperlink">meade@math.sc.edu</Hyperlink> </Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle11" style="_cstyle14"><Font encoding="ISO8859-1">Copyright \251  2001  by Douglas B. Meade</Font></Text-field><Text-field layout="_pstyle11" style="_cstyle14">All rights reserved</Text-field><Text-field layout="_pstyle10" style="_pstyle10"/><Text-field layout="_pstyle11" style="_cstyle14">-------------------------------------------------------------------</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Section collapsed="true"><Title><Text-field layout="_pstyle16" style="_cstyle17">Outline of Lesson 28</Text-field></Title><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">    </Font><Hyperlink hyperlink="true" linktarget="Wks:#28.A" style="_cstyle15">28.A</Hyperlink><Font style="_cstyle16"> Unforced Oscillatory Motion - Undamped</Font></Text-field><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">                     </Font><Hyperlink hyperlink="true" linktarget="Wks:#28.A-1" style="_cstyle15">28.A-1</Hyperlink><Font style="_cstyle16"> Example 1</Font></Text-field><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">                     </Font><Hyperlink hyperlink="true" linktarget="Wks:#28.A-2" style="_cstyle15">28.A-2</Hyperlink><Font style="_cstyle16"> Example 2</Font></Text-field><Text-field layout="_pstyle18" style="ParagraphStyle4"><Hyperlink hyperlink="true" linktarget="Wks:#28.B" style="_cstyle15">28.B</Hyperlink><Font style="_cstyle16"> Unforced Oscillatory Motion - Damped</Font></Text-field><Text-field layout="_pstyle18" style="ParagraphStyle4"><Font style="_cstyle16">                 </Font><Hyperlink hyperlink="true" linktarget="Wks:#28.B-1" style="_cstyle15">28.B-1</Hyperlink><Font style="_cstyle16"> Case 1: Underdamped Motion ( </Font><Equation input-equation="b^2 - 4*a*c" style="2D Comment">NiMsJiokJSJiRyIiIyIiIiooIiIlRiclImFHRiclImNHRichIiI=</Equation><Font style="_cstyle16"> &lt; 0 )</Font></Text-field><Text-field layout="_pstyle18" style="ParagraphStyle4"><Font style="_cstyle16">                 </Font><Hyperlink hyperlink="true" linktarget="Wks:#28.B-2" style="_cstyle15">28.B-2</Hyperlink><Font style="_cstyle16"> Case 2: Critically Damped Motion ( </Font><Equation input-equation="b^2 - 4*a*c" style="2D Comment">NiMsJiokJSJiRyIiIyIiIiooIiIlRiclImFHRiclImNHRichIiI=</Equation><Font style="_cstyle16"> = 0 )</Font></Text-field><Text-field layout="_pstyle18" style="ParagraphStyle4"><Font style="_cstyle16">                 </Font><Hyperlink hyperlink="true" linktarget="Wks:#28.B-3" style="_cstyle15">28.B-3</Hyperlink><Font style="_cstyle16"> Case 3: Overdamped Motion ( </Font><Equation input-equation="b^2 - 4*a*c" style="2D Comment">NiMsJiokJSJiRyIiIyIiIiooIiIlRiclImFHRiclImNHRichIiI=</Equation><Font style="_cstyle16"> &gt; 0 )</Font></Text-field><Text-field layout="_pstyle18" style="ParagraphStyle4"><Hyperlink hyperlink="true" linktarget="Wks:#28.C" style="_cstyle15">28.C</Hyperlink><Font style="_cstyle16"> Resonance</Font></Text-field><Text-field layout="_pstyle18" style="ParagraphStyle4"><Font style="_cstyle16">                 </Font><Hyperlink hyperlink="true" linktarget="Wks:#28.C-1" style="_cstyle15">28.C-1</Hyperlink><Font style="_cstyle16"> Realistic Resonance</Font></Text-field><Text-field layout="_pstyle18" style="ParagraphStyle4"><Font style="_cstyle16">                 </Font><Hyperlink hyperlink="true" linktarget="Wks:#28.C-2" style="_cstyle15">28.C-2</Hyperlink><Font style="_cstyle16"> Unrealistic Resonance</Font></Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group></Section><Section collapsed="true"><Title><Text-field layout="_pstyle16" style="_cstyle17">Initialization</Text-field></Title><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">restart;</Text-field><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">with( DEtools ):</Text-field><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">with( plots ):</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group></Section><Section collapsed="true"><Title><Text-field bookmark="28.A" layout="_pstyle16" style="_cstyle17">28.A Unforced Oscillatory Motion - Undamped</Text-field></Title><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">A spring that obeys Hooke's law - the displacement is proportional to the applied force - is called a </Font><Font style="_cstyle19">linear</Font><Font style="_cstyle16"> spring.  Suppose that such a spring whose natural (unstretched or compressed) length is </Font><Equation input-equation="L;" style="2D Comment">NiMlIkxH</Equation><Font style="_cstyle16"> is suspended vertically so that its upper end is attached to a fixed support, and its lower end is attached to a mass </Font><Equation input-equation="m;" style="2D Comment">NiMlIm1H</Equation><Font style="_cstyle16">.  The attached mass will stretch the spring until it attains an equilibrium position.  In a coordinate system </Font><Equation input-equation="x;" style="2D Comment">NiMlInhH</Equation><Font style="_cstyle16"> measured positive upward from the equilibrium position of the mass, measure displacements of the mass with the variable </Font><Equation input-equation="x(t);" style="2D Comment">NiMtJSJ4RzYjJSJ0Rw==</Equation><Font style="_cstyle16">.  Again, the origin of this coordinate system is the equilibrium position of the suspended mass, and displacements upward are positive.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">The force of gravity acting downward on the mass is </Font><Equation input-equation="-m*g;" style="2D Comment">NiMsJComJSJtRyIiIiUiZ0dGJiEiIg==</Equation><Font style="_cstyle16"> </Font><Font style="_cstyle20">j</Font><Font style="_cstyle16">, where </Font><Equation input-equation="g;" style="2D Comment">NiMlImdH</Equation><Font style="_cstyle16"> is the gravitational constant, is counterbalanced by the sag in the spring past its natural length </Font><Equation input-equation="L;" style="2D Comment">NiMlIkxH</Equation><Font style="_cstyle16"> when the mass is first attached.  This downward gravitational force is always in balance with the upward force generated by the spring as it sags from its natural length to the equilibrium position that establishes the origin </Font><Equation input-equation="x = 0;" style="2D Comment">NiMvJSJ4RyIiIQ==</Equation><Font style="_cstyle16"> for the coordinate system.  This gravitational force </Font><Font style="_cstyle19">never</Font><Font style="_cstyle16"> appears in the equation of motion for the spring-mass system described above.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">According to Hooke's law, the force exerted by the spring on the mass is </Font><Equation input-equation="-k*x;" style="2D Comment">NiMsJComJSJrRyIiIiUieEdGJiEiIg==</Equation><Font style="_cstyle16"> </Font><Font style="_cstyle20">j</Font><Font style="_cstyle16">, where </Font><Equation input-equation="k;" style="2D Comment">NiMlImtH</Equation><Font style="_cstyle16"> is the </Font><Font style="_cstyle19">spring</Font><Font style="_cstyle16"> </Font><Font style="_cstyle19">constant</Font><Font style="_cstyle16"> expressed in units of force divided by distance.  The acceleration of the mass under the action of the spring is </Font><Font style="_cstyle20">a</Font><Font style="_cstyle16"> = </Font><Equation input-equation="d^2*x/(dt^2);" style="2D Comment">NiMqKCUiZEciIiMlInhHIiIiKiQlI2R0R0YlISIi</Equation><Font style="_cstyle16"> </Font><Font style="_cstyle20">j</Font><Font style="_cstyle16">.  Newton's second law, namely, </Font><Font style="_cstyle20">F</Font><Font style="_cstyle16"> = </Font><Equation input-equation="m;" style="2D Comment">NiMlIm1H</Equation><Font style="_cstyle16"> </Font><Font style="_cstyle20">a</Font><Font style="_cstyle16">, then gives the equation of motion as</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="m;" style="2D Comment">NiMlIm1H</Equation><Font style="_cstyle16"> </Font><Equation input-equation="d^2*x/(dt^2) = -k*x(t);" style="2D Comment">NiMvKiglImRHIiIjJSJ4RyIiIiokJSNkdEdGJiEiIiwkKiYlImtHRigtRic2IyUidEdGKEYr</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle20" style="_cstyle21">or</Text-field><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="m*`x''`(t)+k*x(t) = 0;" style="2D Comment">NiMvLCYqJiUibUciIiItJSR4JydHNiMlInRHRidGJyomJSJrR0YnLSUieEdGKkYnRiciIiE=</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">Initial conditions would be the initial displacement of the mass </Font><Font style="_cstyle19">from</Font><Font style="_cstyle16"> </Font><Font style="_cstyle19">equilibrium</Font><Font style="_cstyle16">, and any initial velocity given to the mass.  Thus, the mass could be lifted initially, in which case </Font><Equation input-equation="x(0)*`&gt;`*0;" style="2D Comment">NiMqKC0lInhHNiMiIiEiIiIlIj5HRihGJ0Yo</Equation><Font style="_cstyle16">.  Alternatively, the mass could be pulled down below equilibrium so that </Font><Equation input-equation="x(0) &lt; 0;" style="2D Comment">NiMyLSUieEc2IyIiIUYn</Equation><Font style="_cstyle16">.  Of course, if the mass is not displaced from equilibrium initially, </Font><Equation input-equation="x(0) = 0;" style="2D Comment">NiMvLSUieEc2IyIiIUYn</Equation><Font style="_cstyle16">.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">If the mass is thrown upward initially, it would have a positive initial velocity, and hence, </Font><Equation input-equation="`x'`(0)*`&gt;`*0;" style="2D Comment">NiMqKC0lI3gnRzYjIiIhIiIiJSI+R0YoRidGKA==</Equation><Font style="_cstyle16">.  Alternatively, the mass could be tossed downward initially, in which case </Font><Equation input-equation="`x'`(0) &lt; 0;" style="2D Comment">NiMyLSUjeCdHNiMiIiFGJw==</Equation><Font style="_cstyle16">.  If the mass is </Font><Font style="_cstyle19">released</Font><Font style="_cstyle16"> </Font><Font style="_cstyle19">from</Font><Font style="_cstyle16"> </Font><Font style="_cstyle19">rest</Font><Font style="_cstyle16">, then </Font><Equation input-equation="`x'`(0) = 0;" style="2D Comment">NiMvLSUjeCdHNiMiIiFGJw==</Equation><Font style="_cstyle16">.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">These considerations lead to the IVP</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">ode1 := m*diff(x(t),t,t)+k*x(t) = 0;
ic1 := x(0)=alpha, D(x)(0)=beta;</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">for </Font><Equation input-equation="x(t);" style="2D Comment">NiMtJSJ4RzYjJSJ0Rw==</Equation><Font style="_cstyle16">, the displacement of the mass from equilibrium.  The solution of the differential equation itself, namely,</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">dsolve(ode1, x(t));</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">follows from the exponential guess </Font><Equation input-equation="x(t) = exp(rt);" style="2D Comment">NiMvLSUieEc2IyUidEctJSRleHBHNiMlI3J0Rw==</Equation><Font style="_cstyle16"> and the characteristic equation</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Font style="_cstyle16"> </Font><Equation input-equation="m*r^2+k = 0;" style="2D Comment">NiMvLCYqJiUibUciIiIqJCUickciIiNGJ0YnJSJrR0YnIiIh</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">Since the characteristic roots are then</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="r;" style="2D Comment">NiMlInJH</Equation><Font style="_cstyle16"> = </Font><Font style="_cstyle22">+</Font><Font style="_cstyle16"> </Font><Equation input-equation="i*sqrt(k/m);" style="2D Comment">NiMqJiUiaUciIiItJSVzcXJ0RzYjKiYlImtHRiUlIm1HISIiRiU=</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">the general solution will be a linear combination of the members of the (real) fundamental set </Font><Equation input-equation="{cos(omega*t), sin(omega*t)};" style="2D Comment">NiM8JC0lJGNvc0c2IyomJSZvbWVnYUciIiIlInRHRiktJSRzaW5HRiY=</Equation><Font style="_cstyle16">, where </Font><Equation input-equation="omega = sqrt(k/m);" style="2D Comment">NiMvJSZvbWVnYUctJSVzcXJ0RzYjKiYlImtHIiIiJSJtRyEiIg==</Equation><Font style="_cstyle16"> is called the </Font><Font style="_cstyle19">angular</Font><Font style="_cstyle16"> </Font><Font style="_cstyle19">frequency</Font><Font style="_cstyle16">.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">The trigonometric form</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="a*cos(omega*t)+b*sin(omega*t);" style="2D Comment">NiMsJiomJSJhRyIiIi0lJGNvc0c2IyomJSZvbWVnYUdGJiUidEdGJkYmRiYqJiUiYkdGJi0lJHNpbkdGKUYmRiY=</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">can be transformed to</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="A*cos(omega*t-phi);" style="2D Comment">NiMqJiUiQUciIiItJSRjb3NHNiMsJiomJSZvbWVnYUdGJSUidEdGJUYlJSRwaGlHISIiRiU=</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">where</Text-field><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="A = sqrt(a^2+b^2);" style="2D Comment">NiMvJSJBRy0lJXNxcnRHNiMsJiokJSJhRyIiIyIiIiokJSJiR0YrRiw=</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">and the phase angle </Font><Equation input-equation="phi;" style="2D Comment">NiMlJHBoaUc=</Equation><Font style="_cstyle16"> is determined by the two equations</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="cos(phi) = a/A;" style="2D Comment">NiMvLSUkY29zRzYjJSRwaGlHKiYlImFHIiIiJSJBRyEiIg==</Equation><Font style="_cstyle16">  and </Font><Equation input-equation="sin(phi) = b/A;" style="2D Comment">NiMvLSUkc2luRzYjJSRwaGlHKiYlImJHIiIiJSJBRyEiIg==</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">In this form, the general solution of the undamped spring-mass system clearly undergoes periodic motion with angular frequency </Font><Equation input-equation="omega = sqrt(k/m);" style="2D Comment">NiMvJSZvbWVnYUctJSVzcXJ0RzYjKiYlImtHIiIiJSJtRyEiIg==</Equation><Font style="_cstyle16"> and amplitude </Font><Equation input-equation="A;" style="2D Comment">NiMlIkFH</Equation><Font style="_cstyle16">.  Such motion is called </Font><Font style="_cstyle19">harmonic</Font><Font style="_cstyle16"> </Font><Font style="_cstyle19">motion</Font><Font style="_cstyle16">, and without damping, would persist undiminished forever.  Undamped spring-mass systems are therefore called </Font><Font style="_cstyle19">natural</Font><Font style="_cstyle16"> </Font><Font style="_cstyle19">harmonic</Font><Font style="_cstyle16"> </Font><Font style="_cstyle19">oscillators</Font><Font style="_cstyle16">.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Section><Title><Text-field bookmark="28.A-1" layout="_pstyle21" style="_cstyle23">28.A-1 Example 1</Text-field></Title><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">Maple does not have a single command for converting the trigonometric form</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">q := a*cos(omega*t) + b*sin(omega*t);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">to the form</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">Q := A*cos(omega*t - phi);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">Much of the management of this transition remains in the hands of the user.  For example, the equation</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="a*cos(omega*t)+b*sin(omega*t);" style="2D Comment">NiMsJiomJSJhRyIiIi0lJGNvc0c2IyomJSZvbWVnYUdGJiUidEdGJkYmRiYqJiUiYkdGJi0lJHNpbkdGKUYmRiY=</Equation><Font style="_cstyle16"> = </Font><Equation input-equation="A*cos(omega*t-phi);" style="2D Comment">NiMqJiUiQUciIiItJSRjb3NHNiMsJiomJSZvbWVnYUdGJSUidEdGJUYlJSRwaGlHISIiRiU=</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">could be treated as an identity in </Font><Equation input-equation="t;" style="2D Comment">NiMlInRH</Equation><Font style="_cstyle16">, so that Maple can compute the appropriate values of </Font><Equation input-equation="A;" style="2D Comment">NiMlIkFH</Equation><Font style="_cstyle16"> and </Font><Equation input-equation="phi;" style="2D Comment">NiMlJHBoaUc=</Equation><Font style="_cstyle16"> as</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">qq := solve(identity(q=Q,t), {A,phi});</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">It is typical to take the amplitude as positive, so the first solution would be the preferred one.</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">Note also the usage of the two-argument arctangent function.  The single-argument arctangent function, </Font><Equation input-equation="arctan(y/x);" style="2D Comment">NiMtJSdhcmN0YW5HNiMqJiUieUciIiIlInhHISIi</Equation><Font style="_cstyle16">, returns an angle in the range </Font><Equation input-equation="``(-Pi/2,Pi/2);" style="2D Comment">NiMtJSFHNiQsJComJSNQaUciIiIiIiMhIiJGK0Yn</Equation><Font style="_cstyle16">, which is equivalent to the angle being in the first or fourth quadrants.  This is the function one finds on the typical scientific calculator.  Use of this function with a point</Font><Equation input-equation="``(x,y);" style="2D Comment">NiMtJSFHNiQlInhHJSJ5Rw==</Equation><Font style="_cstyle16"> loses sign information when either </Font><Equation input-equation="x;" style="2D Comment">NiMlInhH</Equation><Font style="_cstyle16"> or </Font><Equation input-equation="y;" style="2D Comment">NiMlInlH</Equation><Font style="_cstyle16"> is negative.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">Most scientific programming languages have some form of the two-argument arctangent function, </Font><Equation input-equation="arctan(y,x);" style="2D Comment">NiMtJSdhcmN0YW5HNiQlInlHJSJ4Rw==</Equation><Font style="_cstyle16">, which returns an angle in the range (</Font><Equation input-equation="-Pi,Pi;" style="2D Comment">NiQsJCUjUGlHISIiRiQ=</Equation><Font style="_cstyle16">].  This is equivalent to preserving the signs on the coordinates of points</Font><Font bold="false" foreground="[0,0,0]" italic="false" size="12" style="2D Comment"> </Font><Equation input-equation="``(x,y);" style="2D Comment">NiMtJSFHNiQlInhHJSJ5Rw==</Equation><Font style="_cstyle16"> so that the angle returned is in the proper one of the four quadrants.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group></Section><Section><Title><Text-field bookmark="28.A-2" layout="_pstyle21" style="_cstyle23">28.A-2 Example 2</Text-field></Title><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">Convert the trigonometric form</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">q := 3*cos(2*t) - 5*sin(2*t);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">to the form</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">Q := A*cos(2*t - phi);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">Again treating the equation</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">q = Q;</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">as an identity in </Font><Equation input-equation="t;" style="2D Comment">NiMlInRH</Equation><Font style="_cstyle16">, Maple determines two solutions for the constants </Font><Equation input-equation="A;" style="2D Comment">NiMlIkFH</Equation><Font style="_cstyle16"> and </Font><Equation input-equation="phi;" style="2D Comment">NiMlJHBoaUc=</Equation><Font style="_cstyle16"> via</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">qq := solve(identity(q = Q,t), {A,phi});</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">Selecting the positive amplitude, the desired form is then</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">eval(Q,qq[1]);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">The amplitude and phase angle are, respectively,</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">A = eval(A,qq[1]);
phi = eval(phi,qq[1]);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group></Section></Section><Section collapsed="true"><Title><Text-field bookmark="28.B" layout="_pstyle16" style="_cstyle17">28.B Unforced Oscillatory Motion - Damped</Text-field></Title><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle19">Linear</Font><Font style="_cstyle16"> </Font><Font style="_cstyle19">damping</Font><Font style="_cstyle16"> is resistance proportional to </Font><Equation input-equation="dx/dt;" style="2D Comment">NiMqJiUjZHhHIiIiJSNkdEchIiI=</Equation><Font style="_cstyle16">, the velocity, and opposing the motion.  Air resistance against the moving mass would be an example of such a force.  If linear damping is added to the spring-mass system of Section 28.A, the differential equation governing displacements from equilibrium becomes</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">ode1 := m * diff( x(t), t$2 ) + b * diff( x(t), t ) + k * x(t) = 0;</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">where </Font><Equation input-equation="b;" style="2D Comment">NiMlImJH</Equation><Font style="_cstyle16"> is the </Font><Font style="_cstyle19">coefficient</Font><Font style="_cstyle16"> </Font><Font style="_cstyle19">of</Font><Font style="_cstyle16"> </Font><Font style="_cstyle19">linear</Font><Font style="_cstyle16"> </Font><Font style="_cstyle19">damping</Font><Font style="_cstyle16">.  The oscillatory motion experienced by such a system is called unforced, or free motion, and corresponds to the absence of a driving, or forcing term on the right-hand side of the equation.  Hence, the DE for unforced motion is homogeneous.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">Surprisingly, the very similar DE </Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="L;" style="2D Comment">NiMlIkxH</Equation><Font style="_cstyle16"> </Font><Equation input-equation="d^2*x/(dt^2)+R;" style="2D Comment">NiMsJiooJSJkRyIiIyUieEciIiIqJCUjZHRHRiYhIiJGKCUiUkdGKA==</Equation><Font style="_cstyle16"> </Font><Equation input-equation="dx/dt+1/C;" style="2D Comment">NiMsJiomJSNkeEciIiIlI2R0RyEiIkYmKiZGJkYmJSJDR0YoRiY=</Equation><Font style="_cstyle16"> </Font><Equation input-equation="x = 0;" style="2D Comment">NiMvJSJ4RyIiIQ==</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">governs the unforced RLC electric circuit (see </Font><Hyperlink bold="false" family="Times New Roman" hyperlink="true" linktarget="Wks:Lesson29.mw" size="12" style="Hyperlink">Lesson 29</Hyperlink><Font style="_cstyle16">) where </Font><Equation input-equation="x(t);" style="2D Comment">NiMtJSJ4RzYjJSJ0Rw==</Equation><Font style="_cstyle16"> represents the charge, </Font><Equation input-equation="dx/dt;" style="2D Comment">NiMqJiUjZHhHIiIiJSNkdEchIiI=</Equation><Font style="_cstyle16"> represents the current, </Font><Equation input-equation="R;" style="2D Comment">NiMlIlJH</Equation><Font style="_cstyle16"> is the resistance, </Font><Equation input-equation="L;" style="2D Comment">NiMlIkxH</Equation><Font style="_cstyle16"> is the inductance, and </Font><Equation input-equation="C;" style="2D Comment">NiMlIkNH</Equation><Font style="_cstyle16"> is the capacitance (</Font><Equation input-equation="1/C;" style="2D Comment">NiMqJiIiIkYkJSJDRyEiIg==</Equation><Font style="_cstyle16"> is the elastance).</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">The solution procedure for a second-order linear ODE with constant coefficients calls for a search for exponential solutions, so the exponential guess leads to</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">q1 := factor( eval( ode1, x(t)=exp(lambda*t) ) );</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">and the characteristic equation </Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">chareqn := q1 / exp( lambda*t );</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">The values of the characteristic roots are then</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">charvals := solve( chareqn, {lambda} );</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">Since the characteristic equation is quadratic, the discriminant</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">discrim(lhs(chareqn),lambda);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">determines the nature of the characteristic roots which, for </Font><Equation input-equation="m;" style="2D Comment">NiMlIm1H</Equation><Font style="_cstyle16"> positive, and </Font><Equation input-equation="b;" style="2D Comment">NiMlImJH</Equation><Font style="_cstyle16"> and </Font><Equation input-equation="k;" style="2D Comment">NiMlImtH</Equation><Font style="_cstyle16"> nonnegative, can be negative, zero, or positive.  In each case, the system experiences a distinctive motion called respective, underdamped, critically damped, or overdamped.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">These three cases are examined individually in the next three subsections.</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Section><Title><Text-field bookmark="28.B-1" layout="_pstyle22" style="ParagraphStyle5"><Font style="_cstyle24">28.B-1 Case 1: Underdamped Motion ( </Font><Equation input-equation="b^2-4*m*k;" style="2D Comment">NiMsJiokJSJiRyIiIyIiIiooIiIlRiclIm1HRiclImtHRichIiI=</Equation><Font style="_cstyle24"> &lt; 0 )</Font></Text-field></Title><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">When the discriminant is negative, that is, in the case </Font><Equation input-equation="b^2-4*m*k &lt; 0;" style="2D Comment">NiMyLCYqJCUiYkciIiMiIiIqKCIiJUYoJSJtR0YoJSJrR0YoISIiIiIh</Equation><Font style="_cstyle16">, the characteristic values are complex conjugates that can be written as</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="alpha;" style="2D Comment">NiMlJmFscGhhRw==</Equation><Font style="_cstyle16"> </Font><Font style="_cstyle22">+</Font><Font style="_cstyle16"> </Font><Equation input-equation="omega*i;" style="2D Comment">NiMqJiUmb21lZ2FHIiIiJSJpR0Yl</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle20" style="_cstyle21">where</Text-field><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="alpha = -b/2/m;" style="2D Comment">NiMvJSZhbHBoYUcsJCooJSJiRyIiIiIiIyEiIiUibUdGKkYq</Equation><Font style="_cstyle16">   and  </Font><Equation input-equation="omega = sqrt(4*m*k-b^2)/2/m;" style="2D Comment">NiMvJSZvbWVnYUcqKC0lJXNxcnRHNiMsJiooIiIlIiIiJSJtR0YsJSJrR0YsRiwqJCUiYkciIiMhIiJGLEYxRjJGLUYy</Equation><Font style="_cstyle16">  =  </Font><Equation input-equation="sqrt(k/m-(b/2/m)^2);" style="2D Comment">NiMtJSVzcXJ0RzYjLCYqJiUia0ciIiIlIm1HISIiRikqJCooJSJiR0YpIiIjRitGKkYrRi9GKw==</Equation><Font style="_cstyle16">   </Font></Text-field><Text-field layout="_pstyle20" style="_cstyle21"> </Text-field><Text-field layout="_pstyle20" style="_cstyle21">A fundamental set contains the independent solutions</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="x[1] = exp(alpha*t)*cos(omega*t);" style="2D Comment">NiMvJiUieEc2IyIiIiomLSUkZXhwRzYjKiYlJmFscGhhR0YnJSJ0R0YnRictJSRjb3NHNiMqJiUmb21lZ2FHRidGLkYnRic=</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="x[2] = exp(alpha*t)*sin(omega*t);" style="2D Comment">NiMvJiUieEc2IyIiIyomLSUkZXhwRzYjKiYlJmFscGhhRyIiIiUidEdGLkYuLSUkc2luRzYjKiYlJm9tZWdhR0YuRi9GLkYu</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">which are both exponentially damped </Font><Font style="_cstyle19">sinusoids</Font><Font style="_cstyle16">.  (The literature refers to both the sine and cosine functions as sinusoids.)</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21"> The general solution, a linear combination of these functions, can be written either as</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="exp(alpha*t)*(c[1]*cos(omega*t)+c[2]*sin(omega*t));" style="2D Comment">NiMqJi0lJGV4cEc2IyomJSZhbHBoYUciIiIlInRHRilGKSwmKiYmJSJjRzYjRilGKS0lJGNvc0c2IyomJSZvbWVnYUdGKUYqRilGKUYpKiYmRi42IyIiI0YpLSUkc2luR0YyRilGKUYp</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">or as</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="A*exp(alpha*t)*cos(omega*t-phi);" style="2D Comment">NiMqKCUiQUciIiItJSRleHBHNiMqJiUmYWxwaGFHRiUlInRHRiVGJS0lJGNvc0c2IywmKiYlJm9tZWdhR0YlRitGJUYlJSRwaGlHISIiRiU=</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">where </Font><Equation input-equation="A = sqrt( c[1]^2 + c[2]^2 )" style="2D Comment">NiMvJSJBRy0lJXNxcnRHNiMsJiokJiUiY0c2IyIiIiIiI0YtKiQmRis2I0YuRi5GLQ==</Equation><Font style="_cstyle16">, </Font><Equation input-equation="cos(phi) = c[1]/A;" style="2D Comment">NiMvLSUkY29zRzYjJSRwaGlHKiYmJSJjRzYjIiIiRiwlIkFHISIi</Equation><Font style="_cstyle16">, and </Font><Equation input-equation="sin(phi) = c[2]/A;" style="2D Comment">NiMvLSUkc2luRzYjJSRwaGlHKiYmJSJjRzYjIiIjIiIiJSJBRyEiIg==</Equation><Font style="_cstyle16">. </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">In this latter form, </Font><Equation input-equation="A*exp(alpha*t);" style="2D Comment">NiMqJiUiQUciIiItJSRleHBHNiMqJiUmYWxwaGFHRiUlInRHRiVGJQ==</Equation><Font style="_cstyle16"> is the </Font><Font style="_cstyle19">damped</Font><Font style="_cstyle16"> </Font><Font style="_cstyle19">amplitude</Font><Font style="_cstyle16">, </Font><Equation input-equation="omega;" style="2D Comment">NiMlJm9tZWdhRw==</Equation><Font style="_cstyle16"> is the angular frequency, </Font><Equation input-equation="omega/2/Pi;" style="2D Comment">NiMqKCUmb21lZ2FHIiIiIiIjISIiJSNQaUdGJw==</Equation><Font style="_cstyle16"> is the quasi-frequency, </Font><Equation input-equation="2*Pi/beta" style="2D Comment">NiMqKCIiIyIiIiUjUGlHRiUlJWJldGFHISIi</Equation><Font style="_cstyle16"> is the quasi-period, and </Font><Equation input-equation="phi" style="2D Comment">NiMlJHBoaUc=</Equation><Font style="_cstyle16"> is the phase angle.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">The decaying exponential term forces all solutions to decay to the zero function as </Font><Equation input-equation="t" style="2D Comment">NiMlInRH</Equation><Font style="_cstyle16"> increases.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">A typical example of underdamped motion is generated by the differential equation</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">q1 := eval(ode1, {m=1,b=4,k=16});</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">whose solution for the initial conditions</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">ic1 := x(0)=2, D(x)(0)=2;</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">is</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">X1 := collect(rhs(dsolve({q1,ic1},x(t))),exp);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">Alternatively, this solution can be expressed in the form</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">QQ := A*cos(2*sqrt(3)*t-phi)*exp(-2*t);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">where </Font><Equation input-equation="A;" style="2D Comment">NiMlIkFH</Equation><Font style="_cstyle16"> is the positive solution in</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">params := solve(identity(X1=QQ,t), {A,phi});</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">Hence, the equivalent form of the solution is</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">X2 := eval(QQ,params[1]);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">Figure 28.1 shows the solution in black, and the </Font><Font style="_cstyle19">exponential</Font><Font style="_cstyle16"> </Font><Font style="_cstyle19">envelopes </Font><Font style="_cstyle25">+</Font><Font style="_cstyle19"> </Font><Equation input-equation="sqrt(7)*exp(-2*t);" style="2D Comment">NiMqJi0lJXNxcnRHNiMiIigiIiItJSRleHBHNiMsJComIiIjRiglInRHRighIiJGKA==</Equation><Font style="_cstyle16"> in red.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">plot([X1, sqrt(7)*exp(-2*t), -sqrt(7)*exp(-2*t)], t=0..3, color=[black,red,red], title="Figure 28.1");</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group></Section><Section><Title><Text-field bookmark="28.B-2" layout="_pstyle22" style="ParagraphStyle5"><Font style="_cstyle24">28.B-2 Case 2: Critically Damped Motion ( </Font><Equation input-equation="b^2-4*m*k;" style="2D Comment">NiMsJiokJSJiRyIiIyIiIiooIiIlRiclIm1HRiclImtHRichIiI=</Equation><Font style="_cstyle24"> = 0 )</Font></Text-field></Title><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">When the discriminant is zero, that is, in the case </Font><Equation input-equation="b^2-4*m*k = 0;" style="2D Comment">NiMvLCYqJCUiYkciIiMiIiIqKCIiJUYoJSJtR0YoJSJrR0YoISIiIiIh</Equation><Font style="_cstyle16">, the characteristic values are the repeated root </Font><Equation input-equation="alpha = -b/2/m;" style="2D Comment">NiMvJSZhbHBoYUcsJCooJSJiRyIiIiIiIyEiIiUibUdGKkYq</Equation><Font style="_cstyle16">.  In this case, two linearly independent solutions to the ODE are</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="x[1] = exp(alpha*t);" style="2D Comment">NiMvJiUieEc2IyIiIi0lJGV4cEc2IyomJSZhbHBoYUdGJyUidEdGJw==</Equation><Font style="_cstyle16">   and   </Font><Equation input-equation="x[2] = t*exp(alpha*t);" style="2D Comment">NiMvJiUieEc2IyIiIyomJSJ0RyIiIi0lJGV4cEc2IyomJSZhbHBoYUdGKkYpRipGKg==</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">so that the general solution is</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">X := (c[1]+c[2]*t)*exp(-b/2/m*t);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">The motion that results from the case of the repeated characteristic root is called </Font><Font style="_cstyle19">critically</Font><Font style="_cstyle16"> </Font><Font style="_cstyle19">damped</Font><Font style="_cstyle16"> motion. It stands at the interface between underdamped motion and </Font><Font style="_cstyle19">overdamped</Font><Font style="_cstyle16"> motion, the third case to be studied below.  However, engineers consider that critically damped motion never occurs in actual practice.  This is because the parameters in a physical system are never determined so precisely as to cause the discriminant to vanish.  Even if the perfect system were built so that the oscillator experienced critically damped motion, the very motion of the spring would warm the metal and change the spring constant, and the system would no longer be truely critically damped.  Thus, critical damping is really a mathematical concept.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">Initial values for </Font><Equation input-equation="x(t);" style="2D Comment">NiMtJSJ4RzYjJSJ0Rw==</Equation><Font style="_cstyle16"> and </Font><Equation input-equation="`x'`(t);" style="2D Comment">NiMtJSN4J0c2IyUidEc=</Equation><Font style="_cstyle16"> lead to the equations</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">eq1 := eval(X,t=0) = x(0);
eq2 := eval(diff(X,t),t=0) = `x'`(0);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">whose solution is</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">expand(solve({eq1,eq2},{c[1],c[2]}));</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">Surprisingly, the initial velocity </Font><Equation input-equation="`x'`(0) = -b*x(0)/2/m;" style="2D Comment">NiMvLSUjeCdHNiMiIiEsJCoqJSJiRyIiIi0lInhHRiZGKyIiIyEiIiUibUdGL0Yv</Equation><Font style="_cstyle16"> implies </Font><Equation input-equation="c[2] = 0;" style="2D Comment">NiMvJiUiY0c2IyIiIyIiIQ==</Equation><Font style="_cstyle16">.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">The IVP</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">ode2 := eval(ode1, {m=1,b=8,k=16});
ic2 := x(0)=2, D(x)(0)=0;</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">governs the critically damped motion exhibited by the solution</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">XC1 := rhs(dsolve({ode2, ic2}, x(t)));</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">that is graphed in Figure 28.2.</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">plot(XC1, t=0..3, title="Figure 28.2");</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Section><Title><Text-field layout="_pstyle23" style="ParagraphStyle6"><Font style="_cstyle26">Subcase 1: </Font><Equation input-equation="b" style="2D Comment">NiMlImJH</Equation><Font style="_cstyle26"> &gt; 0</Font></Text-field></Title><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">So long as </Font><Equation input-equation="b*`&gt;`*0;" style="2D Comment">NiMqKCUiYkciIiIlIj5HRiUiIiFGJQ==</Equation><Font style="_cstyle16">, the common exponential factor overwhelms the linear factor and forces all solutions to zero. The decay to zero is not necessarily monotonic. The general solution of the critically damped equation has a critical point at</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">t[crit] = expand(solve( diff(X,t)=0, t));</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">which is positive if and only if </Font><Equation input-equation="c[2] &lt;&gt; 0" style="2D Comment">NiMwJiUiY0c2IyIiIyIiIQ==</Equation><Font style="_cstyle16"> and  </Font><Equation input-equation="c[1]/c[2]" style="2D Comment">NiMqJiYlImNHNiMiIiJGJyZGJTYjIiIjISIi</Equation><Font style="_cstyle16"> &lt; </Font><Equation input-equation="2*m/b;" style="2D Comment">NiMqKCIiIyIiIiUibUdGJSUiYkchIiI=</Equation><Font style="_cstyle16">.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">The IVP</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">ode2;
ic3 := x(0)=2, D(x)(0)=5;</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">governs the critically damped motion exhibited by the solution</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">XC2 := rhs(dsolve({ode2, ic3}, x(t)));</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">and graphed in Figure 28.3.</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">plot(XC2, t=0..3, title="Figure 28.3");</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">Lifting the mass and tossing it upward to set it into motion causes it to rise above the initial height, but then to descend exponentially to equilibrium.</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group></Section><Section><Title><Text-field layout="_pstyle23" style="ParagraphStyle6"><Font style="_cstyle26">Subcase 2: </Font><Equation input-equation="b" style="2D Comment">NiMlImJH</Equation><Font style="_cstyle26"> = 0</Font></Text-field></Title><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">Note that if </Font><Equation input-equation="b" style="2D Comment">NiMlImJH</Equation><Font style="_cstyle16"> = 0, then </Font><Equation input-equation="4*m*k;" style="2D Comment">NiMqKCIiJSIiIiUibUdGJSUia0dGJQ==</Equation><Font style="_cstyle16"> = 0 and </Font><Equation input-equation="m*`&gt;`*0;" style="2D Comment">NiMqKCUibUciIiIlIj5HRiUiIiFGJQ==</Equation><Font style="_cstyle16"> imply that </Font><Equation input-equation="c=0" style="2D Comment">NiMvJSJjRyIiIQ==</Equation><Font style="_cstyle16">. In this case of </Font><Font style="_cstyle19">undamped</Font><Font style="_cstyle16"> </Font><Font style="_cstyle19">motion</Font><Font style="_cstyle16">, the ODE simplifies to</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">eval( ode1, [m=1,b=0,k=0] );</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">a fundamental set of solutions is </Font><Equation input-equation="{1, t};" style="2D Comment">NiM8JCIiIiUidEc=</Equation><Font style="_cstyle16">, and the general solution is a linear function. Hence, solutions do not tend to zero as </Font><Equation input-equation="t" style="2D Comment">NiMlInRH</Equation><Font style="_cstyle16"> increases. In fact, except in special cases where the solution is a constant function, the solutions become unbounded as </Font><Equation input-equation="t" style="2D Comment">NiMlInRH</Equation><Font style="_cstyle16"> increases.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group></Section></Section><Section collapsed="true"><Title><Text-field bookmark="28.B-3" layout="_pstyle22" style="ParagraphStyle5"><Font style="_cstyle24">28.B-3 Case 3: Overdamped Motion ( </Font><Equation input-equation="b^2-4*m*k;" style="2D Comment">NiMsJiokJSJiRyIiIyIiIiooIiIlRiclIm1HRiclImtHRichIiI=</Equation><Font style="_cstyle24"> &gt; 0 )</Font></Text-field></Title><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">The third case is the most straightforward. If the discriminant is positive, that is, if </Font><Equation input-equation="b^2-4*m*k;" style="2D Comment">NiMsJiokJSJiRyIiIyIiIiooIiIlRiclIm1HRiclImtHRichIiI=</Equation><Font style="_cstyle16"> &gt; 0, then there are two distinct, real characteristic roots, namely,</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="alpha;" style="2D Comment">NiMlJmFscGhhRw==</Equation><Font style="_cstyle16"> </Font><Font style="_cstyle22">+</Font><Font style="_cstyle16"> </Font><Equation input-equation="beta;" style="2D Comment">NiMlJWJldGFH</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle20" style="_cstyle21">where again</Text-field><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="alpha = -b/2/m;" style="2D Comment">NiMvJSZhbHBoYUcsJCooJSJiRyIiIiIiIyEiIiUibUdGKkYq</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle20" style="_cstyle21">but</Text-field><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="beta = sqrt(b^2-4*m*k)/2/m;" style="2D Comment">NiMvJSViZXRhRyooLSUlc3FydEc2IywmKiQlImJHIiIjIiIiKigiIiVGLSUibUdGLSUia0dGLSEiIkYtRixGMkYwRjI=</Equation><Font style="_cstyle16">  =  </Font><Equation input-equation="sqrt((b/2/m)^2-k/m);" style="2D Comment">NiMtJSVzcXJ0RzYjLCYqJCooJSJiRyIiIiIiIyEiIiUibUdGLEYrRioqJiUia0dGKkYtRixGLA==</Equation><Font style="_cstyle16">  </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">Writing these characteristic roots as</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">lambda[1] := eval( lambda, charvals[1] );
lambda[2] := eval( lambda, charvals[2] );</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">a fundamental set of solutions is then</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">X[1] := exp( lambda[1]*t );
X[2] := exp( lambda[2]*t );</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">so the general solution is</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">X[h] := c[1]*X[1] + c[2]*X[2];</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">The system giving rise to such a solution is called </Font><Font style="_cstyle19">overdamped</Font><Font style="_cstyle16">, and by a stretch of notation, the differential equation itself, its solution, or the resulting motion, can be modified by the adjective "overdamped."</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">Observe that, because 0 &lt; </Font><Equation input-equation="b^2-4*m*k;" style="2D Comment">NiMsJiokJSJiRyIiIyIiIiooIiIlRiclIm1HRiclImtHRichIiI=</Equation><Equation input-equation="`` &lt;= b^2;" style="2D Comment">NiMxJSFHKiQlImJHIiIj</Equation><Font style="_cstyle16">, both characteristic values are negative. In fact, </Font><Equation input-equation="lambda[2]" style="2D Comment">NiMmJSdsYW1iZGFHNiMiIiM=</Equation><Font style="_cstyle16"> &lt; </Font><Equation input-equation="lambda[1]" style="2D Comment">NiMmJSdsYW1iZGFHNiMiIiI=</Equation><Font style="_cstyle16"> &lt; 0. All solutions of an overdamped equation ultimately decay to zero as </Font><Equation input-equation="t;" style="2D Comment">NiMlInRH</Equation><Font style="_cstyle16"> increases. But, just as with the critically damped case, the solution can have one critical point:</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">dX[h] := diff( X[h], t ):</Text-field><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">tcrit := solve( dX[h] = 0, t );</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">To determine when the critical point occurs with </Font><Equation input-equation="t*`&gt;`*0;" style="2D Comment">NiMqKCUidEciIiIlIj5HRiUiIiFGJQ==</Equation><Font style="_cstyle16">, observe that the location of the critical point can be expressed as</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Font style="_cstyle16"> </Font><Equation input-equation="t[crit]" style="2D Comment">NiMmJSJ0RzYjJSVjcml0Rw==</Equation><Font style="_cstyle16"> =  </Font><Equation input-equation="-m/sqrt(b^2-4*m*k);" style="2D Comment">NiMsJComJSJtRyIiIi0lJXNxcnRHNiMsJiokJSJiRyIiI0YmKigiIiVGJkYlRiYlImtHRiYhIiJGMUYx</Equation><Font style="_cstyle16">  ln( </Font><Equation input-equation="c[1]/c[2]" style="2D Comment">NiMqJiYlImNHNiMiIiJGJyZGJTYjIiIjISIi</Equation><Font style="_cstyle16">  </Font><Equation input-equation="lambda[1]/lambda[2]" style="2D Comment">NiMqJiYlJ2xhbWJkYUc2IyIiIkYnJkYlNiMiIiMhIiI=</Equation><Font style="_cstyle16"> ) </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">This time is positive precisely when 0 &lt; </Font><Equation input-equation="c[1]/c[2]" style="2D Comment">NiMqJiYlImNHNiMiIiJGJyZGJTYjIiIjISIi</Equation><Font style="_cstyle16"> </Font><Equation input-equation="lambda[1]/lambda[2]" style="2D Comment">NiMqJiYlJ2xhbWJkYUc2IyIiIkYnJkYlNiMiIiMhIiI=</Equation><Font style="_cstyle16"> &lt; 1.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group></Section><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">To conclude, note that except for the trivial case with </Font><Equation input-equation="b" style="2D Comment">NiMlImJH</Equation><Font style="_cstyle16"> = </Font><Equation input-equation="k;" style="2D Comment">NiMlImtH</Equation><Font style="_cstyle16"> = 0, all solutions to the ODE for unforced oscillatory motion are </Font><Font style="_cstyle19">transient</Font><Font style="_cstyle16"> solutions that eventually "die out" as time passes.  (The first generation of television sets were built with vacuum tubes that had to "warm up" to reach their operating points.  During this warm-up phase, the TV screen would generally show a gradually brightening, wavering and distorted image that was the physical realization of the transients in the circuits.)</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">The driven or forced oscillator is governed by the nonhomogeneous ODE</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="m;" style="2D Comment">NiMlIm1H</Equation><Font style="_cstyle16"> </Font><Equation input-equation="d^2*x/(dt^2)+b;" style="2D Comment">NiMsJiooJSJkRyIiIyUieEciIiIqJCUjZHRHRiYhIiJGKCUiYkdGKA==</Equation><Font style="_cstyle16"> </Font><Equation input-equation="dx/dt+k*x = f(t);" style="2D Comment">NiMvLCYqJiUjZHhHIiIiJSNkdEchIiJGJyomJSJrR0YnJSJ4R0YnRictJSJmRzYjJSJ0Rw==</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">where </Font><Equation input-equation="f(t);" style="2D Comment">NiMtJSJmRzYjJSJ0Rw==</Equation><Font style="_cstyle16"> is called the forcing term.  The general solution of this equation has the form</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="x[g] = x[h]+x[p];" style="2D Comment">NiMvJiUieEc2IyUiZ0csJiZGJTYjJSJoRyIiIiZGJTYjJSJwR0Ys</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">where </Font><Equation input-equation="x[h];" style="2D Comment">NiMmJSJ4RzYjJSJoRw==</Equation><Font style="_cstyle16"> is the homogeneous solution built as a linear combination of the members of the fundamental set.  This solution contains the decaying exponentials discussed in this worksheet.  The particular solution </Font><Equation input-equation="x[p];" style="2D Comment">NiMmJSJ4RzYjJSJwRw==</Equation><Font style="_cstyle16"> is determined by the driving term, and any part of it that persists over time constitutes the </Font><Font style="_cstyle19">steady</Font><Font style="_cstyle16">-</Font><Font style="_cstyle19">state</Font><Font style="_cstyle16"> solution, the solution that is seen after all transients die out.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group></Section><Section collapsed="true"><Title><Text-field bookmark="28.C" layout="_pstyle16" style="_cstyle17">28.C Resonance</Text-field></Title><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">Anthropomorphically speaking, </Font><Font style="_cstyle19">resonance</Font><Font style="_cstyle16"> can be described as a temper tantrum thrown by Mother Nature.  It is an exaggerated response to a stimulus.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">Analytically speaking, resonance in a driven oscillator is the phenomenon whereby the steady-state response to a sinusoidal forcing term attains maximal amplitude.  Thus, the amplitude of the steady-state solution of the driven damped oscillator described by the ODE </Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="m;" style="2D Comment">NiMlIm1H</Equation><Font style="_cstyle16"> </Font><Equation input-equation="d^2*x/(dt^2)+b;" style="2D Comment">NiMsJiooJSJkRyIiIyUieEciIiIqJCUjZHRHRiYhIiJGKCUiYkdGKA==</Equation><Font style="_cstyle16"> </Font><Equation input-equation="dx/dt+k*x = f(t);" style="2D Comment">NiMvLCYqJiUjZHhHIiIiJSNkdEchIiJGJyomJSJrR0YnJSJ4R0YnRictJSJmRzYjJSJ0Rw==</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle20" style="_cstyle21">where</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="f(t) = A*cos(omega*t);" style="2D Comment">NiMvLSUiZkc2IyUidEcqJiUiQUciIiItJSRjb3NHNiMqJiUmb21lZ2FHRipGJ0YqRio=</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">achieves a maximal value at some angular frequency </Font><Equation input-equation="omega = omega[R];" style="2D Comment">NiMvJSZvbWVnYUcmRiQ2IyUiUkc=</Equation><Font style="_cstyle16">.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">Familiar occurrences of resonance might include the sound-box on a stringed musical instrument, the tuning circuit in an AM radio, the annoying rattle of a motor driven at certain speeds, or the collapse of the Tacoma Narrows Bridge.  The body of an acoustic guitar is a resonator that amplifies the sound of the vibrating strings.  The tuning circuit of an AM radio is essentially a driven RLC circuit whose resonant oscillations are used to oppose those of the carrier signal, leaving behind the broadcast information.  Less useful instances of resonance include the irritation of a noisy motor whose resonance is causing nearby objects to vibrate noisily or destructively.  The rythmic driving of a bridge under the footfalls of an army marching in step can cause destructive resonance.  Supposedly, to avoid resonance, marching armies were instructed to break step when crossing bridges.</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">The collapse in 1940 of the Tacoma Narrows Bridge over the Puget Sound requires more discussion.  This enormous (almost 6000 feet long) engineering structure was designed to withstand winds of up to 120 mph. But, due to its tendency to undulate in light winds, the bridge was fondly known as Galloping Gertie.  On November 7, 1940, only four months after being completed, the bridge was completely destroyed in 42 mph winds.  The full incident is preserved on a famous four-minute film clip;  a short excerpt is available at </Font><Hyperlink hyperlink="true" linktarget="http://www.physics.bcit.ca/netshow/tacoma.avi" style="_cstyle15">http://www.physics.bcit.ca/netshow/tacoma.avi</Hyperlink><Font style="_cstyle16">.  For many years the accepted explanation of this tragedy was resonance.  In recent years, however, an alternate theory based on aerodynamically induced condition of self-excitation or "negative damping" has gained wide acceptance.  Additional details can be found at many sites on the WWW, including</Font></Text-field><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">         </Font><Hyperlink hyperlink="true" linktarget="http://www.urbanlegends.com/science/bridge_resonance.html" style="_cstyle15">http://www.urbanlegends.com/science/bridge_resonance.html</Hyperlink><Font style="_cstyle16">
         </Font><Hyperlink hyperlink="true" linktarget="http://www.vibrationdata.com/Tacoma.htm" style="_cstyle15">http://www.vibrationdata.com/Tacoma.htm</Hyperlink></Text-field><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">         </Font><Hyperlink hyperlink="true" linktarget="http://www.ketchum.org/wind.html" style="_cstyle15">http://www.ketchum.org/wind.html</Hyperlink><Font style="_cstyle16">  </Font></Text-field><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">         </Font><Hyperlink hyperlink="true" linktarget="http://www.eng.uab.edu/cee/reu_nsf99/tacoma.htm" style="_cstyle15">http://www.eng.uab.edu/cee/reu_nsf99/tacoma.htm</Hyperlink><Font style="_cstyle16">
         </Font><Hyperlink hyperlink="true" linktarget="http://www.eng.uab.edu/cee/reu_nsf99/tacoma.htm" style="_cstyle15">http://www.math.uconn.edu/~kmoore/tacoma.html</Hyperlink><Font style="_cstyle16">
         </Font><Hyperlink hyperlink="true" linktarget="http://www.madsci.org/posts/archives/may98/892678504.Eg.r.html" style="_cstyle15">http://www.madsci.org/posts/archives/may98/892678504.Eg.r.html</Hyperlink><Font style="_cstyle16">
         </Font><Hyperlink hyperlink="true" linktarget="http://www.nationmaster.com/encyclopedia/Tacoma-Narrows-Bridge" style="_cstyle15">http://www.nationmaster.com/encyclopedia/Tacoma-Narrows-Bridge</Hyperlink><Font style="_cstyle16">
         </Font><Hyperlink hyperlink="true" linktarget="http://en2.wikipedia.org/wiki/Tacoma_Narrows_Bridge" style="_cstyle15">http://en2.wikipedia.org/wiki/Tacoma_Narrows_Bridge</Hyperlink><Font style="_cstyle16">  </Font></Text-field><Text-field layout="_pstyle20" style="_cstyle21">This is not the place to debate these theories, but both require a solid understanding of resonance and damping. </Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">The following discussion of resonance proceeds in two parts.  First, the realistic case of the driven damped oscillator is considered.  Second, the unrealistic case of the undamped oscillator is discussed.  Since all real systems have damping of some sort, undamped oscillators are actually only met as an approximation to real systems.</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Section><Title><Text-field bookmark="28.C-1" layout="_pstyle21" style="_cstyle23">28.C-1 Realistic Resonance</Text-field></Title><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">Without loss of generality, let the equation for the driven damped oscillator be </Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">ODE := diff(x(t),t,t) + B*diff(x(t),t) + K*x(t) = A*cos(omega*t);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">where the driving (angular) frequency </Font><Equation input-equation="omega;" style="2D Comment">NiMlJm9tZWdhRw==</Equation><Font style="_cstyle16"> is as yet undetermined.  Treat it as a parameter that can be adjusted, much like the speed on an electric fan can be changed by turning a knob.  The standard equation for the damped oscillator has been divided by the mass </Font><Equation input-equation="m;" style="2D Comment">NiMlIm1H</Equation><Font style="_cstyle16">, so </Font><Equation input-equation="B = b/m;" style="2D Comment">NiMvJSJCRyomJSJiRyIiIiUibUchIiI=</Equation><Font style="_cstyle16"> and </Font><Equation input-equation="K = k/m;" style="2D Comment">NiMvJSJLRyomJSJrRyIiIiUibUchIiI=</Equation><Font style="_cstyle16">.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">The steady-state response is essentially the particular solution since the homogeneous solution, containing exponentials whose real parts are negative, will be a transient of the system and become negligible after a certain time.  This particular solution is</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">XP := dsolve(ODE,x(t),output=basis)[2];</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">The form</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">Q := a*cos(omega*t-phi);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">is more convenient for determining the amplitude </Font><Equation input-equation="a;" style="2D Comment">NiMlImFH</Equation><Font style="_cstyle16">, which is found via</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">sol := solve(identity(XP=Q,t),{a,phi});</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">Again selecting the positive amplitude, and ignoring the phase angle, write</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">AMP := eval(a,sol[1]);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">This amplitude is a function of the driving frequency </Font><Equation input-equation="omega;" style="2D Comment">NiMlJm9tZWdhRw==</Equation><Font style="_cstyle16">.  Resonance occurs at the frequency that causes this function to be a maximum.  Simple calculus reveals that this resonant frequency is</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">SOL := solve(diff(AMP,omega)=0,omega);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">The positive solution is the resonant frequency, written as</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">omega[R] = eval(SOL[2], {B=b/m, K=k/m});</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">An alternate form for this expression is</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="omega[R] = sqrt(k/m-b^2/2/(m^2));" style="2D Comment">NiMvJiUmb21lZ2FHNiMlIlJHLSUlc3FydEc2IywmKiYlImtHIiIiJSJtRyEiIkYuKiglImJHIiIjRjNGMCokRi9GM0YwRjA=</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">where </Font><Equation input-equation="omega[R];" style="2D Comment">NiMmJSZvbWVnYUc2IyUiUkc=</Equation><Font style="_cstyle16"> is real and positive if </Font><Equation input-equation="b^2 &lt; 2*k*m;" style="2D Comment">NiMyKiQlImJHIiIjKihGJiIiIiUia0dGKCUibUdGKA==</Equation><Font style="_cstyle16">.  Thus, if the damping coefficient </Font><Equation input-equation="b;" style="2D Comment">NiMlImJH</Equation><Font style="_cstyle16"> is nto less than </Font><Equation input-equation="sqrt(2*m*k);" style="2D Comment">NiMtJSVzcXJ0RzYjKigiIiMiIiIlIm1HRiglImtHRig=</Equation><Font style="_cstyle16">, no value of the driving frequency will cause the system to resonate.  Alternatively, the threshold of damping for resonance is </Font><Equation input-equation="b^2 &lt; 2*m*k;" style="2D Comment">NiMyKiQlImJHIiIjKihGJiIiIiUibUdGKCUia0dGKA==</Equation><Font style="_cstyle16">, whereas the threshold of damping for the system to be underdamped is </Font><Equation input-equation="b^2 &lt; 4*m*k;" style="2D Comment">NiMyKiQlImJHIiIjKigiIiUiIiIlIm1HRiklImtHRik=</Equation><Font style="_cstyle16">.  Loosely speaking, it might be said that half the systems that can oscillate can be made to resonate.  An underdamped system that is made to resonate will also have a natural frequency</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle14" style="ParagraphStyle4"><Equation input-equation="omega[N] = sqrt(k/m-b^2/4/(m^2));" style="2D Comment">NiMvJiUmb21lZ2FHNiMlIk5HLSUlc3FydEc2IywmKiYlImtHIiIiJSJtRyEiIkYuKiglImJHIiIjIiIlRjAqJEYvRjNGMEYw</Equation><Font style="_cstyle16"> </Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">Thus, for the damped oscillator, the natural frequency is slightly larger than the resonant frequency, whereas for the undamped oscillator, the natural and resonant frequencies will shortly be seen to be the same.</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">If </Font><Equation input-equation="m = 1;" style="2D Comment">NiMvJSJtRyIiIg==</Equation><Font style="_cstyle16">, the expression for the amplitude of the steady-state response is</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">AMP;</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">Choosing the parameter values</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">params1 := {A=1, B=1/10, K=1};</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">gives the amplitude function</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">F := eval(AMP, params1);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">whose graph is seen in Figure 28.4.</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">plot(F,omega=0..3, title="Figure 28.4");</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">Figure 28.4 supports the initial claim that resonance can be thought of as a temper tantrum by Mother Nature.  The amplitude of the driving function is just </Font><Equation input-equation="A = 1;" style="2D Comment">NiMvJSJBRyIiIg==</Equation><Font style="_cstyle16">, but the magnitude of the response at steady-state is on the order of 10.  For very little provocation, the oscillator has over-responded, much like a child having a temper tantrum.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">The response to the driving term clearly depends on the damping parameter.  Choose the system parameters to be </Font><Equation input-equation="m = 1;" style="2D Comment">NiMvJSJtRyIiIg==</Equation><Font style="_cstyle16"> and</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">params2 := {A=1, B=b, K=1};</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">so that the amplitude function is</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">G := eval(AMP, params2);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">The dependence of the amplitude on both the damping coefficient and the driving frequency can be seen in Figure 28.5.</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">plot3d(G, omega=0..2, b=0..1, axes=box, title="Figure 28.5");</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">As damping increases upward from </Font><Equation input-equation="b = 0;" style="2D Comment">NiMvJSJiRyIiIQ==</Equation><Font style="_cstyle16">, the magnitude of the steady-state amplitude diminishes.  Thus, the greater the damping, the less the effect of resonance.  As </Font><Equation input-equation="b;" style="2D Comment">NiMlImJH</Equation><Font style="_cstyle16"> decreases, the spike in amplitude at resonance clearly increases.  The plane sections </Font><Equation input-equation="b = constant;" style="2D Comment">NiMvJSJiRyUpY29uc3RhbnRH</Equation><Font style="_cstyle16"> shown in Figure 28.6 again capture the dependence of the resonant peak on damping.  The tallest peak corresponds to the smallest value of </Font><Equation input-equation="b;" style="2D Comment">NiMlImJH</Equation><Font style="_cstyle16">, and the smallest peak, to the largest.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">plot([seq(eval(G,b=j/10),j=1..9)],omega=0..2, title="Figure 28.6");</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group></Section><Section collapsed="true"><Title><Text-field bookmark="28.C-2" layout="_pstyle21" style="_cstyle23">28.C-2Unrealistic Resonance</Text-field></Title><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">Without damping, the driven oscillator equation would be</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">ODE1 := eval(ODE,B=0);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">in which case a particular solution would be</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">dsolve(ODE1, x(t), output=basis)[2];</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">Clearly, as </Font><Equation input-equation="omega;" style="2D Comment">NiMlJm9tZWdhRw==</Equation><Font style="_cstyle16"> approaches </Font><Equation input-equation="sqrt(K) = sqrt(k/m);" style="2D Comment">NiMvLSUlc3FydEc2IyUiS0ctRiU2IyomJSJrRyIiIiUibUchIiI=</Equation><Font style="_cstyle16">, the </Font><Font style="_cstyle19">natural</Font><Font style="_cstyle16"> (angular) frequency of the system, the amplitude of the steady-state solution will become infinite.  In reality, there is always some damping that prevents this solution from actually existing forever. In physical terms usually one or more system components break while the amplitude is still finite. Because these unbounded solutions are primarily of theoretical interest, this is called </Font><Font style="_cstyle19">unrealistic resonance.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">Another approach to unrealistic resonance is to drive the system initially at the natural angular frequency.  The differential equation for the system then becomes</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">ODE2 := eval(ODE1, {K=k/m, omega=sqrt(k/m)});</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">A particular solution is then</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">XP := dsolve(ODE2, x(t), output=basis)[2];</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">where, in spite of the complicated form, it should be clear that one of the trigonometric terms is multiplied by </Font><Equation input-equation="t;" style="2D Comment">NiMlInRH</Equation><Font style="_cstyle16">.  This is because, by the method of undetermined coefficients, the homogeneous solution and the driving term share a common term.  Hence, the particular solution requires multiplication by </Font><Equation input-equation="t;" style="2D Comment">NiMlInRH</Equation><Font style="_cstyle16">, and the trigonometric term in the particular solution without the factor </Font><Equation input-equation="t;" style="2D Comment">NiMlInRH</Equation><Font style="_cstyle16"> is actually redundant - it also appears in the homogeneous solution.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/><Text-field layout="_pstyle20" style="_cstyle21">To within a constant factor, the particular solution is actually</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">Xp := t*sin(sqrt(k/m)*t);</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">Taking </Font><Equation input-equation="k = m;" style="2D Comment">NiMvJSJrRyUibUc=</Equation><Font style="_cstyle16"> = 1, this becomes</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">xt := eval(Xp, {k=1,m=1});</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">whose graph is then seen in Figure 28.7, along with the lines </Font><Equation input-equation="x;" style="2D Comment">NiMlInhH</Equation><Font style="_cstyle16"> = </Font><Font style="_cstyle22">+</Font><Font style="_cstyle16"> </Font><Equation input-equation="t;" style="2D Comment">NiMlInRH</Equation><Font style="_cstyle16">, the envelopes on the oscillations generated by </Font><Equation input-equation="sin(t);" style="2D Comment">NiMtJSRzaW5HNiMlInRH</Equation><Font style="_cstyle16">.</Font></Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle19" prompt="&gt; " style="_cstyle18">plot([xt, t,-t], t=0..25, color=[black,red,red], title="Figure 28.7");</Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Group><Input><Text-field layout="_pstyle20" style="_cstyle21">The oscillations would become unbounded were it not for the constraints of physical reality.</Text-field><Text-field layout="_pstyle12" style="_pstyle12"/></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group></Section></Section><Group><Input><Text-field layout="_pstyle17" style="ParagraphStyle4"><Font style="_cstyle16">[Back to </Font><Hyperlink bold="false" family="Times New Roman" hyperlink="true" linktarget="Wks:Lesson00.mw" size="12" style="Hyperlink">ODE Powertool Table of Contents</Hyperlink><Font style="_cstyle16">]</Font></Text-field></Input></Group><Group><Input><Text-field layout="_pstyle15" prompt="&gt; " style="_pstyle15"/></Input></Group><Text-field layout="_pstyle24" style="_pstyle24"/><Text-field layout="_pstyle25" style="_pstyle25"/><Text-field/><Text-field/><Text-field/></Worksheet>