Lab5A_Ex2 - 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
(* 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[ 79149, 1521] NotebookOptionsPosition[ 77617, 1469] NotebookOutlinePosition[ 78183, 1490] CellTagsIndexPosition[ 78140, 1487] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"Exercise", " ", "2"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.434732303877672*^9, 3.434732312560196*^9}, 3.435417378567232*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"(", "a", ")"}], "\[IndentingNewLine]", RowBox[{"Tangent", " ", "vector", " ", "of", " ", "two", " ", "parametrizations", " ", "are"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "t_", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"Sin", "[", "t", "]"}]}], ",", RowBox[{"Cos", "[", "t", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "[", "t_", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"2", "t", RowBox[{"(", RowBox[{"-", RowBox[{"Sin", "[", RowBox[{"t", "^", "2"}], "]"}]}], ")"}]}], ",", RowBox[{"2", "t", RowBox[{"(", RowBox[{"Cos", "[", RowBox[{"t", "^", "2"}], "]"}], ")"}]}]}], "}"}]}]}], "Input", CellChangeTimes->{{3.43473215459825*^9, 3.434732198118335*^9}, { 3.434732316372897*^9, 3.434732343042018*^9}, {3.434734134339306*^9, 3.434734140050311*^9}, {3.4347341785298758`*^9, 3.434734180466372*^9}, { 3.4347342144530153`*^9, 3.434734215553686*^9}}],
Background image of page 1

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

View Full DocumentRight Arrow Icon
Cell[BoxData["a"], "Output", CellChangeTimes->{3.434735137249522*^9}], Cell[BoxData[ RowBox[{"are", " ", "of", " ", "parametrizations", " ", "Tangent", " ", "two", " ", "vector"}]], "Output", CellChangeTimes->{3.43473513725418*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "t", " ", RowBox[{"Sin", "[", SuperscriptBox["t", "2"], "]"}]}], ",", RowBox[{"2", " ", "t", " ", RowBox[{"Cos", "[", SuperscriptBox["t", "2"], "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.434735137260195*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Segments", "[", RowBox[{ RowBox[{"f", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", "12", ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Estimate", "[", RowBox[{ RowBox[{"f", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", "12"}], "]"}]}], "Input", CellChangeTimes->{{3.434731551164242*^9, 3.4347315656529713`*^9}, { 3.4347316958120413`*^9, 3.43473170113735*^9}, {3.434734183634636*^9, 3.434734185760704*^9}, {3.434734237234724*^9, 3.434734237967719*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[1, 0, 0], LineBox[CompressedData[" 1:eJw123c81W/YB3CiFAmpVCo00FIo7S6hYWREaf2yUkJmJaKkpFDZeySyZe9x 2Tt7b45xcM75JkRGPV/P83r6R+/XMc657+u+7uvzep0jpGt6TX8VExPTFxYm
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/07/2011 for the course MATH 2374 taught by Professor Mosher during the Spring '07 term at Minnesota.

Page1 / 26

Lab5A_Ex2 - 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