(* 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[     31370,        587]
NotebookOptionsPosition[     14923,        293]
NotebookOutlinePosition[     31456,        589]
CellTagsIndexPosition[     31413,        586]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`u$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`u$$], 0, "PARAMETER"}, 0, 
      Rational[3, 2]}, {
      Hold[
       Dynamic[
        Column[{Null, Null, Null, 
          Style[
          "r(t) = { Cos[t\!\(\*SuperscriptBox[\(]\), \(3\)]\), \
Sin[t\!\(\*SuperscriptBox[\(]\), \(3\)]\), 0 }", Blue, 25], Null, 
          Style[$CellContext`u$$, 25], 
          Style["t-units from reference point", 25, Blue], 
          Style["you are at the BLUE point", 25, Blue], 
          Style[
           $CellContext`r[$CellContext`u$$], 25, Blue], Null, Null, Null, 
          "\!\(\*\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]]\)", Null, Null, Null, 
          Style["Arc Length Parametrization", Red, 25], 
          Style[
          "r(s) =\[InvisibleSpace] { (1-\!\(\*FractionBox[\(2\\ s\), \(3\)]\)\
\!\(\*SuperscriptBox[\()\), \(3/2\)]\),\!\(\*FractionBox[\(\(\\ \)\(2\)\), \
\(3\)]\) \!\(\*SqrtBox[FractionBox[\(2\), \(3\)]]\) \
\!\(\*SuperscriptBox[\(s\), \(3/2\)]\), 0 }", 25, Red], 
          Style[$CellContext`u$$, 25], 
          Row[{
            Style["s-units from", 25], 
            Style[" Reference Point", 25, Pink]}], 
          Row[{
            Style["you are at the", 25], 
            Style["  RED point", 25, Red]}], 
          Style[
           $CellContext`R[$CellContext`u$$], 25, Red]}, Center]]], 
      Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = {
    600., {248., 252.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`u$2126$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`u$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`u$$, $CellContext`u$2126$$, 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" :> ($CellContext`Curve = ParametricPlot3D[
          $CellContext`r[$CellContext`t], {$CellContext`t, 0, 2 Pi}, 
          PlotStyle -> {Black, Thick}]; Show[$CellContext`Curve, 
         Graphics3D[{
           RGBColor[0, 0, 1], 
           PointSize[0.02], 
           Point[
            $CellContext`r[$CellContext`u$$]]}], 
         Graphics3D[{
           RGBColor[1, 0, 0], 
           PointSize[0.02], 
           Point[
            $CellContext`R[$CellContext`u$$]]}], 
         Graphics3D[{
           RGBColor[1, 0, 1], 
           PointSize[0.02], 
           Point[{1, 0, 0}]}], ImageSize -> {600, 500}]), 
      "Specifications" :> {{{$CellContext`u$$, 0, "PARAMETER"}, 0, 
         Rational[3, 2]}, 
        Dynamic[
         Column[{Null, Null, Null, 
           Style[
           "r(t) = { Cos[t\!\(\*SuperscriptBox[\(]\), \(3\)]\), \
Sin[t\!\(\*SuperscriptBox[\(]\), \(3\)]\), 0 }", Blue, 25], Null, 
           Style[$CellContext`u$$, 25], 
           Style["t-units from reference point", 25, Blue], 
           Style["you are at the BLUE point", 25, Blue], 
           Style[
            $CellContext`r[$CellContext`u$$], 25, Blue], Null, Null, Null, 
           "\!\(\*\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]]\)", Null, Null, Null, 
           Style["Arc Length Parametrization", Red, 25], 
           Style[
           "r(s) =\[InvisibleSpace] { (1-\!\(\*FractionBox[\(2\\ s\), \
\(3\)]\)\!\(\*SuperscriptBox[\()\), \(3/2\)]\),\!\(\*FractionBox[\(\(\\ \)\(2\
\)\), \(3\)]\) \!\(\*SqrtBox[FractionBox[\(2\), \(3\)]]\) \
\!\(\*SuperscriptBox[\(s\), \(3/2\)]\), 0 }", 25, Red], 
           Style[$CellContext`u$$, 25], 
           Row[{
             Style["s-units from", 25], 
             Style[" Reference Point", 25, Pink]}], 
           Row[{
             Style["you are at the", 25], 
             Style["  RED point", 25, Red]}], 
           Style[
            $CellContext`R[$CellContext`u$$], 25, Red]}, Center]]}, 
      "Options" :> {ControlPlacement -> Left}, "DefaultOptions" :> {}],
     ImageSizeCache->{1008., {299., 304.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`Curve = Graphics3D[{{{}, {}, {
            GrayLevel[0], 
            Thickness[Large], 
            Line[CompressedData["
1:eJxN2Xc8ld8fAPBQRplpIVkRiZRCxj1JRkaaIqOMyMjKzsguShTJV0pGg5YG
WfdkZ5UQQtkr3MeW/bter1/n3Oef+3q9/3ieez7n83zO5zxHyMLp1CX6NWvW
nKVbs4aB+iu8snoRoNJM0K1iKFVpzf8vFnbBk1NUF3t2wfNFIYn0z8X6L6h/
p/rShkmpHwWOyE8oLbTfp3q2rGHkBuIm8ue3z25Tp3rZO5MytYJHyDPF52fb
lgnwO+nxq3SG18hFhR/6GlPd4t2VGj9KLvJUF3uvTUsEaJJrWzHN/4o8tLls
XG+RADUno5zedf5APp3tucl5gXqfJ07BDvS/kf/SHzd2nCNAbOrBMtbRIeRV
pw3FTk8RYEXUcMHj0zLyoDtu2+snCCDwUkVZw4Ee/PMEW46aQ+MEuPBm02e+
3+uQB9KVW5SMUp/rL53CtcyGvZSuFPYRwNPUWP7lAA/ym2fjQy9+J4DinD3f
wVfSyJ+fWXjj8JUAIg1Klg3fZZC/5Wn4bl5NjRuzYslzq/3I+zjzOJnKCMBQ
9l5uoeEg8nNyk5tJOQSYE2oTGRtRQV4iRn/XMp4AzVGzM1b1x5BnES+ayBoE
yKxlYvG7boZ8W3qitfdhArg6p/LOMF9EfuvBpxUeRQL8YplntWzBPh7jdp1N
igBhHhZilZEWyDOcBPZALgKc+RXzMVvTGrnPz5jTRk0UsOFolfY5SSfkwiwm
+o26FLCwyPkhJPMacviyarZ9YgT40cdGP6mPxs9lahjYdXcICF7/lPk8IAP5
dgXo2+fdB3wKGNXMOwtwfLbWzGg97gTWEW8Y94xVIZeu8fB0Ot4CUt1HXaWX
GpH/uVB2mdD9BsIL97S/tv2NfN2+zwm/PhWBu5rftA3Ye5Hv1ZPoqnXJAjxR
Prr0BoPIn7HolO44HQ9qzp63ylYYQf5EP0ds8dd9oK+QNSqijp3e3eX6aTuq
663juH4S++F30uTL4XGgfvf6cgY77I8pZO65+nvgLotlsdx/2Jtbg3/Qv44G
kY/dFA7NYr/r1cktXB0GKmyq1cVTR5EraX+ya/BxAUbXdp9qJlOQXx8Unevo
dAa9OjBFthy7yaTGwavazsCm8O72a7XYozqWANsJR0Ap6zaubsNu22qVnrjV
DjRJ8312msVebldmdqLVAqzXDtAk7yaQB8UL03mBk2D6nnfx7kDsm4P87Rj0
ToAVg1OBzaHYCzhLyrdXHAc5620lHSOwP/GnHxk/qwOMHUeFje5hP63P4DKs
rA50qFm1Mw17TfVxm7ZKeVB1YVnzdhH2F3PCJ+4RB0GRzWHPH6XYnZt6BkKl
D4CuxX5xpi/YVSJVpi9Oy4BLVaRlsa/Ys3hPPojbtQv8+u9M37mf2L82FLM+
6OcCPPKKxT7D2GVfjMW8TmUH+oqHQ66PYifbGwSkrbCAXb32vvYE9tahimsp
kvRgZdBozfgE9qvq/IaHD1JIyYW887l/sd/rzLj8V2SANGhzmWNoDrs327fC
K+pdpKn6gCNL89i5Zf7etTb9TjofXjHXuIj9UOOWQbmZclJnopHPgyXs7EI5
WxttC0jWnN5cqsvYP1xJiyhNfkwSrrrsr7qCnXNg6Nc9ppukbRGqpxJoPDpa
z2bboi3JIO2TQhON//dqvcmaahnSzSCDfX9pPPCj9uMXoZ2FV5xalFZovEiv
3Y6B6xTZN17GcJjGjymLrnzI8CGzsYSFFdB47kiGRPbeWPLg+wMVrjTe5HXP
zSX5Kfnq5VpedhrviYoteWf8kXy8aXNQFM14P7+55aXEUky2jWBenqSJj25t
am5gaSN5VLlDwZEmnvW+HPQ2a8fJr0IDBwVo5itM8y1j4s1p8nLuT6HKGeyL
xmMF1tXz5M79OwLOTdOMS+39RNVvBth7evatCE0+0AlnpVxU5IYTYaTjPn+w
f9RgFprauhvWHd29LNKE3X1xS4fQzB4Yec1ZRagBO++XpX6OtTIwviGxn6EO
u+RYtYe6jSw0HVO/412JfcUzJWQuQgl25cJxsXyaODvw7+xcewzyzGZbRidg
XzpzeTHiiTaUPbKwTyEOO+PXVh9ffV14giRztDIae/aVleS4Tn1ooFN36lk4
TR5WXVZMHTsNGWLZZk67YU8Iphd62GgKuYo35nscwz7F8GyjseQVGCXVsF+0
B9erIAW6tvLBYHhx+U37xyZcPz/0BTok+YbA9EclLjI12G/UpPXIcYfC+R0s
HfeKsAPtKflKrTDonmJzf/NL7BzBek+Zm27AQKWib4zXsaffFMn77BcFmxuM
P74Xwf5uZUujGfd9eITTUbz1PK7zoh0UWz3vNJiS1xA0dvsPzjd57007NXNh
ijsjXfiJfuS3bfbTHzKugOfSQuN0OrvwuC4EMniYNcCSc+rECGsrrmMzt7Zs
6GiD7WYsUp3F3/F7YVPHpdnRDYkyk7a2t6XI9z1nt/KNHoBN7jUSyjofkLd7
75PpNByGNe5BAc/Yk5E71oMpG5thaFpfXnMm+DHyvHwp01/uw1BLrE5p7/Aj
5Ed8q19F3x2GOuP+kuc/JyEfsjpwZEv1MPTNem134noi8tSvHjahCiNQM4FZ
knImHsdHt91Mee0oFC1VC7BSxf3Gx0H2p3VGFCik8Np2g6MPrrcxx86aW1Cg
1gcGJtvH3vj/fBShtNtRoLixM/NUoxfOB32DlNhrFLjXJt3GTtcTz+PmweC1
DynwidrYC2jvhudFYN321hYK5PVhcNUqd8Tr0buZLIYjBNTK3Kv//vUFvK6d
il7ToklA74cdx3sUcV9368hcZpweAUef1FaG15vgvsvn1niNIQFN5T3d/ETO
Ix9+Grl7tyMBl9V2Wh7WPIu8tzvSPj6WgKXW7YxDv7RxvqnbsjPWETAWRJkv
0OM+9oDJlNBAPQHDFL+7BktLISfogiOzfhCw/caQq2HwbjzeatHj9G0EdFcN
szr3UhR57d5d2+71EtBwZfYp5QUfzhM2B3NyPwEl1mXe3eu6DXm4bUhH/SAB
f5+88emX72bkxQx2DjkjBJzknxWxPM6J19/3c86OkwSMAnIuh8TpkE8sfGbq
mSJgsS2FYhi+iPYLxluy8g/PELAu94ZNheMs8rtDrK45fwkoMrYziEmdgvcd
C4bOdXMENOff3tv1dgD5u8So4Pp5AhJzoZXaO7uRm85s745ZJKBGq2TayegG
5CpNN3brL1HjoxsaIbK3Gjl/7Nqgaapvf/1gQm66CO+PVP8aLS0T8IPqPr7Q
tS+Qq4Vkt5itEJAc+cYyIPEB8k5dLssXVN//82G4lFUw8rb6yL/tVA9zELm5
ddIS+cX8bw/mqK43ETy2fkIcuQnvKzXqugt3Xfr2vXVzR+E/X3TlnRulOvPH
g3HQXY/8z9NyDuSWUT1/pvRhkI078vJjICSM6ndieho4+KKRH59LPS9D9bN8
nx1+Lj9B/oVhUrmEOt7jdBJf10+9Re6tfFI8jRofLnuLu1n65ciLlw7LTlDj
fMToE6HlVId8r3K7ngTVa92/FytINCP3yPXNOUWdr3fuoGChoRd5zu7HEXen
qfkT6CwxODqHn2u79bAENX/8KyI+u5mtIM+yIbhfTBCw25KPJ6GYHv7zPZlj
glYE9f0KkGKa4VyP/I/bpMCXAQI2Rrp1SUxtQf54G/0r7UYC/oo83VvRLIl8
K7+fmNx3As7tZfLlbZZG7h46PMP4lYBtEe/ZP6/bhzyaGPhoWEGNm1qjgfrt
A8j12d9dLvxEwL43EYWn6FSQ/776TfrufWoeljl+UBHURt76slPhOYmAZpp8
HZ/VLiLvN+NVE1GjwGhd3cqcRF/k5v/lSxkqUmBJr7Dqei8/fH/HlPte+yhw
Z8bNpKeG/shz3vwn4CtAgdaQw9uF+zpymXCmgjvzo3BLnmaCwmIgjueA//zM
y1G44igYvqgUhlx7gJdLiWEUek+QDsJj0ci9X16WyvAehiPz+/5cKHmE45P0
Arw+PwAjEtxG03k+It+g/Trw77Nu2BCmfNpPtQx5j5Ki5vyxdijPNGlmZfMd
OdNw4UiKeAOc0LBkuqnVipw1qK4jaKAChnaPML941YW8dAOLuKdkHnS2LfLa
w9uPfIvBxlPbL6ZDhex2jsfWf5D7R83fHFufDvduOafF7o699EnD9IPsNPiF
b8bSKRg705hahyVnGuwuNelnTMbu+S0PfqtNgQ2b7G/caMGurnT0qI1TMjyz
XYW1WGMY+UxLp3FD9AMYF+dA57J1BPmvQ5NXi2/cgJUOdxh2hY4i764oqU3u
DocP4puug2jsMrmJzy6AcFjNW2momohd/d2j/Mt0YVBxx0TRmizstcT1gg3P
gqENX6qIQxv2lvo8W8kBf3hu7ANTjyQFuU9BsY5FnQvcYNCaU5mHfYfv9IFM
URfI8ye8ob8Ye9aSwFG5AGfI1Lz/z58q7BdbeCrJfo4wl7v/y7NW7GZHPRjE
ftvC6QK9hIm/2O9vGzjMwmEBtc0y46AMgbxkY9Frz0Y9aCCX3fLzFvZmj4Jz
pzfqQl/zGD3bGOyOT7hyxCy04ZxXZERXHPZUk45pdTlNaPG6ReXWI+y8giDa
4KkqlKC7l1v5GnvFy3V8Pi/2w6K8WOaOKuxt3Ha3otn2wZTu9reztdjHCu7D
ee69UJspKedvHfYVjobKxhgJqHD/ffX7JuxlUu4Do7GC8HBjcChbF3YvLcXB
+ux1UMm1JFBnHDu/n7lBCIkektmjZwYmsEfuF8h3O7NMDrTUv+kwhZ3LoUUn
V3KKHN4kuyw1i71dUeigeE47ud8iri9mAXvvxwlO+8JG8qZLP5idFrE7CbDk
2lbXkOl8zQ8dWMKeaXl6IvtqDtlTSLTQYxl7aUjuZM/FDHLnjDj7FI3nfGBL
3vUrgRx3leuy0Qp2VUEnTmH1EPJ5J6mqpzSub9WWPJFoRS57Oi3bTuOWM6y3
nmeIky8VsKbP0Th9g67zyo1elaBDgH+Fxq1Veul4HE+QYqOCH47QuDJdkSCv
rSfJiHteuJjG092n2cyvxZCiGEffBtD4Dd7F2ItuqSSt23UaojSeKfKDP+QL
mSRvueG2OM14pdbeIU4sVZDILttBGE3ckiXKdEOefSe9jYpZrKaJ837GSbrG
/k7Sl/WDjzho5uXIMTndVy9mSMxdUm88Z7CfF0yXozxfIP14rsHNP429LnRz
UFnmGmDyY9Y/cxI7QzFLXo8nE9izsugRPIa9K6PIL5FrMyjQmJQTHKLxkKFL
Vbt3AyOfvA4Omrz1aknQbtisCQK+nJnpp3mPTOprsioTtIBKztaBD/9hP0iW
bdGR1gbHxUQ9He5jn3Ko1tSL0APnAhZiHtym8ZBjbi2Rp0CcW2FInw/26Jmf
2tZDxqA9UNnW6CR2QnCk6mOoPWBrC2EYGsX1RPsaPevxTAdQIH39glU/dp5K
+saWlivAr5yrqvw3du/SMwObxZyB5N4ZRtVv2E3HbJLUq13BcSX5r6xvsGd7
HatZGfACAjnMKRx22LX4DR8WXggB3kIvLZW/4no7Li167a/BfeD51rr+3mlc
/7nG63gZat8A+v1pUx7lg8iX1pUemg4vAvygceKhcC9yeb49wwrs30Cq2XJk
X/Rv5OsOLj5ks2wGIubXV852/kBu5XEi1/FaJ7DNbOPOPl+NvHC9CpcGax/Y
MTJ/X7WajNeL94NGDjJD4EZF/refyy+R69zPNn3bPAJyBvs/GeXG0NThwvrt
PSNAcDGTtekc9mydTZs8KSNApmHDttezuH/4qfP4zdTaUaCbbmRjq4S9LpNT
eeO+UWCYy3T2Rfpt5MUqRxPLQ0cB260lfYuAG8gppA71/wQpYCArn21iLe5z
yhKtnyVJUIDGhECVhVAA8qaMLW9u7aeAIKnId4oquF8ibYt3kzpKAR7F0LUu
EPddO14xH/KypoA255P7b6p4I88o1BUQe0YBqrttD+R5XMX3d92oEbaNAOLn
eXqHzlxCLpB4xNNegAAtHrJ3HppbId8deumHnBgBfrsSyrHulsgZowy6A2QJ
8LZE6Hf/O3Pk0gx9X3/qEiCz5sefo2tMcd1e67k9xYcA/vOkuvmEU8ird3hI
9wYQYFaepeNK0EmcPyVSLzeEUp9b9Dt0wf0E8tc6qUXr7xAgKb+b2LCgizxp
8sThL08IYPVKyMeQUwN5vpZLgkIxAUiTjzfzXZZHHu9qwlBbRgCVEX09feuD
uP8RfKerUUmAsrWtXm+DZHH/qfzHfOAbARofM0OTjTLITwrGdna3UeNWq+5K
N7gTuaaEWVTSbwKsvWp4KTRWGHmfbM6QchcB/FiSEjocBXEd7pWPlegnQGQT
5XmsDg/On3iL/XmU1XOcnDr+9A3IXTZtKksYI8DiorwaSZ0Jubu4VJfpBAGc
x5kuiVowIL8llPDs3jQBvmRX8hUN4X3N8LngrR/nqXGLYn1QA7uRi3jxPvq0
QABjQlShS7UNebB/QXzyIgGYnputW9nYgPyhH/sv/mUCrPxx0KZvgsgXUqHo
e6rP23llDx55h1yb279tzwoBji815n24moL82ebwiFqqS01aexeTXJC/OsvE
943qTRfac9dfdUaewX0ovY7qluHHGM2NnZB/Zsx62kD1QDqK53l7B+Sy2ROm
P6lez+IhI81ng/x7RkFSD9XnKptHJXlN8b712pnKXqprbT0SIXPKGHnB5yRK
H9VTl5JXZJOMkN9OOyo2SPU6hrLkBDsD5HVlPceo6zpgoyv7E9V8Avksk43F
JNW9ps43HgSqyDd2bpZYPc+9IDVsrmACkAuIegytOhGbISLioIz33VPa52ao
rvK2yKqNTx65TbL6wOr39KMRTWlifFLIR5sCrlH7EsDfOB7J80gC+YSnPcs8
1ddGMbHb24sht/trsHGB6n8b+XcqtQgifz/i37JI9YU1ezI4D3Mhf+B8VHGJ
6h6RO7VTr7AiVzPNj1v1ad/4FAl+JuSHnAsPLVNde81cMyf/EvrOoHhfK2jV
66N2PWe8MoP88s7Q0lWf6zPivfNzDHm910a51XMCbv18lxLVLuQtJMtLq/7g
Q5hciUAz8hSHS1GrrtMXmNktWItciJ4na9Wz/XN55No/I1dZ8atddQ7h/nhx
9Szko5axPauulSv5KEw8Cbm4jMnkqv+t91w/pROIvM/yx+KqRwkOKUUbnUT+
73w/T6LPvWIoNf+f/w9O+aEw
             "]]}}}, {
         Axes -> True, 
          PlotRange -> {{-0.9999996492195566, 
           0.9999999999999754}, {-0.9999995776395709, 0.9999996346336794}, {
           0., 0.}}, PlotRangePadding -> {
            Scaled[0.02], 
            Scaled[0.02], 
            Scaled[0.02]}}], $CellContext`r[
         Pattern[$CellContext`t, 
          Blank[]]] := {
        Cos[$CellContext`t]^3, Sin[$CellContext`t]^3, 0}, $CellContext`R[
         Pattern[$CellContext`s, 
          Blank[]]] := ReplaceAll[K, $CellContext`S -> $CellContext`s], 
       K = {(1 - (2 $CellContext`S)/3)^(3/
          2), ((2 Sqrt[2/3]) $CellContext`S^(3/2))/3, 0}}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.43843999803125*^9, 3.43844140434375*^9, 3.438441453328125*^9, 
   3.438441789375*^9, 3.4384419605625*^9, {3.438441993265625*^9, 
   3.4384420319375*^9}}]
},
WindowSize->{1272, 903},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
DockedCells->FEPrivate`If[
  FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], 
  FEPrivate`Join[{
    Cell[
     BoxData[
      GraphicsBox[
       RasterBox[CompressedData["
1:eJztXXdYFNfaz3O/f+79vudek3vTLKBIEaQpTRC7BgtqLCTWGxNjYsFookE0
NoxRY6oFuyIiWJCO9N4WWHrZpSy7VKkiBo2iy+5+Z/fsHg4zO7NLUZJ4fs/I
Mztz5j3v+87u+zvnPe+Meuu3L1v/P6+99poJ+Gf+t9dek+8LBwiBIHvu/Byd
ManLXMoSE+ExkQoZX+8W641rHWPUaDZZav+BZOoa6ZRVkhkftXrdrC3lg60h
JuGh667nVjNkJjbd4ywfjhzbcP7iQFUiICAgIHiVkHfVO0dHL0tnDFd/XNGH
q/g3bgrz84VFRVmnznAMrGRjDCSjxz6xmCFx3iFZtl/ickC6ZK/U6YtnS7Y/
c/6s23Zpt8V73aaOz8wdn+pbto4yqI2NG2qDCAgICAj+HIBTHn5GRrGhMV9H
r0hXr1hnbKGuQaGlQ6G9U5TJTJ7ZFJneaNnoMd0GZl1rjos3X+7efEn8uafk
k1OSlUfFi78RO30htl/5fOK8p2ZTmnXHNxlbVWVzh9osAgICAoI/ByANVVVU
5DpMKRs1pnS0fumYcTwDywIjh6IJixMcVrWNt5HTkL5Bt/7YR9OXi9yv1+7y
urfLu/1rryfbLnR/7iledUQ8b7vYcUXn+Ol1uhZ1EycLCwuH2iwCAgICgj8B
0AIQ2C9Yv0E4ckyNvmmh8YSs2U6chUvTlq9JcFnDc5pR9t4M/rw5/IULeDMd
M9Z9lrTVLWXLDs7Wr3O3uhVt3sn79Ev+2k2lLmvy5r+fY2JXZjO9qrh4qC0j
ICAgIPijQ4RB/vGAR72OUaHlpIqzhxsCL9QHXq4N9q4L8mryP9d051xT4IWm
oEtNARca75yvC79eG+Fbd9e3/q5vQ4TvvfDrjaE+94KuNgRfFvmdips8jZ+W
wd51VXl5bkCgIENDMwICAgKCvyoA9VSroOShbw7UjbXJ/+KzxqCrLSHhTZFJ
dbEZnRFRv4eGPQqP7IyK64yN74yL7wwP74iOackrbCkobs0taOXmt3FyHyRx
QPv6oIi68IhSz3NRK9bnht2tEgjwHiv4/JykpOgTJyI/3cBdubru7Pnq0tIh
sp7g1YUgNFTg4zPUWhAQvLpA0x9IQDUKyJlIKCxfuqbOYm7RQbfG8KC2pLzG
tIKWhHTeuXPtsUlPsoseZxU+zsp/xC14lMF9lJjSmc7pKK1oLxO2lQjasoub
knKqYzKqIlOrEzOrwuJDxtpfe2fMRSs7/wWLvZe5/DR/wS7HyTuNx/365lvh
7wxvWLuuLi1tqD1B8CoCcBDvtdfAxtfRAfsvqJcMMs0n+OsiIiLC1dX12LFj
PB6vfxJwGgIEVKuAqKKi6OB3FaZzBDPW5Xnsro2+W59e0JKc2ZGUGjppcqrD
NN4V7/a84of5JR25RR25hR0cLjjVEZ/Qnpp2PzWtOT6pNjqxKiy2PCymMjaJ
Fxrx7bsjdg1745dhbx/4xz+//Pv/nvjXsKi33m4Zrts9fkLzZa/B9QkBQZ9Q
sXFj+cqVciYaNqwqOXnQ5efl5Z09e3bQxRIQ/EEARlmBgYF79uzx8tI2mPMz
OKnXrqVcv56flFReVARmPVUCQSWPV87llsbF8QKDC095Zi9akW04JcveJXOB
a46He/XdoObY5N/iku9ncFPmL7ynY1ww0iB5xWp+cFhTblFrTmEzh9uSmtma
kNwaGdUYGlIXHCgM8C+/daPI93pxSFDW7ZtfvPPumRHjfN/R8X9nROUYPamh
kUxPr9vSuj787gv1DwGBlgBkBJiozNFx0CUTGiJ4FeDn5weYSMvGIj6//nYQ
d8VHZ/QND41491drK087uyAb23Rru6yJtlwbB96kqeWWtgJzxxqrWS02Mwr3
bK2/49MWGduWlH4vIztunnOVgUW1qW2Fnmmq/vikbV/yI2JqOTm1yZy6+OS6
qJi64BBRQED5rZulfr55167mBfjzbt3Ot5xeZ+oonjhdamYvNZkg0x/XbTmh
PibmhbpF4OMzWDn/qvx8ubQXlrQhGHKAeRDMzg36OhGhIYJXAWBO5Orq2tf8
c11ymuiLr/JMLTMMxsUYjeNaTOh0mCab5CiznCgzMpTpj5YZjJWNG5/n7iq6
ff1eVEJdQpowNSNyrnOpkWWpmS3PzK7c1DZ/jEnkRLuUI9/zoxOq4lMFEdGV
AcEVN2+X+PkW+Hhnel3m3bnTGp0iXXdIsnibZOpKqe08qYmtxNT6XkiI9qoC
FoAhAmxgHx3nDxumNnTAkS3awEd0Cgx38UEv5SOA8pJdu9CRyiNHUEegJTiF
LoH7PNXbk4AaFH3o0nCxcjlmZnjX8ryQykCYKULKI6PAcRAzgQJgQ8wIdvg6
OmiNA16LhKMYW3n6NHIpaAPtApeUL1gAdYZaIT/TL4S9QK1AG+hAIAfYCCRA
reiug5pQtIJqg66VvjUzg47quQoY6OMD+gI74CDdh7gyFFA0x/0DRIFNfit7
X4hucS85DI6ie4YJ7DQEfrkRERG91ODxduzYAY6jI3CcCY6Av2Afbwwkg+Og
PUzLA1EeHh6uCoCdhIQE1MWvv/4KW1IyJyzC1Z6CCwGoTWBgIPgI/lLsojTT
pke6KyjScOADb2AR9BiwEe8XmA+9ARqDffAX6QncBVwHrwLHQfCER6CLgBzQ
HuyjxQ7cz3gX4MJjx45BlcAOCsJ085F1LB2xeADvCBiFOxyZCQAkI53BFw/I
RzayZMyABNwK+LXRaAjlFOgOfKR8hbSEKC1d9MmGBxNtH9o6dE6Z0WUzWapn
IBujIzMykppPlJnZZbtvLb95XRQZL4hNKk9MCXCal2ZokWlmw1Fsmea2mSZW
EToGd2bNST3pWRoaURYUzPP1LfT25l65zLl0oTImqS456/mus5JPjkmct0om
L5WZTW07ea5PSqLwjkd4nJvwOI/CNdjB9+HZftAQCqTgYE/MHDANocVxxDuU
xkq+UwRtxA7gI+iazr9IMcgIqH2PFTBiq4RDw6EhUCCQIFQ3KaBcqKQShflw
XynEzAxpRXEd1EpOKL3dBfrq4XeFXWBDCoB+oWKwjVofQquZMmm45koOGjZM
LlNHB9Ec/XZQRjVMjqJ7hgkaaYgSw8EPGQYE/COIIaAZ+Iv/0mEEAx/BKRQe
QeQJVADswJYo4oGD4AjORCzCmU5B3sEVUBvf8GZ069T2qJbOcGmBGFC4hhwE
nYCirlDF5iCoIquRfHAKhGV0FZAAgjxkJXgEXIWPBCh+RqaBO4u6QFeBg2rN
R72zdMTkAdgRZB8AyGKoJXAFOILMhF82aD4kengKXM7iW9wKXDiLIZRTSI7a
XjRCJBLVnvR8OnWWxH6a2G6m2Hy6ZKy+TE9XamErnfQex8211Ne7IjyaFxFb
Eh3nPXvOTT3jAGPLO9gWaGJ5W8/44sjRN5a5ZF64WOzrV3DFK/X8uTy/myVx
KRXxaR37Lki2npKs2C+dtqZr6QZh78ptjUDhC//V49yEIgPiJkowR9G+rzSE
ekFkAQLmoNAQOgsb95RsqRbKkTTUEYh7yo5UjSm0AjlLnkJUNaDwFFSbfhZ2
B3coYZ8S6nGTYaeAjCinqOarpk6UflF71BdMfiodrnACOAKjvVquofifAlxz
5cxFNaVCrI2bD52P98XuKHYSROgTDcHoAQe38AgMWagBDDVwnxIH6DMd1AUe
HHAJLMKZTlGCMIj8au1ioiGWHjXSkNpTFIEwigpVY3VICugjlA+ZC51il0Pv
HX0Et5WyGgI+wnvNEr1ZOmLyAL0jaAK9JfInaAAu0Vi6BhrAoQt+EE6c4bXa
0xAwBE5y+10vV1NT0xAdI35vocx8Sre9i3juFrGVg1RXR2ppn+a2pcDnSmnQ
3cKQiILwyDMzZv48Su+0vvGp3hs44qlv/PNw3eO6erfWr088eTL70qXcsOiC
qITSmKR7Hhefu52RfHxEOuPj5tt9SMdBKH/vivhPCXrKpJAqPleePo0HMSEt
edJnGqLNWQYrKYd6h2fxMIhsRNLoasCZCOJfJU8NG8ZkCN4AJzgmrZgk99gY
GorP1yDUzrmQKIpWTCQCnYCSXXBmh5uGQHc4Dlxz+BVCk+KeSZ8qq6nMkSqm
PD1jA1ZH0X2uFn2iIRhG0A8c5tvxgAlTHzD5g8cBekumLpAEFuEsp2CncELB
MvRVSxzs5vSDhugCUUuW+AlYnn5HoNvV9shEQ/RMFwz+7L2zdMTkAXpHTAsx
cKoFbdSmbg1OSClfG3hT4OVa0hCkM8j1THlFjaiurq6trW1MSeuetkhq94Fk
+Tf3N53onDpfNtaQ47al9Oa1irsxpZExJVFx52fNPqVrcM5wvNrtvJHpWX2T
X94aecnCMvG7wwXR8fyk9PL4tFqPC4/czkjXH5HM21yf3OdnKGBwoyymKJdO
0GRHwTtqIxse+vqRlFPS34IFMGQNIg3BnCGM0vBaFAahObBreDlaWFEu4igI
F8VAOv9SKACnD7QPJFM2IX3m1Xt6ghslXxtSjQ2UzsEsQh+RKGHvCRQTDSHe
AUaBLtAMV22JCIuHe5kcGopmeXTfImWA5tCTymkjq6Nw+WrvL4T2NASnQjCL
whRLhQxxgJ62QpkrcBzP9gtV6X0W4RpPwaEvy7hXrQR2c/pBQ/SVC5hAU3sJ
e0cwgAOB9FkAEw3R5WhDgiwdMXlA7XFKwEfrO8hGmKnDQR+lwPtI7xGNMbSk
IXgjgEXgKqYJskZAGgJzoubgMKn1YsnSPR2up0p2nm6fPDvX3VUQ4Fcdm1QZ
l1yekHzDaV6YoXmkmbWazdQ6wnhCtIVV1jLn9N2uCefPlscnizg51enZdR7n
H7if7t70o2zu9par/n3SDUUhtAOPwzAiXxZX7MDB84ugIbhIzcNqHgaLhpRU
oojSMPbK47lCCAzUyikPNgGEjIxvKHnF671iTqcAHpaYogjpkYanxWCVAk0y
Pi3FV/DRpmZyiuaSmFZ06sQ9A3vBN7VVCihHCtkBMhe6cfiFeDkE2np8q1AM
X0iCN5HFURT5TNCehuiJr77SEB1CBhrShmtYTtFlUvByaIh+vN80JMRKHXDv
0UUNkIZYOuorDaGDcLUIr5FQ+2WgC2FKq8JVNnZD8FOgPaIttdlCjRCJRDUq
gP0n63ZIF2x/4npC4Ha26Kufcr/5QhToVx+fIkpKr0zJCJo3P8PQgmtum22m
2FQ7WSbW3PFWJU6zit03JZ79pTAyuja3qCY9q5bDrePkNHx74b7bSfHG49LF
X4udNtRmq0kdMEGZrVIELjxhguI/mhYJBy8ph6JTL00U8wh8jX6ANIR0AztQ
FM6V4KByXoBRiRBVj/v4KCeJlBo2VV9q5kdw/K9ITFHK8HpmHD4+TLxDqdnD
c3HQFnAthXfoBQ94JZ583Ye5/AC5VO7z3ik1HPQRgnwapeIFiuZKmYr7SMko
4glSlKBjd5Sw90IhE7SkITQVEmI/cO2TcpTKLngWDnQp8QdKAO0HkpQDYUeb
2RA+FAeNB5iUw6XBS6DV/UjKsSSsgGQgFmarKDIpH/uXlGPpqH80BJ1ASYXR
6x7VjhxcFZMmeo+Q19gNwU+hry76dtFlsgO9QgHS0MN9x6VzPn/+2Y+NOz0L
913IOexeH3SjKTGtPjVTmJYZNde5zMCy3NS23NRG8de23MS63Hhi9RRHkeva
TM/jKX5+uf53mnLym3MLmzNzmrLzmji5Tfs9H+4+I/74kGSJm8x+RdfSTTV5
BVqq1ysJphqyKlNYihiCNxisEgVY2QWPgFiKD9dhSKSklWDcQzFWOVNADMg8
WkbrIDgNoQkRZUlIrgler06pYeu9Yo56RykyPGbCs6g+nBJdlVUBZmZKpyku
lPsEy7z1kC+WklJTaNebaNRWKSDJOPAjOPVTgN8CNEhAHEq5EJdJKSbEaQip
LSdlVkeh7liYVEsaYqo96FOJAmXtGw50XWklCoiwBlKiwM5E9NkZDE3sJQrs
BQ84oBC4JKF2xZ8lfjIt3+NHWPyMPmosUUDUQAnOTB31j4bU1sZTdENJM7oQ
bWhIrSHID5AH0USsT69TgMDf5CN/m1yloOv9jyWz1ks+PvJw55nyPWdzj+1r
DLvdnpjakp5dz8mOn+dcrW9RPd5GvplYVxtNqJ9o27h2SdEvHlkB/qVhEcVh
d0uDQ1q4+fdzi9oz8zpyCjoyczu2He3c9pN4nYdk/hbptLUyc6dn81fXJado
oyF9mAp++2hHiC3uw/ZaFmzDJ0eUz4Mo6njxbBXKfcHROAzmeME2bIxioLIS
WCVN/tHMDAlheUUMsg6nISE2IcKDHqxwpmiCFnRQaTFavOjRR0cH5bgQK6G1
NiQN+RB9xC9U2qXqpWdZ6sgR+QM1K1fKdVA1BgEfTvHQ0zqwjFzIUIkntwtK
UNRsCxVUqEy1oQemsFIHBDQDRXM3pUDFFJIyXQVdyO0FXwygmMo58JTa0Qvk
LxZHoXU0egU4gjY0hE+FhL3jHlOFMyzTRXMEdBVcEYCn0HNDrqpC7sEt2GZZ
IWJKo7EXbMMlCfqzJ0zShLSCbWis2ksoE09U/wwLtgGQHLzymcnPQk0F2zsU
wAuzoaOYOhL2l4agOej+wpuO13jDXtRSvDZJOSZDmOgYTQm1B+XVpk3B4RLz
Gd3TVkpWHOjaerLB3bPghwMtkYG/JSQ9SM9uzs5NmK+kIZHRxBozq6YlcysO
78i84cNPSL6XlnEvLr4kNLwoOLiVW9CWU3ifk9uRV/woq+Dxp/t+X7VL+sEe
yexPpPbLpDaLZTYLxI7zqry8NWqI103BsTSMJHjQoER7cBZ/YkXt46t4ETge
glBMQ2tP8mdFe69T9KSnsKE46hE+HYk+sj9XgsIdVAzFUjQhoozSKasb8qCN
TVjwDfgKVSmgSI7P8oSKxB3uKDRrQwmrXnadPt3LLqzqTK1/8Ae7cOail89R
1rwQxeNLTiyvHqXogxKDeDEGquvAO8JNpnAZZdbD5Cg0BEIlEHT1tKEhGChQ
PKeEULXPe8IjCCj6oZYocMFQP1iPr+K6wSVpcJa+9s1CHGrFwnkNCKFQT+2l
CbGlFkhhrljBNt6MMqpHDxmBWA31R4pBaoC3g+5nbR5fhTcCPjPrij1KTPEA
3pFwAGtDoF9Y5A+LH5CNUDdKLzi0KVFgMgRPTuLfcHqmVCNwGqrl8Z/OXSIx
myK2X/h8weautYfuu/5c9P3+1siAR3HxD1Mz7mflRM53Lh5rxjOxEs6eLnD7
jHv1XEF4pCghpTktozklpSk2tvJueEFQUHN6dktmXms6tz2n6GFWwf3/7nm8
dPvTmRu6HVaJrRdLzGdLLabLLGdKJ0xt3/xlDSeTST16YS0Kvzw886MqpcOv
VfsyH41JOYqEHk1UKzKMqioa4OvjkMKY2kOggjeKRUIsXNMnAjDA4sJ71b9t
3Ag1wSuK4doNntPDzdRsF94Xg11QDt4F/sgqTJohTdRm4egaMjXGQbmJFOqh
DwbotxId6aU83ck0R+GiKF8ABI00BDkIpwD2qNvXZkzBrX8YXN0Gt9NB7/fF
yVSLftNQv6GxYJsFg+sWxEQPP/28e7zVM3OHbus5YkeXZ4u2ta7en394T1PY
rYfR0Q/iE9tSUv3nOCVbTCj5fFXOmR/ygoOFsQn1iUnC2PjqmNjGmJjau3cr
Q0Jy7vjfi0u6l8Spi0tv4uS1cwoebvjuscuurtmfPrVdKLZ4T2LuJB0/VWZs
JzOeJH9SyXJK20cbqgODhBUVFN3QyBYdQUkh/CDLEjYFfaKhl4CelwaoFiPQ
KWQ7ngViB+XRKnqt9csHvZxMbcwfCChrVWi9RllF0PsZ25cPjTQERpj4VEio
9Q+c5YU5lC4IDQ0EWvp54Hj5NKTx8VUWvAhXV2zcLB5rLDaxemxo0TbOttl8
Vp3DysIFm7MPudcGXGsJCWoJC2uMiAxZOC/tm23ZftfKgsOEkVGCiKiy8IjS
sPDCkJDioKDSO3cKb91Mu36tKiRSEJtWGZVSk5zdmpLzdN13Txdu67JZJjZ9
76nt3IdrtzzYe7j1hGfLxSvNV661el7o2Pvtgx27m05Rf614il6lpzLm4JVa
9GZMUEtDlFK0lww8TUQZbOOntKESuEZPf6eExveevVAAAoLrWRSt2NOVfZJP
yf7hXw+1dX0vExppyJX2Ji7tf+DalCQNIQ3Ra9sG0qk20l7QzAX3M1q+H3S8
fBoSanqZj8YLB64AhIjHa3XdLh6l1zVKr11Hv1HXQDTWtGb8ZJ7V/Jx5GzkH
vxb4Xay+4Su6dav61i3Ozz8WXvctvu1f4u8vCAgUBAYW37qVfv168rVrYMu4
ejXzypXYC+dLfG/zwxL4QbG1iZltabnPluwQO6zsdNnUeupiTXYOoyqCKsoB
EGHQ0rayiSLPQzkIV8O1CWsUGkIpIxCmhmrADF/dqXyjWu8JgnyJSnWqf+/3
1vK9Zy8ZUKvBcjhcBcM3+GgtPEt5WevLh0YaokyFhIM9/B4SGqK/jLR/L71k
ksbk0peQQBsSGqK/mkDtwf6B5dWmLBhEVzf53nruOKtzlF7NOLOaibaVVrZC
m0k8Q9N8HeNsI/u0mavjN3/Gu+lVfsOv3P92xR1/fsCdquBgUWxcbSa3Pr+o
LqegIT2zNia+MiiIc8Mv9qpXrNeVqCuXMq/5VIbHC6OSH1TV1kXEPp+8+vfl
m0T8skHReSCAMR9P36F6hiEcML840O39IwAuu7yc/zgDkdRQ/T8dQ/4fPQxi
vBK+xAxV//AHV48dg3unXjQGxdWi4mKB5/nwj9cH7tmTHxhUmZMjKCkRlpYK
i4srk5MLz5xNfn9VmPX84ElTOD//IORmN1VWtolEbXX1bU3N91va2lsVW3PL
g8bmjsam+w2NrbUNzVXCmoqKSj6/qozfJqp+9OBhe01N8axlT0xmNt64Myi2
ExD8uTDkNERA8IdFVWlpEZdLP44qFspzc8Ns5/jpG9wwNoqYM6dw3cYS96NZ
e49x9hzJ3Hck99BxsHEPHM13P8jf8U32VveUDV8lfOYWu37nTecl+6c6Rs9b
kL9kdan17DaL6Y8MrOvDyH+0SvAqAtYGD7UWBAR/MiAmCpjl9Mub/z45YozA
dq5k44nn+7ybvrsuOOIjOHpN+IOv6Mfrwh98ag9d/H37MeHGw/lr92Ws+zZ9
1cGi5bt8jO02vvF6pZFZnfGEJkPz+7oGNX43h9osAgICAoI/E8rS0o6OHO7x
+ptn39HvmuwiWbZXsun0E7eLD/Z6tRz0bvDwrj10tcbjSsO+i+0bj7as+7Z6
xYHyNYf5y3bxnT6vmvxhpJ55/CjdyrGGVXpG9Tp6Fd8dHWqDCAgICAj+PBAI
kn788cib7+7/v9dTdMdJHN6XzNkgWbZb8slPkq1nn3198fHuK527L993v/Rg
57nfPj32ePV3vy37pn353ntzNtZMcqk0nV5mZJU1Wi911Oji0XplI3XLFi0V
VlEL4QgICAgICNSiSiDITUw8NFLH45+vPzOxlk6cKZm0WDJtjWzWZtnifdI1
30s2/Nq98WT3phPP133/fOWhrkV7njq5ds5c/8hycfPUJTV2s/ijDXOGj4ob
PjJ+pA5nhG6OoXGFuqUoAgICAgICtcgIDV3/93+kDB8pNZkgHW8nM50msXPu
ctny++aDzz50k87cIlm0W7LIXeK8s9tp29MpH/9us/ypyezWo7+IioqFYAsK
Llm5OmXM2MC33ol8e0TcuyNzvTW/QY6AgICAgADiyv59B//1L5m+vsxgnNTM
utP1q7pU5ZPLovKKhx4nZXYrpFP+K53yUbfd8qcWzl2G03775AuKEF5sbMJS
lytv/Mf/P29HOi8ieTkCAgICAm1QJRBstbYSDB8p09Pres+pITqG3qbzKw+Z
zWLpxLkSG+cnxtO6jB3r45PUSuNcunRGR/fCsDdq1ckhICAgICCgICs5+ei/
/y3T0ev48isRwzvuqotKxLOWyl+UbT7tmZH9o8WrhAIBk8Di5OTjxkZx06eT
CREBAQEBgUb8vGVz24jRTZ7n2Js13wyQjbeXmTmKDa3aftXw/kwel/uzpYXo
0uXBU5OAgICA4C+IHA7n0tvD205d0Kbx74s/lBlNkBpb18TFa2zMz8uLcd1a
nZM7YB0JCAgICP6yuPT1zta9h7Vs3HLJS2Zs02ntWFFYqE378sLCCkJDBAQE
BAQMyMrI4B//Rfv2osrKbodZ9xcseXEqERAQEBC8OqgoLu5rFcGTlRu4HwzZ
/25JQEBAQPBHw/8DCp03+A==
        "], {{0, 0}, {557, 41}}, {0, 255}, ColorFunction -> RGBColor], 
       ImageSize -> {557, 41}, PlotRange -> {{0, 557}, {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, 14374, 271, 620, "Output"]
}
]
*)

(* End of internal cache information *)
(* NotebookSignature ovTtpwbV8nkl4BgIyLL#rxLz *)