(* 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[      2366,         78]
NotebookOptionsPosition[      1240,         40]
NotebookOutlinePosition[      2421,         79]
CellTagsIndexPosition[      2378,         76]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 StyleBox[" ",
  FontSlant->"Italic",
  FontColor->GrayLevel[0.5]],
 StyleBox["This notebook has the same formatting as the SCCC Mathematica \
Tutorial.  To load the SCCC package evaluate the next input cell.",
  FontSize->10,
  FontSlant->"Italic",
  FontColor->GrayLevel[0.5]]
}], "Text",
 CellChangeTimes->{{3.401468244236681*^9, 3.401468271174009*^9}, 
   3.40150296934375*^9, {3.40153850896178*^9, 3.4015385607103004`*^9}, {
   3.4015386475866957`*^9, 3.401538662492265*^9}, {3.401538762870986*^9, 
   3.4015387652720923`*^9}}],

Cell[BoxData[
 RowBox[{"<<", "sccc`"}]], "Input",
 CellChangeTimes->{{3.401538568817932*^9, 3.4015385711878557`*^9}}]
},
AutoGeneratedPackage->None,
ScreenStyleEnvironment->"Working",
CellGrouping->Manual,
WindowSize->{1004, 651},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowCellBracket->True,
ShowSelection->True,
ShowCellLabel->False,
Magnification->1.25,
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData["Section"], ShowGroupOpener -> True], 
   Cell[
    StyleData["Output"], CellFrame -> 0.5, CellFrameColor -> 
    RGBColor[0, 0, 1]], 
   Cell[
    StyleData["Input"], CellFrame -> 0.5, CellFrameColor -> 
    RGBColor[1, 0, 0]], 
   Cell[
    StyleData["Text"], FontFamily -> "Comic Sans MS", FontSize -> 12, 
    FontWeight -> "Plain", FontSlant -> "Plain", 
    FontVariations -> {"StrikeThrough" -> False, "Underline" -> False}]}, 
  Visible -> False, FrontEndVersion -> 
  "6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 548, 13, 37, "Text"],
Cell[1119, 36, 117, 2, 57, "Input"]
}
]
*)

(* End of internal cache information *)