(* 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[ 23334, 588] NotebookOptionsPosition[ 22957, 571] NotebookOutlinePosition[ 23381, 589] CellTagsIndexPosition[ 23338, 586] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"a", "[", "x", "]"}], "=", RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", RowBox[{"-", "4"}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "4", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4", ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "4"}], ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}], "]"}], ",", " ", "Gray", ",", " ", RowBox[{"Opacity", "[", ".3", "]"}], ",", " ", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", " ", RowBox[{"-", "4"}], ",", " ", RowBox[{"-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", " ", "4", ",", " ", RowBox[{"-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"4", ",", " ", "4", ",", " ", RowBox[{"-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"4", ",", " ", RowBox[{"-", "4"}], ",", " ", RowBox[{"-", ".5"}]}], "}"}]}], "}"}], "]"}], ",", "Gray", ",", " ", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", " ", RowBox[{"-", "4"}], ",", " ", "1.5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", " ", "4", ",", " ", "1.5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"4", ",", " ", "4", ",", " ", "1.5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"4", ",", " ", RowBox[{"-", "4"}], ",", " ", "1.5"}], "}"}]}], "}"}], "]"}], ",", " ", "Gray", ",", " ", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", " ", RowBox[{"-", "3"}], ",", " ", "1.5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", " ", "2", ",", " ", "1.5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", "2", ",", " ", "1.5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", RowBox[{"-", "3"}], ",", " ", "1.5"}], "}"}]}], "}"}], "]"}], ",", " ", "Gray", ",", " ", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", " ", RowBox[{"-", "3"}], ",", " ", RowBox[{"-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", " ", "2", ",", " ", RowBox[{"-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", "2", ",", " ", RowBox[{"-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", " ", RowBox[{"-", "3"}], ",", " ", RowBox[{"-", ".5"}]}], "}"}]}], "}"}], "]"}]}], " ", "}"}], "]"}], " ", ",", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", "1.25"}], ",", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", "1.5"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", ".01"}], "x"}], "+", ".6"}], ")"}], " ", RowBox[{"Cos", "[", "v", "]"}]}], "-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", RowBox[{"-", "1.25"}]}], ",", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", "1.5"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", ".01"}], "x"}], "+", ".6"}], ")"}], " ", RowBox[{"Cos", "[", "v", "]"}]}], "-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], ",", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", "1.5"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", ".01"}], "x"}], "+", ".6"}], ")"}], " ", RowBox[{"Cos", "[", "v", "]"}]}], "-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", "1.25"}], ",", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", ".25"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", ".01"}], "x"}], "+", ".6"}], ")"}], " ", RowBox[{"Cos", "[", "v", "]"}]}], "-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", RowBox[{"-", "1.25"}]}], ",", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", ".25"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", ".01"}], "x"}], "+", ".6"}], " ", ")"}], RowBox[{"Cos", "[", "v", "]"}]}], "-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], ",", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", ".25"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", ".01"}], "x"}], "+", ".6"}], ")"}], " ", RowBox[{"Cos", "[", "v", "]"}]}], "-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", "1.25"}], ",", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", ".01"}], "x"}], "+", ".6"}], ")"}], " ", RowBox[{"Cos", "[", "v", "]"}]}], "-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", RowBox[{"-", "1.25"}]}], ",", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", ".01"}], "x"}], "+", ".6"}], ")"}], " ", RowBox[{"Cos", "[", "v", "]"}]}], "-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], ",", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", ".01"}], "x"}], "+", ".6"}], " ", ")"}], RowBox[{"Cos", "[", "v", "]"}]}], "-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", "1.25"}], ",", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", "1.5"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", ".01"}], "x"}], "+", ".6"}], ")"}], " ", RowBox[{"Cos", "[", "v", "]"}]}], "-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", RowBox[{"-", "1.25"}]}], ",", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", "1.5"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", ".01"}], "x"}], "+", ".6"}], ")"}], " ", RowBox[{"Cos", "[", "v", "]"}]}], "-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], ",", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", "1.5"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", ".01"}], "x"}], "+", ".6"}], ")"}], " ", RowBox[{"Cos", "[", "v", "]"}]}], "-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", "1.25"}], ",", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", RowBox[{"-", "2.25"}]}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", ".01"}], "x"}], "+", ".6"}], " ", ")"}], RowBox[{"Cos", "[", "v", "]"}]}], "-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", RowBox[{"-", "1.25"}]}], ",", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], " ", "-", ".6"}], ")"}], RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", RowBox[{"-", "2.25"}]}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", ".01"}], "x"}], "+", ".6"}], ")"}], " ", RowBox[{"Cos", "[", "v", "]"}]}], "-", ".5"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Cos", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], ",", RowBox[{ RowBox[{".3", RowBox[{"(", RowBox[{"2", "+", RowBox[{".01", "x"}], "-", ".6"}], ")"}], RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], "+", RowBox[{"-", "2.25"}]}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", ".01"}], "x"}], "+", ".6"}], ")"}], " ", RowBox[{"Cos", "[", "v", "]"}]}], "-", ".5"}]}], "}"}]}], " ", "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", RowBox[{"Pi", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", " ", RowBox[{"BoundaryStyle", "\[Rule]", "Black"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"FaceForm", "[", RowBox[{"Brown", ",", " ", "Yellow"}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}]}], "}"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", "40"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{ 3.4094156970502844`*^9, {3.409415833941786*^9, 3.409415861879464*^9}, { 3.4094158967357025`*^9, 3.40941590629704*^9}, {3.409415942292662*^9, 3.4094160099875546`*^9}, {3.4094160456082225`*^9, 3.4094160484203806`*^9}, {3.4094160877281*^9, 3.409416118489984*^9}, 3.4094162116952868`*^9, {3.4094162859012117`*^9, 3.40941630069553*^9}, { 3.409416546511446*^9, 3.4094165826297407`*^9}, {3.409416614467581*^9, 3.40941674502147*^9}, 3.409416831473389*^9, {3.4094168955075574`*^9, 3.4094169420608196`*^9}, {3.409416977147607*^9, 3.4094169893639326`*^9}, { 3.409417049812338*^9, 3.4094171319891014`*^9}, {3.409417191267733*^9, 3.4094172199529605`*^9}, {3.409417250890463*^9, 3.4094173091837244`*^9}, { 3.409417704611768*^9, 3.409417714691634*^9}, {3.4094177519168158`*^9, 3.4094178972075424`*^9}, {3.4094179436041183`*^9, 3.4094179826388655`*^9}, 3.4094180216892385`*^9, {3.4094180639742775`*^9, 3.409418092679974*^9}, { 3.409418148419343*^9, 3.4094181490756516`*^9}, {3.409418181750454*^9, 3.4094182011584425`*^9}, {3.409418277460277*^9, 3.409418379138008*^9}, 3.4094184506890044`*^9, {3.40941848142515*^9, 3.409418538287675*^9}, { 3.409419348294507*^9, 3.40941939065578*^9}, {3.4094196247443914`*^9, 3.4094196337760463`*^9}, {3.40947507527728*^9, 3.4094750872877007`*^9}, { 3.4094753349214587`*^9, 3.4094753535625916`*^9}, {3.4094992055878935`*^9, 3.4094992555540776`*^9}, {3.4094993812423115`*^9, 3.409499595807064*^9}, { 3.4094996758023024`*^9, 3.409499722602556*^9}, {3.4095000207589397`*^9, 3.4095001370891113`*^9}, {3.409500495873641*^9, 3.409500530552268*^9}, { 3.409500577169695*^9, 3.4095006196412725`*^9}, {3.4095007544904795`*^9, 3.4095008012951164`*^9}, {3.4095008353816986`*^9, 3.4095008572644424`*^9}, 3.4095009528377943`*^9, {3.409501565913104*^9, 3.4095016832445126`*^9}, { 3.409503050475603*^9, 3.4095030620013824`*^9}, 3.409504613129056*^9, { 3.4095055501199646`*^9, 3.409505557016808*^9}, {3.4095078791988535`*^9, 3.4095078818575*^9}, {3.4095079623832264`*^9, 3.409508086025951*^9}, 3.409508182550476*^9, {3.409508221366722*^9, 3.4095082560229683`*^9}, { 3.4095083273059855`*^9, 3.409508330199219*^9}, {3.409508568617299*^9, 3.4095086123598614`*^9}, {3.409508666533704*^9, 3.4095087154528084`*^9}}], Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"a", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "40"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{ 3.409502524163887*^9, {3.4095047475019217`*^9, 3.409504748268247*^9}, { 3.409505704649912*^9, 3.409505705306754*^9}, 3.409506395741741*^9}] }, WindowSize->{1089, 750}, WindowMargins->{{Automatic, 169}, {43, Automatic}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, Magnification->1., FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 21963, 536, 512, "Input"], Cell[22534, 559, 419, 10, 31, "Input"] } ] *) (* End of internal cache information *)