(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     40904,        850]
NotebookOptionsPosition[     40075,        817]
NotebookOutlinePosition[     40431,        833]
CellTagsIndexPosition[     40388,        830]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Graphing", "Section",
 CellChangeTimes->{{3.5443956477557034`*^9, 3.5443956488747673`*^9}}],

Cell["\<\
Here are two functions that help my ability to visualize.  myAxis returns \
graphic primitives that create an axis in the given component direction with \
the given label in the given color from lo to hi; the axis is dashed for \
negative values.  myPoint includes dashed lines indicating how one might plot \
the point by hand and a label for the point.\
\>", "Text",
 CellChangeTimes->{{3.5443931462386246`*^9, 3.5443931949874134`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"myAxis", "[", 
    RowBox[{
    "label_", ",", "color_", ",", "component_", ",", "lo_", ",", "hi_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"e", ",", "g", ",", "o"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"o", "=", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";", 
      RowBox[{"e", "=", "o"}], ";", 
      RowBox[{
       RowBox[{
       "e", "\[LeftDoubleBracket]", "component", "\[RightDoubleBracket]"}], 
       "=", "1"}], ";", "\[IndentingNewLine]", 
      RowBox[{"g", "=", 
       RowBox[{"{", 
        RowBox[{"color", ",", 
         RowBox[{"Text", "[", 
          RowBox[{"label", ",", 
           RowBox[{"1.05", " ", "hi", " ", "e"}]}], "]"}], ",", 
         RowBox[{"Arrowheads", "[", "0.02", "]"}], ",", 
         RowBox[{"Arrow", "[", 
          RowBox[{"{", 
           RowBox[{"o", ",", 
            RowBox[{"hi", " ", "e"}]}], "}"}], "]"}]}], "}"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"lo", "<", "0"}], ",", 
        RowBox[{"g", "=", 
         RowBox[{"Join", "[", 
          RowBox[{"g", ",", 
           RowBox[{"{", 
            RowBox[{"Dashed", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"lo", " ", "e"}], ",", "o"}], "}"}], "]"}], ",", 
             RowBox[{"Dashing", "[", 
              RowBox[{"{", "}"}], "]"}]}], "}"}]}], "]"}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", "g"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"myPoint", "[", 
    RowBox[{"p_", ",", "color_", ",", "label_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{"color", ",", 
     RowBox[{"Text", "[", 
      RowBox[{"label", ",", 
       RowBox[{"1.1", " ", "p"}]}], "]"}], ",", "Dashed", ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"p", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
           ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"p", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}],
           ",", 
          RowBox[{"p", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}],
           ",", "0"}], "}"}], ",", "p"}], "}"}], "]"}], ",", 
     RowBox[{"PointSize", "[", "Medium", "]"}], ",", 
     RowBox[{"Point", "[", "p", "]"}], ",", 
     RowBox[{"Dashing", "[", 
      RowBox[{"{", "}"}], "]"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.544260709698449*^9, 3.5442607186279593`*^9}, {
  3.54428111716831*^9, 3.5442811280423098`*^9}, {3.5442856744219174`*^9, 
  3.5442856853789177`*^9}, {3.5442900062835426`*^9, 3.544290041155543*^9}, {
  3.5443927636957445`*^9, 3.544392786886071*^9}, {3.544392851243752*^9, 
  3.5443928515137672`*^9}}],

Cell[TextData[{
 "Draw a graph of the points and vectors ",
 Cell[BoxData[
  FormBox[
   StyleBox["a",
    FontWeight->"Bold"], TraditionalForm]]],
 ", ",
 Cell[BoxData[
  FormBox[
   StyleBox["b",
    FontWeight->"Bold"], TraditionalForm]]],
 " along with part of the plane determined by ",
 Cell[BoxData[
  FormBox[
   StyleBox["a",
    FontWeight->"Bold"], TraditionalForm]]],
 " and ",
 Cell[BoxData[
  FormBox[
   StyleBox["b",
    FontWeight->"Bold"], TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.544393214601535*^9, 3.5443933354354467`*^9}, 
   3.576924386481578*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"o", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";", 
  RowBox[{"p", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "6", ",", "3"}], "}"}]}], ";", 
  RowBox[{"q", "=", 
   RowBox[{"{", 
    RowBox[{"6", ",", "3", ",", 
     RowBox[{"-", "2"}]}], "}"}]}], ";", 
  RowBox[{"Graphics3D", "[", 
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"myAxis", "[", 
       RowBox[{"\"\<x\>\"", ",", "Orange", ",", "1", ",", 
        RowBox[{"-", "2"}], ",", "2"}], "]"}], ",", 
      RowBox[{"myAxis", "[", 
       RowBox[{"\"\<y\>\"", ",", 
        RowBox[{"Darker", "[", "Yellow", "]"}], ",", "2", ",", 
        RowBox[{"-", "2"}], ",", "2"}], "]"}], ",", 
      RowBox[{"myAxis", "[", 
       RowBox[{"\"\<z\>\"", ",", "Green", ",", "3", ",", 
        RowBox[{"-", "2"}], ",", "2"}], "]"}], ",", 
      RowBox[{"myPoint", "[", 
       RowBox[{"p", ",", "Black", ",", "\"\<p\>\""}], "]"}], ",", 
      RowBox[{"myPoint", "[", 
       RowBox[{"q", ",", "Black", ",", "\"\<q\>\""}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"Arrow", "[", 
         RowBox[{"{", 
          RowBox[{"o", ",", "p"}], "}"}], "]"}], ",", 
        RowBox[{"Arrow", "[", 
         RowBox[{"{", 
          RowBox[{"o", ",", "q"}], "}"}], "]"}], ",", "Red"}], "}"}]}], "]"}],
     ",", 
    RowBox[{"Axes", "\[Rule]", "True"}], ",", 
    RowBox[{"ViewPoint", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"100", ",", "100", ",", "100"}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.544188998883645*^9, 3.544189003768761*^9}, {
   3.5441897207364597`*^9, 3.5441897323461676`*^9}, {3.544190060055626*^9, 
   3.54419009446349*^9}, {3.5441901254087315`*^9, 3.5441901463092475`*^9}, {
   3.544190177415721*^9, 3.5441902335381937`*^9}, 3.5441902947152634`*^9, {
   3.5441904213970203`*^9, 3.5441904708429275`*^9}, {3.544191432467061*^9, 
   3.5441914326231127`*^9}, {3.544191466267708*^9, 3.544191473633315*^9}, 
   3.5441915498818345`*^9, {3.5441915858838005`*^9, 3.544191637041529*^9}, {
   3.5441952332194257`*^9, 3.5441952922172594`*^9}, {3.544227068842256*^9, 
   3.5442270705913563`*^9}, {3.544227108415519*^9, 3.544227136351117*^9}, {
   3.54422717940758*^9, 3.544227211334406*^9}, {3.544227258272091*^9, 
   3.5442272583830967`*^9}, {3.544264576475616*^9, 3.544264578367724*^9}, {
   3.544264611410614*^9, 3.5442647285733156`*^9}, {3.5442655755097575`*^9, 
   3.5442656265276756`*^9}, {3.544265668290064*^9, 3.5442656717772636`*^9}, {
   3.5442657178929014`*^9, 3.5442657435013657`*^9}, {3.5442683095971384`*^9, 
   3.544268333300494*^9}, {3.544268372027709*^9, 3.5442684125960293`*^9}, {
   3.544271170958799*^9, 3.5442711717258425`*^9}, {3.5442792389278936`*^9, 
   3.544279242872288*^9}, {3.544279277134714*^9, 3.5442792808680873`*^9}, {
   3.5442793221212125`*^9, 3.54427934140314*^9}, 3.54428111298731*^9, {
   3.544284734286769*^9, 3.544284743923805*^9}, 3.5442855942729177`*^9, {
   3.544392168068677*^9, 3.5443921821414814`*^9}, {3.544392216013419*^9, 
   3.5443922258699827`*^9}, {3.5443922779179597`*^9, 
   3.5443922786930037`*^9}, {3.5443923417416105`*^9, 3.544392424318333*^9}, {
   3.544392455639125*^9, 3.5443925750439544`*^9}, {3.5443926174083776`*^9, 
   3.5443926738816075`*^9}, {3.5443928006498585`*^9, 3.5443928242022057`*^9}, 
   3.5443935385290623`*^9, {3.5769242218356524`*^9, 3.5769242457587357`*^9}, {
   3.5769242830939283`*^9, 3.576924283758156*^9}, {3.576924358430511*^9, 
   3.576924358828824*^9}, {3.5769243911563253`*^9, 3.576924417347826*^9}, {
   3.576924611834613*^9, 3.5769247093529453`*^9}}],

Cell[BoxData[
 Graphics3DBox[
  {RGBColor[1, 0.5, 0], Text3DBox["\<\"x\"\>", {2.1, 0., 0.}], 
   {Arrowheads[0.02], Arrow3DBox[{{0, 0, 0}, {2, 0, 0}}], 
    {Dashing[{Small, Small}], Line3DBox[{{-2, 0, 0}, {0, 0, 0}}]}, 
    {RGBColor[
      NCache[
       Rational[2, 3], 0.6666666666666666], 
      NCache[
       Rational[2, 3], 0.6666666666666666], 0], Dashing[{}], 
     Text3DBox["\<\"y\"\>", {0., 2.1, 0.}], 
     {Arrowheads[0.02], Arrow3DBox[{{0, 0, 0}, {0, 2, 0}}], 
      {Dashing[{Small, Small}], Line3DBox[{{0, -2, 0}, {0, 0, 0}}]}, 
      {RGBColor[0, 1, 0], Dashing[{}], 
       Text3DBox["\<\"z\"\>", {0., 0., 2.1}], 
       {Arrowheads[0.02], Arrow3DBox[{{0, 0, 0}, {0, 0, 2}}], 
        {Dashing[{Small, Small}], Line3DBox[{{0, 0, -2}, {0, 0, 0}}]}, 
        {GrayLevel[0], Dashing[{}], 
         Text3DBox["\<\"p\"\>", {-2.2, 6.6000000000000005`, 
          3.3000000000000003`}], 
         {Dashing[{Small, Small}], 
          Line3DBox[{{-2, 0, 0}, {-2, 6, 0}, {-2, 6, 3}}], 
          {PointSize[Medium], Point3DBox[{-2, 6, 3}], 
           {GrayLevel[0], Dashing[{}], 
            Text3DBox["\<\"q\"\>", {6.6000000000000005`, 
             3.3000000000000003`, -2.2}], 
            {Dashing[{Small, Small}], 
             Line3DBox[{{6, 0, 0}, {6, 3, 0}, {6, 3, -2}}], 
             {PointSize[Medium], Point3DBox[{6, 3, -2}], 
              {GrayLevel[0], Dashing[{}], Arrow3DBox[{{0, 0, 0}, {-2, 6, 3}}],
                Arrow3DBox[{{0, 0, 0}, {6, 3, -2}}], 
               {RGBColor[1, 0, 0]}}}}}}}}}}}}}},
  Axes->True,
  ViewPoint->{100, 100, 100}]], "Output",
 CellChangeTimes->{{3.57692467474612*^9, 3.576924713233317*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"pc", ":=", 
  RowBox[{"ContourPlot3D", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x", "-", 
         RowBox[{"26", "/", "3"}]}], ")"}], "^", "2"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"y", "-", "2"}], ")"}], "^", "2"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"z", "+", 
         RowBox[{"11", "/", "3"}]}], ")"}], "^", "2"}]}], "\[Equal]", 
     RowBox[{"392", "/", "9"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "5"}], ",", "20"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", 
      RowBox[{"-", "5"}], ",", "20"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"z", ",", 
      RowBox[{"-", "20"}], ",", "5"}], "}"}], ",", 
    RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
    RowBox[{"ContourStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{
       RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
       RowBox[{"Specularity", "[", 
        RowBox[{"White", ",", "30"}], "]"}]}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.576924432949189*^9, 3.576924573063615*^9}, 
   3.576924717311811*^9, {3.576924770071267*^9, 3.576924776733779*^9}, {
   3.576924822448132*^9, 3.576924859053269*^9}, {3.5769250103770857`*^9, 
   3.576925011227201*^9}}],

Cell[BoxData[
 RowBox[{"p1", ":=", 
  RowBox[{"ParametricPlot3D", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], "t"}], ",", 
      RowBox[{"6", "t"}], ",", 
      RowBox[{"3", "t"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.576924880331388*^9, 3.576924883100051*^9}, {
  3.5769249203708897`*^9, 3.576924980371174*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParametricPlot3D", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"6", "t"}], ",", 
     RowBox[{"3", "t"}], ",", 
     RowBox[{
      RowBox[{"-", "2"}], "t"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.576924982978907*^9, 3.576925003969022*^9}, 
   3.5769250658121443`*^9}],

Cell[BoxData[
 Graphics3DBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], Line3DBox[CompressedData["
1:eJwlxXlUjWkYAPBbXb5kKpfqm1uKqIssOcZStvchR0R2soY2SZLGWAcVN1s3
IQalxd5EocIhPSZJSA1l0kzrLbRRabkt6h3nPH/8zs/SbdsST22JROL8g84P
7fP8Li3aFjid9p/u5Fn99mmNZ3qIx7DheQpXRi9gUgdT/zL5LMz5WuWjUvgx
2pX9EnM+Klm+DBuTHUJ9FQcY7cfmvSm8d0nugcEmzQPXKsIYfYC5eGienJbv
wJwXTh+XKqIZHcZKbI84qOSH0T9258uFikRGR7NY44Uhx+URmBEa+thZkc7o
RBakmzzsmPwqSnsHCDU+eYxGtnJVXFJjUwrOObhRmbqikNEvWF8etNbRAvHh
Hs+Sa29LGZ3LrBd/rX52IhOLVm+xDdhVyeh8tivXnp1veYkyR5XXX/CZ0YVM
TJGVamnloazA896kNXWM/o/dVzvk5E19h0MH+8Yr3RoYXcYyfC6ZraovQLuS
ra9nnG5idAVrVUwzvL21EDM6A+cXRDYzupJpdyT0M7P+F70xOzs9uJXRH9lE
vuH+0sRivOB+w9R4g4bRn1nO4fG5WTZlOGZlRVuPZweja9ig8LqO+K/lWN68
MBfmdjG6jtVpykrfj1VjW5l8rMnybkZ/YVdrH78yCKvEswl7N7m4cEY3MAPz
Gw1VVVU4wlDXeXekBOhGFro51SvW6hM+9A9MCIvRArqJtUFClffBz1hofUZY
fFob6G9sx7jMFJNn1TjsUP7wdRd0gG5mZYmZJ95a1uLURWXjYyKlQLewLp+C
yBF767DcXzldFdoL6FY2cobQ4/W4HlPtV+k/P9Ub6DbmeNly013xK8pXvCi6
qRSA1rBd5uuHVKxtwJlqyamMHbpAt7NR9cv7Fjo3YpSJt75idx+gO9gAw0bd
zM5GDInefGSCjx7QnUyKkUlDo5owNvd8Vph/X6C72Jbxj4v6zPuGgX5nGs0D
fgL6O0uY6xab3vYNGzcO/3mVmz7Q3ay1zrTfp3PNGN5dKy31MgC6h6UuddSJ
mNWC6fWODQarDYHm7OAcZUzKpxYssrZTT7bqB7QELEucPlxRtqLvCHfbM9f6
AS2ByZMOR8jHteHzFWv2zbCQAa0Fay3yOrTy29BuZW28UZwMaC1ofaVS+wdp
MODQ7MJpZv2B1obzUtcdS6zaMcxLt1PrTH+gtWFAaepl7cx2zDTfyGuNBgCt
A732By2z396BT3tCdGzCBgCtA5J41yR1/078J9mhViUzAloKAReTVP0zOjF3
sFdW6GkjoKXwZORRXZlfF6oeLI+r0DMGuhfInAJGBRt8R88hxa5rVMZA94Li
0X/n70n7jtIHtmYjBROge8OdaGZV5dqNITo1OWcPmADdG9YlTZSZ93TjYCv7
jdYSEWgBApVxQcV/9mCw34oWvT0i0ALcrjaPNJjPUTHRI1uxTwRagKOXlBtK
F3B83b09auZ+EWgBPJZ8sU5czNFYpZq1N0gEWoCBaWl3nF043kzIjKg5JgIt
wPGTa7JC3TjmVo+bkH1RBFoA74kXmvT2cDR1N9ypTBOBFmDIYaM5wnWO6Tbm
TnHpItAC9Nj9rl94k6P7NxuLJ09FoAUo+lL57noCx1tBs7NaMkWgBQh3SV43
+y5HFrvfxOONCLQA3GbJr8o0jp4ldfdnlopAC1D89mS0Tj5HvWsdx13LRaAF
eBiicc9/zzHJV1i/Vy0CLUDElPUjrnzg2N41RLj3SQRagHnXxqTMLOUYarra
xbJBBFqAR7vfvAyq4ThWvWnktCYRaAHOjZ5wcnE9x/fxv/GVzSLQAmxXRy2z
bOBoYX/qRrhGBFqA4fN9y562cHwmidl3q0MEWgCpVsHVcA1H7+xbC7O7RKAF
KE+d4rOhk6N++KOhVd0i0AKk+VyxHdvN8a5LtoZzEWgB/hjUt5Vzjv8Dp0GN
VA==
     "]]}},
  Axes->True,
  Method->{},
  PlotRange->{{0., 5.99999987755102}, {0., 
   2.99999993877551}, {-1.9999999591836735`, 0.}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.57692506630824*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"p1", ",", "p2", ",", "pc", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "20"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5"}], ",", "20"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "20"}], ",", "5"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.576925014155875*^9, 3.5769250518559923`*^9}, 
   3.576925110672018*^9, {3.5769251818490067`*^9, 3.576925223375805*^9}}],

Cell[BoxData[
 Graphics3DBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], Line3DBox[CompressedData["
1:eJwlxXlUjWkYAPBbXb5kKpfqm1uKqIssOcZStvchR0R2soY2SZLGWAcVN1s3
IQalxd5EocIhPSZJSA1l0kzrLbRRabkt6h3nPH/8zs/SbdsST22JROL8g84P
Tp7Vb5/WeKa3z/O7tGhb4HTaf7rUwdS/TD4LQzyGDc9TuDJ6Afsl5nxUsnwZ
5nyt8lEp/Bjtyua9Kbx3Se6BjckOob6KA4z2Yy4emien5Tsw2KR54FpFGKMP
sBLbIw4q+WHMeeH0cakimtFhLNZ4YchxeQT6x+58uVCRyOhoFqSbPOyY/Cpm
hIY+dlakMzqRrVwVl9TYlILS3gFCjU8eo5H15UFrHS0Q5xzcqExdUcjoF8x6
8dfqZycy8eEez5Jrb0sZnct25dqz8y0vsWj1FtuAXZWMzmdiiqxUSysPZY4q
r7/gM6ML2X21Q07e1HcoK/C8N2lNHaP/Yxk+l8xW1Rfg0MG+8Uq3BkaXsVbF
NMPbWwvRrmTr6xmnmxhdwbQ7EvqZWf+LGZ2B8wsimxldySbyDfeXJhajN2Zn
pwe3Mvojyzk8PjfLpgwvuN8wNd6gYfRnNii8riP+azmOWVnR1uPZwegaVqcp
K30/Vo3lzQtzYW4Xo+vY1drHrwzCKrGtTD7WZHk3o78wA/MbDVVVVXg2Ye8m
FxfO6AYWujnVK9bqE44w1HXeHSkBupG1QUKV98HP+NA/MCEsRgvoJrZjXGaK
ybNqLLQ+Iyw+rQ30N1aWmHnirWUtDjuUP3zdBR2gm1mXT0HkiL11OHVR2fiY
SCnQLWzkDKHH63E9lvsrp6tCewHdyhwvW266K37FVPtV+s9P9Qa6je0yXz+k
Ym0Dyle8KLqpFIDWsFH1y/sWOjfiTLXkVMYOXaDb2QDDRt3MzkaMMvHWV+zu
A3QHk2Jk0tCoJgyJ3nxkgo8e0J1sy/jHRX3mfcPY3PNZYf59ge5iCXPdYtPb
vmGg35lG84CfgP7OWutM+30614yNG4f/vMpNH+hulrrUUSdiVguGd9dKS70M
gO5hB+coY1I+tWB6vWODwWpDoDmzLHH6cEXZikXWdurJVv2AlsDkSYcj5OPa
0HeEu+2Za/2AlsBai7wOrfw2fL5izb4ZFjKgtaD1lUrtH6RBu5W18UZxMqC1
4LzUdccSq3YMODS7cJpZf6C1YUBp6mXtzHYM89Lt1DrTH2ht6LU/aJn99g7M
NN/Ia40GAK0DknjXJHX/TnzaE6JjEzYAaB0IuJik6p/Rif8kO9SqZEZAS+HJ
yKO6Mr8uzB3slRV62ghoKcicAkYFG3xH1YPlcRV6xkD3guLRf+fvSfuOnkOK
XdeojIHuBXeimVWVazdKH9iajRRMgO4N65Imysx7ujFEpybn7AEToHtDoDIu
qPjPHhxsZb/RWiICLcDtavNIg/kcg/1WtOjtEYEW4Ogl5YbSBRwVEz2yFftE
oAXwWPLFOnExx9fd26Nm7heBFmBgWtodZxeOxirVrL1BItACHD+5JivUjePN
hMyImmMi0AJ4T7zQpLeHY271uAnZF0WgBRhy2GiOcJ2jqbvhTmWaCLQAPXa/
6xfe5JhuY+4Uly4CLUDRl8p31xM4un+zsXjyVARagHCX5HWz73K8FTQ7qyVT
BFoAbrPkV2UaRxa738TjjQi0AMVvT0br5HP0LKm7P7NUBFqAhyEa9/z3HPWu
dRx3LReBFiBiyvoRVz5wTPIV1u9Vi0ALMO/amJSZpRzbu4YI9z6JQAvwaPeb
l0E1HENNV7tYNohAC3Bu9ISTi+s5jlVvGjmtSQRagO3qqGWWDRzfx//GVzaL
QAswfL5v2dMWjhb2p26Ea0SgBZBqFVwN13B8JonZd6tDBFqA8tQpPhs6OXpn
31qY3SUCLUCazxXbsd0c9cMfDa3qFoEW4I9BfVs553jXJVvDuQi0AP8D/6yN
VA==
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], Line3DBox[CompressedData["
1:eJwlxXlUjWkYAPBbXb5kKpfqm1uKqIssOcZStvchR0R2soY2SZLGWAcVN1s3
IQalxd5EocIhPSZJSA1l0kzrLbRRabkt6h3nPH/8zs/SbdsST22JROL8g84P
7fP8Li3aFjid9p/u5Fn99mmNZ3qIx7DheQpXRi9gUgdT/zL5LMz5WuWjUvgx
2pX9EnM+Klm+DBuTHUJ9FQcY7cfmvSm8d0nugcEmzQPXKsIYfYC5eGienJbv
wJwXTh+XKqIZHcZKbI84qOSH0T9258uFikRGR7NY44Uhx+URmBEa+thZkc7o
RBakmzzsmPwqSnsHCDU+eYxGtnJVXFJjUwrOObhRmbqikNEvWF8etNbRAvHh
Hs+Sa29LGZ3LrBd/rX52IhOLVm+xDdhVyeh8tivXnp1veYkyR5XXX/CZ0YVM
TJGVamnloazA896kNXWM/o/dVzvk5E19h0MH+8Yr3RoYXcYyfC6ZraovQLuS
ra9nnG5idAVrVUwzvL21EDM6A+cXRDYzupJpdyT0M7P+F70xOzs9uJXRH9lE
vuH+0sRivOB+w9R4g4bRn1nO4fG5WTZlOGZlRVuPZweja9ig8LqO+K/lWN68
MBfmdjG6jtVpykrfj1VjW5l8rMnybkZ/YVdrH78yCKvEswl7N7m4cEY3MAPz
Gw1VVVU4wlDXeXekBOhGFro51SvW6hM+9A9MCIvRArqJtUFClffBz1hofUZY
fFob6G9sx7jMFJNn1TjsUP7wdRd0gG5mZYmZJ95a1uLURWXjYyKlQLewLp+C
yBF767DcXzldFdoL6FY2cobQ4/W4HlPtV+k/P9Ub6DbmeNly013xK8pXvCi6
qRSA1rBd5uuHVKxtwJlqyamMHbpAt7NR9cv7Fjo3YpSJt75idx+gO9gAw0bd
zM5GDInefGSCjx7QnUyKkUlDo5owNvd8Vph/X6C72Jbxj4v6zPuGgX5nGs0D
fgL6O0uY6xab3vYNGzcO/3mVmz7Q3ay1zrTfp3PNGN5dKy31MgC6h6UuddSJ
mNWC6fWODQarDYHm7OAcZUzKpxYssrZTT7bqB7QELEucPlxRtqLvCHfbM9f6
AS2ByZMOR8jHteHzFWv2zbCQAa0Fay3yOrTy29BuZW28UZwMaC1ofaVS+wdp
MODQ7MJpZv2B1obzUtcdS6zaMcxLt1PrTH+gtWFAaepl7cx2zDTfyGuNBgCt
A732By2z396BT3tCdGzCBgCtA5J41yR1/078J9mhViUzAloKAReTVP0zOjF3
sFdW6GkjoKXwZORRXZlfF6oeLI+r0DMGuhfInAJGBRt8R88hxa5rVMZA94Li
0X/n70n7jtIHtmYjBROge8OdaGZV5dqNITo1OWcPmADdG9YlTZSZ93TjYCv7
jdYSEWgBApVxQcV/9mCw34oWvT0i0ALcrjaPNJjPUTHRI1uxTwRagKOXlBtK
F3B83b09auZ+EWgBPJZ8sU5czNFYpZq1N0gEWoCBaWl3nF043kzIjKg5JgIt
wPGTa7JC3TjmVo+bkH1RBFoA74kXmvT2cDR1N9ypTBOBFmDIYaM5wnWO6Tbm
TnHpItAC9Nj9rl94k6P7NxuLJ09FoAUo+lL57noCx1tBs7NaMkWgBQh3SV43
+y5HFrvfxOONCLQA3GbJr8o0jp4ldfdnlopAC1D89mS0Tj5HvWsdx13LRaAF
eBiicc9/zzHJV1i/Vy0CLUDElPUjrnzg2N41RLj3SQRagHnXxqTMLOUYarra
xbJBBFqAR7vfvAyq4ThWvWnktCYRaAHOjZ5wcnE9x/fxv/GVzSLQAmxXRy2z
bOBoYX/qRrhGBFqA4fN9y562cHwmidl3q0MEWgCpVsHVcA1H7+xbC7O7RKAF
KE+d4rOhk6N++KOhVd0i0AKk+VyxHdvN8a5LtoZzEWgB/hjUt5Vzjv8Dp0GN
VA==
      "]]}}, GraphicsComplex3DBox[CompressedData["
1:eJx1mXk81ekXx+917WS59n25djGWKdVU92toT7smS02SIpoI00h0RRFSiaJR
[encoded data, 5063 characters]
DnFvvRBk3yoSI/8PheTGTg==
    "], {
     {Opacity[0.5], EdgeForm[None], Specularity[
       GrayLevel[1], 30], GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJwtlWlskEUQhvdrgba0hB4WsBUKiUITalVoEaEcphcKraUBD2hRCxrlPgxy
Hz+Q+7QtEKKGgP8IgRCOlpCgVvCIidGosYAJKibGEJFw/ZPnzb4/nszsfrOz
s7Mz+w1pWdS4MCWEcBBSoSUJ4QwyD5rRS5BlMBcWwzvwCTwPo+FFbCbDS1AB
W5hbbz8nQvS1CMYzXogcl0R9bBJtBoVodxteYHwHWQlLoQKq4SM4ArV8r4Fq
r1WM/byXpHwtgPkwD+ptPymJcQYoUqyo2dAG38C38DW85XgGWi9GXrCuuSJ4
3PlQXq7Dz/ADPIlNqfIFQ+EJKIPZzmcnnIMOOAvvwwpYDhOVa2gK0T7H+f9Q
OYEd8JP3+hV+gW74EVbBe7ASGmAjjIDXYCZsch5ehTqYoDvTPYSYh3qoky3f
+iN7Wy/1GT+Fozo3c8eRx2C4Y8x1nJmQDxmuk3ed/37Y5eqe4DfGl+ER5RWG
uQYyvaf2LlT+fUf59i+fOYxvIP9wbCW2V/4LFHcS5+VHcb+M/gpMT2Jux8NY
eBZGQbltpsEMqLJ9JYzw3em8Y7B7znX+AWyF1dDIt6nQAE/r7uEZmOT7qtVY
3xzDEt/RMtdzDVTZz1NJzGdTEu+h1Htt9t2p9lR3xdYvuM7VmwOch9fRH0Pu
h22wAdaE6FM9nVhXflK9tsz1PNL25baRrXpjiutkF/wfopN/EdcgDf0S8ivo
g57l+LNdU5naCzJgFuwLsddUz61w3jH0d43N8to0n0Vv0WDfu+onG96Adub2
hvhW/Ae34C/rf8IDuAf37acwxLxobV/Far0gxPGb6Hts0+Sa7+15zT1qXbLA
+vYQ16Sg94QeSZzXd327C9/Dd/apfNQ5Hp2p0Lru6qDPnh5ijtS/6scvYY7n
e1qX7GW90zmUft451Tug9+QivJ3Es2aF2O+q/wMhvi1aq97Vm3syxLfpd7gK
V+yzl230Rq2Fz503+Wy3nzyvVQ2ory/ZZq9zpXPpPtPtU/46HVuW71fjDp/l
UIi9Ntlr21yH6qndsNO+Wp2rZvfFAPv8DNllXb41Pgwfh9hrenvVd7W26XI9
/AM34W/H2ep9TsOpEN/qdSG+q1+E+L/odo09BKsIrnQ=
         "]], 
        Polygon3DBox[CompressedData["
1:eJxNlltsVUUUhme3tILWYiJUSks9baE3uVpoEWukXGJMIUJboK2AQPGWcBOi
ieFioiYqKqiJgAoCKldBAfUNRFEejIoSNUIEa1SsF9QHxUAB9fsz/4k+fNlz
ZtbMXutfa9bZxXMWNi7ICCHshm6QC/lQCAXQH0qgGEqhCPKgF/SDa6AGHoIq
yPEZ2pvynNYehgf91O+50O6x9td67l5YDGNhDCyDFbAclsIQ+1Ll8+6CRbAQ
FnhPPTRCs32Ur33gaqjz+XfD9XAPzPA52j/dvzW/BAZAmWOvhEzrJM0S+1Ji
HeTTm/AW7IXXYZ/n3oaDsMtaH4D98DJsgBegwXNaq4BymOxYtsJ2mACrva/B
89tgh9fXw4vwEuyEjfC8bbZ6bTNsss3j8CSsgqfgaXjC833t1wafq3Oeg7XW
Sfo8C89435oQ60bnrLPd7bASHoM7oA3RmqEJWpP47tWOa5XtVjrvS61BhXMw
wHEorlcdc6PzvdHxlTonQ5wv5WYQDHWONB4ME2EY3ACjQqy3Ouf1ErjC+VWu
syHLa5dDzxBrPMdj6ZTvOdl19xkZ1lhavwJbHIvqcLhjKvO4v33f6T1bHOMb
IdaTamifc7DedtKi2rEplmtDrDnVl+rsNb97s8/RftXlHtvIttkaqs6a4FF4
BO6DB2AqtMKd0OI4Nvks1fPNiHQTjIc/FQvPMVAP1TDa67K7ESphJCSQDbPZ
MwdmwW32Qb4MYq0IJsBEOM5cH79jvOd/lM48u0NPuAzOMXdReWLcwz7IlwYY
6D3aq7M6GffjWQgFkAX3qyZ41iUx/nrHM9r+HwuxdifBz4xPu0ZVm7/Apcyf
D9GPHrabnEQ72euscTDWZ2ptv8+QTR6/+0I+9Lbf9X73LdaiBb4IURM9W3yX
Pg/x2WQ/9Vtaj4JMa95pHa+CK/8Xg3z/Cb6BI/ARdPj5CRz17w6Pv4WvQtQ9
N4lxS/+PmfvUe7T3cIh9QffmfXjPz3fhUIh+KN48+6M+v8J2h+yXtNVd/tV5
VX7/gJwknpMKsS+9AydgCkyDk3AKfoDv4Tvoxp5/eP4NXdZIWn0Jn3mf6kl1
ddJxzHZtKu6ZPv+ENZBWH4YYt+LNts4XQqyDo9470/a5rvvzrpWvrXmH9ZR2
7X6n3q07l3KNT3McquFOx1PKfIlzoFxUwXW+Y5XOu/Jfm8RaV89UXyljPMJo
PNx3pcvaXHQNS3f10rPWX2fPC/HMkc6F7H9zTmqS+B+u/+Fma3DBWp+zrfT/
3XvUb3TXipPYY+aHuL/GPg+2j9W+v/qPUwwjvKa7K1u9S71DvUT/OfqvmQVt
IfawKc6BvjFqbZPuO7K91bZnHa++Lf5yLubaNl0H6XPTtTDVeVJ+au1PofVW
H1M/k9/yV98B6uXqverP6sPqx/quOmA/Wn1mm7XLSGLddrlOVa+6t7qv+u5Z
5Lwo9+rJesdQxsOc+3nWVb6VQ4VrJl07la7JXK9Vea7EdZeyrerrTIjfcO2u
1ZRzV26bxDWX4TugnBb7jJbw3zfgGeurGtD9POX6+SDE+6R7le9zMq1llvvi
Ed8Z9ccCa63cF7lnak33qhfjfwEtCytk
         "]], Polygon3DBox[CompressedData["
1:eJwt00dPlUEUgOH5EEkQFqBcFHYQigFpVwFpglx6pCN9RYJEFDBWdKMuLCga
lSJSN7iC8AsIgkosS1AS3BEQWFHEH8B7Mmfx5Nyp38ycc8Nauqo6vYwxZ3EU
79CPPvTiLQ7wF4GOMQHwxy7tPexjEzs4Rf8qcQVrOEl7i3iCeNyx69dpv8Fr
lCAbQ2jAEzzDc7ThvY5dQA6akYpkPMILtKIJV9CDp7pPqGPPsIQfCKGdRhzB
MCZwXs//D/+xjQ1j7xiEb/z+bux9x4j5yMM4RvV9ilGEV3ipa+WuwXDpPo1o
QD3KUAQPc9P1DBeRK/ekv4sYQzyNDFSjBgmoQgUMSlDu2BxILlIQi0TNpbzR
NGZRqWtj4UYSLqMOeY59X8lDFjKRIfvoN+XbtTp/iv6PiOB3JKLkrlIX8IE3
fKUOEAQX/KQOjJ3n0v5gqQnEIw7hsifO4DrS2PcGsR3XEE07DJnI0neRs8kZ
5xifMfZuScRSlKECbmPP6dZ75uIcHuv4Ir7iCzz6HrWaL8mR7FOOAQzq/Nt4
gHl8wC104x4+Y0HH5D/wG7+wrHV4V+fK+vt4KDXFdwq0LkpxSfOajWLH1uae
rpd9/uCn1rRHzynrC5GDSfo/GZtjubfk6irtm7iDDn1TydURHNMcSd4OAVQF
Zuk=
         "]], Polygon3DBox[CompressedData["
1:eJwt0D0vA1AUBuDbptU0In6AhNhZmJCKwWdrsncxtR0qEiHSEl0YO/gF4heI
tIqdhpgllN1g9LG1z3CHJ+8Z7jk5505u72xVkyGEUYZ445UvvvnnjxNmmaHB
MXVuuaPNFS1uSCdCGGOCQF+k5KP85J0eHzzQZJ01VlnhMtadOPOaC5YZMasb
ezPqYbKMM80UBfJxhzPvTqlxxAH75NmkwBzz5FjUk+NQvccuVTY45z7e3ok7
P/MU/+qXH14ossQCZSqUGADT/S4i
         "]]}]}, {}, {}, {}, {}},
    VertexNormals->CompressedData["
1:eJwVWHk41F8Xr2ilkMhW0qaEoiyhrl+hxVIqJUukRIslW1JaiJCIQmUJaWeQ
[encoded data, 10919 characters]
uMeDdTlX38Z6lJAGj9oXm9UL4H/Yelri
     "]]},
  AutomaticImageSize->True,
  Axes->True,
  ImageSize->{359.5427128460386, 395.4253847775404},
  Method->{},
  PlotRange->{{-5, 20}, {-5, 20}, {-20, 5}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]},
  ViewPoint->{1.3445122363483928`, -2.534366314379427, 1.7942336054283132`},
  ViewVertical->{0.021873213863788724`, -0.07157188432348838, 
   0.9971955815634433}]], "Output",
 CellChangeTimes->{{3.576925023929056*^9, 3.5769250523505907`*^9}, 
   3.576925111164242*^9, {3.57692521307689*^9, 3.57692522395033*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{740, 821},
WindowMargins->{{12, Automatic}, {Automatic, 24}},
FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 25, \
2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 97, 1, 80, "Section"],
Cell[679, 25, 448, 7, 87, "Text"],
Cell[1130, 34, 2942, 77, 148, "Input"],
Cell[4075, 113, 588, 24, 31, "Text"],
Cell[CellGroupData[{
Cell[4688, 141, 3636, 71, 114, "Input"],
Cell[8327, 214, 1653, 34, 335, "Output"]
}, Open  ]],
Cell[9995, 251, 1320, 37, 63, "Input"],
Cell[11318, 290, 446, 13, 28, "Input"],
Cell[CellGroupData[{
Cell[11789, 307, 389, 12, 28, "Input"],
Cell[12181, 321, 2316, 45, 267, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14534, 371, 584, 16, 28, "Input"],
Cell[15121, 389, 24926, 424, 444, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

