Delta Banner

Mathematics & Science Learning Center
Computer Laboratory

 

Solving Systems

Solving the Preliminary Example

(continued from last page...)

Your fairly lengthy session should have gone something like this:

prelimyplot= Plot[prelimy,{t,-2,2},
  PlotStyle->RGBColor[1,0,0]]


PrelimyPlot

proposedyplot= Plot[E^(3t), {t,-2,2},
  PlotStyle->RGBColor[0,0,1]]


ProposedyPlot

Show[prelimyplot,proposedyplot]

CombinedPlot

Once again we can see that the two graphs are indistinguishable in the final plot. It appears that, at least based on this one example, the numerical solver routines built into Mathematica are quite reliable when applied to systems of differential equations. In most problems we will not have the luxury of knowing the solution ahead of time, as we did here, so we won't be able to compare the numerical solution to anything else. This is why we've taken the time to go through this preliminary example carefully so that we can build a little confidence in our solver.

We now move on so that you can do a few exercises solo...


Compass If you're lost, impatient, want an overview of this laboratory assignment, or maybe even all three, you can click on the compass button on the left to go to the table of contents for this laboratory assignment.
 
 

ODE Laboratories: A Sabbatical Project by Christopher A. Barker

©2017 San Joaquin Delta College, 5151 Pacific Ave., Stockton, CA 95207, USA
e-mail:
cbarker@deltacollege.edu