Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], ";", 
   RowBox[{"ParamsAreSet", "=", "False"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "If", " ", "running", " ", "from", " ", "the", " ", "Notebook", " ", 
    "interface"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"$VersionNumber", "<", "8"}], ",", 
     RowBox[{"(*", "then", "*)"}], " ", 
     RowBox[{
      RowBox[{
      "Print", "[", 
       "\"\<These programs require Mathematica version 8 or greater.\>\"", 
       "]"}], ";", 
      RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Length", "[", "$FrontEnd", "]"}], " ", ">", " ", "0"}], ",", 
     RowBox[{"NBDir", "=", 
      RowBox[{"SetDirectory", "[", 
       RowBox[{"NotebookDirectory", "[", "]"}], "]"}]}]}], "]"}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "If", " ", "running", " ", "from", " ", "the", " ", "Notebook", " ", 
    "interface"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"$FrontEnd", " ", "\[Equal]", " ", "Null"}], ",", 
     RowBox[{"OpenFigsUsingShell", "=", "True"}], ",", 
     RowBox[{"OpenFigsUsingShell", "=", "False"}]}], "]"}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AutoLoadDir", "=", 
   RowBox[{"SetDirectory", "[", "\"\<../../CoreCode/Autoload\>\"", "]"}]}], 
  ";", 
  RowBox[{"Get", "[", "\"\<./init.m\>\"", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CoreCodeDir", "=", 
   RowBox[{"SetDirectory", "[", "\"\<..\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rootDir", " ", "=", " ", 
    RowBox[{"SetDirectory", "[", "\"\<..\>\"", "]"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "root", " ", "directory", " ", "is", " ", "above", " ", "CoreCode"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FigsDir", "=", 
   RowBox[{"SetDirectory", "[", 
    RowBox[{"rootDir", "<>", "\"\</Examples/cjSOE/Figures/\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CodeDir", "=", 
   RowBox[{"SetDirectory", "[", 
    RowBox[{"rootDir", "<>", "\"\</Examples/cjSOE\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Get", "[", 
   RowBox[{"CoreCodeDir", "<>", "\"\</MakeAnalyticalResults.m\>\""}], "]"}], 
  ";"}]}], "Input"]
},
WindowSize->{740, 867},
WindowMargins->{{Automatic, 328}, {Automatic, 0}},
FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (October 6, \
2011)",
StyleDefinitions->"Default.nb"
]

