(* Content-type: application/vnd.wolfram.cdf.text *)

(*** Wolfram CDF File ***)
(* http://www.wolfram.com/cdf *)

(* CreatedBy='Mathematica 12.0' *)

(***************************************************************************)
(*                                                                         *)
(*                                                                         *)
(*  Under the Wolfram FreeCDF terms of use, this file and its content are  *)
(*  bound by the Creative Commons BY-SA Attribution-ShareAlike license.    *)
(*                                                                         *)
(*        For additional information concerning CDF licensing, see:        *)
(*                                                                         *)
(*         www.wolfram.com/cdf/adopting-cdf/licensing-options.html         *)
(*                                                                         *)
(*                                                                         *)
(***************************************************************************)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[      1088,         20]
NotebookDataLength[      4344,        111]
NotebookOptionsPosition[      4889,        107]
NotebookOutlinePosition[      5310,        126]
CellTagsIndexPosition[      5267,        123]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`u0$$ = -2, $CellContext`v0$$ = -2, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`u0$$], -2, 2}, {
      Hold[$CellContext`v0$$], -2, 2}}, Typeset`size$$ = {288., {214., 218.}},
     Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`u0$2749$$ = 0, $CellContext`v0$2750$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`u0$$ = -2, $CellContext`v0$$ = -2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`u0$$, $CellContext`u0$2749$$, 0], 
        Hold[$CellContext`v0$$, $CellContext`v0$2750$$, 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" :> Show[$CellContext`surf, 
        ParametricPlot3D[
         $CellContext`\[Alpha][$CellContext`u0$$, $CellContext`t], \
{$CellContext`t, -2, 2}, Mesh -> None], 
        ParametricPlot3D[
         $CellContext`\[Beta][$CellContext`v0$$, $CellContext`t], \
{$CellContext`t, -2, 2}, Mesh -> None]], 
      "Specifications" :> {{$CellContext`u0$$, -2, 2}, {$CellContext`v0$$, -2,
          2}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{331., {272., 278.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>(($CellContext`X[
         Pattern[$CellContext`u, 
          Blank[]], 
         Pattern[$CellContext`v, 
          
          Blank[]]] := {$CellContext`u, $CellContext`v, \
($CellContext`u/$CellContext`a)^2 - ($CellContext`v/$CellContext`b)^2}; \
$CellContext`\[Alpha][
         Pattern[$CellContext`u0, 
          Blank[]], 
         Pattern[$CellContext`t, 
          
          Blank[]]] := {{$CellContext`a ($CellContext`u0/2) + ($CellContext`a/
            2) $CellContext`t}, {(-$CellContext`b) ($CellContext`u0/
            2) + ($CellContext`b/
            2) $CellContext`t}, {$CellContext`u0 $CellContext`t}}; \
$CellContext`\[Beta][
         Pattern[$CellContext`v0, 
          Blank[]], 
         Pattern[$CellContext`t, 
          
          Blank[]]] := {{$CellContext`a ($CellContext`v0/2) + ($CellContext`a/
            2) $CellContext`t}, {$CellContext`b ($CellContext`v0/
            2) - ($CellContext`b/
           2) $CellContext`t}, {$CellContext`v0 $CellContext`t}}; \
$CellContext`wp = 200; $CellContext`a = 1; $CellContext`b = 
       2; $CellContext`surf = ParametricPlot3D[
         $CellContext`X[$CellContext`u, $CellContext`v], {$CellContext`u, -2, 
          2}, {$CellContext`v, -2, 2}, Mesh -> None, 
         WorkingPrecision -> $CellContext`wp]; Null); 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]],ExpressionUUID->"9a647c40-3713-4f77-\
83cc-1d4ddae85a4a"]
},
Visible->True,
ScrollingOptions->{"VerticalScrollRange"->Fit},
ShowCellBracket->Automatic,
Deployed->True,
CellContext->Notebook,
TrackCellChangeTimes->False,
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[1488, 33, 3397, 72, 560, InheritFromParent,ExpressionUUID->"9a647c40-3713-4f77-83cc-1d4ddae85a4a"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature LuTdibd56Un@RAwPdxNy5Y0a *)