Lab5B_Ex1 - Content-type application/mathematica Wolfram...

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[ 539589, 9369] NotebookOptionsPosition[ 538363, 9326] NotebookOutlinePosition[ 538930, 9347] CellTagsIndexPosition[ 538887, 9344] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Exercise", " ", "1"}]], "Input", CellChangeTimes->{{3.4354177311424637`*^9, 3.435417735622747*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"f", "[", "t_", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"50", RowBox[{"Exp", "[", RowBox[{"-", "t"}], "]"}], RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"50", RowBox[{"Exp", "[", RowBox[{"-", "t"}], "]"}], RowBox[{"Sin", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"t", "^", "2"}], "+", RowBox[{"5", "t"}]}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{"P1", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"f", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "5"}], "}"}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "5", ",", "1"}], "}"}]}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.4348136102002897`*^9, 3.434813762947153*^9}, { 3.434813807620139*^9, 3.4348138456012707`*^9}, {3.4348140339968853`*^9, 3.434814036583996*^9}, 3.4348140712589693`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"50", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]], " ", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"50", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]], " ", RowBox[{"Sin", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"5", " ", "t"}], "+", SuperscriptBox["t", "2"]}]}], "}"}]], "Output", CellChangeTimes->{{3.4348137637383337`*^9, 3.43481384800176*^9}, 3.434814039354455*^9, 3.434814072451033*^9, {3.4353355481229362`*^9, 3.4353355536348*^9}, 3.435335877310965*^9}], Cell[BoxData[ Graphics3DBox[{{}, {}, {Hue[0.67, 0.6, 0.6], Line3DBox[CompressedData[" 1:eJwV2Xk01N8bB/CRsox1xr4UkiXbzNgV5hmEKJUsJUVZkhaRNako2UMLLZLQ ai8xKt2PpexLTCVfIsyQpQgJxe/z+2vOeZ3PuefO87zv57lzRulIgKPPGgKB IMpFIHDjn75n9D6urtrCzQNu6ta+H83NNvY+zd7wwHyccfQQ5bct5C5n2afd fkGf+GwfPOJ/gT6jnDN+aNIW6g1Kvr5Ir6MfNQkykTqZSufT0pB+24P7pWAr Rkw3PWIhNHI48D69Z7ObXFSZLYSPn3W/4TVM1w50P1ASWUJvKLDdR/CyhbJr sl4FqrP0A14STZ6piD7L5h6mvLeBVKlPYd7Fa0De5nxkZ0UHfehBV2BbijWs cTm/e6SOBGoNbJX/1gzSq0sXO31mLSHnx6PxPymKkOFKKTjMN0P30xZ2PnWH ASb7rjdNiKvCP9vi0PGmRfqd2j+k3Z3m4PN+OthYVQN8bh5w/uvCBcUtyl1b nbaAbKRrr7e5Nox1ChH8nHngqcg5eymrLXDC7Hf7LRttiEj4xuXlxwNB0v85 LuhtAav5hONvdmvDQtDwRc9IHjiMuZHeiW0BO3ZJfdcRbajoCfx95AH+fHFq cGa3CegK6IuYXdGGHT+ZKHaKBzbxCa2TcTKBjrXl1aLN2vDJdrrZ4govmJUf cbm1zxh2eF4sXtymA7uLuOvvVPHBXcIuucYAQ2i3EKqbEaXA+NZqqFUTgHvC rtppHoYgscPFq1OSAqpDOR0EMwHYvho4dXCXIUj5TjzNlqdAld1/dhaOAmDw Su4ckWIIJ+d27ieqU4BzxImn/ZwAqN41nH78wwA2NO9LUjCngGOJazpflwAs ljwgzZ8ygCH9v9H2RykQxcxd4I8SBK4sk2tfz+hDzeo1/uUiCogk260z/ygE...
View Full Document

This note was uploaded on 03/07/2011 for the course MATH 2374 taught by Professor Mosher during the Spring '07 term at Minnesota.

Page1 / 159

Lab5B_Ex1 - Content-type application/mathematica Wolfram...

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