Delta Banner

Mathematics & Science Learning Center
Computer Laboratory


Applications of Differential Equations

Population Dynamics

(continued from last page...)

Your command should have yielded the following:

uscensus = Table[{k, QuantityMagnitude[CountryData["UnitedStates", {"Population", k}]]}, {k, 1790, 2010, 10}]

US Census Data

Notice that we read this list of data into a variable called uscensus so we can refer to it by name in future commands.

It would be nice to get a sense of what this data looks like graphically, but since it is just a list of ordered pairs rather than a function defined by a formula we cannot use Mathematica's Plot command to do this. Instead we will use the ListPlot command. Switch to Mathematica now, then enter and execute the command:

uscensusplot = ListPlot[uscensus, PlotStyle -> Red]

Let's go see what you should have gotten...

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