(* 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[     22736,        422]
NotebookOptionsPosition[      4575,        114]
NotebookOutlinePosition[     22823,        424]
CellTagsIndexPosition[     22780,        421]
WindowFrame->Normal
ContainsDynamic->True *)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`fcn$$ = $CellContext`f1, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`fcn$$], $CellContext`f1, 
       Row[{
         Style["r(t)", 25], 
         Style[" = ", 25]}]}, {$CellContext`f1 -> Row[{
          Style[
           
           TraditionalForm[{$CellContext`t, 2 $CellContext`t, 
             3 $CellContext`t}], 25], 
          Style[
          ",  a=0 \[LessEqual] t \[LessEqual] b=1  ", 25]}], $CellContext`f2 -> 
       Row[{
          Style[
           TraditionalForm[{
             Cos[$CellContext`t], 
             Sin[$CellContext`t], 0}], 25], 
          Style[",  a=0 \[LessEqual] t \[LessEqual] b=2\[Pi]  ", 25]}]}}}, 
    Typeset`size$$ = {1000., {497.5, 502.5}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`fcn$214$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`fcn$$ = $CellContext`f1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`fcn$$, $CellContext`fcn$214$$, False]}, 
      "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[
        DynamicModule[{$CellContext`f, $CellContext`a, $CellContext`b}, 
         Switch[$CellContext`fcn$$, $CellContext`f1, $CellContext`f[
              Pattern[$CellContext`t, 
               Blank[]]] := {$CellContext`t, 2 $CellContext`t, 
              3 $CellContext`t}; $CellContext`a = 0; $CellContext`b = 
            10, $CellContext`f2, $CellContext`f[
              Pattern[$CellContext`t, 
               Blank[]]] := {
              Cos[$CellContext`t], 
              Sin[$CellContext`t], 0}; $CellContext`a = 0; $CellContext`b = 
            2 Pi]; Manipulate[
           Show[
            ParametricPlot3D[
             $CellContext`f[$CellContext`t], {$CellContext`t, $CellContext`a, \
$CellContext`b}, PlotStyle -> {Cyan, Thick}], 
            Graphics3D[{
              RGBColor[0, 1, 0], 
              PointSize[0.3], 
              Point[
               $CellContext`f[($CellContext`a + $CellContext`b)/2]]}], 
            Graphics3D[{
              RGBColor[1, 0, 0], 
              PointSize[0.3], 
              Point[
               Derivative[
               1][$CellContext`f][($CellContext`a + $CellContext`b)/3]]}], 
            ImageSize -> {$CellContext`W, $CellContext`H}], {$CellContext`W, 
            300, 1500}, {$CellContext`H, 300, 1500}]], {1000, 1000}], 
      "Specifications" :> {{{$CellContext`fcn$$, $CellContext`f1, 
          Row[{
            Style["r(t)", 25], 
            Style[" = ", 25]}]}, {$CellContext`f1 -> Row[{
             Style[
              
              TraditionalForm[{$CellContext`t, 2 $CellContext`t, 
                3 $CellContext`t}], 25], 
             Style[
             ",  a=0 \[LessEqual] t \[LessEqual] b=1  ", 
              25]}], $CellContext`f2 -> Row[{
             Style[
              TraditionalForm[{
                Cos[$CellContext`t], 
                Sin[$CellContext`t], 0}], 25], 
             Style[",  a=0 \[LessEqual] t \[LessEqual] b=2\[Pi]  ", 25]}]}, 
         ControlType -> PopupMenu}}, "Options" :> {}, "DefaultOptions" :> {}],
     
     ImageSizeCache->{1044., {545., 550.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.41615065315625*^9}]
},
WindowSize->{1272, 903},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
DockedCells->FEPrivate`If[
  FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], {
   Cell[
    BoxData[
     Cell[
      GraphicsData[
      "CompressedBitmap", 
       "eJzdXWdgVEeSnlUiYzA2mdUCygFEkhDKRAkMAhsWE8wZe8FgwHjB9p7DLuwa\n\
7CUJY6IIAgmUESighAQSCiihnBMCRDz7wu/7sd91v9f9pt/Mm5EE+M/9mNSv\n\
Q1V1d31V1WGWbvxiy6YdG7/Y+vHGPyzatfHzLVs/3v2HhTt3kSTL3+l0Flt0\n\
Op3zH3T0O8hX9vYWOjs7dVaozsvHleB3kB8ZhfbWVmspeQAa6upxLzAE3ePd\n\
UeYyBc0Bvnj0b6F4+NkaVK1fjXuXL+sspbz90NnRgerr15C/YzsKZs1B8UhH\n\
JE7zQsWVKzrQPNLbHCm37m3Wbtb3+3B1nANiN21DVXGxlZQ8Ah2krvp31+KR\n\
w3Tct5+JlsWBaN8Qgifb3sPDD0LR9OFK1EWcQW3qNVSeO4u87Z+icI4vaqe6\n\
ocjVFedGT8a15e+ivbHRVNs2qKuqQoLbLMQPnICL07xRfOwE6nNuWUiP30R7\n\
czPaVq7AIy9vtE2bjZo5nmhauwAPdq/Cs+/X4fE6QtPSeWgJDULzqvmo8JuO\n\
8hnuqJjmgRhbJ4RTGla8q2/eR25+pPQxBimE9fQRk5Azwg7J5DPDcSru7Pgc\n\
ZSdPo2TdWjz18sTDQH80+vqi1c4DDX4z8eD7lXj69/fQ+UUo2jYFo2nRTDRv\n\
mYe7gTNREDQFCVPccMHWHhedXHDz8z/rTDQ+DjXFRUhycEfsyMnkZYfccXZI\n\
H2+POHsHFDk44anbTDwO8EfnwkB0zZiDDnc33N+5AI/Prcej42vR/mUwyjYG\n\
oHSdN26tmo3kebMQ7uCMw2PG45SLGyoTE6WmyaDQ9ZfatERdVhbqb92SfukJ\n\
myISNhYdbW3IWPFHXBn2eyT6euPu3z9CxT+3oOTAFlQe2oKGI5+i8acdaDix\n\
Ew0/f4a6w1tQd2o7GmO/RMOVr9AY/RVqLvwZVSe3o/LUDpQf/wylhz5F5vaV\n\
OOExBTe/+RaFBw9ZszHQ0daKisuXUXo2HFlr1yLjvVW4Fx+vJ2+qTN4o6WMy\n\
7pLOSXBzQdWFr9B87QhqY4+hKeE4HqefxYP0cDxIO4OutHDcz7iArszz6Lz6\n\
MzpjjqKTPGvPOYfW3HNoJN9rk06iNv446pJ+RlPqSeR+8QmuOLgh87OdKCP0\n\
lNNXZCRKzpzB9XXrkRi6HElkgOeQwXCT0NmYny/I0EMkchIKDochLsQPDVf3\n\
415kOCqvROJpWiy60qPxXzU5+J97OfglPxVP8zPxrCAdL1Kj8cuNWDxLicGT\n\
tBh0p8ahLTkO7dFRaIm+hKpzhOiLkWgnBJ2d4oIfJtkizMkJh13dcH46Ge2e\n\
0xHnPAV3p3qhaLY/sjd/gra6+iaJHGu0Xk9DlYsvKoe5oCZ0Pf2tG8/GRHFx\n\
sTxOyK8XLG3btm1IT0+XfgWytFOnTknpERERpNckbt9gj6je4VVYMQm0Nbci\n\
ccVyxCz2QV38D2RknEf31Sj8WpCCC37+SAkJQWt6JP6z4Ta689Px+HYyXhQn\n\
43l2LLqTiLQSL+FJdATuX7qAzvPn8fBSBJrPhKMhOhqdN1Jx0GsqDnhMQpj7\n\
ZJx1d0Y20REl84JQExCEXO8A0p1fUgk0Mwl0VFajynMRKn8/Q5ICkQaZgzL5\n\
lZWVEnf0138IEkhKShIkYIVbZObQNPqMfLcWheCIwiNhyP7oIyL6zbi54zPk\n\
/3gAVak3UH0zGwVbNyOPKIXUd/xRH/8jHqdexLPMaLyozkKSTwDKdBNwY4IL\n\
cndtQVv+VTyvzMZTIownt+LwKOUyEcglPCICuU8E0nrxPBojzxOlexqt8bF4\n\
lJ2G5IW+yA/xQePS+WgNWohm/2CUBwUhPSAQd/b/oGtnHLTl3ZG4p6/mn8PH\n\
9lIAc1najz/+iKNHjwr9rBsofRBtU1SEqsiLaDwXjurLUSiNjkFh5GUUbN+O\n\
uqnT0PXmRNwfPgntQyaizckZT6a54ZmdK24vCUBV/H4ycy/iQcYVdN9LR5x/\n\
EMoHOKB2qDNu6yYi0W06bv/wDbrKUvGkMAldqZHoTIxAx9WLaI2LQPWlsygN\n\
P4l7Z47jflIcOm/eQNm7S9Cycinayef9NaGoXTgfGZ5zcGM9Gf01NR2Mo5q5\n\
yyVh1K3/RNdXadDfu3btMpaGK+oqylFI9NnNd1fgnpMbSkdNQuwIW8SMnYw8\n\
e0dkjrZFzaCJePiWHTrdXNHuNwsPPDyQuzwIpVF/J1P/HDoyL+N+WQqiyYDO\n\
H+yA4lFuKBnthuKhDkgeSuoLnIvik/vRfjMGLQnn0RB/gaiZ8yi9cBoFP4fh\n\
7vEwMsES0XozDRWfrMaDbzfg0ZYVBFAXICfAD5nrN9AJohvMGGiOjFXGBpkl\n\
EkeW9BdhlT7jE9yCGRt0RtVt3a3oFfpJf5N02SCxYIUb/rJHKEzTrMQ0+l1K\n\
tmKAQAcpVVKMEKlSkiblsdBXrF2JBesc+oxxQw0jXshGZEXJRHpfoHiQkoez\n\
yJUGpYpSJykSOoUiY5ntZY3GfYf1oiDPe+LWktl3VDWT9tViJL9pOsuv0xcw\n\
LdNBSlpvqLbg4EvyirKmXCjNjFARTl+UKJpdZJTm6U2TNuZ7pm/0W/L5y2in\n\
6txaGJi0Lp5fkKjOwpQQ+2lMfp4moiFvuLGxUZr85JkyBKIJNH399ddSfvpJ\n\
fjPF0E9BT1qGlqXt0jr37t1LiKK1DKDfJYyhz3ibVN3ychR5rXpsS/sZnxe0\n\
Tpqun8mWCqaRTyZEdT4bM/VaasjIhvHM6+Avyh/hgcqYtaOuk/NooVGn6TQb\n\
MU16UYuGQJUsVhsJtQQjh2fnvSZwKklf3yODjIrSvKzXORzw6pgkhkkjiJbj\n\
HNGep/XS32LPm6iHM8WYUITHSDEnG7HPTPdjP4kKPq7oi35n+XqUM+0vgzHZ\n\
87Cz4YJVmqRCIWTIj4dIMqO1cpnQ4nSkUEop4zydtUjT2eyUuaHViXlY9Zqj\n\
k5Mk9rvRsNALjlDO0V1GSie0khZLiXd1b9sOdDt6oNveCUV2LshzJHbQ9Klo\n\
meiC+65T0DbbG/fnByDng2AUXNiDuoSzxPO4hJbCBJzzD8C1YXbIGOOK9DEu\n\
5OWK7NGuuDZ0MsKJR3g5dCkKTx1CRRzxQC6Fo/DEURQePYjK2DNouJ2Kxtw0\n\
NOzZgF9/+hBPvlyBqiVBSPH1I17U2SGsPwRFK70oMFuwZ1SRi88oyvAJoZjK\n\
7BmxkRQko+n0ORPay0I8xw+q4qkJxizz3wDiBRBQASjPQw0/Vivl00pBHYY0\n\
fLSIAqPUM4jvmc6B1NAWDSs9w7Lcja0C01LVp/WWbgXc5Y7k5bXoJnRasmSJ\n\
RGbPkZbMNdQDrPeeYol1bnBy60c/YfsZjklRhi+P69yo59OeKjGmpJSGeRrV\n\
PDQ//WS6kOXpr2h4mpfmoVqJqxCi2SwkcB0oKTmahSscqqxoGi1C05mC633L\n\
A83lkZph6M5nDSdU78brDQA9cPSmabUAbZggBGNC4YqjAvltyTLz6mmf8GwS\n\
ZhvXbDrNRgWgtIup/KRqqLhtFOygj7jIFSKsRb6lziLE6OSigyS0Eo01ygOt\n\
jpbhJgE3mjiF3CiUTQj6xFKEL5ZvkLm6DDnR9YoVrS5Up3Hs5yjLx6mAuqYF\n\
LZtD1kYjVT8WJvQ4DJl8VeXZhFTkxqwGJQ/tA/qcfvJ0Wi8ry5gaIJWnZUXG\n\
eBs0nZoC5kaROA40ZMvtHb39zYI+w9F0pxDNYQfQNX822p3d0eo9EzWLvNGy\n\
aA4eTJ+NR3OCkLE6GLfO/Q2lMWdQFncWNblxCPP1Rdgbtjg92oGG1kY5kLrI\n\
d5wZaY/Dg8fj+/F2iFi3FnlnjiIr7CBunTiI8qRzqL2Tgrr8VLQc+Dc827MS\n\
nWsCcGeuN64vWYKWe5U6jv2i2lf7fLKnKj6jiplPS9Fm4DqYfPYGkXrCfrkJ\n\
KxWSSlV3qjw5WsGrmgCWogev08YUmmat5ONYpGAJa9gIUdXJUliil7TyJhRx\n\
W9Di8oASK+3BBLBW0npLMyeO+sCcOCW5n4pmMQhBiePVUpNPaM5Eaz2YAn2n\n\
nHaQaDypDFWhCKlO3xPqPnk5a4ATJSh0EUO5nhF1CNc3XJRMp1gKRajqEvUz\n\
d+vMVcOasuzN4wGqx6JS44BCNJnCrxZi9IYxJietajizXPdT30lLZqIAekZ5\n\
axU20m4jOl0JdlD9znGE47EWKHLXg3apGDBQ6fp+qqY4bDHPXVGS3C3XhIvX\n\
Q61pCNfuJLMkvcRIsxQfK7ITi9A+Ztg6QKMIZ4DbFzTmw6sWR+MrwDJHd2pt\n\
MVgeLn0MQ2daMvG8F+BBiBfuL/dG68ZgtK5fhO7FgchcF4ys8L+i8MJRFEX8\n\
jHs3orDfazZ2DxmL7962xTcjba3w7du2uqH4buREfDN8AnYOHoVvHF1w/qMP\n\
cfdaOMpTzqGm+Dpqcq6h5eBG/PrP99H60SLkBPrhemjoUCYBMUqqVnd651zx\n\
Tz0X6YOabFGCuklaaSbVW1/hl6h1Ln9Bz74y/PZTYJWbGlwSBq6aMf4SMtSg\n\
Y4gI6kYte6JUHocqFKEmgRZS9Rl3e6JViy6NJmTTjJkthE59s50qu8FMc30G\n\
3h7FbC1ZC8xcMRqgfNDWbd2t7et39hlr+yvaQ5z11Dmi30kdXPnS6mgS95sM\n\
3FuhhNLLWrpFrKaHVowe91c95vRyJ4ToWb7dwhh/1ASa4skMxHJVTC0S2pqB\n\
lEyz3DOysqCrglVcw/cWWXlkQVzC6COymtX4r4dac8j6EiDU57FlKT5WqOcB\n\
7E7m7VLOBrL8wjNlFPE6aD6+kYZbXZoRApOM8JHAe493i3586t6UPoaio/gu\n\
2tYvR1fgTDzeRtB01xI8WD8XmcsCkUcc3KrIY6hOjUB9XiIOzPHBd2+Mx/7R\n\
djbYN2oyKb5v9GT6DX8dPA573xyPqNAQFMT8hJaKNNQTn7b95Gb89+kNeLB1\n\
EQoX+CF5MfFpq6oGM/pFPcUVHXEaFf+RAaTWeqm1oQ7W53opLFXC2EwPsi01\n\
XJ2/ljB2PzFErWKaamKhdn28W1o0ZTYF0fAqCgyWvQ0lZAI9jZxTKULQZ5/V\n\
Rh8ENkmi4SaDXmGn0o0kTViWULCtt81Zme+L3tCvXnbgQCvETtT0yWk8Ii97\n\
tdyz7huaDjbSrNxr5aEwPuvZd770KhZjjzSXhK3Yu+gxEW1hxSTHlYaqditV\n\
DFhJ7meYLHklPERnDjaN09QMcGJNY6a1uKSnMGzNmDMRVu0JM/Uykp+J4jaH\n\
QnyAUnjg4UVpmcBUs9q9zAPJlCMeqDYwiH4rDn4DHGWGgxLf0RxZg4wEQYtx\n\
/1fkikaIrdmg4N1LhSSuSNCFe0NOKC5zTOXwbSCtXmIqnag8hs1MW46pI6SP\n\
IWi7lYuuD0PwaIMP2j8MwqN9f0TO9hUoOvs3NMadQktGJNqKk3DK1x/nh09G\n\
9FhX0u6VsS4EUC+PdETMaEfcmOmF7E3rkPbPL4lrehpdpcloLcpAx+lN+J/z\n\
69C9aS6aVvogMygAN9Z9wAFV2fBFdBX3Cole4x3GfTbpEfcbVK7NbwOrltJm\n\
HwZ6pI3XgKUDjPxMcT8R/a4nzVqMHcsV/n6GTMZLw6iliJd0NGpBa6/9T2O6\n\
Xg07+fjvqV4tkLRgQQraXSyvTnOEGFeu7xTFOyedQ39zU65x32G5sv5mh1Rf\n\
oNFUgPQloFFGj218/xfXYDoRF40A0ESypZjMdh9ZKo6UyORvg41WikPBbAZp\n\
ZVVG/t8WFvsb6VC+U44qTrNNaqcJ269kaf8/AUIztpQoNbZNTG5NysKapHXy\n\
LVI0sxAs4I4jtcE48PEwOVuz6CPw8YVc+oiaN3QhmwHfW2xmth7bh/ZV/mjZ\n\
EYyOf6xCzu73UHqemMJRJ9GcFIGO21dx3i8AqUPtcXOMmxXdHUU80eyRLrg5\n\
wgmFTtNQ/P5yXP96J3LjzqKlNBUdhYnounsN7bdT0HFyE/770HK8+GIRHm4P\n\
QXmgN1J9/VB8NAyttbUDmWQVR5KoHEW99Fc0Fvc3Ra2kttJfNwbyOUpRl+pH\n\
rdpeAQMFnFfhD9v3qw9EGm34lmGZpusDlq/mVgrr0DzAI67oqWTZ631R5gl+\n\
NaDs38t6tYDSiuWjDuTL0T7AyM+nYQexE8lvpbxRxF2kh2DwS6DpEJXCEZ1M\n\
ASal772JcRq4KcIOWZ24PUc7pKevjpZ7PfFbqqeYJ2roiMoNy+BA+e5FWJoV\n\
M73Yaq1oYi3WBRQwAp+egKz3kVG1Hud0kLTeLtDyJrhQaBUMTX7zsDNHQcEe\n\
k158S52Cgq8/sNuLQSeEU7k6EEDRqJ+5Iy+GQTikdyoGhX7MGAtniCmGVDPS\n\
YPYZgnJzUiLaAmehZpUPKrctROZny1EV9Q+0XDqJ9pgL6MxJQLRfIIoG2qPi\n\
bTcLlL3tqnsbZSNcUDbUCTUT3FG7eCHy93yOa0cP4vqhQ2jIjEf7retoy0pA\n\
V0Ea7t8hwPb1Mjz7cgEeffUOHr0fhI5Fs1Ho5YVkzzlIXfVHtFZX6wYwvvm+\n\
IK44GQxbsDMlAnibiwq/1qVUnXqhjptRJpdQxY03Qh08IKjgixFac4Y47xy9\n\
meI3Az59Xz3VJFJePRVPDSqHaIQlQkH+CknMqVaR2RP2mSP9FRdT+2lXbcM6\n\
UNx81MlsP77vmTDKmeFZKKM2bMoY1CjlE8CXU8WBl/eDsLyqaCkF1w0HJrfW\n\
zOOzWq0yT9ekuuthY1GS8fYl9Z4Ta/E0KHc9dGJ1DNN601ovtzEJEG3kzMra\n\
TPb6OHL20CpD/d5gtGDtKBI1PNTDZCBuBmYtKEV4GieQbQ8ytTtIL1FrFfH8\n\
sE5Pq738rK5Ikn4CyiTx/bSaMNi3zUx6crX2Ag0SzSnpxQOxNJ/hlmpzjiZh\n\
q6eNTSbHnrYgub3DOFQNc2GdWgniDhDy9wTReqkM0ByBXLqsI3SG40e/iY7B\n\
tD1arsahaYUXKld6oWCTP9I2B6Puyj48iDmHhynR6L6djATfIFTa2KN2hCtq\n\
3nRF9RBnNLztgjYfP5T9+U/IuXgcxWkJqElJwO0TJ9GQHofHZel4mHcdj4uy\n\
yGcWqt8LQMOKaahb4YOWBd7oeMcXLZ6eKPaYiTTP2UhethzFP/1EHOoaNh/1\n\
YWPmUXKlZsGUJtN5slpkgEmK8L4TFfFr3n9M467shKuwVitl1Z+MMmkdWClh\n\
cul4FKVYxgbOjLDZS3S7ZRdZOLpquK1HT7a1yptmp16NnTcO3KbB3MaQVrWU\n\
B4qhDAXuOD283wRDhbMo4jtvQY7RMvL1gNsz+WYB3cSuZPnwmbJ4xmGZtWUy\n\
AGIUs5YnqmjWqOMf6qCOmhVrI2NBNolkxoz3mA/Uh7mF9RZu+wmWglQ936tO\n\
26T5xc1q5hDfGJ/eMFKdvT2hITtvippT6uGnN7jS41FKU6dD9Ed5f5ODTOLK\n\
8asdZJIDrNwFI+laIV0rRqVhYFQ4C6MELBQrYJjKI6WP+TEefsJVTOOAZXSQ\n\
6Q3N0z9aZ8cMT9ToTxBNlPKIAQ/enyL0CkJQIJ//NujbHuviwGZ8mmlQX/jR\n\
7FzRoGJ1G1svwzStB0MWTTWtHMPr+WwTp0Ksgpt4nHu2nKFUzy1nvrtLlDCF\n\
fD4GjYPzgzSD86akpxVyobRQs5TjCP3NNcvvRFPDEY3f/jvKF89BxQfEbPjY\n\
Fzf+tAgNsT/gfmwEniRF42l+GmJ9glA6wF5SZBXDndAwZRaqP16DrEN7cCsm\n\
Em0FN9GZn4mGzOu4G3UJVdEX8aIkBU8Lr+GXiix03yGmxoa5aJ7rjOoZDqhz\n\
cUbT9KmodvRAqeNUlLt7IN9tOjJnzEbGu6tQcuoMjeErdytouWB8sdVC8rCs\n\
VHCnGBRWih5mZ565+ucAaYQ6otFBLRv92ehBki6nBSkGCHu19PdYMDdZ76Na\n\
KwdtBRwydv30wFWp7BoyTBOtIGuxAjEqwfubO5/yNmDjGAJbTxAEIkYHGM08\n\
l3yYt1Nwj6XbY2i5ISocFTcSULYMYN3IxDBm3UbVMQKW6kUmUK2PaVB0JyV5\n\
Mu8o1WUn1lq0Kgal1C5pq0E4Pi00ZSkKSJm6JmweYTu2EE/QZEEveB4boEQZ\n\
BrLoNmwOtMKFKKoLUAxGsJVKksIWcnNGBlcr4nFKY6Vs/v4Rni4bGfRdvzmH\n\
wycvl6QcrX2puyd6vpfCePGZXzhB8xGyTK/tmqvWWuXnM4o114l5aFiIFrM6\n\
3lSkzR15bh2IB5j4tifaPq1DvHuEpVkya9DEfSKqKgVyVddoiPFv8WoTdppd\n\
sp9IE5Rirao4DBre0iGYULINRt5FVFZuQ3k16rXsBx4M4MeThCZ1XGLiBSGm\n\
2OId0ZdrenjblH5+Jwotp+98Y0mr7kuxVoI2vFrz29gGqbax9a6z9bOer2ro\n\
RWOpsCUYDPKGNuIR1daidN5clHi5o2DJbGSFeiN5zUI0xfyArovn8DghGo9v\n\
peK8TwCSB0xEkcM0lK1aiuw9u5F+6hhKoiJRGX0Z1QmxaM5KRmtOCqqvxuJe\n\
VAQe5ybgaU4cXhTdQHdeBurX+OPhInfUudmj1sEOdU72aBpnj/Kxdihxn4IK\n\
x2modPBAleMUlMz0Qv77a1B58RKa75ZwfSTceqYIn6dRFcnVpDoOPVDlqisX\n\
TgmnZ1lYwWjdmtXH1oOtVWF+ZjzoREzldSvwJeOi3l9V6pcv0BKvIaPYQctT\n\
E8AgTX1sRwnkh65XupivzivXdhgwzTBVvFCRMy0RZaOHPUHAclRBwjD1aoAs\n\
eel+MQ5M9Oo3mVr58RCV5y3eXEbbpkyysL2YpoTezNCrWB7WZvBZrmeosjlR\n\
uU6T1MkDH2baMBeIMDzZoJhgpDnRKOmJBeE4gmGESLbXZCGbuF9NFZVRhiXJ\n\
Y9Y6sFKQ2eD8qKhtB5pJE2PXo3pZVisfh1Ku0qgqm6rRxjCNtHEa9Rle/kB/\n\
eQtiYP6XkZ9G9zxo8TZAVJN2qP/qC9Q5uCFv+hSkOrvjirMzEkMD0CipybPo\n\
IH5TY1I8TnrOQeIsT2R/sQWpR35Aaewl1F+Lwb0rF1F8Lhy3T51EfvgZVMZH\n\
oSI2ErdOnUBj3AW0J1zA45vX8CjnBsqW+qNzsSdqpriiaMYM5AQEIv+jjcjb\n\
uhU1sXGoTUiwIG/x1GJOiEP9lSjUxpD+v33LMKSmHAKU1JehHUqnyWBDhaef\n\
4sZp9mJmcccKr5nPDMXdMHBUBhrQZ2Bpq1tzMvVgvEYtWsE+FtzTZMWphxki\n\
XCdjboaI17W97hlieMURtUU8XmGGiAsVPL7jI8wac8e+B5meIfJps4mo/8f3\n\
uDdtCjLsXBEz3hHR4+0RYTsJMSF+qL78PZpOH0fJyRMoOXMKl0OXIXXvlyi5\n\
GoGugmt4Up+Dpw3ZeFCeIW08qE+ORknEaWQdDUN62GFkHjmEguNHiTFwGm3J\n\
sejIvoHCBYEo85uN3LlzUfTPA6gm3sdgPsIZ0OgB0kp1HRX5rvjW+s1ZPU8G\n\
EQPtlXmlM1w+l4ei2CAzSRQC+zoBelxIp/lHaswBdvGWPhbB9qD1eV7wTc7c\n\
4BdHlDjK+EgRN0Pz5be+zgz9Pi71tdfytQHad1dxC53o92lMUJWVw5Vv4kIk\n\
529kL6oj7PgwXnpze5GZ+TKMz5fiu6he+yFKxjngwihbRA21RdJbtrg4wRZH\n\
xk5AuK8nyi/uw60fD6Do6BGUnjiK8sjTaMpNROfdZHRWpOI+fZVcQ3tBAppS\n\
o9GcEYP2zEjURp9CHt3Q8/0+pJHyBWdOkCF6E48qypDj74lcr1koJNN/KCPT\n\
WJdbKYaZGQtFmC/qAaqst8lgw4IiBEY79UsmtE3eoUb7STWmDMUWyaLic9rc\n\
8JVu6SWTlcbnTGYeqYkjeqNdb9v10JqpI/M8+MJtHREtRgn5ejMnhMtZ5VIG\n\
c3E4a13rEldKG3UvF5sc/MbleLyAxrb9WB5zV3cO1uCHjfghvPPp312kpiF3\n\
336kEBsq194d16Z4ISF4MeJ95yNj1RpELwrGURc3XBo2Adl/+QwNyQQd7pXh\n\
eXMtXnQ04vmDFjx/0olfXnThxfMu/NLdghcPGvG0rQFPW+vwrJ28mqrwuKYC\n\
XffK0VxSioctzfjff/0L98KOINXFGal+fii/dMlF363GwUR5b65+CHMxzzM1\n\
FqbID+QZJNo8f+jL6HESpMgvQB1lMALoryca+VTS7of2pibE+wfh+uIlKPru\n\
W9QmJ6OpqpL+XQRT3ONQX1qKhPnBuDJ0DA7a2SHhkw9Rf+wA6k+GoSHyJNqu\n\
R6Aj/QraUiPRlhIl/QFA6/WzaLl0DA3hP6HhzCE0njyIhhNHyPejqAo7hEp6\n\
O+3mT3BmsiNibe1w1dsH5REXdf/SYFf6KwYvkW4yz9vbUUEGdkdrMwsFjUNF\n\
Zjay9v2A88uXYY/tWJyeMRn1871Qs2Y+2veuxrP9a/DrpW34NX4Xfo3YjF8S\n\
P8HzCx+ge9McdITOQss77mgOdEJ90DQ0zJuOkhnuyCQWfDyh75ytI85NoP/j\n\
4YbiY8dUdPINOSKdo6WPMYhasRz7x41BjvdUNPrOQdvGZXj+40Y8/XIlnn6/\n\
Bs//thq/hq3Drz+vxvO9y/BwexC65ruie90s3A/xQHWgJxrnTEOd73TcneqO\n\
PCc3xBPb6cTvHRA5xhbpa9cJ/1chuzJsLIxDc0MjjgUE4MTbY1A30wst7wbj\n\
0ZbleLrjPbz46yp0bQ7B412hePJREF78JRhPvluGzp0haJnvhqZZ9mj3Iuou\n\
0BuV7tNQM88PZZ4zUeLshqIpU5E82Rkxb01CwsLF0mDREzFbTURJYiLO2k5E\n\
rq0TGmcGoHvVMjzasBgPPghB658WozYkAA3Lg9AW4oknOxbi8RdL0b7CD60B\n\
09Hg7oAqRzuU+/uhZO/fURUVhbzdu5GxYiVuE2nedXNHylhHhA2fgJt79poi\n\
4k2UXo5C4mQ7VPqQBwsX4KGnPxpDl6Jowzrc+frfcffIYeRsWI+8QD/UB/vg\n\
4ao5uP9+ANpme6DRwxllzq6oPHuG33rRWluDsrNncYtOLA+im0bbIXyWD/0X\n\
FoEGL5GGfohbvRoZpPu6/PzRvTwYLZ/tRF1ykvRXLhZsbrZUVODGH99HDmGu\n\
KcQbD5YFoH2GB1odHXH7ncWoy85WdrHRqVtMhl7yHH/ETHJG9nd/NW5cVtw2\n\
qL99S5rnNa6ziGQXoy09DR2NjdbMqKHtpq9di4Jp09E0w5M4sVNQN2yi5EwS\n\
+rjPU020Q9bHmxDn7UtqzNO35im2ZoWcnZ8j02MmKvwXofFmbn9GRG1GhnSd\n\
ceWsaah2ckXZZBeUnTo1gJWiDGV/uh03v/qLNL+V2mfJtfP/NpL+yuadJcib\n\
uwA1t28PZPIoOnQYucSpbrJzQlXoe9J+Y25h1RBA6Wht1U9T6W2mWK8lSo4f\n\
R0ZIMOrulrKCVqRHc5HiE4B6W2eUvv+Bvuw8uexb3DIhqJW6Zi0qU1KU/16g\n\
aVlbP0UxQbDCzVuMyvJ2O5qbFXXPAbLqejLSZsym/z2iMypoxzLRXkte/A5S\n\
V682zmTPMmX+aROuL1thwPpcOZPud/8HKWwI5g=="], "Graphics", Evaluatable -> False, 
      ImageSize -> {616, 41}, ImageMargins -> {{0, 0}, {0, 0}}, 
      ImageRegion -> {{0, 1}, {0, 1}}]], "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], 
   Cell[
    BoxData[
     GridBox[{{
        Cell[
         GraphicsData[
         "CompressedBitmap", 
          "eJzVV0tIVFEYvs4dx9FkFtZCAh+LyhLMDDNNXJio+UILKqOVqOHbUtEEH5BR\n\
ahmC2MuQHhNFJpJIUFRChK4qNwWuWrSsdfjI/s5/zn/unHvnTpoMRBfunfP4\n\
H9/3/+f850xJRVtNdWNFW21lRXx+S8XZmtrK1vi85hY2pIdomjbP3th4DdvA\n\
mvSZh56eHja5/k8W/9HB6/XC7Owsvto5/hVjbJZLbDWLo+hSezS+TBy/Yux/\n\
E9f5NxJWZmoAHxzHZ/l+AW+vvD5v7gs5B3ac2NLchg7OYXvt+2f4uTgl9bis\n\
FgGrC3f4lDSDbXzWvr71M625TBbx/fXjG6rIaRWwAkAnVoq24CjAhv+RIP1q\n\
DlKTiFHTwb9ibKk3Bo0LN+y7fCsT6CG5UAOfZIjyWzaTG5d/bibKEYLw5BRd\n\
a/wiueTq3CAHh68pS/07DdKYKUbKgYMsSxhmjIl0im1uws6L05QlnmuBCR34\n\
SZuzYjcmGLsDYjcx13mX4GsCf7iBX8UuVQkNk2Wj6IzlkVzRmBJsxsCIwUxN\n\
RJC2FaHAFWEQ2kicXAYhjAs3ycAzdaeMxXAyX6vMMsafqXgC7RHeRjMoz+NF\n\
Y5vKlp1cqB1ZDLHE6+Z4/ZajL0e6ylqpAhaImH2qKWJvBydFGBSjINikSG58\n\
dE96tPEjjDG5uHABYt5k6aMFt5EcybXM65BdlQzzi49EzbyJZSCgelSo9hTt\n\
4Qp1p9W9bo2Cb2tR6ZSrNHiJQQhqEG33TpSMr6gdbJHZ1j1S5cUDNwIWaEZa\n\
nl6sv15+jLpCtZHL+GqGQ6lkan4kCUIhuEYHBB2Isx1w7kqteCy7NrtJdRPs\n\
3aSr4aIdkWCAlgTQu1wfvLpTVmyzphBSzhm+fLk+ydodV4H8oCwdEbhee2NY\n\
miU2tfxLvwYuSjO2KVS6Uu4s8Im+x49+IAoWug5+ZfCYFp9SP6w5DMqBFeq/\n\
6VgdUWs/lQy6+viOS/mYyoZLVB1WWWRBpEucTrcHyzVQnA2hKg15mTQOFlzx\n\
SsHhQXKSN3nx5BH27QKlZDtNu0m5TkpuFqAmVUnGvwYK16Yrn+j/5Y3vn/01\n\
iCfx8YIi6G9q4r3tmzNxLy8fBmtrTSY2+OcqjsQvtrfDo+wcGCsp1R6qU064\n\
0tAAk4eywJuTC30dHV7z7EBjIzxOTYfpjCwYqK/3kL2e7m7D1YjQiOE/Lj41\n\
erIchhjiuwl74d3+DBg/eiySNK8yg7dPnYberi5tVGjGkuaD3HzwVp+BqT1J\n\
8CElDV4UF8JwVWUEaV5jmpOHc2Gkqkq7rmqGwQSj9jEtHV4lJ8JcUip8Kj0C\n\
02VlcKGzk50YgslQfT08O5AJT7Ky0TlZ2EbGL7e2wmBTs+TAvm641NcHLwtL\n\
YDFqBzzdvQvepxyEL8VFsFBUDDfr6sIUw2/2ZcDzuEQYO37ihjCshfwGPGMf\nPw=="], 
         "Graphics", Evaluatable -> False, ImageSize -> {199, 30}, 
         ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], 
        ButtonBox[
         Cell[
          GraphicsData[
          "CompressedBitmap", 
           "eJylVb1uAjEMDuSAUqTr1J234A3aqQ9xQpVgqFpRZkZWNkZWRkZmRkZmVkZ2\n\
xtSfY0e+9MrSSLkY27E//4W3aj55/6jm03E1fJ1VX5Pp+Hv48jkjlm8550a0\n\
y6EDHYiUzygsFgsS1o42Hw9hs9mE6/UasHCu12tI+KTVYbUy7Ha7pIZ1uVys\n\
GtPL5ZJpmLzdbrgTvXgrol+0XBHO5zOr4irtyO7zTWHx3u/3CRTo1Wol4FMM\n\
WBBB5Xg8MlDQsE6rYLUnjkFVIdputwm7qCYvigLmCCi5AvSSZapnbUFPY89l\n\
hN4zhE44HA4J3el0EtMcjHusAUHG8gTX4ikZIwxqpmwM1gwcqh7xC8k//CtU\n\
YrcFIthaXS1Z7IJuKiMyqcBI3pIIvHUtcRU5rDYLe4zKZgvVkLS4qJObw3eA\n\
+qeIkQG9Z20obm0/U2lpP5/CB09jRxW18mhPyoO7F9xzY87zNrTIgF56ovEO\n\
PGri8BsoRSeyB7U2w7ZtbNsOg1JIYCioBixtczewwZ+BWW9IEcrVES8NerUu\n\
gGcZqMju/womz5vtPnWNHOqMUkf+v0AohmIDDT19T/I7pBc90Rd3ZBycrY5W\n\
AEOn49JUHW+qowMKm6STXgVvX4GUTfsqEB1no8uXbTZBk3EdJ9RLbsgY9FJj\n\
6kaXyMMRvelzjWRpIInt01MRX+KGPxo5XOsHSMiAwg=="], "Graphics", Evaluatable -> 
          False, ImageSize -> {55, 14}, ImageMargins -> {{0, 0}, {0, 0}}, 
          ImageRegion -> {{0, 1}, {0, 1}}], BaseStyle -> "Hyperlink", 
         ButtonData -> {
           URL["http://store.wolfram.com/view/app/playerpro/"], None}, 
         ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], 
        Cell[
         GraphicsData[
         "CompressedBitmap", 
          "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwMAExnwIDiP0fyIQS\n\
jP9bWloY/8+ZPZuBgfF/V2cn4//VK1cOFnZ7ezvj/+XLlgFdyggAJaVbgQ==\n"], "Graphics", 
         Evaluatable -> False, ImageSize -> {2, 14}, 
         ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], 
        ButtonBox[
         Cell[
          GraphicsData[
          "CompressedBitmap", 
           "eJyVVj1vIjEQ9bIBRKKjyClFOn5NUvEjUBQpKU6JctSUtHSUtJSU1JSU1LSU\n\
9JTOPHued0x2SWJpWXvGOx/Pb8YMR+OX53+j8evTaPD4MXp/eX36P3h4+xBR\n\
WTjnhvL0Bw5zL1P9GfrJZCLK7NUKr9LP53OPgVWQlVi5O386nbC0G/x0Og3z\n\
xWKRybHGgN7KMYcdjPV67TrBzZXfbreeQ+aMBQOfYMWty+UybZV5S5XH4zGJ\n\
xTK9xeB7/nA4BBEfbFHLYT6bzVyRA8EcEhDuPllnvjZXmiJOVs78VqtVJocN\n\
yJgUwrgKvnrBFrISWXhgd7PZhO8Uc9dVUBQM2onhdlOocKHm6V5SgoFekFlk\n\
4AJuMd/tdn6/33+PTJlYUMn6GQtgktFbBJAVdOKG8lJNGnIlULCVx3seLfd2\n\
lBLWjdFH8+2MuwSlc6YDcMpfAQHGm0GIVCsDaJplxMVdJ5D5EWuCbz03Zg4T\n\
yErC0My7aRuzIWUS/PJLgKtDaEShpZlCDVcEsYq6zlysVDJczqxAZV1ixt+s\n\
Zs5xYG2wPCmHZzACMuiwjqSNfqDT2pAcILu5BFAWQwVqvwmcVMsYOAzwwcTX\n\
UpgotgAhXFJAgCoQ+29L5zYLzCZCOZIHORko25/dI+B0GsqGn3wtm95FTBRH\n\
V9ak09Zf08vYD6V2gLoTNrDrEV3Lip8wxXRXASvylMcANlBmbqrY6kgTUAlG\n\
2FYtNGcBpK7zHSQSmCMnTNCNPZaUZgMEpNpj1YJekikdFkidTNLUkm2nAmBj\n\
QfcutYNgv82ClxIquO4ilghrG1vF0z/Z5U40eDEiFl72X2PN7cWLzNX+M3HF\nJ/Rd8Mk="], 
          "Graphics", Evaluatable -> False, ImageSize -> {77, 14}, 
          ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], 
         BaseStyle -> "Hyperlink", 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}}]}, {}],
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 4003, 91, 1112, "Output"]
}
]
*)

(* End of internal cache information *)
(* NotebookSignature IvTAaH533@reQC1uZGuaE9aB *)