Lab 4A_Ex1 - (* 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 6.0' *) ( (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 14174, 340] NotebookOptionsPosition[ 13607, 318] NotebookOutlinePosition[ 13950, 333] CellTagsIndexPosition[ 13907, 330] WindowFrame->Normal ContainsDynamic->False*) C (* Beginning of Notebook Content *) Notebook[{ N Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Lab4A", " ", "Exercise", " ", "1"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", "t_", "]"}], "=", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", "4"}], "}"}], "+", RowBox[{"t", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}], "-", RowBox[{"{", RowBox[{"0.5", ",", "4"}], "}"}]}], ")"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "[", "t_", "]"}], "=", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}], "+", RowBox[{"t", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "7"}], "}"}], "-", RowBox[{"{", RowBox[{"3", ",", "5"}], "}"}]}], ")"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "[", "t_", "]"}], "=", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "7"}], "}"}], "+", RowBox[{"t", RowBox[{"(", RowBox[{ 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[{"6", ",", "4"}], "}"}], "-", RowBox[{"{", RowBox[{"3", ",", "7"}], "}"}]}], ")"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"j", "[", "t_", "]"}], "=", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], "+", RowBox[{"t", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], "-", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}]}], ")"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k", "[", "t_", "]"}], "=", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}], "+", RowBox[{"t", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "-", RowBox[{"{", RowBox[{"5", ",", "2"}], "}"}]}], ")"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "t", "]"}], ",", RowBox[{"g", "[", "t", "]"}], ",", RowBox[{"h", "[", "t", "]"}], ",", RowBox[{"j", "[", "t", "]"}], ",", RowBox[{"k", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.44526704703125*^9, 3.44526705215625*^9}, { 3.4452671143125*^9, 3.44526758446875*^9}, {3.445267630453125*^9, 3.445267718859375*^9}, {3.445268648484375*^9, 3.4452686885625*^9}, { 3.447029177156975*^9, 3.4470291810269747`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"0.5`", "\[InvisibleSpace]", "+", RowBox[{"2.5`", " ", "t"}]}], ",", RowBox[{"4", "+", "t"}]}], "}"}]], "Output", CellChangeTimes->{ 3.445267193125*^9, {3.4452672285*^9, 3.4452672360625*^9}, 3.4452675851875*^9, {3.44526763175*^9, 3.445267653203125*^9}, { 3.445267690265625*^9, 3.445267719140625*^9}, {3.445268653921875*^9, 3.445268689140625*^9}}], Cell[BoxData[ RowBox[{"{",
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.

Page1 / 6

Lab 4A_Ex1 - (* 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