DIFF EQ lab 3

DIFF EQ lab 3 - (* 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[ 15195, 329] NotebookOptionsPosition[ 14646, 305] NotebookOutlinePosition[ 14989, 320] CellTagsIndexPosition[ 14946, 317] WindowFrame->Normal*) W (* Beginning of Notebook Content *) Notebook[{ N Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"x1a", "[", "v_", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "16"}], "*", RowBox[{"(", RowBox[{"v", "-", ".575"}], ")"}]}], ")"}], "^", "2"}], ")"}], "-", "46.24"}], ")"}], "/", RowBox[{"-", "32"}]}]}]], "Input", CellChangeTimes->{{3.480986734451*^9, 3.480986791066*^9}, {3.480986823023*^9, 3.4809868592320004`*^9}, {3.480987826808*^9, 3.480987831115*^9}, { 3.480988296659*^9, 3.48098836048*^9}, 3.480988687717*^9}], Cell[BoxData[ RowBox[{ FractionBox["1", "32"], " ", RowBox[{"(", RowBox[{"46.24`", "\[InvisibleSpace]", "-", RowBox[{"256", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "0.575`"}], "+", "v"}], ")"}], "2"]}]}], ")"}]}]], "Output", CellChangeTimes->{3.480987833165*^9, 3.480988365565*^9, 3.480988689458*^9}] }, Open ]], } Cell[CellGroupData[{ C Cell[BoxData[ 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[{"x2b", "[", "v_", "]"}], "=", RowBox[{ RowBox[{"-", "8"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"v", "-", ".575"}], ")"}], "^", "2"}], ")"}], "-", ".330625"}], ")"}]}]}]], "Input", CellChangeTimes->{{3.480986984358*^9, 3.480987010719*^9}, {3.480987876527*^9, 3.480987880005*^9}, {3.480988304245*^9, 3.480988304368*^9}, 3.480988462487*^9}], Cell[BoxData[ RowBox[{ RowBox[{"-", "8"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "0.330625`"}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "0.575`"}], "+", "v"}], ")"}], "2"]}], ")"}]}]], "Output", CellChangeTimes->{3.48098701135*^9, 3.48098788112*^9, 3.480988463968*^9}] }, Open ]], } Cell[CellGroupData[{ C Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x1a", "[", "v", "]"}], ",", RowBox[{"x2b", "[", "v", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", RowBox[{"-", ".5"}], ",", "1.5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4809888034849997`*^9, 3.48098880956*^9}, { 3.480988845983*^9, 3.480988868473*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVlnk4VesXx5XqikLGBkNJhqS6lSJ1v003koSSRlMkkoT8DBFlbCJDphKK hEw3EnK2ilIaRGU+5+xjqkjOsLdU/HZ/7efzrPdZ77PX+13ftRY5nbJ2mSom JjZnipjYn+/hkGWtk5Ns1lxjpWmrV6sTPXwTWYGIzYoeXKh4TEedcHA9at7/ lc1ac0CvKk1VnXCxTHvW9InNWhsOQkJCnfDUkChPLWazSDGXGrpLjQhr4CWt tmezviTe8V0UpUbkSqfbutb2sDK1qd7bXarE94yZnW/OdrNqaPKZ82UVIv+e cuuFpx0sk7fnJ8Ub5xEbQ9k6noZtLMWyo3stdisTnp+ipdSqPrC2xlJCzZ8K RP3co5z/prewfAbli+Pj5AjRElr23Ll3rOb/ThkVuckSyev9XR0iX7G2P3Sa z3OaRZxbWv9il3YDq2nr6LDDZgliXlkEN0ezjvW9tr9TlDaNmFxg+TjhxEPW
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 03/16/2011 for the course APPM 2360 taught by Professor Williamheuett during the Spring '07 term at Colorado.

Page1 / 6

DIFF EQ lab 3 - (* 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