(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     78204,       1397]
NotebookOptionsPosition[     61349,       1096]
NotebookOutlinePosition[     78289,       1399]
CellTagsIndexPosition[     78246,       1396]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = Pi, $CellContext`b$$ = 
    1, $CellContext`ct$$ = False, $CellContext`fcn$$ = {1}, $CellContext`m$$ =
     10, $CellContext`n$$ = 10, $CellContext`nrm$$ = 
    False, $CellContext`op$$ = 0.27, $CellContext`r$$ = 1, $CellContext`R$$ = 
    1, $CellContext`w$$ = 0.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`fcn$$], {1}, 
       Row[{
         Spacer[25], 
         Style[
         "Torus: T(\[Theta],\[Phi])={(3+Cos\[Theta])Cos\[Phi],(3+Cos\[Theta])\
Sin\[Phi],Sin\[Theta]}   ", 15, Bold], 
         Style[
         "\!\(\*\nStyleBox[\"Normals\",\nFontColor->RGBColor[1, 0, \
0]]\)\!\(\*\nStyleBox[\":\",\nFontColor->RGBColor[1, 0, 0]]\)\!\(\*\n\
StyleBox[\" \",\nFontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"N\",\n\
FontColor->RGBColor[1, 0, 0]]\)={(3+Cos\[Theta])Cos\[Phi]Cos\[Theta],(3+Cos\
\[Theta])Sin\[Phi]Sin\[Theta],(3+Cos\[Theta])Sin\[Theta]}   ", 15, Bold]}]}, {
      1 -> Style["Flow ", 15, Bold, 
         RGBColor[0, 0, 1]], 2 -> Style["Trajectory ", 15, Bold], 3 -> 
       Style["Field", 15, Bold]}}, {{
       Hold[$CellContext`a$$], Pi, 
       Row[{
         Column[{
          "", "", "", "", 
           "\!\(\*\nStyleBox[\"\[Copyright]\",\nFontSize->14]\)\!\(\*\n\
StyleBox[\" \",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"N\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\".\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"Bykov\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\",\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"SJ\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"Delta\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"College\",\n\
FontColor->RGBColor[0, 0, 1]]\)"}], 
         Spacer[660], 
         Style["m", 18, Bold, 
          RGBColor[0, 1, 0]]}]}, 0, 100, 0.1}, {
      Hold[
       Style["  N", 13, 
        RGBColor[1, 0, 0], Bold]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`nrm$$], False, ""}, {True, False}}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Style["  \[CirclePlus]", 13, Bold]], 
      Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`ct$$], False, ""}, {True, False}}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[" Grid"], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Style["   \[Theta]", Bold, 15]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`m$$], 10, 
       Style["", 
        RGBColor[1, 0, 0], Bold, 15]}, 1, 30, 1}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Style["   \[Phi]", Bold, 15]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`n$$], 10, 
       Style["", 
        RGBColor[1, 0, 0], Bold, 15]}, 1, 30, 1}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Style["View"]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`op$$], 0.5, ""}, 0, 1, 0.01}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Style["Scale"]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`w$$], 0.5, ""}, 0, 1, 0.01}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Style["Scale"]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`r$$], 1, ""}, 0.01, 1000, 0.01}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Style["Range"]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`R$$], 1, ""}, 0.01, 10, 0.1}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Style[
       "  \!\(\*\nStyleBox[\"b\",\nFontColor->RGBColor[1, 0, 1]]\)", 13, 
        Bold]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`b$$], 1, ""}, 0, 2 Pi, 0.01}}, Typeset`size$$ = {
    1050., {322.5, 327.5}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`fcn$706$$ = 
    False, $CellContext`a$707$$ = 0, $CellContext`nrm$708$$ = 
    False, $CellContext`ct$709$$ = False, $CellContext`m$710$$ = 
    0, $CellContext`n$711$$ = 0, $CellContext`op$712$$ = 
    0, $CellContext`w$713$$ = 0, $CellContext`r$714$$ = 
    0, $CellContext`R$715$$ = 0, $CellContext`b$716$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = Pi, $CellContext`b$$ = 
        1, $CellContext`ct$$ = 
        False, $CellContext`fcn$$ = {1}, $CellContext`m$$ = 
        10, $CellContext`n$$ = 10, $CellContext`nrm$$ = 
        False, $CellContext`op$$ = 0.5, $CellContext`r$$ = 
        1, $CellContext`R$$ = 1, $CellContext`w$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`fcn$$, $CellContext`fcn$706$$, False], 
        Hold[$CellContext`a$$, $CellContext`a$707$$, 0], 
        Hold[$CellContext`nrm$$, $CellContext`nrm$708$$, False], 
        Hold[$CellContext`ct$$, $CellContext`ct$709$$, False], 
        Hold[$CellContext`m$$, $CellContext`m$710$$, 0], 
        Hold[$CellContext`n$$, $CellContext`n$711$$, 0], 
        Hold[$CellContext`op$$, $CellContext`op$712$$, 0], 
        Hold[$CellContext`w$$, $CellContext`w$713$$, 0], 
        Hold[$CellContext`r$$, $CellContext`r$714$$, 0], 
        Hold[$CellContext`R$$, $CellContext`R$715$$, 0], 
        Hold[$CellContext`b$$, $CellContext`b$716$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Pane[
        Row[{$CellContext`Int = If[
             MemberQ[$CellContext`fcn$$, 2], 
             Graphics3D[{Magenta, 
               PointSize[0.015], 
               Point[
                $CellContext`Surf[0, $CellContext`b$$]]}], 
             Graphics3D[]]; $CellContext`Mr = If[
             MemberQ[$CellContext`fcn$$, 2], 
             ParametricPlot3D[
              $CellContext`Surf[0, $CellContext`v], {$CellContext`v, 0, 2 Pi},
               PlotStyle -> {Green, Thick}], 
             Graphics3D[]]; $CellContext`F = If[
             MemberQ[$CellContext`fcn$$, 1], 
             Flatten[
              Table[
               ParametricPlot3D[
                $CellContext`Surf[$CellContext`u + (2 
                   Pi/$CellContext`m$$) $CellContext`i, $CellContext`a$$ \
$CellContext`u], {$CellContext`u, 0, 100 Pi}, PlotStyle -> Hue[
                  RandomReal[]]], {$CellContext`i, 0, $CellContext`m$$ - 1}], 
              2], 
             Graphics3D[]]; $CellContext`T = If[
             MemberQ[$CellContext`fcn$$, 2], 
             ParametricPlot3D[
              $CellContext`Surf[
              If[$CellContext`a$$ < 99, $CellContext`a$$, 1] $CellContext`u, 
               If[$CellContext`a$$ < 99, 1, 
                  0] $CellContext`u + $CellContext`b$$], {$CellContext`u, 
               0, $CellContext`r$$ $CellContext`R$$}, PlotStyle -> {Black}], 
             Graphics3D[]]; $CellContext`V = If[
             MemberQ[$CellContext`fcn$$, 3], 
             Flatten[
              Table[
               Graphics3D[{Blue, Arrowheads -> Small, 
                 Arrow[{
                   $CellContext`Surf[(2 Pi/$CellContext`m$$) $CellContext`i, (
                    2 Pi/$CellContext`n$$) $CellContext`j], \
$CellContext`Surf[(2 Pi/$CellContext`m$$) $CellContext`i, (2 
                    Pi/$CellContext`n$$) $CellContext`j] + $CellContext`w$$ \
$CellContext`h[(2 Pi/$CellContext`m$$) $CellContext`i, (2 
                    Pi/$CellContext`n$$) $CellContext`j, \
$CellContext`a$$]}]}], {$CellContext`i, 1, $CellContext`m$$ - 
                1}, {$CellContext`j, 1, $CellContext`n$$ - 1}], 2], 
             Graphics3D[]]; $CellContext`Nr = If[$CellContext`nrm$$, 
             Flatten[
              Table[
               Graphics3D[{Arrowheads -> Small, Red, 
                 Arrow[{
                   $CellContext`Surf[(2 Pi/$CellContext`m$$) $CellContext`i, (
                    2 Pi/$CellContext`n$$) $CellContext`j], \
$CellContext`Surf[(2 Pi/$CellContext`m$$) $CellContext`i, (2 
                    Pi/$CellContext`n$$) $CellContext`j] + $CellContext`w$$ \
$CellContext`No[(2 Pi/$CellContext`m$$) $CellContext`i, (2 
                    Pi/$CellContext`n$$) $CellContext`j]}]}], {$CellContext`i,
                 0, $CellContext`m$$ - 1}, {$CellContext`j, 
                0, $CellContext`n$$ - 1}], 2], 
             Graphics3D[]]; Framed[
            Show[
             ParametricPlot3D[
              $CellContext`Surf[$CellContext`u, $CellContext`v], \
{$CellContext`u, 0, 2 Pi}, {$CellContext`v, 0, 2 Pi}, Mesh -> 
              If[$CellContext`ct$$, True, False], PlotStyle -> 
              Opacity[$CellContext`op$$]], $CellContext`F, $CellContext`T, \
$CellContext`V, $CellContext`Mr, $CellContext`Nr, $CellContext`Int, 
             ImageSize -> {640, 640}, PlotRange -> All]], 
          Spacer[5], 
          Framed[
           Column[{
             Style["Torus Wrap", 25, Bold], Null, 
             Row[{
               Style[
               "\!\(\*\nStyleBox[\"F\",\nFontColor->RGBColor[0, 0, 1]]\)=", 
                20, Bold], 
               Style[
               "\!\(\*FractionBox[\(\[PartialD]T \((\[Theta], \[Phi])\)\), \(\
\[PartialD]\((\[Theta], \[Phi])\)\)]\)", 25, Bold], 
               Style[
               "{\!\(\*\nStyleBox[\"m\",\nFontColor->RGBColor[0, 1, 0]]\)\
\[Theta],\[Phi]}", 20, Bold]}], Null, Null, 
             Style[
             "\!\(\*\nStyleBox[\"F\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\n\
StyleBox[\" \",\nFontColor->RGBColor[0, 0, 1]]\)is a unit Vector Field: \
\[LeftDoubleBracketingBar]\!\(\*\nStyleBox[\"F\",\nFontColor->RGBColor[0, 0, \
1]]\)\[RightDoubleBracketingBar]=1", 20, Bold], Null, Null, 
             Style[
             "\!\(\*\nStyleBox[\"F\",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\n\
StyleBox[\" \",\nFontColor->RGBColor[0, 0, 1]]\)tangent to the Torus: \!\(\*\n\
StyleBox[\"N\",\nFontColor->RGBColor[1, 0, 0]]\)\[CenterDot]\!\(\*\nStyleBox[\
\"F\",\nFontColor->RGBColor[0, 0, 1]]\)=0", 20, Bold], Null, 
             Style["Trajectories are closed", 20, Bold], 
             Style[
             "  \[DoubleLongLeftRightArrow]  Slope \!\(\*\nStyleBox[\"m\",\n\
FontColor->RGBColor[0, 1, 0]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 1, 0]]\)rational", 20, Bold], Null, Null, 
             Framed[
              Show[
               
               ParametricPlot[{$CellContext`a$$ $CellContext`t, \
$CellContext`t + $CellContext`b$$}, {$CellContext`t, 0, 100}, PlotStyle -> 
                Black], 
               Graphics[{Green, 
                 
                 Circle[{0, $CellContext`b$$}, 1, {
                  Pi/2 - ArcTan[$CellContext`a$$], Pi/2}]}], 
               Graphics[{Magenta, 
                 PointSize[0.015], 
                 Point[{0, $CellContext`b$$}], 
                 Inset[
                  Style[
                  "  \!\(\*\nStyleBox[\"b\",\nFontColor->RGBColor[1, 0, \
1]]\)", 13, Bold], {0.1, $CellContext`b$$ - 0.1}]}], Prolog -> {Yellow, 
                 Opacity[0.5], 
                 Rectangle[{0, 0}, {2 Pi, 2 Pi}]}, 
               PlotRange -> {{0, 2 Pi}, {0, 2 Pi}}, AxesOrigin -> {0, 0}, 
               Ticks -> {{0, Pi/2, Pi, 3 Pi/2, 2 Pi}, {
                 0, Pi/2, Pi, 3 Pi/2, 2 Pi}}, AxesStyle -> {Black, Green}, 
               AxesLabel -> {
                 Style["\[Theta]", Bold, 15], 
                 Style["\[Phi]", Bold, 15, Black], ""}, 
               ImageSize -> {353, 353}]]}, Center]]}], 
        ImageSize -> {1050, 650}, Alignment -> {Center, Center}], 
      "Specifications" :> {{{$CellContext`fcn$$, {1}, 
          Row[{
            Spacer[25], 
            Style[
            "Torus: T(\[Theta],\[Phi])={(3+Cos\[Theta])Cos\[Phi],(3+Cos\
\[Theta])Sin\[Phi],Sin\[Theta]}   ", 15, Bold], 
            Style[
            "\!\(\*\nStyleBox[\"Normals\",\nFontColor->RGBColor[1, 0, 0]]\)\!\
\(\*\nStyleBox[\":\",\nFontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \",\
\nFontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"N\",\n\
FontColor->RGBColor[1, 0, 0]]\)={(3+Cos\[Theta])Cos\[Phi]Cos\[Theta],(3+Cos\
\[Theta])Sin\[Phi]Sin\[Theta],(3+Cos\[Theta])Sin\[Theta]}   ", 15, Bold]}]}, {
         1 -> Style["Flow ", 15, Bold, 
            RGBColor[0, 0, 1]], 2 -> Style["Trajectory ", 15, Bold], 3 -> 
          Style["Field", 15, Bold]}, ControlType -> 
         CheckboxBar}, {{$CellContext`a$$, Pi, 
          Row[{
            
            Column[{"", "", "", "", 
              "\!\(\*\nStyleBox[\"\[Copyright]\",\nFontSize->14]\)\!\(\*\n\
StyleBox[\" \",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"N\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\".\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"Bykov\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\",\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"SJ\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"Delta\",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\
FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"College\",\n\
FontColor->RGBColor[0, 0, 1]]\)"}], 
            Spacer[660], 
            Style["m", 18, Bold, 
             RGBColor[0, 1, 0]]}]}, 0, 100, 0.1, Appearance -> "Open"}, 
        Style["  N", 13, 
         RGBColor[1, 0, 0], Bold], {{$CellContext`nrm$$, False, ""}, {
         True, False}}, "", "", 
        Style[
        "  \[CirclePlus]", 13, Bold], {{$CellContext`ct$$, False, ""}, {
         True, False}}, "", "", Delimiter, "", " Grid", "", 
        Style["   \[Theta]", Bold, 15], {{$CellContext`m$$, 10, 
          Style["", 
           RGBColor[1, 0, 0], Bold, 15]}, 1, 30, 1, ControlType -> 
         VerticalSlider, ImageSize -> {15, 100}}, "", "", "", 
        Style["   \[Phi]", Bold, 15], {{$CellContext`n$$, 10, 
          Style["", 
           RGBColor[1, 0, 0], Bold, 15]}, 1, 30, 1, ControlType -> 
         VerticalSlider, ImageSize -> {15, 100}}, "", "", Delimiter, "", "", 
        Style[
        "View"], {{$CellContext`op$$, 0.5, ""}, 0, 1, 0.01, ControlType -> 
         VerticalSlider, ImageSize -> {15, 75}}, "", "", 
        Style[
        "Scale"], {{$CellContext`w$$, 0.5, ""}, 0, 1, 0.01, ControlType -> 
         VerticalSlider, ImageSize -> {15, 75}}, "", "", "", "", "", "", "", 
        "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", 
        "", "", "", "", "", "", 
        Style[
        "Scale"], {{$CellContext`r$$, 1, ""}, 0.01, 1000, 0.01, ControlType -> 
         VerticalSlider, ImageSize -> {15, 100}}, "", 
        Style[
        "Range"], {{$CellContext`R$$, 1, ""}, 0.01, 10, 0.1, ControlType -> 
         VerticalSlider, ImageSize -> {15, 100}}, "", "", 
        Style[
        "  \!\(\*\nStyleBox[\"b\",\nFontColor->RGBColor[1, 0, 1]]\)", 13, 
         Bold], {{$CellContext`b$$, 1, ""}, 0, 2 Pi, 0.01, ControlType -> 
         VerticalSlider, ImageSize -> {15, 100}}}, 
      "Options" :> {
       ControlPlacement -> {
         Top, Bottom, Left, Left, Left, Left, Left, Left, Left, Left, Left, 
          Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, 
          Left, Left, Left, Left, Left, Left, Left, Left, Right, Right, Right,
           Right, Right, Right, Right, Right, Right, Right, Right, Right, 
          Right, Right, Right, Right, Right, Right, Right, Right, Right, 
          Right, Right, Right, Right, Right, Right, Right, Right, Right, 
          Right, Right, Right, Right, Right, Right, Right, Right, Right, 
          Right, Right, Right, Right, Right, Right, Right, Right, Right, 
          Right, Right, Right, Right, Right, Right, Right, Right, Right, 
          Right, Right, Right, Right, Right, Right, Right, Right, Right, 
          Right, Right, Right, Right, Right, Right, Right, Right, Right, 
          Right, Right, Right, Right, Right, Right, Right, Right, Right, 
          Right, Right, Right, Right, Right, Right, Right, Right, Right, 
          Right, Right, Right, Right, Right, Right, Right}}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{1151., {403., 408.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({{$CellContext`Int = Graphics3D[{
            RGBColor[1, 0, 1], 
            PointSize[0.015], 
            
            Point[{3.5486898605815878`, 0, 
              0.8360259786005205}]}], $CellContext`Surf[
           Pattern[$CellContext`u, 
            Blank[]], 
           Pattern[$CellContext`v, 
            Blank[]]] := {(3 + Cos[$CellContext`v]) 
           Cos[$CellContext`u], (3 + Cos[$CellContext`v]) Sin[$CellContext`u], 
           Sin[$CellContext`v]}, $CellContext`Mr = Graphics3D[{{{}, {}, {
              RGBColor[0, 1, 0], 
              Thickness[Large], 
              Line[CompressedData["
1:eJxd2Xc019//AHAjoewRQmYoI8mOrlUIRRlNq0WJRHaEUikSGUmhQanMRMi1
R2aE7MgM75eMQsb39Tnnd9x7fq9/3uc8zuu8Xvc83/c+X/c+nyL2LkfO0VBR
UZlSU1HRkr+Utf8uVi2q/7v+FG9q/KkUuC8wrGwj7rG5HbMCUTaAcpmffxlz
1+gPet8iXYCk1WbNv5jvi9sjz5juCZy9opymMb/xptTneWQAMPHJfTOK+d0e
0c3xhcEg3t9trgdz0SuBm/ve3wam7o3ZpZgLBibVH418AL7TX5XIwvy+S1uz
dtlDsHmwOPUZ5t1Usw4WhVHgy9D5VjfMgyaMPl5+HwsEaO83bcRceT+zucXD
ROB6giNrZBV5U8ZswrbKJDCv6ZZUgTn9Ri7f8NJksGg08toHc+8oBVq7gheA
3TvWrmkFe+8t6ntf3qYCypmfvvzLyJXg0mfvsAww7rwKev4hHz9m2VCtlwnM
vbI4nmBufmJbVWNZJmC+KjTEgfmrxyanmouzgPHEnOrEInKolVzy7GMOiNkz
WLDvL/LTMbfjTF7lgYjkK4Wu08hVud/oCfpD0G5d3DVOINfZMSe+TFMCIi16
PthgntSxnXP4QAk49FIyXo+CnNE8fOh1YwkwZ/eUnZ1Aviw1tvdPbylQlZ5L
+DmCfOgAc2XMv3JgUK32m6Mbuz/zYNsFhRqg/7d+a34R8ltFn/dv2t8MqpJH
g72dkOd5lisWdXaAO/kPYjipkUu83dZkMNkH8mdozU2cWdB7RzqPVzL8BJM3
WsSE6pjXXYQ+jfog+wj4Xnw5OJMK+ZJbtdLbhTEQNhlxx1+Mad3fbRlrjLWf
AM4tGkSg3uZ1D7GAf/yVpoDkaTaTe3qb1t0xyLF/MYMCFG/4sXzSQt6XLXDG
5wMFCM6MaY1oIPdQaTCczaeAfe/DlvcpIQ9PyN/bWEoBK5Hx4+Pbkffri0VJ
tVLAMHWriwQ9csaVryLOcxQw/mulW6uWcd2V3yakK+0mwIcWpRjrSuT9dTkR
JYoE4J6m/eFbijyIeilXV5UAf65pSuR+Qp7f/LhKARCg31wiTjQNOXWo5liO
MQFs5qV/jYcip0zyumufJ8A1F07W3cbIT+5yMboZRQA9EQNHSwPkvw2fSzPG
EEDEEVzz1UNuMEl1KySOADO3RVMqNJBPcf5MuviUAJRYr1tHZZHP32C9/D2F
ADIioQxnWZBXHYzsNswnwIlz5Y8smxnWXVGI9tGNNgKcOrl32q0eubSDegxn
BwFaZf9tfViDPC9KkCbxOwFKMzcOfilBnulzhTuxmwBnEzRNNbKQl+xwEtYb
IEBmfbMfTyTyD8o1/iITZJxZVvYqhCMP7rw9qz5JgGcrBzqNQ5FvmR6rN54i
wKZHv7ICg5Bn69x/d5wggJmG6/z4VeSdYSm8vLMEOPIrNjr3KHKztmh3yUUC
dJlQCrwPI7+/YcD0G+npiou1mkbIe193KHotESCyZ/JNpQ7yXRR2zlf/CJBE
9SDy227kK6/NxKNWCAAL6yXiZJEfEvFXWyBdXFQr/eQO5MufZCzMVwkQ1n7n
yaAwcmWPt4m/ST+YWEybIoB8zftwo8IaAdgYJs448iJ/by1Ie4n0A1/G2KZZ
kb/SXPIvId0zc6ttzmbkfzV+V/aSHnJ4wzsPeuS6koMcM6TXTbfNq9EiTztY
fW6FdKU+uG9llX7d57yfFq+RPmc3c7tkCXk001nBRdLFqp62BP9B/rZPIGic
dDfzGSH9GeTLpvWTzaS3Wwi7bqIg/2PgfTqDdGmOY9UN48gz5GW/3SR9pKlW
7OEw8v4/s6ZmpBvZCszx9CJ/ceXPqSYyniNlFZwS9cjLjtGU2pD/i3UQ5+fx
auTPWpwvTi0TYIl/m8f7cuQP9r/eepX06mBJAaVC5EaLLBG25HzweXTo+P40
5O6fOVq/LhCAgW4++eId5LLJzsN0MwR48v5O266bWHz+2rNv+E2AytEO6fkA
5HbZvvqL5DynGbyw/4YnckLRoLWGXBeMNsEmceeRNxrxX10eI/PJabnCZj3k
hx9Z8n/sJUC4LsvUDy3kE5ev7tLqIcBmhgST3xpYHKL8fMu6CMAT8vgZhxLy
7IctRRlkfmBQ3/DEajvyk3a7CJmvBBjfk/5tgg75pKuKc3YZAVK3CVHrVW9c
9/ylc9xTiWReZefLHTuIvOoO015tXQIYm7UJfjqA3c9/bfsjMg87KCvSheog
T9ovz9u3lwCvD6eay6ojFwr8udWKzPNeygs8PjuQ997MyukVJwCzt5uGLAPy
t3f/yu3bQABJB1pLmiq6dQ+M+ZltXkQBL3hlaNN0kZfRDfqJcVCAZIo9nYPJ
BhQHrh/b3WwngdROfdozHrTr3nz7zvGGE7/A4HTCy5UkmnU/rjI7JJg3Cuqq
TEVTCep1Z/pD33SlfwhsaPR4cPcg8t4j53YEOw8ASG2oF1dFte5+zfqP9vh3
gxMM6jdvOCDvGjFOrpH7Brgft4VKXUC+qcPp1xGWb0A8Laao5Rzy281L3h1T
rUB+luWF7BnkHBNeD5vetYLouVMhK6eR37lEleK3sxWE3L63QGeO3NYtMLRF
vAXEhZ/8V6iNvHB8Y2E6dzN4ejqZJ00LOeAKbZAcbwJV0YwX4wFyiR4ZxvGU
JnCkxSM7UBP548Z7XqaiTaCChbfrohpysy3Vhrm8jeCAx2pF6m7kTg2Ch0dp
68Fkk/FkgxjybUzeUle/VYOBDxa5bJirG3ia5kRXAzEWLTcLUeQdHjzxFMtq
UEfj1jgkjPxaVn7z0c4qMD5tRM+/DXlPl3RgV28lCGKiejPMi92vWp00MlwO
mie9K+ZYkee3jpxsGoKgWCHYxwPzgPQfDVvOQ7Dw9NDOJRbkn9QKXCxHi0GP
SKonPebe08qlxeOfgRzt83o1JuS6e3+xqFAKAW2PutcKA/IU5fS/A/N5YDff
3wDqDci/tjOdX6XKBCFU7R3ltMjnfzjnczJkgGK2ON47mDNsG1MVY0kHMdar
5lsw/8JmNyyz9R1QWK0qMKRBvvNGkMfv3a+B/nulk/yY32qnCm9VSQX1jFND
FGrkNQHUvJmaKSCxz+bDE8yd3L9dPW74EhQM2+sxYS73mrXJzTYJ5IlIyk9R
IVc0rttsW/8MUA750TVjnuw9yP+1IwFkUuacnmAuVyhNk0iJA+bz4mvBmO/y
a6xeXowBdtxrPs6YV4d/ZrGgiwZfSit3GWK+Abiu/eF/CBzUCh3UMK/is98d
fCgczCQ53ZPGfPPr8+Ls50KBhmFvrBDmS0JXquN8Q8AyM1s4Nz7O5TVG/sgg
UGFB78yM+RiVQt5us+uAkaNShR4fD7W/lYT/NcAPD07QYJ4f35UqbXkJ7Dz7
+A4V5koNO+QYbK2ATlQWK+5+6rM7FLIANHGMukGNv3eaPuNwwhnIFb6vewPm
DCa8iurJrlBdMVtoE+Yj8mbHDdy94X6+KRN2zDuPcCi+fnEDRt+aOrcV8wG2
Si2psJvwR53SUQXM524svuW1vQ8XJj2ltDE3kSqKLhePgA/F3EfNMLdwEFz0
4IuE261CRb0x/0zUGTXTxMBPg0n3+zBXrzzAoNX2FMZTdmQsY2445WdcV5sI
l5W1CgWweTgRqu0r2Z8E12zmH9hjXqIW3/is9Tn8nha+kw6b/zXXGR5YFKVA
ox47/hRsHak1W2/LuJ8OHyhfZx3D/NVwp2vzkwx4ZGFKRwZbv/NCIy7uFpmw
Rj/oQiHmFlG/J/3PZsF3ZYqv5uiQR7AF/7UKyoH7o1/0tWD5YVcV19xCUR50
zoi+rcmGvFx2lsFjSwmsMCcUqzHfHulh1HK8BL6ZXBU8yo7cUf7b7I6n5P2N
yc9dObC8pHpoZ51YKTwpdcO1lgvLGxKd/K3yZbDYsm/tJx9yDdbyoDHDCkjs
UY4o3468mVNY45VnDUwwcbMKkUAeTnNcpD23Bh44q7HZSBKLfxv9AtVcDUxS
zFLpkkJ+Zembht6VWrgju/QZqwxy2oJB7wCHLzDNtM2rXQHL5x9i3Aut6uGz
mO6+Fux7p2OU/s6Ftxlm9s0ueWHfWXPJbPEDw61wyeECh0A9th6/JL5R7OqG
LCsTRYJm6Lv/yFs+tzxmAGooGb8hRpFLR7w4dqpwCLpFD8z+e0Wz7vJh7D8l
akehzqm9wOYy2ocw1loGtWr/gtFyX9vP66B9y+792gKWhpPwfSoT3R01tM8Z
EjPO0qOlQAPqhWgNTeT6RY9mCxkokF5GuPW3FvLrD4WHpFko8K3P3UPWBsir
+z9+meelwMpwB3lghXw1QvHubjkKlJXlaRO6hrxFluGdvhUF0jRxallmIW9I
ZJ0cfkGBEuXcnGel0f7t6HN7m7cSBGxOCNJ+sAu5dq38xsidBHQ9OjNXsAf5
hUmaEhc5AvJzcY5waiAPndB3YFMmoGV3X1OdMfKfbvNOI3oE3LDNNPeIM/L7
jsanhmwJ+LKC3/pDFnI2JkAnEknAO9FVnVO5yMdjufnGHhEwt2MhR7IAucWK
r0hKLAENtAUCEsqQR+W0M9E/JSDR634otBW52H1H1VOpBNReqCu9No9czu2j
1tECAirzHvQOVkP7cHX+2XsunQSEWoI7/TWR6zA9MV3oIiBNdNBmb23kGvPd
wt49BKxZZTzlYoj8qnHaoH0/AdNXFXmtjyPf/sptoH2IgGknRLbpeiPnhJxB
WhQyblmFtlrXkU/tfdxhSBDwivlyuWYgco6Gl3uMpgnooOs+pnoX+Uu+w6tK
MwSknLQKk3+MnVPOnu94O0/Ansq4C+KfkF/43HmR9x8BM34vaoh9Rj6rvczy
nPTxs8xioqXIuXIffBRbJiDfWRNB4VrkSkN3WVlXCFhH77tLqAH5vu7cEi/S
O0VPH9r2FTmtSq97F+lttVrpAp3IV4KLh2+tElDQXHeKHzufRr4yeU6eT+Hs
kWVF/gHk7+4H2bGvEfARcLq5FTvnHmk0FjMi3eRhVBcfdi42XX066kd62eer
ynxTyNUyHNNTSN+ptimW9zfyy1fJLEl6qMeJfzzzyHm+G+gOkr4wesaeZxH5
HhcT9jnSB1cl6rasII+oTB9YIV1f5qXiFmpUN2i8cPHDGukzP7qfctMhtx0I
uLv43zjDGum4GbE6TNG07QTpYy/8LnExI78cVKLe9t/4o0caONmRTxXMbckj
/dA34iYHH/acp2nt9qTXboroYBdEHmamXSBD+mbKlCi7CPace+eTKGT8NZ4N
JbJi9RnJ+AT3E6Sft67bwqSGPJxmdF8LOU8cDv2g+6uB/JI91VNr0m/rHh0Z
0ELeUVlk8pOcbx4XIzzzDJBTtcSkti0RMKWKq9TuGHKf6hta1gsE1Jn7LJjt
iXxz9ueda78JWNA3mvXEF/lxP0oFG+nZOeelbgVgdZ5erw9byXWU+iY53+o2
Vi/yvfOIh1yP03oVRv9ikHt89LPJHSdgkGPUxb0fkWfcYrEOJNf7srZrjmgB
FrehsMu8fQTczfi8ibEYi4/XXHsqmTcElTX9OyqRa8505WeQ+YdHQzT+ShtW
VxyXLT/TSsCOMNZ/cXPIt1r/MThdST7f7FpHoQKqZ8ZsfbD78QsCGrPnFBDK
yJe0PuYxJBNQZljkgNhe5MxA77DLMwJ6zrSa3tVFfmsyJFfkMQGtT1txmZkj
V7NudeMPJ2DCsaSDjdeQS5nJOZ7xICBYBvKe+ci5aKkNjLQI2FJ9QFobq2+3
NIRG5nyiwJy8Pzqs0qh+PjYaz6dqPwVnAobs3gmhevspm6k9TZcm4C/OE3OW
K8g7zlSI2NOOQ/p3rxdk81Hd3mP/poMNNiOw9krs8TRHVP+n/yx7sUjkJ6Ru
clDnmkcecrWgsjy2H1bHWW9fsEd9hF155gXVUd/h0FB4lFEB8pW+79XC4c3w
rJNHomkhcmad1bl7Ls0wX82g+ijWvzhzgUdw1rQZLj1672hejFz9E5dfLmcz
vFTxfmZfGfKB+bWwLQpNMFPt+o/8Wqz/JZChS3ugAXLY3H+yrwPrT0m+NExw
qIWqKpTsjd+R8x9YCQ7fWQuHcxX76zHfqP02xmeyBqpopV872oVcRqosUOtK
DeyhE4827EW+6Z857y3PavheeIdH5yDyHng3dvVmJdTprHscMon8icep14IJ
pXCl32daeAp5EZ2tnKBlKfQ7VdKTj3n9eN0lHrZSOLnP8toA1lfi3LjXfjm4
BHK9qEvm/o31E90rJLg7iiEXg2o54zzy1rEtHtFuBfAus4rNdcx1WLw810Y+
Qc09WuEUzIlCIsruxCfI83z0Ze0frP+4GFHLop0PZ7/MZtovIDejFv7OzvIR
xrZ/2CGM9eNanJ4x/0jJgkOdNaNOmKt97+ju58uCJYM8KnmYiwW3uXXdz4Sq
Msx39bD+4JkgjhOBw+nwvgrjgjbWT6zxkZt+65cGlZpfavpiLsx+LMLO/g0M
oOvmzMb8Hg2tO6vBa3hpZ5srL9avlDmzydqCMwW6yp2cqcbc4020RNSbZLjN
SKRwCvM/F12MuR4kwYSt7FzseL814kO98PgzOOql62GK+Vf9x0/n/eOh38er
AU6Y09zjjWo1jIO+G17xhmDuKxUvksYVAzlOzi3hfd4fuokFumkPYTPtBr0K
zM9KHNzL9iscGqz8E/iGucKsffSDgFC4ya3j1gDm+lqcPRu5Q2DvoUj/SXyc
baMXPNMCYbHqDvp5zMU5+kUrA3zgUMxjoX+Yf0q5Zh+V5gqLwgaqVzFXSbgc
kJ9mB/9/n118d9h/ffbi/wF/gRI8
               "]]}}}, {
           Axes -> True, 
            PlotRange -> {{2.000000116926828, 3.999999999999992}, {-1., 
             1.}, {-0.9999998592131705, 0.9999998782112116}}, 
            PlotRangePadding -> {
              Scaled[0.02], 
              Scaled[0.02], 
              Scaled[0.02]}}], $CellContext`F = 
         Graphics3D[{}], $CellContext`T = Graphics3D[{{{}, {}, {
              GrayLevel[0], 
              Line[CompressedData["
1:eJwUmndcje8bx9t7CEnaSDRVKEXXQyoiq4EvCSVFGVlZlUpFSSoiUWgoKWkq
uZ422kN773me9jjnpN/5vV7nr/freV3jc933c133/RyFc1eOnudgY2OjONnY
WD82Gq+/caatEMFTaxawqjTSINynVzmbHAafSs2cUUshIvjhOuk+qQfgY/JT
OLR3GOhfW67y7RUiOG7riTsIPwWHJLzM5B0B6mJs+pSKEPG+6Ix14HgEUEeP
HrtlNgJa6mwn3k8KErePJT4Uz0iETYqGXf9qRkD+Q/Ro2D1Bgtn2sChq5w84
lm8jOVwyCo45s91HnQSJ/UzX04oTuaB80WLJsXcUYgveR82fEiT6LSEn4QPC
0ffyU1fYxoCruSGS20CQSA85sLrePQ9sApTUhHTGoNg+bkltSYAQ7rW9966q
EGi5aXfvvBuDFeGX8hgPBIiDxfuGtYlS0PgT/e2PJQ0ifvSs93UWIPR/xxw+
y18GXxyH77lepAF1/6gSh7UAsdqkgft+dRnY7cjojXGjQaqzk8kvfQHiSq1L
/c3TFdBWf3y3WwwNDLZUpL6d5ycsjipu+5ZeBbLNW22lx2jw6bxEceoVfuJI
0yvX/Z9qgT7IR1XYUnDs7JXC06f5ic/99EsKXHWg3vnOxfwqBQNulpf/HeAn
ziuFrna0qQNrf6895vcpiIq2FZJR5iemt4zymK38C/MldQKFwRS0bWO71NnD
R8T6pK+3u10PtjcyFc5/p+A4X9DP7TV8hEW03JfCinow9gnjwzwKcvXiDj4h
+YjHRUd2vlRsgOQbcv3Bvyl4crPBeflbPqKuKPVWQHUDWGlt4/zUQEFL9Y7P
JZZ8hLa7oW3x2iagLetL9R6jQMzm1blzu/kI5a/ZnB/vN0HsYy2HfxMUZHIz
W2bU+QjXXde3NP5tgmMzwdFNMxT8tLPw8JTiI8pHwxXt1ZvBm6fPctUCBW4K
nll8fHzEQuqgsJlPM6QMSjqlMSgYlzw25jfNS5z4Fa78tK0ZeIK2NqcusuIM
C/Hl7OIlFvRu4IYtLYALB1+uXKIgz7OHci3nJdxvZq9a86QFzKyDXtez+Nmw
lsCh77wEdU/r4YWOFjA5qNO5wOLZr2fLLGN5ictzMlaiW1qBpzLU0Y3FyYDg
5T+DeYkJft0pMb9WWGkhrGv3jwKNobGSte68hNxIyo8rLa1glLX6yGcmBVV/
11t6X+IlHA5qyGxSb4MIhd255nRWHc+or+05xkucDc5/ZODRBn31Sn7WcxT0
ZTe9hD28xNvvg85fq9tgDc898tcUBYMpd8WnpHkJwb1t2Z9d2sF+n39BwTAF
B9zUaab8vIRRUoj6tvx2WHWWJ8e8j4KmObrghxke4uGljyAn1gHjUhfvGHVQ
cPOJ3LdDFTyEh4PVW9EvHZCSub74YDUFc9I3m1PdeYh9fKXJuZc74bvvuXjm
Fwpsjo3vn+/mJpYrjywLDuqCydGiIWofBbKVQ3I3KrkJ8SbavVupXSB1OWl5
ih4F60cDfWZyuImF5Ne2y+q7YPjz9OEGZQq+rqkOEXjBTTwPk39nv6YbNuyX
2W/BT8HKwNRDfibcxP4vNRKfI7uBd2WHvyTSIMxJYUIxiYuo3/9tx7K3PdD+
QidRUYQG+s+/Wzt7cxKjoZ45ORf64GfHOP/DnaNw9dThG17XOQlnP/mzqR59
MMr/q3JOZhSqNBN3fTrHSbzvYG69/7oPzj6soE8vjoBK2mY+uV2cROxv+ZXe
f/qA+r4z0fvHCLzOTjr56x8HMX9n8qm7cj/YOt9W4N8yAgs3RsR2PeAgcr98
XJHf3Q/afvrLlIWHwV3q5QU7P3aC/Ti/Ytz2QXALlsdDTgNgYotbzxQuASUS
GGydNAwPZu271fi6IPnZD7+EL0vwwEtB9HDeMEjpBLyrqOqEEYnTgUphS7B/
uMXJpI71Pr3dd33T605wq/hwPvviEnR0RmvspQ/Dr48hfGKbOmGajOg2WbkE
Ej1OwfHGI6DzqazR078dusL1rqy99g8k32+qju8agZbPNyxp/c3wYo/w1cCj
ixB9qyXIb8MYFJzImqoxq4WdDwZ/XNq9CI8NOVSy9cfAwm2X/u7qGjA7PJPo
prUIcfVT7oJHxmDrzcJ9thY1kHq9/KbRikX4fEk1fNn9MdC+ZNyUf6IayDuf
La0amODZJbcxp5ZlR00+/mx+BVT48Qq7OTLBRv5zk+ETGmgeuViz8XcxXE27
4XMunQEzWdrS+ULj8Fv4lP2RMwlw8ZvuhNBnBlyoSX6pJzUOUcrKDltnYuBt
AOPIVBQDov1SeOs2jcPzx6s4kh6/h+t5t1def8oA9M15fMlkHBwNnWftbZ/D
PpNDy3UdGUCnSyzqeo/DYNObCMWl57j7yVLjWxUGPLJKiYvnmoC/6RdD9ZUz
sDtHL2poPQPiQ2ru2IpPQJjCDeMVp7PwrkeRiLMsA0RUj3/fs2EC+Nr1S64/
z8b4gNZgyeUMeJl0YtZt7wQE8oVujJ79iSHraalLDDoUcxqdbA2cgLdzw3V/
WgswV0NHLLmJDtFbhrR81k1C79/XZpsDyrCF/1SBaT0dGoRVeTq3TYJGvL16
Z2Q5arP/Vl5dS4dxWyU/e9NJWK/Co7T0rQJdDpxyMC6nQ74JM4t+bRIKtWu+
ZF+qQuuC4Nu9BXTozNM4Z1IwCQ+UmWrHA2qwR/ZwJns+HSpObdgn0jgJ9sFr
t39cUYvmmc2KZiQdhDxP0jnHJuFhtNZ0UHgtPuk7/c0plw6ReZxf7ktMgVnm
gIppXB0WBr5phx90aBF1WMemNgWznZI+y9T+4paH2laQQ4dJqUGz1N1TcGq9
4/4r3/6idRn7trzvdFDslnsVf3kKkuf6B0Zy6vFP5fkPu1nc/t4Z+THvKbhd
cjuRi2hAkwi/c7QsOpz8/lvt7JspqGLjzPxc0IABzXdnClj8Yufnce5vU9BX
9Myr3bgRlf7JNuWzeNf6n2Etv6Zgpso6KPx3I+68rfZkmMWbHKQPd3dMwXTG
hHXb/iYkRnW99Vh+9/EYGa2ZmwIueYUr0eVNaHbv265vLC4Zs+q9l8g0ZE3J
7hs72Iz7OWn6R7Lp4CtT4S+7YRos7/peT69sRrsbG0ZWsfJttOdSHdk5DUdc
nFzph1pwUsmzmIOlz7HgxNghy2kgJM/2fq9swWDB8UbTn3TQCfqbcd9nGp78
erH5XXkrHvBVWPW0kA5+x0LS/w1Ng/o2qcGs/HbU9xrUNy+mw8Hn5z4ksM/A
wOhCyMFtHZj1qKty2y86CGSXFHtKzkDSXTljm/gODFvPvGBRRocd3deYmftm
4HqEmeCMcSdeMmTTa/1Lh6ww5g+dxBkQFvisqruxCw3+GzmROkaHwBKm2Ys7
s+A7sMm6srUbZRauqguoMcDYOu7sr63z8C1QTJ6Drx/7Rq6tfarJANqLmE1c
5vOwUGFtna3Tj6fPuH+Q2caAhS3BlZeuzsOPrtLJFRf60ePgtPp5YEB2jt6h
n5/nYZQvm+1TYT+qPRIvcj/KgEG1W7zO6xcgeGn34s57A/g+Z+St010GHLLa
vblOhg5PFr3d7/wdxI/9G3qdyhlwIoFn8pUGE0qK/Xj2bR9B/bbkcv5aBjhw
qc0OWjCh+VlB48fTI1ihwx73oZEBPLSI1PN3mXAp60HWTa8RtLDQvFPUwwBm
k/diTxETyv/Tzr9XOoKVhiptPxYY4NyZ2jl0ehGEVl32XLQYRd0zRXVt65jQ
arRUXPTqH6yjLTXsMRtDh5t6NUMbmfCo06UzjfwHOrZ3FUjHMeTIOa48oMaE
eIVrt/4M/gMzbU749GgMlWnfLVN1mKC4Pd3swvYl2OX5+s+PnDG0i+SOdzdl
Qipzvui/1iVoGQkMHZSnoeEmn/H/nJhgr5FodDqUjegeTxLvrKDhwQYjj81X
mWDGpbfFOZ6N4F9bFjjWRcOLR9rOj11nwqnoj1f9f7IRZr+yHp6ZpqGOXVDZ
mntM+JZo82N6kI3w3PHL/qYEhd5idle1/Zjg75Lf6GLATiRYy9QdsaIwrOug
mLY/ExJWvb0xbc5O2KUtJD60o5BRvWguHsiEjvRwWS9HdmKb1l6XlS4UliWx
3XYPYcLTYJGrxaHsxNODMeln/Sk8cFXJtTmCCbsXnONbR9iJlR7k9dAMCndk
1dl1vGOCeMD3kz/ZOYjRjxJUHVL4Y5eLe34UEz5E2ackSLD67bbRp7d+URg3
f19SIZoJRptDuT8YchCJyxwDWhsotOM7+PhNDBMqF0fOJp7gIOLXckdGtVO4
iauDdzKWCc9kj8uQVzgIzh+8+kW9FBodk5DTjGfZV02254jgIHyknMI0KApP
nkxPWZ3A0p+/ymzzNw6i0OXruptTFNro8pk0s/g555vG9r84iIOuCtVr5ijM
fKdkc/MzE8bWNDE+tnMQRY7uT+XpFF68efXeEIsLeH1ePTTNQQhWJOzzYVKo
7uYnuy2RCev/iZtsFeQk+sjohf3/KPxAO1v2H4ufFMzd7KfASfBpPAu9tkTh
iX8GAsdYPD8k361Lh5O4yvFl5RyLVzimn1ZmcR2tX03EQU5CHs7dbmXxCIqx
u57lV9xK99BOO04iJnsoZAOLU0mmdSdY/PKt8xMGdzmJsFO2Z+oXKew44/8x
jZXXzkRjJ6MgToL/+fqeEQaF8JXa3c/SR+ai3aXDsZzE09aLihcWKPTfPm1E
+8SEnx+bX9v84CQSkk9q752l8IKH7a6yOCZMzv/3waWGkzBU5ZJ+Nkkhccjw
Hh+rLrGj24c//OMkSk5v/XVwiMIe58Gh8x+Z8KSFcR9XchGLjJNZJT0Uaklc
SAl7z4Tp6eCgdmUuQlLvZmtsG4V3X+ln33rLhEOPO1rXHuMiXAvfbn9VSWHw
sXDB1az11ixxxSE7mYvIlHy1fX8ia306TzwTDmLC41sctl1FXMTeB/WxC+8p
VCWGrtQFsOxLp6/ha+UieHbbPRINo7A0ZXlH3SPWPl3wPWHOx0189mq+5OJO
4e3th5eH3WTChvGHag1nuAkHq08WUvso1OYkLzXvZ9lnvyG3R4yHqNe7EL2N
pOHP5BxBNGKCybGNW3Yo8RCPLmxcfi+RhiJaNxWvAhNM+yP2qe/kIZipGs9V
XtFwe79OwTYtJhyeqGRbcuAh8k99MqtxZvHqrpGD4kxwnN5rs5dk2X8Vo7h7
OQ1PXtY8cLeaATfXcXtsdOYljs0pe4gSY5iha2H8VJ4Bv5wLzjzO5SNilna8
FNUeQSpOT9ZzJQN6tt5rTqhinbeWR4kfXDaCP+mFxUZ8DJCw2Nv3g3X+2yJc
xik1NowDWo1ntlN0WFpk90jh5yfeHFV7cC5mGE8IbeyqYvW7g5dLA+ss+Ak3
is8ja9kwNlT53/q5lw5zRopIDvATMrmtLwVrB/GyX2wLCQswqcfxQPOfAJEr
G7OVTbAfZXE+MURtAV4catOuFxEkTFcwNcxa+nDNRqbjNqkF2DTa5nROTpCo
2PDbxeBzH4ao5kuPzsyD7uZsy82EIBE6ObywzLQPX4497ZCKnwe2WZ/4cA/W
uf+1yN0Ar16sC/bwSeSZh9c9WHKFKUh88Npv+aK/GzMDxL6WRs6Csbhmu127
EDFsPNw90teOrKOPdt+jWWDuOCAeNipEfLy7J1jesR3dnJji5ZdmYTD8/MWP
dCFiuWXSFhxpw/baBCN+nVkQ8/x8at8qYeK/xzJse6hWtHY88HlH6QxrLu0U
LtgvTLjeWSP0lWrGB6+5GtuHp2Htwi7/rcnCRO1U7IOdjfW4wUUnoIx/Cu69
sK71sBIhgsn84wJpZWh6fKrv4vAk3AttEXpoI0J4L3/5JOldKco8P2Xd+2cS
isXybSwcRAg5w9gbf/z+YOujzz4X/VlzYcbk5+t3RIhvM1Gdbid/4VcyUb5a
YBIYmSOPg16LECtDHsRfZRTgwXxfrZucrHmUu7drXbUIEckW+MveIgMrN374
sNQ1Dlpza3buaRAhOvkkt6fLpKHPhJikMzkOa0o6Hm9tEyHEg3c6RPWn4OnF
ErWp++MgtfVh0JNBEaLy2RPXCVoCftdcOn5ziAKHWL90BlOEuO9V+zzwRDBu
b3XStcYxGDDbUDkoLUoc/5ig9Oy/BPAJyF2gPxiDfL4q7WY5USJNZKYgzi0J
Ytw75G/uGINNFitC368VJexKqXeyR1Lg+/n27RzfR+FOi/DGb0qixCgZXV56
PR2+XyH6X30dAeOCr7QmDVEivlZSKSAtF0bKtipoXx4B3Olx766mKDG8YVY4
pAAhS2OMPUVlBJyKKprGtUSJXbcjkviGSOjzFrA+GTsMf/+Nc9lsFSV+Sr+9
9Gk2H050eyc+th2Gr/+Kqqy2seLXSVZlWyyA74Gt+yPlh8GiRtppvY4ogVs9
Ftg5i+D1JesNb9uGYH/h9cYSFpeLt7kUz1cMLm9ClbzDh2BcRHz1Ll1RYiBJ
QWZSuASuZezTtzw2BGadq9SDWNykQfNzw/JfcOPfbTOxlUPAduKkbDqL/+WK
TbWU+A1bgk1Mv1cNAuETNJbM4nxGR+ovSP2B8Uge2YNPB6HXavN7Dxbf8b4+
jV+uFHLC1qZX7RuEa/4eoMTigwM5k9vWlsELawXmLp5BMH0fXPmRFWe68/2t
I+vLwcJi84FptwGg39rRJ8vKt+B6lmPDxkq4ZvlYXUd/ACY6x+/LsPQBk0PH
OcWrQFZl33WnuX5Q3xKlPKktSrRu/lJr+aKK9f61rE+50g8DT3umZVj6S9uv
SVv7ohqsFelteTZ98NWB8dljkyhBqF0UkX9eC/Gjs0kpUn0wtThjocmqr6A+
x6mjonVQKdZv+KahF1p7bDyz1osS80eD7NWf1kG9a469zaFeMPud8tWUtX5W
z6yHFt+/4LyD0C8y6AEzoYsuHstFCRFrR5Vy1wa4Jya0pVamC4af+VXumRAh
nM4cTSdMWuA/6ctlZU2d0GZz8cWFURHiHU/6u5XYAtYOaUkVLzoh4bbz0XMD
IkTgNdC5tq0VJJp9OmjCndD8du+mzlYRYt4qzeXHujbQ5xw8c32xDRbNT2ax
FYsQ3ar3rtnOt0NZxqtS1+ImCFxRun0qSIRQV99TK7unCzJfD9QM726CqMbw
tX8eixAZvw7bkne74MjGled9sRGenrqRdN9ThFi7OihDMqULjGKarxt/b4Bd
arH7b14XIU7F2CuOS3eDwNPSct7kv1B5/RfPd3MR4vKn0PYVE92w1N44MBpd
DWYCa4eThVnx97yIcn3SC1tUD8o2+xXA36gPmbEOwkRs60Sz4P0B6MuMuawQ
nA/LtVbf3WctTFCv55wEPw2A8JeHuyQj8kBuTGG0/IgwEViuph9fOwDDm20K
99ohePsfL76vJ0y0dfz88WPTIKj7OYQ2lWeC7M/gAlcBYcIG5Dk2Vw+C/02u
AZO/7yEoa2FJNkaIaCYfnf0mNAyZD0TwSFgq7hS74d5XLEgo94dJ1muOgqJk
a4ftzXSU7p/Mmc1gvc9fbbg+dXQU2t2sLukdyUTJj2ebx2IFCblrcUs+10dh
uKi3aj1HDso1RSo/8xEk1tNV9ERSRyGv56vs7vV5aKIYs/nTHkEicc3oowCV
MZDrOeavpfULd2ttmnj0Q4CoFk0uLmWnQRKbd76vyG+U/+PMpfBZgFixfqmJ
dw0NfMS8Q6KHfuMnZ7+OuNcCxMl/OndTNGmwbujIokZEKSq5G12/e0uAiLdJ
CdtvQ4NES/cbzpMVeOqSWelODQHCeiLR5lkqDcw/uuWZp9Sg4LHxoZC3/MSN
JrbNS0DBo9ncoPvitXh6VvuHpD8/Ify1Zk/vQQpm7nCOsd+pxfyIMP/nrvxE
wpteXk1rCgZPzFkpGNRh997Z9OPm/ET3HvtHbK4UyG5Ie/2F/Iu73seZHebj
J4rDm12vxlKw3MzqYLpcPSY8viB9bYaP0Dx1kSfgKwX7/4vcu9qN1ZdEklf4
dvMRDUdlLwhnU9B4+kY3pduAzy6orgj9wUe8y+4fIUopmFhh2NIX24gNlQn3
dl7lI3hWSXyx76dgUx6NLGFrQiWhsdTl1nzEessLjokjFPhe2bCd+78m9IvQ
2tO5j48gK7SarMYpWG8T6h4i0IyazsFc9uv4CN3hc/ea5ihIW5mW2Hu2GV8O
3WOTW8ZHOEbufJxCp0B4pYZycFYz9jSxj1YzeYmACx7sNCYFo6SaToRICzpm
Dam6D/ES4mtMmwL/UfD1nLQkp10Lsj/p36hUz0vUpSXxhS5RoPzuk1RJVgsO
a780+pPPS/h4Zj5ZZPFtOT+DBoVa0bvGbdAhmZeY07K1LmXxuxk+VRfOtGLX
MqHbnBG8RGFvzMNFln0bubPbjVJbcffDAKtwP14iU96REbJIgV5+j8ZD7jZ8
Oas+qnaTl8Bi/+pABitO2XpZ6WNtKNyxFPHzLC/xaLRLmDZPQW0f/9er820o
N/mhp1GPl9Aa20U1TVCQ9UPNtXl3O154uD/u60ZeQqftTWnmGAXJeaVJ3wPa
0VM+ycB3FS8xW2XjKMLqu2OT0xubZTuwzmK7utYkD/F812m9De0UFJqSB4/L
dmK6dC/NN56HeMkcGuDIp8Dkx9ZrLzW6cHatnuWd1TyEHdv1K0+vUvDdu6/5
xeEu/Ce0UsGOh4dw6lV/xG1HgbHeex+La11YmTaUd3Sam3jnHPZx3oqCiytp
K8W+dWH+bqWcHVWs+fnxz6bD+hSoyhSFP9/cjftVDvAf8OMmHGPP5FUu0qDI
+nuq4NoeTK+5K/RmgYt4pZplYXiRBotnf7apQw8K1+7bMjDARThdcIh5YkmD
Wm8FjtWnejD087MJ/Xouokz3nusRggYhPI0aBi960EJJ9ghbKhfRmeEuarOS
Bt+uuxkNcvWi966sZ0wnLmKt4qWT3hljEOpkXa3c3IvVzlek2Xs4ifq9/6SP
9IzCu8zA9d5n+jGw6v3FlU0cRJtvj5tq9zA83q6Y6XCnHy9npRZFlnAQqyiJ
d5tzhsFnnVe8XHA/skt94YYMDuLV4TffkkOGYdWrkj18Bf3Y6hBnnR3CQSQp
BlcpGA5DFWdWd9vaAbQulLJLPMTiBm4co2+GoP9izkrnlgGsLYofzC5lJ4iD
wY+rtw5Cs6CXMYfOEA6kiO+FejbitmZg/CaxPpgVK9607MAQEnGpbL9K2AgJ
6gZNt6UXwkNnti07O4QflU5YOX1nI15YTpzvjO4Fvgx3qZEnQ5jNeyKU7y0b
cWj/y43Mbb1QpcE8rNw+hNLbPE1Cz7MRp9m+iTyy6oFQv++/8r2G8X3UnqDt
80vwrIpHu9arC3if4uZVtSNor3zOP8/9H2j7Wu4dMmiB1jUxe9cPjmCvb655
8sV/4GLgrVyLzeC7wnXJeHEEuXwqhZot/0FR+lzuDqIZdmVM3q5QGsXHn7sL
+1X/wZUuTv9X0ATt1rtJDrdRfGP2QLizbRHE9T9Dhm4DjKs9OjOoMYa/h7qr
z+5fBHaVaeLLqlr46mq4Br/SsHFH6tdcCybsonGXC24oAm+PkYCTf2joyn2G
/bQJEyKEpoesxQrh8phcsmovDV28nE319VjneO7YwkPMfOg/oJFzdTWFXIfX
mSbKM2EitMJVqZqEg+taE197UZjwm03PbpwBX3m2br9Gy4JVOcOFb7TG8Qq7
XjnvGwY0uBp+iyp9C8vfqEUXqk3gjyAjfC/FgNsP1/6depyDbIs7Vj/bOYGj
tKniEXEGmOforgp9nosqTk6D98wmMDmaemO3jAFCHpcZWa8Ql1W9zM51nsA3
vDrhXdwM4LvicTmzJg9V+43JoWTW89WLMuxTdOC3lbWobClCizul6RXkBKYo
Hqv4TqPDymXH6vTbipHTf2FTY/UE2j+g8UQO04FtRH1ib3sJlqw68/TE9ARO
zgw2jnXTYcVkLrGl4zdyxnJzyOhPYpTSPf3Qv3Ro2LvKqrmlHD+8OpiuajaJ
k0tc1z7V0CFoIKKyvqkC29R2lZ6zmcTfim0f+ivp0JlcHHK0oRJLb0Uv7vae
RL7gG+87/tBBnEP4x8nBKgx8GWXVVDmJD8oNT2bn0+Gbi+rvs+01+DohjW1t
zyQa54WWrsyjQ7+yWvi6k7VI/kxNCp6dRCdJ0YsvkQ6qYeEJoQ21+NHhUs2o
zBTm8DdnCufS4QGP8+X7lXV4f8/xj/WaU/hXcDHu//es46+DJSjTv3hb+4X6
kNEURr+aMpHJoYNLW8YIX/FffE3jln18eQq3mLeL5H+nQ7qt+jLlnHo8vtqu
bpXXFNbvs7iyn8XHeuvPqm1twIIq26HysCmUaY6dnM+ig9nO7V2VSQ0osUzP
KylxCj+G2Gr/YXE5k65g0Y2N+Mp9sjgrbwpvpeqX/mRxx2Vz94ejGjFjyrlx
tH4KL03zmNez+JykSdxpySYMGTvTbDrK4nbF55ax/D4KNJW6+LwJx9cdpdWw
T+Ndg7jnTiw+7KLRK8DfjLMrXm95JDGNL39z3xpmcdWqThHwaMbjr0+VnVWb
RsMdV2Mes87rGn9FErjmmlE78Hmtg+E0xkTHp+1j6RA2sa34hHMLdkspfJi9
Mo3Nlsl5yiw949vfliUcb8W8TwWrV5ZO4/SKwBd2//8+cEnkybdN7Wi60kbY
pHsaHZk+v/4V0EGqOOPVz4h2rLt6ZWvMAitORV37jCI6fHDuHTcV7cBy91cX
ezbOYLhCnOT936x122TN1zbZgffvdao5Pp7B+uWYb8FaV3JfKp80NXVihWeD
TPTRWbR+Xy5fN0iHWYkm3r1Pu/Exd/RQweVZ1M44s95ylA6J8q6n24q7cT49
RU/CfxbjhNexjVN0kBjdFbiKrQdNUcv2eOEsXtl7/c/VOTpwTBVJXL3WgxoF
3Up7ts+h+B2Ng095GXDv4EDA+0O9KG3IdMhQnce6/1TNYlQY8NP6zbzYQh9S
Pe4bD26no9JkqmytGwPsYl9c01wYRJdXnDxZJ+nYdqjd2cKbAZvvlhqaKA5h
4n++X4640VEuWp635TEDai/6fuk6PIQNVtcvriik46bY4JszoQzQeEWfiIod
Qvfm2LjfRxjYIHCx+sD/v2spTjhrHRhG+d2pRQU3mfhl+5rNkw0MCNXw+jbp
NoIp/715/KntH4Zdy7fzUWXC4VUeIQsPxpBWbnmmgmMJJ2699ZfUZMJOj0Ix
h7AxFBiNcF25cQkLE7YaR25lQrBYpcDxr2OocfolY8llCR/kv73iYcCE82Rj
YXbnGBr0Dk+v52YjG5Zr3vc/xISgq8ZbPfRpOF6lvX9TJBtp+uO/i5aXmVCZ
/24uq5GGttL6NnHf2EjW/mWrv8YEn+ykerFhGsqXqDlrFbORM9b1+3bdZML0
1GO/fjoNBSSaXl8eYyP3sLuL1d9jQmffkjGHFIU3MnVE7uxgJ0+uajw94suE
q98iWhgWFPIvld752MpOjhZd8Dv9hgkj/M5rCpMpPFizcnv9ODsp+usBj/lb
JthqH9qXm0Uhx13RPcu5OcjHqtkLypFMaKr4r0E9j0KDs71EjBoHOd7C7u/1
gQlGe0s971ZRqNHnm8rYxUGK7a0+zBnNhMULf05bNLDsP3e5/p8VB7k226LF
LoYJNaEbJf5/DxkeNNag4c5BfnR3CCuNY4Ji+9bUr4MU/rJoXIgJ4SDFBT7M
VX5iwolXyRccxyic5cm3XfeJg6zdNnAnLZ4JY3ay4a8nKDTBw7VxPzjIK8K/
M10TmGDHHq67a4bVh+gF3NrVHCQhn79f+jMT9sp6ap+ZZ9lZMZtZ2MdB3hXa
Xv2Oxefeuz2YpVMY8ts69hSdg3Sd8uxdYvFvXe6CXIsUin8XfUoX4SSNxvrW
QiJLt6qfdX7/KDw2gErv1nGShjfeKJ9i8ZINuTXeSxS6mxRomuhyku2/a8Kt
WHzgjhH7PItfMBKznznASe63SF2hzuJnjl463c3iX48auX86y0nqzZze1s3y
u6jpP2zI4s9uRemcucVJnjwxHe3C4gnBpp+kWX7VOwX2Sftzkh3Ec44OVr6q
LWERTkwKP98Td26N5CRfkBZTG1ic2zShQpuVl8D26OoLv1l+GzrW7WXp+Ynv
wsqN0xRK74n20mrnJFPXsaXIs/T/XjS8y3KcwpZAUGGb4iRX5DMv1bLqpSze
37kwQuET0XK9j9Jc5K5LqWLFrLrreouQ8V0UlhYeuMB2lYssm8jrrg9nwg8b
44jYYgp/HPPgfO3DRV6Zuy5g+IoJ1yvz69pzKQzVSbXVestFHs1fyHB/wYQn
a7LSbqdRqOb7ZOb8Hy4yJNN9heMzJsjLMpXLIinctuv2ZNF6bvKd8wG7CQ8m
bBZl7+C+QqH/pxZqZRM3+czrWt/j/5hw0luAa5aiYYfBz9IAipus5ZI3r2XN
Mwe+a0dZttHwTLS+zRI3D2kp0V49cJAJx1bz7F/Dmm+6rJ8o1GrxkIYyne1X
d7PW4dnWI3XvacjbEbddOYCH7Nm4OoKxgQne71e5rDKlYYC88B3YyUum7KBf
/NHHgLTUk4SO2xhaK1UqbzHnJbXX/9nzqpUB+qdmwqXOjeHlFQ+PyTjykml1
yxz0axnw+M/cdSejMYz+KhNUGspLSlzXra9HBjzyFu+1FBhDP4VzXgEjvOS5
qIl865cMONflrXn86Sh+5uLJ3fuSjzSou7D/qS4D6lQaXOJcR5BWedp9so2f
PKr8bL71MB28Ije9cBgaxMjI3c9PTPCTk2ctrn0n6PB+JKpq8ccgBtYNfojn
EiDN2a5JWm9m9ccGmWNSQYPYYeNlzakiQB7h59xAF2H15QT1xMktg8gMc7oY
ckuA3O1+uDrg9wIcHswtVL4zgI3r/nU38gmSq8u+Nm7YsgAR4dSeJ6N9KHm1
RSpOQog8Eh3hLd45Bz7i5r/xUTcOHNRf46skRN5W+8st/HsOtjekWake6Eaj
pJr3RjpCJLlgpleVMgfWF2JOEMu70YxvXM7aSoh8+OBfWrbnHDzUWlhr+7YL
jyzszBsLFiK9Ot8IKK2dA0GxHTXfkjvxoYcM04pbmPx+7E9C+LFZmFKMvD3+
pA2rcJ23a7kwiRmDb+UjpyF42yW52Ht/sSndfqKvQZhc7+9ntNJ7GpK17Q7k
LdUhp1XuNo1uYfIgT/bZHodpqF3OLeDtVYdZ985HWcwKk7T81SbiWtNQffzJ
eb4ntbhb2N6lX1qEVBh4LVudPwVidxw0jEOq8aVUrjGXrQhZkTNwarZtEnjw
09vyzaWYUjKdJn1JhOT3sd75h5wE9YUzZv0af3DzkYD3ItdFSI0eCWX3j5Mg
yHklLUj9Ny4er7/l5ilCGhglxT11mITF09tff1YuQR/Rm/gkUoRs32JQazIx
AZFigl+vyhZg7QVur501ImTU1xsTvovj0Kf4o2aQSkfuic0XOhtEyJLnWB7e
Pg79h0bxUG8q3uLaKneyTYS8d8eeHorj8DX4xsC5xhT09oXvDQMiZAIv/xDx
cBzUYzfmnXH/jO/jf3iN0EXIsMCsVE/Ocdgno2plr/ESL7fePnpFUpSsPu5t
sZqPBuZx/stW/4iB4d3Ozr7SouTCK/VLASVjkLq5l5HwNx563ZYu3ZITJesf
LsW2+oyBlF/wmmraF5B7rzDZuF6UrOE+ySfOPQa3rExmfommgsO6FptkNVFS
hbdgcHFpBI4MfAl+uCMHpDjGKh9oiJK+CwJvLv0cgYDil66xxrnwH/PD1FpN
UdKhN+LGj/sjgH+SVhw+jEDzcjkwoS1Kvnp/QklwYRgqz83486bkAb052W3N
VlHSrPRAsUDmMBw1pJL40/MhYWXT6TXbREm+QuHVEzeGIePlDf7crAJwiYtQ
eacjSmod47O9OT4EzS1phzZgEXwp57ZU0WXpEKe5+8GnITCr9fkZ1lAMjcll
U74s/n34ZsKlM0PgPtew+hVVAlfYg4XSWLzopTHuWj0E7Hme0wq8v2F/NldM
8v+frzwSzVY1CIJ7Eoc0ZP9AIW93wV0W35Dt+iDedxBMptqDf2wphc3bZq6K
s3heRdHlnTAIaVaKT/NNy4ARLJHuzorTQ802Ind2ALZmrHfdcaYchEw2h39n
5fV1PEhZJWkAtDJ1ZtffrIC8TVtUClg63PF4s9P3/ADUjfol3npcCfsCFG9E
bBElGf3VCzXSA6Dy5aXCy4NV4MojbfuTpfPjJ9X/dvr3w+6z9zqtzlZDXprK
+bxNouTh2gJVzwt9sOv2MGZ71oJHhuhpUyVRcnNi/t17sn1Qd7uiZqNAHUz7
ZYR+ZNVdMGVnkPPfXrD93fhV+3kdqN0WWl4iK0r2ZUtHEIa9cF53x2nxd39B
GOT665aJkqG6ksN5sj0Q/cWiHb81gI+FjOz6URHSRWXnTrX6TpAuaAy/XtQC
7nnfIbdfhBQq49PRe9oJwo/PJNwxagVfA/VrG7tEyNaGge4jezqhnfxTOFXY
Cqa3H7+5+VeENG5cb7v/fAdoqecQevltYOVb4ETliJCpbzU2M+TaIJNbbqk0
vQOGeGc2+XqIkGk/xL/+iGiEVQ+H/9zALuhomGfEDwmTSg0D09e9K2FjGfP+
7T190Na4UuN1hzA5lBn+97lHBaz/rSM7c7MPYso28tn/FSb/8L3bafygHIy2
H1y7Kq4PzAvafF6TwmRyoPNdN9dScPMN4gK+fuhiBtc6vxAmva7vU3O7VQJ1
wLQTL+6H8tEU/3+6wuSdXXGrbDcgJCZuf7pOYxB0Ca4DNx2FSFkNp60uzg6w
ZeiPUljKMCy3LtwUeFKI5L9hej7F8BryOrH/5Kn///74FhZgJkQancUF/8O+
KOz3yZuDPgwOdw0N9TWFyImPazKniXBUuCOpG0GMgNEhj9ILc4Kk7ck3JbsC
PuNs27dMk18jkLR58bGBuyCp4R21p6kuB9X+miSx543C2WuzexbdBMjKka8q
jdql6LbYCZ4WNAgN/3A86bIAaWvztPQYoxTXZkpaCzjSQGXN2YOHTguQvx8a
+//OK8ML6wKPr3xAg5cV61ad2ylATviEzbvvr0DhTDIy8SMNIkOj3tTS+cnO
GH0tsfgq3N9xpalvmAZGYmqbVa7zk6KSD6brXtSiuoKG+M6zFOhrsokvneUn
40bolxjjtXjo2ZVo0pmCyMKi4pLD/KRUXrjUy/11KNEY3Jh3h4K+81urdNX5
yTc1cQFKrP7hQt24uCOIgpijJrofBvnILNmYV5k29Zi0eshEOJOCbP+oXYoN
fKSKeXXI/Yx6TM/N5biDFKiuKAuLLOIjxz0NxNKFGrD/vqfo2RIK1pXeuXTv
Ax8pM6H2zCOzAbk+1LyN+UvB2IvLtxtP8pHJyyvdPHma8GIB48HiCAVHNh1K
kjXlI7smdpn3Hm/CwOCa+L3jFIQHiaWd1uUj7zpOSWYnNGH9J0Vr0WkK7luu
dS5fyUdGXt4gnH+gGQ2USBlROgVHwypJJgcf6Tn3LmA6ohm/Fyou38ukoLZj
9XqlCV7ykP2u6Dejzbjz3p5TzEUKGnTEBg508JKhjZRfpn4LbkkXmFFZomDX
8twTl8t5STZ+yRt7n7TgW72nDf//P3C457Iy/xxecuxxxseDjS143YiX/f/3
xvI3xp7GxPOSnzpM//uj2IrKT5uvvmPxi10KVE4YL5l0t6M9x6UVd+57tjHn
HwWxQvZQ+YiX/Pqc48E6bMW/ynUq5qx4zmf9V9FxnZdsain0ZhdsQy8zNw97
BgVbzvqOjJ3lJf8oZ5paWbWhiNxj9Zl5CjwjZES4DHhJx9Odd86PtOHpI855
3pMUGDTzfhNSZT2/6sMH+a3tqFfDIB/RKBDtVVJYuYaXDK/6yGfh1o7WtRaH
OIYpILoiI+RnecgCp7s7FFnn9gvTTucvd7D0YTd/r5vEQ7ZNFnODeCceuuAo
IF5IgUNOii4RwUP+0wrr4dTtRMf8W1wzORREyTqL7HvCQ0rtsvnt818nHpPg
tzmSSgFfpuFnG3seUjfr35+Sd524PkerxD2Kgow6Lal4WR4yTo9n0mB9F5pb
MOsyb1DAIbb/loEgD7mTX8ifNOnClWYfcq9coMDMJGpd4xw32XXQ2GnuYhda
vn36X+AJ1nqQ5pmXrOYmXdg2lft87UJnC8UCth0U/NYW5u/24iaNN25bvl23
G1cPCl7NX6BBV71mSP0wF/kolLHNWq8HZwS1czlP0GBP5N0dVSQn+eR8pvtP
4T6UWGE3cSF+FIqrItw+JnGSjbMTogsb+/DiVkvTlMejoM952sIngpPUb/cC
pmEfhjcbWF5xHIVZ4cV/91w5SUXJ9YE2d/rQ/MTdhf1Ko/DCPFJgsyYnOc0o
b0/u6sO8hzf+ex0xAm5Ohm//xXCQJQc2DqvF9+PqL7ZzUpeHQfMmeqhFspM3
zyx3ypYcxH1uefJs3wYgtSfxcmAQO+lVN6uyVX0Q/Z/cMr71aABSxnOCuDzZ
SW2RbTtf7R5EvaHJy37HB4DxKkNF8zw7KWlq/mTNpUG8n9FZ5LXYD6dLLb4F
qbKTxru+PtyQM4hVP93rR3b3w35P/0eByEba7RU5svL4EIb4fBXX/NELL1aO
d0hRS3h6U+uezf7DqCtxmOvU5S64zj5sUtywhAql9S5H3w1jvvnnuO5tXfC1
pFA9mlxCHrZiLteUYVT+bC0jv9QJE5uGdjKCl5BteqKuqmEY2eZktxYEdsJ8
1AoXKb0l/DOyNaV6/Qhe3h38xs+yA2ZDz/abBP9DoUj3ljpyBOPLDbaIfmmB
vodXtilcWkRTcT1iiWcMLZbC9w/xsvryNjJB+sQi5n2VH+STHcPEkIeHe9xr
QX3NkSfHTRZRMeu4mc7WMdbcnDx7b64G/t1dCnm+fhHnj355w2M3hpmtuuUh
fdUwfGnFW75uJv6Krl7/tGAMT+mPKx25VwlT0dv1ORyZ2ARBWxX9aWhhTC/3
wWLIDe7XYT/JRNol6XML0TTkUljeVxdTBOVV6o1gxsQVWS8WOJCGnEvmPRn+
hRDOHeB/T4uJX7js7LOnaChTsjf8gFU+qAZJ8A4tMbCq8tufvzYUzoUeWPxW
kQMmR+z0XGMZ6O/j3vdHYRz5NEln07mP4GfmaGkTwcCGANvL4ZvHcdrNpSpr
6R3w6H446hXMwL0OXoYBMI41iaX0XctegoxnPttDdwauye562Wg9jj+o2MQm
8irYNv6TO3CKgSMJu7jlI8bRcsuLt7eeRWKFz4k1PfIMfGp2zblEbgJ1nwhy
+H3/jmc8faRd1zCw9/DiddrmCRyR8mG7OpmDt+3qbY1WMvCdzm1Lg90TONqf
dq1M+Sfu2XfL2pePgTHXLq397/wElvnZq7QcyMO2sked76boaDqsMOL/ZQIr
q5wNAzKLMPLRUaqolo4NPcWz64wn8aSG6oLe7QqUW+wWJKvouDD5sDr6xCRe
Gbpb/cW3EjV3fzMfLqdjxMFk+aPOk7jCf8fNwv1VeLHtWVr5LzreGNqiqv1i
EgebZjJT/qvGqvGliUfFdDQSG3e6ED+JkXQjq8Suaox0ufPRqZCOedVtyr9z
J9Fyk1bfYYcaZBPJjygg6bhKw0pi1cAkanA8zHh6oxanb7j800KWfZ28n+zM
SdwzPDwmT6/FzqOzvJW5dEx0W/NXSmwKjd9LsFm41+ExK3Nd/xw6fvVZv7lV
fwrPG1l+e+b3F200ua4kZNNRX6Wzy/PIFHaI9liGCNXjTCQ4T39n+WWGtx6/
MIWbzhm1qAbV47zsWKYDi5tJrjQ//WAKHZ7L/T6xogFFdhfX8LA4W5/XrZCQ
KZQPlfsk8bIBP3z6j6jIouN/ua9vzcdP4VAHP6fd6kYk6Ss8f7K4Qv6dh0/J
KdwORfY7whvRY2z76gYWD47JLjjaMIV54fbn3kk1Iduh2YcSLPtP/Gwd9tKm
8HTWDl/fiCYckzyx053FA7qHXl3mnsbjEy0OM9LNuCHoVIkwKy/lmxoPiqSn
8XPLprd9rP5c/qN561uWDucKgua5D0yj/JzhWcM3LZiWzCH69gcdP8Tda6Bs
p/FNR9PGRMlWvK+mHpXH0lP2ELkgcH8a/Ud+fXsa1oo9zIJft1h1yVAmfP4m
TqPv+bFXKc/bUIdTaJlnCR2rw4/8/blsBtuajJbpu3egTfmLp69+07Hxuff4
VuUZdDSU1t+40IETww32laV0NIy0ke8wnMGfuw3yd27vRCNvzbE3rPXmuMGc
99ftGVTZK/Y5JqUTZf5Z2kS10HEo2fjFTNcMJjvbOn5614VmY2n/6mbpGGlq
bVCCs1j6WEfF06EHzU1pd3N2MvDGo3oDpffzGOOzNnVdWj++azhbf243A8Xy
eGTIn/OoznFubHV3PzIh4IO4CQNXnz6b6dU6j5xU87Ek0QHMDkxyf3OYgW+X
jcY/Wb2Abh/fFWQ4DqBy1sk+STuWnYNLiyHBC+iVGHR3E6tvOL1Mi3MOYGDA
nrKq64F07NoQ3zFnN4T2wlIaVe0MvPzA2UgumolOsdFebz+PoBvPjn19PSy/
bZNeucVM3Bcsr2VSNoJtj56Zzgwy8HaD5iGPISaG+TTdvz86gs1GE7OcUwzM
tW6+6qKxiKv+8yj3VRnFy5sEU8p5mGiUZNHBlruI9g1RK1dEj+L2oKCL71WZ
2H31moNn+z9kUlfPB7mN4e0im44aZybGXlS+YB3BRn4ovr9scz0NRV4l3Q67
xkRhTz1BkxQ28siU1lLrIA350hueG95kIpeUWwwUs5Her0KzJ+g0LHkYOHPo
PhP9H/p/PjXORnrwbdp2RIbCtPHXhzc9ZmLanK+NgRE7mfBgaEfHfxQ6utBL
JAOYmNIxI/XqP3aSY7zJNc+Bwg9btquOBTLRSyg5/N8VdjJ2bYYg/y0KZdNz
PPVCmRhccCVrPJydFBx9q10SSKHVoOnKM2+Z6K0QbHh2gtW3tUBhIYvChzFW
r45Hst7zwif7VvNykHmmf0OX8ihc5K/6pvGeiUE/FkeapTlI9sKBOMc/FHJr
KoXeZtXD/vDzsft7OcigkN/8Dk0UvmWcPToQw4qzkdp36jQHedW3UITZQeFn
0bIX2nFMlLzCW7HnBgfZ7RkqN9VH4bVHL+Ns4plowsMvsDmKgxQN05/kH6fw
QFHkLYMEJrqpDcpqZXCQ23LtPDdNU6h4ULNsjsUFmi+L7yjjIJ3ovDmf5yhc
cTdaxf8zK9+A/HCzbg5y7FL7kyA6S0/tQMl5FrdS8j5pP89B2hp/6mlgUth3
PV/KIJGJH5fXcPqIcJIrpNWyH/6jcHn6se+nWHzivCkkruckV6/cwRO4ROHg
yYS75iy+U1z4e6MeJ5m/PDGfyeJnxM8MKbA4sfanlOARTnKq5uRYOYuzKV8K
KmH5XVfjK2Z4gZOMHtf0ZWdx42JhpiGLSw5I7/F4wEle75UODfv/fbhu2/eX
rLwm2rJP5Ydwkqbjy6WCGBRKKhQdR5Y+1RqqXPwJnKTootiGkXkKBd4JOOZ+
YuKFsD/d5qx58K6jXP6nGQqTzh26H8TSefd/D6M+1HOSs79Nln5NUMhoM1hI
ZdXrUNAfK1NOLnJl685EzUEKLx2QeMr5kYnKQvJvP0hykTopRvvvdlOs/XHY
dQOr7n+iVp9e1OAiWxtbhhRbKXQJ+p3VG8HEA7hpIOsUFxkzcS4mtpzV/w82
jekEM3H0VuY6gwwu0jbHfcfReAqVDJsMJJ6x5g31+kNRZVwk1+nrQxnvKPxk
V11X7M/EUHlSiqOHizRNiepxD6Hwp0/EuRfeTKzZCXIFotxkKzyJhHsUFtW5
2fRfZ6KG3LvwzY7cZPqpJcZ9QwoVJtULRfcxUc1TMcNeiocUGozdrpFJwzW7
pBR0DZkY2e+uKLOZh9TcR8xYsuadRxZrnmntZGLcLiuZij08ZEvGqW0LQTQM
TZ4ojtjMxNrcW06yl3nIPtmPYRkONHRzOse3S5yJtoUNo1dIHvKJZsWtVctp
+N04gz/qLwNdo2asntvykj+Eosp+HhhDldzqtemaDNxueFTu43s+cnvF1+F8
uxEMdWk6UanIwA8KbO5i6Xxk7TNTNqPdI6izuvBYpiQDdWPO+1z9xUc+SHgk
d1RuBK803bw1zsZAKn6b+RKNj6w886lOtHEYHxuHq/Kw5ocVPwNOHdPnJ50l
Suib9gxjuvbA9pyTdAwSMLvypYqf3Gop7mnPO4QnFt/EXjZfQJ8H4YbtIwLk
5Akul1KDftxmfdPn3a4FfBT8Z5srU4B8/VElfkC0HzfVOfNHaizgNn9+W7qQ
ILlHz2HgU2cf/ndP3X654AJ66iSfylATJFMs6x/JPOxDr6JX34twHiONFN9z
XxYkb1RumO7N7UXnPK679+XnUSvpKePXkCB5dZi6906pB/+qFiodJWfRKyCh
XLtMiEwu5jyq4NWBL8fEPnZ+mkV6IU34ZJMQ2R5SKVcg1oGeBX/3GT2fxaDg
DdPn+oXIOgyp6o1sx5FRDrHgs7PYsIe3fQWbMKkdpq6dnN2GHTe53Am2WUwz
OHpzWlOYnDolXB8y3IIbtRRzVLbNoE/72hbvZ8KkSph11K6tjcjJa5O4y2cK
k2TSF6I2i5APDU5SKV5VeMf9vnYWa46ZOOM8CHoipNB5T72w2Uq8XJb8lm/f
FB42r7FKNRQhc4+l2Gv0VWDKC7FuXcEp5DJQ4ZCwEiErisjxD2QZGnVOV/Q8
nUTR+tmJMlcR8n7spviN136haeeFg6UBEyge47ipOl2EHHTykfO/i/i40V9b
wmkC91nbGMX8ECHNqbBz101zcZVLw4M9+yfQx5Xz8f4CEXLF9+gr5ZI52F/x
0sCIfwLv/RVfLlIlQlb77nVhz8zAXR+ueIx5jePVXzdVHQZEyDVr435taPqM
bjV9emGsvmSTMJp9UliUXMOUMTYNfgq2y+DV3480NGureGEsJkpOc8tmiL0O
A5eLAToDp2lYGbJzC4e4KCmqd6fFaEsUvPeKcverG0NnOZNHI1KiJI/Ehps/
OeLBnRIw6ModxT/bG7UeKYmSKyxyquMPpIOkUX5iw+1RfB8/3ja9SZQ0SLz2
JtQtE8pvXV+I1xxFG4PchS2qouSed37mwl+/g6K3sl9/9AiK7ld13rBZlPy4
KLvwQOwnZAhSku2Ph7ErfH1n+VZRMvNSxd7X9gUw/6lmec3uYTzyLTCW3CZK
OisoRmg+KISQiIEvCYwhbOC8XeqlI0pKyx67aR9SBAXOkdyOaUNIeSgdkdAV
Je+bxD/Vii+GboHsLSLOQ1grTtO7x+IXpK2jgn6WgMuLHVZvFIfwd4L00//f
H2ub/Ll4r/YXuKg6PBJrH0QHWX6z/9832290TRwb+A3D6V/brr0cxDhd4YeP
WdzCSkepm/EHhuJS7+YeHMSulz6bNVg8TEw/0ly0DDZUq7vO8AxiclC9bQwr
TvoXrZYda8shTWFuYg0O4Bfxc+tHWXkdp85Fv9pSAV8sl35raQzgadeq2yNb
RMn57Id+v1Wq4GYt/xmlgX589OLp2mhtUbKH3T5hRVoVfN7d2yUc2Y/3jPWe
qGmJkg4rjqcK7agGO/9uiXSRfnxrtqX0m7oo6S92RIV9fw1Uut5ffqi0D2U+
+JXXsOpirBo1S/2qgbRas5edvn14Lme867eyKDnczG79zLgW+p/Rq8bY+lBO
8caDnRtY9U199rWBqPtfBWcejdXXxXHzg8eY0KAQP6REgyS0jymlJKXIFCVR
NA80GDIlUUrmlClDZQjJeC4SIZIx8zxzjeHx4H3efz/rrnO/+3v33mufs+46
YKcbvr1ypg+fauAzUmfkSVCBUI7x7ibY7cYscaqpB1s5Pb+VvMJHcJw10FVh
agVJ4/n62lc9WCz1ubr2Eh+x6vGG/6BzK2iuORw9bdiDWWq6bbLn+Iicy8q0
arIVorTW/l2r6MZVgt3yUmN8hMib1uORHW3weE7JTOpeF+b9Ft0o28RH7LC2
3hiX2QGi7Gfv+um24cyg4aGpeD7CxtatoDmuG5ZW7KqpRCsO1o8K3xrNR9C9
tTsG2rrhEW6bzjrYissM33+UCeUj5H5PFHwS6gHmtw3wROkvvmL79NmPp3zE
4XpFqs2THoiNE323f2szvt+T8eLoFT6iB4Xb6Vv0wqOIX6JOrPVYpuZklYcM
H1Gau+ekKXM/SEycKgpcK8M7LMS+snvzEvon5g44cA/Bk3v2nhrkd9x5+r5Z
vzMv8Yi+4+ZntSGwOHVu/ltXKe6F6uG3jryEwhRN29VxCK6/Kj4mVVqM2XtL
J2JP8xL/Asuni6uHIG44yk5bLh9LeD0bo4vzEn+47ZxzfIchJWfuo4hPArb3
av2o/IWH+LiBf8frwRHg1+OxOumVBQFMpYrsmEq49Ak0H9caB7lG94aDdl/h
cWNwcWcqlRjGY6WPLo5DVXjP5zbdbzByN7zlbTSV4BKipIt7jYNrzhM9pdV8
KBXUF6h5TCUUF88yFZSOg8mZPk2L5GJ4VuklwqxGJex/Gd3RUJ+A4VU98Q3f
K+DY+of2HBncRLVd3rV+wUnQL97ge5ytHsRemkYcCeQiPogZUc8fJ6Fb/BB5
8kI9mNw3lKl9xEXkDbfkLp0jQcjW61MproeQ+DzXo1e5iGzXwBieyySsPnh+
eda5ATLji4Y3HeEixjjOqEe4kdDyYKHofn8jNAW6T6sycxGUWJG1EykkWIem
PB/VaIKzF44q2ZOchNj37z8SMkkwiE7OrAxpgvHnFwaed3ASeY2HtW8XkHDq
at7kn8PNIIhTOfNzOYnn7lHfb1aTwCkxfI71fQsIPY94mXmTk3BZzjdcGiBB
Y98H/p65Fog+dK0z+jwn8cl8cT3LGAnGzGoXdx79CxmOroaeBpzEkrXeO3eS
8bzxnks8U3/BbLRh+sB2TuLMmfCczn8kyB38Yh2j1QqP5Y/VcItyEvPLmf8V
LZHQ8w8Fxwe3Al/FOelmNk6CWVNwoxCdhMqErj0ig63w66zb0egZCvG9K9S3
Y4WEciHfO//2t0F2ys7X1t0Ugt3Fx2HLGgkqE/+F6Pq2Qd3fkrNbayhEaNbt
3D8Mfq48+i9rcxsEHwoaac6nEHWmJ+78/5x5ju2H926Zdqh+UP8+IJlC1JhY
hr9lcNeQ84M1d9pB6WFaHYRSiNd/QD5zlYSkN2LH20vaIfrh3rpJLwpBXTch
f4ihJ6AgjMdMoAN4eIznIm5RiKa7WTGHlkkYMinhSUrugJf96YtjBhTi9LiP
yPt5EizfSAm4zHfAlJyOZ5AahZCmDO9kniHh8aOE+XzUCYXsW72Ut1OIbRN8
o80TJHzZvywV3tgJnx62qj5goxB3PmyKG+xjrG/Hq1e02AWEy5GEtTwOQpHK
G+X/kwSP06q5whLdoF3+a11sEgdxtmGjbVQxCVwOT9R8tbvBv7I8WDeEgwiI
94iXyiVBZ21aKcqvG/JGsiWDbnIQHhP3pEI+kLD7RtzLkHU98C8o31ZbjoNw
/+SXxv+QBL7ioh0K+3rg3qDbowVhDkJ6Kh23XCPhUNGDwx5neuCSivTBNFYO
QvBBbOrGCyTk2BjcuBjaA2dypcfku9gJqZg1CpseCU3sefqbNvSCW4fFtHkI
O5E6NKblwU3CnrZvomm8fTBrdIFplJ2dCFlKlzNzngR+eMKcJ98H8t7fv5jM
sRE7hXg+y9lOQnrV1iB/vT54+bIl5lcvGyGTrJzmbDgJH+sPenu590HhGTnj
esxGjKH7vtHSkzBob3ixjeyDJFFaucEDNmLBv+029ecEpFjFiL/83g8iFUIf
1KZZiUAtZh2CNg70/Sa6VP1B2Pu14H7VMAsR+EpLK5VtDAZXDv63YD0Iq0YJ
vaUtLITMjNb+Bz2j0PX6uGTB/UFoSDLOrK5gIZq/0XSaCkfBXrlCpiF+EDKf
t14VSGYh8JNads27oxCp/Y8wXBmEp7IJtnZXWIiVhxHEdOcIsM+Faa5PGoIP
l2+wP5piJqSKOXSPRQ/D5d12BzhHh6F7w/TrT1Rmwov/xpmgugGo/oN+/rc2
DCwqA7NTdCYi6AbPzsC3A5AZ9Hps9/oRUI8KqTWcZCLsqyT+k3QYgEtm37k2
HRqBb9/fF1nWMRFhoiWevGv9oH1Qvu9w0AjQPfoTcRgT4TL01ltMph8qNv5n
saY8CqPlBdSSnUzE2qNjHqs2vWB7ZaT7qvsYnChIOejTuIpjLt7L4N/dAd2e
tpeuvBmDJ215ukfxKt4WG8dZ+KUdPKWHCl1SxiA9y49JP3kVTxwZqevY2w6y
oolQ2zAGVNPnm9ldV7Grbv8tz31t8OvFnfLb8uPAIagQfEl+FX81YvOLU/wL
O59JfnrdOg5XnbDHYOAK9ksQ6brI3wiCP3KMgs9MgkYxdjngy9inJpjYu/D+
hDpLv3e8TpNw9G87UeHC2CfRrm1i4q4A9HJLxhevSXiMa0JfONLxBZU7hyQ4
ykEx1e6kZ9YkGO29GE+comO/uAilQyvfQcn6VpixCAl/nJMzPkvS8dCBfRev
DBHQ9tJH05ZRl+c4RTIjfi5j+sEA8Y9WGfDkjJb0AqNPDBJD3r54GSdu6fRd
fJsK35+5sdjwTIF76cW1pOxlvHfixp4NrimQ7xJ80kN2CjSPdhz0i13Gq06S
giIasWDdoO8veX4KjDfmNuW6LuNtpEvSS7eroBvZp6bQMAU35dyOpaFlbK+t
pKlqmIavly7vse6bAln5gNha1WU81LmSCDkZeObKlpdZM1NgaHrkrOTeZXxD
fd/m0B+Z2N5k5luJ4DT8XrlXbyKzjOt2+Yuj/hw8p71d9bHRNLjd5mvn4mfo
r+Nx1uIlsGDiXrePzdMw/vVVo/YIDdcmOzuEK1dgKaWKFdGRaXin99Hy3AAN
e6rCOmbVn/iz5jm7FNo09JT2fonsoeGYgCMSK2qVeL7+4azm1hmAHJf7Ca00
HKLqIR+DqvHDlaQsrcszkFoPfN9raDju55HjAtt+43/fD2sOuMyA8j3DT/ur
aVgica/735jfeCxOMizt+QzkCRhZ1/+kYXs9K2wuWYfVU0fdCr7MgPBmwQi/
MhpWbSntfiL+B6+pHlgsYJoF9UPfubqKaHh33z43iQ0NWPKkXqGhyCz0lNu7
uxbS8PzAhovkuwZsvuQkKbRzFmJX3/49VkDDZ2nU2bOyjTgld8GKojUL7/co
hBzOp+FLihlPjVMbMU/Si9SdprNAMgUoX8uj4SDPIreBfU049KeGnue1WbgZ
OaBcksvwR5J7PyW/CW90sbWies9CwUbh9Vr/P4d+FUrNQc1YoK1QtixyFuTr
M49NfKPhsN74CzNlzTjS6lxj+pdZCC/eYFLK4OVFOe++6rdgo2PhoTU/Z2H9
hGXa/7mdZ8p25toWnGeu9HZrzywsdtlW/38dqmauQ+2pv7jOVlwoZnEWXku1
SWsy3queFVi1tekvzubOlD4rMAcyZYd2FTK41B6jwnHTVuz9xGNZQ24OWPp6
LWwYcRU9TUvb39aK1WzssSmag3zNOSkFhg+udRPCNIs2rFBokCB7cw58fzpp
qTL81Ek12tBn1Y4rdM7xtfvNgeXl8AfODP+XYi2SWLvacYz265nS2DmYe1HC
04Fp2D14R/Brqw5sE2meuKtxDq7718wJldKw+NaP3gvmnbiF81TeLfV50I7s
fyVXRcPn9ksYlcl2Y8fkaJvy9f9gRmKu5TIj33guOql0UXtx953hHUVK/0Ao
un8xu5+G332WG2o+3IszAqr9R47/A9vgtjbxYRoWyTTnuOvRi6kKtHWd3v/g
asjLyzokIx8arFdD53vx8cgutkO0fzAfp9dctErDsupH5G3+9uFa0zrPuvEF
eGEuzDYiuYytBDWtuAIH8KpP2Mv4xSVwvmhVe+/OMhYJ6A69GM/Yd4UENDtu
osGfknzmHpdlnO7V6cJWN4xrG4sDbdVpUL+lNs7IbRlX5z/yVlgZxmYNLTd6
3GmwxUYvQfvZMvZu7P2x3ngE96p/DOXmWQYdzlvRpu+X8dkPyYqS9BHceePM
9R55OjgO+nt8rV7GQUOndnvuG8M9hkKt7k9XQVvYbfUno4/dlVDZ4aw5gf9E
FHB8SluFjc/becpk6Hj2zDn1NMsJnKD50IfetAqO5qT6lx10vKF01dXUZQI/
TrpUS5VZA+XVrEBrZTp2fbTfey11Ah8L2HWxuWwNduQYkMt6dLxgNR0bJDSJ
tbwM9Du9mVDV0y1miQ503PaP4n6+eBLfrT383jOCCZXcOK7yyImOo9RC6e4N
k9il6uKoShoTqrHWSle9ScfXDFLDeIcmseCeOuPqFiY0EL+809GZji1Nl6rs
uElcInNh99udzGiTlrrXO286ZitMYBPQJ3GmtrhVbBMzctp1TOJ7BB3fselX
X/1EYuUws9iEUWZ09Nvv4oIoOu4PspTl+UpiYxsVsS+rzCh5eP/98Gg6dii1
rAsuIrGtSUL+gAwLYllQvr0SQ8fsNplNwjUMbuZ/iUeNBenJhg96xtExd2nv
FG8jibvksIGaIQvS/nWvfDyejqukThxxbyOx9crmjvT7LGhxnfY+20Q6LtyY
rlM/SOJdSJd9wZ8FNc2/nb2ZRMfCKwJ5mWMMPc+wk857FiRfe9LXOpmhR9uT
l2+KxKk+1KawLAa3PuCvmELHgfcLdvbO/v8/28MrsxUsaD//uqhOBqcKfaAo
LZB43kY+9kwHCzps6Gri9JGOs4stXy4skVhhWdCzcJoFTTCxWrQxOFuUcv4B
Ookjwhcsd3CwouFq3qNyn+hY3jTLdfb/910M3Z+K3sSKNJz/Ff3/vLnr5pt6
2TUS/95UvyCqyIrydzOft2Rw8sjPrEYGX3KYVArRZkWjLdZVOgzuvP+uOGMO
x4XPzphuNGVF2odUE7kYfCpsdl00g68pqMvHOLKiUouYkI8MPS1N9S+/rZL4
pLvbBQUPVpT6POGQPIPvNG2NOs7Q8+ZTYkHhG1Z0I+2orjcj3pB7TBpmyyRm
MZEtHSliRc4tF6m1DD/TucIteudJrNk+2+9Vz4pUHlRuLmT4n/2XfdZihhHv
+VdCUsOsaNbx606fD3Q8FuVzzGiSxGob/7heFmRDVBbKSiLj+zIbLDxN7Ccx
5cdyHactG4r4rnxMkpE/lhYQxVNFYoddEjFZzmxIo/DG8c5wOi7N8I4wKSVx
NTTr2ASwocOKzSW3Q+nYK+CuxJZ8El/hrhvO/8qGuMzvdsi8ouNEjd+GG5JJ
3FJu/PkaFzuiGienJDDyOV35dGC9K4lPE9Olfqns6CifzJEKWzqu0E065CtI
4mynp08kStmRwI94vrHzdHxJ4FLGC2YSK61tcc5sZkfnP5Wx9pox9LuuaxWe
nsRjZHhrNRMHcrPd9PLYSTp+Qze0jaqZxJN1CcplpzgQ2zEKH0WVjvWuU+9G
eDLqbijmk988B5ree9RphpmOpURz1WMbJ7DMt5Mb71ApaDWqsiVkaRkXmc0d
fJ8/gffW45vGkhQE/OXr2KaXcbnYL2NqzAR+GCZtNX+cgvbKbt9xoGsZj8ff
HZO/MoHdsK7T5zgKkq6itjPnMuYWb9HM6PlxfC2UK+X9CU6kcP2yyaLNMvaq
6zvUOj2GUxRi7EZCuZCFRVdi9lMadtEXp6h7jWD2Fj2dho9cSOL9vNg+Fxo2
rD/DL3huBJ8vMZ5KwlxoZUfMXWcHGl74zN1hrzCCNR6PqvENcaG9fdIjp47S
cG6LgHx8wzB+bCHqWLSPG/mOdHUYctDwUbulHJstw9jxwaV42yputPE0+nX/
7hJ+mPUmszhsEJteSuU+10dFToMjBnrbF3Gm2i3FPxp9OGdyaCxnhoog4dsn
xfWL2E7zKSWCsw9/0HEcXGLmQZxruHF4dQFfvDo5wl/fiw3+HpGWkeBBXLLC
h2vqF/DSKWUHrsu9eEpltnyDOQ+yDm7devXhAtadm+047t+DW/jVrihV8SCL
ksobYiX/cGpCyLNq/y4s60zVfvWKF+Xdz8oWVpzH9x4pOpxY34LLTlSe7H7L
i1SmFB74rZ/HzRN9d/jCm3FKxV4L7mRedH7PtGTT0hze4/Wgz35LM27dgtKm
i3jRwn/NF5ZL5/CbuC/q89JNuGNXNOIc4UWOLal1rmfn8IaZ5icfFBtwwdFg
TsX9fGg8pMsj+84svsK5+lBX+Tf+7eEZdTaTD0FlVI1T2DRe2/KQWViSwP/+
Gqhl5/IhmXLVSL0H0/iVP6vXYY0iPNXxsG4c8yFz3L6NYjGN6evudw+oFGDq
bS2fwSo+1OvlMHNAfBrfkZ2OqdnxDU/1aCYx9/Ihi5Ws8FvxU5jI/Tewhz8d
H20uqS/j4EeS2hGximcYfWQ5hCappA9Ch9ysU7j5UZCG/C6aMImPe4i3qY54
wLDSFWzHx4/o+SIib5smcUb1k/zXokFA3eVTaifMjzTOiRtdN5nE+3R1C3RT
30NkRHD+E0l+FBV4bdbCZAIfuK+hVXg/HZ4du/tRWpofmcTptzOLTuD+UmfX
E25fwN+gRzxahh/V/xHp9G4axzPvqbte+2TB60T7x6I7+BFzuv+bXWfGsQj+
ZSwc/A0ExFK8pfbwo+2bHX9tMhrDGTd2cnOdISDVSo3fYy8/Urvpe/s3/xgu
1Q3dLG9SDP8q/Vez9/Gj00JiAo41o1gkbdiB9VwJpHMz8X7Yz490/wuPNT02
iq8rb1tXY/4dLpUfVrBR4Uf+RorGH7lG8bPI6I05FmVgEvEqe5bByyYDbg+V
j+ANEcdz9Sx/wGFxgyTLA/zov/7tXbw+I1go3K7qoWU53GiK4nzH4Kf2fbor
rjOCa9k+7DC0rADZbZdacxj8eu2Y8BaWEfzzjnFOocVPEECHtyUxePqloWgK
MYxflVsYlJpXwqTG24HrDO6tismux8N4VcWixtysCpZGPOX5GdxwKnXog9ow
zrieKeZpWg0jRb8XvBk6pW0pdpZLQ3gxIFRM+ewv8KwSOdPAiDfmrpw+W84Q
FpOVynI6XQORS097Fhj+XFx2KJbZM4TlxQ/J7Jb5DXasflK/GH5OpFkKxZOD
WObyT0Fq/G/4VbZ98wOG/y5yWUeEPw9i1wtPxN9L1kFlKec5c0V+xJ3wqbVJ
dhAbeFZ6zm7+Az/Omzury/KjL7xhzKTYAP6+5U8PB28DvDbxmvHh50fj+7PH
lTn68KCZRZ54VzMEe47yB1D5EXW9d/fHwl6crShBnbdpgcHP0iu2FH4k9kGZ
JnW3F19u5X1zur8F6pr3Fj5b5UPXg46vbO3vwV/uXb4SO/QXZAQjdTNG+dC8
78lUq5Ju3Nc0dUBruA0+uhup+OXxoRNbDiyMMnfgxBNc/ldru6CdY/rOc1U+
tGlBfE/c5gZcypSw3/1VH6ht3TAgqsSHTl32O7X7RT3WOfa6SqmyD5ZLZuMf
yPChnIzBX+ys9ThPV3PJnbkfHKmyTOXr+JC/S7qN31gdNn8zMrp8rR80Q8if
Hoz+0JJFilu512If+yJp0B0ALd4vXjkveJGE3H3JdbM/8PfFYZWNnYPwNsZs
PbWYB+m7PVnRK0nG+2/H/nLJG4GifVc0ZzN50Dty7OkLtg9Yzlx53+2eEcjv
a8rEH3hQqYCNkJJ+LNZtFW5YpYzCj9iFOxzPeRBzp37KIfwGHywL21t5ehTs
fuxtPnWGB9GD7T1rrVwh/lE0q8TgKLx2Psgszejb6U3Dg/4H0+GVtlyU1vwY
pK+um42b4EZ979rH83LKIErudXZ07gSEnisLiO7gRh6aix45T3/Ab+Fpo/K6
CUjXjgzy+cWNskI/KiaalkOJSNKtmyMTQNES55f4zI3+NOgfNZ+vgPMKeRlH
RCfhEXXvU4+r3EjQ0iVxUbIajrxPS190nATHH402OgNc6MBpP+4oqTpQ8JJc
E2Qi4fpAZdfBBi7kYOv0xNmzDiTdNzvLCZAg9Az/lCrlQqnlgc/Ke+ugkZm+
K1+cBNGrkXI177mQ2met3QXv/oDz8OWTxhokaN9f5go050JG+PKOpXUNsPWb
3ZcTt0iwPWJ/i6WWE2Xf3SQW1dkEZHlRhnIpCTolox+U8znRmk6y5ltohsWE
of76KhLGOTbbWyVyokLRcouxd81QKKzKWVlPwg9TU6tXbpxIzUQg8ppVC6wV
PXxQ2EMC9x3zB9FXOdHe9y/64wpa4DZOc8sbIkGqa3oqxoQTvX6nfUNm018w
u/S6h2+CBPGpzPyXipxoPqFtXKj+LwTrqJwonCcBPnz792gzJzp7JRrcdrXC
w8T1O0SXSLh3gH7uAoUTsWgahh3wawWf+XbOimUSNvwqN9WcpSCxcIeDqK8V
6GImf2tXSMhxOWm3qYuC7j2qvRGi3gYeIeVBu9ZIqFjOnJ+opKDNb34EqL1p
g6q3U/L9DN51c96l4CsFhUzPjSpOtAFpsi5misE5RGiXfGIpKNDHcuS2Tjso
DI3OnmZwzyXvnccDKSjU0WKaEtkOho5fZfhWSfAuPoD4HlDQho7YW+NT7RA4
vwuJ00mwuvRM6NclCtIY39MvebgDOMyf6/sy4hpUESjR0qCgr9wZYR6THbCY
fcSRMa/CvayTHjQ5Ctp4j3fyk2YnENzPkn/+/15oJa2K9PUUNNXpbbojuBMk
99yRChwmYaqYKXPTOGN+c9jdI6XCqH+p87ClnYT7Bzar1jZzoPiLgcfe+XaB
Lk1SariBhFz2h1SvUg6UkHDi4o3mLvh7XqCc+xfDf/mKs1MRHOhZwiDyP9gN
B54oLpnkkxA5ZlHadZQD3bovvkOnoRu2GTc7ir4kwdpm90isMmPO7H1xpW+p
G67m0d8leJJw1ruiyUGSA70JI0uUxHvglGUtCrhHQpiGD8G2xI72mbyLabbv
AfSwos/BjATljUb5D5LYEaXOgmq72ANPNwlutNlEgtnnWyfKONlR0eL5XTOc
feBrllz05uEkfDxy4fnCHBu6nR4b+GV7H0jxuGX32k4Cbctb9X09bEh7LVFE
Xr8PMpy+sr8wmIQb5jIBNblsyNfE4JTmsz647lcRS9kyCcMjiatBV9nQz9YI
QWlKPyR1PdvsmzUBsqWdvdtM2ZDZyZC9Gf/1Q8nOPes6wibAR8nFoliHDUmW
4X3L2v0wORkZFvJoApi2pryR28qGdqU9G65w64dvqoWf92tNgDDpLTLDzYbe
/dDfeeJtP9joMt3cKj0B72L00yoXWBFT4OWbr/P6QdlJRMGRfQJ2vRgr+tLP
itav3PMNb+6HxRPgJTE4DsF/UuJS6lhRBqUO2cz1w9aTA5vVf4zD/wDC43MP

               "]]}}}, {
           Axes -> True, 
            PlotRange -> {{-3.9026871664101956`, 
             3.9026944219697444`}, {-3.9026876467140035`, 
             3.9026892062785237`}, {-0.9999986280833602, 0.9999988278687659}},
             PlotRangePadding -> {
              Scaled[0.02], 
              Scaled[0.02], 
              Scaled[0.02]}}], $CellContext`V = Graphics3D[{}], $CellContext`h[
           Pattern[$CellContext`u, 
            Blank[]], 
           Pattern[$CellContext`v, 
            Blank[]], 
           Pattern[$CellContext`z, 
            
            Blank[]]] := {(-$CellContext`u) (3 + Cos[$CellContext`v]) 
             Cos[$CellContext`z] Sin[$CellContext`u] - $CellContext`v 
            Cos[$CellContext`u] Sin[$CellContext`v] 
            Sin[$CellContext`z], $CellContext`u 
             Cos[$CellContext`u] (3 + Cos[$CellContext`v]) 
             Cos[$CellContext`z] - $CellContext`v Sin[$CellContext`u] 
            Sin[$CellContext`v] Sin[$CellContext`z], $CellContext`v 
            Sin[$CellContext`z] Cos[$CellContext`v]}/
          Sqrt[$CellContext`u^2 (3 + Cos[$CellContext`v])^2 
            Cos[$CellContext`z]^2 + $CellContext`v^2 
            Sin[$CellContext`z]^2], $CellContext`Nr = 
         Graphics3D[{}], $CellContext`No[
           Pattern[$CellContext`u, 
            Blank[]], 
           Pattern[$CellContext`v, 
            Blank[]]] := {
          Cos[$CellContext`u] Cos[$CellContext`v] (3 + Cos[$CellContext`v]), 
           Cos[$CellContext`v] (3 + Cos[$CellContext`v]) 
           Sin[$CellContext`u], (3 + Cos[$CellContext`v]) 
           Sin[$CellContext`v]}}; {Null}}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.47111973578125*^9, 3.47111976559375*^9}, 
   3.4711198139375*^9, {3.471119957375*^9, 3.471119994578125*^9}, 
   3.471120036734375*^9, 3.4711201230625*^9, 3.47112048446875*^9, 
   3.471120575328125*^9, 3.4711206056875*^9, 3.471120723890625*^9, {
   3.471120883578125*^9, 3.471120892046875*^9}, 3.471120927890625*^9, 
   3.47127249253125*^9}]
},
WindowSize->{1272, 922},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
DockedCells->FEPrivate`If[
  FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], 
  FEPrivate`Join[{
    Cell[
     BoxData[
      GraphicsBox[
       RasterBox[CompressedData["
1:eJztXXdYVNe2z/feP/e+991rcl+aBRQpgjSlWbBrsBtbYr0xMSYWjCYaWyzB
GDWmWrB3BAvSBOm9Db0zQxlmaEoVMWgUHWbm7Zk1s9mcM3MYYJDEu3/f0e+U
vddee50z63fW2nsfjFZvXrj6v1977TUL9G/df732mmJf1EMIhWnTZ2YYDElY
uLgoJgbOidVI/nqnxGhYwxCzGquxstEfSMevkI1bJp30UcOlG5WFArTdC49+
5Lr9hd0kuYVD2zDbRwOH3jtzrqcqUVBQUFBQ/ImRdflKhoFRqsGQdONheR8u
E1y/IcrOFuXlpR4/yTOxkw8xkQ4e+tRmknT2FunCvdLF+2Tzd8tcvng+f/Pz
2Z+1OS5os3mvzdL5ubXzM2PbhkEmlRGRfd0hCgoKCgqKXgEElYLk5HxTc4GB
UZ6hUb7B0FxDk1zbMbmjXUItJvOtxsmNBssHD2kzsWpdcUSy/kLb+vOSz92l
nxyXLj0kmfeNxOULyeilL0bOeGY1rs5weK25XVlael93i4KCgoKColcAvFlW
UpI5ZlzRoCGFg40Lhwzjm9jmmI3JGzEvesyyxuEOCt40NmkzHvp44iLxjmuV
2y/d336l6etLTzedbfvcXbLsoGTGZonzkpbhE6sMbapGjhXl5vZ1tygoKCgo
KPQPPIiJ9nNWrxENHFJhbJlrPiJ1qgtvzoLERSuiF6/gu0wqem+SYMY0wZxZ
/MnOyas+i924LX7DFt7GrzM3bstbv5X/6ZeClesKF6/Imvl+hoVTkcPEsvz8
vu4ZBQUFBQWFniEmoDjc51ZtYJZrO6rk1IF7vmerfS9U+l+p8rtU63269vbp
Wt+ztX7na33O1tw+UxV0rTLYs+quZ/Vdz3vBnveDrtXc8bjvd/me/wWx1/HI
sRMEicncTZcVF2f6+AqTOylGQUFBQUHxJwHiynI1VMT5zb6qoQ7ZX3xW43e5
PiCoNiS2KiK5JTj0jzuBj4NCWkIjWyKiWiKjWoKCmsPC67Ny63PyGzJzGtKz
G3mZD2N5qHy1X3BVUHCh++nQJaszA++WCYVkiyUCQUZsbNjRoyGfrklfurzq
1JnywsI+6j3Ffy6Ed+4IPTz6WgsKCoq/DHCACYxZoYSCOkWi4gUrqmym5327
rSbIrzE2qyYxpz46iX/6dFNE7NO0vCepuU9Ssx+n5zxOTn8cE9+SxGsuLGkq
EjUWCBvT8mtjM8rDk8tCEspjUsoCowKGjr76zpBzdk7es+ZdWbj455mztjuP
3Wo+7Lc33wp6p/+9lauqEhP72hIU/4lApMl/7TW0CQwM0H4vtZJMEykUf3G4
uroGBwf3tRZ6wKlTp1BfLl261BMhJG8ixqxUQlxSkvft9yWW04STVmW57awM
u1udlFMfl9Icm3Bn1NiEMRP4F680ZeU/yi5ozsxrzsxt5qWjS81R0U0JiQ8S
EuuiYivDYsoCI4oDw0sjYvl3gr97d8D2fm/82u/tfX//x5d/+5+j/+wX+tbb
9f0N24aPqLvQI/0pKHqIkrVri5cuVVBnv35lcXF6l5+VlYV+qnoXS0HxMoG4
xtfXt6+10AOio6NRR1B30I7utQTJvISrV+OvXcuOjS3Oy0NxZZlQWMrnF6en
F0ZG8n39c4+7p81dkmY6LnX04pRZrhluO8rv+tVFxP0eGfcgOT1+5pz7BuY5
A03iliwX+AfWZuY1ZOTW8dLrE1IaouMaQkJr7gRU+fuKfLyLb17P87yWH+CX
euvGF++8e3LAMM93DLzfGVA6xEhmaiY3Mmqzta8Outtr5qGg6AIQeyLqLHJ2
1rtkypsUrwBeGd4EHD58+LffftO9vFggqL7ll77ko5PGpvsHvPubvZ27k5Of
g2OSvVPqSMd0hzH8UeOLbR2F1s4VdlPqHSbl7tpYfdujMSSiMTbpfnJa5IzZ
ZSY25ZaOJUaWCcbDYzd9KQgOr+RlVMbxqqLiqkLDq/wDxD4+xTdvFHp5Zl29
nOXjzb95K9t2YpWls2TkRJnVaJnFCLnxsDbbEdXh4b1nFgShh4e+xq3KsrMV
0notj0fR50CRJiRs9T7WSXmT4hXAK8abqC9btmzpRsWquETxF19lWdommwwL
NxuWbjOiZcwE+Shnue1IuZmp3Hiw3GSofNjwrB2u4lvX7odGV0UnihKSQ6bP
LjSzLbRy5Fs5FVs6Zg+xCBnpFH/wB0FYdFlUgjA4rNTHv+TGrQIvzxyPKymX
LvBv324Ii5et2i+dt0k6fqnMcYbMwlFqaX8/IEB3VRFtgU9DG9rH5wX9+mn0
dRA74A0d4ksooCDDCsYhgqrK9u34TOnBg7ghVBJdwlVgn6/+sCFSg6EPWxop
ViHHyopsWpEqVHcQkodYedwpdB45eaQA2jCVox2BgQEep4O6WDgmhdITJ7BJ
URnoF6pSPGsW6AxaYTuzK0IroBUqAwZEclAfkQTQim060IShFaiNmlbZ1soK
DNVeC3XQwwO1hXbQSbYNSWUYYGhO2geJQpviVnasiG9xBzlaDMW2jDZw8yZ7
2IjP56NfNDqPz3h5ee3atQudQf+jfbIwDNag8qgWOkSi3NzcXJVAO5CJgibQ
2zWUZIzscAjXeAmJInWDlBfbozKK6dIixwgaSMP9Ql1AVtUmluwjQybHYXJy
MopBoAm0g4ekGVVwv5BtsanJ8qgA3D6wCaM6UhtaQWXQvUNC0D6+d9oqdlU3
jdbTaFjUNDwYCGiHLMm2FbJwl54i0kSos9BNMAKSA51F5ZEodAn1C86AcFyY
rTAShUuSYrkNovFSl1K1JMSJSeJP1jwc6fjIcUzLuEmtDmNlRibyIQZyMzOZ
9Ui5lVPajo3FN66JQ6KEEbHFMfE+LjMSTW1SrBx4yi3F2jHFwi7YwOT2lGkJ
x9wL7wQX+fnzPT1zr1xJv3iBd/5saXhsVVzqi+2npJ8cls7eKB27QG41vvHY
6S4pifmIpCSSTEliwvyCdsh9uNoN3sSeH51sd/I95k08IwUTJaOwiqCVLIPp
DB2iptkvDFgxoDBcvr0XQDFq4dBx6AgIRBJEmsIuRkUV9ym7D/sqIVZWWCuG
6UArBQN2NBdqq/2FRNkvtGEFULugGJTRaEPotbbkKqm5ijT79VPINDDAvMy+
HYzXMG2GYltGGzrlTQbpILcDroY8RJ4EFUP/g/uCS+B10SG6hLwHuALkkXyV
QDtQEjwMnEdnSKfHIVzbJSBKUgGNUyzIYuzeaWyRI6LB7AxdABdNFgaxyM5Q
ADlhjTK1HaJ7hMyCakET4MOBmhlVcL+QtaE5BMQO+NUF6QZygN3I6vBGhAqT
rWAraavYDd10vBcIwF/wCGEu02Yr/HTBU9Tpo4JNBOXhVwBGAHqFS8gg6Dz6
H84gCbgwA6guqogVBrHoDKZODoMwLsELQE9mB4nF4spj7s/GT5GOniBxmiyx
nigdaiw3MpTZOMpGvcfb5lroeaUkKIwfHFEQFnll6rQbRuY+5ra3ic3XwvaW
kfm5gYOvL1yccvZcvqdXzsVLCWdOZ3ndKIiML4lKbN5zVrrxuHTJXtmEFa0L
1og6LkjpFNjfkm6KJFPsyjCZMtgH01NXeRO3gtkNeXi98Ca+CoXbJ3aqZ6dg
abgh5KhVDakLM3gQSFaRVVYXYBArqM2+Cs3BDoOnGNxEdhkaRezJuMTsvjo4
ZbSLy+O2IB+uMrjSCOgM0JNGcmTYnwFSc1VsqA5a8WsG2X0wPtkWt6G4WRuj
S7yJXSv+vZMOSqT0UTi/xPCH7CgAN4F5hCGBQ7i2S7hR8OfaBom0+WqOFjvl
TfIM+GccLzDEkn3XhTfRDULul6yIDuGu6cJN6K7hcIajRXixIeMjiCJ7VTeO
8yKW3bj16cZTxD6JbhzJdBqhUYJIzfJkqoHxEOrOm0C4QNndRkVFxb2wcMl7
c+TW49pGL5ZM3yCxGyMzNJDZjk7ctiHH42Kh393cgOCcoJCTkyb/MsjohLH5
8Y4bOuNubP5Lf8MjhkY3V6+OOXYs7fz5zMCwnNDowvDY+27nXmw7Kf34oGzS
x3W3upChBagclJKwGF5alSdUE0rpiROk1xWx8mld5k1WVKivPC1uHa6Sfhv3
EUtjqwGxHn5hUBFrv37aOkIWIBlZm1baJLf38c4dMiIGaIxqsSiGVtpYD4yA
858QO5Ndw2AbnASpOTxCOO3QHlarE92qtLkyqGx/meE0FNvmGtEl3gSPgX/v
KPRAOwxHgc5ASEK6BXZJbU1gCRzCOS5Bo/DmTzpSBjT6au7udIk3RcoIBQhF
975rO4RsIVkR3Du7ikZNIO7GWXHdeZPDsetLN47z3BK4TafLo0I2BMlVkfKu
dRrl4cIkQCy7LrxBdRqAk5fgfsHt0PjY6Ijy8vLKysqa+MS2CXNlTh9IF33z
YN3RlvEz5UNNeds2FN64WnI3vDAkvCA08syUqccNTU6bDte4nTGzPGVs8etb
A8/b2MZ8fyAnLEoQm1QclVjpdvbxtpOy1QelM9ZXx3V5LRt4Y8aAoGr4D4eT
SqLU6IpJX92NPK2Kr2fNAh+rR96ENDLQCtTFfhu6A01DdTw4qBqIVL4hYKfN
fmFgcBbJd3gfSWZsInZs2zEAJDulGN9Uv8yojEP0CB9iUaKOIao23sREiTqF
msA5BI3zsjgs3KHLd+7gOJptW6wM0hwsqQrMOQ1Fytd4fwG68yYEm5CDgt+7
Ro+Hq5BXyUwmBo6AGOM44DQ4hHd6CTEmd9SgUQJ3d7rKm3iISmPfNTpSbYfs
pnGL3NyE2AEyftpCHsb9hZcNpDOYThee6rZunZ7nlsDWp6tPEeyjWhDG4u7g
/DbjZiGb4CQ8e6QbGmIvhQbi1mgrbd1BCkCkCe+oGi2jC4A3UdRZ5x8os58n
XbCr2fV4wdYTTWOnZu5wFfp4lUfElkbGFUfHXXeZEWhqHWJlr2GztA82HxFm
Y5e6cHbSTtfoM6eKo+LEvIzypLQqtzMPd5xoW/eTfPrm+sveXdINu028A+fB
7ynmoih3IDzpDd6EmSF8YqKRvnhTxX1KWgGyUBCQUggwiyqoJEJseIUgN5zP
5HecpsLmLD6Rq2QIaZdGZkphahBLMhn4k9Nm8KYh/MfROqEVm+tJy0Ar5KZx
ahBOmwOdAdXiG0dWJOcg4a3dtkrFyMFQuIkchmLI1wbdeZOdC+0qb7Ih0uLx
dCFHjktsmQy8BN6EAAS/ZjCgUaZ+uQkmZcF4ZadNYJ3xDB/yHuldt06tp7HR
rvIm96MiUpuIMZdJ481CwmF0FVXRGANCXMl+VYMkOcShOnYHT15CbzscORNu
iMXiCjXQ/tNVW2SzNj91PSrcdirvq58zv/lC7OtVHRUvjk0qjU/2mzEz2dQm
3doxzUq5qXdSLezTh9sVuEzJ37Eu5tSvuSFhlZl5FUmplbz0Kl7Gve/OPth2
TLL2iGze1xKXNZVpXQiNVQlMpaclc2iYsHDgKdJfnha70w6aKCM1cmJMD3kT
64Z2QBRJ7uikKvIiuE+EF8V4eKjCcMZMV3VbGiJQiLCUuUrGZN32mM7DQxtR
Mmb2kulZ6AuqyyBK9iwjcr6uYuxS+5wfbFKFzTtmWUmwX2kUgaqayBiaq2Qq
7yMjyUzmzHHOlttQoo6D3dqgI2/iYFNE/N51z9OSMzMB6KrGbB5IQOV7kqdF
DkeXeJOMKVBh/eZpRerghd13Vx2ypuRhN3Kh0ChbYe4WAWAKJAG4QO+6MUC+
V8BoIMliuvNmV58inA4llWFP2wY5EIlzPFFAwRovwWOgY3dAYfYvqKvAHwsC
3ny054hs2ucvPvupZqt77p6zGQd2VPtdr41JrE5IESWmhE6fXWRiW2zpWGzp
oPzfsdjCvth8ZPk4Z7HryhT3I/FeXpnet2szsusyc+tSMmrTsmp5mbV73R/t
PCn5eL90/jb56CWtC9ZVZOXoqF6HvKg6KFBlNZVOjyygr3lBMP8TziDnTwZE
4MMZmUZw1JgUVLEYpmzt8QgeyyN5E4ecjGFNhSbkMhzGTNeO01Rw6zhrSjp5
uIqXvTDoQDUVx8pKZTRlRYVNiGRs+9sCkaXUMB23IzNqnBqEJZMgz5DvKgyQ
twC/1WDSZ1QkZTKmHJO8idVWvEVwGgo3x0H9OvKmtgk/XZoXxJjjAclDV9aM
DswyPZkXxE2d7BgQiIx7XlBXZxm5qhc4kGJJGiX7DoEJbgIOQSvuuTca58No
W9zBphuyUwxzwdxRbRVxyNZV3Rgg32EgEYqKaXxXYRANqXk3niKNJmJ0B4/5
dpoy1ZE3tRkE95S0OfkMdAnkR/YUX6YtFba+/7F0ymrpxwcfbT1ZvOtU5uE9
NYG3mmIS6pPSqnlpUTNmlxvblA93UGwW9uVmI6pHOtasnJ/3q1uqj3dhYHB+
4N1C/4D69OwHmXlNKVnNGTnNKZnNmw61bPpZsspNOnODbMJKubXL85nLq+Li
ddGQHQggZ4V3RMSMGiiv4zoUWMGnWpenXJ5AJjBxOhTiHWAfch0KFMZOW7XA
QS1NcWhlhYVwfL0N947kTRERcpJeGhZuMDTBg5J4xQQegGvXx8AApz0xjeLx
YiwN2xAfkhVV/VK30j60evCgYmHj0qUKHdSFEUNBEI1XTcLqGJGW+bqKfoEE
5VIUkZK7VdlXvHCVmF+EgWN8HB2rBCqDdEZCADWh6C96MJBiauPAJY2vW0C4
HIbCY8HshS0YuvAmw/OT7ot7kj/2h7gWDB7BJRxzuXZcQaCvdSgco5zamI57
HQoEHeyZsRqlkQk6vDIComxyHQpegwMrOCB8w4egPPdaD8YqHnI9Ba6CLuFg
HG4BJiayU+gS7JP3QltFXx3WoWjUjdt6WHNRZ7xJas5uq9OnCBrCVeBphO5A
chvkADvDXCBsGTaX6Zin1WYQ3FPUNPk+gA678VkSxnfda/2DpNaT2iYslS7Z
17rx2L0d7jk/7qsP8f09OvZhUlpdWmb0TBVvis1GVljZ1c6fXnJgS8p1D0F0
3P3E5PuRUQV3gvL8/RvScxozch/wMpuz8h+n5jz5dM8fy7bLPtglnfqJbPRC
mcM8ucMsifOMsktXOtWQnF0J0Qq4PtLLMegJXSVXDmr87gG5toX0mdgJ4/FT
xUcGOo61tWcsiWAHtwjL6vEh9/o+7J9BMez8ccjJiIMYI3QKliFCQnJDtsJT
gzD1kHG0SJnLJQ2F42Kcw+zQrxMnOvSLmJuq0T7kAluSatmTbBnjtvidhBw2
5fjuOkMfnCsmZ0DhyVRkQ2SXGeTLiCu1GQq/s+F5R2z1dOFN+I1jn8BwdBoX
lcMZDHCkwBpQEvtD166vWOe4ROoGy9XRVfaAFEcGTKNY/OYPeuoijZEGBBvC
GwJYEi8PgSFF1ByqgkcY4RBL0/htAYZWjIX25EcMYLUseUfQIbtT8DCQC/xF
xIpdXFGknnXTbd24rQcLOhitiIgIka25a7e+noFUhUVVqApuiPHxB6wzRIIg
pBvzgrgNAmUgh0wKB83ZRuMGyZuVfMGz6fOlVuMko+e8mLW+deX+B66/5P2w
tyHE53Fk1KOE5AepGSEzZ+cPteJb2ImmThRu+yz98umcoBBxdHxdYnJdfHxt
RETp3aAcP7+6pLT6lKyGpPSmjLxHqTkP/r3ryYLNzyavaRuzTGI/T2o9VWYz
UW47WTZifNP6Lyt4KdrUY68XwHzBJ5OB6gm3ZF2N39nrNE/LkNCuiXpUUauq
ygLkpBTgXG3lAXhaLKNHIoJf2KEWMAIpvMMs2bVrQRNyoQSMP5JpXrKbnfeL
bEtLv0AO2QT5rQPIo2JNNCZm2RpqK0yCcRMZXMl+e2HfSnymg/JsI7MMRYpi
PAAYnfImYxW5SOdhFx2LuWofN+wG9KtbTxoF98i9EvDlo9vW1u9tIqGRN/V4
d14OdFmHwgG9mxdT56NPP28bbvfcekyb/TSJ8+Lnczc1LN+bfWBXbeDNR2Fh
D6NiGuMTvKe5xNmMKPh8WcbJH7P8/UUR0dUxsaKIqPLwiJrw8Mq7d0sDAjJu
e9+PjL0fy6uKTKrlZTXxch6t+f7J4u2tUz995jhHYvOe1NpFNny83NxJbj5K
sWLUdlzjR2vKff1EJSUM3XDsgM/gPCF5kmPeCANd4s2XgPbP46gH1PAl3Hcy
McgNxhJX9hKSlw/2pFONJNUTMMZb8ZijaupOx48zvHx0ypvk12YAOpIOx/fT
GE28erwJMZrGbx30Lf78vEnmaf9a6PS7BxzoJfOWrF0vGWousbB7YmrTOMyx
znpK1ZilubPWp+3fUelztT7Arz4wsCY4JGDOjMRvNqV5XS3yDxSFhAqDQ4uC
ggsDg3IDAvL9/Apv3869eSPx2tWygBBhRGJpaHxFXFpDfMazVd8/m7Op1WGh
xPK9Z47TH63c8HD3gYaj7vXnLtZdvNrgfrZ593cPt+ysPc50L+Qwk1pPlZMk
53Oyi2mDRt5kTFh9ySAzh4xwhrykC/fBxBj215M6/YZqrwIxJozJMrTizmB3
ST4jIUw+Hhpn/75MdMqbbP+vO+noMqWhD3nTl0BP/ggpY2YLpP56+CcUewlZ
SvS8oqt6rkvPodF63f40ax+i0+/scUD/8Saf3+C6WTLIqHWQUZOBcY2hiXio
ZcXwsXy7mRkz1vK+/Vroda78uqf45s3ymzd5v/yUe80z/5Z3gbe30MdX6Oub
f/Nm0rVrcVevoi358uWUixcjzp4p8LwlCIwW+EVUxqQ0JmY+n79FMmZpy+J1
DcfPVaRlaFVFWMY4gVwink+iKqJM/TFOwhQUXfwwgzdxFhH51b4KSeC75aqv
s3YMwRTDrOpL3ftrLDp+Q/UlA7TSl8FhJJfc4JsMcJXxpfqXj055kxFsinQO
JHVEn/Am+SV2je8GXQLju+7Inq/8nwLXI2+S1oPo7K9ImgDu77pzQL+/glrP
my+cp7QMMqoYZlUx0rHUzlHkMIpvapltYJ5mNjpx8vKo9Z/xb1wqvu5V7H2r
5La3wOd2mb+/OCKyMiW9OjuvKiPnXlJKZXhUqZ8f77pXxOVLEZcuhl48n3LV
ozQoShQa97Cssio44sXY5X8sWicWFOlL7W4DSIrM6OJJRH0YkvQe2P39MwCG
Dl/O32XDrNpXfwauz/+OmKv2vzPSDeiX0ykoXg709SsQ5+cL3c8Efbzad9eu
bF+/0owMYUGBqLBQlJ9fGheXe/JU3PvLAu1n+o8ax/vlR1F6Wm1paaNY3FhV
3Vhb96C+salBudXVP6ypa66pfXCvpqHyXl2ZqKKkpFQgKCsSNIrLHz981FRR
kT9l4VOLyTXXb/dcZwqKvxz6nDcpKCj0hbLCwrz0dPZ5PE2oODMz0HGal7HJ
dXOz4GnTcletLdhxKHX3Yd6ugyl7DmbuP4K29H2Hsnd8K9jyTdrGHfFrvor+
bFvE6q03Zs/fO945bMas7PnLC+2nNtpMfGxiXx149+X3kYKizwF/bbCvtaCg
oOhdYOr0meLy65v/OjZgiNBxunTt0Rd7rtR+f0140EN46KroR0/xT9dEP3pU
7j/3x+bDorUHslfuSV71XdKyb/MWbfcwd1r7xuulZlZV5iNqTa0fGJpUeN3o
625RUFBQUFD0IooSEw8N7O/2+pun3jFuHbtYunC3dN2Jp9vOPdx9qf7bK/fc
rlTuv1zhdvHennNNaw/Vr/qufMm+4hUHBAu3C1w+Lxv7YYiRddQgw9KhpmVG
ZtUGRiXfH+rrDlFQUFBQUPQahMLYn346+Oa7e//39XjDYdIx70unrZEu3Cn9
5GfpxlPPvz73ZOfFlp0XHuw4/3Dr6d8/Pfxk+fe/L/ymadHu+9PWVoxaXGo5
scjMLnWwUcKgwfmDjYoGGhbNXSAqY06XpaCgoKCgeDVQJhRmxsTsH2jg9o/X
n1vYy0ZOlo6aJ52wQj5lvXzeHtmKH6Rrfmtbe6xt3dEXq354sXR/69xdz1xc
Wyavfmw7r278/AqnKYLBphn9B0X2Hxg10IA3wDDD1LxE03AqBQUFBQXFq4Hk
O3dW/+3v8f0HyixGyIY7yS0nSJ1mty7e8Mf6b59/uE02eYN07k7p3B3S2Vvb
XDY9G/fxHw6LnllMbTj0qzgvX4Q2P/+Cpcvjhwz1feudkLcHRL47MPNK51+j
paCgoKCg+Ivi4t493/7zn3JjY7nJMJmVfYvrV1UJqrXG4uKSR27H5E5LZOP+
LRv3UZvTomc2s1tNJ/z+yRcMIfyIiOgFiy++8X/e//d2yOy5NFVLQUFBQfFK
okwo3GhvJ+w/UG5k1Pqey72wcHaZlq/c5A7zZCOnSx1mPzWf0GruXB0Vq1Ea
7/z5kwaGZ/u9UalJDgUFBQUFxV8dqXFxh/71L7mBUfOXX4m1fMioPK9AMmWB
4s+aWE94bjb68bxlIqFQm8D8uLgj5maREyfSkJOCgoKC4tXDLxvWNw4YXOt+
mrtY3Q0f+fDRcitniald42+dfDycn57+i62N+PwF/alJQUFBQUHR98jg8c6/
3b/x+FldCv8x70O52QiZuX1FZFSnhQVZWeGuG8szMnusIwUFBQUFxZ8F57/e
2rD7gI6F689fkps7tNg7l+Tm6lK+ODe3hPImBQUFBcWrgtTkZMGRX3UvLy4t
bRsz5cGs+b2nEgUFBQUFxZ8WJfn5XZ2683TpmvQP+uaPV1JQUFBQUPQc/w8M
IIOg
        "], {{0, 0}, {616, 41}}, {0, 255}, ColorFunction -> RGBColor], 
       ImageSize -> {616, 41}, PlotRange -> {{0, 616}, {0, 41}}]], 
     "DockedCell", Background -> GrayLevel[0.866682], 
     CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> 
     RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, 
     CellFrameMargins -> 0, ContextMenu -> None, 
     ComponentwiseContextMenu -> {}], 
    Cell[
     BoxData[
      GridBox[{{
         GraphicsBox[
          RasterBox[CompressedData["
1:eJztWl1Ik1EYFrqNEoLMbHPmNkRrEhJERj93ra4cJvbDRIsyMk1pc03tTL1w
aD+LfkQIJBkR/dBFdtHFDLywCykqoqgLIYRu6jbb8me933e+HT/P2fZN+sZ0
vg9n43zfec973nPe57zvOWNFDS2OhnU5OTlG+LyBj1S/ikAgEAgEAoFAIBAI
xEpFMBh8jUgPYG0z7d7MAOYedm/Bko4Ca5tp92YGSCokle5AUiGpdAeSCkml
O0RS/R1tjEajUIHvyIhdehPyLNZjrVSAgT5CK1Tmf32e+/qcdYEy+/4+vKTd
oQJN89PjojbaHcrCzE8qn0RGfIxrEjcF0SomD49hYqDDUUSGKtUKWRMYz42L
pFJDg1RPamGdlRWGuuDi2Yl+WHkoiy72W6jjgFeSm/wWKEAScCvtCxWpSzxt
1FPU9dJ76Lt8UnEmcVMQrWImUQE6nKJB7sgUKpb4LcpEtHiFpEpEKim2TI8n
IhXv4pAHXCAJEAPIq7d5JFAOYYEGKHEstTbQAJKSx+XH5ZKKE+CmIFq1ZC/E
SBVXoboJyMliKZKKgyapwLlK1ohHKgpYYfGRbnNpg4c8dP3prtckFQ0gUm5K
miKpVZxnRZP4KcSziiU1bjhOobpJ2TtIqnhITipYZ7byydJfoDzMpT9ZWMo1
EHbgBBLyhOWzlmakUtKQnB/VuUYkFbWNjZXIJHEKnFVL0t+IXSQVU4iRKkUk
JxVzhJI7hirpDpXOGzJ5eFLFvMNORxAlaJZhmtmZStQGAvSQA/FECSksH/kt
VLMyokw5qHDOFU3ipiBaxZmtTSo8U2lBI1LF/BWNXZ0Y1LckLo9IqQdYIWdA
9T0uvPT2J2qjrUr2lGMRSzrq4eiIVIxFGC5bMZO4KYhWcWYnSn8gv3j7k+vJ
GbVaSNXt9fo6O/XVib9Tpa+sClLdvtB0q+WSvjqRVGucVA/q6p9V1+irE0m1
xkk1cuLk2O49+upEUq1xUg1X14yZraSrS0ed+H+q9GFV/J+qx25/u9U40Nqa
aUMQ2YMrFRWf8g0vDh9JvUvgYjPR+8KIyA5AyiNeb1Pe5ql840xxSV97eyq9
Hp1y3nE602waYoXC19GRqInIGHC57lY53Lm53/O2RQ3Fr6qqNXUG609/LLX1
ulOiHyL74D/XeLPxvPiexHDtsuulyexbv2GqwLRgNP8xl/W7XAQE1IUQ1nHw
zNl5o2XYoc09RLbC5/E8te26V9+gfskY5SPkuss1abLc2Ljpm9E8Z7FFt++c
POroJoQWn1wotQAPj9XMFZp/m6y9bndGpoNYCZBikbNuoqBwsPY4IxIrQJu+
trYf5pLRfOOXotJw6d7Zsv0LtkOPzzb1ENKjolagueVD5YGodUfEZH2372Cm
p4X4X/wDFcRtOg==
           "], {{0, 0}, {199, 30}}, {0, 255}, ColorFunction -> RGBColor], 
          ImageSize -> {199, 30}, PlotRange -> {{0, 199}, {0, 30}}], 
         ButtonBox[
          GraphicsBox[
           RasterBox[CompressedData["
1:eJztlDFuhFAMRJHS5w45Re6RI+wFcoOUtNtR0lJSUlNSUtNS0m9JXjTKaPQh
UfpgCeT1n2+Px15ebu9vt6eqqp55Xnm+/I/L/p+1bbtt277vvJumIcKbnwWs
73vBsHVdE1bXNQ55Ho8HMOEd3L9tWRZ+6tRBrrjEMAwigHO/37M6SII40zRB
Q7QLkpQWjKOu63RqGHHVIoOYYAR16oucinYGxUo2jqMIzPNMnpQRPF2nMkeS
cCBDXsm7ZNZp6oZRS3wsIBFNIYM2iY8gYmJA8imqawHcOAKqio4KSp4O7Qjp
K1nOUygasaG2hoKSaud3krkArggZzyhhTohP3Uz7E0mNu9g98oj26exOSTon
fRUtn8IUJL+W80gyuz6OW3mgrSXXEv5dSaRTaRz9KQpY/knxtVomKdFQxvFT
JZFR6pFBJWT5tbEvR9+H3F6S+GOSMC+DTHtrHYyh32Qu855cdhn2CUundjY=

            "], {{0, 0}, {55, 14}}, {0, 255}, ColorFunction -> RGBColor], 
           ImageSize -> {55, 14}, PlotRange -> {{0, 55}, {0, 14}}], 
          ButtonData -> {
            URL["http://store.wolfram.com/view/app/playerpro/"], None}, 
          ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], 
         GraphicsBox[
          
          RasterBox[{{{132, 132, 132}, {156, 155, 155}}, {{138, 137, 137}, {
           171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 
           137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 
           137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{
           138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 
           169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 
           169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {
           171, 169, 169}}, {{135, 135, 135}, {167, 166, 166}}}, {{0, 0}, {2, 
           14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {2, 14}, 
          PlotRange -> {{0, 2}, {0, 14}}], 
         ButtonBox[
          GraphicsBox[
           RasterBox[CompressedData["
1:eJztlSGSg2AMhTuzfu+wB1qzR+gF9gbIWhwSW4lEV1ZWYyvxSPZb3vAmDdDq
zpCZdvKH5CUvfwhfx9+f48fhcPjk983vXy922eU9paqqcRx9HGcZhiE+PZ1O
KHVd24KOgt0WFKLQ27ZdJrper0JGcS5CVqs6n89yRpGl73tZBK6kkvv97kCe
ChOlLEvbVW2kiYPoxKcYRdwWld00jS2EcFSFMYXCqbOcBJzL5aJcxK7SFEFB
GQFn8AWupPUkMRfIJEK53W5d1z2hGVP7yohVbfanWoxAJQTfeywbT1+xK9mi
GQGTj8FT0uRAN3Tdjl3SlNANP5WoabIIRP+x52ojLEgXs8fxs7+R1cCXNFH6
SVJhKZwx0+BxBZ7nraGNpBSrEFlA1khgRDcCRg1navIWTeVKPVmliaeaL+c4
tCmcknRHfjtWaS6HNtYmC1wYjGJ+6eKjJcficWgVssz1nGbabFtD682gZaIO
MHXqkq/vyW3GFaQXliNuOhbz9lOHU3a6SrhWkCmnXC9pUoPBt1aQpquYrtJt
0f6Pazkd497W1MkSlxierkrrN254iz8oHqS0ByzxGzfOHx2yq9plYSl8l13e
Xf4ArlmHrg==
            "], {{0, 0}, {77, 14}}, {0, 255}, ColorFunction -> RGBColor], 
           ImageSize -> {77, 14}, PlotRange -> {{0, 77}, {0, 14}}], 
          ButtonData -> {
            URL[
            "http://www.wolfram.com/solutions/interactivedeployment/\
licensingterms.html"], None}, ButtonNote -> 
          "http://www.wolfram.com/solutions/interactivedeployment/\
licensingterms.html"]}}, ColumnsEqual -> False, 
       GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], 
     "DockedCell", Background -> GrayLevel[0.494118], 
     CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> 
     RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, 
     CellFrameMargins -> {{0, 0}, {0, -1}}, ContextMenu -> None, 
     ComponentwiseContextMenu -> {}, 
     ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
          NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, 
       Evaluator -> None, Method -> "Queued"}]}, 
   FEPrivate`If[
    FEPrivate`SameQ[
     FrontEnd`CurrentValue[
      FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], {
    Inherited}, {}]], Inherited],
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 60800, 1074, 828, "Output"]
}
]
*)

(* End of internal cache information *)
(* NotebookSignature bxDS6Z6xgWtfMB1SJiR4xqVa *)