Lab6A_Ex2 - (* 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[ 326610, 5455] NotebookOptionsPosition[ 325996, 5431] NotebookOutlinePosition[ 326338, 5446] CellTagsIndexPosition[ 326295, 5443] WindowFrame->Normal ContainsDynamic->False*) C (* Beginning of Notebook Content *) Notebook[{ N Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"f", "[", RowBox[{"s_", ",", "t_"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"t", " ", RowBox[{"Cos", "[", RowBox[{"2", "Pi", " ", "t"}], "]"}]}], ",", " ", RowBox[{"t", " ", RowBox[{"Sin", "[", RowBox[{"2", "Pi", " ", "t"}], "]"}]}], ",", RowBox[{"s", "*", RowBox[{"(", " ", RowBox[{"2", "+", RowBox[{"Sin", "[", RowBox[{"7", "Pi", " ", "t"}], "]"}]}], ")"}]}]}], "}"}]}], "\n", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"s", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", RowBox[{"{", RowBox[{"5", ",", "200"}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.449483529734375*^9, 3.449483538765625*^9}, { 3.449483758546875*^9, 3.44948379071875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"t", " ",
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[{"Cos", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], ",", RowBox[{"t", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Pi]", " ", "t"}], "]"}]}], ",", RowBox[{"s", " ", RowBox[{"(", RowBox[{"2", "+", RowBox[{"Sin", "[", RowBox[{"7", " ", "\[Pi]", " ", "t"}], "]"}]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{3.4494890165329895`*^9}], Cell[BoxData[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJxk3Xc41e8bB/BzOAhFKjTMIlFoGZU+zwdZGSFSiZBSWgrV10ykUsomRVZG RUOFxOeQERpG9jr25hzr2H7O78/n+et79bru6776ni7H+/6M+5G0u256no1E ImWKkEjsK//Ne3JXTDHcHNMODJmIbu1Vi28camOWxGGwP+t6XEAi0QDsUVJm h0gkOuIOFp2CJNIM4qoBTvTl5WXQp/XQV/NyGJh3tBf5mGcPDCX3HY+xSsJg f3DqFFX4ShdSP3LtiqjwlQnEhfe8O7116yLi8bNTFUJX2HE7c8oA52giUPwR G3w+1A9cD80oeaOZgsGu+9abvVixF8C+ztxOr0hxGnHc8d6qmkQS0n8m7fjw D0VO/Mn+Qw0679+Bi1WllFX1EYC23PrFbTAVg/0naeTLUmEfgH3Tzueji4VM xPsGRdWxajLSXwMfC1gs5MJ/HnLCVrF/AlndAYr4cCLIO8fsKyalYbBvej7u p97QB2BvvDT8HW9gIh76473l7k4y0v+g6cBJvIELJ32cWbIq+gzYcKuhxzYZ IMjZUl3zXgoG+2rXapnbl3sB7GRL6uVbl6cRz8+riI+qJCH9Fwyz1ty6zIm3 LGVsF7n6FWwwq6uwUP0C4hZ709yykzDY/bsm7hKFXQB2Fb7dzfmFE4i/leud Ek1aRDxom9HD/EJ2nCFBqTCu+wqSGdE/RppyQdOck0fCrngM9jaNpowpGxqA fU7BVXrKho64v5qn8/XgGcS5XxfSJm1IuG+SocyPji/AR8r3P9nrBaCrum6/ 1+YXGOwtEvSWtY2NAHYlRRHK2sYBxJe2035V2E0gbqf8KZK/cRase1io0eWW CQSYWbXT5GKwduvsSflN4RjsOnbMy0yxf0i9N1P+x7RYN+LNh20qbyiMIi6i UXZtWmwSRBrv4GNXfA8iQ8syu/1+gtZWEXKDRzAG+9PLJ+ad0yuR+vtvr193 Tqchrim5v2MXZQBxH30PWed0Ohi49/BhqFMSyCtLHBWpqwCr2IJJCswgDPaT 33K3zstXIvXHj7K9mJOnIe6elZzEPNKPuGmItMWcPB3YRwcsjes8BgPdvWtL a/4AjbXG2zviQzHYJ3LVZtfkVCP11E/yZ9bkdCL+gCsvN1RwGPEdCslr1uSM
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 / 93

Lab6A_Ex2 - (* 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