1.08.3.GiveItaTry - (* Content-type:...

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

View Full Document Right Arrow Icon

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

View Full DocumentRight Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: (* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 179700, 5428] NotebookOptionsPosition[ 112620, 3939] NotebookOutlinePosition[ 169160, 5140] CellTagsIndexPosition[ 168864, 5127] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[GraphicsData["CompressedBitmap", "\<\ eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwBAKxmAIDiP0fyIQS 3CCK5f//b8/QWEwglhScxQVWzsDADKJBAiDMwA4mUcWYsIiRpo4FWQzElsAu zAFiMI46bNRhVHAYJ4ghAE/vaJrYBof70JTyj7p0WMf5oM0sow4bQIchKmoi dJBTgwsSabYamKSTiSIgIS4yfKhKrQihmkEqYJIVRQdUFxmmKYFIJlxpQoyw eaogClzYYQYlIwCufvyz\ \>"], "Graphics", ShowCellBracket->False, CellMargins->{{25, 24}, {5, 7}}, ImageSize->{81, 22}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "Growth\n", StyleBox["Authors: Bill Davis, Horacio Porta and Jerry Uhl ", "Subtitle"], StyleBox["\[Copyright]1996-2007", "Subtitle", FontSize->12], StyleBox["\n", "Subtitle"], StyleBox["Publisher: ", "Subtitle", FontSize->12], StyleBox[ButtonBox["Math Everywhere, Inc.", BaseStyle->"MEIHyperlink", ButtonData:>{ URL["http://www.matheverywhere.com"], None}], FontSize->12], StyleBox["\nVersion 6.0", "Subtitle", FontSize->12] }], "PrefaceTitle", CellMargins->{{Inherited, Inherited}, {Inherited, 0}}, CellChangeTimes->{3.3986951994096003`*^9}], Cell[TextData[{ "1.08 More Differential Equations\n", StyleBox["GIVE IT A TRY!", FontSize->16, FontSlant->"Italic"] }], "Title"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica ", FontSlant->"Italic"], "6.0 Initializations" }], "Special2", CellMargins->{{19, Inherited}, {Inherited, Inherited}}, CellLabelMargins->{{27, Inherited}, {Inherited, Inherited}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Off", "[", RowBox[{"General", "::", "spell"}], "]"}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"Off", "[", RowBox[{"General", "::", "spell1"}], "]"}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"Needs", "[", "\"\<Units`\>\"", "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"ListAnimate", ",", " ", RowBox[{"AnimationRepetitions", " ", "\[Rule]", " ", "4"}]}], "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"Animate", ",", " ", RowBox[{"AnimationRepetitions", " ", "\[Rule]", " ", "4"}]}], "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CMView", " ", "=", " ", RowBox[{"{", RowBox[{"2.7", ",", " ", "1.6", ",", " ", "1.2"}], "}"}]}], ";"}], " "}]}], "Input", InitializationCell->True] }, Closed]], Cell["\<\ Experience with the starred problems will be especially beneficial for \ understanding later lessons.\ \>", "Special2"], Cell[CellGroupData[{ Cell["G.1) Variable interest rates*", "Subsection", CellTags->"1.08.G1"],CellTags->"1....
View Full Document

Page1 / 85

1.08.3.GiveItaTry - (* Content-type:...

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