Homework3Sol - (* Content-type: application/mathematica *)...

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon
(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 55584, 1145] NotebookOptionsPosition[ 54273, 1093] NotebookOutlinePosition[ 54678, 1110] CellTagsIndexPosition[ 54635, 1107] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Problem 1", "Section", CellChangeTimes->{{3.464014045796875*^9, 3.464014052484375*^9}, { 3.46401409125*^9, 3.4640140919375*^9}, {3.464014597703125*^9, 3.4640145978125*^9}, {3.4640165614375*^9, 3.464016562421875*^9}, { 3.46462128534375*^9, 3.46462128546875*^9}, {3.4661809535*^9, 3.466180953578125*^9}}], Cell[CellGroupData[{ Cell["Part d)", "Subsection", CellChangeTimes->{{3.4640140630625*^9, 3.464014064203125*^9}, { 3.464621288578125*^9, 3.464621288984375*^9}, {3.46618095709375*^9, 3.46618095740625*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"A", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1790", ",", "3900000"}], "}"}], ",", RowBox[{"{", RowBox[{"1820", ",", "9600000"}], "}"}], ",", RowBox[{"{", RowBox[{"1840", ",", "17069453"}], "}"}], ",", RowBox[{"{", RowBox[{"1860", ",", "31400000"}], "}"}], ",", RowBox[{"{", RowBox[{"1880", ",", "50200000"}], "}"}], ",", RowBox[{"{", RowBox[{"1900", ",", "76000000"}], "}"}], ",", RowBox[{"{", RowBox[{"1910", ",", "92000000"}], "}"}], ",", RowBox[{"{", RowBox[{"1920", ",", "106000000"}], "}"}], ",", RowBox[{"{", RowBox[{"1930", ",", "123000000"}], "}"}], ",", RowBox[{"{", RowBox[{"1940", ",", "132000000"}], "}"}], ",", RowBox[{"{",
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
RowBox[{"1950", ",", "151000000"}], "}"}], ",", RowBox[{"{", RowBox[{"1960", ",", "179000000"}], "}"}], ",", RowBox[{"{", RowBox[{"1980", ",", "227000000"}], "}"}], ",", RowBox[{"{", RowBox[{"2000", ",", "281000000"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"PL", "=", RowBox[{"ListPlot", "[", RowBox[{"A", ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Medium"}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n0", "[", RowBox[{"t_", ",", "t0_", ",", "N0_", ",", "\[Alpha]_"}], "]"}], "=", RowBox[{"N0", " ", RowBox[{"Exp", "[", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"t", "-", "t0"}], ")"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"nsol", "[", RowBox[{"t_", ",", "t0_", ",", "N0_", ",", "\[Alpha]_", ",", "k_"}], "]"}], "=", FractionBox["k", RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"k", "/", "N0"}], "-", "1"}], ")"}], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[Alpha]"}], RowBox[{"(", RowBox[{"t", "-", "t0"}], ")"}]}], "]"}]}]}]]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t0", "=", "1790"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"N0", "=", "3900000"}], ";"}], "\[IndentingNewLine]",
Background image of page 2
Image of page 3
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 10/21/2011 for the course APPLIED MA AMATH 383 taught by Professor Hongqian during the Fall '10 term at University of Washington.

Page1 / 19

Homework3Sol - (* Content-type: application/mathematica *)...

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online