<?xml version="1.0" encoding="UTF-8"?>
<Worksheet><Version major="6" minor="1"/><View-Properties><Zoom percentage="100"/></View-Properties><Styles><Layout alignment="left" bullet="none" firstindent="0.0" leftmargin="0.0" linebreak="space" linespacing="0.0" name="Normal" rightmargin="0.0" spaceabove="0.0" spacebelow="0.0"/><Font background="[0,0,0]" bold="true" executable="true" family="Monospaced" foreground="[255,0,0]" name="Maple Input" opaque="false" size="12"/><Font background="[0,0,0]" bold="false" executable="false" family="Lucida Bright" foreground="[0,0,0]" italic="false" name="Text" opaque="false" size="12" underline="false"/></Styles><Group><Input><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text">Here's the solution to Section 2.3, Problem 49.</Text-field><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text">  We want to express the solution to  x^3 y' + 2x^2 y = 10 sin(x),  y(1)=0</Text-field><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text">in terms of the sine integral (See p 66-67).  </Text-field><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text">Maple will solve this directly, but let's try to do it ourselves...  We'll write</Text-field><Text-field layout="Normal" style="Text">the express in standard form,</Text-field><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text"> y' + (2/x) y = 10 sin(x) / x^3</Text-field><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text">Then the integral of p(x) is:  2 ln( x ), and the integrating factor is x^2.</Text-field><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text">Therefore, to solve this ODE, we write:</Text-field><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text"> (x^2 y ) ' = 10 sin(x) / x</Text-field><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text">or </Text-field><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text"> x^2 y = 10 int( sin(x)/x) dx</Text-field><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text">y = (10/x^2)* Si(x) + C/x^2 </Text-field><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text">Let's see what Maple says:</Text-field><Text-field layout="Normal" style="Text"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">DE1:=diff(y(x),x)+(2/x)*y(x)=10*sin(x)/x^3;</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">Y:=dsolve(DE1,y(x));</Text-field></Input></Group><Group><Input><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text">To see what the Si(x) function is, use Maple's help file:</Text-field><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">?Si</Text-field></Input></Group><Group><Input><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text">We'll plot the solution for x&gt;0.  First, solve for the arbitrary constant:</Text-field><Text-field layout="Normal" style="Text"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">F:=rhs(Y);</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">F1:=subs(x=1,F);</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">solve(F1=0,_C1);</Text-field></Input></Group><Group><Input><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text">Our function is (I'll just re-type it with the found value of the constant):</Text-field><Text-field layout="Normal" style="Text"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">G:=(10/x^2)*( Si(x)-Si(1) );</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">plot(G,x=0.1..5,y=-20..5);</Text-field></Input></Group><Group><Input><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text">To find the maximum of this function, set the derivative = zero and solve for x:</Text-field><Text-field layout="Normal" style="Text"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">Eqn1:=diff(G,x)=0;</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">solve(Eqn1,x);</Text-field></Input></Group><Group><Input><Text-field layout="Normal" style="Text"/><Text-field layout="Normal" style="Text">To get a numerical solution, use fsolve and give Maple an interval (guess from our previous graph)</Text-field><Text-field layout="Normal" style="Text"/></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input">fsolve(Eqn1,x=1..2);</Text-field></Input></Group><Group><Input><Text-field layout="Normal" prompt="&gt; " style="Maple Input"/></Input></Group><Text-field/></Worksheet>