(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 11041, 292]*) (*NotebookOutlinePosition[ 12094, 328]*) (* CellTagsIndexPosition[ 12050, 324]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{Cell[TextData[ "\nOff[General::spell];\nOff[General::spell1];\nOff[Plot::plnr];\n\ Off[ParametricPlot::ppcom];\nNeeds[\"Graphics`Colors`\"]\n\ Needs[\"Miscellaneous`Units`\"]\nNeeds[\"Algebra`Trigonometry`\"]\n\ Clear[Derivative]\nThreeAxes[u,v]\n\n\nThreeAxes[u_,v_] := \n \ Graphics3D[{\n {Blue,Line[{{-u,0,0},{u,0,0}}]},\n \ Text[\"x\",{u + v,0,0}],\n {Blue,Line[{{0,-u,0},{0,u,0}}]},\n \ Text[\"y\",{0, u + v,0}],\n \ {Blue,Line[{{0,0,0},{0,0,u}}]},\n Text[\"z\",{0,0,u + \ v}]}]; \nThreeAxes[u_] := ThreeAxes[u,u/8];\nThreeAxes::usage = \ \"ThreeAxes[a,b] makes a standard cartesian axis graphics object\n\twith x, \ y, and z running from -a to a, and with axis\n\tlabels b units beyond the \ tips of the axes. ThreeAxes[a]\n\tis ThreeAxes[a,a/8].\";\n\nCMView = {2.7, \ 1.6, 1.2};"], "Input", Editable->False, CellOpen->False, CellGroupingRules->"NormalGrouping", InitializationCell->True, AspectRatioFixed->True], Cell[CellGroupData[{Cell[TextData[ "Gray::shdw: Warning: Symbol Gray appears in multiple contexts \n \ {Miscellaneous`SIUnits`, Graphics`Colors`}; definitions in\n context \ Miscellaneous`SIUnits`\n may shadow or be shadowed by other \ definitions."], "Message", Evaluatable->False, AspectRatioFixed->True], Cell[OutputFormData["\<\ ThreeAxes[u, v]\ \>", "\<\ ThreeAxes[u, v]\ \>"], "Output", Evaluatable->False, AspectRatioFixed->True]}, Open]]}, Open]], Cell[TextData[{ StyleBox["\nMiniproject\nFor The\n", Evaluatable->False, AspectRatioFixed->True, FontFamily->"New York", FontWeight->"Plain"], StyleBox["Mathematica", Evaluatable->False, AspectRatioFixed->True, FontFamily->"New York", FontWeight->"Plain", FontSlant->"Italic"], StyleBox[" Workshop\n", Evaluatable->False, AspectRatioFixed->True, FontFamily->"New York", FontWeight->"Plain"] }], "Title", Evaluatable->False, AspectRatioFixed->True, FontFamily->"New York"], Cell[GraphicsData["PICT", "\<\ 0ll1e01E0Y@1LQ41X022X02>0@0:000000;@0T2H02H1e01@0RX1N07D05D2:P5b 0M@0E@8Z0G800@;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K 00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K 00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K 00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K 00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K00;K 00;K00;K00;K00;K00;K00;K00;K00;K00;K09P09P8Z0502P05h0RX0E@:00G82 :P1E0X01LP010]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/0 0]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/0 0]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/0 0]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/0 0]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/00]/0 0]/00]/00]/00]/00]/00]/00]/00]/00]/0V00V0X00D0:D0GP2P01E0Y@1LP:0 05D2U05b0042f`02f`02f`02f`02f`02f`02f`02f`02f`02f`02f`02f`02f`02 f`02f`02f`02f`02f`02f`02f`2P08l700800S01fP1K0WT1EC01k`1b0Xh1K:40 UP061P000080X@2J00Sonh0003F00:00V0<00`@13@0>:08A0:`=D6USM7EbIB15 LW9_LZ00VJ00Uj40UP061P000080X@2J00P04`0004X00:00V0@23@0<:08[09LH E6QULVDPJG"], "Graphics", Evaluatable->False, TextAlignment->Center, AspectRatioFixed->True, ImageSize->{487, 231}, ImageMargins->{{0, Inherited}, {Inherited, 4}}], Cell[TextData[StyleBox["Gene Bild", Evaluatable->False, AspectRatioFixed->True, FontSize->14]], "Subsection", Evaluatable->False, AspectRatioFixed->True], Cell[TextData["The Geometry of Adding Complex Numbers"], "Subsection", Evaluatable->False, AspectRatioFixed->True, FontSize->14], Cell[TextData[{ StyleBox["Brief Description: ", Evaluatable->False, PageBreakBelow->Automatic, AspectRatioFixed->True, FontSize->14], StyleBox[ "Two non-zero complex numbers z1 and z2 are input. Providing that zero, \ z1, z2, and z1 + z2 are all distinct, the graphs of these four numbers are \ the vertices of a parallelogram. ", Evaluatable->False, PageBreakBelow->Automatic, AspectRatioFixed->True, FontSize->12] }], "Subsection", Evaluatable->False, PageBreakBelow->Automatic, AspectRatioFixed->True, FontSize->14], Cell[TextData[StyleBox[ "Enter two complex numbers in the indicated areas. Subroutine \"leftplot\" \ graphs z1 in red, z2 in blue, and their sum z3 = (z1 + z2) in yellow. \ Subroutine \"rightplot\" graphs line segments from z1, z2, and z3 to the \ origin, and draws line segments between z1 and z3 and z2 and z3 to \ illustrate the parallelogram law. ", Evaluatable->False, AspectRatioFixed->True, FontWeight->"Plain", FontColor->GrayLevel[0.0999924]]], "Subsection", Evaluatable->False, AspectRatioFixed->True, FontColor->GrayLevel[0.0999924]], Cell[TextData[ "By changing the AxesLabel option so that the axes are labeled \"x\" and \ \"y\", and removing the indicated opening and closing comment symbols (* and \ *) , this notebook can also illustrate the parallelogram law for two input \ vectors."], "Subsection", Evaluatable->False, AspectRatioFixed->True, FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontColor->GrayLevel[0.0999924], FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False}], Cell[TextData[ "Try inputting z1 and the complex conjugate of z1. What kind of \ parallelogram did you get? Why? What kind of number is z3? "], "Subsection",\ Evaluatable->False, AspectRatioFixed->True, FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontColor->GrayLevel[0.0999924], FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False}], Cell[TextData[StyleBox[ "Try inputting z1 and the negative of the complex conjugate of z1. What kind \ of parallelogram did you get? Why? What kind of number is z3? ", Evaluatable->False, AspectRatioFixed->True, FontWeight->"Plain", FontColor->GrayLevel[0.0999924]]], "Subsection", Evaluatable->False, AspectRatioFixed->True, FontColor->GrayLevel[0.0999924]], Cell[TextData[{ StyleBox[ "\n\n\n\nNeeds[\"Graphics`Colors`\"];\n\ Clear[x1,y1,z1,z2,z3,x2,y2,x3,y3,v1,v2,v3]\n\n\nz1 = \n(*CHANGE THE ", AspectRatioFixed->True], StyleBox["RED", AspectRatioFixed->True, FontColor->RGBColor[1, 0, 0]], StyleBox[" NUMBER BELOW THIS COMMENT*)\n", AspectRatioFixed->True], StyleBox["2-2I", AspectRatioFixed->True, FontColor->RGBColor[1, 0, 0]], StyleBox[ ";\n\n\nx1 = Re[z1];\ny1 = Im[z1]; \n\nz2 = \n(*CHANGE THE ", AspectRatioFixed->True], StyleBox["BLUE", AspectRatioFixed->True, FontColor->RGBColor[0, 0, 1]], StyleBox[" NUMBER BELOW THIS COMMENT*)\n", AspectRatioFixed->True], StyleBox["2+I", AspectRatioFixed->True, FontColor->RGBColor[0, 0, 1]], StyleBox[ ";\nx2 = Re[z2];\ny2 = Im[z2]; \n\nz3 = z1 + z2;\nx3 = Re[z3];\ny3 = \ Im[z3]; \n\n(* A COMMENT SYMBOL IS A\n PARENTHESIS AND AN ASTERISK \ TOGETHER *) \n\n(* (*REMOVE COMMENT SYMBOL AT ", AspectRatioFixed->True], StyleBox["FAR", AspectRatioFixed->True, FontVariations->{"Underline"->True}], StyleBox[" ", AspectRatioFixed->True, FontWeight->"Plain"], StyleBox[ "LEFT TO DO VECTORS*)\n\n\t\t\t (* ENTER YOUR VECTORS AS ORDERED PAIRS V1 \ \n\t\t\t\t AND V2 BY ENTERING VALUES IN THE\n\t\t\t\t CURLY BRACES \ DEFINITIONS BELOW *) \nv1 = {2,-1};\nv2 = {1,1} ;\n\nv3 = {v1[[1]] + \ v2[[1]], v1[[2]] + v2[[2]]};\n\nx1 = v1[[1]];\nx2 = v2[[1]];\n\ny1 = v1[[2]];\ \ny2 = v2[[2]];\n\nx3 = v3[[1]];\ny3 = v3[[2]];\n*) (*REMOVE COMMENT SYMBOL \ AT ", AspectRatioFixed->True], StyleBox["FAR", AspectRatioFixed->True, FontVariations->{"Underline"->True}], StyleBox[ " LEFT TO DO VECTORS*)\n \n\ leftplot=Show[Graphics[{Red,PointSize[.05],Point[{x1,y1}],\n \ Blue,Point[{x2,y2}],\n Yellow,Point[{x3,y3}]}],\n\ AxesLabel->{\"x\",\"yi\"}, \n\t\t\t Axes->True,\n\t\t\t \ AxesOrigin->{0,0},\n\t\t\t Ticks->None,\n\t\t\t \ PlotRange->{{-Abs[z3],Abs[z3]},\n\t\t\t\t{-Abs[z3],Abs[z3]}},\n\t\t\t \ AspectRatio->Automatic,\n\t\t DisplayFunction->Identity];\n\t\t \n\ rightplot=Show[Graphics[{Red,PointSize[.05],Point[{x1,y1}],\n \ Blue,Point[{x2,y2}],\n Yellow,Point[{x3,y3}],\ \n IndianRed,Line[{{x1,y1},{0,0}}],\n \ NavyBlue, Line[{{x2,y2},{0,0}}],\n \ Yellow,Line[{{x3,y3},{0,0}}],\n \ IndianRed,Line[{{x2,y2},{x3,y3}}],\n NavyBlue, \ Line[{{x1,y1},{x3,y3}}]}],\n AxesLabel->{\"x\",\"yi\"}, \n\t\ \t\t\tAxes->True,\n\t\t\t\tAxesOrigin->{0,0},\n\t\t\t\tTicks->None,\n\t\t\t\t\ PlotRange->{{-Abs[z3],Abs[z3]},\n\t\t\t\t{-Abs[z3],Abs[z3]}},\n\t\t\t\t\ AspectRatio->Automatic,\n\t\t DisplayFunction->Identity];\n\t\t \ \nShow[GraphicsArray[{{leftplot,rightplot}}]];\n", AspectRatioFixed->True] }], "Input", AspectRatioFixed->True] }, FrontEndVersion->"Macintosh 3.0", ScreenRectangle->{{0, 640}, {0, 460}}, WindowToolbars->{}, CellGrouping->Manual, WindowSize->{520, 365}, WindowMargins->{{4, Automatic}, {Automatic, 1}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, MacintoshSystemPageSetup->"\<\ AVU/IFiQKFD000000V:^/09R]g0000000OVaH097bCP0AP1Y06`0I@1^0642HZj` 0V:gT0000001nK500TO9>000000000000000009R[[0000000000000000000000 00000000000000000000000000000000\>" ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1731, 51, 1025, 18, 70, "Input", CellOpen->False, CellGroupingRules->"NormalGrouping", InitializationCell->True], Cell[CellGroupData[{ Cell[2779, 71, 301, 6, 70, "Message", Evaluatable->False], Cell[3083, 79, 133, 7, 70, "Output", Evaluatable->False] }, Open ]] }, Open ]], Cell[3237, 88, 536, 20, 70, "Title", Evaluatable->False], Cell[3776, 110, 1516, 26, 70, 1368, 21, "GraphicsData", "PICT", "Graphics", Evaluatable->False], Cell[5295, 138, 163, 5, 70, "Subsection", Evaluatable->False], Cell[5461, 145, 134, 3, 70, "Subsection", Evaluatable->False], Cell[5598, 150, 565, 18, 70, "Subsection", Evaluatable->False, PageBreakBelow->Automatic], Cell[6166, 170, 561, 12, 70, "Subsection", Evaluatable->False], Cell[6730, 184, 504, 13, 70, "Subsection", Evaluatable->False], Cell[7237, 199, 394, 12, 70, "Subsection", Evaluatable->False], Cell[7634, 213, 375, 9, 70, "Subsection", Evaluatable->False], Cell[8012, 224, 3026, 67, 70, "Input"] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)