(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 162064, 3812] NotebookOptionsPosition[ 130350, 3054] NotebookOutlinePosition[ 153105, 3550] CellTagsIndexPosition[ 153062, 3547] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Elements of ", StyleBox["Mathematica", FontSlant->"Italic"], " " }], "Title"], Cell[TextData[{ "M. E. Mauel\n[with help from ", StyleBox["The Methematica Book", FontSlant->"Plain"], ", by S. Wolfram, 3rd Edition and with ", StyleBox["Numerical and Analytical Methods for Scientists and Engineers \ Using Mathematica", FontSlant->"Plain"], ", by Dan Dubin (Wiley, 2003).]" }], "Subsubtitle"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " is a very prowerful (and therefore ", StyleBox["complex", FontSlant->"Italic"], ") programming system. It takes years to master it! ", StyleBox["The Mathematica Book", FontSlant->"Italic"], " is the standard reference is about 1500 pages long and weighs nearly 10 \ pounds when printed. Fortunately, you do not need to know all of the \ complexity (and power) of ", StyleBox["Mathematica", FontSlant->"Italic"], " to use it in your study of computational mathematics and physics." }], "Text"], Cell[TextData[{ "When you work with ", StyleBox["Mathematica", FontSlant->"Italic"], ", you are working with: (1) notebooks, where you input expressions (using \ the \"front end\") and where resulting expressions are displayed, (2) the \ \"kernal\" which ", StyleBox["evaluates", FontSlant->"Italic"], " and ", StyleBox["memorizes", FontSlant->"Italic"], " your expressions and results, and (3) external files, packages, programs, \ and functions, which you can use to extend the capability of ", StyleBox["Mathematica.\n", FontSlant->"Italic"], "When typing in ", StyleBox["Mathematica", FontSlant->"Italic"], ", be sure to save your work periodically!" }], "Text"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " has a good memory\[Ellipsis]" }], "Section"], Cell[TextData[{ "When you start ", StyleBox["Mathematica", FontSlant->"Italic"], ", it begins with a knowing only the standard environment defined by your \ student textbook. Unless instructed to forget, ", StyleBox["Mathematica", FontSlant->"Italic"], " remembers every expression that you enter (using the \"enter key\" or \ \"shift-return\") and every expression which results from evaluating your \ expressions. " }], "Text"], Cell[BoxData[ RowBox[{"5", "^", "5"}]], "Input", CellLabel->"In[1]:="], Cell[BoxData[ RowBox[{"5", "^", "77"}]], "Input", CellLabel->"In[2]:="], Cell[BoxData["5"], "Input", CellLabel->"In[3]:="], Cell[BoxData["ghfjhgfgkh"], "Input", CellLabel->"In[4]:="], Cell[BoxData[ RowBox[{"5", "!"}]], "Input", CellLabel->"In[5]:="], Cell[BoxData[ RowBox[{"5", " ", "+", " ", RowBox[{"5", "^", "5"}]}]], "Input", CellLabel->"In[6]:="], Cell[TextData[{ "Multiplication uses ", StyleBox["either ", FontSlant->"Italic"], "the * symbol or a space\[Ellipsis]" }], "Text"], Cell[BoxData[ RowBox[{"5", " ", "*", " ", "5", " ", "5"}]], "Input", CellLabel->"In[7]:="], Cell[BoxData[ RowBox[{"In", "[", "9", "]"}]], "Input", CellLabel->"In[8]:="], Cell[BoxData[ RowBox[{"Out", "[", "9", "]"}]], "Input", CellLabel->"In[9]:="], Cell[BoxData[ RowBox[{"In", "[", "2", "]"}]], "Input", CellLabel->"In[10]:="], Cell[BoxData[ RowBox[{ RowBox[{"In", "[", "3", "]"}], "/", RowBox[{"Out", "[", "4", "]"}]}]], "Input", CellLabel->"In[11]:="], Cell[BoxData["$HistoryLength"], "Input", CellLabel->"In[12]:="], Cell[CellGroupData[{ Cell["Using Previous Results", "Subsubsection"], Cell[BoxData[ RowBox[{"77", "^", "2"}]], "Input", CellLabel->"In[13]:="], Cell[BoxData[ RowBox[{"%", " ", "+", " ", "1"}]], "Input", CellLabel->"In[14]:="], Cell[BoxData[ RowBox[{"%", " ", "-", " ", "%%"}]], "Input", CellLabel->"In[15]:="] }, Closed]], Cell[CellGroupData[{ Cell["Variables", "Subsubsection"], Cell[TextData[{ "In most cases, the best way to use previous results is to define a ", StyleBox["user-variable. ", FontSlant->"Italic"], "These are differenent from \"built-in\" or system constants\[Ellipsis]" }], "Text"], Cell[BoxData["Pi"], "Input", CellLabel->"In[16]:="], Cell[BoxData[ RowBox[{"?", "Pi"}]], "Input", CellLabel->"In[17]:="], Cell["User-defined variables\[Ellipsis]", "Text"], Cell[BoxData[ RowBox[{"halfPi", " ", "=", " ", RowBox[{"Pi", "/", "2"}]}]], "Input", CellLabel->"In[18]:="], Cell[TextData[{ "Remember, ", StyleBox["Mathematica", FontSlant->"Italic"], " is case sensitive and a ", StyleBox["space", FontSlant->"Italic"], " \" \" means multiplication!" }], "Text"], Cell[BoxData[ RowBox[{"half", " ", "Pi"}]], "Input", CellLabel->"In[19]:="], Cell[BoxData[ RowBox[{"3", " ", "halfPi"}]], "Input", CellLabel->"In[20]:="], Cell[BoxData[ RowBox[{"?", "halfPi"}]], "Input", CellLabel->"In[21]:="], Cell[BoxData[ RowBox[{"Remove", "[", "halfPi", "]"}]], "Input", CellLabel->"In[22]:="], Cell[BoxData[ RowBox[{"?", "halfPi"}]], "Input", CellLabel->"In[23]:="], Cell[BoxData[ RowBox[{"3", " ", "halfPi"}]], "Input", CellLabel->"In[24]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " can help\[Ellipsis]" }], "Section"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " has several forms of built-in help." }], "Text"], Cell[BoxData[ RowBox[{"?", "Factor"}]], "Input", CellLabel->"In[25]:="], Cell[BoxData[ RowBox[{"?", "Factor*"}]], "Input", CellLabel->"In[26]:="], Cell[BoxData[ RowBox[{"?", "*Factor*"}]], "Input", CellLabel->"In[27]:="], Cell[BoxData[ RowBox[{"?", "*Plot*"}]], "Input", CellLabel->"In[28]:="], Cell[BoxData[ RowBox[{"??", "Plot"}]], "Input", CellLabel->"In[29]:="], Cell["\<\ Of course, the Help Browser is fantastic\[Ellipsis]!\ \>", "Text"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " is a good calculator\[Ellipsis]" }], "Section"], Cell[TextData[{ StyleBox["Mathematica ", FontSlant->"Italic"], "deals with integers, rational numbers, irrational numbers, real (or \ approximate) numbers, symbolic constants, and complex numbers." }], "Text"], Cell[CellGroupData[{ Cell["Integers are exact numbers", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"1", " ", "+", " ", "5"}], ")"}], "^", "4"}]], "Input", CellLabel->"In[30]:="], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"1", " ", "+", " ", "5"}], ")"}], "^", "100"}]], "Input", CellLabel->"In[31]:="], Cell[BoxData[ RowBox[{"Short", "[", RowBox[{"100000", "!"}], "]"}]], "Input", CellLabel->"In[32]:="], Cell[BoxData[ RowBox[{ RowBox[{"100000", "!"}], " ", "//", " ", "Short"}]], "Input", CellLabel->"In[33]:="], Cell[BoxData[ RowBox[{ RowBox[{"Length", "[", RowBox[{"IntegerDigits", "[", RowBox[{"100000", "!"}], "]"}], "]"}], " ", StyleBox[ RowBox[{"(*", " ", RowBox[{"The", " ", "above", " ", "expression", " ", "is", " ", RowBox[{"1", "/", "2"}], " ", "million", " ", RowBox[{"digits", "!"}]}], " ", StyleBox[ RowBox[{"*", ")"}]]}], FontColor->RGBColor[1, 0, 1]]}]], "Input", CellChangeTimes->{{3.44156162331174*^9, 3.441561668609392*^9}}, CellLabel->"In[208]:="], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"100000", "!"}], ";"}], " ", "//", " ", "Timing"}]], "Input", CellLabel->"In[35]:="], Cell[BoxData[ RowBox[{"Monitor", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"10", "^", "n"}], ",", " ", RowBox[{"Length", "[", RowBox[{"IntegerDigits", "[", RowBox[{ RowBox[{"(", RowBox[{"10", "^", "n"}], ")"}], "!"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "6"}], "}"}]}], "]"}], ",", RowBox[{"ProgressIndicator", "[", RowBox[{"n", ",", RowBox[{"{", RowBox[{"1", ",", "6"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.4415617209081593`*^9, 3.441561749874755*^9}, { 3.441561818718534*^9, 3.441561901293627*^9}}, CellLabel->"In[213]:="], Cell[BoxData[ RowBox[{"Remove", "[", RowBox[{"x", ",", "q"}], "]"}]], "Input", CellLabel->"In[214]:="], Cell[BoxData[{ RowBox[{ RowBox[{"q", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], " ", "+", " ", RowBox[{"2", " ", "x"}], " ", "-", "4"}], " ", "==", " ", "0"}]}], ";"}], "\n", RowBox[{"Solve", "[", RowBox[{"q", ",", " ", "x"}], "]"}]}], "Input", CellChangeTimes->{3.441561517552256*^9}, CellLabel->"In[215]:="] }, Closed]], Cell[CellGroupData[{ Cell["Rationals are ratios of integers (and they are exact)", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"2", "/", "4"}], " ", "+", " ", RowBox[{"24", "/", "144"}]}]], "Input", CellLabel->"In[39]:="], Cell[BoxData[ RowBox[{"2", " ", "+", " ", RowBox[{"12", "/", "5"}]}]], "Input", CellLabel->"In[40]:="], Cell[BoxData[ RowBox[{"?", "FullForm"}]], "Input", CellLabel->"In[41]:="], Cell[BoxData[ RowBox[{"FullForm", "[", "%%", "]"}]], "Input", CellLabel->"In[42]:="], Cell[BoxData[ RowBox[{"FullForm", "[", "22.", "]"}]], "Input", CellLabel->"In[43]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Irrationals are represented as simply as possible (without losing precision)\ \[Ellipsis]\ \>", "Subsection"], Cell[BoxData[ RowBox[{"Sqrt", "[", "2", "]"}]], "Input", CellLabel->"In[44]:="], Cell[BoxData[ RowBox[{"Sqrt", "[", "8", "]"}]], "Input", CellLabel->"In[45]:="], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"2", "/", "3"}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}]], "Input", CellLabel->"In[46]:="] }, Closed]], Cell[CellGroupData[{ Cell["Real numbers are approximate\[Ellipsis]", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], " ", "//", " ", "N"}]], "Input", CellLabel->"In[47]:="], Cell[BoxData[ RowBox[{"?", "N"}]], "Input", CellLabel->"In[48]:="], Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], ",", "100"}], "]"}]], "Input", CellLabel->"In[49]:="], Cell[TextData[{ "When you use a decimal point, ", StyleBox["Mathematica", FontSlant->"Italic"], " uses approximate numbers." }], "Text"], Cell[BoxData[ RowBox[{"2.0", " ", "/", RowBox[{"Sqrt", "[", "2", "]"}]}]], "Input", CellLabel->"In[50]:="], Cell[BoxData[ RowBox[{"Precision", "[", "%", "]"}]], "Input", CellLabel->"In[51]:="], Cell[BoxData[ RowBox[{"Precision", "[", RowBox[{"2", "/", RowBox[{"Sqrt", "[", "2", "]"}]}], "]"}]], "Input", CellLabel->"In[52]:="], Cell[BoxData[ RowBox[{"Precision", "[", RowBox[{"2.0", "/", RowBox[{"Sqrt", "[", "2", "]"}]}], "]"}]], "Input", CellLabel->"In[53]:="], Cell[BoxData["$MachinePrecision"], "Input", CellLabel->"In[54]:="] }, Closed]], Cell[CellGroupData[{ Cell["Complex Numbers", "Subsection"], Cell[BoxData[ RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"3", " ", "+", " ", RowBox[{"4", " ", "\[ImaginaryI]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", "-", " ", RowBox[{"5", " ", "\[ImaginaryI]"}]}], ")"}]}]}]], "Input", CellLabel->"In[55]:="], Cell[BoxData[ RowBox[{"z", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"3", " ", "+", " ", RowBox[{"4", " ", "I"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", "-", " ", RowBox[{"5", " ", "I"}]}], ")"}]}]}]], "Input", CellLabel->"In[56]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ",", " ", RowBox[{"Im", "[", "z", "]"}]}], "}"}]], "Input", CellLabel->"In[57]:="], Cell[BoxData[ RowBox[{"Abs", "[", "z", "]"}]], "Input", CellLabel->"In[58]:="], Cell[BoxData[ RowBox[{"Sqrt", "[", RowBox[{"-", "1"}], "]"}]], "Input", CellLabel->"In[59]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " has notational conventions\[Ellipsis]" }], "Section"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " has many, many notational conventions that will take getting use to. (It \ will not be easy at first.) \nA few simple rules to help. (I strongly \ recommend ", StyleBox["everyone", FontSlant->"Italic"], " follow these notational conventions.)" }], "Text"], Cell[CellGroupData[{ Cell["Standard Symbols", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Information", "[", RowBox[{"#", ",", " ", RowBox[{"LongForm", " ", "\[Rule]", " ", "False"}]}], "]"}], "&"}], " ", "/@", " ", RowBox[{"{", RowBox[{ "\"\<+\>\"", ",", " ", "\"\\"", ",", " ", "\"\<<\>\"", ",", "\"\<=\>\"", ",", " ", "\"\<:=\>\"", ",", " ", "\"\\"", ",", " ", "\"\<==\>\"", ",", " ", "\"\\"", ",", " ", "\"\<&\>\"", ",", " ", "\"\<#\>\""}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.441562341710552*^9, 3.4415623888565607`*^9}, { 3.441562429647005*^9, 3.441562444547367*^9}, {3.441562599598468*^9, 3.441562681535388*^9}, {3.441562732476582*^9, 3.4415627517300673`*^9}, { 3.4415627984193487`*^9, 3.441562859336055*^9}}, CellLabel->"In[243]:="], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"3", " ", "+", " ", "4"}], " ", ")"}], " ", RowBox[{"10", " ", "/", " ", "2"}]}]], "Input", CellLabel->"In[61]:="], Cell[BoxData[ RowBox[{"5", " ", "<", " ", "6"}]], "Input", CellLabel->"In[62]:="], Cell[BoxData[ RowBox[{"5", " ", "\[Equal]", " ", "6"}]], "Input", CellLabel->"In[63]:="] }, Closed]], Cell[CellGroupData[{ Cell["Square Brackets for Function Arguments", "Subsection"], Cell[BoxData[ RowBox[{"?", "Random"}]], "Input", CellLabel->"In[64]:="], Cell[BoxData[ RowBox[{"RandomReal", "[", "]"}]], "Input", CellLabel->"In[65]:="], Cell[BoxData[ RowBox[{"RandomInteger", "[", RowBox[{"{", RowBox[{"1", ",", "100"}], "}"}], "]"}]], "Input", CellLabel->"In[66]:="] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Built-in ", StyleBox["Mathematica", FontSlant->"Italic"], " names begin with CAPITAL LETTERS\[Ellipsis]" }], "Subsection"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " tries to use complete names for its built-in functions, and if the \ functions require two or more names, these names are contatenated without \ spaces." }], "Text"], Cell[BoxData[ RowBox[{"?", "Divide"}]], "Input", CellLabel->"In[67]:="], Cell[BoxData[ RowBox[{"?", "DivideBy"}]], "Input", CellLabel->"In[68]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"x", " ", "=", " ", RowBox[{"2", "/", "3"}]}], ",", " ", RowBox[{"x", " ", "=", " ", RowBox[{"Divide", "[", RowBox[{"2", ",", "3"}], "]"}]}], ",", " ", RowBox[{"x", " ", "=", " ", RowBox[{"2", " ", "~", " ", "Divide", " ", "~", " ", "3"}]}], ",", " ", RowBox[{"3", " ", "//", " ", RowBox[{ RowBox[{"Divide", "[", RowBox[{"2", ",", "#"}], "]"}], "&"}]}]}], "}"}]], "Input", CellLabel->"In[69]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"x", " ", "/=", " ", "2"}], ",", " ", RowBox[{"x", " ", "=", " ", RowBox[{"DivideBy", "[", RowBox[{"x", ",", "2"}], "]"}]}]}], "}"}]], "Input", CellLabel->"In[70]:="] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Curley Braces for Lists (and vectors, arrays, and matricies)\[Ellipsis]\ \>", "Subsection"], Cell["\<\ Lists (and vectors and matricies) are used frequenctly in computational \ mathematics and physics in order to manipulate more than one number at a \ time. When typing a list, we use curly brackets, {\[Ellipsis]}.\ \>", "Text"], Cell[BoxData[ RowBox[{"{", RowBox[{"E", ",", " ", "I", ",", " ", RowBox[{"Sqrt", "[", RowBox[{"2", " ", "-", " ", RowBox[{"x", "^", "2"}]}], "]"}]}], "}"}]], "Input", CellLabel->"In[71]:="], Cell[BoxData[ RowBox[{"a", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", " ", "4"}], "}"}]}], "}"}]}]], "Input", CellLabel->"In[72]:="], Cell[BoxData[ RowBox[{"a", " ", "//", " ", "MatrixForm"}]], "Input", CellLabel->"In[73]:="], Cell[BoxData[ RowBox[{"MatrixForm", "[", "a", "]"}]], "Input", CellLabel->"In[74]:="], Cell[BoxData[ RowBox[{"b", " ", "=", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{"i", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "10"}], "}"}]}], "]"}], "/", "4"}]}]], "Input", CellLabel->"In[75]:="], Cell[BoxData[ RowBox[{"Length", "[", "b", "]"}]], "Input", CellLabel->"In[76]:="], Cell[BoxData[ RowBox[{"Length", "[", "a", "]"}]], "Input", CellLabel->"In[77]:="], Cell[BoxData[ RowBox[{"Dimensions", "[", "a", "]"}]], "Input", CellLabel->"In[78]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"VectorQ", "[", "b", "]"}], ",", " ", RowBox[{"MatrixQ", "[", "b", "]"}]}], "}"}]], "Input", CellLabel->"In[79]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"VectorQ", "[", "a", "]"}], ",", " ", RowBox[{"MatrixQ", "[", "a", "]"}]}], "}"}]], "Input", CellLabel->"In[80]:="] }, Closed]], Cell[CellGroupData[{ Cell["Parentheses Group Expressions", "Subsection"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"3", " ", "+", " ", RowBox[{"4", " ", RowBox[{"10", " ", "/", " ", "2"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", " ", "+", " ", "4"}], ")"}], " ", RowBox[{"10", " ", "/", " ", "2"}]}], ",", RowBox[{"3", " ", "+", " ", RowBox[{"(", RowBox[{"4", " ", RowBox[{"10", " ", "/", " ", "2"}]}], ")"}]}]}], "}"}]], "Input", CellLabel->"In[81]:="] }, Closed]], Cell[CellGroupData[{ Cell["Special Symbols\[Ellipsis]", "Subsection"], Cell[BoxData[ RowBox[{"{", RowBox[{"E", ",", " ", "Pi", ",", " ", "I", ",", " ", RowBox[{"180", " ", "Degree"}]}], "}"}]], "Input", CellLabel->"In[82]:="], Cell["Arbitrary precision\[Ellipsis]", "Text"], Cell[BoxData[ RowBox[{"?", "N"}]], "Input", CellLabel->"In[83]:="], Cell[BoxData[ RowBox[{"N", "[", "%%", "]"}]], "Input", CellLabel->"In[84]:="], Cell[BoxData[ RowBox[{"N", "[", RowBox[{"%%%", ",", "30"}], "]"}]], "Input", CellLabel->"In[85]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ "\[ExponentialE]", ",", " ", "\[Pi]", ",", " ", "\[ImaginaryI]", ",", " ", RowBox[{"180", " ", "\[Degree]"}]}], "}"}]], "Input", CellLabel->"In[86]:="] }, Closed]], Cell[CellGroupData[{ Cell["Typing Special Symbols", "Subsection"], Cell[TextData[{ "Typing the \"escape\" key causes ", StyleBox["Mathematica", FontSlant->"Italic"], " to begin to accept characters that interpreted in special ways. For \ example, " }], "Text"], Cell[BoxData["\[Pi]"], "Input", CellLabel->"In[87]:="], Cell[BoxData[ RowBox[{"{", RowBox[{"\[ImaginaryI]", ",", " ", RowBox[{"Sqrt", "[", RowBox[{"-", "1"}], "]"}], ",", " ", "\[Infinity]", ",", " ", RowBox[{"1", "/", "0"}], ",", " ", SuperscriptBox["40", "1.5"], ",", " ", FractionBox["3", "4"]}], "}"}]], "Input", CellLabel->"In[88]:="], Cell[BoxData[ SuperscriptBox["10", "56"]], "Input", CellLabel->"In[89]:="], Cell["(You may also use the floating palettes.)", "Text"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Double Square Brackets for Part (index selection)\[Ellipsis]\ \>", "Subsection"], Cell[BoxData[ RowBox[{"a", " ", "//", " ", "MatrixForm"}]], "Input", CellLabel->"In[90]:="], Cell[BoxData[ RowBox[{"a", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]], "Input", CellLabel->"In[91]:="], Cell[BoxData[ RowBox[{"a", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]], "Input", CellLabel->"In[92]:="], Cell["which can also be written using \"escape-[[-escape\" as", "Text"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"a", "\[LeftDoubleBracket]", RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], ",", " ", RowBox[{"a", "\[LeftDoubleBracket]", RowBox[{"2", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}]], "Input", CellLabel->"In[93]:="] }, Closed]], Cell[CellGroupData[{ Cell["Comments (within expressions)", "Subsection"], Cell[BoxData[ RowBox[{"a", " ", "=", " ", StyleBox[ RowBox[{"(*", " ", RowBox[{"this", " ", "is", " ", "a", " ", "comment"}], " ", "*)"}], FontColor->RGBColor[0, 1, 0]], " ", "5"}]], "Input", CellLabel->"In[94]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " has nice graphics\[Ellipsis]" }], "Section"], Cell[TextData[{ "One of the most important parts of ", StyleBox["Mathematica", FontSlant->"Italic"], " is the simple calls to graphics." }], "Text"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"Sin", "[", FractionBox["1", SuperscriptBox["x", "2"]], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]], "Input", CellLabel->"In[95]:="], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"Sin", "[", FractionBox["1", SuperscriptBox["x", "2"]], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellLabel->"In[96]:="], Cell[BoxData[ RowBox[{"??", "ParametricPlot"}]], "Input", CellLabel->"In[97]:="], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], " ", RowBox[{"Sin", "[", "y", "]"}]}], RowBox[{"x", " ", "y"}]], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "25"}]}], "]"}]], "Input", CellLabel->"In[98]:="], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plt", "=", RowBox[{"Plot3D", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], " ", RowBox[{"Sin", "[", "y", "]"}]}], RowBox[{"x", " ", "y"}]], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "25"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]], "Input", CellLabel->"In[99]:="], Cell[BoxData[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJx1nXu81WP2x48zkUhIDIacjFtlMKionPMlyV2aGrrQXTeTcmkyJiUhhKIM EZVKN7XFVLK1d9FFMpKQWxKGw2SaQb9Ok/qdvfd6r+/3+XTO/LNfvefxPc9e 389+LutZaz0NetzUrndxUVHRx/sXFf2q8vMP75b8/n8Njsry2fPSUY/dcNGe ll9k9t+6rtavnR/z2aEfnVO3rPSmedtmzvhPPefvV+wo7/vkFaW/PL2x118/ quv8v4ec8u63u9qVPvhgtqTdskOcN3/nzn2/GN6u9Kyf2r5yVbuDnM988J6V 6X4Xl7bN/7uW8/afnv54ZX/Sf8r/3RrOi27p/vO7R1y99IH884ucf/erdj2/ GN5j6ZX5f1dk4BN+kz73ujtuXDo6336b89b9+579xfCbl96d55udr+rQbN09 XW5bWpT/34aW8OKPnpr87PVDlv6t0L4MvsLaP1p4vvPz7fnXFvrj/AHrzyOF /kfwz63/Nxe+r/Pvbi583w4F+zhPT0iPy9nnnII9nb9m9ny4YH/npWb/okn5 9+X8B3tfhb9bz/nr9n6/KujB+bZPC3qwf0eqH/6NjtAP/+Yz9VafU3tsurMM XcHbvPf9N/v1fagMXcFPGPD4/zX/7NEydAX/tleDFb/q/mgZuoJvr7tywz7n jy5DV/C/7Vz8SWV/lqIr+MamrX591c6xGXQF73fItcfX6D41g67gn07tfsvG y+Zm0BW846vpH3/VfUEGXcG7zpncYss5f8+gK/g9TRbedMW5CzPoCt7F2qMr eAd7PrqCr7P+oCt/jvUfXcGX2/dFV/BsyRUf5uyDruAHHFawJ7qCbzX7oyt4 ib0vdAVvZu8XXcHvNj2gK9UPukIvjD+0g6Mf/s3nKUd9PrHPr552XcGP3PxZ jdt2THFdwcuOfLJFycgpriv4rSfd/tamo//muoLf+P3wf1X2x3UF7168aFG/ Uye7ruDf/qH3+JKRL7qu4Gesv/y++T8tcV3B00339CkZucx1Ba/b88MH7272 husKPnt2p4PfbLzCdQU/xNqjK/hiez66gp9g/UFX8E+t/+gKfoV9X3QF/7/5 l3ybsw+6gj9g9kRX8FZmf3QFr2fvC13Bj7L3i67gx5ke0JXqB12hC+YvdAVn /OG/h6Mf/s3njjbXX9CzzvOuK/iEhr9/atyQGa4reJcV215dNW2S6wo+o96q 9ZX9cV3BV+03f/pJ2WmuK/jMZ+sf9OiQha4r+GWLVg5ec+ky1xV8yNcnbxg3 ZKXrCv7IqyvvP33bm64r+In3vHjQ4w3fcl3Bx1h7dAUfbM9HV/DW1h90BX/S +o+u4HPt+6IreFHvw9bl7IOu/HuZPdEVfKLZH13Bf7b3ha7gB9n7RVfw/U0P 6Er1g654/6x/0BWc+QtdwRl/eC4c/fBvPr+7rWja81umu67gJ/zj2akTvnja dQVvfNJhNSv747qCH9EjNz7EuoKf8dqeujO3/N11BR+yudfZWzdmXVfwbkeP +OT5LStcV/BBo8fM69k61hV8+iuf3b9kyBrXFfxP1h5dwTvb89GVP9/6g67g Daz/6Ar+v+6F74uu4EeeP7hGzj7oCl5q9kRX8G1mf3QFH2vvC13Bm9j7RVfw t00P6Er1g654z6yf0RWc9Q+6gjN/oSs44w9/D45++DefB9bu/drwOo+5ruBT j39qdWV/XFfwi7OHP/vNCxNdV/ArWx7d5PEv5rqu4Asn/LR2QouFrit42/0+ +37CF2nXFXzXPo9dmJqbdV3597rjN0UNhyxzXcF3Wnt0Bb/Eno+u4C9Yf9AV vIX1H13BT7Tvi67gTd9rsCJnH3QFP9bsia7gjc3+6Are0d4XuoL3sfeLruDr TQ/oSvWDrnif7L/QFZz1M7qCs/5BV3DmL3QFZ/zx92oc/fBvPi8c+MkTuf0F uoJ33f7B9sr9USm6gn/d6Z+9KvdTpegKfuKURi0r91+l6AreYtmuJpX7tVJ0 Bd927gHrK/d3pegK3n/lqKmV+8FSdAXfau3RFbyZPR9dwY+2/qAr+MfWf3QF v9i+L7qCzzm57/icfdAVfLHZE13BzzD7oyv4c/a+0BW8o71fdAUfYHpAV6of dMV7Y/+OruDsv9AVnPUzuoKz/vF5wjjzF7qCM/7QPzj64d98bml894Hb5k4t Q1fwr6/s9t+7m71chq7go8fcu+PckkwZuoKXffSbTOV6uwxd+d8Z8VaXxteu KkNX8HSPuz5ufvPqMnQFH2Dt0RW8hT0fXcGHWX/QFfxD6z+6gr9p3xddwTcM 7vtTzj7oCt7N7Imu4Eeb/dEV/A17X+gKfo29X3QFz5ge0JXqx/0p9n7w/6Ar OPt3328YZ/+FruCsn9EVnPUPuoIzf6ErOOMP/XZu9uff/nf323PXzC0rXFfw /So+uH/rxnWuK3imx/BLZ25533UFf27uotN6tf7IdQVfO/TwQ14d8rHrCj7F 2qMr+BJ7PrqC79lR6A+6gk+0/qMr+Jv2fdEV/I3bLuyRsw+6gvcxe6IreFOz P7qCTw/2C/Wcf2bvF135+zI9oCvVD7riPeA/RFdw/D/oCs7+HV3B2X+hKzjr Z18PGWf9g67gzF/oCs7449/TOPrh33yW15s9+/RtH7mu4N23Htt168bNriv4 SXU6PP/bW790XcH7nNj6gTO6fuW6gv/W2qMreBd7PrqCb7L+oCv4TtMbuvJ+ 2vdFV/C5Rx17Ts4+6Aq+xuyJruB3mP3RFfwSe1/oCl5i7xddwV8yPaAr1Q+6 wt74n9EVHP8huoLj/0FXcPbv6ArO/gtd+XrH1rfoCs76x+cz48xf6ArO+OP6 M45++DefPTK53+/Xriv4sN9M/aFn63LXFbzpxIq1S4Z857qC/8Xaoyv4dfZ8 dAXvZP1BV/CU9R9dwU+y74uu4CWfdjorZx90Be9n9kRX8N5mf3QFv8XeF7qC v2TvF13BI9MDulL9oCvsyvmF+1WN439GV3D8h+gKjv8HXcHZv6MrOPsvdAVn /YyufB1k6xl0BWf+Qldwxh++Pxz98G8+j3pvT4cmp211XcHf+m7mzNUP/+C6 gh9h7dEVfKg9H13B61t/0BX8Mes/uvL9hH1fdAXvWK/onZx90BX8wOKCPdEV /M/4T0xX7l+x94Wu4DXt/aIreGR6QFeqHz9vM/tx/oWu4JxfoCs4/mf30xnH f4iu4Ph/0BWc/Tu6grP/8nWhcdbP6ArO+gddwZm/0BWc8Qe7wNEP/w4/t7mu 4KutPbqCn2nPR1fwrtYfdAVfYv1HV/Cn7fuiK/i7/+zwbM4+6Ap+o9kTXcHn mv3RFbyBvS90BX/G3i+6gvc2PaAr1Q+6wk4rZLyCd5HxCn6IjFfwMTJe+f5J xiv4Thmv4FtlvIIPkPEKPkXGK/hvZbyC/0XGK/gRMl7BV8t4xedhMl7Bh8h4 BT9Gxiv4OBmv4JfJeAW/VsYreC0Zr+C3ynjl87mMV/AaMl7BS2W8Uv2gK+xx vqyv4B1kfQVfLOsr+GBZX8E7y/oKfomsr+DNZH0FbyHrK/gSWV/Bu8j6Cn6d rK/gQ2V9BT9T1lfwIbK+4vNaWV+5PWV9BZ8j6yt4A1lfwY+R9RW8h6yv4N1k fQUfKOsr+DxZX7n9ZX2l+kFXvg+W/SB8newH4SfIfhDeWvaD8EGyH4S/IPtB +NGyH4QPk/0gnP07uoJvkv0gvJPsB+H1ZT8I7yr7Qfgxsh+Ed5D9IJ8bZD8I /1H2g/D2sh+ET5b9IHyZ7Afht8p+EH6B7Afhh8t+ED5T9oOqH3TF9/tc/Ffw LuK/gn8q/iv4k+K/gjcQ/xW8hfiv4B+L/wr+ofiv4BPFfwVn/46u4CnxX8Ef E/8VfIn4r+DjxH8FnyP+K/iP4r/ic4z4r+Bp8V/BF4v/Ct5e/Ffwk8V/BX9c /Ffw9eK/grcS/5XqB13xPYgfQ1fw5eJvh18h/nb4XPG3wzk/RVfwE8XfDr9Y /O3wN8Xf7lz87fDu4m+HnyT+dj8/EX87/Gnxt8MvE387vIH42+Htxd8OT4u/ nc8Xxd8Oz4i/HX6e+Nt9HyD+dvhs8bfDW4m/HT5L/O2qH3RFf4k/9Lg048SP oSs48T/oyvcrFr+BruCcv6MrOOen6ArO+Re6gnN+ga7g+J/RFRz/IbqC4/9B V3D27+gKzv4LXfm8ZO19/WSc9Y/Pi8aZv9AVnPGH9wRHP/ybz3pf/PRI8nwQ fqnZE13BjzX7oyuPu+lVeF/oCv6NvV905es70wO6Uv2gK/r1msQzwIk/RFd+ biDxDPAhEs8AL5V4BvixEs8AXyzxDPBuEs8A7yPxDPA1Es8A7yfxDHD8P+gK fqPEM8DZf6EreA+JZ4Avk3gGeHuJZ4CfJ/EM8EslnoHP0ySeAd5G4hl8nJN4 BvgwiWeAfyvxDKofdMXfL5X4K/hWib+Ct5L4K/hEib+Cb5P4K3hjib+CnyHx V/CjJf4K3lTir+B3SPwVvLfEX8H/LPFX8LkSfwW/VeKv4N0k/srbS/wV/GSJ v3L/U48w/gp+rMRfwdtI/BWf2yX+yv0QEn8Fby7xV/D3JP5K9eN+Ufs7P0i8 KLxE4kXh9SReFP6zxIvCx0q8KLyjxIvCn5N4UfgbEi8Kny7xovBLJF4UfovE i3q8m8SLwhtIvKifh0i8KHygxIvCL5B4UfjjEi8Kny3xoh7v2SuMF/V1k8SL ur9K4kX5/I/Ei8IPlHhR+L4SL6r6Cdft9aLXJb4d3kzi2+FHSXw7/CCJb4c3 kfh2eB+Jb4d3lPh2+DUS3w7/TOLb4SUS3w5/SeLb4TUlvh3+jMS3w2tIfDt8 nsS3ww+X+Hb4eolvh7eS+Hb4NxLfDh8m8e3w5hLfDj9Q4tv53F/i2+F1JL5d 9YOu+O/I30FXfi4k+Tjw4yQfB76/5OPA35Z8HPh6yceBD5B8HHhG8nH8vF3y ceAvST4OPJJ8HOeSjwPvLfk48FLJx4G3kHwc+EzJx4G3knwc+CzJx3E/peTj wFn/oCv4e5KPA99X8nHgdSQfh89rJB9H9SP5g1E1+YNRNfmDUTX5g1E1+YNR NfmDUTX5g1E1+YNRNfmDUTX5g1E1+YNRNfmDUTX5g1E1+YNRNfmDUTX5g1E1 +YNRNfmDUTX5g1E1+YNRNfmDUTX5g1E1+YNRNfmDqp9I9TNxdb2D/3n4kVk+ U223v3RR6+s9fxK++q5nDl3zxmmlTxf+HcFvC9tH2p5/899Je+dj5Pl8Nrf2 /Ju/M0aez/O0n/Bq2ke059/an+1rj5687akjs3xu2fn5uEXDzyvbUfh3BB9s nH/z/w+W9nzurihw+sd/d8byZ29Nd61fSjv+/1eXFTjt6C/t+Tf/XTXts9pe /y7t9DnSH+cNF+1a8+ovh/vzG/8Uzblg3EXOGZ/u//TgPU8NuLdsj+Qvo2e4 5jPO2rffL7f3PzjOj56wrG/m5StL4bQfNHDU/FF3PVzWPhyXskVFJTmdp+Fx PMXmjblxvvB3i719p9eKr7/0wM7Oaf/GnIoXGm+amGkfjlfZh218gNP+fZuP CuNAubevsfmqkWf9cMtSOO07vTTv1z+ufcnmx5T7afaxcQxO+1E2b15deI7r aF97Ppz2ne357cLxLTvW+g+n/QfW/90FO7gOu5l94LRfbfb5QzjuVdo5+1js d4rzXouKoty4tHRm4T16+yPs/cJpf6O938Lf3TufGq76OaWgQ29/pukTTvux pk90y/zZ9a7+9/298wTXreZFokP4vXM6THnk4EmuwzhOJ5sbn11X8FrvR4M6 PDHLdQVvaOtkdAL/+vLvK979dLnrBD7L1ue8d/g/rT3vF97Ins97hNex/vC+ 4v5H3+X6z3uBj7Tvi/3VPtgZ3tfsiZ1Zj0w9fNaIun2ecjvDf7R9H3aGN1o5 Pv2XaVPdznHc07b8fhM7w/966P/mtxuQcjvD29g+FzvDR7T9v3ndzlrtdva8 VNtfY2f4XdYeO8PZ12Nn+HDrD3aO+98tp2e3M/xk+77YGf6T2Qc7w2ebPbEz 67s5axrWn7pgottZ8+awM/ze02Y2f6VhbOc4jqxtbn3idoafMvD7jf12z3c7 +z7Y/FTYGX7D1fut2Hf8KrczfJr5x7AzvI+1x85w/GDYGX6q9Qc7x/2fnO8/ doaPsu+Lnf1c1+yDneEvmz2xM+vl//76h4/nTxrndob/0fwe2Bl+/J+KUwfs +JvbOY7L65ZbH7qd4ac+3K649THT3c7wlPmZsTO8wT13Nb/j2IzbGd7Z/NvY 2ftj7bEzfIE9HzvDz7D+YOe4/9l8/7Ez/Dj7vtjZ4y/MPtgZvsPsiZ39POrs 016oHM+XYmfPazO/HHb2fJFF3QZUzi9LsXMc57h5Qm49jJ3hNT64ulvlfFeK neH1LQ4EO8PHD/vVqMr5txQ7w/tZ/CR21vbYGV5iz8fO8AOsP9g57v+I3P6r JXaG32vfFztr3hl2hncxe2Jn9nMrJ13batysJzLYGb7c/H7YGX5CgxdfaLFq cgY7x3GjZ+T2R6XY2fOVvmqw438PvVCGneEjgjiTcucb5v740IerVpRhZ/ir dr6MneHvW3vsDB9lz8fO8NXWH+wc939Evv/YGX68fV/sDH/d7IOd4WvNntiZ /XG9LuOmT10w2+3seUbmd8XO8Jf/tPLxVxoucDvHcbgluf2p2xle87TT7+i/ O+N2hhdb3gp2hs+/76mW+43/0O0Mf8viQ7AzPGXtsbM+HzvDa1t/sHPc/275 /mNn+Iv2fbEzfJrZBzvDjzF7Ymf8DW++e+fmKx562e0MZz2AneHXNf786MXb X3U7x3HN3XLrZ7cz/Kind9TcNXm12xm+xeKssDN8+bBz7x590ha3M/wGi+/C zvBl1h47u3/Ono+d4cdaf7BzIi67ea7/2Bneyb4vdtY8HewMf8fsiZ09L2b8 Z92nLljidoYT54md4WuvXNT3lYbL3c5xnHiU88+4neGXXXVQo/6733E7e36K xblhZ88T3bquaL/x37id4U0sPhM7wwdae+wMv96ej53hV1t/sHPc/xH5/mNn +Jv2fbGz++nNPtgZPsDsiZ3xhy1e/Pysn95b6nb2PEU798HO8LIVj1TUqnjD 7ZyIu8/5x9zO8B4LH/4hPXS92xnewOIMsTP84v9rO3Xtud+7neFrLL4aO8Mv tfbYGX68PR87w2+w/mDnuP/d8v3HzvDz7PtiZ7UPdoYvN3tiZ/yLC7ZM/LLZ CVm3M/w42xdgZ/gDE3e9MXj7Crezn9cVdcvt693O8FqHzyn91zXvuZ3hPWwc wM7wOy94d8mykf9yO8P35P/3b7czfIS1x87wXvZ87Ayvbf3BznH/s/n+Y2f4 aPu+2BleYvbBzvBFZk/sjL/2ZdEz/F7RM/w80XMiLyTQM7yb6BleX/QMby16 hq8SPcPbiJ7hJaJneE/Rc9z/UM/w5qJn+H2iZ/hS0TP+704yPsNvlPEZvlrG 5zjPJhyf4RfK+OzxyDI+w/vK+Az/vYzP8P4yPuvzsTP8Uhmf4/6H4zN8hYzP Xg9Axmd4LxmfOU/IynoDfr6sN/z8QdYbcd5SuN6AHyLrDfhGWW/Al8h6A369 rDe0PXaGfyzrDfhhst5I5F0F6w34VbLe0Dhw7AxfJesNzmeKZf0MHy/rZ/jz sn6O88DC9TP8v78L18/w7TvC9TP8WVk/w1+R9TN8iqyf9fnYGb7jd+H6Oe5/ uH6GT5f1M3yCrJ/htWX9zHnXDNkPwmfKfhBeR/aDcV5duB/0OGHZD8I7yn4Q /orsB+FPyX4Qvlj2g/BOsh+ET5X9YNz/cD8Iry37QY/7lf0gfJ7sBzk/PLFk x6ykfwO+y+JqsLPHAzcq7pP0b8R5it3GJf0b8GfmDe2S9G/Ap1scLHaGtxj6 u7uS/g34Oou/xc7wltYeO8Nn2POxM3ya9Qc7J/IsH036Nzyu1b4vdta4WewM P9XsiZ05jy0+MvTXwQeJv87jLsVfF+d9hv46eJn46+BviL8O3lL8dfAB4q/z eFHx18FXir8OfoH46+L+h/46eFPx18EHi78Ovv+Rob+O8+0F4n+GTxD/s9d7 E/9znEcb+p89zlP8zx6HKf5n+I3if4bPEf+z190R/zN8qPif4U3E/xz3P/Q/ w+8X/zP8cfE/w9PifyZe4Gk5T4Fvk/MU+ElynhLnJYfnKfC/yHkKvLWcp8CH yXmKx23KeQr8TjlPgV8k5yn+fDlPifsfnqfAT5DzFLWP71OMz5DzFOIv2sv5 ILyWnA/Cb5PzwTjPOzwfhFdsCM8HPf5Qzgfhn8j5IHySnA9q+3AerBf9Rs4H 4bs3hOeDcf/D80H4LXI+qHF34TxYL+os54PEs/SX+AF4DYkTgF8o8QBx3nx4 7g+fJOf78Llyju/xaXJeD+8l5/LwMjl/h8+Tc3b4c3KeHvc/PDeHny/n4xqH hp3hg+W8m7gO4jckTsPjjiQeIyIeQ+IuIuIuJL4iIr5C4igi4igkXiIiXgI7 w4mLkPiHiPgHiXOIiHOQeIaIeAaJW4iIW5D4hIj4BIlDcPtIvEF0psTDPGXx Rz8+OWxzzb7DXM9fWhxCXdGzxSNlbz5r+Qk1zh/qeqb95RbPiZ1pv/3ZOnNq dH/U9byFOA3RM/0ZvfSZnl+eM931TPvbRM88/7wj77lk3+5TXc+0T4ueef5R Pcv6XL1zhOuZ9ust3hI70/7gy24aXaP7SNcz37eO6HmSte/37fjPe28a6Hr2 +fDeXXVHfBav6wZbHMJBMj43svazWl9x8X9eG+92pn1R0SHfJ8dn2o9u0LTT y9l4XTfI2p8g4zP9SWX/fs++fV9zO9N+qozPPL/LmHfuGVc/7XamfX0Zn3n+ H++vuXXhRVPczoO8/1F5cnym/c6n16S6PRqv6/i+tWV8bmztG1v8Kv/9oulf 3Tvu68Oyn2/YuHRIuyfdznz+W9Ybi6397a+trn1Bo8lu59ifWpivsTPtsyU7 v105Zp7b2fqb1fUG/Smp2LLj5FdWuJ1pr+sNnl82bc/8A65Z4XbW52Nnnt/8 w5bfnLVljtt5t/e/JFhv0L7/piEjioqnuJ35vrreeMXa11/e/JKrB/3N7dx6 /NoL+rx9aPbNK3otem1bvH5+yOIQxsn6+SJr32V01HTeLfG6jvaVegjWz7SP Jn+/4LoG8bpuTDXxG/TnP007Ldv5Wbx+pv10WT/z/O39n1swoDxeP9Ne4zd4 frtT7ilveEm8rhvj/c8G62dvf+Ou7D2d4nUd33esrJ/bWPsxjw78Zvsp8bpu htlvro0D2LmZxSF0l/0gnwfsWjDym37Pup2befxDyYrkftD6m238ztDNY8bM dDs3lTrM2Pl5a3/mw7UOmdvmdbcz7XvIfpDnv3vPee1+/cnrbmfap2U/yPNb /m7FzgYPz3U7N/H+j1iV3A9inyaWF4ad+b43yH5wNvaZVBhnsPMbW8657cTm B2Zbjzr9f3uioW7n+JykMA5g35XW/thvr/58/Bdj3M7BucrY2L+xwtp/+NhR V339wgMSt5mP92ie9G/Qn2tm1Xt8/BdzJQ4z//wpSf8Gz++547HU/LkpiavM x2Ocm/Rv8PwZc3vOrbSb27ldsv/1Yv8G7Zf+74YJd9a52+2c+L7vJv0bq619 81ZnXLXp6Pvczpvz82bNbK1bP/m536ljM+E8WCP7kvjrvrT2w9cdtupbt1st b9/K6glg5y3WfvLjrzYd1WxaWTgP1sjeLP66L6z9L/ev2db42kXur6P9bPHX 8fx5NYv6j2r2clk4D9bI9hF/Hc8vvuCus/4z91H3191E3Ijla2Nn7NOww51b 7242PhPOgzWyKfHXfWXt/zusTo22lesZ7Gx/PzvO1gOhf6MoO1H8z4V9ZXG2 YTAO1PL2RUVH9kr6n/kc9e7no756aInb+SFrv1v8z/Tnb2uPr/lY6l23M+2X i/+Z5w8ad/Ou61etczvTfqf4n3n+Oqu3EI7Puf6v65H0P9M+snEm9G8U+T0U 2LnY7HOVrWewc2Fc+iXT6E8t1z5Rd4Hb+Y9mjwvkPKW5tb+l4c5/1z94oduZ 9kVFg5onz1POsfZza9907z/+ucLtzOcmOU9pZu3/khm/9s+9N7mdad9DzlNo P+P124c8e8dnbmfafyLnKU2tfb+TGmR6vLK8LBw3cv2Pzk2ep2CfB2+as6zd oYvdznzfVnKecp61j0484h+1Z853Oxd+Lz9l+j374agjJix2O48lLkLOB2+1 9s/1/EOjxZdk3M60LyqaHJwP3mzt1+w7ZfXC2W/793/Y2neW88HB9KfG5hmn HPy125n2ej5I+6U3NPqs95yvykJ/XVynFDsPsvYTvu7Vb/5Pa0TPuf63Dc4H sc/kM3/pdu6IrNtZ7YOd/2zt0ytHvfbR7IVu53b2/V62fQF2fsziEO6T8+4u 1v5sWw9gZ9pX9jM4777W2k+wcSA8t9qcKZHzbvdDvzn85YGjy+XcanNGz7v/ aO1vtzpm4blV/Hzs3B5/lY0zYVxurv8lwXk39lln6xnsrPbBzj2sfR/bN2Hn +/Pt12XaFjX+XfPVGYnfWJ2uL/Ebk6z9D/u0v2bldRq/sTpdOb8H8RsTrP1t T5/Xte+hGr+RSmv8xlhrX3L39MuO+C6OK/D9isRvPGrtZyz866FD138v8Rvx 87HzQ9Z+x2m73o4y6yV+I7VX/Ab2+fC6c/r8fZzGb6xOHyfxG7Os/YZhC1o1 ap9xO48r8LI1xrHzfRaHMFr0PMzaf2x/FzvTvnKd9k5Sz/dY+5/te4Vx5nvH bzxg7aeZ3bAX7VeLnkdb+9/aewnjzDeXNRA9m53Lhtp7D89h947fwD7/Ml1h Z7UPdh5s7buYbn2fb/3tajoP40W3ld0k4/Pl1n6D/Y7CeNF8ndRgfG5r7W+y 32m4H9xW1lHGZ/udlt0e1D9kP7it7GwZn/lsYeNMuB/cVtZZxmcbN8om2jgW nqfk+p8Nxmfsw74pjBeN60xi54us/TIbh7GzzSNli23cDuPM47qC2PlGaz/N 5oUwzjz3e518TnK9MdDaj7N5Bztjj09kvWHzTlnG5jXsTHtdb9D+Rps3aef5 XrLesHmwbJ3Ny9i5vfc/CuI3sA/zfhhnXlF2kaw3+ln7IbauwM62Lio739Yh YX5KUTRJ1s9nWvvxts4J81Py8Rs9kuvns619H1tHhXqO6+ZhZ1tHlc2ydVqo 56LodVk/0/5OWweGei6K9sj62dZ1ZSlbZ2Lnh+L+90qun7HPrbaODfNTiqIp sn4+3dqfbetk2adE+Amx80CLQ1gi+8Fd1v4yW7djZ9pXjm8/JveDv1h79gVh XluNqL/sB+nPLTbOYGfaz5f9IM9/2saBMK+tRvRX2Q/yOcb2TaFfNNf/7Pbk fpD2p9m+DDvzfbOyH9xp7afavg872741qndnYZ+Ina/2ebgkyE/53Nq3tH0o do7bV/5v8273b9i+Napt+9xw3Mi3D/wbti+Oltg+Ohw3cu1HBP4Nnl/rgcI+ PRw3cu2zLZL+DZ4/w/wA4XmK9X9s7N/APs+YnwE7x993cpCfssnal5gfQ/xI 0a/N74Gdz7Y4hI7ir1tu7V8wvwp2pj31x7Dz69b+MfPbYGfzj0VLxF9Hfzqa Xwg7076r+Ot4fhvzO2Fn2r8o/jqe/775tbBvU+qAWX0w8SNFxeY3w8583w7i r8ta+/rml8POPI/zAuxs/thI8wdnsB81PyF2pn1R0bbA/+ztg3HG/c9e50r8 otE/bD0Tjs+HROp/pv3vbT0g/ufoZvE/831Pt3EgHJ9z/Y8C/zOf+5gfGDvz fM0fnGbt55ufGTubnzwaaX5p7MzzNH7D/N7RH83vjZ0T6/fgPIX2V5lfXc5T ogvlPIX+/Gx+e9+fWHs9T+H5P9q5gJynRHqewvNb27kDdt7j/Y+C8xTad7Rz DZ6r9sHOF1r7DXZugp3t3Cc60s5ZsLOdl0V6PmjnONFAO8fBzrSvHJy/TZ4P 0v4sOyeS88HoWDkfpD+cQ4V+0XqRng/y/AZ2ziXng9Hxcj7I81fbORp2HhzH nwTxG7Qfaud02JfnHyzngwut/VY7B8TOjTg/tHND7Gznv9Ghct7d0P1/hXEG O2+J4x8+SJ530/5qW8/IeXe0WM676Q/nqtiZ9jfLeTfPX2D7AjnvjlbKeTfP H2PrAez8pfd/xCfJ827az7ZxADvz/MPlvJvP2naujZ2trkm02c7Bw/VGLp5h //XJ+I0nrX1DO2cP1xt2j8SRcfwGz29t5/jheiPXfmzzZPwG7btYnEC43si3 n5KM36D9dItDCNcbufbdWiTjN2hfY3IhziH0i1r/+8bxG7Sfb3EU4Xoj177t +mT8xhPW/tSJhTgN6kS4P8niZ6grASd+xus4GKeOBPn5cOoekE8OJ0+f/Gc4 eeXk63q8sOXtkl8KJ2+XfEg4eabk78HJiyTfDE4eH/lRPo5aXknh/W5oCSdP ivwTOHk95EvAyUMhvh9O3gTx6HDi/Imf9vNb+77E+8KJoyY+1Z9jcarEU3r/ zf7E/8GJqyReDU4cIPFV8P6hTiLVCbri91oS1i10TnwRuoJrfUv4j1Lf0v33 Ut/Sz0+kviV8qtS3hC+X+pbw56S+JbyN1Lf0c0ipb+l+LKlvCT9O6lvC75X6 lvAbpb4l/HypbwkfL/Ut4TOlviV8l9S39HWE1LeET5D6lhoHgq7gtaS+JbyG 1LdUnaArxnvqI6ErOPF7XkfGOHVs0JXHSVncLLry9ha3jK7g1LVAV56/bnUJ 0BWcugHoCk6eO7qCk5eNruDkEaMrOHmv6Mr7Y3mL6ApOXiG6gpMHh648LtL6 g67g5Bl5Hohx8mLQFZw8DnTl+QdmT3Tl9VrM/ugKTlw3uoITh+z1EI1fGOok Up2gq/g8pBBPi65iXoj/RFcxL8Q5o6uYbwvq0se8EOePrhLxISuTdekT/ZmQ rEsf80KeEbpK9LNnsi594vnnJuvSx7yQ54iuEudC65J16RPPmZysS6/t0ZU+ 3+9Zkf74vRfSf78XQb4vuko8Z1yyLr3aE12p/dGVvi+Pg5f3i66q0UmkOgnn wWKvtxbOg8Veny2cB4u9jlY4DxZ73adwHiz2OkXhPFjsdXXCebDY68CE82Cx 1y0J58Fir7MRzoPFWepChPNgcZY6BuE8WJwl7z6cByu/r+Vlh/NgcZa85nAe LM6ShxvOg8VZ8kbDebA4S55jOA8WZ8nLC+fB4ix5ZOE8WJwl7ymcB4uz5OmE 82BxlryScB4szpIHEc6DxdlJoU4i1Uk4XlVk3g/vCXJO/Hk4XlWui+U+KXgb uU/K8zPkPil4Su6TgteX+6TgI+Q+KXix3C/s+125Twp+ndwnBW8g90lpvEo4 XlX4/ZvheFWRuVbuk4JvlPuk4NvlPil4R7lPCj5d7pOCvyH3ScH/LPdJwVvL fVLwo+Q+KfhcuU9KdRLew1KeoX4juoKTvxDez1KeoY5feD9LeYa6c+H9LOUZ 6qSF97OUZ6jrFd7PUp6hrlR4P0t5hrpJ4f0s5Rnq/IT3s5R7XZrwfpZyr6MS 3s9SLnU/uJ+lPEOdivB+lvIMdRXC+1nKM9QBCO9nKc+Qhx7ez1KeIc86vJ+l PENecHg/S3mGPNbwfpbyDHmX4f0s5RnPEwzuZynPkNcW3s9SniGvKryfpTxT GuokUp2E972m0qPC+z2dk/8S3gObSs+q8h7YVPqEKu+BTaWnVXkPbCrducp7 YFPpflXeA5tKv1rlPbCp9FtV3gObSt9Q5T2wqXSTKu+BTaXXVHkPbCpNnZPw HthUelWV98Cm0r+v8h7YVPr6Ku+BTaVfqfIe2FT6qSrvgU2l11V5D2wqPaDK e2BT6TlV3gObSpdUeQ9sKj2pyntgU+leVd4DG+sEXeFv6yzjFXxfGa/g/5Tx Cn6XjFfwPjJewY+X8Qqu4xX8fRmv4CkZr+DLZLyCD5TxCn6pjFfwETJewdvI eAXvL+MVXMcr+BQZrzwfRcYreEsZr+DnyXjlde9kvILfKeMVXMcreJmMV6oT dIW/9gNZX8HHyvoK3kjWV/BLZH0Fv1XWV/AFsr6Cl8j6Cj5K1ldwXV95vqas r+DXy/oKfrysr+C9ZH3l/ZT1lddZkfUV/GNZX8F1fQXvJOsr+AxZX8FXyvoK PlTWV/CLZH0F/42sr+DzZH2lOkFX+PtXy34Q3k32g/A6sh+ED5f9IPxU2Q/C z5D9IPwA2Q96P2U/CK8t+0H4sbIfhF8t+0H4DbIf9OfLfhDeU/aD8EtlPwg/ TPaD8B2yH4RPlf0gfJrsB+EXyH4Q3kT2g/Bhsh/0uB7ZD8Kfk/2g6iS8LyM3 bxfyqdFVzLOB/yrR/ruk/yrmhXyl8B6NfBxL4L9KPD/wX8W8UMc1vEcjzwP/ VeLvBv6rRLxN86T/KvGcwH+VeE7gv0r0M/BfafvwHo34+eE9GnF/wns04v6H 92jE3ze8RyOuAxPeoxHbM7xHI7Z/eI9G/L7CezTi9xveo7GXTiLVCbrivPFG 8bfDjxB/O3yk+NvhJ4u/HT5K/O3w48TfDr9X/O3w48XfDn9R/O3wTuJvh78p /nb4eeJv9/qX4m+HNxd/O3yF+NvhV4m/HT5d/O3w2uJvh6fF3w5vKv52j5cX fzv8BPG3w28Rfzv8fPG3q07CeTC+5y6cB+N7zcJ5cO/77+A/yfmg1wOT80Gv xybng3C9/w7+upwPwqfJ+SBc77/zeiFyPuhx3HI+qPFI4TxYN7pPzgfhf5Lz QbjefwefIOeD8FlyPgjX++88v1DOB+GPy/mgxjWF8+De99/B9f471Qm6It5h rMQzwM+UeAZ4X4ln8HxfiWeAvyzxDPAdEs8A7yLxDPC1Es8AP0biGeDvSDwD fIDEM8CXSzwDfJHEM8CXSjwDvJfEM8BXSTyDx/NIPAN8nsQzwE+VeAb4/hLP AE9LPAN8hsQzwDtLPIPno0g8g+qE+h3EOVDnhPx8jzOxeDzyzz3uxeKgPC/X OPnLv4RxX9kJFmdFPh6cvEXybeDkJXW0fSy8p8WDEWcPJx+BOFo48cbEycGJ JySuy+M9LP6NOCTPz7Z4rS8lDoQ6MNTjgNex3zt1DeDUf2gmcR3UKyCfGU7e N/m3cPKUyWP0/AAbJ8m787wuG1fJX4KTx0S+DZy8JPIW4OR3EGcPJx/hbImv IK6b+FqNbyFOEU485xaJoyD+kDiwOC+wEC9HvRuv42XxY9Sz8LxMi0clfx5O Hj35sXDyZch/g5MHR34LnDwX4tfhxLETDwonTpX4Rfi+FldJ/J/HXVoc4Jdy vk99IXQYn9sW6uGgw8T5dX693Wyv8/oz8nHp6BBOPQF0GLc/Jp//gg5jXsgj RoeJc+r8fgQdJs6d8/mD6DBx/p5/DjpMnEfn84bQYeJ8PJ/ncracm5MvgA4T 5+N5O6DDRH/yccJb9jofL8S1osMg3/TIPWl0yPkm9Z3QIZz6LdQBgVNvhHoK cOo2kI8NJy+bfEs4eZfkU8HJqyKfAU7eBPqEExfNOAknjpdx0uPWLe50i5zn Us9qUKDPisxvg/jn+NyW+PYxgW7jc9umcm5LPRbqesAvmbkpv58dFOi58jnm Z3so0HPlOtf8cg8Heq7wPPdHAj1XeN70g4Ge43PYMYGeKzLkY44J9FyRIa/t pkDPFRnysJrIuSr5LKGeKzJhfZ74XBV7hjqvyBDfvkXOVYnHbhfoPHcuVIgf Zv3g9zZYPDDrBzh1h1g/wMn3pA6I3+tl9UaoQwF/wvLIqBcAp84A+cPwaUH+ dblz8l7JA4STP8j6AU5+EOsHOPH//C7gxKvzu3Bu8dVb5NyQum1x/a8CJ48g rlcVnjfF9ZUKnDyapnI+SN2hRH2cPJ/4+33yeWT8LuDUdeF3AV9m52v8LuCc 0/G7gHOux+8CTh43vws4ecf8LuDkb/K7gJNv2ETO78jbivOXQvuE+fKxPeP8 kND+W+T8jryDIH49Xw+gECfP+O/nPvbeGf/h1Ndi/IdTD4rxH05dHR9/jVMH ht8FnHoa5MnDyZdH/37eZPmwzAt+jmb5bswLcPJZPK/D+EuWf4H+4eQLbJFz qLTMC/D6Mi/AW8u8oOdNTeW8KS3zgp+DzBx5bnJegPeReQG+U+YFP6+ReUHP idA/vIHMC/DOMi/A98i8AB8m8wL8RZkXvF6szAtqT/Tv52IyL/h5k8wLcX2L Qt4H8wL+fOpJMi/AqRfHvACnvhnzApw6UcwLcPKXqQsDpz4MdR/g1H+wcdk5 8wv53nDyvpkX4OR1Mi/4uZLlbTEvwO+3/S+/Czh5MVvkvIN6m/wuYj9223zc Jr8L+IgFR+X95PwuEn7v/Pq2yV7nGpPz9eKoawb/4LCzLz3rsD0tqcMFpx4X daPi52zMr8Opc+R1Nfbvmv99UZcn0f/Eej55rhElzjVSfq6x7fJV+XMN6nTo uQZ1JWK+Lv986iB4nbyX7s+vA8nbj9sX8vfJM4/55vx+p6mcX5C3S35pov+J PNn4/OLOBR3z74X8vcR7yZ9ffLn3+UV+H8fvK8jL7rsnze8L/zP1V/l9eT0e yzPl9+V1pyzPF7+N1xm1fHb8NvAL7feI3wZOPSUb350zf+HPgVNHhd8dnHUg /hw49RP43cHJj+Z3Byf/kd8dnHw9fndw8su+FL99HfHnwGuLP8frSIk/B36D +HPgKfHnwJ8Uf47XMxB/jvrJ2UfD1Z/jfmzx58CniD8HnhV/DryD+HP0PIJ5 BH6w+HP8vEP8OfG6rJDfR71gr0di/jfqgcKpC0q9Pzh1/6jn5f5Vqw9DvR73 Y1vdHupxwKnLQb49nLx78mnh5NWSl+h+YMtPpM4sfsVN1p46kl5H1p5PXTn4 KdYf6kbBL7f+UxfG8/7s+1LHwfMKrd4Fedpw8tnNH+7+Q/KwCuPzhjT8WFs/ X8l6xTjrCupExP66Qj0Nr+Ns4xP1nKnzC6f+MHVF4dQXpT6j+8fMf0I9QTh1 Ba9jv2ec+mzUEYP/28arK2y8glOXifpBcOoIUYcFfqmNn9QN8XqHNt5Ot/EI zvhMfj6cugHUB4z9ToW6iIX3sjod80LdM+r7JPxy+Tgi3kvgv9q8uyXvhX3G g7Zu4b3AqfNMfVX4RlsXUZ8RTp1G8+c7H2/rLuqywanPRt0lOPWXqC8DZx1I PRQ4dVeoKwE/194LdoZfaevSdoF9cn6Pzfn1THjvT3mGOuH8ruHUteZ3Dadu LfUl4dSlpN6cP8f2a9SHglNXinUknPo81Hnx+GrbP2IHOHU5GAfgPwf1n+O4 WerPoBOPUzW/BzrxuETzk6ATOPV4sQOcepvUK4Tjt6G+nrc3Pw/2gVNHC514 XXzTGzqB72/1c7AP/AwbH9AJPKybUSuxDxqRr7eDHng/LcyPih7gz5vflXEe Th1RxnmP7zK/LuO874PMD8x7h1Pnh/cLp44H/WRdRP1z+gmnvrH5k32997Cd d5j/2flGOx8xf7Wv6zhPYT6CU1+IfsKpH8J4Fa8TuuXnEerde/17O7+jPrvP 13beN8fGU/hBds5CXWY49Zn3sfnF7982v3dLswO8zM4fe5tufd1iv4vpZh/4 ejvfvMT05OsTG0/6m93gt9o5KXWs/FzYxmfqLsGpv0T9Gj+ntnmWeitw6q5I fY/si0F99fg8l7oZUn8j29u+L8+FXyj3EbAeeMbOtfm78BMtPoe/CyfvrEMw j9TN3mHx0mGd5LrZvxrfHcwX8XNmBvNC3SxxQfTf8+utn15X0/pbU+qlJ/Ir c+fsXjcscd6Uj1/ie8V8cS7u0euAxfziXPy21/tKzNd5zvdKnFvl4zn5Xonz sn65v0v/E+uH2cl+0i/qKYV2KM52kTrPzI8r5N5MeCupuwhvL/dmxvPsqUGd Z/jhFu8a2qcis9Ti9kP7VGTSxkP7VGTq2XNC+8T9qe7cJLRbRWa1fd/wXr/y TBObL+g/nLq+4b178XlEeP9deWaA1MVl/q36XuPUXnVx4fdXea9xbh4fWsW9 xqk0+arh/cWp9DDLswjvKU6lhxvHzvAD7TnhvcOp9H1V3juc2qtuLXyhfV++ F3//PVu3qD+cOqg8B/6a1Atlvn5ddAu/UHTr/l7RbTzvrwvqhcIPE93CVbfK 3U9q/GjRrdcjF92qXxc7wN8W3fJ3qPdO/+Fv27qafsKfND3zfPhYqa+Y8F/N Sd6PGfvHjgruj0jEFfdL3o8Z89TFOf8k/Uz4M69L3o/pdcHNDxneV5VrP2hk 8n5M9TeG91Xlnz8yeT8mvJn5Ffn+ie/bNTkOJ57TN3kPpvoJw3up8s+Zmxyf eV5L2ydiB78H0t4j3xdOXW65fyQ6y8Yr/i58idS7o79Py3wN1/karvM1/K8y X8OHyXzt7WW+hut8DZ8u9yryPSYZR1fx+FqYrz2f3Pgb9ntBJ34/lI1L6AG+ 3Nrz/uC/7Pl3fp6lf1qniL9Lf1sF/pbUXv4WPx+S9lKXL7t7z3F5XfH3vE6L 3JsDP1Hul4TvX7Q5WLfAT5P7cXw+tHHJz9eNN5X7cbSuC3qAvyf348A7BeNe 7G8pk/tx/N6fom758QT9wCO5H0frsfj6IF5HJfwtqb38LeE9Efl1YH5eCOsz 5/0wu/dUjmPherjY19W8F/jtwT2ecb2Lij3zr0+Oe3BdL6m/JdRVXKci1FVx tq49J1w/F2f/IfeJwH/a88h1yXEP3lzuE9HvJfWrM7v3lFXpb3lJ7l+As/7H Pv6997TJj9s8F75U7lX3PHFbz4T3IMft1d+i9yPEfzefd+l2gL8j9yPAGQ+l /n+avB7swO+ju9STh6sd4PvYfgE7wFkn0w/1t9AP+HCxj8cbiH28XqDUgY/7 MzawD/wsqQMPHyb28TxQq3Pu4539/b/I78XPkYvWBfdow9kX8H01Xy+sj1oc UR+G/sBrFmXzv0f6D2f+8jplkodCP+P1ckli/RPn9fzRxj36qXk69NN1Z+3p J/yXPc8G6xDtT/i94vqufg5h8+2FUi8UPlXWCfCaUi8UXsf2oV73x3hHqReq 8fnoFj5Q6oV6XoPN1+gJvkTqhcLfsufz/uCPSb1Q+KG2TsOO/nypF6rx/P8P zl25XQ== "], {{ {EdgeForm[None], GraphicsGroup3DBox[{Polygon3DBox[CompressedData[" 1:eJw1nHf8VuP/x+/7Pue6PpeIVEJl75EUkZVKEpmJbBUZISLqK1KKyEwZFVIq DZtKskJWUXb2yiZk79/r6XX9/rge1/Pzvs89zjnXeI/X+WzU+8xu/WqVSmV6 qFQK9WfrD/5uptaprFRGqX9Xhr3El4vfEXcRXyv+ULyfeIz4Y/EB4vHiT8X7 iq8TfyTeUXyWeLG4rfg88VLx3uIrxe+JdxEPFL8s7igeKX5bfJz6QRW/1ln2 q9S/L/s+4mvEH4jbiPuLXxSvJ+4ini1uLt5H/KB4B3E/8SLxduKTxc+IW4pP ET8rPlr9uWoD1JrK3kn9/bJvLj5C/Jj4MPVnVvxZzWTfW/0Dsm8s7iZ+WLyh +CDxQ+JNS7/nkZptp1b8fTuX/p4lNX/22RWfw5G6D3vI9rFuxrHivcWfic9T 30HtKLWeap25BmrH65gu6r/QMafyHWoHq50g+4Hqv5H9uOBjPxcfFfw5n4h7 ibuKvxL3Fh8g/lp8kvr9a/77aNk7ql/O72EcqHVSOya4/1T23XUuF+i3v6a/ 24tHiJeJdxOfL35VvJP4HPFLnIf4UvFb4l3F/xO/It5TPFz8pngP8VDx6+J1 xR3F94nbiYeJ3xC/Jz6zqt/Lucg2uOLvO0Htwop/0/Y6pq/653R8K/Fp4udr vlenV/z3BH3GMLWL1b4o3ffXZ16vfrDaBWqf83vUnyX7Z+KLxGeKb1I/pOq/ P+F81Z8u+6+lP3eo+GPOUXyaeF9dt431/a+Il5f+7DPEn4ovFPcT36p+hNol atepDar6/R/omLPVn6JjvuYaigeIZ6i/Ru1atW9kv0z9ubJ/L76a94onqR9Z 9Wur6jfMVz9W9h9Kf8f54h9Ln/MF4g+5X+JTxT+X+TzFH4nPFfcVf1X6N54j /pJ7Jz5bXE+f/7B4jHgV8UOchziJ54pHs9CIZ4kvLzzeN2GuqP2rz7mD3yl7 TcfcLb5CXBXfKR4lLsT3iK8U7xf8vlfF25YeB0/r79biM8QvMK7UNmMeM65l O0mtj9rWpdeXJ2XfsvT8f4K5w/rF2qYW9Pn367uu1uf/Wfo6jhCvKfuz4vFc K/XPVP33arI/qv562evEs7kv4ih+kPsk/r30Pb5Y3ED2heJx4vfUP6X2tNrf OmaK+ktlXyPYdpO4FN8nvkpcX/yY+Abx6uInxDeKv2WtFp8n7hl8Hl+K+4gP Ea9gHdAxY3W+nzCXxePyuv1gxWv4BOab2o1qN6kdXbpfXvMaybU6puJ5faT6 x2VfQ7y2eJr42NKf8Zn4It6jNkCtoezry36NuEHpfeYK1nnxzeLPxXPV36J2 q1pP2Seq/1L2U8SzxD+ITxXfJV4pPr307/5ZfLJ4pvh78TPq76z4uMayb6R+ jOzPqb9b7R6140t/zxeydxdfkfejh9XfpjaJNTnvZexxR4hH533tcOZX3oN6 lT72q5r3jq3FE8VNxJtyHcV14lXFN4jridcQ31zzsQ3U1lTbQq2+2upqq5Tu x9e8XxyVxyf71wHiueJtxJ3zHrdq6c+4Ne9rB+Y9iPHOuOc9LWTfV/0c2VcT N+Q8xS3UN+I6qSXZV+O+13zN6rCplbJH9dcyL0rbrhNvr75Jxfe+funPmCz7 OqXPZ4K4KP+b8pWrxVG8inhszdemXsXXhXFRemmorC5YS/0UHVMt7ZOMwjcp 7adcKX5U/e0co9Zb9snqv5b9KfUzKh4HvLd5HmO8dz3xVfn6b8U4E59Ts9/T lH1D/SDuM+NNP+Rw9T8U/l38Pt7PuWyQxzDXfJt8r7mH3Es+92S9t7ts3+u9 Z+I31PxZp7P3qB2q1kjv3UXHzhKvJd6dsVrzteSatszXgX5qnl+txHdwT4M/ 47vC8wr7Ovlecc82rHh+tVE/veb7sh3XK4/JdsyBmu85935b7p/sezIv8tjA Nkm8pngnrmnNY3LLfE/r5/G6eR4z9ONq9tdYV4+veE/H52H/xcc7tuL1Ft+g Z8VrNT4Axz5V8x7OGt67Yl+RNWYB5yueLv6O9bn0Pf+Ga8l+V7FfeqJ4qvhb cR/2EfEK8RPqp1X894nB/tG32W/hexbW7LsOrdivYGxvXPFawVjdRHx9zeOf 6zo6z+XN8rxm/DKOOQ6/A//jRLV32YO0DvfRd3UtfW74SAfiY1Ts57wjPl3H nKhjDsr+D77T/vgYFfs/B7PPVuwvscfh0+Lfsj+MYn9U+072K/EV8Ek0ST8Q 36rB8Kp4B66B+A3xTuIF4iPF/fBzxMeI+7OPiw8Xn4ZvIz5ePIB9RHyo+BR8 FfFb4l30OU+Ke4nP43vFJ4nH4kuITxSPxvcQLxVvr+MfF78g3pq5K35R3EL8 mPgM3ZeddV4fyXaWeFfxJ+Ln1LbQMY/omJniH/SZ08V3iFeI7xDvJT5C3Ev8 vridjn9afA6+tD7nU9neVdudtUH2U2XfUfYPZVuotprs82X/n+x7yf4F5yRu L/5MPEXta33+NB3TXnyYuKe4i/hY7p34XPHt7Oni88XT8d/EF4pnso+LB4mn iYeLLwhet7+U7RfxSua87L+Lfxa3Fv8rXkvHtxWfruPG44OJC/E64l3EP+qY 73T8duK/xL+J24jP1DG34JeKzxbfho8rvkh8F34X10F8I/6e+DLxHPw0cVfx 8Yxb8cHiPviu4gPEvfE/xZ3FR4t7iy8RP4BvI75CPA//R3y1+BF8EvHF4nvx 2cSjxY/jO4lv4N6IbxGPES8Q3yy+R/yzeJZ4gvhj8W3iSeIvxFO4X9qAWumc 7xUPFLfARxT3S/ZBbxAPTV5nn+Hck9eyheIh4t3wU7lH4l3wU8WDxW3w1cRn JftY47in4h3wBbl34p3Fc7in4pb4qVzzZP/vJvF54m3FM8T9k/2zCeK24v+x doh3EZ/PuineKdmPaSbeTXwB+5N4V/Fg1lxxD/HrrKdcz+T1+jnxEeI3xH25 1+IN9V0Tmcvi12Q/mbkg3lj2SYxV8ebiqeIB4k3FtzMHk/31seLTkv3X0awD yX7/QPFcXf9/dP3vEz8o/lN8j7iN+ATxUcz95E18pLhPsu9+mbh3su87VHyf jv9Nx98lflhc1Rx8QHyr+FPZJ4ufENfhD4rvFP8o+0zxo+JS9tnip8T1xPPE /+h7/tBX78xalBw/jBKfkuw3XyU+OnnNPUvcMznmGcwamBxPni0+Ljn+OVd8 bHLcNUB8cnLscQXrp/hN1m7mZnJsM4Y5lRwzXC0+SvyWjukn7pscA1zLmpkc U10oPiE55hkhXlF6LR9I7KZjv2Fflv098VviDcQr9foytbfUmsv+pvqpOv47 9a+rvVH1PPhF/RzZtxP/Kp4r7iBuomv1grg9a4v4eXEr9Wvjr6mtF/zZ02Rv J24o27N8jvrGNb9nT9kb4UfL/pOOfVvtHbX1g2OYO2RvFvxbpoi/Uf+K2qtq 68j+svpJhccpsdOMwnOFc5st3jr4fB4gNhQ3wJcXry1eyjogbiJ+STxR3FT8 mvh24lD1S6o+bi3ZX2QflH3d4O+fTPyufnHVr20Z/Pvuk30bfJ2az7lj8PVY JPtO5MbYv8TbM8Z0/LzC8/538UPiXcWrsL8UXksS+2PhtaTGHld4zQjsxYVj 3Kuqjs93xOFlT5S9ofg52SaIG4lfYD0Uf6L++ar/Zs37S/3DsrcW/y2eX3h9 +lf8iHgf8Qb6zKXizuL1xUv4neo3xK9X2xGfV62ZWpdg28v4ReI1xAv5zYyJ mt/fKfjYFwuvnauyz4r3Eq8rXizeUv3qNb9/b9mbq39J9sbiRazzhdchzmdW 4bWH+3FX4TWJ+3cPeQPN6/XFe2jMrybeSNxOvIZ4U3F78Tri7cR7i9cWbyvu JG6IzyDuIF4Lf0PcUXxTsL/3p2zN1VrJ3kX28cH+2t+yvck4wc9n3wn2wf6R fRu19jr+UNm3E+8lPly8vXhv8RHirzgXfGLxZ5wjfqH4W86L2ED8ifgDfHTx p+KP8BvF1wf7wL/r895m7hBvyL6Z/t5Vn3+QuJW4p/hIcRQ3E+8m3lK8h/gQ 8cbincUHiDcQ7yjuKp4Y7HP+G53rJc6tyT412H+usp4Hx/hJfHdwnFuyVgfn CoJ4VnDMW4gfYI8l5hC/zFwTNxUvCPbPG4gfC46LV2efivaH8YsfCs4P1Ktz foscFP7i/OB4fDXWanxB2QrWY9nfJa6R/UXmhXhd8eLgOH4d9sTgGPdbvW+Y uCsxgvhSfH5iB/HkYF+aQOm64PjiV9lfY20RN8dPCI6Rv5L9cvGh4h/ETwfH EA11zDXBeY+fZX82ONZsLPuV4sPFP8r+QnDuoYnsu+scLiRWrHM8RC6Y30Te l/wvn3UtcTFrksb/aHE98Vbk6PTaqlX//TX3QX2Jv6Vj6tRvoWNWcN+q/nsy PoX6XWW/j5hOvK/4OuJ68dbi2eIujBPx7fgXjCVxC/X7qHVWGyN7ffXbyH41 sb94c/FVpb9/M/EXjCNxVe2K0v0m7Avc86rfPwl/B3+VnKq4AXuUeA65CPGB 4lEE2OKNxZeL/2GOiMeSJ5F9W3KkjN+KX7tM9r8ZD7JfSU5Ax2xKrlW2v5jj arcQp8veRva54q7MI/F88SHM5cL5n4cYAzXnnMg9zak4xnyMz6k5N4Xtlxxj Ps535BhzAetGzfkk8krPVpyDeprfWnP+ap74t5rzVwsZe4XzVxxbLZyjIlfF a7dVnHviPeSU5rMm1JzfeET8h3h7/fb9qr52D8m+v/qD9TnzyPmwDrBnYeN8 2SdK991kf0TcTdyd/YL7X/X7p+Bvqt+9cE6F3Arfdw95CcYE+xrXrOr331X6 771ln1X6+/YS30qMLN5JfBuxs7it+GZyL+x13PfgWJuY+87getDbec0hd/CO eEZwvWBZXnPIOb5V57WLOfOmeGFwDehD8SPBNYX3iB2CawrviucFx9TE1k8G 15s+kP3x4HrW++JfxW+zVuQ1lvH/m3iH6Dnyu3hPcXfxP+J20ddhsT6zg/hw 8b+ydxIfyVzQXO8o7lGt/JckmxZc/3pDx+wt+1Gy12TfPXoc/o3/Hz0+/8D/ j753f4m7iU8WL+N6R9/fP2U/TNxX/Lbstwfnul/L6zn1qdfrvNZR43hVvER8 v/jjvH6S2/1I/Ip4NrF2nddAxn8/febrwfNieZ33RMbkp+Jtgv1t/JwbdVwT /YaW4l/1+ppVz+2bZF9b/fbkumVvJG6oNl72pupby35Dadt2hXMzT1Q8r1bg H6ofotd/wr8VX1x6LyaPuVS/4bngfCx52VuCa3kvy35bcK3nlbzfsc6Sf/oB /1A8VPxR8Nz8Wse8Hzx/vxQvC55rn9V5ryGH+JX4neB14PPsh/M7v6jzHs0c OZt5E72+/VrnPNWTrFE158C5tuSlnywdLx+l8+2o/piq/36qdA7haNkXlB4b RxZesxlL5DU6qR1X9XGPlx5XPXTM86VzMr3EL5QeD73FC0vH6ceKnyj9GUeI F5XO7ZxQeDxR86KetTjnqchBvVg6L9Qn+9XkWO7PvvdXVftmxBn457xGDEJO 5sHs839ftd/+bOm8wfGFfX98bHIoj5XOnxwu+0ul9/eTsn/+bdV++JLS+aiT xS+XzkFRh1pauiZF/YsYiHiB735a9l5c08LzgdoZdSjqctStyHFQvyN/clHh uhj5GWpM75fOoVErwS+hRkZNjRrfuKprXtTm+IwLC9fyxlRdL8N/x48np0Pt j9zX4MJ1vRuqrqNRP6SmxmvEd1OrrulQr6Nux++gBkdti1oYNbWJVdeGOA/q RORxqPeRwxleuMY3ueo6FL+XmhSv/VTmHEvhGhD5qEsK1+b4jGHilaXzP9TR qHXeXHWNkvwh5zGy8Ligdsn14tqQZ+SziN24h/cWjrHw1cnFEP8RBxKf92ft 0JhfpfA6wlyO4jPFr+B2ic8QL8GPEZ8jXoZ/Ix4ofl+8hvg88Xv4EOJHS6+9 h4nPKj2Xk3hA6XV7NfG54nfE9QvPSdaNeuLTxIvZcguvI/hSTQuvBfhM64gP Kb3vUmOi9kUt6QG1Q0vvhdQUqJFh+4lcfuk1izwzeyPrP2OaGhlr7I+y9yhd gyBfPaK0P9S8cD2NtffevMbhzzUpvJbhB1Db6itehF9VuFbLfCO2pTZIfE2+ 7I/SeTbqqsTsXHtiZ2Lez6uOp6gtkgeeLt4sOMdCjLlFcP6EeJb4N+aYlJiY WIz8C7Hn8qpjNGJS8m8zcxzH63cWroF+VHX8TmxKTMdxxOaMi7sLXwPWUtbE rYLzOQsK5wrIS5CjoK5KPZp68V+lc4bUpn8pnVek9vpb6fwktVRq69RVqaVu neNuYm1qptRDqb1SM32/6lzEBsG5JnIg/5TOPVIz3Sg4f0UsT/2WXATXa5Pg HBcxNZqBQyrWdZCPxbf8Vut8Ge2vflfn8fZo9hXJ272UxzY+6ifsi4VzeMRH ZeGc36I8JskFvpDv9aDSfiA+4YTSfjU+7SWlYx/mAn4yMWYj8dTSey57KD7z ctkbioeXzhcxLy7N84g5NbJ07Nkgr/mH5jnFPJ2bfeDnSvuE+JDsUexVxLrs U/T7F/ariUGIBYaVjlWZaxeVjp2Zm1wnfPFP8r77Wl4ThuQ1oS7Pxzfz3Cc2 WprXimdK+7f46uNK+/zEBfTEAJw/scmPeU4R15A/b1Y4bvo+z/G35GP1IA+S 7P/h31NfHlxzTZq62cjM6+q1EeqHcg9rjl2Ys+TiL9Hfw2quDV6Wjzmy5rrh kJprh8QpHLte4RjnF/H6he8PvhF5ea4Z8528HjHUV3nuE1thW7uwr4TPRB6T +O7bvEZNLB3fERsS75BPWKtwzPW5uHFhn4rv2aDwsaxv1AaIHVn3uEaMKWI2 3k+8yevrFvYv8DPIZeCHkOvYr3CO8yRxz8IxFDmT9oXjjtbiDqwtpess1BO5 b8QnHEd811L9noXjTXI17QqPL2IPchP4ucQO5Cy2KF1zubfmWIbXOxb2x4lL ef+DpfM5e8i+Sek60Z0166/aVlxL3ap0HQftFrqv7hXrr9ACEXPPq9lHRpdF rI5+rEfF+i60atgerdnXIq/SpbAfjWaIXAC6Mmqm1FLXL12rpSaL5oTX55Nf K13PmlmzHow6LPXTDUrXnqjJsm+wf/Ad+EW7VR1nsd+R8+lc2G/sIO4qfrV0 /gc/B98QH5H7dGfpXBlx7t2lc2U7F47dNq46/nqlzD5n4VrBiVX7ZtQTyNsf V7hWgB+F34h/SNyBb4lPhW+J30g++9Sq/cxL8/ivcs9K5+WI8R8onU8gliTe bFt1nIgv2q7qXAQxOPe8U+F1iFiScyZWbVN1LEmMSfxOLHl/6ZweOYoZ4nWr jiPuKB2DEGvMLJ0T20E8rXTtjNhkeul6WavCsWrzquPQanQOYUWd5zzzGp3d 5Xm+969ZL3e0+pU6/ojgOj41fXR6PWrWBrDGUOunFn94cH0fjQ3auWPEPxbW yx0n/qmwZq+3+NfC3zkwfy+aI7RHvIY2r4/63wtreE4U/1Y4T7ub+MPCOV7q sB8w94PrwtSHyV23lv3twrnftuL3C+f4yfVTiyVnS134ncK1gJbiZYW1gr3E vxTOaaPLQqtGHYHcOHl48tVNc76XfDh1AWoB5MnXy/le8tJ8H7WGtsE5Z3LR TXPeme9GS4imkGuEnhFd4/FqDaLzVD/lXC5r8c/iRtG5oF9yHph17Udx/ei8 2Upxveg81Q91ziGz5rJf1UXniL6X/eDga41mcsPo8cC42Dx6vjBvNokee4zB g4I1lugnDwz+rWgyDwnWT6Kt2j/4fNBJdg3WTKKx7B6syUSHyTUg/849OyxY i4UOAZ0n5/1zYZ0aejVq2GgFqVl/JHu3YE0mWk00b7yORvTQYJ0nuk3uFVo6 3nNAsHYUfSZ5+zbidwvn5NEAvFf4XpHf52+0Yaep/7uwRqKv+K/CWpizah7r w/Lc+F+e9+fnve/i/Df7IbqZQfl49ld0X60rnhNoX/iODnm8t8/9wMwX5L/R uKJvOUP9P4W1NIiU/y08/9DT9Mu/55I8T5lH7N9H5t9yaf592C/L38E+PzL/ JrQ+/Hb0Z8Pza//vF/A3/gD6H84d8c+QfJ6sdcPyNRiUz5/v4bBB2X5W/izO H00O2pwB+TqMCN4L2BO4n2htmefU2rZV/0ZhLe7J4j8KaxX4jWh50PSeIvuf sp8WrGuils28pHaFroLazVbqXytc72Ouv1W4jsbrrxeer9Tz0F5Qq6Fmg8aC uh62Nwv7OsPyOfYL1jtRQx8QrHuh7nx+sPbpBfHAYF3Q83XWUaCDQgd3YbDu aFGdNQ8t8v7ZP1hj86zsI4P3bvbwMcG66yV11m9sWrFeaRTrnnhxnecTWmeu xbWyd5D9JdmvCtY1vSjeI9kfbUGuJnnt3pC6fbKfvbHsd2mO16+5pvxMsKa9 ca47oJ+kFnxBtPYS/caO0TlXatwto/2lHuLB4ier1nsMj67RoXNYHpzjpb4z KVhrTN3h0WB9OzWRS6PrkGgnpgTryqnF3B1dQ0P/cHl0PRNtRl1er3bnOkRr htED7Bqd4z1O/ESwbp/6S/9o/S0194+Dc8wb5fiFPXRX8dxgTTW1mPOzBoN6 9JXRNVO0HE8Fa+8b5jV2g7yuDo3WvV6e12HWzz3FLaJjh8PEzaJ9wn245sFa fupKx0VrlqitPxRdb0VXcEewFp76FPoiciVoD7aN9oW6i7dK9hd/oTYY7UPO yus2/saBOuaPYD98hzw28PF+itYykePAxyG/iq779FyfQlONNuDWYJ0+9TK0 UuRZyA81jfZpO9dZK0WOBv+oCTVC/Jacm0ULTd3/hGidMzqoh4O18dS27o+u M6N/mBVdS0XX9LmOeb7iuuGA6LiY+Hj/aG35SeRpo/fQZroGfaJzR+SQ2iXH Yy2ZO9EabDQ/c6JrxOzJj0fH+w117APRtWz28POidcvol56MjqnZ/6dH5/qI s8+I1jAPybnW4RXnV2dE5/3W1GeuDM7/oEc6JVqnjb7iluh8Qn0ds02ybvUP 2W6Lzlesjl4mWZ/6F98ZnC9C/3BvtAYAbc/Wyf79b9GaELRbaGzWj84tU+sc H52XWE3HnhWtOUcHNTG6Po62ZFp0vrFBct4eXX2v/F3kJfB3ro/Ot5Cr+F+0 vhrt1uLotbqJ3rsk2ndaR3xatFYcXUe/6BwFuYre0dp8NHIvRa+9a+v4V6L9 tKZoSWKutaPxid6vm4tfjvbZ1hUPjM5vkOdAl0V+E83Psmgfb30dc2N03mNV 9CzR/gC+6vPR+0Jj2Z+NXvMboYWJ9idZG0+O1tuj31sUvaesJfvXwTEmGqQ9 ous/x7OuRvszxNd9o3XpaMnI4RPbUutEM0YOFA0SYwldBJo9ai7E763qrDMk l4reZmzwMzXUwTl3tOvoBkdE6wfQ8PD78SHQBKIxIz9GngxdGXlh9FrPROv9 0fU9Hf2MABohdGjkqtDwTI7WZqAlWxCtf0BrdHWwDpbaboiuae6W7x3P0TyW rw/Pv6BjHBmtRUHbg46O3Ci6qVHRWhd0QYdEPyNyWh6rxL/7ibtHP2+CrhId HTk4tEPUeoi/jmXtita3oGe7IlgnTH35mmiNDfo66lPk8MnroMEj5z42rxU8 x4P+c5NkTfbn0dpFdJsn1HnsoYlFF/pncA4WDSHjB80ymsmbg5+ZQAvxW3Cu tXUeA+iQ0YLWomuz6BJvDH4OC63FY9H6EfRaq0bXqNFy3BytY0HXd220lgnt 3N9674cV67gQnFPLRQP5QbR/ibYTrSB5ZzR1Gyfr+5dzn5Nj8q/FmyXH2ysY d9E1a/QkmyfH59/LdlmwBpv6/kbJzyd8zPxIzmuwX1wSrH9GP7BFct5hpXhS cv6a2tCB0c/yoI38IDjfiVaBWuHpeb58GZyLRh8yO1pLhXaONXNFzpPdH/zc Ul2+DuSCdhJvEZ0rIDahPnhq3uvH5zUcvd+4aD0Sut+p0VojNKsz8nrOGk6t ihi8m+xto3M7x4ifD36OD63CPtHP+KDt3DQ6NicO+jk4j0TejtoceTb2miHR z7Cg9xsWrV8alccSua8d6xxbkd84WLxf9PNM6EupzZHjwk+jlsrzXGhrb8zr MGsvtVHyFUfL/lZwXRptzLvBNUN0cUuD8/PoT3pEP5eEhvnV4No9uo750fol dIazZR9Ssdbl2GjdHfrn26O1Xmgj0cqSF0a7uIj9oGKdyTjxfhXrhdjX2FvR VbKXEQigpeRaUddA03tv8HNp6GdmBj/3h36G/QWdHtrXN4Jr/uiO9pV9YNW6 4rHR2jo0seyJ5A/Joa4XnX/bV/ae0ToydNrEs+RP9hdfF63lG5/3O/Z98v0v Bdcf0M8cFf1MWP987tT41tC4/ia4RoNm6bbkug610TeTY1f2qXn5fMkHvJEc 67Jn4bdQn1pFvCw5J8LehE8yKfszLyfH1eyDS5LjVfaa15NjWnybnaO1CYxP /FjqYinZjyKXS053zWiNCVqv15LjZPbTR/J9JCdBTMFzB/gMTyXXGPht1L7J 1aO5XZhcJ2DfXFfHNa5aV3ZPsj6G/MOryTE/e/HS5FwAPgDj4YSK/RbWvV45 D/NKcq4B34D8TM+KfZ5nkmsP+Cf4CdTg6vJvRi+H9vjeZE0GuY4vgnP7aIbx 06ZkH2B5XieJZfDr0PvNyXOfeiv3Gp+EOmbU541OfuYW7cSLyXkKfIARyc+y Esfh403Ifgt+IM8qootenJzHwW9E90sMid/ImvZpxRpmdLxN83hgbKAJRC/9 UnJ+BN/jueRaFP7es8m1FnzCxtHaAXR6zyfXqBiHLyTXjRpkfxXdKVprdMjk l/BpFyXrEvA/8XXRuKIJRye8Xh4DxIk8P0W8gLaBGkS/7LejQ0A32C259sA6 c0hyrpn47uDknCaxzKHJNRL25e7JeVX20AOSc6+sb12Tc5HMwf2S85Xs9fsn 52qJTfZKrm0Qf3VMrs2wzndKrv0Q3x2YnFdlrT4oOQdK7HNYci6YWKBF8rMl Ubxj8vNpa4m3S36GZBVxm+Tn/dYWt0+uJxET7Z1cVyBea5n8XMqq4lbJz9Ws wZqcXENiDd8++VmU+vgbyXUm/LfWyc/OrSneIfm5uEZ19lepd9eTrXNyvYr4 qEty3pZ48IFkvQIam4eS9QdobO5L1q6hqXgwWU+ANmb1aB0c+s/ZyRoI9DCs V19UrJmfm6x1QFdzf7I+AD0Pmp/JFZ8XeiGeK+Rc5iTrJ9DbPJ1cI+Q3z0vW KKDtmZ+sP0Db0zpaH4cO89FkDQEaxeHJzyqTA9k3Oe/M+jws+fkuch37JOem iR8fSdY3oAV6LLk2X6p/Mrm++99al6yHQEe0ILkOylrxeHK9P6h/IrlWyhy/ P+9TjIe7k7WA5FFHBz9DjdYRHdTUiu/Xjcn1b3RTw2XfoWL95NDgvBX6yXHJ NW90U4OCn2/jGZkhwc+moZO8Nvn/BaBxOjP4OSme37ki+Zlt9Dnjk+vi6LVG Jj9XT67m7OBnp3hOZ2qyDgB9zl3J2kFyvJclP6NLnufm5Lo+WqbLk5/jJV+0 dbTuEY3uqORnyNELDch5of+exYzWp6GnHRz8jBvP4JBPa/P/ebZoPSox9cxk 7Rp5Y3RHPH/K/Lo9WXOAdojcV4eK/epZyRo48s93JmvgyEujVZte8bwgH4I+ Cu0xfhd1f+r/pwc/X8gzUNOSdQNo0u5I1lpRdyavgk4P7fGMZE0VNWiepyAP SNxKbo1cGf4wfgvaROb+9GRtFvWOKckaCzRO+Jbo9NAPT0jWH6ANOzf4mT6e geK5qh45lhyb/D8g0OyRe0HXh974+uT/+4B+b2j2kfDDxyT/vwb0e1cm/48A NFq3JutC0Jih0+P5X9YfnskiD86zOTzfsUnORUxM1n+gQyMmmp/jPnKM++S8 4g3J/5MC7R86Q55rZg0kx4W2A83h1cn/YwK93HXJ/1cCnSH5zE45b4nPf1DO 05Kz5Vla4ohLk/+nA3nIa5L/L8Z/WrtkPQraMHKV1BxX5viiW85tXpL8/ynI hZK3QUfEfCdPgl6IuXxLsj4GPR55V/KixCPo0KiVozW4Kvl/KKDrI3eKPoFY pm9wXpvn2m5K1q+gbyRXSW4Kjfr/AaGLZzY= "]], Polygon3DBox[CompressedData[" 1:eJw1nAn4V9PXxe/3zjKlREgqDUKiMs+pkApliBKlDEn1NyukNJEKRZopIdKk EU2kaCaikKSUeR4y9a6Pdd/n6Tyddc+5w/fec/ZZe+19flU7dGvZNQyC4Mk4 CPQvODQNgoNKQTBZoGkeBHsJ58LjhRsLv5EFwWU64VKVj9VWW8cWqX6Fzh2a BEElHauo/s+r//lqu0ClYRQEDXTsMLVVUNlP9Ulqb6K281TOVHtdHTtYbdVU Kqs+Re3N1Pai/j9H7cfrWBWuzTVUf1bHz819zUOEX4h9r6V6vtZ6nstVNqe+ 5gFqfy72varp/1fUdrGed4Cet4baq6p9qo43z33PRrrfiSU/C894uvCRJT87 v+ks4eNK/q2LdL+mut75KuuEj4n8+/7Q9Z/QNasI/6365yoDhesI76v234Qf F64tvIfwD8KPClcV/kf1bSoPCi/W9Zvr2s1U1uv6C4XPVb2JymrhJcIXqX6h ygbh14TPVv0slbeEj9T19tT1f9L1HtP1jhLeS/hn4WHCC9S/kfqeo7JC/Y+I /L2/V/sjak91LBQerXoj/fZIeLfaRvJdhGupf6r2b/n+OlYtcvsXKg8JP6l3 fL7qdVQ/Wv2X6T7XCTdXOUbHXtf9W+lYS5WN3F99Fqh+mdofTvyNz9A1jyn5 2zMmzxauV/JYrSX8qvq34n2p/3LVr1e9hUpdXf8I9amuvtNVb5H7GzfR+aeU /O1rqp6o/o36D+EZhfcR/lV4uPDhwoHwDv03SPgl5oGOnaRjh3PtyO/nS55X bTWEI+GvhAdzPX6T8MuqX6R7/61n/JSxJ9yQsa//P9Az99Gx8WobrHol1blt WLyzN3WsQ+B3+Vvm8cM4mq62XzM/L889jXcjvHfJx8rp3r9k/t5896lq/znz eGBcvCR8l67ZUNc+SPd6QPjHzN+T7/qi8HeZxyPj8nnhnurfWPgQ9e8rXFXt bwovY4yr7XThuOR3uofuf4ZwVvKYwpb8kPn98J5e0PnfZ36/vOfJwicL/xt4 DDHWThUulfyOGYtfCy8N/IImqf9PmecP82iK8LeZ5xvz7jnhjdgWvb8DVM7W 832CLeEdqzQW3sxcV70yc4pvw7dV/TCVc4W3MFZUr6pynvBHjD3VD2LOCH+M bVP9EJVGwn8IXxvaJlwjvEu4o+oXqLQX7qJygp5vP72/Xnq+bsInC5cXvh/b oucvU/I32le/9xa1n6b2CmrvrfY/db3rQtuEDmo7Sf3/CvybdwvfrnKm6geq fx/1/0z9T1XfatgotVVR/9fV/obKFuHqwm+rvoI5K/yN8CbV99Z5z+r8h8Ni XSjG44lq36L6Zyr/qv8/6tcZe6rSSfh4tW8OPMYZ68cKf6j6RpXfhI8UXqv6 OpVvhf/S+dfr3BYq1wr/LXxjaJvWUfgp/V9efY9W2Uv3P0bnv6/6BpWf1f6v +ncJbUOuE35M/++htmoqCfNH/d9Vfb3KD2p/hrGAbVDZR+1DhPWag8MYUsx3 9V+u+lsq29V/t65/s/pcgl0R5mV0C70G3iC8Xf1f0eFdwuP1vhbqYonqJ6rt HuEv1b6Ed6VjE4W/yvzudws/I3yf+p3H+9V1+wkfqvb5ga/5gdp2Ci9W/R/1 n6D2L4RfFf5T+CnhysKvCS9Q2aT+D4W2HdiQkq45QbgCtpZvKlxP/T9S/WOe Wf1rCa9SfbXKV8I7hBfy7XTe07r+s/q/ovBxKvvq/MPUvijwM32i/i9nHvsH q7yi376JtZFzVBqqfW+1j1ffncLH6nq36BplIn8/nrcra0zk8fAe44c5rb4v MSaFX9H5NVj71Oc+bL1wzdDH3tT9nuO6jPfi+SYK11F9/+L33qxrVFa9HGur zu8uXJV21irhx0OPFcZMqmPjhY9kfqrsKTxf96uuY4ervKH7PRp6rDBmYrU/ LXwU1y/G56TQ77pCMb6Ghb5fXozHEcLVubZKJnyCGuLI7/8d5ofwEvVpy3ot fLT6LMWWCD8hPCezbVobeXzNzmy7DlVZoIealdm2rVZ7T7XPyPwtDlSZq/aZ mW3XSrX3UPtRcDrhq3X9x3X9eZltxTtqv1dtU4TL8q6F7xSem9kWVlFZrOtN E66g+v4qs4TrqM/nqg/X9WboelPVXl54uc6/S23TM9vit4Xvht+xngnvozJN 578kXE71/VRmCH/I2h/6HmfpeiP59rxr3qnezVjhI/j2KmWEf1H/q0Jzmrbq /6twO2y9ylWsn8LXhOZQ7YTr6Rm+YS7q/CXCxzFHGfvCC4V/Vv82jGWVNsI/ CV8ZmmNdKbxV+PTQY6Sp8Abho0L/hjOEfxduz9rBOxZeAp9W/eTE77c+a6zw c7rfUh37QP2PDv3OzhR+T/iI0O/oNOH3hWuH/ianCy/V9fZU/dTE82O06rUY e4xpvY9BrE3Y7sIe9FG/Btg7uEpuznSK8OGxuRSc63ThGrG5GHOWuTtOx15V 2x2Jr18RW6m2Bio/qP0FHVue2Ac4S/VasX2DC/X/DrWP0bH5icf0OarXjj3W 62LT1D5ax+aprVfi+VxZ7dXV1l/4RPiHcE3hoaHnc1LY6ytUftSxF7HZOniM +mwTflJ4VuIx3UT1o2KP9eb6f7vaR+rYHPil3l9brbXv6vglah+r/4+P7IPA Xy5X6aL6RzreBnuh8bme/iqD1HajynTVf1H7IrWPUPsG4fdVhqjtLl1rMP4K nFp9HlL7W6qPYh1X/yeFPxB+Rrib8N36fyj+Ez6B+g9U+zLVR+p4J7XfLzxP +FHhDsIjWV/xp4S78/1Zv7mf8P+Ehwm/I/wU6yTfV3iF8NsqffR8g4VXqj5G 7TeofVDmttGsy8LDM//Wp1kHhUcJbyz5no/q/DGsJyXfc5jwE8LvqT5B/buq fy/hucJzVLqp/TrmOP6IfttCtfdm/RSer3KL2r6J7MvcUPCBHyL7ml2L9fdp +Kj6vqLjt+r8p+B7wn/xzDr/x8i+X/diff4usm9xU8FPJqj/bvX9V2Wc+o8X /lP1eep3i653r/BM4cHMW/hp5LX/5oJfPMB6rPZFKnfp/BdUyrAGqG0l8wn+ UPI366W2+4Rnwf9VuggPYb1VfSw8R/37CC8Qfk3ldrX3h9+q/obKvcID4Neq PwmPVP++8AnhEfBM4X7wuZKP9VD/ccK78D85R3io8OqS79mP9Qv+hT+v82/S +TUy+5r7wXuF62T25Q7EruXmW/iC36n8pN9YP7Pveqjaz8rNJ/CVflH5o+AT +H7bVb4s+B++548qv2JfM/ueh+j8M+ED+r8v7wMfijme+dxyOn6y2o/I7HuV h4cLH5CZG0xReVvXq5B57mODsEXwT3zv31X+UvvBmddWOM464aMy+2YVdL3T cvNDfL+vVb5Xe23hnfADeHNuvopvx7Fv1F43s69+kNrPUPtt+n8A80vl69h8 Gl9/q8qOgm/DteBcnybmT3BhOPHH8HWd/yDzBR9U5++V2daOhQOq/U61P8z8 Vvku9phj7P0LL9D9H1P/dSV/04Fqu0P9H1J9Ij55bP8MLg4n35p4jDHW/lbb GwV/hIvBqTcmnqPM1T/UvqTgo3BnOPQGtVcr+H9Z/Ca1PyK8hrmEH5B7jDPW f0O7yD2nmdt/4usLV8rM9fAB1ifm2/gSXHOb8CFcLzAnghuV1XnPh16zblT7 xMyL2Wtqv03tzwiHwiXWbN1rbeq19kL1fUftPdQ+tWSbg+2BF8GP8AHx195N 7ZtdrPp67C/jSX1fUOmYWtNB27mIvmp/P7Wv0oq1OLcmgzbTkrU6twaD/boE LiC8KjI3rh/aX1wRmYsdG9ofbaf73ah73aByis69Svh61a9Rv1Y6v63wdcKd VE5MrZFgzy7TuR+q/Uq1X6u2DioNUvM6+F29gn/frPY+auut0krtbYQ7qt4O u6jzP0ztu10K9xDuqvYH1P4/eE5ujQmtqYXa1+XmnfBPfGT8ZXgifBEfE//4 7dRc6QLVV6v/u5G582mh/U94PNz9jIIv3Zl5vWPduxo9QviRko+1ZzwLDyl5 Db1a+PbMddbVduq/JjL3PSG0P99d7f3Vfmvk9RpNC22rmdrWCN+q9kElz5G2 aluVmhs2V/va3LwUflq34Ju3ZJ6fzNO2al8XmfueHFof+J/aB5ZsA67QtboJ 9yvZpl0mfFvm+cs8vkrnXyF8Db9FpZ7a34rMnesUfA+eDPc7uuCPOyKP5/YF X90ZeTx2KPjkl5HHLxoDekMlzZdZoTnPPdg/4ZmhOdfdwl9E/p5XF3z4Hj3P jJI5DFwGzjUntGYHF9se+f20K/j0V5HHe6fQesZY1gOd+6vKE+gzkecHPj36 xLeRxxcaAf78c5n5bwbnVf+ewtPgUvBy/M3M/nMMJ1f7JOFI9YVqvz23D/dC aE6Ib/d5VHDzgo9vi/y92xZ8/UDmf2CfEt8Sn29KaM6LL3iA3s/U0Jz31sSc dnpoDgvXvToz/7tJ5fTUmjd8pLXaNqnvR6n5weXCG3P7RIyPk4RXCV+v83uy 9uu5LhNeFtm3ObLg7/hVcPnaBb+/Tv17cD94j/p3FL5T+A6V83TtG4TvKfma zYWvzdzWOTJ/vUa4m3BXlbPU3kH4dtVvU2ki3F74Fua3yjnCnYTvZj6pXCB8 k3Av1e9TuQjuK3w/3E3Xv0LXv1H4XuGb4VnCnTP37SrcWrgZ9xB+L/bvrcj3 DfwNVur37Z/ZV5issgybqd/dM7C+eVpsTYL1sl9sfvGz2mcE5vNtYmuMaI13 xV5/WINZi+Eo6EHr1f/uwP7yqbHXeNZ61nD0pj46dnDkNfyXxGs8az0c42vs mc6/Q/WrVE6OzYHgQnAE9KMVau8SWG+up/a1wreqfqXKicJvCd+o+kUqxwq/ zdgPHG84Tnid8O2B/fuT0PxUKkbmXD/iwwkfEJmjfMeao/53BfbPT4mt0aHV 3R2br8Gh4FJwLPQ13glrM2s+7wpdCi3paZX2OucP4XmBNZlrhH8XnhuYc1wt /Jvw7MD+Wjvhv0JrS/jH18bWndCfJvDNhH8VnhXYf7sK/1t4ZmD/qm1sDgeX g2PuTPzMcE040n+/JbFWcGXs+clvgB89EPu38U3gA/fE/lZcY6Vwj+LaK+Hm wpeo1I/NEeGKcFD0LL4Z/KVX8S0ZI/Cd3rHHDmMCPnJvMVY4B77Ys7gWOhh6 2CSVjjq2Srhb4PhEA+E1wrcEjn+dIHyh7t205PjQXGIO2O+S41tzhFsJX1Ry fOlV9MzUsaVZql+Mf6r2c0uOd8wmZoB9LzneMQ8fFXtacvzhtdhrOGs5HOB4 Xesy7IDqp6os5JrCzUuOv82P3YfnW1ace0lq/rEx9np/cWq+8UHs+d409Xq1 PrY9apH6Xu/Hnv8XpuYTG2LP/5bY/5Ljda8wRlPf/63YfOYoYjbCM3lXwm0i +9/n4PPwDPAO1c9WeZ1nwO5gy/BxYmsQ/ZhfsbUJNJMhfI/YWgoaziDGQ2xt h3s0jXw+9yYGc0Hk6xObQXPoo/4tYmsRaBiPCreO7U+gAQ0UbhlbG+IbNYv8 vHw7Ykrn4SuVHGuapn7nRn7/NYVbYydVP0NlMe+MdaDk/ot4p/C8kuNRC4RX 47vqfperHC/8guzl3jq2l8qU1O8Qbsg34t3+qef7RH37q+/ZuTU37OkFsbU4 NJBews1iayPo0EuEn1e5LrbmyPztUmiRxHhPjBwTJV7TPPNYPUGlKmNHuH7J MThicc0yf2tivMRf8anxrQ+HywifgD+q6x8WOd7VIvPYJcZKrBWfHd+9KnZd uEFm361y5N+D7oD+8LVKxcScAe5QG9uh9osyv2tiesT2GgkfzbdWOQDul7lO DPe/eHPmuXmsyiFw1czzr7bK/nDhzN/mNJVacPnM3+Zkler4CpnnEu+gMr5B 5rlJTJjY8MTI2s93Kgcn1kHQQ75VOSixzoPe8wP3F94vs21Bg2S8ls1sayeq LFb7vpltLZok469cZq3wWZU3EvNc+O54la9i83b4+xiVncLlM39rNEbmxz6Z 14KnVBbAlyP7BqNUdqj/QZnXF2JCaxKv+6z/I1W+iK0poC0cBnfJrTOh/fys cmhiHQpt6EeVSsKNM9uyOvz+1Jrj3NDxX7RIeA58Z5jK1tg8CW4zXOXz2LwC fjFCZXts3gH/eEJlm3CTzLaVGDGx4nMzf1tyCoj3wyHhkrXwTXLHE8kXOFgl SR1vIz58uMo+wmcKVyt5DjAXiF8yF6qo7Kn204Qr8f0jx8MZP2VLjvmTH8CY ZeyikTA3iYeiJR6qkqeO15G/sL8KQQRi6MdFzpkg3kn8k/qBKmHqONEbgTnT 9bHjQIsDj4FOwqXIfAhN5MaCM6HNoMnApQgGLQ2skdyAL51ZL0azQruanNm2 LFW/O3TuKZnzP3gmno3fyG/lnRF/xWfCd9qsay3IPaeZ22guxPuq6Pi80PH3 vsKtMtveM1WOhCtntr3YZGwzugH6wQ7eX2KdEr3yK95BYp8e376G6m+p/6U6 v2HJNhxb3jKzbcUGY4uJf7O+1OSbsB5mttWcUwc9V7hRyTYcW95auHHJx+qm 1mXRZz/j/MS6K1repyplE+tw6HGbVfZNrEnPD8330KrRTdFPt6qUS6zzob1t 55sn1lnRW7eplE8cT/0zsI38J7Euh5azE/uV2J6Voy/vQ8/3ospPrF2Jvxf6 wYUlc4pTU+sXj6r+mMq1jP3cc6tnZL01yT137o2sV6OPMNceV7k+9TueGvn+ vPu7Cv8CH6RDoWdiK0ar3Fz45/gW+BjXpPYnmatPqnROvQZMifz7WRvQRIjB 46+jlaA5EINHT0CLSHPbml6R9SM0DmLy+NtoH/hcxLTRE/DFTtB7WBR5jhP/ wgcjZo8egW+GRkOMHr0H7QYbMD3yeoJtiIS789sjj2f0NPQvNOsH1d5A118Q eQwS30TfRz9Dsx2aWg9Hj0MTfgwup/4vR7bvk1NrwrMi20Pm2zFqnxvZhhLf Ys17IfJ4YS2sp/ZXI6+hxOuOFZ4feY0kvoZ+ge+GD3eVcGXWxMjjcUTq+AR6 G5r6w6lt9PORxy+2mzVzZuT1ibUUfR7tdZxKd+EjdL0ZkderZ1Pr+2jLaMzD ha9IHPNCvyG/qpyul8IpIvu7e+WeO/wmfht6NPfewhqS2v/n3t+rPJ/6nfPu +U3YFuKBaAloClOF98z92/gN/JZNsi/XRvbH0VfQHz5W/RPGsHDZ3M/Ob+S3 fqz+nSL7w+gz6P+MxS9Uxgvvm9vWMCYYG8QT+Bafq4xJrUcwVr5RmZTafvIt mYPMxf1yf2u+Md8avsZa+IvKS6njs4xNNA1yAz7U87SPrPehxxHvZCyg2c9M Ha/l2xOjmJc6vsq3J8YxO7VGSYwdfQ/t8tXCfsMRl6WOV2PbsfHEBonXwpfQ XIg9Eq9nLKOZvsr7xf+KPKaJV50i/EbkaxDvRtMk5wX9Eq0TjYwYJ/oU2hka HzFK9Au0P8YAY4F7ooWgGRLTRN9CS0RDJScH/RNtFU2OmCZ6CFodmi0xX/Q3 tNy9c9tKbAi2JMvNbXpH1qeJn6B1P6Nyh/r/kNrXxiZjm3em1r4aBs51+j61 rb4QjUE4yuw/DGaNTayBo4X/L3Z+RZjZn3iINTexZo92f2vs/Ahij8Qi3izW 1+9Sr31wHLjOj6m1gpYqAxPHAIgF3B47H2Rz4nyb22Lnd6DRo9XfGTu/6dvU XKkZPrHaPiv4/h2x80d+Su37kgNH/Pbn1L7ppSqDEnM8uN7F6j9C7WsL/7mz 8GjhUmb/ZgA+Pnwhs3/VF80gseaP9t9N/cfl1uzR7m8WHiv8Wuh7dS38b947 7x/NA/2DXD58me6Fv8xz8rz47Ogn6HJoQ8sL/pLq/o8HziHAf8mEnwh8bKbu HWf2zx6B8/At0JC4fuz8mySznjBMZbraymTWJkbxTYT3yKxNECPGH8oza0sj VGYnjhERK7pJ1xuTO35GPIMYXn+922/wAdTeVOX+xHEnuNXSgp8RW+ZeLwfW P4jnEUsgpnCPzh0XOleEnBHyS74M/X3I+UGP+To09yenB30FvwD/AA0C/QU/ AH8ADQY959vQvgA5OegTxB+JdRDzuD91vBdtF433AeE9csea+kWO/xB/JXb1 tMqtqWP9aENoROhBZXLHngZEjjcR/ySW/ZzK3anjj8SqJ8MxhPPcvsgDkeM9 X6bWohsHzh38M7U2R84J8Xhi/2hNaE7oR2iCaIOXqz5K7b+m1lZaqwxR2z/C HXkXKiOFf0k9vhhn5Ct8lVq7Pi9wbhV+D/7PkoIvf53626Fxo3XvSq2ttVMZ ntin4n1eqr4j1f596Od5PbC//EdqbZAcHfIX/kqtXbZnDCX22fh+rfCVco8z xhuaGPrlb6m1QnKmyY/4O/VvIceTXM/fU2uDbVQe1bUWhv7t/wusB8zNrQG1 LFmPJv4FV/tSZUJqDRgtGD5GbgOaDT4WGi9aDppsl8LnQqslJwDOva7gO50L Tr66GO83Fz44nPyh1DHj8QVnH5A6ZwBOu6IYX2hC+Gho1C2K9a574UO2TK3x o/VPLfjmj4zZyPMDvoqG1LXw8dCWiPEQ6yGG0i61JoVPikaNVrVK53eMrNGf kTqGRCxpSMFHibkQexlU8CVi7mMLDt43dY4EPuzGgr+RYzGy4Pj3pY65w/mX FvP3H93v8cj8j/WGGDyx+MX/Px9y54DVLcYfOZTkUmLziY/zDHC3T2M/G+vv xEIjGJw6JwQfZHkxf/9Sv2GR+RzzkxyPSYWG8EjqHAs0hvUF3/td/YdGtlfw c3JK0Bw2FHyVnI7RhY/TO3UOCbkkcwv+R84DuQ8zCv6OXr5n5DWP+D0aIRoD MUW0Q2JsaBDEvC4v+AMxP2KCr6fOcSJGWLXgH+SkEYM9pOAf5LARU6xc8CNy zIiJkO8E/yPGS6x3d8HX4PvE/IjhvpY6B4RckL8LvgZfJ+ZKDHR+6pwzYmrk Y8GvXs6tyZ5fcrx0Zm7NFY22fmp+ToyGmMz0go8TsyUmOKfg48TsiNG9nDqH jpgrOXbwNXLaiCGSrwZfg6+S44Amc2nqGBaxLPgX8xV/4fXI/Aw+TDyKHMEa cILEObzkvNUMnNtLDjA5i4cHzg0mB5scxKML+0qMklglMckrU/NfchTQiFqn 9hfmRObX8GV8SHx/+CJ8lhxwcupqF3wJvk9ODfmun6T2DxZH5rPwYXJmyJ3Z VfB74o3kULK+9Uick0bMt3rBR8l5JsedfGJyoYnvk6NGvupNiXOgybGsEjg3 ep/c2gA+Kb4p8ZI9InM08lHI8SbXmxz1kq7/WO6YzG0FnxuWO+ZCTGdKYo6w q4hhwB3IH9sami+QT8KasyU0v2Atmp9bs0XDbajrv5Jb021dcvyMNWJzaP7I 2tFf+KXQOdvwr4HCM0LzT+w5+f7EiOBHTwkPzh1Tgg9NFB4gPC10Djfr3aO5 YwzEmCYX+srk0Dnk8Ff2s7wYOoccfvmg+r8cer1lPRuSO0bSteB383LHCC4t OT4IpyMmBP+A683KHXNoVnK+AZxxU2h+CJccnjtGdmfBv8in2yDcu+BXs3PH ANAkyGeYkzvmQczitNT5gB+G5pfkt8BBifGxPsJNVxWaODGMM9X/idwxvR4F nyNfmJgV/OT9xByUmNWcwNz08dwxM2KA0/Clc8cQiCk01vVeyx1jaFNyPJQ1 +uPQ/J61G85HDAv+BhdkzwN7H9iTgB43NHcMCD77rNofzh3ju6ngy9jrvpE5 1m2pORZcCx+F3Bs4EdwIzkVuDD4Mvgw+OLk3cCy4FhyLXB/2m5wQWX9Ef2bP BHsn2GOBnoimg7aDhkN+C/HDLDJnJ5+JfGtiePDHjxLvsWCvBXsq0D/xIdAY 4a/4Fvg0xLzgk/g6+CjEDOA/+C6sL/dH9sG6pvZR0Bjxf/Bd8GHQKOFb+DaP 5I5pwF/wn4iPnBRZb61VrP89ImtUnVLvaWFvC5oqejz5DOR0k1N9b+I9Lux1 YQ9M+dQ+GjFJ+DK+26Dce4BuEB6XOH96dmg+CD97KPcepOuFxybeX9Ygsj5L fIM9MuyVYQ8N+iF7ZNgrwx6asqk1KbQpNDBynWYInxJZb0TfJH+UPUXsoSmT WmNDa0MTI7+CPSrsVWGPB3oze2zYa8MemT0LftE/Mue+MzVPhC8y/4kvkktL bhjjnfgsPBQ+in0jnowOgR4BP0B/nx1Zq4DfHFpoU2gv8AHiD9hV7Ct8Dr0R TrFQ9b0Tcw04A1xnr8RcAj8cfxz+hJ6JzoLeAn85uNCO0ErgI8Q7XoqstcAn 0XcZc2jvo2KPxbcyr3Wscax1KzKvHaxprG3YQPhvzdi2EZuKv1k9tq19MbJW A/9ET50WmQvDZ9GP0XXQd+CvxI+WZ873Zw1lLYXzwd32ScwF0ZnQm+B/6L2s 4XCL4xKv7azxcJH6idd+OAVrX93EXAMOwvNUS8xN4PPYfjQIcp/RH7Dd5K+g F69Fjw5ss7Hd+CPYbnwmcpfhQKzVdRJzIzgeXLBMYu43ObK2Bl9Er8bfgguw B4L8n5WZ5w6cFG6KLoc+B/8rV/hT+EP4tKMSa4loafBd9G38G+YOPhX7z1jj uV+VxGv/F6m5Sa3A+TJvZ87Hh0PAJdBf4BLsqSD/CA5Mrmjf2NyYfBDWWnx6 Yq+bhR8MbJOxzVuEhwZek1mbyd0gl5T5w37JSpGvx3xlPyPxMdZiNB1iw8Sz pgfOIVkt/FnmOmsOa8/WzGsPNh/bT+4FuaDYV/bvkftBbgbzmf2B5GqQC8t8 Zb8juSfkkrAHjf2S5DpsD7xesH/zU13/4cAcAa5APiprCzFXYq/kbpAPi31h fyb5rXARNAxyIyoWeggayKrENqiG+j4d2zZ9nporVQ2cz0Tsifgp9pP9pYtD +5LwIfJTWDOwdWNiryVwJvbHjojNpYjlEIsg5sD+VdY8YlHsD2Yt3J6ae1YP nC8FJ2d+V0/M1d/MzOXgeHA9YlHEwrDX7KfE5mH7n4ptC7F5rG3jYttCbC62 dEJsW4yNZ//kxNi2nzWBWO0zsdeKz1JzSfYEkA+2LPP+HDgkXPLzzNoCHAGu gJ5WP3A+KfFH9Bz2NtVT6Z1YP8B3Yw8C+W9hbu4AZ4A7kD8F9yMnoZH6lnLX 4RhwDfKzyMUkRwL/l3xAtOouhX9EPiba742F/4TPhfa+K7YvRr4W3IScCPx3 8r+uUr2dyvmp87XIHSQnA38eHx1fL03suxO/5v0S0yQfAR99tupZYt8dHxZf mw0U+LbEt3n/xDjZD0v+F7mm5BfgX+MDEsv5NbZvSDyX2CUxTPbj4sPhyxyf 2LdjoxNcGY4MVyYfDa5JzsPZ6vtvZm4HB4WLjtG5ZQPbCPbvkG+HtkFOBP78 P5m5I5oH2sffmWNdcEq45ajQe3+wOex3+Stz/gkcFC5K/ixclhwU8iV+zzx/ WLNZu//MnF8D54X7Pqnr7R3YprG/iPxafEVyZsid2ZXZV8SHxJf8I3O+Dj4k viT5nU1KPnYc/DX0XiXWOPZ77c78LvAp8C0eCf+TXP+bw+wnGy5cJvAcYz8a uWvkgrFnlv3FxFOZH8Q4yWchP4P5TIyZ/epwT7Q8/D/yyeGa6HH4f+Snb8vM neH84wruCZfDP/2y4B5o6egl5JsPKLgI+gv7V/oV3JacWPLLyeeGi5BDxv69 PTPreeh65NOgR+MLkV/J3iJ8Xtbnmol94TXEgwP7SPhKaEzsb9kjsfaE/ocv dFbgvUWrifcG9pHgA8Rvye8g5+NY9V0lfGpgHwx+gP6Ob0S+J3udBkbWLtGH 2F/TJ/L8Q7/4quC2xDbRN8ifQBNDG8kTa2VoMmhXYWKthnwS7CMxe/4eAJrR FNVLibUkNCHutzu2VkT+CPyHeDp/uwDNDK0lTqylocmQDxsl1mrQqNiPkiTW rohnY//IWSH/CG75Xzy35PwINDViuT/H1trQwNACP4utjaGh3Sq8Jba2Bpcl 3oo+t6Pg4sSO0QvJx7gv8vxHbyP/457I10ffI/+iZ8Hd0RPJ1yC3b1tgf5y/ d7AFvhd4Dxr5+2gS5Kd+Elur+ChzfiM+G77bobn3YxMTJjZcOXdsmBgwseCK uWNDxJCIJR2Ue78pMTFiY8QH8E255tTEfx+BWDPX/AA9JLNviE+Jb0n+NrFB nolnq5Q7VkyMmlg1Pj6xybWx7RnxBXxRcqzItWpcvM91se3/Ibn3gxNzJvZ8 WO7948SkiU2Xz72fj5gZsTP2e+AL9wuc23Zg7v2OxMCIhe2fO7ZGjIxY2fmR cylYg8gnw8dmPXk7tr3blNkXwEfHV0cjZv1ZWWjHxFPuwZeCcyb2gYnfvxN7 fePvR9QK/YzLU8fH4A7krL6o/h9m9kXQWNBaNmZuQ2NBa0EjIZ6+JrZ94+9j EOvjG73DWMgduySmSGyRPB3ydbCx5EfCL7AV2Az0LfJ6yO/B5pIPSW4duVms KeQ3kndF/hU2nHzLrTr/pMA54uSK87cayN1iTSFfEr4A94aDoz/xt0XIbUOv IF9xW2r7QY54tYJfYTuwIehR5K2Rv8aaRP4meXDkgrHGkJ+JJgB/PSe2VkAu 6g5h/sYBfw8DDQYtpWFsbQYf9H7sY2zfFI2ks/quiL2+4cP2VvsZsX1b/h4I sVjG2HvquyO1/SRnndx1NB3G8+rY6yt5MeTHsCYvKuYj3AcO1Dmx5tRf9bNj a1FoGIzHs2JrG/i0jLcZsddLfHi0kkaxfXvy7si/Y00nf5G/J0Islz2wK1PH 1+4LnINILuInme+HpoS2RHwVbYAc2ufV/n7m/Fo0Ft4fGs5jwufHtg/8/Rly P04v9Ej2RrcPPCfJ9+bvv5CbcCY2A18ttRZATjZ/X2Nd5r8/ggbA+66Q+1mJ aRPb/heOFbjP6MSaE3y8aWx7gaaIf9Ek9vhHA8N/OS/2fEMzgz8tj80nXg8d W8ImkU9OvBUtjt84See+l1n7Q6NjPKzPnF+OJsj3IE52TWCbRf43uVXErvlN /H0Tfl+fwGOEscLftiHWjB5Fvjm57TsD6z38/RI0SPyBI2Kvt2jg8NU3Y/MZ 8g/5vsS8yaUljk08G72Ev9cCWeHaPOOExBojv+/I2P7rO5n7osEwXt/NrHWi kT1c+Ius5azp6Nm8b8YGY2RMYg2e/QNLY/Mp8krJL4XTkb+8IbP2hqbE+COf kfk0MHCuLvFe3gXvhNxe4mrXBrZ57C8g74tcLzg1+cbkoZGPBscnv5i/R0Ou ETZ7k57lg8xjEw0WLZa8M3LJ4OjkJ1fJnWtEThK5SQfkzo0g54HcBzRn/Ndz Y9tH/n4PuRDY+DWpNV38w8axr/9/zL5Q/w== "]], Polygon3DBox[CompressedData[" 1:eJwt13m8zWUeB/Bzce+1r4OxZd9GxhgRUQ2RfSdeGRUloSwlZkRUdtlSJNMQ Q2TNcocylEl2sl77UhprKktKZN7P6z5/nNfvdd6/z/f7nHPv71lO6e792vXN lEgkPvFK9rqYmkgMypJI5M6cSBz3/jQslTWR6Oz6A+sgfCwlkbgkN1guDzsh d8b9onLtXC+y5nL75H6S+5dcPVYpKZEowH4n10LuLGsgt40VYM3ZN6w+28IK spbsW9aQ7WBf6ldAv8Xe1zZuX/dvsHmsrlxFY+SX+73aNu6dZ01k97Bbclvk nmTPyNViWeVusbfYWjaAbZbLxxapq2mMPvrsY39hh9kbbA7LrvY3Nl3tBrWD 1f4it5l1Zd1YDdaFfclah79LHPds+DuwafqV0W+AfhfkXma55I6ykyybMW6z t9mnageq2y9Xnx1RO0purlx+udquX8mV5BvlCrFW7H+sEdvJUtnPaqewNfr1 ZYVZa7lzrLHcbnbAGA3kjno/2hjz3C8p18n1e7n2/KjcPewxdoW1ZYdZEdY2 fB/WjO1lO/Qrod8a7xvrNyw8bHJ7WE+5/j5LA7kk9hV7jr3IGrK7anezZ1k/ Vp/lk6uix39ZNj0XsUxsr1wv9pJcI5bMrrM32XL2HLup38esKXuIVWZ55Crq t5Fl1m8e+9orv9xk70vGZ+1ntV+wv8o9pba6TF61ld37nKXILmBZ2FW58WyJ XA/2q9ptrBvryeqwrawwW67uIWMM1KeE2o6u38m14elymdlJuUFsnNouLCcr LbeO3WLvsRT2k9wktpL1YduNUYyt0quhMYaoucY+YHXkysnlkSuutoN7l1kr 2YPsqtwcudqsjFwuVkyuvdwl1lLuAMvBSrJ/s5tyM1huVp79hyXk5rDf9Nul Xw/2gtzD7CB7hB2TGSs6X802VoR9zOqzwSyXfmVdP1V7R+37arfIFZRbKlc3 zqPrbC57QK68XF65c2FNYLPkKsV+i+TudV0jd01uiUw19ppcdpYud939wuxx 9o3ad9iOMAfYe+zPckXUZgnrFevMzsi9JbdV7iRrzy6xuWwjK8AeY6fYZLaZ rWY1XTfE52+9fidYW7kL3s+WW+/+02wf6yLX1bhN5H5k/2S1wtxn2dkV9i77 EyvEksL/jT3Pbui3Rr99+uVjHdgJ9ibbxFJYc3aADWUr2TxWznWpfueSMv6X p1knue/lFsbvMZ5lcp0Q59trcj94lZb7KK7ZY9wfK5eUnDE/lsoND3tKWE/k PpSrLjcizDdWma2Mz+40dkptR/Ydmx8/81W5smxJfA7Gh+eAlWfL4tyayAar PcN6G3eQcbvJTGCZkzPWiBXs9fCZ2T/k7mPFWWrYy7wqshXxmZyiZrdcJfYZ ezxaNtaCHWQjWFqYy2wGq6ZfQf3uspfZ6bheDWRP6j+QnYrrX1jDngh7BevH Utle/Q6q7c+OsWfiPOos15MdiHtPd9aSvctyyr8T96gprBc7KPdE3Adbs+dZ Onsqrk3t2IvsRFx3+8c1pzc7FPfQHqxNmFvsJZYjzpljxuvLjrDurLdcR7lv WX+Wle2XSw97ExvAsrED7DA7w3qzTGw728W6sq2sbVib4tqZg7Vi6XFPXhfW CNYm7o2j45zJw9rF9WVcnIN72B/YJtY1PldX9CzJFsZ9f2Q4j8i9wJKNuzvO mU9YXdcvWE7ZzerS2P3ss7gHhP13JsuVnHE+2OgzT2VrWR22Ke5bm9izbH/c U8KZoUXYe1gflpntMO4eNWNSMw5p4+Ke8qrcfFaBLWcXkzL2rZHsrtqxbCEb wiqxV1iW+D0uqanMhsbvtoddZkdY47g2TWKLWQU2JH6WnewCK8P+xpLYFnaW lWd/j/+38JnPs8PsUXYyri+LwhmFPRjnx3A2ix1lTdjpuCYuYa3YElYzrmtl fY82bBm7P+5HFdgyVk1+bdwHV7ElrCpLi/vRCnaMNY3r81RjLHP/OGvGvo5r 9nL2AJvJyoR9K67te9lD7FCc0+/L1WCj4lk5nIFvsdtse3zue6mtq7YqGx6f +/CM/yjXgn3EasT1pZTcfWx0PFOflPtVbgT7hb3OZsfzaTprFNfsCXIL5Wqx MSyv3Gl2hx1iDdnx+NwvYFXYMJYS15Ir7A7bwZ6Oc7WeMaqzN1jOeBa9KbeS 1XBdH/fzdXKvsGtyQ9n0eL66zEay4mFfjbWzWamw57Iz8awyiSUnZ5xVVrFR bBbLzWawz9k0No1lZVPjGX08e5tlS844t69jE9jt8Lc2bprP1sy4M93/QK6M 62K5s/HM8AibL/dHlp8VYhNZFrmJ8dw0kk1n2dm0ePaeGH5DeFVRuzqeY6e7 P0UuxXVyPFOPkZnKUpMzztlpbCx7lC2Ie0DYk4uydmxFPIeVj2fRDmxl/D0T fjPdyzqyVfF3VGVWlXViq9mDrAqrxlaw6mGNimekNLYrrBFyG3zmTnEfrMdm sXLhvBH3t2HsBnuVzYxnx8bsw3iOKMyKsWZsUTz7FGX3sKZsIasez0Ml2M5w ZmDrjdsh7skPs9msUlj/4nnyPBsYn7Ujcifk/g9bmt2t "]]}]}, {}, {}, {}}, { {GrayLevel[0], Line3DBox[{646, 1, 642, 627, 26, 1386, 51, 1411, 76, 101, 1436, 126, 1461, 151, 176, 1486, 201, 1511, 226, 251, 1536, 276, 1561, 301, 326, 1586, 351, 1611, 376, 401, 1636, 426, 1661, 451, 476, 1686, 501, 1711, 526, 551, 1736, 576, 631, 648, 601, 644, 636, 602, 1010, 603, 1011, 604, 605, 1012, 606, 1013, 607, 608, 1014, 609, 1015, 610, 611, 1016, 612, 1017, 613, 614, 1018, 615, 1019, 616, 617, 1020, 618, 1021, 619, 620, 1022, 621, 1023, 622, 623, 1024, 624, 633, 649, 625, 645, 637, 600, 1759, 575, 550, 1734, 525, 1709, 500, 475, 1684, 450, 1659, 425, 400, 1634, 375, 1609, 350, 325, 1584, 300, 1559, 275, 250, 1534, 225, 1509, 200, 175, 1484, 150, 1459, 125, 100, 1434, 75, 1409, 50, 629, 647, 25, 643, 635, 24, 678, 23, 22, 676, 21, 674, 20, 19, 672, 18, 670, 17, 16, 668, 15, 666, 14, 13, 664, 12, 662, 11, 10, 660, 9, 658, 8, 7, 656, 6, 654, 5, 4, 652, 3, 650, 2, 634, 646}]}, { Line3DBox[{1386, 1760, 1385, 1040, 1387, 1989, 2175, 1388, 1761, 1389, 2081, 1762, 1390, 1990, 2176, 1391, 1763, 1392, 2082, 1764, 1393, 1991, 2177, 1394, 1765, 1395, 1046, 1396, 1992, 2178, 1397, 1766, 1398, 2083, 1767, 1399, 1993, 2179, 1400, 1768, 1401, 1050, 1402, 1994, 2180, 1403, 1769, 1404, 1052, 1405, 1995, 2181, 1406, 1770, 1407, 2084, 1771, 1408, 1772, 1409}], Line3DBox[{1411, 1773, 1410, 2085, 1774, 1412, 1056, 1413, 1775, 1414, 2086, 1776, 1415, 1058, 1416, 1777, 1417, 2087, 1778, 1418, 1996, 2182, 1419, 1779, 1420, 2088, 1780, 1421, 1997, 2183, 1422, 1781, 1423, 2089, 1782, 1424, 1998, 2184, 1425, 1783, 1426, 2090, 1784, 1427, 1999, 2185, 1428, 1785, 1429, 2091, 1786, 1430, 1068, 1431, 1787, 1432, 2092, 1788, 1433, 1789, 1434}], Line3DBox[{1436, 1790, 1435, 2000, 2186, 1437, 2001, 2187, 1438, 1791, 1439, 1087, 1440, 2002, 2188, 1441, 1792, 1442, 2003, 2189, 1443, 2004, 2190, 1444, 1793, 1445, 2005, 2191, 1446, 2006, 2192, 1447, 1794, 1448, 2007, 2193, 1449, 2008, 2194, 1450, 1795, 1451, 2009, 2195, 1452, 2010, 2196, 1453, 1796, 1454, 2011, 2197, 1455, 2012, 2198, 1456, 1797, 1457, 2093, 1798, 1458, 1799, 1459}], Line3DBox[{1461, 1800, 1460, 2094, 1801, 1462, 1101, 1463, 1802, 1464, 2095, 1803, 1465, 1103, 1466, 1804, 1467, 2096, 1805, 1468, 2013, 2199, 1469, 1806, 1470, 2097, 1807, 1471, 2014, 2200, 1472, 1808, 1473, 2098, 1809, 1474, 2015, 2201, 1475, 1810, 1476, 2099, 1811, 1477, 2016, 2202, 1478, 1812, 1479, 2100, 1813, 1480, 1113, 1481, 1814, 1482, 2101, 1815, 1483, 1816, 1484}], Line3DBox[{1486, 1817, 1485, 2017, 2203, 1487, 2018, 2204, 1488, 1818, 1489, 2102, 1819, 1490, 2019, 2205, 1491, 1820, 1492, 1134, 1493, 2020, 2206, 1494, 1821, 1495, 2021, 2207, 1496, 2022, 2208, 1497, 1822, 1498, 1138, 1499, 2023, 2209, 1500, 1823, 1501, 2024, 2210, 1502, 2025, 2211, 1503, 1824, 1504, 2026, 2212, 1505, 2027, 2213, 1506, 1825, 1507, 2103, 1826, 1508, 1827, 1509}], Line3DBox[{1511, 1828, 1510, 2104, 1829, 1512, 2105, 1830, 1513, 1831, 1514, 2106, 1832, 1515, 2107, 1833, 1516, 1834, 1517, 2108, 1835, 1518, 1150, 1519, 1836, 1520, 2109, 1837, 1521, 1152, 1522, 1838, 1523, 2110, 1839, 1524, 1154, 1525, 1840, 1526, 2111, 1841, 1527, 2028, 2214, 1528, 1842, 1529, 2112, 1843, 1530, 2113, 1844, 1531, 1845, 1532, 2114, 1846, 1533, 1847, 1534}], Line3DBox[{1536, 1848, 1535, 2029, 2215, 1537, 2030, 2216, 1538, 1849, 1539, 2115, 1850, 1540, 2031, 2217, 1541, 1851, 1542, 2116, 1852, 1543, 2032, 2218, 1544, 1853, 1545, 1181, 1546, 2033, 2219, 1547, 1854, 1548, 2117, 1855, 1549, 2034, 2220, 1550, 1856, 1551, 2035, 2221, 1552, 2036, 2222, 1553, 1857, 1554, 2037, 2223, 1555, 2038, 2224, 1556, 1858, 1557, 2118, 1859, 1558, 1860, 1559}], Line3DBox[{1561, 1861, 1560, 2119, 1862, 1562, 2120, 1863, 1563, 1864, 1564, 2121, 1865, 1565, 2122, 1866, 1566, 1867, 1567, 2123, 1868, 1568, 1195, 1569, 1869, 1570, 2124, 1870, 1571, 1197, 1572, 1871, 1573, 2125, 1872, 1574, 1199, 1575, 1873, 1576, 2126, 1874, 1577, 2039, 2225, 1578, 1875, 1579, 2127, 1876, 1580, 2128, 1877, 1581, 1878, 1582, 2129, 1879, 1583, 1880, 1584}], Line3DBox[{1586, 1881, 1585, 2040, 2226, 1587, 2041, 2227, 1588, 1882, 1589, 2130, 1883, 1590, 2042, 2228, 1591, 1884, 1592, 2131, 1885, 1593, 2043, 2229, 1594, 1886, 1595, 2044, 2230, 1596, 2045, 2231, 1597, 1887, 1598, 1228, 1599, 2046, 2232, 1600, 1888, 1601, 2047, 2233, 1602, 2048, 2234, 1603, 1889, 1604, 2049, 2235, 1605, 2050, 2236, 1606, 1890, 1607, 2132, 1891, 1608, 1892, 1609}], Line3DBox[{1611, 1893, 1610, 2133, 1894, 1612, 2134, 1895, 1613, 1896, 1614, 2135, 1897, 1615, 2136, 1898, 1616, 1899, 1617, 2137, 1900, 1618, 1240, 1619, 1901, 1620, 2138, 1902, 1621, 1242, 1622, 1903, 1623, 2139, 1904, 1624, 1244, 1625, 1905, 1626, 2140, 1906, 1627, 2051, 2237, 1628, 1907, 1629, 2141, 1908, 1630, 2142, 1909, 1631, 1910, 1632, 2143, 1911, 1633, 1912, 1634}], Line3DBox[{1636, 1913, 1635, 1265, 1637, 2052, 2238, 1638, 1914, 1639, 2144, 1915, 1640, 2053, 2239, 1641, 1916, 1642, 2145, 1917, 1643, 2054, 2240, 1644, 1918, 1645, 1271, 1646, 2055, 2241, 1647, 1919, 1648, 2146, 1920, 1649, 2056, 2242, 1650, 1921, 1651, 1275, 1652, 2057, 2243, 1653, 1922, 1654, 1277, 1655, 2058, 2244, 1656, 1923, 1657, 2147, 1924, 1658, 1925, 1659}], Line3DBox[{1661, 1926, 1660, 2148, 1927, 1662, 2149, 1928, 1663, 1929, 1664, 2150, 1930, 1665, 2151, 1931, 1666, 1932, 1667, 2152, 1933, 1668, 2153, 1934, 1669, 1935, 1670, 2154, 1936, 1671, 2155, 1937, 1672, 1938, 1673, 2156, 1939, 1674, 2157, 1940, 1675, 1941, 1676, 2158, 1942, 1677, 1291, 1678, 1943, 1679, 2159, 1944, 1680, 2160, 1945, 1681, 1946, 1682, 2161, 1947, 1683, 1948, 1684}], Line3DBox[{1686, 1949, 1685, 1310, 1687, 2059, 2245, 1688, 1950, 1689, 2162, 1951, 1690, 2060, 2246, 1691, 1952, 1692, 2163, 1953, 1693, 2061, 2247, 1694, 1954, 1695, 2164, 1955, 1696, 2062, 2248, 1697, 1956, 1698, 2165, 1957, 1699, 2063, 2249, 1700, 1958, 1701, 1320, 1702, 2064, 2250, 1703, 1959, 1704, 1322, 1705, 2065, 2251, 1706, 1960, 1707, 2166, 1961, 1708, 1962, 1709}], Line3DBox[{1711, 1963, 1710, 2167, 1964, 1712, 1326, 1713, 1965, 1714, 2168, 1966, 1715, 1328, 1716, 1967, 1717, 2169, 1968, 1718, 1330, 1719, 1969, 1720, 2170, 1970, 1721, 1332, 1722, 1971, 1723, 2171, 1972, 1724, 1334, 1725, 1973, 1726, 2172, 1974, 1727, 2066, 2252, 1728, 1975, 1729, 2173, 1976, 1730, 1338, 1731, 1977, 1732, 2174, 1978, 1733, 1979, 1734}], Line3DBox[{1736, 1980, 1735, 2067, 2253, 1737, 2068, 2254, 1738, 1981, 1739, 2069, 2255, 1740, 2070, 2256, 1741, 1982, 1742, 2071, 2257, 1743, 2072, 2258, 1744, 1983, 1745, 2073, 2259, 1746, 2074, 2260, 1747, 1984, 1748, 2075, 2261, 1749, 2076, 2262, 1750, 1985, 1751, 2077, 2263, 1752, 2078, 2264, 1753, 1986, 1754, 2079, 2265, 1755, 2080, 2266, 1756, 1987, 1757, 1369, 1758, 1988, 1759}]}, { Line3DBox[{650, 1025, 651, 1040, 680, 1055, 2085, 695, 1070, 710, 2186, 1085, 725, 1100, 2094, 740, 1115, 755, 2203, 1130, 770, 1145, 2104, 785, 1160, 800, 2215, 1175, 815, 1190, 2119, 830, 1205, 845, 2226, 1220, 860, 1235, 2133, 875, 1250, 890, 1265, 905, 1280, 2148, 920, 1295, 935, 1310, 950, 1325, 2167, 965, 1340, 980, 2253, 1355, 995, 1370, 1010}], Line3DBox[{652, 1026, 653, 2175, 1041, 681, 1056, 696, 1071, 711, 2187, 1086, 726, 1101, 741, 1116, 756, 2204, 1131, 771, 1146, 2105, 786, 1161, 801, 2216, 1176, 816, 1191, 2120, 831, 1206, 846, 2227, 1221, 861, 1236, 2134, 876, 1251, 891, 2238, 1266, 906, 1281, 2149, 921, 1296, 936, 2245, 1311, 951, 1326, 966, 1341, 981, 2254, 1356, 996, 1371, 1011}], Line3DBox[{654, 1027, 655, 1042, 2081, 682, 1057, 2086, 697, 1072, 712, 1087, 727, 1102, 2095, 742, 1117, 757, 1132, 2102, 772, 1147, 2106, 787, 1162, 802, 1177, 2115, 817, 1192, 2121, 832, 1207, 847, 1222, 2130, 862, 1237, 2135, 877, 1252, 892, 1267, 2144, 907, 1282, 2150, 922, 1297, 937, 1312, 2162, 952, 1327, 2168, 967, 1342, 982, 2255, 1357, 997, 1372, 1012}], Line3DBox[{656, 1028, 657, 2176, 1043, 683, 1058, 698, 1073, 713, 2188, 1088, 728, 1103, 743, 1118, 758, 2205, 1133, 773, 1148, 2107, 788, 1163, 803, 2217, 1178, 818, 1193, 2122, 833, 1208, 848, 2228, 1223, 863, 1238, 2136, 878, 1253, 893, 2239, 1268, 908, 1283, 2151, 923, 1298, 938, 2246, 1313, 953, 1328, 968, 1343, 983, 2256, 1358, 998, 1373, 1013}], Line3DBox[{658, 1029, 659, 1044, 2082, 684, 1059, 2087, 699, 1074, 714, 2189, 1089, 729, 1104, 2096, 744, 1119, 759, 1134, 774, 1149, 2108, 789, 1164, 804, 1179, 2116, 819, 1194, 2123, 834, 1209, 849, 1224, 2131, 864, 1239, 2137, 879, 1254, 894, 1269, 2145, 909, 1284, 2152, 924, 1299, 939, 1314, 2163, 954, 1329, 2169, 969, 1344, 984, 2257, 1359, 999, 1374, 1014}], Line3DBox[{660, 1030, 661, 2177, 1045, 685, 2182, 1060, 700, 1075, 715, 2190, 1090, 730, 2199, 1105, 745, 1120, 760, 2206, 1135, 775, 1150, 790, 1165, 805, 2218, 1180, 820, 1195, 835, 1210, 850, 2229, 1225, 865, 1240, 880, 1255, 895, 2240, 1270, 910, 1285, 2153, 925, 1300, 940, 2247, 1315, 955, 1330, 970, 1345, 985, 2258, 1360, 1000, 1375, 1015}], Line3DBox[{662, 1031, 663, 1046, 686, 1061, 2088, 701, 1076, 716, 2191, 1091, 731, 1106, 2097, 746, 1121, 761, 2207, 1136, 776, 1151, 2109, 791, 1166, 806, 1181, 821, 1196, 2124, 836, 1211, 851, 2230, 1226, 866, 1241, 2138, 881, 1256, 896, 1271, 911, 1286, 2154, 926, 1301, 941, 1316, 2164, 956, 1331, 2170, 971, 1346, 986, 2259, 1361, 1001, 1376, 1016}], Line3DBox[{664, 1032, 665, 2178, 1047, 687, 2183, 1062, 702, 1077, 717, 2192, 1092, 732, 2200, 1107, 747, 1122, 762, 2208, 1137, 777, 1152, 792, 1167, 807, 2219, 1182, 822, 1197, 837, 1212, 852, 2231, 1227, 867, 1242, 882, 1257, 897, 2241, 1272, 912, 1287, 2155, 927, 1302, 942, 2248, 1317, 957, 1332, 972, 1347, 987, 2260, 1362, 1002, 1377, 1017}], Line3DBox[{666, 1033, 667, 1048, 2083, 688, 1063, 2089, 703, 1078, 718, 2193, 1093, 733, 1108, 2098, 748, 1123, 763, 1138, 778, 1153, 2110, 793, 1168, 808, 1183, 2117, 823, 1198, 2125, 838, 1213, 853, 1228, 868, 1243, 2139, 883, 1258, 898, 1273, 2146, 913, 1288, 2156, 928, 1303, 943, 1318, 2165, 958, 1333, 2171, 973, 1348, 988, 2261, 1363, 1003, 1378, 1018}], Line3DBox[{668, 1034, 669, 2179, 1049, 689, 2184, 1064, 704, 1079, 719, 2194, 1094, 734, 2201, 1109, 749, 1124, 764, 2209, 1139, 779, 1154, 794, 1169, 809, 2220, 1184, 824, 1199, 839, 1214, 854, 2232, 1229, 869, 1244, 884, 1259, 899, 2242, 1274, 914, 1289, 2157, 929, 1304, 944, 2249, 1319, 959, 1334, 974, 1349, 989, 2262, 1364, 1004, 1379, 1019}], Line3DBox[{670, 1035, 671, 1050, 690, 1065, 2090, 705, 1080, 720, 2195, 1095, 735, 1110, 2099, 750, 1125, 765, 2210, 1140, 780, 1155, 2111, 795, 1170, 810, 2221, 1185, 825, 1200, 2126, 840, 1215, 855, 2233, 1230, 870, 1245, 2140, 885, 1260, 900, 1275, 915, 1290, 2158, 930, 1305, 945, 1320, 960, 1335, 2172, 975, 1350, 990, 2263, 1365, 1005, 1380, 1020}], Line3DBox[{672, 1036, 673, 2180, 1051, 691, 2185, 1066, 706, 1081, 721, 2196, 1096, 736, 2202, 1111, 751, 1126, 766, 2211, 1141, 781, 2214, 1156, 796, 1171, 811, 2222, 1186, 826, 2225, 1201, 841, 1216, 856, 2234, 1231, 871, 2237, 1246, 886, 1261, 901, 2243, 1276, 916, 1291, 931, 1306, 946, 2250, 1321, 961, 2252, 1336, 976, 1351, 991, 2264, 1366, 1006, 1381, 1021}], Line3DBox[{674, 1037, 675, 1052, 692, 1067, 2091, 707, 1082, 722, 2197, 1097, 737, 1112, 2100, 752, 1127, 767, 2212, 1142, 782, 1157, 2112, 797, 1172, 812, 2223, 1187, 827, 1202, 2127, 842, 1217, 857, 2235, 1232, 872, 1247, 2141, 887, 1262, 902, 1277, 917, 1292, 2159, 932, 1307, 947, 1322, 962, 1337, 2173, 977, 1352, 992, 2265, 1367, 1007, 1382, 1022}], Line3DBox[{676, 1038, 677, 2181, 1053, 693, 1068, 708, 1083, 723, 2198, 1098, 738, 1113, 753, 1128, 768, 2213, 1143, 783, 1158, 2113, 798, 1173, 813, 2224, 1188, 828, 1203, 2128, 843, 1218, 858, 2236, 1233, 873, 1248, 2142, 888, 1263, 903, 2244, 1278, 918, 1293, 2160, 933, 1308, 948, 2251, 1323, 963, 1338, 978, 1353, 993, 2266, 1368, 1008, 1383, 1023}], Line3DBox[{678, 1039, 679, 1054, 2084, 694, 1069, 2092, 709, 1084, 724, 1099, 2093, 739, 1114, 2101, 754, 1129, 769, 1144, 2103, 784, 1159, 2114, 799, 1174, 814, 1189, 2118, 829, 1204, 2129, 844, 1219, 859, 1234, 2132, 874, 1249, 2143, 889, 1264, 904, 1279, 2147, 919, 1294, 2161, 934, 1309, 949, 1324, 2166, 964, 1339, 2174, 979, 1354, 994, 1369, 1009, 1384, 1024}]}, {}, {}}}, VertexNormals->CompressedData[" 1:eJx9XXVclNn3HjvWAlHsWLtr12TnGIiNtTZ216pf18COtQvEVsRCEQsDEMW5 2K696trdAYy9tr+Be55X3qPz+/4zH+f77uW+556598TzPLdgt0Eteia3WCxX 01osKRyfq4vP7dpxdGMbPr98TfifncZMqp2y3bImtjXl3qwq1mi2ylXr1rUq ju9zB2X9/cNeL9sfT1s9bfRymap+LvPBEp/tpNSe9eG5y9uydT2237P+avW5 +s6Xv3+00+K2j/YW/amatZFrdIYlF1epBWvuLfR3fB/zKe7O0dPNrUu27lpp rb5IdfXJdsfli51ulUqYh4+14tZP3R3zsX7i+dR+65kpZ6Zu1rzZ/hk0O08Q JfdZcqXKJzsFVbp7YfvI7tZdO/sMXnkmjLxudmnfPN5O9UPS/lk2fTdr2kWe j31OR1FsQcvkuhcd41/bcv+vnR2sk/xSWTPsiqHiOV80eBVlpyIvxw8dk97b au/Xd8/SGgfJXu7nMl/X2Mmi/zch4Prmop3yHaJetZYNKLPMTj3187Y48fwL Pb5tvBi/oZ6P7ctC83xW6fnbQsX8Sb+v7Y2b+X0vaPvYwovaOye1zw5tT9sm Yc/W2v42b2H/V3q9rK5ivUro9bV2Eus7UfuDdZTwB/Ybq/Qf+A38CM8nW1D5 Rf4+cxQ+W348HtDUMc+LHv2LzFg4Vf2a59gf15KtUMPLj7o7yPG+nYr1WR9o GazqV1/yZcnb1apCpZ9u3f9gpxt3Mw57f3sk/bt794PeExzfr24dkdkx/1m+ ZfM3DfOnLQVS1Duac7GKTvG40XbHOIcOH7dka7CCZo1pfrnMkibWqObDjt5y fP82tEjjz7GraV/Kohsii6+iFldGPb3/1k6Bf7vmOddyLRU4krn4yGHbKcXJ JbmyPrJTq7e7/Xs/Wk3RJUdVSHdyD63s8aT7m1N2qnsotNmLscsp108tfQu2 3U9RYVkLjNhupzSROxqsOjuHpuR3n7v93UHaEF5l7/Fl3/xq4/pjQfXuH6LR aWbtLzLfeF5NEs+30OOrHDz+Xh6/jZ6P2i7mw/NX2cT8X+v3VSHiffdq+yj7 wNwXktpnrLanOiDsuUzbX10R9vfX60V1xXo90utLRcX6ptZ+QJcCzP7A/kPS f7DvYB+Cf8Jv4EcYP9ez5/YVkxcqfO5ecMWtm+P7ye4t3z4eN07Vfz4ww6pl y9Uv+e17Tzi+96nlUqT/rml0rtLPEyPvL1MlrlXPvsrxfb80P/vNvryK/Ctn GjJ8n78aM2jT+laO9xrpd3xw4WehVON6ZNEX4V7Wp3m/+m16bacK1k3hf2bc Tqmunsv15/ElVPRBhSK9ntmput+HiBw9d1CXX4f5NTgZSqVrZXX1v2WniKJz emVx2U6LTs0/k3LpLkrtvvpjsfMO/z+6ruS4OqHUqeKC5Gd376GGWyuv6H3M sd8WXXt81owVlNb/XIqsF2x0sWv2nWX228nl69OS+/YEUTHfU38nKxjD/7bT af28Sime/0OPr9qJ8Xfr+ag5Yj7V9PxVEzH/cvp91cMr5vcdoO2jzs0bUyip fXy0PdVqYc+82v7qirD/A71eVEesV0m9rpRJrG8N7Q8UKfyB/Yek/+DcwjmG /RD7DvYh+DP8Bn6E+VzbduqfNf6TFT7nBtWcUtPhtyevenU50X8uLS30z1Hf LJPVsbyBMfscfu4+1uunE8uDaeLSCTW2FfJVPR+NeDLrnZ2a97ieYk/N7VS4 8NesW93KW/sVb56iS5yd8hUuE9P4ajj9XbtNgeGzJ9KU027ZT95x/N0rTV/E L4qkG7FZ0638OJ8qW0cu23vNTqV2r6nbNi6cPk9rPet/HoHk0+nA+5k37TRu zYpsuZ6G0czZH3eVS7GWpqT57cqgx3b6e9zpJU37r6FY78j+Ez8G0+uQFoML vXLsJ1tLRO9+FaSytV4cNS3VBv63na7o59VT8fxfenw1VYxfXs9HvRLz4fmr f8T8c+v3VTvE+zbQ9lEZOoS7JLVPGm1PtVjYc5y2v1oh7J8nLHGd6KpYr3Z6 fWmIWN9G2h/IS/gD+w9J/0HcgzgI5y/OLZxj2D+x72Afgv/Db+BHmH/uAxeG Z1o7x/jcMTPkaH3H9yMiPD2WZwymk392/MU2czLdD8i7f4fDDh6vJudOiDM8 2haedMRSzXYkOGuHhHhjW3iKbgUbhVNqn0NRZRrMUjmfVktz964jTljSpOzg jxHk1Wdt30uTAlW2o+49JzrWZU3tXP871z6cJrvU/XVF5HpV2fNUk/aO72v6 Ze6QdUQY9YluWtVr+hbV4f7NHJ0d67VtysVs5R3n7Jl93jtvZtmu+qdZG2N7 /O0cLP65fP37t7erTq/nT/zq2DeO6ufVKfG8lx5fdRPjb9DzUb5iPjx/VVHM f7N+X3W3g/l9K2v7qGszF45Lap/e2p7qqrDnmf2JdleFhf0v6PWiY2K97uv1 JW+xvpe0P1CU8Af2H5L+g7gZcTTiPcQ9iINwXuPcwjmG/Rb7DvYh/F7gN/Aj vO+wsk0fTf97ufG56Yhnqf/e28ltwH8lq1deT9OfHbLPO9HcNmLEzysaOJ7v MOjsvFKFNtOQgJzPUg9Yq3Y8OeAa6fidTpy7KP6l91bqN2luj9Nvd6n6wXvI 1REPTz/y2T4s/WZKXX5t6FiXGLXw7LLxp3bY6ac2TQo0nxBMWTosrZn1yCE1 op1tt8tsx7nzKF2D8EaLaVPnmuUPPziq0q28N/DUQDsdjDz476JOQSpHy1lj e304pvS/7VRPP682iudd9fgqvRh/rp6P+lrOPB+ev/IR8/9dv69qK943vbaP erfVIy6pfbpqOyp/Yc8l2v5qtLD/Ob1elE2sV6BeX+oi1jdM+wMNEf7A/kPS f5B3IQ9DfoG4GXE04kPEPYiDcL7j3MI5hv0Z+w72Ify+4DfwI9hn8PaE+fjY 8PmB59PuWKdsEWm62dxGjS04y2Wb2pXh6oBHz+3k/XPsuQNtu9u6Dwnp7ci/ VPZO8+sn5F+dr14+2OFwV1v+aUOKP+n/t+rkd2PtGR/HftKhjjVdqg62OxO2 TL7Y8KxKmbXyr3lfxjt+j4v2+rs2sb2Ztsjtzopz6ve430s8CYw39qv/vLc2 nNj3vDp2b1AVt3HxlDoq8Xnra36+NT/fXI9vvSHG76bnY80m5tNUz9/aVsy/ lX5f6zNf8/v20HaxviiRkA9+s4+vtqe1mLDnpzaJ9rfWFPZvq9fL5i3Wq6Fe X1tvsb5+2h9sK4Q/sP/YpP8gb0cej3wWeRfyMOQjiJsRRyOeRNyDOAjxAM4t nGPYz7HvYB/C7xF+Az+CPcuE1Ptzd9BOhc9RWbsM3X3GTqNGvE69zPE7z7p/ fY0jyQ6r/OXO1Uk7zE5PBt4Prl9op1rQbvngKUfOqLYVCwx7+CieRsZVHPLn 083KJ6jDua0eF1TxbJlaPGgST5PO+zwt+W6lGu0TWap+ikvq6fP0uV0vx9G6 0T0s6TYGUtUbtS63f3VJ6X/H0Tb9PI0Sz0/U41MbMX6cng/NEPPx1fOnlGL+ JfV7khu/7xh+37TaPrTr0ynXpPbppu1JQ4Q99+lzlHYJ+yerk7heKrdYr2x6 fVUxsb5K+4O6LvyB/UdJ/0HdB3Ug1E+QtyOPR/6LvAt5GPIXxM2IoxF/Iu5B HIT4AecWzjHs/9h3sA/h9wu/gR/B/tVuVR47uNMRhc9CEYFXbyVz5Bft6t6Y 0fuQir96YczgR2fVz/U6FhgwOJ6G/jP8QPQNm5qSN3+hoLn/qgC3XyefuhNH v2Ztdz9kbpi60D7PqNpzL6usIUGb/jcqjkYOifVLV3gfjfkQfT2g/xWl/x1H jfXz9I94/i89Pk3k8Rfw+A31fOiRmA/Pm0qJ+WfS70sdxfv6aPtQVJdSZ5Pa p722Jy0X9vzUO9H+9F7YP1dc4nqpS2K9Buv1VeXE+hbS/qAmCn9g/1HSf1A3 RB0R9TrUfVAHQr0FeTvyeOTLyLuQhyHfQdyMOBrxKuIexEGIN3Bu4RzDeYF9 B/sQfu/wG/gR1uv5uxNRrVOfUfhcFjBl347M8RQ2Jptfm/CjKkNdy8KgT+dV 8nvzw+POxlGWiWdS1toSpQK/lOoX+vGiCj5bLafX9jjjHFztVXzKh3SXVVBE 48MlQ+KorH6elovno/T4lI7HT8Hjv9bzoDtiPjx/qibm76ffl86J9+VzlE6P b74/qX0+6LiN1gp71tP2pxBhf5/pieulSoj1WqfXV20V66u0P6hqwh/Yf5T0 H9SdUYdGfRh1Q9QRUT9E3Qd1INRnkLcjj0d+jbwLeRjyI8TNiKMR3yLuQRyE +ATnFs4xnC/Yd7APYf+B38CP4D9hydJHtclwRuHzUb/5nWMzOfywTrHjyV33 q1EZmvV5kP+cmmTrk8a7RzyVOzmruf/vNlU51WLvzC/OKf3veErjmfg8+Yrn D+hxabMYP4ueD4WI+fD8qQfPH/tbO/2+5C3e95q2D+127189wT6p2T4WbU8q zPb0ZXvm1fanOsL+x/R6qTFivYbo9VWNxfrm1f6g8gp/YP9R0n/QtzD6GNyP QN0ZdWjUk1E3RB0R9UDUfVAHQj0HeTvyeOTjyLuQhyGfQtyMOBrxM+IexEGI Z3Bu4RzDeYR9B/sQ9hP4DfwI/lDsSpp9G6sfUvjMGbM/+eHydnowq32eQ00V PWu3bf3PnoeV/red6urnqCw/787PT9Tj0yMefwKPH6TnQ5l5Put4Pv/q+ZOc /wj9vtRKvG+8tg913zI0MsE+yBeWa3tSM7ZnerbnGm1/UsL+FZsmrpeS65VX r68KEus7TfuD2h1h9gf2HyX9B30v7Pfof6Fvge/RvzDXnYOM+rO5bhikUD9E 3QfjoP5jztuDjPwdeReeR/5ljpsDCfGzOe7ZR4h/cG5hHJxf5n3HZuw/Zr9R BP/Bf2/+fE7bcwyOaz7wsPH/T1lo3dbbsT9cDgjok3XuOWq+KmeMS8Qp/oyj 9Xo+JOfTY2GKgsUWXTG+P02eLpd/j6OBXaf9tuHZJbJ/iegyPmgLf8bRc20f 0nbxtsI+v6ZJdWf9p2NUsfL48H5d5/Gnnd59SrS/MT7sH18ps+qVdoNhn48h sXd2/efwN72+itdXYX03aX8wnoc/sP8Y38N/0DdFHxX+Nsm8Xyn4J/oW6GPA n1F3Rh0a/o+6IeqI+L2g7oM6EPYr5O3I4/F7RN6FPAy/X8TNiKPxe0fcgzgI +xXOLZxj2K+w72Afwv4De8GP4D94Tj4/gferL3q/IuxXvH9SaZ4P9qtzvF95 ivkP5/1qGL9vLL9vLO9X/nq/MuyzhPerPmxP7FereL86I+xflverf8R65eD9 Son1/Yv3K+kP7D9K+g/67ujD43xE3xR9VPRP0fdCHwznL/oW6GPgvEbdGXVo nO+oG6KOiPgKdR/UgRBfIW9HHo94A3kX8jDEJ4ibEUcjfkbcgzgI8Q/OLZxj 8AfsO+Z9KO6b34jnI3ncSDE+x3u0XcxnPMdXvcT8f+f4qrN438scXx3Q8ZUV 8dWn9jq+KsH2RHzlzvFVA2H/gxxfTRTr1Z/jq7ZifTneViWEP7D/KOk/wG0A x4F4Hn139OER/6Nvij4q8gX0vdAHQ36BvgX6GMhHUHdGHRr5C+qGqCMi30Hd B3Ug5EfI25HHI59C3oU8DPkX4mbE0YifEfcgDlon8kGcYzi/sO8EiufhN/Aj +M9jnsdjMR+eP3mI+U/mfPC8eN/0nA+e1fmgYZ9XnA+GCHtaOR/cLOzfjPPB 0mK9lpvzQWN9wzkf/E34A/uPkv4D3A9wQKg/ZDPXrxTqFei7ow+P+sY/5vqV Qj2korl+ZfS/fMz1K6N/gboz6tCoz6BuiDoi6jmlzPUrQv2nmrl+ZaxXD3P9 ytgfEDcjjsZ5BL9CHIT4B+fWOfE89p3xYnwPc/3KmE9pnndpMf/kXL/qJN63 Odevduv6lWGfxub6lWHPR+b6lWH/jOb6lbFeXcz1K2N93bl+NUn4A/uPkv4D 3BhwZKiXAvcDHBDqq8BtAMeBeiz67ujDo36Lvin6qKj3ou+FPhjqw+hboI+B ejLqzqhDo/6MuiHqiLA/6j6oA+H3jrwdeTzOF+RdyMMQvyFuNsfRcUbcgzgI 8Q/Ord/F+Nh3Jov5wG+Si/m78Hu6iPe9re1D23W93bBPA663/yHsuYzr7WHC /s/0eqkcYr3e6PVVRcT6buJ6+zX2h9/ZH9h/lPQf4A6BQ0R/B7gx4MjQDwLu Bzgg9I+A2wCOA/0m9N3Rh0d/Cn1T9FHRz0LfC30w9L/QtzD6GGxP1J1Rh8bv F3VD1BFxXqDugzoQ4hPk7cjjEQ8j7zLnYfFG3Bwrnkfcc1mMj3MrvZwP7zvN xfzhN/AjvO9DbR8rPmGfp9qe1rzCniu0/a01hP1r6vWyeYn1uqPX19ZRrO8L 7Q82f+EP7D826T/ArQLHin40cIfAIaJ/DdwYcGTodwP3AxwQ+uPAbQDHgX46 +u7ow6P/jr4p+qiwD/pe6IPh94i+BfoY2P9Rd0YdGvEG6oaoIyK+Rd0HdSDk U8jbzXm83ci7lojnETcjjsb4iHteifng3Gos5o99p4F4X/gN/Aj2Gc12HC3s uZHxDAOF/Z8yniGFWK8tjGdoKdb3MOMZegh/YP8h6T/APQMHDfwMcKvAsQJv A9whcIjA5wA3BhwZ8DzA/QAHBPwPcBvAceB90XdHHx6/L/RN0UfFfo6+F/pg iB/Qt0AfA/Eq6s6oQyM/Qt0QdUSJv0IdCPUf5O2rxPPIu9zF+IibrWI+iHse ifnj3Fom3hf7DvYh2Ad+s1HY8yLb/aKw/1XGX40U6xXL+KssYn1vMP7KV/gD +w9J/wFuHjh64P2AewYOGvhA4FaBYwWeELhD4BCBPwRuzMCR8fyB+wEOCL8X 4DaA48D+jL47+vCIB9A3RR8V8afR9+K8B/kO+hboY0i8KOrQqOfAr1BHRP0Q dZ+y4nnk7QfF+Mi7mon5IG7OKOaPuAdxEN4X5xbOMdgH+85TYU/4zVVhf3de J3exXm0YL3pBrG89xouOEv7A/kPSf8C7AA8D+GTg5oGjB54ZuGfgoIF/Bm4V OFbMB7hD4BDh/8CNAUeG/Ra4H+CAcL4DtwEcB+JJ9N3Rh0f+gr4p+qjIl9H3 Qh8M9Rn0LdDHEPh2Za5DG3h4lUM8j7pPfzE+8vblYj7Iu7qI+SNuRhyN90Xc gzgI9sG5tUXYE/tOrLA//KaNWK88vK55xPqWZHz7YeEP7D8k/Qe8HfB4wKcA 7wI8DPAvgJsHjh7jA/cMHDT8GbhV4FixfwJ3CBwizmvgxoAjQ3wI3A9wQMhP gdsAjgP5L/ru6MOj3oK+Kfqo6J+i74U+mOTjoI8h+Th/iedRN0QdEfVD1H3C xXyQt7uL+SPvQh6G/AtxM+Jo2Adxz2FhT5xbN4T9se/UE+sFvykp1vea9gfj E/7A/kPSfwR/0OqEP0hO+IPkhD9ITviD5IQ/SE74gzYn/EHlhD+onPAHlRP+ oHLCH1RO+IPKCX9QOeEPKif8QeWEP6ic8AeVE/6gzQl/kJzwB8kJf5Cc8AfJ CX+QnPAHDf/JOfbaronjxyp8Xp/6tHqA4/uanVX5EqnGqFxNej/7+LGJrdms Y3GnvybwaBKfo5tjfvg8yefxHP47PJ+ex8+hn7eK541PPI/n+L8jPI+/h/ni e/G8cvK8MQ7GlfMJP1mh6eDlAxQ+d1X6MuCh4/ud+t9UT3yPf+P/x/d1+N91 xPd5Sk0LqL2xv5o4d0XR6D+b2J69GvjTa8f34/S/rTtK6v8f3+M5/u8I3/Nz xn/n5HljHPz38u/i78lxxHyMv7voQZeyjUo1tI133VU6/ewFalPX2CPtHP7c t8ncGx++zFCztl0om63DQpU947R7cx3+eZ33H8T1X9ifef9UnoLP2Lynf41Q l/rWqLpLk114tVzlS3548kvH72v82jdTYx5Po6WpT82dkTFQbbG7/V342+/O arHU7JqUt8v1MkpmWfVvQv1sD+/zBYqMbVrkUDdrk1z9P0UvDqF7wbd7zHKc CwGX9zaqvHoNXfjS3cM+cyO9tvWv0CmhTsj7VXLBd+a+FEVynyqIz6POJYK9 Nvi0sg5/f39Vxnf7aVfVnGtub7XT3Yk9h0+ptJAyRvUodSDkABXMfbNp5Hrs Y1415gsedOJrfP3LYwPjQXz53Oylx7eNFOP/q8dXmcT49Xh/SynmzzhLtVvM v6C2j62lsM8CbR91VdjnMu97FkuMyf6Kz9lkFsvFpPZvrdfXtlOs7yS9vmqB WN8TvB9mFf7Tzwkfdr72T+tU4Z99tH9SgPBP7/qxcy4fWKKq7f1rdp3efipn 9VGr5zj+7h6O82sLXuTkDQ1+/unIIlrUpvLBkc0XqZFNXFKkcXw/iON5h78V TqjLPuN49Z5b4NN9Udsp4EjmFXWXrqUebXP+3OKhIw7kuN1f8EBPpB+fKsRz Hbk3CjtQ7mg0Dcl5e/uKw3bKzLifooJ/ekQ/r3KK58M5Dp8vxr+v56MWifkM 5njbsV5Fks5/un5ftUC87zKOq6V9Gmt7Egl75p34dtTng0Fq5PSy9c/RCKV+ 2fwo1rGOXzhPvyR4glVPW0YNrRJIo/f0TZN97Xh1Nnf+Nf0Txud8PJllgmtC nbs/8vHu+VNG7Y6gnTtqN/ywfxal9m/z+okjny3Defd/3B/uyHnuL22HtplV IJQ2z7mz+u34dXSp1dMbynG+/8E4KjfBxyytn1fyeR5ffRTj59XzUXvEfHj+ DjvHmOZfS7+vGibeN3bbj3mUObQ9aayw57mTnWpce7lS9b6bN3yi6yQK3dK+ 7nPH93u4znZE8OYyeO+sln7EClpbf0X3UYun08Mz/7SyfjL4eo79KWZ8Ur7e +cl1Oo8pFEFjZxzv/yRgoXoSOvjTaEcet47rZuO4316V61RZnwV3tg/cSPci fiv+37/blFtV2p/S4W/JEve9ZR7AqXXm+lhm/bx6IJ4P5jrYeDE+z0dNFPOp yvUux7kwIen83fT7qiDxvsFcjzgq7HNK25MGCnv2j8/Q/GT/Bcpz1d2mcWFL yT1nlU3HHd9v5jq5q+CRJe9QKXL/0fn0uX2hYiN9V1PlviXqXXlvp4xcD09m yRKf0IcZyfXeA1/mNbhffQsd3t6tkm3rVtU5pmH3+/fsNJPr3skFj29IeIVn ywJWUe63N8cFtT6i4mYdaho71k7LGefnLvh6A/TzKo94fgbXseX4PB91Qswn E9erk1m6mOafWr+v+ije14/rQW7CPn20PamxsGdIyk35FxZraC04IE/nmtPX UbrclrR9HePUYh4c6nP4HTXsm3tHoQz1bddyfs1X5tkm+jfZ3FtnHL/fXsxz 03HCNz6X58Fq1cru7GaLzxhRsuGY3epN37+bD7lqp67MB8gJfgD3iUZWbnsj 17Hfbcqv1OP1f/6jBg727Nv3b/DX6u59K/hr/Lw1hp//g5/vwviS3GL8uno+ 1ldiPn24D6fP2W/zb6rf13pRvG8Frlc2FfYJ1va0FRP2vD3DPvjx3BV0dOjS YhdShlLZdctnVHtp9D0pF9c7p3Hd70ie3DSBlqni+89/KLptOzX+tHHZ3icG v8nxuwvLmpTfFBlyILpGs13qUVzNAa2v2NS4mMnj6ofa6Sn3nWcLXtXiCg+z W39dr4r07zfr0ep/1VFbsxQh2eJplOBzrWc8aoB+noqK53l88BuM8Xk+FCvm k4H7mhbLbdP8j+v3pcLifS/WNvOwYJ/r2p7qjLAnDTh/K/mNrZT8SD2Pelk2 U6cq6t3B+45zkHEmFwXvZtmvyb8+a79ZFSw473eVdSdFH3XvGnjdTh0ZT2Kx FPgnKd9narnFAc0jDqsjf8/METAkRsXWsLj38nTEsYwbeSp4RvbVy3P57IlU /3lkDx7jekndrLBqUqudcdRW8Jt8Gd8br5+nd+J5L8aByPGn6PnQ32I+nbjP arF0Mc1/rX5fyi/eN1bbR0n71ND2VD8Je7q9vJ0lemckeXZ5OMU9dSg1qJ92 ZZlzjt+FrndTMY4LcF43/PO3E/MPhauWbz2r/rZrO7kdLuQXfNqR//LvM5ml /IGE/QC/0+Su81P79D2rDtfsuXiSxaY2N549fOPOeHrJuK/HgnfTvWeagRMa HVCFf38euHrSvyrNn6m2Zjsex+fgjmjgplcxvquzfp6KiuftZhyXMX4KPR86 LubD+1dCvGSafzP9vtRCvG9WwdOBfVy0PZW3sGeGwycnZ4uw0dleBQb9lnwd va8+I2q6zXEOMs5zlOBlZK50L25+xWh1ynLtZLNam+hkt44XRxywgw/i8OdV NRJwAam4X99+5snFpx5fUFkP2as/3Byh5mwr8qVbnnjKxLjNTYynA86t7RTq tC/nMbUs5PrC/lfPqj9mzfK+6xVPFRl3/qvgv7TRz9MK8XxGxs9tETyXDno+ lEPMh/GoDn8u4JGUz5JNvy8dF++72AlvJa22p/pX2LPihUllKu7YTzmb9v3p VdRCiurT87+R2+zkqvs9dFjwFAav+HX+CWuMellx4GeXVYF0ZumFKo0d+YKd 8diO+HN3Un7EvFt5ilU5fkl59Jg/vIx3iOo8qNHSzJviaCXjrtMLnsjGh96d ZzU+qYrsfX1xaNgBlevL0v88rsXTTsEHech4/lD9PJUUzwO/mF2M76fnQw14 Pp14Ps8Z5+HYN6KSzn+Yfl/6yu97mt/3k/ePeRzltD1VJmHP3avm5s/w1wGa 3yZ9nSL75lGPg54pL4fYyYPzgc6CZ/G/t4HX132JUWHZf64XPGieKnI4NNOE CDv4AozPXxn9N8cD70f2L3U8/LJKm+zZ9AuNdtCDEkHeLn/E0Vr+/ev9INwD +8CRGp/X3bp2Sm2a1mH5wp2d6c8O2Ud/yIu6gS1af0Z6gB8xOHBTX68Zp6j6 ds/ywR/3Ufo8s6+9fRyP8Xm/OWyMH/P17N3ihy7T/46GZeu5NpAuvTnxV4Zx cfSCcTZfvn6tnoC7OcLzH9AyRdoeX2PIp2w7lyNDxlP3ij0X/hJppwgzr8GC vmSEtqfK0DbRngr2ZPtTAW1/BftnYX/+V+DY/2B/zl4pcX0V/JlxQo6/m+jP 1jbsD3PYnztp/yH48wr25+KCR7CZ/bmm9k/Kyf4JO4cJvsAG9mf5PPMUqJIY fy77c1cxn3izPxv4/6Hsz7n5feHP77x/jPMvw/5cUdgzNe/P1/V+orCfhPD+ PEHgutPy/nxR71cK+9Ul8/5sxf7cmvfn/Ho/pLm8H6bn/XmnwLE35/15jd5v aSDvt+UZP3+F8fMtGT/fhPfnteJ5xu1ThBi/Fe/P+cR8rpr3ZwMPn4X353Pi fQOc4N6T8/58k+35ge2ZnuON+vp8VDgfS3C8gX47ztNaHG+00eevwvmb0Rxv WHFef3LR8Qaf77SFz/d7HAfEClw3xw+qmI4fCPGDheONYIEn78DxRgnxPI9P 8WJ8ng+dFvPJZI43jPl7cbzRSrxvOoEDh33ScLzRTNizFMfPyXS8pxDvvTbH zwZuYZo5flaIJ1ty/JxMx89Wd44/R5jjZ0K8Wt0cPxs454fm+JlucTys99mQ aOCrzzC++po5fibEz1XN8bMxvq85fjbm8zvHz8l0/GzM388cPxvve8scPxv2 KcbxcwZhz2jOBw/p/EUhfznP+aA740GQ76zjfLCIzo8U8iPGTSIfNPC3yzkf vKXzL0L+dYHzQeZbUDvofnA++LPO7+gY53dnGW88QOCNh3I+WJCfRz74D+eD s8T4gZwPPhbzue9rygeN+W/kfLCgeF8lcMKwz27OB08Je/7s+TJ3Qn0jh87H FfLxEozjBb4G+fuA/tu2JtQ3zup8XyHfZxwq6hsGHrWnv1/lhPrGfV1PINQT GAdry8y/V/xOB5TrfjWhvhGl6xU0iOsVQYy/tQv8bT/9vHUPP4/6BuN+rVnE +Dwf6xMxn6eMo+X6hjH/Ifp9rSfF++ZkvFE9YZ982p62/MKeY7leV1bXlxTq S4e4Xpdc4CTduF73QtevFOpXBcz1OivqXVe5XrdF18cI9bFgrte9FbjQqVyv S6/rbxTP9bffGI/6i8CjTuB6XQbxPONglRz/Otfrdor5FDTX64z5u3O9zi7e N5TrddI+o7heV1XY8yrXn6voeqlCvdTG9WeJG3Tl+nN3XY9VqMdWN9efDbzi Za4/e+l6L6HeG8r159qMk0R9OB/Xn/10PZlk/Rn4TNSfs3P9eb54fiPXnz3F +Fe4/txQzOc3c/3ZmH8erj93Fu8byvXnEcI+l7j+/Juwpzv3Uw7o+j+h/v+J +wQ5BI7uV+6n3NT9BUJ/oYG5n2LD7ygH91My7kzsXyj0L6C30orPbZzXFbmf Eq/7Iwr9EQvbOU7gFYtwPyVOPM91B9VGjJ+L+ymuYj4NzP0UY/41uJ9yQ7zv Y+6nZBf2ceV+yt/CnjW5P1hX97MI/az13B9sKXBlw7g/GKz7ZYR+WSdzf9CG /toV7g8G6X6cQj9uG/cHgwSObg/3B0vqfp8azP2+B19+jN+L5P5gKfH8Ju4P rhLjX+X+4Doxn67m/qAx/zHcH1wn3nc69wdbC/v8xv3BBsKenowfmKf7s4T+ bDfGCUiclQ/jAQJ1v5jQLw4w9/1t6DuP5P7+Zd2/Vuhf1+A+fhTjytAH38P9 +sy6n67QT0dfnnUaFPry+7n/nkU8z+OraDH+KO6n3xDzWWjumxvz78r98WXi fVs6waHV4n73ImFPgd8g9McFToPQZxd4DEK/XuAuDLyTwFco4AcEjsLAWQm8 hAKeQeAiDHyXwD8YzwucgzG+wDMY8xG4BWP+Ap9gvK/AIRj2EXgDw56Vbpbu d3DhcLVx6X2v2KwLVcM7fx0vlMCbcIJ72f+uVZWZYROpStW1D690X6FCrUGL ZiWcC05wLBk+Xg5Y0iqACuZsVvmZdSN1sV+wzXf8HhuwP0cIXEflz3u9R/0z lsr2zHj9busDFD2z3t3am+DPdWtInEm+3kvaHxk3S93Z0WFHv4YH6N8jX4eU czzfiP1Z4l5aXZ4c2jHeX51emOXqnQchdLvP67cZ3jj2MSc4ELeTLcsWudNH 3ajv12VX4Ar1cdKUBgcd309kf5b2SV+n1KhhfcbSkOZLJvU9v0BVbedaJofD nh8L9l90L/d8hc9lEevTDHb4ub8THfKAsBSPmr4JoBnXpmX81HmZqhZ40hb1 8Rse2zFPE36jVyvvZiU7bqJtS/a9jR4dTO0fLMjv4jhftvP+vEDgK+Lvd/7n VYoVNLLDh9W/dI2hvr3UnrmOvCw14zdKCvzGxjPHApLfXKVGuMRcCd8cQ0Ez VsbvCrdTGO/Pi8X40yLev9kbFao+n6z8ukzoBvr4qOD2LLF26mvszxNM+I27 RwvcnjdzjhruVv5q/a9L1IJVvid3OewQxvtzQ2GfLvcqnwheH0C++lPt6Nxz xkfH922Lp9pZ8/RyVdR97vkJTyepGT0nV17t+P4lxxsvBT7BLdvWF24zl9PV XZFe0xf7qbM/50/39mPSeCMmc1L8w/2dqduva7GLYrfM6v/XvYX0cKrLEs/7 33gTWaab8RV9fCv9r2H79bTUN7n/7hs7yD/37u73HXnWEK7Plhf4jeYTJvT8 4Bqi3vbesMGr/C76d8vbIz1vGPGMKiPGL5TzzqkMBXepdnnedR9fIYi67qhw 7NxdOzX8Fm+4JZ2/Z/W3C08NXaIuz746Lb3XLHXC65f3dod9XnC88UnYJ1fz fE+u7l5BAac6PSn51wwV7vIoXcJ+/qxQimFefYPUqnOhbWb2GUSlhnfbms3x fTTHz6sEPqFsyQbrJm9cQQUjqmYsOD8fvd2Ww/u4Cb+xanJS/ENs+W1xd/tH kH+pq/Xn7PtLeXa5njrnbQNfQQMFvmJinWlf7E82Uot3vmps/blqa8N+S5e9 /hY/uwn8Ru7YyDR7wzeqixvn5Nj42zg1+8aJ3EPefMNvdBTjl14QvP+fIRGq dNXS/td9etKQvwcUGHg7KX5j1dik82/WwmVNaKpANds1/uYNlyHUZeCblmsd 77uO4+clwj6vFy6q8LpJEM0cPrnekxFeqvPiyt6lEvCE/Ptfy/sB9oGznA+m FfiE/9bWyxXTZKHx+e/Tgbn//PRNnzmZpbw9Kf5h2rUKLbp57KBD/531ytoj ROXtO6D7DYd/LuR88LPQPQ4a8dOxRm3WU70b3lvHtVfqmGdV7xGO/SGA8RsZ Gb9xiPEb94pWW1g4eq1a625Z5Nlmn0qfLe2Iewcd5xHng+/F+G3vXOpYf9oO tWvN++6D3FerFFHLMjx/YKdsRj4YEpd0/m0r3Nv18sVS5aM/6diF4nX3Ofbh SZwPphH2GaX3F7qi9xvCPvO3vcEX19zTVMG695tvuLuaOnfoO2nUB7vx+28g 8Am5HvfpcmLmUNq17IDt4+pgapDxWafF7xLigWbd9HmtP1EfmPjyZo+QMiso Mu6/0jkWh6scJS6N3nnLbvQ7swl8xcDHn/NMnbOQHs2d3Gevyyk16vnGoGzF cQ76eXDfQx3l+sauy5uebm86Te2+9r8//WqfVDM69HvT5NeE8Z8n1jezivH3 l6r//HiLlar3/OeFc9feofw/L20141HC/Lt00/GSxYTfGLOgw5FJJ2apfbfD ym4/uIFc7yYf1O9twvhdsifkM9I++RuurxS8byL5+E/26fd5JTVcUmZbQj6Y Kl+n2wVPTqd5j2rW7VAwhGLcKkQ2cowTZa7XGfiEk1nHdP8yIEDdnZ0n/b67 Wyl+Q5boZXY7vTXqdRa3pPiH+GrFz41MHqz+2DDfc+jFaPXQvWXqp4fsdM1c r1Oop7V85O9SJdU8NXPawButtp1X5QsfL3d/SDz5MX7jV4Hf6NUwecMc8Suo 2qw0a6sNOq96VNnbPdo3nm5xvW6mwG/8l7xQYQpeSw2rzG/cedYe1WHg51xH HXHIe6NeF2PCbxTZfL7u3oajqWOFD/Z0v4RRvTQpevVwvO8LrtdJ+xR9Nyum Rwk/VW7SL/6WgespVUyaR3kdeesOjgMGcFyAeOAe15//FfiEPfz7n877AfaB tgZ+o6YJ/9Ay57zRAxz5Gz6Tpazd6OoYRzwv8BuFuD5870brqELptqmN4RWW 1+l7UeVNc+5OjSdx1JnxG6MFfuOB252GtVvupE+nSwwp2vSiOr3Jp7z1QRzG pycCv1F1YnXf6JmKqulPlbveesvWSXZqZ+A3zPPfpvcX7DeEfeYD15+lfR7r OEbN1XGNEc+M+zC96pU0O+lRbPPz5/aGUvrXnUMKOM7l7HxOS3zC9tHZa/kd 26mKTc4bGzR1B23/Orz7m3/s5GL0U7KY8A9PO09K6T3ihOqadsXryFc2deZm 9Ou1KRzfcz8Fn8u53zF7xLEK7byiVcV1w/edrXtRrauy9+yg49/q/GsEfuNp 2/JHfdPG0KABe7bPa3lRlV2z5NPo3XH0hPsoTwV+Y9SKY/Nv5j9Bz/43bdjt r0r947XAv2JKx/li9FNWmeb/9vzc4a1LhlH9IU+6N6u9g6KSn31mu+rwc66b lBL2Sd+wcM29uXep1z3Gb+7hs4msx2PnvHQ8X6KSS8kNB/ZQjfobK67Ntp6s q6a6/XnCcR450UGd1yJVhhYT96gKwQW9F2ULo/GW1VN3Os6dK0Z/8Hb1pPiN mwcGX5+qzqnGmdbn8k4XpTb67I6dOSiefuL+4DaB36h8cFfLir0OqUdtGv0v MMt59XljWO/W+eKpNOM3qgn8Rvdf2i4Zle4IXbSl3Pmu1XlVPc26XIcsxvgU LsZv2rjI/a9Lz1G9WS0+v92yV/WOG9Kr8IBveqSOfcOE37i96CfPPCMi6c8x 09LGTthK08alnf3wtJ1Wc39wgrBP+ju1bPtC9qosvkWe53y9gd784R+d6qjd yAfsnB8gL0jP/e6zAp9QneOAEI4LEA/EG/iNmhFJ8Q8h/PvHfoB9AP1uN4Gv qJV9SZ2GYX8rfN7ft+Rkvm3xFM74jf+EnmeWpfXaTD9znLLpT3X+pwUf2/h9 63eXEuN/0PsLPdH7jbHP2I1+t2Vv0vmv1nEMxeq4hhDPJGM+8yWJb9H5korQ +ZORN11bEZlvRsYDlL3s2aZ9WyymA1NT7P/PkbdW53ygu8BvtFuWb8GRkzEq 5/uf8tR/1ZWmZK3YOG+UxG8s9gB+w2vanqDMDS6rcxs+lA8YFkxnBlQ6PjUg jtaY8Bsh0dgHPoxufGR5hlOqQtOmaU9cH65eu7n75S2J+NkWjU/gN1qmeP/o N+9TNLfkiodTuq2lR5Nap+pcwI7xuS6y2xg/ffKyLfbUv0y5Kvm9LvSpv+pY 8tbHFsuT4jfG/5oUv9HyY/vaO/8XQ+NWjUkxuvU0CtmTu/TsvRK/sdoDddp2 6uCo7cUPqMrvvEe+mTWblsdXytRms5189Pf033+J36tl/L0b+/NugU9oqv+u Kq3/rtrIf/cbfuN2ZFL8Rt/ygU3u17qsPoc/9f/8fgNtiH3fKkvAN93a8gJf MWi/x82xfU8pr5ByM1NPXECj32WMylPoG05mi8Bv9J78atne1ydpZuP3624V 2p4Qh1U7mMNu+HNdMX7f4o1S3fO+TA1HlouK/zCXri591Czn0qT4DYtJ37J0 2aF7X56ModCyt7+U+eUvNWJu1vdRux37NuM3lLDPFe23qrL2WwW/HcZ1ga1c JzDqA2Z8nYFPWM75wF3OD/A7YvyDwz/PeiTFbyAOuM9xAX6n0J3eKvAVbvz7 d+X9APsA8BvnGb/xO+M3auv9xfi8x/sM9ufNYvxQvY/RM72PUR7ex77tz11q JMVvcL5EgXqfNPImP96ffYV9Ruh9WN3R+7DCPuym9236OjJx31bYt2uZ4w2j H3FNnwuKzwWFc+FbvOFnwj/wuaNInzuEcwdxwBOBr+inzzV1Xp9rVIPPNfz+ sR9gH6ikz016rM9NwrnpTPfvtj6XqYk+lwnnsqsRb5jxJ0v1uU9l9LmvcO5/ 1bwXVVzYp7SOKxTHFQpxhZuOQ+ipjkMU4pBMcab42cAnvNZxjmqo4xyFOKeN OX429OLG6ThK3dNxFCGOqs3x8xOBr3ip4zT1h47TCHEacLndBX5jjo4DieNA CuY40GqOn43x43ScST10nEmnOc5sa46fjflH6TiWCus4ViGOPWmOnw37TNJx srLrOFkhTv7I9cHpXC9EXJ1R65VQToFP2MF1AR+uEyBu/5YP+pnwD1bOBypx foC84L7AbyBfe8ZxAOIC7DMxTvTiYvn3j/0A+8ANzgdni/Hb6nzJ+LRw3vTO yAcT81lj/kd1XkZTdV5m1GeCOB/MJeyzT+d9aoTO+xTyvpo6T6QyOk9UyBOT WWLcE+obDQU+oanOQ1U3nYcq5KEOP+D6xqouSfEPyVMk5rnKS+e5hDzXEf8l 8lOyCnzFMJ1Hq+o6jybk0V++Bv2SEAe85LgA8UA3nafTHJ2nE/J0zjes7mL8 D7oOQCN0HYBQB+D5W/GJ+V/RdQbiOoNCnSGZZUKmhPpGI2GfSrqOoVbqOoZC HcOi6x6K6x4KdY/xXK/LIPAJPXRdhY7ouopCXcXVqNdZ4pLiH7bqug311HUb Qt1mnhOdsUhdF6IoXRei6VwXysP4DRL4jY667qSe6roToe60wHwPGi0An0vX tVS0rmsR6lpuRr2ugD3p/DPqupmK1HUzhboZ9IwyCfus1XU5KqPrcgp1OfQJ 0DdAHW8z15/XCHxCA64P9ud6IeqEVYz684TRSfEPrbgusJ3rBNhnUH9uLfAV cZwPrOf8wMgLEvdnf4/Mn834jSUcBzTjuADxAOrP/cX4U/j3f4L3A+wD1Y36 s2Vy0vl/1vVfhU/UgcO5/rxZ2OdPXWemCF1nNvpNH3RdWk0elliXJtSl0SdA 3wD9Ai9d96ZAXfdWqHt/66foeiF+RyV1XZ2K6bq6Ql0ddYFKAl9RRNftya7r 9oS6PfAbhwR+Y6zuC6jWui9A6AsgTsoqxo/TfQflp/sOhL7DN/xGgSxJ519N 9zXU6r2JfQ2FvsZDtstDYZ8Hum9Ct3XfRKFvUkj3WdQE3Wch9FmiuT/oJfAJ Vt3HoUu6j0Po43Q3+oPvTPiHn3WfiJrqPpFCn2gn9weXCHxFO92Hole6D6XQ h7rL+I2SAr/RSfe5FPe5FPpc0FkKEOM/0H009Vr30RT6aL2+4TdM+JN8uk+n /tV9OkKfbgz3B+sK+7TTfUAqrPuAhD5gX+4XDub+IfqGs839bgOfcJP7BL7c N8A+s8bod9c04R+mcH3wLdcLEc/UN+swGPiKEK4LcP5k5E26zr/AY73Ab9zm fMCX8wPkBZ7c744Q4/fmOGAXxwWIB9Ya/W4z/mQF//6n8H6AfcCD+921hX0s Pyf2s41P9LUb6T64GqD74IQ+uOM83ZiA35D4hAm6z04PdZ+d0Gd3xBndfoTf GKz7+HRC9/EV+vgWy/Mf4jeqaZwA3dM4AQWcgN43pnhIfZ65GoegKmocggIO wWIJ+SF+o5jGOaiSGueggHNwnCscL1m6JZ3/OY2jUJU1joKAo3D4U/CP8Bu+ GqdB4RqnQcBpQMcEuibAz0D3BDga4D2gHwE9CeCaoHcA/QPgysDPB18fuD7w ycEvB64S/GfwoYFrBV8X/F3gisEvBd8UuG7wIcGPBK4e/D3w+cATAd8M/DPw SsCPAl8KvB7wecqJ58E/SS3GB18ivZgP8P2lxPyBR48W7wv8NPDUsA/wvmOF PYFPvSrsDzylu1gv4P9qivUFXs3zx35C0k+Aaxkl7rmGPg5wWPBP6GvsEfdl Qy/ji8AVQN9hj7iPG3oEm8X93eDPg09v9GG5Hwb+N/Ig8G+/iPvEwaetIHAU 4H9uFveVg68I/iLqYODXeQj8BvhgWcTz4C+FiPHBJykh5gP+w2sxf/AZzov3 Bf4eeHzYB3joQ8KewDfbhP2Bx5U4EOBH14v1BZ6v24/9hKSfQBcJOknAB0JH CTg+4NmgXwM9G+A2obcC/RXgZqEPAr0Q4JahZwF9C+DGob8APQbg9qEXAP0A 8CbAbwff3eDpMD8Z/GzwhsAfBp8YvC3wXcF/BU8Q/EzwNcHTBJ/wD/E8+G9p xfjga9US8wG/aJqYP/gw68T7gr8BPgfsA76Bm7An8PGuwv7Ac/8q1gv442Fi fYGX9fmxn5D0E+AOoaeFeAZ6WxfEfcTQP4IeEuJM6PU0FngG6MtUFvcmQw8F +ijIc6Hf0UvcWw29ibTi3mroI3QU9z6Dz+8u8Bvgn4OPjjo5+NJ2cQ81+L3o F6FPBD4q+httjOc1f/LSd+PremtGMR/w08BXA88LfKrbvvJ9Nf/nobi3GnyV At/ZU/Mrqn9nf80HkPgT4Nc7fbe+Ot4N+LGf2KSfQGcNumvAP0OXDThiQ5+N 9aqgpwVcOvSeoP8EXgD0iaBXBF4G9HSgrwNeDPRfoAcDXhL0SqBfAl4Y9DWg twFeHvQgoA8BHQboF0DPALoB4NuDfw9eMPjh4IuDJw4+8xzxPPi34OOC9wq+ KPij4GmC3zhCzB98vOXifcEfA58M9gHf6aqwJ/g5l4X9wSfJIdYL/IcrYn2B 1x/5Yz9R0k8izfdGGfhk6Pc1EPfGQn8tUtw/C72wMgJHAX0r6F2hjgS9pJni PlzoB0FPCL9r6N08FfftAt/TQNzPC72PlwI3Av2LTOL+X+g1rBT3BUNfYK3A q4APv0I8D/52ejE++Mb3xHzAX60u5o9+APidwIllNt8n9Q3fwvXQYGFP8LtC hf1bOcG9gD+zTawv+B41fuwnSvoJdBuh4wh+B3QewWMAHwH6fdDzgy4f9OOg PwfeE/TRoJcG3hn0vKDvBZ0u6E9Bjwo6VNBLgn4SeK/Q94HeD3jH0KOBPg14 39BPgZ4KdFGg9wH9D+h4QJ8CehXQqYA+AvQVoJMA/j/0AMDrB1+9s5gP+NXg W4NnDT4w+MHgBYO/Cj4reKzgW4J/CR4l+IH5hP3BZ6so1gv8K/CxwKsCX2jP j/1EST8B7wK8ItSj5pvuh/WqgfoJ9B8zi3tgoVf4h5N7YIHXRp0cenDLxT2w b024l7p75T2w0N9aL+6BhV6Ur7gHFn1U7DPQ36no5B5Y6Mc8NN0DC32TbziZ MNM9sLZo4DqgHwE8AnQkgk34mR3R8h5Y4HbQ5wWf/Ky4Bxb85yBxDyz4ur85 uQdW2j/OhLdZ5iHvgQWfz+CJcL3SiZ8o6SfQgYUuLPwQurHgUcEPoR8KPVG5 X0H/Ev4PfUboNeL3Aj1B6Ativ4ox71dW8MSh1wb9NuxX0BeD3hj2K+hhQR8L +wP0m6DnhP0KekPQH8J+BX0c6OVAJwf7FfRdsF9BfwR6JNivoJfRQcwH+g7X xPyhRzBUvC/48+DTwz7ge4P/jf0K/OTswv7g0xYR6wX+J/ig2K/AV9z/Yz9R 0k+gFwz9YJyb0BeuJ+5hhP5suLjP8aM5vjL6RND3RL9OxlczxP2S0E+EniLi Bz9zfEUyvvIS910ivrILnAz0vzKK+zqhVwX9KnN8dRjx1Td8DsdXy8Xz0K9J J+7rjDfHVyTjq6pi/tCzgL4F4ivoL0CPQcZXa4U9wW/fKOzfxqwLZ6wX+MOb xPpGm+Mr6SdK+gl0paEzjTgfOtTgcSLOh34x9IyRL0BvF/q7yC8mmvNBQyf2 hDkfNHRNob8JPU7kO7HmfNDQCYG+IfQOkU9Bjw/6fMgHoR8HPTnkg9A7g/4Z dM+gzwW9Luh0QU8K+lLIB6F/BD0k5IOnzfmgodsDfRlfMX/ooQSK931izgcN +0Bv4rqwJ/QRrgj7g8+fS6wX+OdXxfqCLz3qx36ipJ+Adwo98m91Ca1Xflnc lwf9a+hhf6tvxCStX6lv9SutL1xV3OsHPVzo4yaptyT+vT7iXkXojWYQ9ypC H7OTuJcQ/KacAp8D/cEb4t5D6OU9F/ckQt/thcAFQY9M3sMI/ayrYnzoPWUS 84E+EfSKvtWvtJ7OfV/5vlr/5am4VxF6JQW/s6fW1/jtO/vHJK1fqW/1K61f 0PW79dV8+4U/9hOb9BPo1EO3HnVU6NqDR446KvTToaeOeiz0vqH/jfot9Kmh V416L/SUoa+M+jD0f6EHjHoy9GqhX4v6M/RVobeKejX0QKEPivo29CuhZ4l6 OPQWob8InTroA0IvEDqB0LMbKp6H/loWMT70wrzEfKBv5SfmDz2mjeJ9oR8E PSHYB3o37sKe0GfJI+wPPZEaYr2gfzFGrC/0Grr+2E9I+gnuM+gn7jXD/QfQ IZD9wWVO7r+LFTgZ6JsHi/vXoMftJ+5rg3409KT7i/vvoH8s+4PQ65X330lc EPRPFzu5/w76neL+O0uEk/vv3nn/+P67ACf336UT80F/8Fbsj++/U+J9oT8F PSrZHwwV9oS+T6iwP/RoHov1gn7KdCf337X8sZ+Q9BPce4F7MNCnxj0Z0LFA nxr3N+A+B/S7cd8A7h9Afxz6+NDLRz8deu7Qd0f/Hfrj0CNHvx562dDPRn8f +s7QewYeAHrE0CcGfgD6udDTBd4Aeq/QfwU+Afqk0CsFngF6mmXE89B/hB4k dCChV5hGzAf6esXE/KEHt1u8L/TLoGcG+0Bva5SwJ/ShLgn7Q8/IVawX9Hd+ E+sLvZhaP/YTkn4CfRPonQA/A/0C6BkAj7ea+faTmH9fnXFQ4C2Dxwzc7yDm 2e4S+hvgK4K/CH4B+EjgJ4GXtJP5M+DTrGI8GHgI4CWAjwCcMXDHwBsDRwhc IfCEwL31FboZwGkBtwW8FnAg3qK/D70Sf4EHgO5DtMAVQKfgtMAhgM8cJfAM 4N/eFfgH8DyDBI4CvMT0AncBfpeb+H4077fbxDjgLYDngb8LHkK6OuZ5As89 XrzXat4/Nws7AMcZLewG3OF0YWfsk8DNYZ+E/g70eIAfg74G9DaARwV/Hnx6 4NvBjwVfFnwZ8N/AhwMPDvwW8F3AcwF+HXh24NiBTwVeFThV4CmvCx0G4P+A BwQOEP39UNG3TWZ5nni/fB/R54WeyPf9eq1/4fZdf1nrCLz9vk+dmNe0FX15 8IevfNcfnxCR5F74JP13zRuUffZklttJ8xRjHPBt2nz3dzW/Rc4TPAHX795L 49q/t4PGB3f/rj9ePjG/WOOkPw48JvIL6DpB5wm4R+i2QMcFOOoDrDMwTegM QK8B+g3ga4CPDX42+F/gW4J/Cd4l+FTgV4FXBb4E+BPgTQAPDXw0cNHvGb/7 F+N5PzGOF3hT4E+BO4WOVQPRp4Pu0nbR14NOUEnRBxxorisafUNDh0X0GZl3 r5ZUnmTi3UPn4proY6KuCJ0G6DOA3/6T6J+Cjy37reC1BorvwcPMIMYB36y2 k37rfdFfBo9lnnhf8C6kfcATkPYErn2nsD9w2PWc9FWBI0bdD3pk0CcDHhh6 Q9AfAr+gPvPigwQvHjoj0B0Bjwm6GPcFLx76AtAbAF8S/GHwicEjdmG+q5vg v4M3CB4h+IPgBYEnBH4QcP/gAQD/D5z6BsFnB64aOGvgq819w7o10A+Cvlgq 0R+swP3B/4n+oJuT/mAG7g9Cfwi6Q9DHSfyz5O8BnRzoufiJ/uAo7g92Ev1B 6DiUFn3At9wHhA4B9Ae2OOn3gW9cjvt94B13N/X1dhh9vT+4r3dA9PXA18oj +nfgF4FvBPscStq/m7DU6N+Bv3FX9O/WJ+3fjV9g9O8CTP27KR7o30F3Dzp8 WHfoakFnCzydNcz7vid439DTgb4O+IDgfT8QvG/oaEBXA3oa4MmDNw++PHiw 4MWCDwueG3hv4LuBxwJeC/gsrI+hbgteNngC4A1gfwDOp5HoLyw2nwtGP6Is nwulRP+io5N+E/Sz5ov+CPOj1dLKd038aOgT3RL9Jujp1BT9mnDzuWD0fUry uSD7RHWd9I/An5fj4Fywir8L3uwNMU+Df8jvCx5if/O58O1ePyf9IPCRtgr7 gz/j6aQfBP4HzgXoSEJXEvEAdOKgGwdeG3TN2gr+MvShoBcF/iz0jKoK/jJ0 YaATA54+dB+gAwH9B8lTxvkCvjf43+B9g88Jfid4neBrgb8F3tZO5hf1FLxj 8GHAj0F8iH7HNlHHhi5kX1H3nrZlT6KOoeThQnfv+77GukSduGyiDv9ugXti fXxHW+9u5r6G1uF6/12dX/c12om+xvKSyxPjLbfv+hpal+fad30NrSNjF32K xW/n/Zq0r3HU6GtonY7v+xptE3G5cvwX48sn1XlLMh+dR7QV87dYsiTyzD+I 9wVf1+37/sXkJPhbw86rt+TK4qR/kYi/7fVd/0Ljb4O/619ofhT4UsgvoLsK HVbkg9BVhM4ieKasB0g+gucLPTXoq4HP3o55vtsEzxc6StBVgm4GdH9WCZ4v 9FOgpwIdFeh91Bc8X+gmQEcB+gngRYMnDX40eI/gQYL/CJ5eIPP2UKcCrww8 M9QHUM+ZKOqx0FcNE/Vb6FSuE3Vg1HMmi7ox6jkvRP0Z9ZyPol4NXarVou4N HSXoKqFuAz2at6J+Dn0ZPzEO6jknxd+FbkKwmCf45+fEe23iek64sAN4p2OE 3epwPcfqpO4Nnh/qOdALhn4w6m/QA4U+KPjX0PuD/h/0HKDnBX0v6MNArwf6 PdDtgR4H9DmgywG+Pfj34N2DTwt+LXi14CWCp4j6KnR427AuL54vwDqbx1h3 E+M/ZB29sayrh/m4sU4WdLMw/8+sg5OddXHwvqVZ54JY9wL2AY8dvHbYE7yw 3IKH1YrzkNqC58XPq2bieehoWFhXA/vhHK4j+3NdGb9T6A5Dhxi/63DWFYXO KPYB6DNGC71WQ0+Q9QWxn4Ry/llF6LVCRwy6YtATQ1y+kuP0n3h/g34Q9ISw H0KHZYfQa4VuiDfriGC/HcT7cl2h17qc9QLqsn4A9nPHuZB4zrp+xzdJ+N9i j+fiHlsL64HI5x3r0UXziAuYdFnDuF7fR+hkQt8Zes+Ic6DfCj1XxEVdWJ/x Ces1QqfxLufzIUL38gLrskGnDfps0F2CDhPiOujXWIW+JfRWkrH+CuLGMD7P Wgt9y/ysswDdBcSliBssrNdi3CPsRA8QetbQt0Z+9JD1aqFfi3wKepTQp4Qu ZXPWm4P+HHTnLrCeVH/Wl0J+95F1eaDTc4bzQejIQFcG+WMwn9NxQq8P+hHQ k0B++orjMEccmqhDg3gMuuchQt8MOt3NWLcbdRKuqyjo8kKPFzqb0N1EHQZ6 hS5Cr2wO6+tBbw86e9DPgp4W6kKbOL6PFbpk0M2Bjg7qTs05LlkkdMmglwH9 DNS1sht+ssqUV0J/HHrkqKNCX/gA6w2j7gr9UOiJok5bkvUBoRcInUCuA9Mt 1gNDHRj6PtD7Qd2Y688Uz3oeqD9D9xw66OhH2FjXeCzrHKN/Ad3SV6xjin7H SNYlbM46hdAnLMu6YwtZhwz9lHusK3SZdYbQf4FuCHRE0K9pZJwjWn8I5wj0 7rsI/Qros0OvHf2+y9xfGS30KzqwLnM+1mlG33AO17tjuf6NuvdL1mPNwPqs 6D/u5TogdC7RryzPOozQZYQeI+omI4V+BfTXoMeGPqkv55M2oV8RyLpL0GFC HzaS4+BhHBfjnIXeCvRX0OddzOfxVNHn/YPPgy2in7tZ9GexD/Tj9Rgq+qrZ mZ+/gPEI6GuDB2tjXBXwOdmZb3aO8aHAGZZhXscpxrkDL12c8dPnxPfMW1Of xDjMl1arxd9F332HmOdI9pt7ok9nsTzPk6BfkEfcz57M8jwsyb1vdJHxS8ks 06sk8PEYj6neMg4zmeVsIu+FceVqkHFP/btrSe5rM75PZumTMI718ffjJOKl zoi/a7H45U3AJeQT84x2onf9iv3eX/R9MrHugxfjOBoyXiIvx3/FRd+hHvOu fxf3Vrsauos5TP2ar8x7PMo4XOBdOzK/qIi4X9uHcfzFxPcWV9N9l8Y49RmX Ju8NL+Ckb5KRcSHNxfvW4DhyjehrIL65I/oXWZz0I4byfsF6oQbOIZJ1OkLE vcbQxe3m5F7jMf/fvcYTJnvIe42/WDRv9SHzVQ8zH+zTVPP9xeBd5BX3FAPf 7Ml458uMcwaOcCjjCnv86N7hJHX4cMbxRLQx3zsMfdRHHI8jDnemgzqc99MX oi7tYvZbZayjuf9o1EXrmP3W0A3IYvjtSNO5L/zWwGn3MN8jb/BNOpnvize+ 53FIjtPE7LfGfJI7qetmYL9tJN53K+cnHUTdtTrH079wfJ2H4+onHD9tEvVS vl9H/SnqnI5VzZewH+YS9zku5Lpl/e/qYxO2JeopMN4T+9Urrk869tcuZlxx TOL++Yjx7Nj3UId0/R5ffT1hX90r7sec4bTe2Cxxv40W92M+57pitu/w0mcT 9+F4MR9HXrY9YR8+K95rjpM6ocUyOHF//lnYrRHnh51EHQ96/ZtEve65k7rc Uo5rG4j62ziOD9aIuhnO6+Xifj2c15PFPX3ufF7f3WG+768Cn9cx4t5A8J0i xPc5+byOEONU5/M6SPxdFz6vx4l5Is7IJnSBcE4Pavg2T1LdIegsZRa6Rmt5 /40Sukm1+XflIp6H39do+jBv0vGXO9EpQr2luKiftOT93VPUW/A79xTP43eV WdxzNI3juYWi3rKP4x6pQ4K4wd4tLiypzskMjg9sot6Cc7Se0FfBuVhV1Ftw Pg0Vui7Y3wNFvQX7XR0xPuotW0W95QL/3kp3nLIt6fxRB68v6i0T2Z9+EXaw 8P0TP663TPpBvUXzKbJ8V28pkMiP+Pj1a5ek9ZatHE/3F/WW8xynZhd6C4gX G6SfXSWpngPipK9CL+KWk3tGcN6/4/Mf5/4xPm/kOKi34HzAuYD9N0umdab5 bHFyn8ht/j3L93J1cl8G6i2vRL3llJnfasT5iI8j94YlxtEGX5Xjwo6Cn/6Y 45tDgv/O8aVxbuN51FueinoLzpVhJ/U5g7+L+xHiRb3F5oSfDp3fF6z/j/No OOdXoaLecp7tUEzwRnk+6vbfj68l5aUiPvYRvFc3J/WW/BznDRJ8W8QrHcU4 iA+ecrwAf8M52vxgW9N80AdaIuotkU74sG5GvcWsc27RfDQjz4NfsX8qSjWg SlK+20nz78Xg99Xk+FVxPIs4VvwujHgsjv0/T9ZDpvF37TDppRjzWcP7bRXB Q8F+m7n9PhPPBfmS5NH053i6n+DpYJ9sJJ5H/JGse+J+boy/kve96mI+iEti v+Y36bsin+8n6i27+JyVePV4zpOHi3oL8s9lTRblTYqTn8d55itRb2nC53IG gc/fxvnS/0S9ZQvnD5GCFxDL+cAIUW+px+e4HH84x7Vhot6C+OxN4+Gm+SN+ GifqLcy/MOIU2Of/ALI8trk= "]], Axes->True, BoxRatios->{1, 1, 0.4}, ImageSize->{360., 281.6280402068501}, Method->{"RotationControl" -> "Globe"}, PlotRange->{All, All, All}, PlotRangePadding->{Automatic, Automatic, Automatic}, ViewPoint->{1.3050547976683742`, -2.520359589187103, 1.8424493252937433`}, ViewVertical->{0., 0., 1.}]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{3.441560147557315*^9, 3.441563021156468*^9}, CellLabel->"Out[99]="] }, Closed]], Cell[BoxData[ RowBox[{"g", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"2", ",", "2", ",", "1"}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "2"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "2"}], "}"}]}], "]"}]}], "}"}], "]"}]}]], "Input", CellLabel->"In[104]:="], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"g", ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellLabel->"In[106]:="], Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"\[Pi]", " ", "i"}], "180"], "]"}]}], ",", RowBox[{"i", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", " ", "i"}], "180"], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "1000"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellLabel->"In[107]:="], Cell[BoxData[ RowBox[{ RowBox[{"sList", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", " ", RowBox[{"Cos", "[", RowBox[{"\[Pi]", " ", RowBox[{"i", "/", "180"}]}], "]"}]}], ",", " ", RowBox[{"i", " ", RowBox[{"Sin", "[", RowBox[{"\[Pi]", " ", RowBox[{"i", "/", "180"}]}], "]"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "0", ",", " ", "1000"}], "}"}]}], "]"}]}], ";"}]], "Input", CellLabel->"In[108]:="], Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"sList", ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellLabel->"In[109]:="] }, Closed]], Cell[CellGroupData[{ Cell["Annimation", "Section"], Cell["\<\ Much of the excitement of physics is dynamics: describing how objects in our \ world move!\ \>", "Text"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " can easily generate nice annimations.We simply make a ", StyleBox["Table", FontWeight->"Bold"], " (or list) of ", StyleBox["Plots", FontWeight->"Bold"], "." }], "Text"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox["x", "2"], "10"]}]], " ", RowBox[{"Sin", "[", RowBox[{"\[Pi]", " ", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input", CellLabel->"In[110]:="], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "\[CapitalDelta]"}], ")"}], "2"]}], "/", "10"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Pi]", " ", "x"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "10"}], ",", " ", "20"}], "}"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{ "\[CapitalDelta]", ",", " ", "0", ",", " ", "15", ",", " ", "0.5"}], "}"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{3.441560187899597*^9, 3.441560245990794*^9}, CellLabel->"In[166]:="], Cell[BoxData[ RowBox[{"%", "[", RowBox[{"[", RowBox[{"{", RowBox[{"1", ",", "3", ",", " ", RowBox[{"-", "1"}]}], "}"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.441560274057312*^9, 3.441560309707385*^9}}, CellLabel->"In[167]:="], Cell[BoxData[ RowBox[{"ListAnimate", "[", "%%", "]"}]], "Input", CellChangeTimes->{{3.441560369983912*^9, 3.4415603757497787`*^9}, { 3.441560444913898*^9, 3.441560445350471*^9}}, CellLabel->"In[168]:="], Cell[BoxData[ RowBox[{ RowBox[{"wavePlot", "[", "\[Delta]_", "]"}], " ", ":=", " ", RowBox[{"Show", "[", RowBox[{ StyleBox[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "\[Delta]"}], ")"}], "2"]}], "/", "10"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Pi]", " ", "x"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "10"}], ",", " ", "20"}], "}"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}]}], "]"}], FontColor->RGBColor[0, 0, 1]], ",", " ", StyleBox[ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"\"\<\[Delta] = \>\"", " ", "<>", RowBox[{"ToString", "[", RowBox[{"PaddedForm", "[", RowBox[{"\[Delta]", ",", RowBox[{"{", RowBox[{"4", ",", "2"}], "}"}]}], "]"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "0.9"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}]}], "}"}], "]"}], FontColor->RGBColor[1, 0, 0]]}], "]"}]}]], "Input", CellChangeTimes->{{3.441560730996607*^9, 3.441560767399531*^9}}, CellLabel->"In[183]:="], Cell[BoxData[ RowBox[{"wavePlot", "[", "0", "]"}]], "Input", CellLabel->"In[184]:="], Cell[BoxData[ RowBox[{"Animate", "[", RowBox[{ RowBox[{"wavePlot", "[", "\[CapitalDelta]", "]"}], ",", " ", RowBox[{"{", RowBox[{"\[CapitalDelta]", ",", " ", "0", ",", " ", "15"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4415604866683197`*^9, 3.44156049186406*^9}, 3.4415608637410917`*^9}, CellLabel->"In[186]:="] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " knows calculus\[Ellipsis]" }], "Section"], Cell[BoxData[ RowBox[{"Clear", "[", "x", "]"}]], "Input", CellLabel->"In[117]:="], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"x", " ", RowBox[{"Sin", "[", "x", "]"}]}], ",", " ", "x"}], "]"}]], "Input", CellLabel->"In[118]:="], Cell[BoxData[ RowBox[{"D", "[", RowBox[{"%", ",", "x"}], "]"}]], "Input", CellLabel->"In[119]:="], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"x", "^", "2"}], "]"}], "/", RowBox[{"x", "^", "2"}]}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]], "Input", CellLabel->"In[120]:="], Cell[BoxData[ RowBox[{"?", "FresnelC"}]], "Input", CellLabel->"In[121]:="], Cell[BoxData[ RowBox[{"%", " ", "//", " ", "N"}]], "Input", CellLabel->"In[122]:="], Cell[BoxData[ RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"x", "^", "2"}], "]"}], "/", RowBox[{"x", "^", "2"}]}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]], "Input", CellLabel->"In[123]:="] }, Closed]], Cell[CellGroupData[{ Cell["\[Ellipsis]and solves equations!", "Section"], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"a", ",", "x"}], "]"}]], "Input", CellLabel->"In[124]:="], Cell[BoxData[ RowBox[{"eq1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], " ", "-", " ", RowBox[{"7", " ", "x"}], " ", "+", " ", RowBox[{"3", " ", "a"}]}], " ", "==", " ", "0"}]}]], "Input", CellLabel->"In[125]:="], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{"eq1", ",", " ", "x"}], "]"}]], "Input", CellLabel->"In[126]:="], Cell[BoxData[ RowBox[{ RowBox[{"%", " ", "/.", " ", RowBox[{"a", " ", "->", " ", "3"}]}], " ", "//", " ", "N"}]], "Input", CellLabel->"In[127]:="], Cell[BoxData[ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "^", "4"}], " ", "+", " ", RowBox[{"x", "/", "2"}], " ", "-", " ", "1"}], " ", "==", " ", "0"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.8"}]}], "}"}]}], "]"}]], "Input", CellLabel->"In[128]:="], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "4"], "+", FractionBox["x", "2"], "-", "1"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input", CellLabel->"In[129]:="], Cell["Some differential equations\[Ellipsis]", "Text"], Cell[BoxData[ RowBox[{"DSolve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"y", "'"}], "'"}], "[", "t", "]"}], " ", "+", " ", RowBox[{ RowBox[{"w", " ", "^", "2"}], " ", RowBox[{"y", "[", "t", "]"}]}]}], " ", "==", "0"}], ",", " ", RowBox[{"y", "[", "t", "]"}], ",", " ", "t"}], "]"}]], "Input", CellLabel->"In[130]:="] }, Closed]], Cell[CellGroupData[{ Cell["Functions", "Section"], Cell[TextData[{ "Part of the power of ", StyleBox["Mathematica", FontSlant->"Italic"], " comes from its extensive arsenal of built-in functions. Most of the time, \ these built-in functions will be sufficient for your work and calculations. I \ find it wonderful to be able to enter an equation or a complicated \ expression, envoke the ", StyleBox["Plot", FontFamily->"Courier", FontWeight->"Bold"], StyleBox["[...]", FontFamily->"Courier"], " or ", StyleBox["Simplify", FontFamily->"Courier", FontWeight->"Bold"], StyleBox["[...]", FontFamily->"Courier"], " comand, and obtain an immediate display of my desired result. \nSince ", StyleBox["Mathematica", FontSlant->"Italic"], " has an extensive help facility and numerous reference books are available, \ you should find it relatively easy to explore and use the many available \ built-in functions." }], "Text"], Cell[CellGroupData[{ Cell["Defining your own functions and commands", "Subsection"], Cell[TextData[{ "Functions are defined using the delayed assignment operator, \"", StyleBox[":=", FontFamily->"Courier"], "\", and arguments are denoted with the blank symbol, \"", StyleBox["_", FontFamily->"Courier"], "\". The simple example is" }], "Text"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Alias", "[", "\"\<=\>\"", "]"}], ",", RowBox[{"Alias", "[", "\"\<:=\>\"", "]"}], ",", RowBox[{"Alias", "[", "\"\<_\>\"", "]"}], ",", " ", RowBox[{"Alias", "[", "\"\<__\>\"", "]"}]}], "}"}]], "Input", CellLabel->"In[131]:="], Cell[BoxData[ RowBox[{ RowBox[{"square", "[", "y_", "]"}], " ", ":=", " ", RowBox[{"y", "^", "2"}]}]], "Input", CellLabel->"In[132]:="], Cell[BoxData[ RowBox[{"?", "square"}]], "Input", CellLabel->"In[133]:="], Cell["Which can be called in either prefix or postfix form....", "Text"], Cell[BoxData[ RowBox[{"square", "[", RowBox[{"(", RowBox[{"a", "+", "1"}], ")"}], "]"}]], "Input", CellLabel->"In[134]:="], Cell[BoxData[ RowBox[{"square", "[", "8", "]"}]], "Input", CellLabel->"In[135]:="], Cell[BoxData[ RowBox[{ RowBox[{"squareFive", "[", RowBox[{"x_", ",", "y_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"x", "^", "2"}], " ", "+", " ", RowBox[{"5", "y"}]}]}]], "Input", CellLabel->"In[136]:="], Cell[BoxData[ RowBox[{ RowBox[{"cube", "[", "x_", "]"}], " ", ":=", " ", RowBox[{"x", "^", "3"}]}]], "Input", CellLabel->"In[137]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"cube", "[", RowBox[{"8", " ", "+", " ", "a"}], "]"}], ",", " ", RowBox[{"cube", "[", "x", "]"}]}], "}"}]], "Input", CellLabel->"In[138]:="], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"quad", "[", "x_Real", "]"}], " ", ":=", " ", RowBox[{"x", "^", "4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"quad", "[", "x_Integer", "]"}], " ", ":=", " ", RowBox[{"1", "/", RowBox[{"x", "^", "4"}]}]}], ";"}]}], "Input", CellLabel->"In[139]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"quad", "[", "3", "]"}], ",", " ", RowBox[{"quad", "[", "3.0", "]"}]}], "}"}]], "Input", CellLabel->"In[141]:="], Cell["\<\ Functions often produce results only when certain conditions are satisfied. \ For example, the following three functions are equivalent.\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"g1", "[", "x_", "]"}], " ", ":=", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"x", ">", "0"}], ",", RowBox[{ RowBox[{"a", " ", "=", " ", "5"}], ";", RowBox[{"x", "^", "3"}]}], ",", RowBox[{ RowBox[{"a", "=", RowBox[{"-", "5"}]}], ";", RowBox[{"-", RowBox[{"x", "^", "3"}]}]}]}], "]"}]}]], "Input", CellLabel->"In[142]:="], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"g1", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input", CellLabel->"In[143]:="], Cell[BoxData["a"], "Input", CellLabel->"In[144]:="], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"g2", "[", RowBox[{"x_", " ", "/;", " ", RowBox[{"x", " ", ">=", " ", "0"}]}], "]"}], " ", ":=", " ", RowBox[{"x", "^", "3"}]}], " ", ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"g2", "[", RowBox[{"x_", " ", "/;", " ", RowBox[{"x", " ", "<", " ", "0"}]}], "]"}], " ", ":=", " ", RowBox[{"-", " ", RowBox[{"x", "^", "3"}]}]}], " "}]}], "Input", CellLabel->"In[145]:="], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"g2", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input", CellLabel->"In[147]:="], Cell[BoxData[ RowBox[{ RowBox[{"g3", "[", "x_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "^", "3"}]}]], "Input", CellLabel->"In[148]:="], Cell[BoxData[ RowBox[{"?", "g*"}]], "Input", CellLabel->"In[149]:="] }, Closed]], Cell[CellGroupData[{ Cell["Local Variables", "Subsection"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " normally assumes that all your variables are global. This means that every \ time you use a name like ", StyleBox["x", FontFamily->"Courier"], ", ", StyleBox["Mathematica", FontSlant->"Italic"], " normally assumes that you are referring to the same object. \nParticularly \ when you write programs, however, you may not want all your variables to be \ global. You may, for example, want to use the name ", StyleBox["x", FontFamily->"Courier"], " to refer to two quite different variables in two different programs. In \ this case, you need the ", StyleBox["x", FontFamily->"Courier"], " in each program to be treated as a local variable. \nYou can set up local \ variables in ", StyleBox["Mathematica", FontSlant->"Italic"], " using modules. Within each module, you can give a list of variables which \ are to be treated as local to the module. " }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"spiral", "[", "i_", "]"}], " ", ":=", " ", RowBox[{"{", RowBox[{ RowBox[{"i", " ", RowBox[{"Cos", "[", RowBox[{"\[Pi]", " ", RowBox[{"i", "/", "180"}]}], "]"}]}], ",", " ", RowBox[{"i", " ", RowBox[{"Sin", "[", RowBox[{"\[Pi]", " ", RowBox[{"i", "/", "180"}]}], "]"}]}]}], "}"}]}]], "Input", CellLabel->"In[150]:="], Cell[BoxData[ RowBox[{ RowBox[{"spiralList", " ", "=", " ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"spiral", "[", "i", "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "0", ",", " ", "1000"}], "}"}]}], "]"}], " ", "//", " ", "N"}]}], ";"}]], "Input", CellLabel->"In[151]:="], Cell[BoxData[ RowBox[{"ListPlot", "[", "spiralList", "]"}]], "Input", CellLabel->"In[152]:="], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"%", ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}]}], "]"}]], "Input",\ CellLabel->"In[153]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Summary", "Section"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " is a very powerful, interpretive computer system. It evaluates your inputs \ ", StyleBox["as you type them", FontSlant->"Italic"], ". Notebooks are used to save a record of your work. They can be edited and \ re-executed. \nThe syntax of ", StyleBox["Mathematica", FontSlant->"Italic"], " is compact. You will not be able to learn or use all of the features of ", StyleBox["Mathematica. ", FontSlant->"Italic"], "Nevertheless, you will be able to make very sophisticated calculations \ (without alot of programming) after just a few weeks of practice. \nRemember: \ Always use the \"Help Browser\". Note that ", StyleBox["Mathematica", FontSlant->"Italic"], " is simply an expression evaluator. As you type, you can make definitions \ and rules that ", StyleBox["Mathematica", FontSlant->"Italic"], " uses as it evaluates what you type. \nFinally, ", StyleBox["Mathematica", FontSlant->"Italic"], " has wonderful and easy-to-use graphics." }], "Text"] }, Closed]] }, Open ]] }, WindowToolbars->{}, Evaluator->"Local", WindowSize->{835, 934}, WindowMargins->{{4, Automatic}, {Automatic, 1}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, ShowSelection->True, CellLabelAutoDelete->False, Magnification->1, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (May 21, 2008)", StyleDefinitions->Notebook[{ Cell[ CellGroupData[{ Cell["Style Definitions", "Subtitle"], Cell[ "These styles are carefully tuned for all aspects of the online help. \ It's recommended that they remain unchanged.", "Text"], Cell[ CellGroupData[{ Cell["Style Environment Names", "Subsection"], Cell[ StyleData[All, "Working"], CellBracketOptions -> {"Color" -> RGBColor[0, 0.2, 1]}, ScriptMinSize -> 9], Cell[ StyleData[All, "Printout"], PrivateFontOptions -> {"FontType" -> "Outline"}]}, Closed]], Cell[ CellGroupData[{ Cell["Notebook Options", "Subsection"], Cell[ " The options defined for the style below will be used at the \ Notebook level. ", "Text"], Cell[ StyleData["Notebook"], PageHeaders -> {{ Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"], None, Cell[ TextData[{ OptionValueBox["FileName"]}], "Header"]}, { Cell[ TextData[{ OptionValueBox["FileName"]}], "Header"], None, Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"]}}, PrintingOptions -> { "FacingPages" -> True, "FirstPageHeader" -> False}, CellLabelAutoDelete -> False, CellFrameLabelMargins -> 6, StyleMenuListing -> None]}, Closed]], Cell[ CellGroupData[{ Cell["Headings", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Title"], CellMargins -> {{5, Inherited}, {2, 0}}, CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> False, CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily -> "Times", FontSize -> 36, FontWeight -> "Bold", FontColor -> GrayLevel[1], Background -> RGBColor[0, 0, 1]], Cell[ StyleData["Title", "Printout"], CellMargins -> {{0, 10}, {2, 0}}, FontSize -> 28, Background -> GrayLevel[0.6]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], CellMargins -> {{12, Inherited}, {2, 2}}, CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> False, CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 24], Cell[ StyleData["Subtitle", "Printout"], CellMargins -> {{7, 10}, {2, 4}}, FontSize -> 18]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle"], CellMargins -> {{12, Inherited}, {2, 12}}, CellGroupingRules -> {"TitleGrouping", 20}, PageBreakBelow -> False, CounterIncrements -> "Subsubtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}}, FontFamily -> "Helvetica", FontSize -> 14, FontSlant -> "Italic"], Cell[ StyleData["Subsubtitle", "Printout"], CellMargins -> {{7, 10}, {2, 8}}, FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellFrame -> {{6, 0.5}, {0.5, 0.5}}, CellMargins -> {{8, 4}, {2, 50}}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 18}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, CellFrameColor -> RGBColor[0, 0, 1], CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 18, FontWeight -> "Bold", FontColor -> RGBColor[0, 0, 1]], Cell[ StyleData["Section", "Printout"], CellFrame -> {{6, 0.5}, {0.5, 0.5}}, CellMargins -> {{6, 4}, {2, 70}}, CellFrameColor -> GrayLevel[0], FontSize -> 14, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellDingbat -> "\[FilledSquare]", CellMargins -> {{24, 4}, {2, 18}}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 12}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, CellFrameLabelMargins -> 6, CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 15, FontWeight -> "Bold", FontColor -> RGBColor[0, 0, 1]], Cell[ StyleData["Subsection", "Printout"], CellMargins -> {{19, 4}, {2, 18}}, FontSize -> 12, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellMargins -> {{10, 4}, {2, 18}}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 12}, CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, CounterIncrements -> "Subsubsection", FontFamily -> "Helvetica", FontWeight -> "Bold", FontColor -> RGBColor[0, 0, 1]], Cell[ StyleData["Subsubsection", "Printout"], CellMargins -> {{7, 4}, {2, 18}}, FontSize -> 10, FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Text", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Text"], CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, LineSpacing -> {1, 3}, ParagraphSpacing -> {0, 12}, CounterIncrements -> "Text", FontSize -> 14], Cell[ StyleData["Text", "Printout"], CellMargins -> {{7, 0}, {0, 8}}, FontSize -> 11]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MathCaption"], CellFrame -> {{3, 0}, {0, 0.5}}, CellMargins -> {{47, 14}, {0, 14}}, CellFrameColor -> RGBColor[0, 0, 1], LineSpacing -> {1, 3}, ParagraphSpacing -> {0, 8}, FontFamily -> "Helvetica", FontSize -> 12], Cell[ StyleData["MathCaption", "Printout"], CellMargins -> {{34, 54}, {0, 14}}, CellFrameColor -> GrayLevel[0], FontSize -> 10]}, Closed]]}, Open]], Cell[ CellGroupData[{ Cell["Input/Output", "Subsection"], Cell[ "The cells in this section define styles used for input and output \ to the kernel. Be careful when modifying, renaming, or removing these \ styles, because the front end associates special meanings with these style \ names. ", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Input"], CellMargins -> {{54, 14}, {3, 8}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{21, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, AutoItalicWords -> {}, FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, CounterIncrements -> "Input", FontSize -> 16, FontWeight -> "Bold"], Cell[ StyleData["Input", "Printout"], ShowCellBracket -> False, CellMargins -> {{43, 4}, {3, 8}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Output"], CellMargins -> {{55, 4}, {8, 3}}, CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, CellLabelAutoDelete -> False, CellLabelMargins -> {{21, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultOutputFormatType, AutoItalicWords -> {}, FormatType -> StandardForm, CounterIncrements -> "Output", FontSize -> 14], Cell[ StyleData["Output", "Printout"], ShowCellBracket -> False, CellMargins -> {{43, 4}, {4, 2}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Message"], CellMargins -> {{56, 4}, {3, 8}}, CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, CellLabelMargins -> {{21, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultOutputFormatType, AutoItalicWords -> {}, FormatType -> InputForm, CounterIncrements -> "Message", StyleMenuListing -> None, FontColor -> RGBColor[0, 0.2, 1]], Cell[ StyleData["Message", "Printout"], ShowCellBracket -> False, CellMargins -> {{44, 4}, {3, 8}}, FontSize -> 10, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Print"], CellMargins -> {{56, 4}, {3, 8}}, CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, CellLabelMargins -> {{21, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultOutputFormatType, AutoItalicWords -> {}, FormatType -> InputForm, CounterIncrements -> "Print", StyleMenuListing -> None], Cell[ StyleData["Print", "Printout"], ShowCellBracket -> False, CellMargins -> {{44, 4}, {3, 8}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Graphics"], CellMargins -> {{55, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, FormatType -> InputForm, CounterIncrements -> "Graphics", StyleMenuListing -> None], Cell[ StyleData["Graphics", "Printout"], CellMargins -> {{42, 4}, {3, 8}}, ImageSize -> {250, 250}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CellLabel"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9, FontColor -> RGBColor[0, 0.2, 1]], Cell[ StyleData["CellLabel", "Printout"], FontSize -> 7, FontSlant -> "Oblique", FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Unique Styles", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["ItemizedText"], CellMargins -> {{26, 4}, {0, 8}}, ShowSpecialCharacters -> Automatic, LineSpacing -> {1, 3}, ParagraphSpacing -> {0, 8}, ParagraphIndent -> -19, CounterIncrements -> "Text", FontSize -> 14], Cell[ StyleData["ItemizedText", "Printout"], CellMargins -> {{20, 4}, {0, 8}}, ParagraphIndent -> -14, FontSize -> 11]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemizedTextNote"], CellMargins -> {{45, 4}, {0, 5}}, ShowSpecialCharacters -> Automatic, LineSpacing -> {1, 3}, ParagraphSpacing -> {0, 5}, CounterIncrements -> "Text", FontSize -> 14], Cell[ StyleData["ItemizedTextNote", "Printout"], CellMargins -> {{34, 4}, {0, 4}}, ParagraphSpacing -> {0, 4}, FontSize -> 11]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["IndentedText"], CellMargins -> {{26, 4}, {0, 8}}, ShowSpecialCharacters -> Automatic, LineSpacing -> {1, 3}, ParagraphSpacing -> {0, 8}, CounterIncrements -> "Text", FontSize -> 14], Cell[ StyleData["IndentedText", "Printout"], CellMargins -> {{20, 4}, {0, 8}}, FontSize -> 11]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Note"], CellFrame -> True, CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0, 0, 1], ShowSpecialCharacters -> Automatic, LineSpacing -> {1, 3}, ParagraphSpacing -> {0, 8}, CounterIncrements -> "Text", FontFamily -> "Helvetica", FontSize -> 10], Cell[ StyleData["Note", "Printout"], CellMargins -> {{7, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Picture"], CellMargins -> {{10, Inherited}, {0, 8}}, CellHorizontalScrolling -> True], Cell[ StyleData["Picture", "Printout"], CellMargins -> {{7, Inherited}, {0, 8}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Caption"], CellMargins -> {{10, 50}, {0, 3}}, FontFamily -> "Helvetica", FontSize -> 9, FontColor -> RGBColor[0, 0, 1]], Cell[ StyleData["Caption", "Printout"], CellMargins -> {{7, 50}, {2, 4}}, FontSize -> 7, FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Tables", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnTable"], CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.39], { Scaled[0.59]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnTable", "Printout"], CellMargins -> {{7, 4}, {0, 8}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["3ColumnTable"], CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, StyleMenuListing -> None, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.325]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["3ColumnTable", "Printout"], CellMargins -> {{7, 4}, {0, 8}}, FontSize -> 10]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Formulas and Programming", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["ChemicalFormula"], CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, AutoSpacing -> False, ScriptBaselineShifts -> {0.6, Automatic}, ScriptLevel -> 1, SingleLetterItalics -> False, ZeroWidthTimes -> True], Cell[ StyleData["ChemicalFormula", "Printout"], CellMargins -> {{7, 4}, {0, 8}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"], CellMargins -> {{55, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling -> True, ScriptLevel -> 0, SingleLetterItalics -> True, UnderoverscriptBoxOptions -> {LimitsPositioning -> True}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DisplayFormula", "Printout"], CellMargins -> {{43, Inherited}, {Inherited, Inherited}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Program"], CellMargins -> {{10, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling -> True, FontFamily -> "Courier"], Cell[ StyleData["Program", "Printout"], CellMargins -> {{7, Inherited}, {Inherited, Inherited}}, FontSize -> 9.5]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Hyperlink Styles", "Subsection"], Cell[ "The cells below define styles useful for making hypertext \ ButtonBoxes. The \"Hyperlink\" style is for links within the same Notebook, \ or between Notebooks.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Hyperlink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> GrayLevel[1], Background -> RGBColor[0, 0.6, 1], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonNote -> ButtonData}], Cell[ StyleData["Hyperlink", "Printout"], FontColor -> GrayLevel[0], Background -> GrayLevel[1]]}, Closed]], Cell[ "The following styles are for linking automatically to the on-line \ help system.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["MainBookLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> GrayLevel[1], Background -> RGBColor[0, 0.6, 1], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["MainBook", #]}]& )}], Cell[ StyleData["MainBookLink", "Printout"], FontColor -> GrayLevel[0], Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["AddOnsLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontColor -> GrayLevel[1], Background -> RGBColor[0, 0.6, 1], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["AddOns", #]}]& )}], Cell[ StyleData["AddOnLink", "Printout"], FontColor -> GrayLevel[0], Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["RefGuideLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontColor -> GrayLevel[1], Background -> RGBColor[0, 0.6, 1], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["RefGuideLink", #]}]& )}], Cell[ StyleData["RefGuideLink", "Printout"], FontColor -> GrayLevel[0], Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["GettingStartedLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> GrayLevel[1], Background -> RGBColor[0, 0.6, 1], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["GettingStarted", #]}]& )}], Cell[ StyleData["GettingStartedLink", "Printout"], FontColor -> GrayLevel[0], Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["OtherInformationLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> GrayLevel[1], Background -> RGBColor[0, 0.6, 1], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["OtherInformation", #]}]& )}], Cell[ StyleData["OtherInformationLink", "Printout"], FontColor -> GrayLevel[0], Background -> GrayLevel[1]]}, Closed]]}, Closed]]}, Open]]}, Visible -> False, FrontEndVersion -> "6.0 for Mac OS X x86 (32-bit) (May 21, 2008)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 105, 5, 51, "Title"], Cell[698, 30, 320, 9, 57, "Subsubtitle"], Cell[1021, 41, 572, 15, 59, "Text"], Cell[1596, 58, 687, 20, 89, "Text"], Cell[CellGroupData[{ Cell[2308, 82, 112, 4, 87, "Section"], Cell[2423, 88, 438, 11, 59, "Text"], Cell[2864, 101, 72, 2, 24, "Input"], Cell[2939, 105, 73, 2, 24, "Input"], Cell[3015, 109, 50, 1, 24, "Input"], Cell[3068, 112, 59, 1, 26, "Input"], Cell[3130, 115, 67, 2, 24, "Input"], Cell[3200, 119, 105, 3, 24, "Input"], Cell[3308, 124, 135, 5, 24, "Text"], Cell[3446, 131, 92, 2, 24, "Input"], Cell[3541, 135, 78, 2, 24, "Input"], Cell[3622, 139, 79, 2, 24, "Input"], Cell[3704, 143, 79, 2, 24, "Input"], Cell[3786, 147, 132, 4, 26, "Input"], Cell[3921, 153, 64, 1, 26, "Input"], Cell[CellGroupData[{ Cell[4010, 158, 47, 0, 33, "Subsubsection"], Cell[4060, 160, 74, 2, 24, "Input"], Cell[4137, 164, 83, 2, 24, "Input"], Cell[4223, 168, 84, 2, 24, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[4344, 175, 34, 0, 33, "Subsubsection"], Cell[4381, 177, 226, 5, 42, "Text"], Cell[4610, 184, 52, 1, 26, "Input"], Cell[4665, 187, 69, 2, 26, "Input"], Cell[4737, 191, 49, 0, 23, "Text"], Cell[4789, 193, 112, 3, 26, "Input"], Cell[4904, 198, 196, 8, 23, "Text"], Cell[5103, 208, 77, 2, 26, "Input"], Cell[5183, 212, 78, 2, 26, "Input"], Cell[5264, 216, 73, 2, 26, "Input"], Cell[5340, 220, 88, 2, 26, "Input"], Cell[5431, 224, 73, 2, 26, "Input"], Cell[5507, 228, 78, 2, 26, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[5634, 236, 103, 4, 55, "Section"], Cell[5740, 242, 116, 4, 23, "Text"], Cell[5859, 248, 73, 2, 24, "Input"], Cell[5935, 252, 74, 2, 24, "Input"], Cell[6012, 256, 75, 2, 24, "Input"], Cell[6090, 260, 73, 2, 24, "Input"], Cell[6166, 264, 72, 2, 24, "Input"], Cell[6241, 268, 76, 2, 24, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[6354, 275, 115, 4, 55, "Section"], Cell[6472, 281, 213, 5, 41, "Text"], Cell[CellGroupData[{ Cell[6710, 290, 48, 0, 34, "Subsection"], Cell[6761, 292, 130, 4, 24, "Input"], Cell[6894, 298, 132, 4, 24, "Input"], Cell[7029, 304, 105, 3, 24, "Input"], Cell[7137, 309, 111, 3, 26, "Input"], Cell[7251, 314, 504, 14, 45, "Input"], Cell[7758, 330, 131, 4, 26, "Input"], Cell[7892, 336, 735, 22, 45, "Input"], Cell[8630, 360, 107, 3, 24, "Input"], Cell[8740, 365, 356, 11, 42, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[9133, 381, 75, 0, 34, "Subsection"], Cell[9211, 383, 132, 4, 26, "Input"], Cell[9346, 389, 107, 3, 26, "Input"], Cell[9456, 394, 75, 2, 24, "Input"], Cell[9534, 398, 86, 2, 24, "Input"], Cell[9623, 402, 87, 2, 24, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[9747, 409, 119, 3, 35, "Subsection"], Cell[9869, 414, 81, 2, 24, "Input"], Cell[9953, 418, 81, 2, 24, "Input"], Cell[10037, 422, 167, 6, 26, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[10241, 433, 61, 0, 35, "Subsection"], Cell[10305, 435, 115, 3, 26, "Input"], Cell[10423, 440, 68, 2, 24, "Input"], Cell[10494, 444, 135, 4, 24, "Input"], Cell[10632, 450, 141, 5, 23, "Text"], Cell[10776, 457, 111, 3, 26, "Input"], Cell[10890, 462, 86, 2, 26, "Input"], Cell[10979, 466, 141, 4, 26, "Input"], Cell[11123, 472, 143, 4, 26, "Input"], Cell[11269, 478, 67, 1, 26, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[11373, 484, 37, 0, 34, "Subsection"], Cell[11413, 486, 300, 9, 26, "Input"], Cell[11716, 497, 276, 9, 26, "Input"], Cell[11995, 508, 161, 5, 24, "Input"], Cell[12159, 515, 80, 2, 24, "Input"], Cell[12242, 519, 99, 3, 24, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[12390, 528, 121, 4, 55, "Section"], Cell[12514, 534, 327, 9, 53, "Text"], Cell[CellGroupData[{ Cell[12866, 547, 38, 0, 34, "Subsection"], Cell[12907, 549, 792, 18, 45, "Input"], Cell[13702, 569, 169, 5, 26, "Input"], Cell[13874, 576, 83, 2, 24, "Input"], Cell[13960, 580, 90, 2, 24, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[14087, 587, 60, 0, 34, "Subsection"], Cell[14150, 589, 73, 2, 24, "Input"], Cell[14226, 593, 82, 2, 24, "Input"], Cell[14311, 597, 139, 4, 24, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[14487, 606, 144, 5, 35, "Subsection"], Cell[14634, 613, 233, 6, 41, "Text"], Cell[14870, 621, 73, 2, 26, "Input"], Cell[14946, 625, 75, 2, 26, "Input"], Cell[15024, 629, 497, 14, 26, "Input"], Cell[15524, 645, 233, 7, 26, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[15794, 657, 101, 2, 35, "Subsection"], Cell[15898, 661, 236, 4, 42, "Text"], Cell[16137, 667, 209, 6, 24, "Input"], Cell[16349, 675, 247, 8, 24, "Input"], Cell[16599, 685, 93, 2, 26, "Input"], Cell[16695, 689, 87, 2, 26, "Input"], Cell[16785, 693, 247, 8, 26, "Input"], Cell[17035, 703, 83, 2, 24, "Input"], Cell[17121, 707, 83, 2, 24, "Input"], Cell[17207, 711, 87, 2, 26, "Input"], Cell[17297, 715, 171, 5, 26, "Input"], Cell[17471, 722, 171, 5, 26, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[17679, 732, 51, 0, 34, "Subsection"], Cell[17733, 734, 449, 14, 26, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[18219, 753, 48, 0, 35, "Subsection"], Cell[18270, 755, 163, 4, 26, "Input"], Cell[18436, 761, 46, 0, 24, "Text"], Cell[18485, 763, 68, 2, 24, "Input"], Cell[18556, 767, 79, 2, 24, "Input"], Cell[18638, 771, 104, 3, 24, "Input"], Cell[18745, 776, 198, 5, 27, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[18980, 786, 44, 0, 34, "Subsection"], Cell[19027, 788, 198, 6, 23, "Text"], Cell[19228, 796, 55, 1, 24, "Input"], Cell[19286, 799, 309, 8, 47, "Input"], Cell[19598, 809, 76, 2, 29, "Input"], Cell[19677, 813, 57, 0, 23, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[19771, 818, 90, 2, 35, "Subsection"], Cell[19864, 822, 93, 2, 26, "Input"], Cell[19960, 826, 125, 4, 24, "Input"], Cell[20088, 832, 125, 4, 24, "Input"], Cell[20216, 838, 71, 0, 23, "Text"], Cell[20290, 840, 287, 7, 24, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[20614, 852, 51, 0, 34, "Subsection"], Cell[20668, 854, 230, 6, 26, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[20947, 866, 112, 4, 55, "Section"], Cell[21062, 872, 153, 5, 23, "Text"], Cell[21218, 879, 318, 11, 48, "Input"], Cell[21539, 892, 540, 16, 84, "Input"], Cell[22082, 910, 82, 2, 26, "Input"], Cell[22167, 914, 586, 19, 52, "Input"], Cell[CellGroupData[{ Cell[22778, 937, 679, 21, 88, "Input"], Cell[23460, 960, 88817, 1437, 293, "Output"] }, Closed]], Cell[112292, 2400, 752, 23, 45, "Input"], Cell[113047, 2425, 441, 15, 24, "Input"], Cell[113491, 2442, 526, 16, 85, "Input"], Cell[114020, 2460, 563, 18, 26, "Input"], Cell[114586, 2480, 161, 4, 26, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[114784, 2489, 29, 0, 54, "Section"], Cell[114816, 2491, 114, 3, 23, "Text"], Cell[114933, 2496, 244, 10, 23, "Text"], Cell[115180, 2508, 389, 13, 46, "Input"], Cell[115572, 2523, 922, 28, 61, "Input"], Cell[116497, 2553, 253, 7, 24, "Input"], Cell[116753, 2562, 207, 4, 26, "Input"], Cell[116963, 2568, 1688, 48, 97, "Input"], Cell[118654, 2618, 86, 2, 24, "Input"], Cell[118743, 2622, 345, 9, 26, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[119125, 2636, 109, 4, 55, "Section"], Cell[119237, 2642, 83, 2, 24, "Input"], Cell[119323, 2646, 171, 5, 26, "Input"], Cell[119497, 2653, 102, 3, 24, "Input"], Cell[119602, 2658, 291, 9, 26, "Input"], Cell[119896, 2669, 76, 2, 24, "Input"], Cell[119975, 2673, 85, 2, 26, "Input"], Cell[120063, 2677, 292, 9, 26, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[120392, 2691, 51, 0, 55, "Section"], Cell[120446, 2693, 106, 3, 24, "Input"], Cell[120555, 2698, 249, 7, 24, "Input"], Cell[120807, 2707, 113, 3, 24, "Input"], Cell[120923, 2712, 154, 4, 26, "Input"], Cell[121080, 2718, 332, 11, 26, "Input"], Cell[121415, 2731, 268, 9, 44, "Input"], Cell[121686, 2742, 54, 0, 24, "Text"], Cell[121743, 2744, 387, 12, 24, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[122167, 2761, 28, 0, 54, "Section"], Cell[122198, 2763, 892, 25, 107, "Text"], Cell[CellGroupData[{ Cell[123115, 2792, 62, 0, 34, "Subsection"], Cell[123180, 2794, 267, 8, 41, "Text"], Cell[123450, 2804, 288, 7, 28, "Input"], Cell[123741, 2813, 142, 4, 26, "Input"], Cell[123886, 2819, 74, 2, 24, "Input"], Cell[123963, 2823, 72, 0, 23, "Text"], Cell[124038, 2825, 131, 4, 24, "Input"], Cell[124172, 2831, 84, 2, 24, "Input"], Cell[124259, 2835, 224, 7, 28, "Input"], Cell[124486, 2844, 140, 4, 26, "Input"], Cell[124629, 2850, 201, 6, 24, "Input"], Cell[124833, 2858, 334, 10, 44, "Input"], Cell[125170, 2870, 168, 5, 24, "Input"], Cell[125341, 2877, 160, 3, 23, "Text"], Cell[125504, 2882, 411, 14, 26, "Input"], Cell[125918, 2898, 217, 7, 24, "Input"], Cell[126138, 2907, 52, 1, 24, "Input"], Cell[126193, 2910, 452, 14, 47, "Input"], Cell[126648, 2926, 217, 7, 24, "Input"], Cell[126868, 2935, 169, 5, 26, "Input"], Cell[127040, 2942, 70, 2, 24, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[127147, 2949, 37, 0, 34, "Subsection"], Cell[127187, 2951, 946, 25, 155, "Text"], Cell[128136, 2978, 409, 13, 28, "Input"], Cell[128548, 2993, 331, 10, 26, "Input"], Cell[128882, 3005, 95, 2, 26, "Input"], Cell[128980, 3009, 221, 6, 26, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[129250, 3021, 26, 0, 54, "Section"], Cell[129279, 3023, 1043, 27, 167, "Text"] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *)