(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     52209,       1217]
NotebookOptionsPosition[     11349,        320]
NotebookOutlinePosition[     49566,       1156]
CellTagsIndexPosition[     48268,       1132]
WindowTitle->Automatic
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
This Mathematica notebook, \[Copyright] Copyright 2009 Scientific Arts, LLC, \
all rights reserved.\
\>", "Title",
 Editable->False,
 Deletable->False,
 CellFrame->{{0, 0}, {1, 1}},
 CellDingbat->None,
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {10, 10}},
 CellFrameMargins->10,
 TextAlignment->Center,
 FontFamily->"Helvetica",
 FontSize->12,
 FontWeight->"Plain",
 FontColor->GrayLevel[0.3],
 Background->GrayLevel[0.9],
 CellTags->"CoyyrightCell"],

Cell["The Mathematica Documentation Center", "Subsection",
 Editable->True,
 Deletable->True,
 CellDingbat->None,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[246736791332457340808144030019216906613]",
 Background->RGBColor[
  0.9012345679012346, 0.9012345679012346, 0.9012345679012346],
 CellTags->{
  "EssayCell", "Subsection292576110730908596575507114522437317432", 
   "EssayBodyCell292576110730908596575507114522437317432", 
   "EssayCell292576110730908596575507114522437317432", 
   "DiaryDate[{2008, 4, 18, 18, 38, 53.698799}]", 
   "CellGUID[13531181049468811418980742351355382962]", 
   "GUIDTag[292576110730908596575507114522437317432]", 
   "BlogEntryTitle292576110730908596575507114522437317432"},
 CellID->1164793922],

Cell[TextData[{
 "Posted on: Friday, April 18, 2008 at 07:41 PM UT",
 "  ",
 ButtonBox["Notebook Version",
  BaseStyle->"Hyperlink",
  ButtonData:>{
    URL["BE3417536465/BE3417536465.nb"], None}]
}], "Subsubsection",
 FontFamily->"Helvetica",
 FontSize->11,
 FontWeight->"Bold",
 Background->GrayLevel[0.98]],

Cell[TextData[{
 "It is not a very simple matter to add new material to the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " Documentation Center.  One key reason is that Wolfram Research has not yet \
released tools to doing this.  One suite of such tools will reside within ",
 ButtonBox["Wolfram WorkBench",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://www.wolfram.com/products/workbench/"], None}],
 ", and the version of WorkBench that contains these is currently in Beta.  A \
set of tools will also be included in the next version of ",
 StyleBox["A",
  FontWeight->"Bold",
  FontColor->RGBColor[0.542718, 0.103822, 0.139086]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0.647059, 0.119585, 0.134844]],
 StyleBox["Life",
  FontWeight->"Bold",
  FontColor->RGBColor[0.692302, 0.471, 0.275517]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Frame",
  FontWeight->"Bold",
  FontColor->RGBColor[0.0872663, 0.520363, 0.287388]],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0.300008, 0.4]],
 "."
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[102848042951621809986916620069243284098]",
 CellChangeTimes->{{3.4175349091489697`*^9, 3.4175349254881363`*^9}, {
  3.417535250465556*^9, 3.417535370655428*^9}, {3.417535400954606*^9, 
  3.4175354009562187`*^9}, {3.4175361750447807`*^9, 3.417536193147892*^9}, {
  3.4175484552282333`*^9, 3.4175484563437757`*^9}},
 CellTags->{
  "EssayCell", "Text292576110730908596575507114522437317432", 
   "EssayBodyCell292576110730908596575507114522437317432", 
   "EssayCell292576110730908596575507114522437317432", 
   "DiaryDate[{2008, 4, 18, 18, 38, 53.999108}]", 
   "CellGUID[246169797420271614263244670266040529026]", 
   "GUIDTag[292576110730908596575507114522437317432]"},
 CellID->230521002],

Cell[TextData[{
 "The Documentation Center tools included in Wolfram WorkBench require that \
your locus for you work be centered n WorkBench: this is the habit of some ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " programmers  and this services that community.  The tools that will be \
included in ",
 StyleBox["A",
  FontWeight->"Bold",
  FontColor->RGBColor[0.542718, 0.103822, 0.139086]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0.647059, 0.119585, 0.134844]],
 StyleBox["Life",
  FontWeight->"Bold",
  FontColor->RGBColor[0.692302, 0.471, 0.275517]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Frame",
  FontWeight->"Bold",
  FontColor->RGBColor[0.0872663, 0.520363, 0.287388]],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0.300008, 0.4]],
 " are strictly ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "-centric and allow you to keep your work's focus within ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ".  In this way the two different toolsets are helpfully complementary."
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>{"GUIDTag[208485352392370731212862972368125226045]"},
 CellChangeTimes->{{3.417535979243533*^9, 3.4175361426951847`*^9}, 
   3.417548436665779*^9, {3.417548470843027*^9, 3.4175484956398973`*^9}},
 CellTags->{
  "DiaryDate[{2008, 4, 18, 19, 33, 3.084264}]", 
   "CellGUID[182223230333908535946770218234333557894]", "EssayCell", 
   "EssayBodyCell292576110730908596575507114522437317432", 
   "EssayCell292576110730908596575507114522437317432", 
   "Text292576110730908596575507114522437317432", 
   "GUIDTag[292576110730908596575507114522437317432]"},
 CellID->1621202378],

Cell[TextData[{
 "The tools contained in the next version of ",
 StyleBox["A",
  FontWeight->"Bold",
  FontColor->RGBColor[0.542718, 0.103822, 0.139086]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0.647059, 0.119585, 0.134844]],
 StyleBox["Life",
  FontWeight->"Bold",
  FontColor->RGBColor[0.692302, 0.471, 0.275517]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Frame",
  FontWeight->"Bold",
  FontColor->RGBColor[0.0872663, 0.520363, 0.287388]],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0.300008, 0.4]],
 " will enable you to convert arbitrary notebooks into a form that can \
automatically be placed in the Documentation Center\[LongDash]this includes \
documentation for packages that you write and wish to distribute to others.  \
But it also includes documents\[LongDash]in the absence of a package\
\[LongDash]that you want to distribute so that people can read and interact \
with them through the Documentation Center. "
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[91565854270223121805268000091246426950]",
 CellChangeTimes->{{3.41753551427052*^9, 3.417535631002673*^9}, {
  3.417535929360108*^9, 3.417535931318448*^9}, {3.417536210932067*^9, 
  3.4175362390743313`*^9}, {3.4175485053237467`*^9, 3.417548529776544*^9}},
 CellTags->{
  "EssayCell", "Text292576110730908596575507114522437317432", 
   "EssayBodyCell292576110730908596575507114522437317432", 
   "EssayCell292576110730908596575507114522437317432", 
   "DiaryDate[{2008, 4, 18, 19, 25, 6.382938}]", 
   "CellGUID[284631271366458718636720611140720872082]", 
   "GUIDTag[292576110730908596575507114522437317432]"},
 CellID->147035604],

Cell[TextData[{
 "The ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " Documentation Center is actually a very plastic environment for adding \
material to ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", but to do so you currently need to understand quite a bit of arcana that \
pertains to Paclets and to the formatting and tagging of notebooks.   There \
have been many questions over the past year or so on ",
 StyleBox[ButtonBox["MathGroup",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://groups.google.com/group/comp.soft-sys.math.mathematica"], 
    None}],
  FontSlant->"Italic"],
 " on how to format and prepare material for the ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " Documentation Center.  And in the course of creating tools for the next \
version of ",
 StyleBox["A",
  FontWeight->"Bold",
  FontColor->RGBColor[0.542718, 0.103822, 0.139086]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0.647059, 0.119585, 0.134844]],
 StyleBox["Life",
  FontWeight->"Bold",
  FontColor->RGBColor[0.692302, 0.471, 0.275517]],
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox["Frame",
  FontWeight->"Bold",
  FontColor->RGBColor[0.0872663, 0.520363, 0.287388]],
 StyleBox["Work",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0.300008, 0.4]],
 " I have learned quite a bit about how to do this.  So, in the interest of \
helping people at least get started on this, I wrote up some of what I have \
learned so that I could share it with the larger ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " community.  I have placed this write-up in a ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " notebook which you can download from here: ",
 ButtonBox["http://www.scientificarts.com/worklife/notebooks/",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://www.scientificarts.com/worklife/notebooks/"], None}]
}], "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[104634424309922651980050096910244136898]",
 CellChangeTimes->{{3.4175354219628677`*^9, 3.417535495266699*^9}, {
   3.417535642075047*^9, 3.4175357949811707`*^9}, {3.417535825148035*^9, 
   3.4175358338152437`*^9}, {3.4175359332730083`*^9, 3.417535951344028*^9}, 
   3.417536310866967*^9, {3.417536668068737*^9, 3.417536668070869*^9}, {
   3.417548568593624*^9, 3.417548585793564*^9}},
 CellTags->{
  "EssayCell", "Text292576110730908596575507114522437317432", 
   "EssayBodyCell292576110730908596575507114522437317432", 
   "EssayCell292576110730908596575507114522437317432", 
   "DiaryDate[{2008, 4, 18, 19, 23, 40.873942}]", 
   "CellGUID[112587186167922069038606340496761209528]", 
   "GUIDTag[292576110730908596575507114522437317432]"},
 CellID->63256467],

Cell["I hope that this is helpful to folks....", "Text",
 Editable->True,
 Deletable->True,
 CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0],
 "Thickness"->2},
 Copyable->True,
 CellOpen->True,
 TaggingRules:>"GUIDTag[166882092880619961368398717099490151130]",
 CellChangeTimes->{{3.4175364510254*^9, 3.4175364622445173`*^9}},
 CellTags->{
  "EssayCell", "Text292576110730908596575507114522437317432", 
   "EssayBodyCell292576110730908596575507114522437317432", 
   "EssayCell292576110730908596575507114522437317432", 
   "DiaryDate[{2008, 4, 18, 19, 40, 49.985041}]", 
   "CellGUID[247521222933112625729147175040534300706]", 
   "GUIDTag[292576110730908596575507114522437317432]"},
 CellID->275853910]
},
Editable->True,
ScreenStyleEnvironment->"Working",
WindowSize->{550, Automatic},
WindowMargins->{{118, Automatic}, {Automatic, 9}},
WindowTitle->Automatic,
Visible->True,
DockedCells->{},
ShowSelection->True,
TaggingRules:>{
 "3.0.0\[Beta]36", "GUIDTag[238237246487124368684955355206494610687]", 
  "Notebook"},
CreateCellID->True,
DefaultNewCellStyle->"Text",
Magnification->1.,
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   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"]}}, CellFrameLabelMargins -> 6, 
    StyleMenuListing -> None], 
   Cell[
    StyleData["Section"], CellFrame -> {{0, 0}, {0, 1}}, 
    CellMargins -> {{27, Inherited}, {8, 34}}, 
    CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, 
    CellFrameMargins -> 4, DefaultNewInlineCellStyle -> "None", 
    InputAutoReplacements -> {"TeX" -> FormBox[
        StyleBox[
         RowBox[{"T", 
           AdjustmentBox[
           "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
           "X"}], SingleLetterItalics -> False], TraditionalForm], "LaTeX" -> 
      FormBox[
        StyleBox[
         RowBox[{"L", 
           StyleBox[
            AdjustmentBox[
            "A", BoxMargins -> {{-0.5, -0.3}, {0, 0}}, 
             BoxBaselineShift -> -0.4], FontSize -> Smaller], "T", 
           AdjustmentBox[
           "E", BoxMargins -> {{-0.3, 0}, {0, 0}}, BoxBaselineShift -> 0.5], 
           "X"}], SingleLetterItalics -> False], TraditionalForm], "mma" -> 
      "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", 
      "gridMathematica" -> FormBox[
        RowBox[{"grid", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
      "webMathematica" -> FormBox[
        RowBox[{"web", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], ParentList}, 
    TextAlignment -> Center, LineSpacing -> {1, 2}, LanguageCategory -> 
    "NaturalLanguage", CounterIncrements -> "Section", 
    CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, 
    MenuPosition -> 1250, MenuCommandKey -> "4", FontFamily -> "Helvetica", 
    FontSize -> 20, FontWeight -> "Bold"], 
   Cell[
    StyleData["Subsection"], CellMargins -> {{20, Inherited}, {8, 12}}, 
    CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, 
    DefaultNewInlineCellStyle -> "None", 
    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", "gridMathematica" -> FormBox[
        RowBox[{"grid", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
      "webMathematica" -> FormBox[
        RowBox[{"web", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, 
    LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection", 
    CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", 
    FontSize -> 14, FontWeight -> "Bold"], 
   Cell[
    StyleData["Subsubsection"], CellMargins -> {{25, Inherited}, {2, 10}}, 
    CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, 
    DefaultNewInlineCellStyle -> "None", 
    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", "gridMathematica" -> FormBox[
        RowBox[{"grid", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
      "webMathematica" -> FormBox[
        RowBox[{"web", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, 
    LanguageCategory -> "NaturalLanguage", CounterIncrements -> 
    "Subsubsection", FontFamily -> "Helvetica", FontSize -> 13, FontWeight -> 
    "Bold"], 
   Cell[
    StyleData["Text"], CellMargins -> {{25, 10}, {7, 7}}, 
    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", "gridMathematica" -> FormBox[
        RowBox[{"grid", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
      "webMathematica" -> FormBox[
        RowBox[{"web", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, 
    LineSpacing -> {1, 3}, CounterIncrements -> "Text"], 
   Cell[
    StyleData["Input"], CellMargins -> {{25, 10}, {5, 7}}, Evaluatable -> 
    True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> 
    True, PageBreakWithin -> False, GroupPageBreakWithin -> False, 
    DefaultFormatType -> DefaultInputFormatType, 
    "TwoByteSyntaxCharacterAutoReplacement" -> True, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> 
    InputForm, ShowStringCharacters -> True, NumberMarks -> True, 
    LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input",
     FontWeight -> "Bold"], 
   Cell[
    StyleData["Output"], CellMargins -> {{66, 10}, {10, 5}}, 
    CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", 
    TextClipboardType -> "InputText", StripStyleOnPaste -> True, 
    PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> 
    True, CellAutoOverwrite -> True, DefaultFormatType -> 
    DefaultOutputFormatType, ContextMenu -> 
    FEPrivate`FrontEndResource["ContextMenus", "Output"], 
    "TwoByteSyntaxCharacterAutoReplacement" -> True, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, 
    ShowStringCharacters -> False, CounterIncrements -> "Output", 
    MenuPosition -> 1550], 
   Cell[
    StyleData["Graphics"], 
    CellMargins -> {{30, Inherited}, {Inherited, Inherited}}, 
    CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, 
    PageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> 
    True, ShowCellLabel -> False, DefaultFormatType -> 
    DefaultOutputFormatType, LanguageCategory -> None, FormatType -> 
    InputForm, CounterIncrements -> "Graphics", 
    ImageMargins -> {{43, Inherited}, {Inherited, 0}}, StyleMenuListing -> 
    None, FontFamily -> "Helvetica", FontSize -> 10], 
   Cell[
    StyleData["Picture"], CellMargins -> {{27, Inherited}, {4, 4}}, 
    CellGroupingRules -> "GraphicsGrouping", StyleMenuListing -> None], 
   Cell[
    StyleData["DisplayFormula"], 
    CellMargins -> {{60, Inherited}, {Inherited, Inherited}}, 
    CellHorizontalScrolling -> True, DefaultFormatType -> 
    DefaultInputFormatType, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    LanguageCategory -> "Formula", ScriptLevel -> 0, SingleLetterItalics -> 
    True, UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], 
   Cell[
    StyleData["Program"], CellFrame -> {{0, 0}, {0.5, 0.5}}, 
    CellMargins -> {{60, 4}, {0, 8}}, CellHorizontalScrolling -> True, 
    Hyphenation -> False, LanguageCategory -> "Formula", ScriptLevel -> 1, 
    FontFamily -> "Courier"], 
   Cell[
    StyleData["SmallText"], CellMargins -> {{60, 10}, {6, 6}}, 
    DefaultNewInlineCellStyle -> "None", LineSpacing -> {1, 3}, 
    LanguageCategory -> "NaturalLanguage", CounterIncrements -> "SmallText", 
    MenuPosition -> 1750, StyleMenuListing -> None, FontFamily -> "Helvetica",
     FontSize -> 9], 
   Cell[
    StyleData["HTMLVerbatim"], CellMargins -> {{25, 10}, {7, 7}}, 
    ConversionRules -> {"HTML" -> Identity}, Hyphenation -> False, 
    LineSpacing -> {1, 3}, FontFamily -> "Geneva"], 
   Cell[
    StyleData["MathCaption"], CellMargins -> {{25, 10}, {7, 7}}, 
    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", "gridMathematica" -> FormBox[
        RowBox[{"grid", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], 
      "webMathematica" -> FormBox[
        RowBox[{"web", 
          AdjustmentBox[
           StyleBox["Mathematica", FontSlant -> "Italic"], 
           BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, 
    LineSpacing -> {1, 3}, CounterIncrements -> "Text"], 
   Cell[
    StyleData["Item"], CellDingbat -> 
    Cell["\[FilledSmallCircle]", FontWeight -> "Bold"], 
    CellMargins -> {{75, 10}, {4, 4}}, ReturnCreatesNewCell -> True, 
    CellGroupingRules -> {"GroupTogetherNestedGrouping", 15000}, 
    CellFrameLabelMargins -> 4, CounterIncrements -> "Item", 
    CounterAssignments -> {{"Subitem", 0}, {"Subsubitem", 0}}, MenuPosition -> 
    1600], 
   Cell[
    StyleData["Subitem"], CellDingbat -> 
    Cell["\[FilledSmallCircle]", FontWeight -> "Bold"], 
    CellMargins -> {{99, 12}, {4, 4}}, ReturnCreatesNewCell -> True, 
    CellGroupingRules -> {"GroupTogetherNestedGrouping", 15100}, 
    CellFrameLabelMargins -> 4, DefaultNewCellStyle -> "Item", 
    CounterIncrements -> "Subitem", CounterAssignments -> {{"Subsubitem", 0}},
     MenuPosition -> 1610], 
   Cell[
    StyleData["Subsubitem"], CellDingbat -> 
    Cell["\[FilledSmallCircle]", FontWeight -> "Bold"], 
    CellMargins -> {{123, 12}, {4, 4}}, ReturnCreatesNewCell -> True, 
    CellGroupingRules -> {"GroupTogetherNestedGrouping", 15200}, 
    CellFrameLabelMargins -> 4, DefaultNewCellStyle -> "Subsubitem", 
    CounterIncrements -> "Subsubitem"], 
   Cell[
    StyleData["DisplayFormula"], 
    CellMargins -> {{60, Inherited}, {Inherited, Inherited}}, 
    StripStyleOnPaste -> True, DefaultFormatType -> DefaultInputFormatType, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    LanguageCategory -> "Formula", ScriptLevel -> 0, SingleLetterItalics -> 
    True, MenuPosition -> 1700, 
    UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], 
   Cell[
    StyleData["TR"], StyleMenuListing -> None, FontFamily -> "Times", 
    FontWeight -> "Plain", FontSlant -> "Plain"], 
   Cell[
    StyleData["TI"], StyleMenuListing -> None, FontFamily -> "Times", 
    FontWeight -> "Plain", FontSlant -> "Italic"], 
   Cell[
    StyleData["TB"], StyleMenuListing -> None, FontFamily -> "Times", 
    FontWeight -> "Bold"], 
   Cell[
    StyleData["TBI"], StyleMenuListing -> None, FontFamily -> "Times", 
    FontWeight -> "Bold", FontSlant -> "Italic"], 
   Cell[
    StyleData["MR"], 
    ConversionRules :> {
     "TeX" -> {{"\\texttt{", Automatic, "}"}, {"", Automatic, ""}}}, 
    Hyphenation -> True, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", 
    FontSlant -> "Plain"], 
   Cell[
    StyleData["MO"], 
    ConversionRules :> {
     "TeX" -> {{"\\texttt{", Automatic, "}"}, {"", Automatic, ""}}}, 
    Hyphenation -> True, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", 
    FontSlant -> "Italic"], 
   Cell[
    StyleData["MB"], 
    ConversionRules :> {
     "TeX" -> {{"\\texttt{", Automatic, "}"}, {"", Automatic, ""}}}, 
    Hyphenation -> True, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold"], 
   
   Cell[
    StyleData["MBO"], 
    ConversionRules :> {
     "TeX" -> {{"\\texttt{", Automatic, "}"}, {"", Automatic, ""}}}, 
    Hyphenation -> True, 
    HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, 
    StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", 
    FontSlant -> "Italic"], 
   Cell[
    StyleData["SR"], 
    ConversionRules :> {
     "TeX" -> {{"\\textsf{", Automatic, "}"}, {"", Automatic, ""}}}, 
    StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> 
    "Plain", FontSlant -> "Plain"], 
   Cell[
    StyleData["SO"], 
    ConversionRules :> {
     "TeX" -> {{"\\textsf{", Automatic, "}"}, {"", Automatic, ""}}}, 
    StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> 
    "Plain", FontSlant -> "Italic"], 
   Cell[
    StyleData["SB"], 
    ConversionRules :> {
     "TeX" -> {{"\\textsf{", Automatic, "}"}, {"", Automatic, ""}}}, 
    StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> 
    "Bold"], 
   Cell[
    StyleData["SBO"], 
    ConversionRules :> {
     "TeX" -> {{"\\textsf{", Automatic, "}"}, {"", Automatic, ""}}}, 
    StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold",
     FontSlant -> "Italic"]}, Visible -> False, FrontEndVersion -> 
  "7.0 for Mac OS X x86 (32-bit) (February 18, 2009)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "CoyyrightCell"->{
  Cell[568, 21, 465, 17, 70, "Title",
   CellTags->"CoyyrightCell"]},
 "EssayCell"->{
  Cell[1036, 40, 813, 19, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 18, 38, 53.698799}]", 
     "CellGUID[13531181049468811418980742351355382962]", 
     "GUIDTag[292576110730908596575507114522437317432]", 
     "BlogEntryTitle292576110730908596575507114522437317432"},
   CellID->1164793922],
  Cell[2164, 74, 1962, 51, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 18, 38, 53.999108}]", 
     "CellGUID[246169797420271614263244670266040529026]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->230521002],
  Cell[4129, 127, 1831, 50, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2008, 4, 18, 19, 33, 3.084264}]", 
     "CellGUID[182223230333908535946770218234333557894]", "EssayCell", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "Text292576110730908596575507114522437317432", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->1621202378],
  Cell[5963, 179, 1822, 45, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 25, 6.382938}]", 
     "CellGUID[284631271366458718636720611140720872082]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->147035604],
  Cell[7788, 226, 2850, 74, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 23, 40.873942}]", 
     "CellGUID[112587186167922069038606340496761209528]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->63256467],
  Cell[10641, 302, 704, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 40, 49.985041}]", 
     "CellGUID[247521222933112625729147175040534300706]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->275853910]},
 "Subsection292576110730908596575507114522437317432"->{
  Cell[1036, 40, 813, 19, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 18, 38, 53.698799}]", 
     "CellGUID[13531181049468811418980742351355382962]", 
     "GUIDTag[292576110730908596575507114522437317432]", 
     "BlogEntryTitle292576110730908596575507114522437317432"},
   CellID->1164793922]},
 "EssayBodyCell292576110730908596575507114522437317432"->{
  Cell[1036, 40, 813, 19, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 18, 38, 53.698799}]", 
     "CellGUID[13531181049468811418980742351355382962]", 
     "GUIDTag[292576110730908596575507114522437317432]", 
     "BlogEntryTitle292576110730908596575507114522437317432"},
   CellID->1164793922],
  Cell[2164, 74, 1962, 51, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 18, 38, 53.999108}]", 
     "CellGUID[246169797420271614263244670266040529026]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->230521002],
  Cell[4129, 127, 1831, 50, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2008, 4, 18, 19, 33, 3.084264}]", 
     "CellGUID[182223230333908535946770218234333557894]", "EssayCell", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "Text292576110730908596575507114522437317432", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->1621202378],
  Cell[5963, 179, 1822, 45, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 25, 6.382938}]", 
     "CellGUID[284631271366458718636720611140720872082]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->147035604],
  Cell[7788, 226, 2850, 74, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 23, 40.873942}]", 
     "CellGUID[112587186167922069038606340496761209528]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->63256467],
  Cell[10641, 302, 704, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 40, 49.985041}]", 
     "CellGUID[247521222933112625729147175040534300706]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->275853910]},
 "EssayCell292576110730908596575507114522437317432"->{
  Cell[1036, 40, 813, 19, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 18, 38, 53.698799}]", 
     "CellGUID[13531181049468811418980742351355382962]", 
     "GUIDTag[292576110730908596575507114522437317432]", 
     "BlogEntryTitle292576110730908596575507114522437317432"},
   CellID->1164793922],
  Cell[2164, 74, 1962, 51, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 18, 38, 53.999108}]", 
     "CellGUID[246169797420271614263244670266040529026]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->230521002],
  Cell[4129, 127, 1831, 50, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2008, 4, 18, 19, 33, 3.084264}]", 
     "CellGUID[182223230333908535946770218234333557894]", "EssayCell", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "Text292576110730908596575507114522437317432", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->1621202378],
  Cell[5963, 179, 1822, 45, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 25, 6.382938}]", 
     "CellGUID[284631271366458718636720611140720872082]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->147035604],
  Cell[7788, 226, 2850, 74, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 23, 40.873942}]", 
     "CellGUID[112587186167922069038606340496761209528]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->63256467],
  Cell[10641, 302, 704, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 40, 49.985041}]", 
     "CellGUID[247521222933112625729147175040534300706]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->275853910]},
 "DiaryDate[{2008, 4, 18, 18, 38, 53.698799}]"->{
  Cell[1036, 40, 813, 19, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 18, 38, 53.698799}]", 
     "CellGUID[13531181049468811418980742351355382962]", 
     "GUIDTag[292576110730908596575507114522437317432]", 
     "BlogEntryTitle292576110730908596575507114522437317432"},
   CellID->1164793922]},
 "CellGUID[13531181049468811418980742351355382962]"->{
  Cell[1036, 40, 813, 19, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 18, 38, 53.698799}]", 
     "CellGUID[13531181049468811418980742351355382962]", 
     "GUIDTag[292576110730908596575507114522437317432]", 
     "BlogEntryTitle292576110730908596575507114522437317432"},
   CellID->1164793922]},
 "GUIDTag[292576110730908596575507114522437317432]"->{
  Cell[1036, 40, 813, 19, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 18, 38, 53.698799}]", 
     "CellGUID[13531181049468811418980742351355382962]", 
     "GUIDTag[292576110730908596575507114522437317432]", 
     "BlogEntryTitle292576110730908596575507114522437317432"},
   CellID->1164793922],
  Cell[2164, 74, 1962, 51, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 18, 38, 53.999108}]", 
     "CellGUID[246169797420271614263244670266040529026]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->230521002],
  Cell[4129, 127, 1831, 50, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2008, 4, 18, 19, 33, 3.084264}]", 
     "CellGUID[182223230333908535946770218234333557894]", "EssayCell", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "Text292576110730908596575507114522437317432", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->1621202378],
  Cell[5963, 179, 1822, 45, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 25, 6.382938}]", 
     "CellGUID[284631271366458718636720611140720872082]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->147035604],
  Cell[7788, 226, 2850, 74, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 23, 40.873942}]", 
     "CellGUID[112587186167922069038606340496761209528]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->63256467],
  Cell[10641, 302, 704, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 40, 49.985041}]", 
     "CellGUID[247521222933112625729147175040534300706]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->275853910]},
 "BlogEntryTitle292576110730908596575507114522437317432"->{
  Cell[1036, 40, 813, 19, 70, "Subsection",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Subsection292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 18, 38, 53.698799}]", 
     "CellGUID[13531181049468811418980742351355382962]", 
     "GUIDTag[292576110730908596575507114522437317432]", 
     "BlogEntryTitle292576110730908596575507114522437317432"},
   CellID->1164793922]},
 "Text292576110730908596575507114522437317432"->{
  Cell[2164, 74, 1962, 51, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 18, 38, 53.999108}]", 
     "CellGUID[246169797420271614263244670266040529026]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->230521002],
  Cell[4129, 127, 1831, 50, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2008, 4, 18, 19, 33, 3.084264}]", 
     "CellGUID[182223230333908535946770218234333557894]", "EssayCell", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "Text292576110730908596575507114522437317432", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->1621202378],
  Cell[5963, 179, 1822, 45, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 25, 6.382938}]", 
     "CellGUID[284631271366458718636720611140720872082]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->147035604],
  Cell[7788, 226, 2850, 74, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 23, 40.873942}]", 
     "CellGUID[112587186167922069038606340496761209528]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->63256467],
  Cell[10641, 302, 704, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 40, 49.985041}]", 
     "CellGUID[247521222933112625729147175040534300706]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->275853910]},
 "DiaryDate[{2008, 4, 18, 18, 38, 53.999108}]"->{
  Cell[2164, 74, 1962, 51, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 18, 38, 53.999108}]", 
     "CellGUID[246169797420271614263244670266040529026]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->230521002]},
 "CellGUID[246169797420271614263244670266040529026]"->{
  Cell[2164, 74, 1962, 51, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 18, 38, 53.999108}]", 
     "CellGUID[246169797420271614263244670266040529026]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->230521002]},
 "DiaryDate[{2008, 4, 18, 19, 33, 3.084264}]"->{
  Cell[4129, 127, 1831, 50, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2008, 4, 18, 19, 33, 3.084264}]", 
     "CellGUID[182223230333908535946770218234333557894]", "EssayCell", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "Text292576110730908596575507114522437317432", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->1621202378]},
 "CellGUID[182223230333908535946770218234333557894]"->{
  Cell[4129, 127, 1831, 50, 70, "Text",
   CellOpen->True,
   CellTags->{
    "DiaryDate[{2008, 4, 18, 19, 33, 3.084264}]", 
     "CellGUID[182223230333908535946770218234333557894]", "EssayCell", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "Text292576110730908596575507114522437317432", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->1621202378]},
 "DiaryDate[{2008, 4, 18, 19, 25, 6.382938}]"->{
  Cell[5963, 179, 1822, 45, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 25, 6.382938}]", 
     "CellGUID[284631271366458718636720611140720872082]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->147035604]},
 "CellGUID[284631271366458718636720611140720872082]"->{
  Cell[5963, 179, 1822, 45, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 25, 6.382938}]", 
     "CellGUID[284631271366458718636720611140720872082]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->147035604]},
 "DiaryDate[{2008, 4, 18, 19, 23, 40.873942}]"->{
  Cell[7788, 226, 2850, 74, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 23, 40.873942}]", 
     "CellGUID[112587186167922069038606340496761209528]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->63256467]},
 "CellGUID[112587186167922069038606340496761209528]"->{
  Cell[7788, 226, 2850, 74, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 23, 40.873942}]", 
     "CellGUID[112587186167922069038606340496761209528]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->63256467]},
 "DiaryDate[{2008, 4, 18, 19, 40, 49.985041}]"->{
  Cell[10641, 302, 704, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 40, 49.985041}]", 
     "CellGUID[247521222933112625729147175040534300706]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->275853910]},
 "CellGUID[247521222933112625729147175040534300706]"->{
  Cell[10641, 302, 704, 16, 70, "Text",
   CellOpen->True,
   CellTags->{
    "EssayCell", "Text292576110730908596575507114522437317432", 
     "EssayBodyCell292576110730908596575507114522437317432", 
     "EssayCell292576110730908596575507114522437317432", 
     "DiaryDate[{2008, 4, 18, 19, 40, 49.985041}]", 
     "CellGUID[247521222933112625729147175040534300706]", 
     "GUIDTag[292576110730908596575507114522437317432]"},
   CellID->275853910]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"CoyyrightCell", 27173, 669},
 {"EssayCell", 27259, 672},
 {"Subsection292576110730908596575507114522437317432", 30098, 734},
 {"EssayBodyCell292576110730908596575507114522437317432", 30683, 746},
 {"EssayCell292576110730908596575507114522437317432", 33521, 808},
 {"DiaryDate[{2008, 4, 18, 18, 38, 53.698799}]", 36354, 870},
 {"CellGUID[13531181049468811418980742351355382962]", 36935, 882},
 {"GUIDTag[292576110730908596575507114522437317432]", 37516, 894},
 {"BlogEntryTitle292576110730908596575507114522437317432", 40359, 956},
 {"Text292576110730908596575507114522437317432", 40935, 968},
 {"DiaryDate[{2008, 4, 18, 18, 38, 53.999108}]", 43243, 1019},
 {"CellGUID[246169797420271614263244670266040529026]", 43751, 1030},
 {"DiaryDate[{2008, 4, 18, 19, 33, 3.084264}]", 44252, 1041},
 {"CellGUID[182223230333908535946770218234333557894]", 44761, 1052},
 {"DiaryDate[{2008, 4, 18, 19, 25, 6.382938}]", 45263, 1063},
 {"CellGUID[284631271366458718636720611140720872082]", 45771, 1074},
 {"DiaryDate[{2008, 4, 18, 19, 23, 40.873942}]", 46273, 1085},
 {"CellGUID[112587186167922069038606340496761209528]", 46781, 1096},
 {"DiaryDate[{2008, 4, 18, 19, 40, 49.985041}]", 47283, 1107},
 {"CellGUID[247521222933112625729147175040534300706]", 47792, 1118}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 465, 17, 70, "Title",
 CellTags->"CoyyrightCell"],
Cell[1036, 40, 813, 19, 70, "Subsection",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Subsection292576110730908596575507114522437317432", 
   "EssayBodyCell292576110730908596575507114522437317432", 
   "EssayCell292576110730908596575507114522437317432", 
   "DiaryDate[{2008, 4, 18, 18, 38, 53.698799}]", 
   "CellGUID[13531181049468811418980742351355382962]", 
   "GUIDTag[292576110730908596575507114522437317432]", 
   "BlogEntryTitle292576110730908596575507114522437317432"},
 CellID->1164793922],
Cell[1852, 61, 309, 11, 70, "Subsubsection"],
Cell[2164, 74, 1962, 51, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text292576110730908596575507114522437317432", 
   "EssayBodyCell292576110730908596575507114522437317432", 
   "EssayCell292576110730908596575507114522437317432", 
   "DiaryDate[{2008, 4, 18, 18, 38, 53.999108}]", 
   "CellGUID[246169797420271614263244670266040529026]", 
   "GUIDTag[292576110730908596575507114522437317432]"},
 CellID->230521002],
Cell[4129, 127, 1831, 50, 70, "Text",
 CellOpen->True,
 CellTags->{
  "DiaryDate[{2008, 4, 18, 19, 33, 3.084264}]", 
   "CellGUID[182223230333908535946770218234333557894]", "EssayCell", 
   "EssayBodyCell292576110730908596575507114522437317432", 
   "EssayCell292576110730908596575507114522437317432", 
   "Text292576110730908596575507114522437317432", 
   "GUIDTag[292576110730908596575507114522437317432]"},
 CellID->1621202378],
Cell[5963, 179, 1822, 45, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text292576110730908596575507114522437317432", 
   "EssayBodyCell292576110730908596575507114522437317432", 
   "EssayCell292576110730908596575507114522437317432", 
   "DiaryDate[{2008, 4, 18, 19, 25, 6.382938}]", 
   "CellGUID[284631271366458718636720611140720872082]", 
   "GUIDTag[292576110730908596575507114522437317432]"},
 CellID->147035604],
Cell[7788, 226, 2850, 74, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text292576110730908596575507114522437317432", 
   "EssayBodyCell292576110730908596575507114522437317432", 
   "EssayCell292576110730908596575507114522437317432", 
   "DiaryDate[{2008, 4, 18, 19, 23, 40.873942}]", 
   "CellGUID[112587186167922069038606340496761209528]", 
   "GUIDTag[292576110730908596575507114522437317432]"},
 CellID->63256467],
Cell[10641, 302, 704, 16, 70, "Text",
 CellOpen->True,
 CellTags->{
  "EssayCell", "Text292576110730908596575507114522437317432", 
   "EssayBodyCell292576110730908596575507114522437317432", 
   "EssayCell292576110730908596575507114522437317432", 
   "DiaryDate[{2008, 4, 18, 19, 40, 49.985041}]", 
   "CellGUID[247521222933112625729147175040534300706]", 
   "GUIDTag[292576110730908596575507114522437317432]"},
 CellID->275853910]
}
]
*)

(* End of internal cache information *)