(* 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[ 60936, 1547] NotebookOptionsPosition[ 19350, 638] NotebookOutlinePosition[ 58786, 1473] CellTagsIndexPosition[ 58551, 1461] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Mathematica Version 6 Compatibility Information (continued)\ \>", "Title"], Cell["\<\ This notebook continues Chapter by Chapter observations. Don't forget to look \ at the introduction in the first notebook! \ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ 19 Elementary applications to two-dimensional physics\ \>", "Title", CellTags->"c:1"], Cell["\<\ There is nothing that goes wrong in this chapter, but the following \ optimizations, particularly for on-screen work, might be helpful.\ \>", "Text"], Cell[CellGroupData[{ Cell["19.5 The method of images", "Section", PageBreakAbove->Automatic, CellTags->"c:19"], Cell[CellGroupData[{ Cell["\<\ \[MathematicaIcon] Half-plane boundary conditions\ \>", "Subsection", CellTags->"c:20"], Cell[TextData[{ StyleBox["ContourPlot", FontFamily->"Courier", FontWeight->"Bold"], " now colours in by default, which I do not object to!" }], "Text"], Cell["\<\ ContourPlot[1/2*Log[(x^2+(y-1)^2)/(x^2+(y+1)^2)], {x,-2,2},{y,0,4}, PlotPoints -> 30] \ \>", "Input", GroupPageBreakWithin->Automatic, CellLabel->"In[40]:="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["19.6 Further applications to fluid dynamics", "Section", CellTags->"c:22"], Cell[TextData[{ "The plot given here takes a long time to compute with the setting of ", StyleBox["PlotPoints", FontFamily->"Courier", FontWeight->"Bold"], " given. The near disappearance on screen of thin lines also undermines the \ output. The following are better!" }], "Text"], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"x", "^", "2"}], "-", RowBox[{"y", "^", "2"}]}], ",", " ", RowBox[{"2", " ", "x", " ", "y"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "2"}], ",", " ", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"y", ",", " ", "0", ",", " ", "2"}], "}"}], ",", " ", RowBox[{"ContourShading", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotPoints", " ", "->", " ", "40"}], ",", " ", RowBox[{"ContourStyle", " ", "\[Rule]", " ", RowBox[{"AbsoluteThickness", "[", "0.3", "]"}]}], ",", " ", RowBox[{"Contours", " ", "->", RowBox[{"Table", "[", RowBox[{ RowBox[{"k", "/", "4"}], ",", " ", RowBox[{"{", RowBox[{"k", ",", " ", RowBox[{"-", "15"}], ",", " ", "15", ",", " ", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}]}], ",", " ", RowBox[{"AspectRatio", " ", "->", " ", RowBox[{"1", "/", "2"}]}]}], "]"}]], "Input", GroupPageBreakWithin->Automatic, CellLabel->"In[41]:="], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"y", "*", RowBox[{"(", RowBox[{"1", " ", "-", " ", RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}]}], ")"}]}]}], ")"}]}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "4"}], ",", " ", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"y", ",", " ", RowBox[{"-", "2"}], ",", " ", "2"}], "}"}], ",", " ", RowBox[{"AspectRatio", " ", "->", " ", RowBox[{"1", "/", "2"}]}], ",", " ", RowBox[{"ContourShading", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotPoints", " ", "->", " ", "40"}], ",", " ", RowBox[{"Contours", " ", "->", " ", "41"}], ",", " ", RowBox[{"ContourStyle", " ", "\[Rule]", " ", RowBox[{"AbsoluteThickness", "[", "0.3", "]"}]}]}], "]"}]], "Input", GroupPageBreakWithin->Automatic, CellLabel->"In[98]:="], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ RowBox[{"y", "*", RowBox[{"(", RowBox[{"1", " ", "-", " ", RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}]}], ")"}]}]}], ")"}]}], " ", "+", RowBox[{ RowBox[{"5", "/", RowBox[{"(", RowBox[{"4", " ", "Pi"}], ")"}]}], RowBox[{"Log", "[", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}]}], "]"}]}]}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "4"}], ",", " ", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"y", ",", " ", RowBox[{"-", "2"}], ",", " ", "2"}], "}"}], ",", " ", RowBox[{"AspectRatio", " ", "->", " ", RowBox[{"1", "/", "2"}]}], ",", " ", "\n", "\t ", RowBox[{"ContourShading", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotPoints", " ", "->", " ", "40"}], ",", RowBox[{"Contours", " ", "->", RowBox[{"Table", "[", RowBox[{ RowBox[{"k", "/", "4"}], ",", " ", RowBox[{"{", RowBox[{"k", ",", " ", RowBox[{"-", "15"}], ",", " ", "15", ",", " ", "1"}], "}"}]}], "]"}]}], ",", " ", RowBox[{"ContourStyle", " ", "\[Rule]", " ", RowBox[{"AbsoluteThickness", "[", "0.3", "]"}]}]}], "]"}]], "Input", GroupPageBreakWithin->Automatic, CellLabel->"In[42]:="], Cell[CellGroupData[{ Cell["\<\ \[MathematicaIcon] Conformal mappings on the cylinder\ \>", "Subsection", CellTags->"c:27"], Cell["\<\ The same modifications as before help the speed output quality.\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"JoukowskiFlow", "[", RowBox[{ "z_", ",", " ", "\[Theta]_", ",", " ", "a_", ",", " ", "w_", ",", " ", "U_", ",", " ", "V_", ",", " ", "k_", ",", " ", "\[Lambda]_"}], "]"}], " ", ":=", "\n", "\t", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "\[Zeta]", "}"}], ",", "\n", "\t", RowBox[{ RowBox[{"\[Zeta]", " ", "=", " ", RowBox[{ RowBox[{"-", "w"}], " ", "+", " ", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "I"}], "*", "\[Theta]"}], "]"}], "*", RowBox[{"z", "/", "2"}], "*", RowBox[{"(", RowBox[{"1", " ", "+", " ", RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{"4", " ", RowBox[{"\[Lambda]", "^", "2"}], " ", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", " ", "I", " ", "\[Theta]"}], "]"}], "/", RowBox[{"z", "^", "2"}]}]}]}], "]"}]}], ")"}]}]}]}], " ", ";", "\n", "\t\t", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"U", "-", RowBox[{"I", "*", "V"}]}], ")"}], "\[Zeta]"}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"U", "+", RowBox[{"I", "*", "V"}]}], ")"}], RowBox[{ RowBox[{"a", "^", "2"}], "/", "\[Zeta]"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Log", "[", "\[Zeta]", "]"}], "*", "I", "*", "k"}], ")"}], "/", RowBox[{"(", RowBox[{"2", "*", "Pi"}], ")"}]}]}]}]}], "]"}]}]], "Input", CellLabel->"In[43]:="], Cell[BoxData[ RowBox[{ RowBox[{"JoukowskiPsi", "[", RowBox[{ "x_", ",", " ", "y_", ",", " ", "\[Theta]_", ",", " ", "a_", ",", " ", "\[Alpha]_", ",", " ", "\[Beta]_", ",", " ", "U_", ",", " ", "V_", ",", " ", "k_", ",", " ", "\[Lambda]_"}], "]"}], " ", ":=", "\n", "\t", RowBox[{"Im", "[", RowBox[{"JoukowskiFlow", "[", RowBox[{ RowBox[{"x", "+", RowBox[{"I", " ", "y"}]}], ",", " ", "\[Theta]", ",", " ", "a", ",", " ", RowBox[{"\[Alpha]", "+", RowBox[{"I", " ", "\[Beta]"}]}], ",", " ", "U", ",", " ", "V", ",", " ", "k", ",", " ", "\[Lambda]"}], "]"}], "]"}]}]], "Input", CellLabel->"In[44]:="], Cell[BoxData[ RowBox[{"myplot", " ", "=", " ", RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"JoukowskiPsi", "[", RowBox[{"x", ",", "y", ",", "0", ",", RowBox[{"3", "/", "2"}], ",", "0", ",", "0", ",", "1", ",", "0.5", ",", RowBox[{"-", "4"}], ",", " ", RowBox[{ RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "4"}], ",", " ", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"y", ",", " ", RowBox[{"-", "2"}], ",", " ", "2"}], "}"}], ",", " ", RowBox[{"ContourShading", " ", "->", " ", "False"}], ",", " ", RowBox[{"AspectRatio", " ", "->", " ", RowBox[{"1", "/", "2"}]}], ",", " ", RowBox[{"PlotPoints", " ", "->", " ", "30"}], ",", " ", RowBox[{"Contours", " ", "->", RowBox[{"Table", "[", RowBox[{ RowBox[{"k", "/", "4"}], ",", " ", RowBox[{"{", RowBox[{"k", ",", " ", RowBox[{"-", "20"}], ",", " ", "20", ",", " ", "1"}], "}"}]}], "]"}]}]}], "]"}]}]], "Input", GroupPageBreakWithin->Automatic, CellLabel->"In[45]:="], Cell[BoxData[ RowBox[{ RowBox[{"EllipseGraphic", "[", RowBox[{"A_", ",", " ", "B_"}], "]"}], " ", ":=", " ", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"A", " ", RowBox[{"Cos", "[", "s", "]"}]}], ",", " ", RowBox[{"B", " ", RowBox[{"Sin", "[", "s", "]"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"s", ",", " ", "0", ",", " ", RowBox[{"2", " ", "Pi"}]}], "}"}], ",", " ", RowBox[{"PlotStyle", " ", "->", " ", RowBox[{"Thickness", "[", "0.008", "]"}]}]}], "]"}]}]], "Input", CellLabel->"In[46]:="], Cell[BoxData[ RowBox[{"ell", " ", "=", " ", RowBox[{"EllipseGraphic", "[", RowBox[{"2", ",", "1"}], "]"}]}]], "Input", GroupPageBreakWithin->Automatic, CellLabel->"In[47]:="], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"myplot", ",", " ", "ell"}], "]"}]], "Input", GroupPageBreakWithin->Automatic, CellLabel->"In[48]:="], Cell[TextData[{ "Several other graphics in this section benefit from the same treatment. It \ is not a good idea to lower the value of ", StyleBox["PlotPoints", FontFamily->"Courier", FontWeight->"Bold"], " too much in the Finn-Cox graphics in the last section, as this might \ produce artefacts. The results from M6 look slightly different. " }], "Text"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["20 Numerical transform techniques", "Title", CellTags->"c:1"], Cell[CellGroupData[{ Cell["\<\ 20.3 \[MathematicaIcon] Applying the discrete Fourier transform in two \ dimensions\ \>", "Section", CellTags->"c:17"], Cell[TextData[{ "There is not really a problem here, except that the new default of \ colouring a ", StyleBox["ListDensityPlot", FontFamily->"Courier", FontWeight->"Bold"], " is rather annoying. The following was supposed to produce a black and \ white plot, but now we get a blue \"E\" on a yellow background with rather \ fuzzy edges (which is more annoying if you expand the image):" }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"chare", "[", RowBox[{"x_", ",", " ", "y_"}], "]"}], " ", ":=", " ", RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "30"}], "<", "x", "<", RowBox[{"-", "20"}]}], " ", "&&", " ", RowBox[{ RowBox[{"-", "40"}], " ", "<", "y", "<", "40"}]}], ",", " ", "0", ",", " ", RowBox[{ RowBox[{ RowBox[{"-", "20"}], "\[LessEqual]", " ", "x", " ", "\[LessEqual]", " ", "30"}], " ", "&&", " ", RowBox[{ RowBox[{"-", "40"}], "<", "y", "<", RowBox[{"-", "30"}]}]}], ",", " ", "0", ",", " ", RowBox[{ RowBox[{ RowBox[{"-", "20"}], "\[LessEqual]", " ", "x", " ", "\[LessEqual]", " ", "30"}], " ", "&&", " ", RowBox[{ RowBox[{"-", "5"}], "<", "y", "<", "5"}]}], ",", " ", "0", ",", RowBox[{ RowBox[{ RowBox[{"-", "20"}], "\[LessEqual]", " ", "x", " ", "\[LessEqual]", " ", "30"}], " ", "&&", " ", RowBox[{"30", "<", "y", "<", "40"}]}], ",", " ", "0", ",", "True", ",", " ", "1"}], "]"}]}]], "Input", CellLabel->"In[49]:="], Cell[BoxData[{ RowBox[{ RowBox[{"edata", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"chare", "[", RowBox[{"x", ",", " ", "y"}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"y", ",", " ", RowBox[{"-", "50"}], ",", " ", "50", ",", " ", RowBox[{"100", "/", "127"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "50"}], ",", " ", "50", ",", " ", RowBox[{"100", "/", "127"}]}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"ListDensityPlot", "[", RowBox[{"edata", ",", " ", RowBox[{"Mesh", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotRange", " ", "->", " ", "All"}]}], "]"}]}], "Input", GroupPageBreakWithin->Automatic, CellLabel->"In[50]:="], Cell[BoxData[ RowBox[{"ListDensityPlot", "[", RowBox[{"edata", ",", " ", RowBox[{"Mesh", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotRange", " ", "->", " ", "All"}], ",", " ", RowBox[{"ColorFunction", " ", "\[Rule]", " ", "GrayLevel"}]}], "]"}]], "Input", CellLabel->"In[52]:="], Cell["\<\ If anyone knows how to get rid of the interpolation at the edges let the \ author know! \ \>", "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ 21 Conformal mapping II: the Schwarz\[Dash]Christoffel mapping\ \>", "Title", CellTags->"c:1"], Cell[TextData[{ "Many of the plots in this Chapter will get coloured in by default in ", StyleBox["Mathematica", FontSlant->"Italic"], " 6, otherwise just the following needs to be noted." }], "Text"], Cell[CellGroupData[{ Cell["21.4 Triangular and rectangular boundaries", "Section", CellTags->"c:12"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " 6 appears to be less tolerant of processing Input expressed in Traditional \ Form. It is safer to define ", StyleBox["w", FontFamily->"Courier", FontWeight->"Bold"], " as" }], "Text"], Cell[BoxData[ RowBox[{"w", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", " ", "+", " ", "\[Beta]"}], ")"}], "/", "Pi"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"\[Alpha]", "/", "Pi"}], "]"}], "*", RowBox[{"Gamma", "[", RowBox[{"\[Beta]", "/", "Pi"}], "]"}]}], ")"}]}], "*", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"\[Zeta]", "^", RowBox[{"(", RowBox[{ RowBox[{"\[Alpha]", "/", "Pi"}], " ", "-", " ", "1"}], ")"}]}], "*", RowBox[{ RowBox[{"(", RowBox[{"1", " ", "-", " ", "\[Zeta]"}], ")"}], "^", RowBox[{"(", RowBox[{ RowBox[{"\[Beta]", "/", "Pi"}], " ", "-", " ", "1"}], ")"}]}]}], ",", " ", RowBox[{"{", RowBox[{"\[Zeta]", ",", " ", "0", ",", " ", "z"}], "}"}], ",", " ", "\n", " ", RowBox[{"Assumptions", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Im", "[", "z", "]"}], " ", "!=", " ", "0"}], " ", "||", " ", RowBox[{ RowBox[{"Re", "[", "z", "]"}], " ", "<=", " ", "1"}]}], ",", " ", RowBox[{"\[Alpha]", " ", ">", " ", "0"}], ",", " ", RowBox[{"\[Beta]", " ", ">", " ", "0"}]}], "}"}]}]}], "]"}]}]}]], "Input", CellLabel->"In[53]:="], Cell["\<\ If you know about incomplete beta functions, a simpler solution is to just \ define afresh\ \>", "Text", CellChangeTimes->{{3.394185347157311*^9, 3.394185366951694*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"g", "[", "z_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{"Beta", "[", RowBox[{"z", ",", " ", RowBox[{"1", "/", "3"}], ",", " ", RowBox[{"1", "/", "3"}]}], "]"}], " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"2", "/", "3"}], "]"}], "/", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "/", "3"}], "]"}], "^", "2"}]}]}]}]], "Input", CellLabel->"In[54]:="], Cell["and note that", "Text"], Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"g", "[", "z", "]"}], ",", " ", "z"}], "]"}]], "Input", CellLabel->"In[55]:="], Cell["\<\ which has the right phase factor, and the plot is better with thicker lines, \ as usual!\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"Needs", "[", "\"\\"", "]"}], ";"}]], "Input",\ CellLabel->"In[117]:="], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"CartesianConformal", "[", RowBox[{ "func_", ",", " ", "xrange_", ",", " ", "yrange_", ",", " ", "options___"}], "]"}], " ", ":=", "\n", "\t", RowBox[{"Show", "[", RowBox[{ RowBox[{"GraphicsArray", "[", RowBox[{"{", "\n", "\t\t\t", RowBox[{ RowBox[{"CartesianMap", "[", RowBox[{ RowBox[{"#", "&"}], ",", "xrange", ",", " ", "yrange", ",", " ", "options", ",", " ", RowBox[{"DisplayFunction", " ", "->", " ", "Identity"}]}], "]"}], ",", "\n", "\t\t\t", RowBox[{"CartesianMap", "[", RowBox[{ "func", ",", " ", "xrange", ",", " ", "yrange", ",", " ", "options", ",", " ", RowBox[{"DisplayFunction", " ", "->", " ", "Identity"}]}], "]"}]}], "\n", "\t\t", "}"}], "]"}], ",", " ", RowBox[{"DisplayFunction", " ", "->", " ", "$DisplayFunction"}]}], "]"}]}], ";"}]], "Input", CellLabel->"In[56]:="], Cell[BoxData[ RowBox[{"CartesianConformal", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"g", "[", "#", "]"}], "&"}], ")"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "8"}], ",", " ", "8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "12"}], ")"}]}], ",", " ", "8"}], "}"}], ",", " ", RowBox[{"Lines", " ", "->", " ", "30"}], ",", RowBox[{"PlotPoints", " ", "->", " ", "100"}], ",", " ", RowBox[{"PlotRange", " ", "->", " ", "All"}], ",", " ", RowBox[{"PlotStyle", " ", "\[Rule]", " ", RowBox[{"AbsoluteThickness", "[", "0.4", "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.3944512267640133`*^9, 3.3944512288968077`*^9}}, CellLabel->"In[58]:="] }, Open ]], Cell[CellGroupData[{ Cell["\<\ 21.5 \[MathematicaIcon] Higher-order hypergeometric mappings\ \>", "Section", CellTags->"c:15"], Cell[TextData[{ "In the test version of M6 used to prepare this file, some of the \ integrations benefit from the post-application of ", StyleBox["FullSimplify", FontFamily->"Courier", FontWeight->"Bold"], ". For example, ", StyleBox["normfactor", FontFamily->"Courier", FontWeight->"Bold"], " benefits from being cleaned up in this way. \n\nI have not found any other \ problems in this Chapter, though many of the graphics get coloured in by \ default, rather tastefully!" }], "Text"] }, Open ]] }, Open ]] }, AutoGeneratedPackage->None, ScreenStyleEnvironment->"Printout", WindowToolbars->{"RulerBar", "EditBar"}, WindowSize->{685, 814}, WindowMargins->{{11, Automatic}, {Automatic, 5}}, PrintingCopies->1, PrintingStartingPageNumber->105, PrintingPageRange->{1, Automatic}, PageHeaders->{{Inherited, Inherited, Cell[ TextData[{"Complex Analysis with Mathematica"}], FontSlant -> "Italic"]}, { Cell[ TextData[{"6 The Mandelbrot set"}], FontSlant -> "Italic"], Inherited, Inherited}}, PageHeaderLines->{False, False}, PrintingOptions->{"PrintCellBrackets"->False, "PrintMultipleHorizontalPages"->False, "PrintRegistrationMarks"->False, "PrintingMargins"->{{67.5625, 67.5625}, {59.5, 59.5}}}, ShowSelection->True, TaggingRules:>{ "PaginationCache" -> {{2003, 11, 9, 15, 46, 39}, {101, 101, 101, 101, 101, 101, 101, 101, 101, 101, 101, 101, 101, 101, 101, 101, 101, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 103, 104, 104, 104, 104, 104, 104, 104, 104, 104, 104, 104, 104, 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 106, 107, 107, 107, 107, 107, 107, 107, 107, 107, 107, 107, 107, 107, 107, 108, 108, 108, 108, 108, 108, 108, 108, 108, 108, 108, 108, 108, 108, 108, 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, 110, 110, 110, 110, 111, 111, 111, 111, 112, 112, 112, 112, 112, 112, 112, 112, 112, 112, 112, 113, 113, 113, 113, 113, 113, 113, 113, 113, 114, 114, 114, 114, 114, 114, 115, 115, 115, 115, 115, 115, 115, 115, 116, 116, 116, 116, 116, 116, 116, 117, 117, 117, 117, 117, 117, 117, 118, 118, 118, 118, 118, 118, 118, 118, 118, 118, 118, 119, 119, 119, 119, 119, 119, 119, 120, 120, 120, 120, 120, 120, 120, 120, 121, 121, 121, 121, 122, 122, 122, 122, 122, 122, 122, 123, 123, 123, 123, 123, 123, 123, 123, 123, 123, 123, 123, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 125, 126, 126, 126, 126, 127, 127, 127, 127, 127, 127, 127, 127, 127, 128, 128, 128, 129, 129, 129, 130, 130, 130, 130, 130, 130, 131, 132, 132, 132, 132, 132, 132, 132, 132, 132, 133, 133, 133, 133, 133, 133, 133}}}, ShowCellLabel->False, Magnification->1.25, FrontEndVersion->"6.0 for Mac OS X PowerPC (32-bit) (June 19, 2007)", StyleDefinitions->Notebook[{ Cell[ CellGroupData[{ Cell[ "Style Definitions", "Subtitle", CellMargins -> {{0, 4}, {Inherited, Inherited}}], Cell[ "Modify the definitions below to change the default appearance of all \ cells in a given styl e. Make modifications to any definition using commands \ in the Format menu.", "Text", CellMargins -> {{0, 4}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ "Style Environment Names", "Section", CellMargins -> {{0, 4}, {Inherited, Inherited}}], Cell[ StyleData[All, "Working"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, ScriptMinSize -> 9], Cell[ StyleData[All, "Printout"], PageWidth -> PaperWidth, CellMargins -> {{0, 4}, {Inherited, Inherited}}, ShowCellLabel -> False, ImageSize -> {200, 200}, PrivateFontOptions -> {"FontType" -> "Outline"}]}, Open]], Cell[ CellGroupData[{ Cell[ "Notebook Options", "Section", CellMargins -> {{0, 4}, {Inherited, Inherited}}], Cell[ "The options defined for the style below will be used at the \ Notebook level.", "Text", CellMargins -> {{0, 4}, {Inherited, Inherited}}], Cell[ StyleData["Notebook"], PageHeaders -> {{ Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"], None, Cell[ TextData[{ ValueBox["FileName"]}], "Header"]}, { Cell[ TextData[{ ValueBox["FileName"]}], "Header"], None, Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"]}}, PageHeaderLines -> {True, True}, PrintingOptions -> { "FacingPages" -> True, "FirstPageHeader" -> False}, CellMargins -> {{0, 4}, {Inherited, Inherited}}, CellOpen -> True, CellLabelAutoDelete -> False, CellFrameLabelMargins -> 6, StyleMenuListing -> None]}, Open]], Cell[ CellGroupData[{ Cell[ "Styles for Headings", "Section", CellMargins -> {{0, 4}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Title"], CellFrame -> {{0, 0}, {0, 0.25}}, CellMargins -> {{0, 4}, {4, 20}}, CellOpen -> True, CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> False, CellFrameMargins -> 9, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {0.95, 11}, CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}}, FontSize -> 36], Cell[ StyleData["Title", "Printout"], CellMargins -> {{0, 4}, {4, 0}}, CellFrameMargins -> 4, FontSize -> 20]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], CellMargins -> {{0, 4}, {0, 10}}, CellOpen -> True, CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> False, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 0}, CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}}, FontSize -> 24, FontSlant -> "Italic"], Cell[ StyleData["Subtitle", "Printout"], CellMargins -> {{0, 4}, {0, 10}}, FontSize -> 16]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["SectionFirst"], CellFrame -> {{0, 0}, {0, 3}}, CellMargins -> {{0, 4}, {4, 30}}, CellOpen -> True, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, CellFrameMargins -> 3, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, FontSize -> 18, FontWeight -> "Bold"], Cell[ StyleData["SectionFirst", "Printout"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, FontSize -> 14]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellMargins -> {{0, 4}, {3, 20}}, CellOpen -> True, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, FontSize -> 18, FontWeight -> "Bold"], Cell[ StyleData["Section", "Printout"], CellMargins -> {{0, 4}, {4, 18}}, FontSize -> 14]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellDingbat -> "\[FilledSquare]", CellMargins -> {{0, 4}, {4, 18}}, CellOpen -> True, CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontSize -> 14, FontWeight -> "Bold"], Cell[ StyleData["Subsection", "Printout"], CellMargins -> {{Inherited, Inherited}, {4, 14}}, FontSize -> 12]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellDingbat -> "\[FilledSmallSquare]", CellMargins -> {{0, 4}, {4, 12}}, CellOpen -> True, CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> False, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, CounterIncrements -> "Subsubsection", FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["Subsubsection", "Printout"], CellMargins -> {{0, 4}, {Inherited, 10}}, FontSize -> 11]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell[ "Styles for Body Text", "Section", CellMargins -> {{0, 4}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Text"], CellMargins -> {{0, 4}, {Inherited, 6}}, CellOpen -> True, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, TextJustification -> 1, Hyphenation -> True, LineSpacing -> {1, 2}, CounterIncrements -> "Text", FontSize -> 10], Cell[ StyleData["Text", "Printout"], CellMargins -> {{0, 4}, {Inherited, 4}}, LineSpacing -> {1, 3}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Caption"], CellMargins -> {{0, 4}, {5, 5}}, CellOpen -> True, PageBreakAbove -> False, Hyphenation -> True, FontSize -> 10], Cell[ StyleData["Caption", "Printout"], CellMargins -> {{0, 4}, {5, 2}}, FontSize -> 8]}, Closed]]}, Open]], Cell[ CellGroupData[{ Cell[ "Styles for Input/Output", "Section", CellMargins -> {{0, 4}, {Inherited, Inherited}}], Cell[ "The cells in this section define styles used for input and output \ to the kernel. Be careful when modifying, renaming, or removing these \ styles, because the front end associates special meanings with these style \ names.", "Text", CellMargins -> {{0, 4}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Input"], CellMargins -> {{0, 4}, {5, 8}}, Evaluatable -> True, CellOpen -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelMargins -> {{26, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Formula", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["Input", "Printout"], CellMargins -> {{25, 4}, {4, 7}}, ShowCellLabel -> False, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 10]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Output"], CellMargins -> {{0, 4}, {7, 5}}, CellEditDuplicate -> True, CellOpen -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, CellLabelPositioning -> Left, CellLabelMargins -> {{26, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Formula", FormatType -> InputForm, CounterIncrements -> "Output"], Cell[ StyleData["Output", "Printout"], CellMargins -> {{35, 4}, {5, 4}}, ShowCellLabel -> False, FontSize -> 9.5]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Message"], CellDingbat -> "\[LongDash]", CellMargins -> {{0, 4}, {Inherited, Inherited}}, CellOpen -> True, CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, CellLabelMargins -> {{26, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, FormatType -> InputForm, CounterIncrements -> "Message", StyleMenuListing -> None, FontSize -> 10, FontSlant -> "Italic"], Cell[ StyleData["Message", "Printout"], CellMargins -> {{0, 4}, {0, 3}}, FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Print"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, CellOpen -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, CellLabelMargins -> {{26, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, TextAlignment -> Left, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, FormatType -> InputForm, CounterIncrements -> "Print", StyleMenuListing -> None], Cell[ StyleData["Print", "Printout"], CellMargins -> {{0, 4}, {2, 10}}, FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Graphics"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, CellOpen -> True, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, FormatType -> InputForm, CounterIncrements -> "Graphics", StyleMenuListing -> None], Cell[ StyleData["Graphics", "Printout"], CellMargins -> {{0, 4}, {0, 15}}, ImageSize -> {0.0625, 0.0625}, ImageMargins -> {{35, Inherited}, {Inherited, 0}}, FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CellLabel"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, CellOpen -> True, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9, FontSlant -> "Oblique"], Cell[ StyleData["CellLabel", "Printout"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, FontSize -> 8]}, Closed]]}, Open]], Cell[ CellGroupData[{ Cell[ "Unique Styles", "Section", CellMargins -> {{0, 4}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Author"], CellMargins -> {{0, 4}, {2, 20}}, CellOpen -> True, CellGroupingRules -> {"TitleGrouping", 20}, PageBreakBelow -> False, CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}}, FontSize -> 14, FontWeight -> "Bold"], Cell[ StyleData["Author", "Printout"], CellMargins -> {{0, 4}, {2, 30}}, FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Address"], CellMargins -> {{0, 4}, {2, 2}}, CellOpen -> True, CellGroupingRules -> {"TitleGrouping", 30}, PageBreakBelow -> False, LineSpacing -> {1, 1}, CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}}, FontSize -> 12, FontSlant -> "Italic"], Cell[ StyleData["Address", "Printout"], CellMargins -> {{0, 4}, {2, 2}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Abstract"], CellMargins -> {{0, 4}, {Inherited, 30}}, CellOpen -> True, Hyphenation -> True, LineSpacing -> {1, 0}], Cell[ StyleData["Abstract", "Printout"], CellMargins -> {{0, 4}, {Inherited, 50}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Reference"], CellMargins -> {{0, 4}, {2, 2}}, CellOpen -> True, TextJustification -> 1, Hyphenation -> True, LineSpacing -> {1, 0}], Cell[ StyleData["Reference", "Printout"], CellMargins -> {{0, 4}, {Inherited, 0}}, FontSize -> 8]}, Closed]]}, Open]], Cell[ CellGroupData[{ Cell[ "Hyperlink Styles", "Section", CellMargins -> {{0, 4}, {Inherited, Inherited}}], Cell[ "The cells below define styles useful for making hypertext \ ButtonBoxes. The \"Hyperlink\" style is for links within the same Notebook, \ or between Notebooks.", "Text", CellMargins -> {{0, 4}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Hyperlink"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, CellOpen -> True, StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0, 0, 1], ButtonBoxOptions -> { Active -> True, ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonNote -> ButtonData}], Cell[ StyleData["Hyperlink", "Printout"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ "The following styles are for linking automatically to the on-line \ help system.", "Text", CellMargins -> {{0, 4}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["MainBookLink"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, CellOpen -> True, StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0, 0, 1], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["MainBook", #]}]& )}], Cell[ StyleData["MainBookLink", "Printout"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["AddOnsLink"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, CellOpen -> True, StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0, 0, 1], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["AddOns", #]}]& )}], Cell[ StyleData["AddOnsLink", "Printout"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["RefGuideLink"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, CellOpen -> True, StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0, 0, 1], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}], Cell[ StyleData["RefGuideLink", "Printout"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["GettingStartedLink"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, CellOpen -> True, StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0, 0, 1], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["GettingStarted", #]}]& )}], Cell[ StyleData["GettingStartedLink", "Printout"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["OtherInformationLink"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, CellOpen -> True, StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0, 0, 1], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["OtherInformation", #]}]& )}], Cell[ StyleData["OtherInformationLink", "Printout"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]]}, Open]], Cell[ CellGroupData[{ Cell[ "Palette Styles", "Section", CellMargins -> {{0, 4}, {Inherited, Inherited}}], Cell[ "The cells below define styles that define standard ButtonFunctions, \ for use in palette buttons.", "Text", CellMargins -> {{0, 4}, {Inherited, Inherited}}], Cell[ StyleData["Paste"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, CellOpen -> True, StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, After]}]& )}], Cell[ StyleData["Evaluate"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, CellOpen -> True, StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], SelectionEvaluate[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["EvaluateCell"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, CellOpen -> True, StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionMove[ FrontEnd`InputNotebook[], All, Cell, 1], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["CopyEvaluate"], CellMargins -> {{0, 4}, {20, Inherited}}, CellOpen -> True, StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["CopyEvaluateCell"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, CellOpen -> True, StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[], All]}]& )}]}, Open]], Cell[ CellGroupData[{ Cell[ "Styles for Automatic Numbering", "Section", CellMargins -> {{0, 4}, {Inherited, Inherited}}], Cell[ "The following styles are useful for numbered equations, figures, \ etc. They automatically give the cell a FrameLabel containing a reference to \ a particular counter, and also increment that counter.", "Text", CellMargins -> {{0, 4}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["NumberedEquation"], CellMargins -> {{25, 4}, {Inherited, Inherited}}, CellOpen -> True, CellFrameLabels -> {{None, Cell[ TextData[{"(6.", CounterBox["NumberedEquation"], ")"}]]}, {None, None}}, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, CounterIncrements -> "NumberedEquation", FormatTypeAutoConvert -> False], Cell[ StyleData["NumberedEquation", "Printout"], CellMargins -> {{25, 4}, {4, 4}}, FontSize -> 10]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["NumberedFigure"], CellMargins -> {{0, 4}, {2, 10}}, CellOpen -> True, CellHorizontalScrolling -> True, CellFrameLabels -> {{None, None}, { Cell[ TextData[{"Figure ", CounterBox["NumberedFigure"]}], FontWeight -> "Bold"], None}}, CounterIncrements -> "NumberedFigure", FormatTypeAutoConvert -> False], Cell[ StyleData["NumberedFigure", "Printout"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, FontSize -> 10]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["NumberedTable"], CellMargins -> {{0, 4}, {2, 10}}, CellOpen -> True, CellFrameLabels -> {{None, None}, { Cell[ TextData[{"Table ", CounterBox["NumberedTable"]}], FontWeight -> "Bold"], None}}, TextAlignment -> Center, CounterIncrements -> "NumberedTable", FormatTypeAutoConvert -> False], Cell[ StyleData["NumberedTable", "Printout"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, FontSize -> 10]}, Closed]]}, Open]], Cell[ CellGroupData[{ Cell[ "Formulas and Programming", "Section", CellMargins -> {{0, 4}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"], CellMargins -> {{0, 4}, {2, 10}}, CellOpen -> True, CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", ScriptLevel -> 0, SingleLetterItalics -> True, UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], Cell[ StyleData["DisplayFormula", "Printout"], CellMargins -> {{25, 4}, {4, 4}}, FontSize -> 10]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["ChemicalFormula"], CellMargins -> {{0, 4}, {2, 10}}, CellOpen -> True, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> False, ScriptBaselineShifts -> {0.6, Automatic}, ScriptLevel -> 1, SingleLetterItalics -> False, ZeroWidthTimes -> True], Cell[ StyleData["ChemicalFormula", "Printout"], CellMargins -> {{0, 4}, {Inherited, Inherited}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Program"], CellMargins -> {{0, 4}, {Inherited, 6}}, CellOpen -> True, Hyphenation -> False, LanguageCategory -> "Formula", FontFamily -> "Courier"], Cell[ StyleData["Program", "Printout"], CellMargins -> {{0, 4}, {Inherited, 4}}, FontSize -> 9.5]}, Closed]]}, Open]]}, Open]]}, Visible -> False, FrontEndVersion -> "6.0 for Mac OS X PowerPC (32-bit) (June 19, 2007)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "c:1"->{ Cell[861, 36, 97, 4, 72, "Title", CellTags->"c:1"], Cell[10698, 349, 68, 1, 35, "Title", CellTags->"c:1"], Cell[13715, 446, 106, 4, 72, "Title", CellTags->"c:1"]}, "c:19"->{ Cell[1145, 49, 91, 2, 44, "Section", PageBreakAbove->Automatic, CellTags->"c:19"]}, "c:20"->{ Cell[1261, 55, 98, 3, 37, "Subsection", CellTags->"c:20"]}, "c:22"->{ Cell[1741, 78, 81, 1, 44, "Section", CellTags->"c:22"]}, "c:27"->{ Cell[5663, 193, 102, 3, 37, "Subsection", CellTags->"c:27"]}, "c:17"->{ Cell[10791, 354, 129, 4, 44, "Section", CellTags->"c:17"]}, "c:12"->{ Cell[14054, 461, 80, 1, 44, "Section", CellTags->"c:12"]}, "c:15"->{ Cell[18714, 616, 106, 3, 44, "Section", CellTags->"c:15"]} } *) (*CellTagsIndex CellTagsIndex->{ {"c:1", 57792, 1429}, {"c:19", 57982, 1436}, {"c:20", 58085, 1440}, {"c:22", 58161, 1443}, {"c:27", 58234, 1446}, {"c:17", 58312, 1449}, {"c:12", 58388, 1452}, {"c:15", 58463, 1455} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 84, 3, 72, "Title"], Cell[677, 28, 147, 3, 37, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[861, 36, 97, 4, 72, "Title", CellTags->"c:1"], Cell[961, 42, 159, 3, 37, "Text"], Cell[CellGroupData[{ Cell[1145, 49, 91, 2, 44, "Section", PageBreakAbove->Automatic, CellTags->"c:19"], Cell[CellGroupData[{ Cell[1261, 55, 98, 3, 37, "Subsection", CellTags->"c:20"], Cell[1362, 60, 157, 5, 22, "Text"], Cell[1522, 67, 170, 5, 39, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1741, 78, 81, 1, 44, "Section", CellTags->"c:22"], Cell[1825, 81, 287, 7, 37, "Text"], Cell[2115, 90, 1130, 29, 71, "Input"], Cell[3248, 121, 958, 25, 56, "Input"], Cell[4209, 148, 1429, 41, 86, "Input"], Cell[CellGroupData[{ Cell[5663, 193, 102, 3, 37, "Subsection", CellTags->"c:27"], Cell[5768, 198, 87, 2, 22, "Text"], Cell[5858, 202, 1638, 48, 71, "Input"], Cell[7499, 252, 667, 16, 41, "Input"], Cell[8169, 270, 1153, 30, 71, "Input"], Cell[9325, 302, 607, 17, 41, "Input"], Cell[9935, 321, 184, 5, 25, "Input"], Cell[10122, 328, 150, 4, 25, "Input"], Cell[10275, 334, 362, 8, 53, "Text"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10698, 349, 68, 1, 35, "Title", CellTags->"c:1"], Cell[CellGroupData[{ Cell[10791, 354, 129, 4, 44, "Section", CellTags->"c:17"], Cell[10923, 360, 405, 9, 53, "Text"], Cell[11331, 371, 1115, 32, 56, "Input"], Cell[12449, 405, 795, 21, 56, "Input"], Cell[13247, 428, 304, 7, 41, "Input"], Cell[13554, 437, 112, 3, 22, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13715, 446, 106, 4, 72, "Title", CellTags->"c:1"], Cell[13824, 452, 205, 5, 37, "Text"], Cell[CellGroupData[{ Cell[14054, 461, 80, 1, 44, "Section", CellTags->"c:12"], Cell[14137, 464, 257, 9, 37, "Text"], Cell[14397, 475, 1455, 45, 56, "Input"], Cell[15855, 522, 181, 4, 22, "Text"], Cell[16039, 528, 436, 14, 25, "Input"], Cell[16478, 544, 29, 0, 22, "Text"], Cell[16510, 546, 135, 4, 25, "Input"], Cell[16648, 552, 112, 3, 22, "Text"], Cell[16763, 557, 130, 4, 25, "Input"], Cell[16896, 563, 1010, 26, 116, "Input"], Cell[17909, 591, 768, 20, 56, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[18714, 616, 106, 3, 44, "Section", CellTags->"c:15"], Cell[18823, 621, 499, 13, 85, "Text"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)