(* 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[     40262,        831]
NotebookOptionsPosition[     39508,        801]
NotebookOutlinePosition[     39861,        817]
CellTagsIndexPosition[     39818,        814]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Graphing - adding axes and point labels", "Section",
 CellChangeTimes->{{3.5443956477557034`*^9, 3.5443956488747673`*^9}, {
  3.6470054833307467`*^9, 3.6470054931115007`*^9}}],

Cell[TextData[{
 "[From Patricia Oakley]\n\nThis is not homework, but illustrations of two ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " functions to help you visualize relationships in 3-dimensional plots.  You \
may copy these functions into your own notebooks and use \
them!\[LineSeparator]\[LineSeparator]",
 StyleBox["myAxis", "Code"],
 " 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.  \[LineSeparator]",
 StyleBox["myPoint", "Code"],
 " 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}, {
  3.647004908807342*^9, 3.647004916736672*^9}, {3.647005055792616*^9, 
  3.647005143974482*^9}, {3.647005502627426*^9, 3.647005518828096*^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", "[", "Large", "]"}], ",", 
     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}, {3.647005188098308*^9, 3.647005223652389*^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", ",", "40", ",", "30"}], "}"}]}]}], "]"}]}]], "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}, {3.647005345620448*^9, 
   3.647005427833434*^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[Large], 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[Large], 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,
  ImageSize->{359.71676535633867`, 282.0788745380861},
  ViewPoint->{100, 40, 30},
  ViewVertical->{-0.14566307912137058`, -0.11048483764330008`, 
   1.5734793420963358`}]], "Output",
 CellChangeTimes->{{3.57692467474612*^9, 3.576924713233317*^9}, 
   3.647004799560679*^9, {3.647005194725133*^9, 3.6470052277103767`*^9}, {
   3.647005284229245*^9, 3.647005309143963*^9}, {3.647005348715927*^9, 
   3.64700542869049*^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[BoxData[
 RowBox[{"p2", " ", ":=", 
  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, {3.6470048233507757`*^9, 3.647004827588705*^9}}],

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[{{{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
     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==
      "]]}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
     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:eJx1mXs01WkXx4/juOR+ObnHOZTcSemC/H6VdJuQabp4NaOUblISqSTJbYZM
[encoded data, 4941 characters]
0gVydOP9O7UZQYp0wSRrn5+WO9AhjfIV7oG91Kqc7tTZVUrMfwGdnnBC
    "], {
     {RGBColor[0.880722, 0.611041, 0.142051], Opacity[0.5], EdgeForm[None], 
      Specularity[
       GrayLevel[1], 30], 
      StyleBox[GraphicsGroup3DBox[{Polygon3DBox[CompressedData["
1:eJwtlVWIlkEUhue31sR1bdcE10Bduxtj1bWxu7EbOy/MtVtERdQ7EUVcdUWw
E0EUFRNMMDAw7/R5mffiYc4/c74zJ+evMmZG3+m5Qgj7IDcchPbQDFolQljL
uhw6wX44DN3Yz4Regt/JsBMmw0yYCNNgKkyBGdAG3emsrRNRbgljIJu94tAB
ZutOyGC/M3SCnpa7WF+6pUKUK7KesKw127LOK9rPAJWgHeJwGAbboStsgNtw
B27BePQqsFayLBsVLF+wzVfwCO57X7o1oCSkQAH4Lvuc/bCOzvX9WORijnc+
LIB5UBUaQW3rKI4cOAvn4Aw89L1P4DE8hQfwET7BB6jGt2nQCAbzeyisCjGH
g6AHtFVeVIcQa9cTesBxOAa10BkKpZELhijLr9KWtZduOd0+H4UjisPxpTjG
Qs6LclJH+rKl+kCKapmIOgVt/yXcgBKyA++Q30CqauE6qscmua96w0pooBpw
Vt19pRqVUwwwLBHjk68DkPvBkESUB0J/mMXZXJgDHb3fARo4n4prNWfrYDF0
cf9kQAtoHuK8qMfaQMsQ56Wz7EF9vq/nu/pCH+itPeVF5yHaX+N6NYUm0DhE
/bqJWBf17Q44D4vs80J4Dc/hGYxGL4t1S4g5VJ6TYSTsZa+ydcqzloVcyHkh
j3OV7npIR+flQtzv5T6RnOzeGZ6IfasZGIecL8T6S0ejJ73u7rdN3tcbo7OG
sMIx6i7dk2Ud3S+99dZZ4rvKuE9+wj24628Va3nrqB/lk+ZaM/I7xNh3hxj/
3xDn5TOMYn+rY5RchHVXiDOiOu6BfyE6/MV2dM9uy8plqr+VjaKWtRaxLHu6
Q2/CN/gK7y2/tc/KXxnbTHUsf+CX/S+knEABGAHbQnxvX0ASv6+zTrD/hV0L
1SHH8nn3jXpGb85F619ivQo35S+/CyeivnTzh/j+qIczbCfHvSdZ53lDfK80
69mWc9wDmk29LddsX3MtP/XuLYXLtiMb6hu93ydtZ1mIc33Ffiqmyo7nnH1Q
Hna6xzSPm2Gj95Psf37HrXylQU3XfYT91/5pOBXiG6v/QM1ypnVkO8k+6P5L
rpd6UH12CA6EOOPSueq6/wfAi7Jw
          "]], Polygon3DBox[CompressedData["
1:eJxNlllsVVUUhvdu4VKhLSZigbYXe2+xQJUKFkutJVLQGFKI0gLS4kQV1EQB
NZgYFZNC4gxq4gwKKkVxQKu+iTg+GGulUSPEiTihJvjgECNQ8fuz/0Yfvpxz
97CGf629z811rW5bVRBCeBaGwUVwMVwHN8DJUAPVMMXjmr8KVsEGWA9XwOXQ
DNfD1XAW1Hpe67r93gAzvWcOtEAbLIIJUAZjIAulMB4qoQJO8f71tl3sNZqr
grX2P9e2FecaWO14s7Y9Dk6CiZCHnHOcBJOds3IvtC7SKMJoKHdM8vsavA6v
wC7o9dibsAdegBdhN7wBT8MWeBxaPbbbPuV7obXocU3mwybva/X4DnjO85vh
CXgKdsKT8JjX9HhuG2z1mrvhXtgI98H9cI/Hyx3XFtuVnUfh4ZD6Qv3wIDzg
fQ+5LrLziNetgLvgTlgJnYi2CNqhIybfm5zXRq/T+lvgZtch7zrXOg/l9bxz
ljYtzrPHa6fCNO/Rex0sgOkwC5pC6odm66y6zwj/9bV8nhZSf5e4xqptses+
Ao53/YdDkcc0p97IeLzAGkvrZ2A71Ds2xXJ6SD3e5jq3w6sh9Y96pteab3bO
O6zLOrjV+tQ49omOfad9brdG6sOXQ+q5XUbv6sOX4A64HW6E2xzrNsfRax1y
1r7beWz1nPp5CXTAlbAUDsI4hBkLJ0AWKqEChkM9tEArnApvh3RO1Vdvwaew
Dz6HT+BjWA6XwgD0w4fwEfTBD/AjfA/fwe9wLnbnw0/eo72XwLewN6R7ablt
fw0H4Bv4wusWw5deLxuypZyU2zye58XkQ74+U97uZcXe4d7e51wWxnSmdZZ/
gQUxrde+/SHpID3OhvP9Pgdme0zv58Bcj822/3meV2yyud+6T4FGiJCBmxif
xbM5pvq2u9em8ntCTHkq3wvhK+u619r0WZcBayF9ZLcQCuBoSOh9GBzmfSTP
Izz/huNi6hnd9X/An35ucA3k55Drpzr+Bv/AMfjVc3+5B7u9vwyb5TAeTrRP
7Rm0z0H/PmR7RxzjYc8PrSmJKb4RUASjYVRMOhR5XHq8C++F1KfvhHTu1nlc
v98P6d4r8bo+azdg7Q64Z4e0vCCmnlAv/Oy+VY8ddP8qrkHHXmxdjzkn5TDW
+Zf5fGVc66POVXmUxlSHUX7PuCYj3ZfqT8Uh/zPcYy0+m2dATUzj9a51E8z0
WS7wWNbnWb2jO2Cpe0hn7TLo9FlSnfVd7wrpzOk7qLtN95DuH9Wx3zqpnupL
9ae+ZXX2fQ3v14YUw7KQ7psl9lHh+0V9rX7W3ab7Tv8b9B1tiOk/gL79umv3
OIZpjE+Pye5ar5N93Yc6K7mY7rQz7b/J50oxKlbdG2N4/yCk+6jfuUyCyZCH
atuQraqYNOp07IutT95nNuNaSTt9J5d5rbTTf6MV/9OwyxpL60ZrVOg+0DdR
936Na1nnp2qp+7Y2ppwa7VcxVfkMqH7Vjr3UZ0J1kM0hW9KowZpnnWutbeVt
p8q5a7/+Z62xjlrX5VxWOodK21Nt2h1LzjrKxr81dx2Z
          "]], 
         Polygon3DBox[CompressedData["
1:eJwt09kzl1EYwPHzFs2EC8nPdqexVKqfn2TfEoVB0iLqqhkZWcfSdlNdhFKG
0Ia64arGX2BCMtRlm7hrIi2iNFNd9n3mPBefOe97lvc8z3POG36mobR+gzEm
Ed44hbO4gTZcxzDG4XGMiUMEynWsHR2oQjWa0Io61MCfuQEIgguBuEV/PvJw
G51YxRp+4jN+4Dv+YQ4f8BVDyEUOHmEQ53ERl3EJV7Cg62T9X/xBN7pQgEzc
xw64dY7MXUEYMX6kfY2XCOU9mXYAD/EYSVjGVs1vCz5pvpLjDM+z8HNsbffh
Km6iUvP8hd/4gkXc05gykIXTuIM+9Bpbtx6sY8nYPWU/2SME8/S9Nzb2YN5j
4cYxnMBxFDN2GP24i2lUyHnipIwjz7G1/4ZoRGpdAmRPbIIXNstZMPegritC
oWPr9kbP4JXWMENrno40pGqs7/BW58u6EATCBV/JA3uwG9sQgV2SA/tkIt+x
dVzT+Fy6PkjOBgc0H4nxELLwlP4xHOG5FDF4wvuIsXc7ElGOzXEjfDQWydet
dX3G86ixa2WPMq1xhe4n9/ECnmMSE/CgyNgzKEEcWvTeyvgDNEvMSNE7th/Z
xsYk/14OshGPa/odOcMXmJI6099Au5N2O1JhUODYmkmd5F87qvfCrTUoQYLk
g1js1TsbTX840pCu36ulP5m2kfacsf+5xObRO1amcf4HiEp2Mg==
          "]], 
         Polygon3DBox[CompressedData["
1:eJwtz79KAkAcB/AzsojIFxCM9lpqqjAa+mc2tbc0VYMiiCH9wZYcG3wC6Qkk
NKu9JOkJMp+iWu0j3fDhe3e/4/jewnHxsDARQkgxRY0Vlrnhmks2EiFkqVqX
KVEg42yJRfLsMz9OswPyrLJGljmznnxl2nqWGXbsuzzyQJMtnnimQ4t2vNPn
nV9++OaDO/bYDf9vbnPPG0M+GfAVO9S55YIrzqlwxCbrnHLGCUld0/GPgZGY
lDnZ4CV27sYOf7DmKKg=
          "]]}],
       Lighting->{{"Ambient", 
          RGBColor[0.30100577, 0.22414668499999998`, 0.090484535]}, {
         "Directional", 
          RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
          ImageScaled[{0, 2, 2}]}, {"Directional", 
          RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
          ImageScaled[{2, 2, 2}]}, {"Directional", 
          RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], 
          ImageScaled[{2, 0, 2}]}}]}, {}, {}, {}, {}},
    VertexNormals->CompressedData["
1:eJwVWHc81d8bT8qWjOzMJqlQ2h0tErKSFBHJjqK+Riqj7EiUkVJGsq5RRjce
[encoded data, 10919 characters]
2ruTQWH6y6FKaw5sazi8sS2EA0rGZ3bZfahDZm+9vRZ4ifA/nd0XIg==
     "]]},
  Axes->True,
  DisplayFunction->Identity,
  FaceGridsStyle->Automatic,
  ImageSize->{387.7351058814798, 388.4405839122934},
  Method->{},
  PlotRange->{{-5, 20}, {-5, 20}, {-20, 5}},
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, Automatic, Automatic},
  ViewPoint->{-3.378831421286965, 0.15040399567437016`, -0.10429220780618785`},
  ViewVertical->{-0.5897430745856076, 0.49264926577686813`, 
   0.6399217193593507}]], "Output",
 CellChangeTimes->{{3.576925023929056*^9, 3.5769250523505907`*^9}, 
   3.576925111164242*^9, {3.57692521307689*^9, 3.57692522395033*^9}, {
   3.647004772896511*^9, 3.647004800158062*^9}, 3.647004832693405*^9, 
   3.647005309574237*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{740, 821},
WindowMargins->{{12, Automatic}, {Automatic, 24}},
FrontEndVersion->"10.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (July 6, \
2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 181, 2, 64, "Section"],
Cell[763, 26, 911, 17, 201, "Text"],
Cell[1677, 45, 2987, 77, 148, "Input"],
Cell[4667, 124, 588, 24, 31, "Text"],
Cell[CellGroupData[{
Cell[5280, 152, 3684, 72, 114, "Input"],
Cell[8967, 226, 1966, 40, 297, "Output"]
}, Open  ]],
Cell[10948, 269, 1320, 37, 63, "Input"],
Cell[12271, 308, 446, 13, 28, "Input"],
Cell[12720, 323, 476, 13, 28, "Input"],
Cell[CellGroupData[{
Cell[13221, 340, 584, 16, 28, "Input"],
Cell[13808, 358, 25672, 439, 403, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
