(***********************************************************************

                    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[     19374,        629]*)
(*NotebookOutlinePosition[     32360,       1104]*)
(*  CellTagsIndexPosition[     32316,       1100]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell[TextData[StyleBox["GRAPHICS",
  FontSlant->"Italic"]], "Title",
  Evaluatable->False,
  AspectRatioFixed->True],

Cell[CellGroupData[{

Cell["Plotting a function", "Section"],

Cell[CellGroupData[{

Cell["Plot,  ParametricPlot", "Subsection",
  Evaluatable->False,
  AspectRatioFixed->True],

Cell[TextData[{
  StyleBox["Plot",
    FontWeight->"Bold"],
  " is used to make a graph of a function of one variable.   Several \
functions, in usual list form, can be plotted on the same graph.   The \
functions must be ",
  StyleBox["real-valued",
    FontSlant->"Italic"],
  "."
}], "Text"],

Cell[BoxData[
    \(\(Plot[\ \ Sqrt[t], \ \ {t, 0, 5}]; \n\n
    Plot[\ {Sqrt[x], \ x^.2, \ Log[x + 2]}, \ \ \ {x, 0, 5}]; \n\n
    Plot[\ Sqrt[t], \ \ {t, \(-5\), 5}]; 
    \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 
     (*\ \(\(TROUBLE\ !!\)!\)\ *) \)\)], "Input"],

Cell[TextData[{
  "\nWhen x and y are both functions of parameter t, use ParametricPlot;  \
instead of a simple function of one variable, give the list  {",
  StyleBox["x(t) ,y(t)",
    FontSlant->"Italic"],
  "}."
}], "Text"],

Cell[BoxData[
    \(\(ParametricPlot[
      \ \ {\ \ 3  Cos[t] + Sin[9  t], \ \ 4  Sin[t] + Cos[9  t]}, \n
      \t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t{t, 0, 2  Pi}]; \)\)], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["PlotRange", "Subsection"],

Cell[TextData[{
  "While ",
  StyleBox["Plot",
    FontWeight->"Bold"],
  " is generally simple to use, one feature is especially perplexing to \
students; how to control the \"",
  StyleBox["y-range\"",
    FontSlant->"Italic"],
  " (range of ordinate values) displayed on a graph.  Ordinarily, ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " will display the \"main\" portion of a graph, possibly excluding outlying \
points (especially at singularities).  One can override the default ordinate \
range by specifying the \"PlotRange\" option explicitly."
}], "Text"],

Cell[BoxData[
    \(Plot[\ \ Exp[5  w], \ {w, 0, 2}]; \n
    Plot[\ \ Exp[5  w], \ {w, 0, 2}, \ \ \ PlotRange -> All]; \n
    Plot[\ \ Exp[5  w], \ {w, 0, 2}, \ \ \ PlotRange -> {0, 10}]; \)], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["Show", "Subsection"],

Cell[TextData[{
  "If you have created multiple graphs, you can combine them on the same set \
of axes using ",
  StyleBox["Show",
    FontWeight->"Bold"],
  "."
}], "Text"],

Cell[BoxData[
    \(graf1\ \  = \ \ Plot[\ Sin[x], \ {x, \(-5\), 5}]; \n
    graf2\ \  = \ \ 
      Plot[\ \ 2.8  Cos[3  x], \ {x, \(-Pi\), Pi}, \n
        \t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tPlotStyle -> {Hue[0.7]}]; \n\n
    Show[\ graf1, \ graf2, \ PlotLabel -> "\<Together\>"]; \)], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["Other options", "Subsection"],

Cell[TextData[{
  "\nThe option ",
  StyleBox["PlotStyle",
    FontWeight->"Bold"],
  ", used above, shows how to put color into a graph using the ",
  StyleBox["Hue",
    FontWeight->"Bold"],
  " function.  (",
  StyleBox["Hue",
    FontWeight->"Bold"],
  " values range from 0 to 1;   0=red, 1/6=yellow, 1/3=green, 2/3=blue...)    \
Other options used to modify a graph include ",
  StyleBox["PlotLabel",
    FontWeight->"Bold"],
  ", ",
  StyleBox["AxesLabel",
    FontWeight->"Bold"],
  ", ",
  StyleBox["AspectRatio",
    FontWeight->"Bold"],
  ", ",
  StyleBox["Frame",
    FontWeight->"Bold"],
  ";  the complete list of other options is in the documentation for \"",
  ButtonBox["Graphics",
    ButtonData:>{
      "/usr/local/mathematica/Documentation/English/RefGuide/RefGuide.nb", 
      "Graphics"},
    ButtonStyle->"Hyperlink"],
  "\"."
}], "Text"],

Cell[BoxData[
    \(\(Plot[\ Sin[x^2], \ {x, 0, 5}, \n\t\t\t\t\t\t\t\t\t\t\t\t
      PlotStyle -> {Hue[0.9], Dashing[{0.02}]}, \n\t\t\t\t\t\t\t\t\t\t\t\t
      PlotLabel -> "\<Sample Graph\>", \n\t\t\t\t\t\t\t\t\t\t\t\t
      AxesLabel -> {"\<x\>", \ "\<y\>"}, \n\t\t\t\t\t\t\t\t\t\t\t\t
      AspectRatio -> 0.3, \n\t\t\t\t\t\t\t\t\t\t\t\tFrame -> True]; \)\)], 
  "Input"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Plotting data points", "Section"],

Cell[TextData[{
  "Whereas ",
  StyleBox["Plot",
    FontWeight->"Bold"],
  " is used to graph a continuous function,  ",
  StyleBox["ListPlot",
    FontWeight->"Bold"],
  " is used for graphing individual points from a list, including \
experimental data read from a file.   Reading data from a text file is \
another topic; here we define two lists of \"data\" to be used in examples; \
one a simple list of (ordinate) values, the other a list of ",
  StyleBox["x-y",
    FontSlant->"Italic"],
  " pairs.   ",
  StyleBox["ListPlot",
    FontWeight->"Bold"],
  " will plot either kind of list;  a simple list (the first kind) is plotted \
against index values 1,2,3..."
}], "Text"],

Cell[BoxData[
    \(\(\ \ 
    ydata\ \  = 
      \ \ {1.1, \ \ 0.5, \ \ 2.3, \ \ 1.2, \ \ 1.3, \ \ 0.9, \ \ 2.2, 1.5}; \n
    xydata\  = \ \ {\ {2, 3}, \ {5, 3}, \ {1.2, 4}, \ {6, 1}, \ {4, 1.9}\ }; 
    \)\)], "Input"],

Cell[CellGroupData[{

Cell["Dots only", "Subsection"],

Cell["\<\
The default behavior of ListPlot is to plot only data points.\
\>", 
  "Text"],

Cell[BoxData[
    \(ListPlot[\ \ ydata]; \nListPlot[xydata]; \)], "Input"],

Cell[TextData[{
  "Those dots are tiny.  To plot points which are easier to see, use ",
  StyleBox["PlotStyle",
    FontWeight->"Bold"],
  " to specify the pointsize and/or color.   It may also help to specify the \
",
  StyleBox["PlotRegion",
    FontWeight->"Bold"],
  "  and/or  ",
  StyleBox["AxesOrigin",
    FontWeight->"Bold"],
  "."
}], "Text"],

Cell[BoxData[
    \(\(ListPlot[\ xydata, \ AxesOrigin -> {0, 0}, \n\t\t\t\t\t\t\t
      PlotStyle -> {AbsolutePointSize[8], \ Hue[0.08]}]; \)\)], "Input"],

Cell[TextData[{
  "\nListPlot will not graph a list of complex numbers.   To plot complex \
values on the complex plane, you must convert each number ",
  StyleBox["z",
    FontSlant->"Italic"],
  " in the list into a pair of real values,  {",
  StyleBox["Re(z)",
    FontSlant->"Italic"],
  ",",
  StyleBox["Im(z)",
    FontSlant->"Italic"],
  "},  using ",
  StyleBox["Map",
    FontWeight->"Bold"],
  " (or /@) as needed.   For example,"
}], "Text"],

Cell[BoxData[
    \(cplxdata\ \  = 
      \ \ {\ \ 1 + I, \ \ 3 - I, \ \ \(-2\) - 2  I, \ \(-1\)\ }; \n\n
    f[z_]\  = \ {Re[z], Im[z]}; \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 
     (*\ simple\ function\ definition\ *) \n\n
    ListPlot[\ f\ /@\ cplxdata, \ \ AxesOrigin -> {0, 0}, \n\t\t\t\t\t\t\t
      PlotStyle -> {AbsolutePointSize[8], \ Hue[0.3]}, \n\t\t\t\t\t\t\t
      AxesLabel -> {"\<Real part\>", \ "\<Imag.part\>"}]; \)], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["Connect the dots", "Subsection"],

Cell[TextData[{
  "For a line graph which connects the data points in order, add the option ",
  
  StyleBox["PlotJoined->True",
    FontWeight->"Bold"],
  "."
}], "Text"],

Cell[BoxData[
    \(\(ListPlot[\ \ xydata, \ \ PlotJoined -> True]; \)\)], "Input"],

Cell[TextData[{
  "The same list of data points can be displayed, in increasing (",
  StyleBox["x",
    FontSlant->"Italic"],
  ") order, using  function ",
  StyleBox["Sort",
    FontWeight->"Bold"],
  ":"
}], "Text"],

Cell[BoxData[
    \(\(ListPlot[\ Sort[xydata], \ \ PlotJoined -> True]; \)\)], "Input"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Plotting f(x,y);  surface maps", "Section"],

Cell[CellGroupData[{

Cell["Plot3D", "Subsection"],

Cell[TextData[{
  "The 3-D analog to ",
  StyleBox["Plot",
    FontWeight->"Bold"],
  " is the function ",
  StyleBox["Plot3D",
    FontWeight->"Bold"],
  ".  Specify a real-valued function of two variables, and give the desired \
range for each of the two variables in the usual way."
}], "Text"],

Cell[BoxData[
    \(\(Plot3D[\ \ Sin[x] Cos[y], \ \ \ \ \ {x, \(-5\), 5}, 
      \ \ \ {y, \(-4\), 4}]; \)\)], "Input"],

Cell[TextData[{
  "By default, ",
  StyleBox["Plot3D",
    FontWeight->"Bold"],
  " divides the range of each variable into 14 subregions, and plots the ",
  Cell[BoxData[
      \(TraditionalForm\`14\^2\)]],
  " rectangular patches.  You can specify a different grid using option ",
  StyleBox["PlotPoints",
    FontWeight->"Bold"],
  ".  Also available are many of the same options used with ",
  StyleBox["Plot",
    FontWeight->"Bold"],
  "."
}], "Text"],

Cell[BoxData[
    \(\(Plot3D[\ \ Sin[x] Cos[y], \ \ \ \ \ {x, \(-5\), 5}, 
      \ \ \ {y, \(-4\), 4}, \n\t\t\t\t\t\t\t\t\tPlotPoints -> {35, 20}, \n
      \t\t\t\t\t\t\t\t\tAxesLabel -> {"\<x\>", "\<y\>", "\<f(x,y)\>"}]; \)\)],
   "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["ListPlot3D", "Subsection"],

Cell[TextData[{
  "The 3-D analog of ",
  StyleBox["ListPlot",
    FontWeight->"Bold"],
  ", used to make a surface map of data values from each node of a \
rectangular grid, is ",
  StyleBox["ListPlot3D",
    FontWeight->"Bold"],
  ".    The rectangular array of data (like a matrix!!) may be read from a \
data file or created by calculation.  Here ",
  StyleBox["Table",
    FontWeight->"Bold"],
  " is used to create an array of real values, for purposes of illustration."
}], "Text"],

Cell[BoxData[{
    \(griddata\  = \ Table[\ Cos[i/5] Exp[\(-j\)/8], \ {i, 40}, \ \ {j, 20}]; 
    \n\nDimensions[\ \ griddata\ ]
      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 
     (*\ 40\ lists\ of\ 20\ each\ *) \), 
    \(\(ListPlot3D[\ \ griddata\ ]; \)\)}], "Input"],

Cell["\<\
3-D graphics, like these surface maps, may be used with yet more \
options; you can override the default values for viewpoint angle, mesh lines, \
lighting and light (color) sources, etc.\
\>", "Text"],

Cell[BoxData[
    \(\(ListPlot3D[\ griddata, \ \ Mesh -> False, \ \ Boxed -> False, \n
      \t\t\t\t\t\t\t\t\t\t\t\t\tViewPoint -> {4.5, \ \(-3.1\), \ 1.5}]; \)\)],
   "Input"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Density maps, Contour maps", "Section"],

Cell[TextData[{
  "There are other ways to display a f(x,y) graphically.   A ",
  StyleBox["density map",
    FontWeight->"Bold"],
  " uses color/shading to indicate the amplitude of a function over a \
rectangular region.  A ",
  StyleBox["contour map",
    FontWeight->"Bold"],
  " shows equipotential contours for several constant values, just as a \
topographic map shows lines of equal elevation."
}], "Text"],

Cell[BoxData[
    \(DensityPlot[\ \ Sin[x] Cos[y] Exp[\((3 - x)\)/9], \ {x, \(-5\), 5}, 
      \ {y, \(-4\), 4}]; \n
    ContourPlot[\ \ Sin[x] Cos[y] Exp[\((3 - x)\)/9], \ {x, \(-5\), 5}, 
      \ {y, \(-4\), 4}]; \n
    Plot3D[\ \ \ \ \ \ \ \ \ \ \ \ \ Sin[x] Cos[y] Exp[\((3 - x)\)/9], 
      \ {x, \(-5\), 5}, \ {y, \(-4\), 4}]; \)], "Input"],

Cell["Options for these functions are abundant, as usual...", "Text"],

Cell[BoxData[
    \(DensityPlot[\ \ Sin[x] Cos[y] Exp[\((3 - x)\)/9], \ {x, \(-5\), 5}, 
      \ {y, \(-4\), 4}, \n\t\t\t\t\t\t\tMesh -> False, \ 
      ColorFunction -> Hue, \ AspectRatio -> 0.8]; \n\n
    ContourPlot[\ \ Sin[x] Cos[y] Exp[\((3 - x)\)/9], \ {x, \(-5\), 5}, 
      \ {y, \(-4\), 4}, \n\t\t\t\t\t\t\tContourShading -> False, \ 
      PlotPoints -> 30, Contours -> 20]; \)], "Input"],

Cell["Versions of these functions exist for data arrays, as well.", "Text"],

Cell[BoxData[{
    \(Dimensions[griddata]\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 
     (*\ 40  x20\ array\ defined\ above ?? \ *) \n\), 
    \(ListDensityPlot[\ \ griddata\ , \ \ Mesh -> False]; \n
    ListContourPlot[\ \ griddata\ , \ \ ContourShading -> False]; \)}], 
  "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["Plotting a vector field", "Section"],

Cell[TextData[{
  "One special type of graphical representation is particularly important in \
teaching differential equations;  displaying a vector field.  The following \
are commands ",
  StyleBox["not",
    FontWeight->"Bold"],
  " built in to the ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " kernel; their definitions must be loaded from the appropriate \"Standard \
Package\":"
}], "Text"],

Cell[BoxData[
    \(\(Get["\<Graphics`PlotField`\>"]\ \ \ \ \ \ \ \ \ \ \ \ 
     (*\ note\ the\ \(backquotes!\)\ *) \)\)], "Input"],

Cell[TextData[{
  "This loads the definitions for functions including ",
  StyleBox["PlotVectorField",
    FontWeight->"Bold"],
  " and ",
  StyleBox["PlotGradientField",
    FontWeight->"Bold"],
  ", along with a host of auxiliary functions and options.  ",
  StyleBox["PlotVectorField",
    FontWeight->"Bold"],
  ", in its simplest form, will display scaled vectors {",
  StyleBox["f1(x,y)",
    FontSlant->"Italic"],
  ", ",
  StyleBox["f2(x,y)",
    FontSlant->"Italic"],
  "} over a specified range of ",
  StyleBox["x",
    FontSlant->"Italic"],
  " and ",
  StyleBox["y",
    FontSlant->"Italic"],
  " values."
}], "Text"],

Cell[BoxData[
    \(\(PlotVectorField[\ \ {\(-y\), \ Sin[x]}, \ \ {x, \(-3\), 3}, 
      \ \ {y, \(-3\), 3}]; \)\)], "Input"],

Cell["\<\

Here are some of the ways to manipulate the details of the vector plot.\
\>", 
  "Text",
  TextAlignment->Center,
  FontSize->16,
  Background->RGBColor[0, 1, 0]],

Cell[BoxData[
    StyleBox[GridBox[{
          {
            RowBox[{
              RowBox[{
                StyleBox["1.",
                  FontWeight->"Bold"], "  ", "fixed", " ", "arrow", " ", 
                "length"}], "  "}], 
            RowBox[{"    ", 
              RowBox[{
                StyleBox[\(ScaleFunction -> \((1&)\)\),
                  FontWeight->"Bold"], 
                StyleBox[",",
                  FontWeight->"Bold"], 
                StyleBox[" ",
                  FontWeight->"Bold"], 
                RowBox[{
                  StyleBox["ScaleFactor",
                    FontWeight->"Bold"], 
                  StyleBox["->",
                    FontWeight->"Bold"], 
                  StyleBox["?",
                    FontWeight->"Plain"]}]}]}]},
          {
            RowBox[{
              RowBox[{
                StyleBox["2.",
                  FontWeight->"Bold"], "  ", "arrow", " ", "coloration"}], 
              "     "}], 
            RowBox[{
              StyleBox["ColorFunction",
                FontWeight->"Bold"], 
              StyleBox["->",
                FontWeight->"Plain"], 
              RowBox[{
                StyleBox["Hue",
                  FontWeight->"Bold"], "   ", \((or\ other\ function)\)}]}]},
          {
            RowBox[{
              RowBox[{
                StyleBox["3.",
                  FontWeight->"Bold"], "  ", "grid", " ", "size"}], 
              "                       "}], 
            RowBox[{
              StyleBox["PlotPoints",
                FontWeight->"Bold"], 
              StyleBox["->",
                FontWeight->"Bold"], \({nx, ny}\)}]},
          {
            RowBox[{
              RowBox[{
                StyleBox["4.",
                  FontWeight->"Bold"], "  ", \(size/shape\), " ", "of", " ", 
                "plot"}], "  "}], 
            RowBox[{
              StyleBox["AspectRatio",
                FontWeight->"Bold"], "->", 
              RowBox[{"?", 
                StyleBox[",  ImageSize->{?,?}",
                  FontWeight->"Bold"]}]}]},
          {
            RowBox[{
              RowBox[{
                StyleBox["5.",
                  FontWeight->"Bold"], 
                StyleBox[
                  RowBox[{
                    StyleBox[" ",
                      FontWeight->"Bold"], " "}]], "frame", " ", "around", 
                " ", "plot"}], "   "}], 
            StyleBox[\(Frame -> True\),
              FontWeight->"Bold"]}
          },
        RowLines->True,
        ColumnLines->True],
      FontWeight->"Plain"]], "Input",
  TextAlignment->Center,
  FontFamily->"Times",
  FontSize->16,
  Background->RGBColor[0, 1, 0]],

Cell[BoxData[
    \(\(PlotVectorField[\ \ {\(-y\), \ Sin[x]}, \ \ {x, \(-3\), 3}, 
      \ \ {y, 0, 4}, \n\t\t\t\t\tPlotPoints -> {25, 15}, \n\t\t\t\t\t
      ScaleFunction -> \((1&)\), \n\t\t\t\t\tScaleFactor -> 0.2, \n\t\t\t\t\t
      ColorFunction -> Hue, \n\t\t\t\t\tImageSize -> {500, 300}, 
      \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \  (*\ pixels\ *) \n
      \t\t\t\t\tFrame -> True]; \)\)], "Input"],

Cell[CellGroupData[{

Cell["Heartache with PlotVectorField", "Subsection",
  Editable->False],

Cell[TextData[{
  "One of the most comon errors encountered when using a standard package is \
trying to use a function (like ",
  StyleBox["PlotVectorField",
    FontWeight->"Bold"],
  ") before its definition has been read in.   Not only does the function not \
work, but the function name is now \"tainted\" in the sense that ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " assumes you have your own definition in mind for that function/variable \
name.   Reading in the standard package at this point will NOT fix the \
problem, because the package's definition will only be considered a \
secondary, \"shadow\" definition."
}], "Text",
  Editable->False],

Cell[TextData[{
  "Once this error has been committed -- trying to use ",
  StyleBox["PlotVectorField",
    FontWeight->"Bold"],
  " before loading the package with ",
  StyleBox["Get[\"Graphics`PlotField`\"]",
    FontWeight->"Bold"],
  " -- there are two choices;\n\n1.  Save the notebook, quit, restart.  Do it \
right the next time.   Or,\n\n2.  Clear all the tainted names first, ",
  StyleBox["then",
    FontSlant->"Italic"],
  " read in the package:\n",
  StyleBox[
  "\tClear[PlotVectorFunction, ScaleFunction, ScaleFactor];\n\t\
Get[\"Graphics`PlotField`\"];\n\tPlotVectorField[ ...... ]",
    FontFamily->"Courier",
    FontWeight->"Bold"]
}], "Text",
  Editable->False]
}, Closed]]
}, Closed]]
}, Open  ]]
},
FrontEndVersion->"X 3.0",
ScreenRectangle->{{0, 1152}, {0, 900}},
WindowToolbars->{},
CellGrouping->Automatic,
WindowSize->{658, 600},
WindowMargins->{{222, Automatic}, {62, Automatic}},
PrivateNotebookOptions->{"ColorPalette"->{RGBColor, 128}},
ShowCellLabel->True,
ShowCellTags->False,
RenderingOptions->{"ObjectDithering"->True,
"RasterDithering"->False},
CharacterEncoding->"MacintoshAutomaticEncoding",
StyleDefinitions -> Notebook[{
  
  Cell[CellGroupData[{
  Cell["Style Definitions", "Subtitle"],
  
  Cell["\<\
Modify the definitions below to change the default appearance of \
all cells in a given style.
Make modifications to any definition using commands in the Format menu.\
\>", 
    "Text"],
  
  Cell[CellGroupData[{
  
  Cell["Style Environment Names", "Section"],
  
  Cell[StyleData[All, "Working"],
    CellBracketOptions->{"Color"->RGBColor[0.771908, 0.399634, 0.262867]},
    ScriptMinSize->9],
  
  Cell[StyleData[All, "Printout"],
    PageWidth->PaperWidth,
    PrivateFontOptions->{"FontType"->"Outline"}],
  
  Cell[StyleData[All, "ColorPrintout"],
    PageWidth->PaperWidth,
    PrivateFontOptions->{"FontType"->"Outline"}]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell["Notebook Options", "Section"],
  
  Cell["\<\
The options defined for the style below will be used at the \
Notebook level.\
\>", "Text"],
  
  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"]}},
    StyleMenuListing->None]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell["Styles for Headings", "Section"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Title"],
    CellMargins->{{36, 20}, {2, 10}},
    CellGroupingRules->{"TitleGrouping", 0},
    PageBreakBelow->False,
    CellFrameMargins->{{100, 4}, {8, 10}},
    TextAlignment->Center,
    LineSpacing->{1, -5},
    CounterIncrements->"Title",
    CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, {
        "Subtitle", 0}, {"Subsubtitle", 0}},
    FontFamily->"New century schoolbook",
    FontSize->34,
    FontWeight->"Bold",
    FontSlant->"Italic",
    FontColor->RGBColor[0, 0, 1]],
  
  Cell[StyleData["Title", "Printout"],
    TextAlignment->Center,
    FontFamily->"New century schoolbook",
    FontSize->33,
    FontColor->RGBColor[0, 0, 1]],
  
  Cell[StyleData["Title", "ColorPrintout"],
    TextAlignment->Center,
    FontFamily->"New century schoolbook",
    FontSize->33,
    FontColor->RGBColor[0, 0, 1]]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Subtitle"],
    CellFrame->{{0, 0}, {0.5, 0}},
    CellMargins->{{144, 20}, {2, 10}},
    CellGroupingRules->{"TitleGrouping", 10},
    PageBreakBelow->False,
    TextAlignment->Center,
    CounterIncrements->"Subtitle",
    CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, {
        "Subsubtitle", 0}},
    FontSize->24,
    FontSlant->"Italic",
    FontColor->RGBColor[1, 0, 1]],
  
  Cell[StyleData["Subtitle", "Printout"],
    CellFrame->{{0, 0}, {0.5, 0}},
    TextAlignment->Center,
    FontColor->RGBColor[1, 0, 1]],
  
  Cell[StyleData["Subtitle", "ColorPrintout"],
    CellFrame->{{0, 0}, {0.5, 0}},
    TextAlignment->Center,
    FontColor->RGBColor[1, 0, 1]]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Subsubtitle"],
    CellFrame->{{0, 0}, {0.5, 0}},
    CellMargins->{{144, 20}, {2, 2}},
    CellGroupingRules->{"TitleGrouping", 20},
    PageBreakBelow->False,
    TextAlignment->Center,
    CounterIncrements->"Subsubtitle",
    CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}},
    FontFamily->"Helvetica",
    FontSize->18,
    FontSlant->"Italic",
    FontColor->RGBColor[1, 0, 0]],
  
  Cell[StyleData["Subsubtitle", "Printout"],
    CellFrame->{{0, 0}, {0.5, 0}},
    TextAlignment->Center,
    FontSize->18,
    FontColor->RGBColor[1, 0, 0]],
  
  Cell[StyleData["Subsubtitle", "ColorPrintout"],
    CellFrame->{{0, 0}, {0.5, 0}},
    TextAlignment->Center,
    FontSize->18,
    FontColor->RGBColor[1, 0, 0]]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Section"],
    CellFrame->{{0, 0}, {0, 0.25}},
    CellMargins->{{36, 20}, {10, 20}},
    CellGroupingRules->{"SectionGrouping", 30},
    PageBreakBelow->False,
    CellFrameMargins->{{10, 4}, {6, 2}},
    CounterIncrements->"Section",
    CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}},
    FontSize->18,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 0]],
  
  Cell[StyleData["Section", "Printout"],
    FontSize->18,
    FontColor->RGBColor[1, 0, 0]],
  
  Cell[StyleData["Section", "ColorPrintout"],
    FontSize->18,
    FontColor->RGBColor[1, 0, 0]]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Subsection"],
    CellFrame->{{0, 0}, {0, 0.5}},
    CellDingbat->"\[FilledSmallSquare]",
    CellMargins->{{36, 20}, {Inherited, 18}},
    CellGroupingRules->{"SectionGrouping", 40},
    PageBreakBelow->False,
    CellFrameMargins->{{2, 12}, {0, 12}},
    CellFrameLabelMargins->6,
    TextAlignment->Center,
    CounterIncrements->"Subsection",
    CounterAssignments->{{"Subsubsection", 0}},
    FontSize->18,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 1]],
  
  Cell[StyleData["Subsection", "Printout"],
    CellFrame->{{0, 0}, {0, 0.5}},
    TextAlignment->Center,
    FontSize->18,
    FontColor->RGBColor[1, 0, 1]],
  
  Cell[StyleData["Subsection", "ColorPrintout"],
    CellFrame->{{0, 0}, {0, 0.5}},
    TextAlignment->Center,
    FontSize->18,
    FontColor->RGBColor[1, 0, 1]]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Subsubsection"],
    CellDingbat->"\[EmptySquare]",
    CellMargins->{{36, Inherited}, {Inherited, 12}},
    CellGroupingRules->{"SectionGrouping", 50},
    PageBreakBelow->False,
    CellFrameLabelMargins->6,
    CounterIncrements->"Subsubsection",
    FontFamily->"Helvetica",
    FontSize->18,
    FontWeight->"Bold",
    Background->RGBColor[0, 1, 0]],
  
  Cell[StyleData["Subsubsection", "Printout"],
    FontSize->18,
    Background->RGBColor[0, 1, 0]],
  
  Cell[StyleData["Subsubsection", "ColorPrintout"],
    FontSize->18,
    Background->RGBColor[0, 1, 0]]
  }, Open  ]]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell["Styles for Body Text", "Section"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Text"],
    CellFrame->False,
    CellMargins->{{36, 20}, {4, 4}},
    CellFrameMargins->{{4, 10}, {6, 0}},
    CellFrameLabelMargins->4,
    LineSpacing->{1, 2},
    CounterIncrements->"Text",
    FontSize->14],
  
  Cell[StyleData["Text", "Printout"],
    LineSpacing->{1, 1},
    FontSize->14],
  
  Cell[StyleData["Text", "ColorPrintout"],
    LineSpacing->{1, 1},
    FontSize->14]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["SmallText"],
    CellMargins->{{100, 38}, {4, 4}},
    LineSpacing->{1.1, 1},
    CounterIncrements->"SmallText",
    FontSize->14],
  
  Cell[StyleData["SmallText", "Printout"],
    LineSpacing->{1.1, 1},
    FontSize->14],
  
  Cell[StyleData["SmallText", "ColorPrintout"],
    LineSpacing->{1.1, 1},
    FontSize->14]
  }, Open  ]]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell["Styles for Input/Output", "Section"],
  
  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"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Input"],
    CellMargins->{{36, 0}, {0, Inherited}},
    Evaluatable->True,
    CellGroupingRules->"InputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    CellLabelMargins->{{3, Inherited}, {Inherited, Inherited}},
    DefaultFormatType->DefaultInputFormatType,
    FormatType->InputForm,
    ShowStringCharacters->True,
    NumberMarks->True,
    CounterIncrements->"Input",
    FontSize->14,
    FontWeight->"Bold",
    FontColor->GrayLevel[0],
    Background->RGBColor[0.95021, 0.934356, 0.499062]],
  
  Cell[StyleData["Input", "Printout"],
    FontSize->14,
    Background->GrayLevel[0.900008]],
  
  Cell[StyleData["Input", "ColorPrintout"],
    FontSize->14]
  }, Open  ]],
  
  Cell[StyleData["InlineInput"],
    Evaluatable->True,
    CellGroupingRules->"InputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    DefaultFormatType->DefaultInputFormatType,
    AutoItalicWords->{},
    FormatType->InputForm,
    ShowStringCharacters->True,
    NumberMarks->True,
    CounterIncrements->"Input",
    FontSize->14,
    FontWeight->"Bold"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Output"],
    CellFrame->True,
    CellMargins->{{36, 0}, {Inherited, 0}},
    CellEditDuplicate->True,
    CellGroupingRules->"OutputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    CellLabelMargins->{{3, Inherited}, {Inherited, Inherited}},
    DefaultFormatType->DefaultOutputFormatType,
    TextAlignment->Center,
    FormatType->InputForm,
    CounterIncrements->"Output",
    FontSize->14,
    FontColor->GrayLevel[0],
    Background->RGBColor[0, 1, 1]],
  
  Cell[StyleData["Output", "Printout"],
    CellFrame->True,
    TextAlignment->Center,
    FontSize->14,
    Background->RGBColor[0, 1, 1]],
  
  Cell[StyleData["Output", "ColorPrintout"],
    CellFrame->True,
    TextAlignment->Center,
    FontSize->14,
    Background->RGBColor[0, 1, 1]]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Message"],
    CellDingbat->"\[LongDash]",
    CellMargins->{{64, Inherited}, {Inherited, Inherited}},
    CellGroupingRules->"OutputGrouping",
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    ShowCellLabel->False,
    CellLabelMargins->{{3, Inherited}, {Inherited, Inherited}},
    DefaultFormatType->DefaultOutputFormatType,
    FormatType->InputForm,
    CounterIncrements->"Message",
    StyleMenuListing->None,
    FontFamily->"Helvetica",
    FontSize->10,
    FontSlant->"Oblique"],
  
  Cell[StyleData["Message", "Printout"],
    FontSize->8],
  
  Cell[StyleData["Message", "ColorPrintout"],
    FontSize->8]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Print"],
    CellMargins->{{36, 20}, {3, 3}},
    CellGroupingRules->"OutputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    ShowCellLabel->False,
    CellLabelMargins->{{3, Inherited}, {Inherited, Inherited}},
    DefaultFormatType->DefaultOutputFormatType,
    TextAlignment->Left,
    FormatType->InputForm,
    CounterIncrements->"Print",
    StyleMenuListing->None,
    FontFamily->"Courier",
    FontSize->12,
    Background->RGBColor[0.967727, 0.972747, 0.534508]],
  
  Cell[StyleData["Print", "Printout"],
    FontFamily->"Courier",
    Background->GrayLevel[0.900008]],
  
  Cell[StyleData["Print", "ColorPrintout"],
    FontFamily->"Courier"]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Graphics"],
    CellMargins->{{36, 0}, {0, 0}},
    CellGroupingRules->"GraphicsGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    ShowCellLabel->False,
    DefaultFormatType->DefaultOutputFormatType,
    FormatType->InputForm,
    CounterIncrements->"Graphics",
    ImageMargins->{{35, Inherited}, {Inherited, 0}},
    Background->RGBColor[0, 1, 1]],
  
  Cell[StyleData["Graphics", "Printout"],
    FontSize->10,
    Background->GrayLevel[0.8]],
  
  Cell[StyleData["Graphics", "ColorPrintout"],
    FontSize->10,
    Background->RGBColor[0, 1, 1]]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["CellLabel"],
    StyleMenuListing->None,
    FontFamily->"Helvetica",
    FontSize->10,
    FontColor->RGBColor[0.551492, 0.231144, 0.313466]],
  
  Cell[StyleData["CellLabel", "Printout"],
    FontColor->GrayLevel[0]],
  
  Cell[StyleData["CellLabel", "ColorPrintout"]]
  }, Open  ]]
  }, Open  ]]
  }, Open  ]]
  }]
]


(***********************************************************************
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, 116, 3, 46, "Title"],

Cell[CellGroupData[{
Cell[1872, 58, 38, 0, 53, "Section"],

Cell[CellGroupData[{
Cell[1935, 62, 91, 2, 55, "Subsection"],
Cell[2029, 66, 294, 9, 42, "Text"],
Cell[2326, 77, 286, 5, 113, "Input"],
Cell[2615, 84, 226, 6, 59, "Text"],
Cell[2844, 92, 178, 3, 56, "Input"]
}, Closed]],

Cell[CellGroupData[{
Cell[3059, 100, 31, 0, 55, "Subsection"],
Cell[3093, 102, 579, 14, 76, "Text"],
Cell[3675, 118, 201, 3, 75, "Input"]
}, Closed]],

Cell[CellGroupData[{
Cell[3913, 126, 26, 0, 55, "Subsection"],
Cell[3942, 128, 173, 6, 25, "Text"],
Cell[4118, 136, 291, 5, 113, "Input"]
}, Closed]],

Cell[CellGroupData[{
Cell[4446, 146, 35, 0, 55, "Subsection"],
Cell[4484, 148, 862, 30, 93, "Text"],
Cell[5349, 180, 374, 6, 132, "Input"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{
Cell[5772, 192, 39, 0, 37, "Section"],
Cell[5814, 194, 682, 18, 93, "Text"],
Cell[6499, 214, 220, 5, 56, "Input"],

Cell[CellGroupData[{
Cell[6744, 223, 31, 0, 55, "Subsection"],
Cell[6778, 225, 88, 3, 25, "Text"],
Cell[6869, 230, 74, 1, 56, "Input"],
Cell[6946, 233, 352, 12, 42, "Text"],
Cell[7301, 247, 154, 2, 56, "Input"],
Cell[7458, 251, 452, 15, 76, "Text"],
Cell[7913, 268, 442, 7, 151, "Input"]
}, Closed]],

Cell[CellGroupData[{
Cell[8392, 280, 38, 0, 55, "Subsection"],
Cell[8433, 282, 171, 6, 25, "Text"],
Cell[8607, 290, 83, 1, 37, "Input"],
Cell[8693, 293, 218, 8, 25, "Text"],
Cell[8914, 303, 87, 1, 37, "Input"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{
Cell[9050, 310, 49, 0, 37, "Section"],

Cell[CellGroupData[{
Cell[9124, 314, 28, 0, 55, "Subsection"],
Cell[9155, 316, 297, 9, 42, "Text"],
Cell[9455, 327, 119, 2, 37, "Input"],
Cell[9577, 331, 457, 14, 59, "Text"],
Cell[10037, 347, 240, 4, 75, "Input"]
}, Closed]],

Cell[CellGroupData[{
Cell[10314, 356, 32, 0, 55, "Subsection"],
Cell[10349, 358, 488, 13, 76, "Text"],
Cell[10840, 373, 284, 5, 94, "Input"],
Cell[11127, 380, 211, 4, 42, "Text"],
Cell[11341, 386, 177, 3, 56, "Input"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{
Cell[11567, 395, 45, 0, 37, "Section"],
Cell[11615, 397, 414, 10, 59, "Text"],
Cell[12032, 409, 346, 6, 75, "Input"],
Cell[12381, 417, 69, 0, 25, "Text"],
Cell[12453, 419, 398, 6, 113, "Input"],
Cell[12854, 427, 75, 0, 25, "Text"],
Cell[12932, 429, 273, 5, 94, "Input"]
}, Closed]],

Cell[CellGroupData[{
Cell[13242, 439, 42, 0, 37, "Section"],
Cell[13287, 441, 409, 11, 59, "Text"],
Cell[13699, 454, 132, 2, 37, "Input"],
Cell[13834, 458, 630, 23, 59, "Text"],
Cell[14467, 483, 125, 2, 37, "Input"],
Cell[14595, 487, 173, 7, 52, "Text"],
Cell[14771, 496, 2684, 79, 133, "Input"],
Cell[17458, 577, 423, 6, 151, "Input"],

Cell[CellGroupData[{
Cell[17906, 587, 71, 1, 55, "Subsection"],
Cell[17980, 590, 670, 14, 110, "Text"],
Cell[18653, 606, 681, 18, 161, "Text"]
}, Closed]]
}, Closed]]
}, Open  ]]
}
]
*)




(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)