(* 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[      5193,        122]
NotebookOptionsPosition[      5738,        118]
NotebookOutlinePosition[      6159,        137]
CellTagsIndexPosition[      6116,        134]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`uuX$$ = 0.01, $CellContext`uuY$$ = 
    0.01, $CellContext`vvX$$ = 0.01, $CellContext`vvY$$ = 0.01, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`uuX$$], 0.01, Pi}, {
      Hold[$CellContext`vvX$$], 0.01, 2 Pi}, {
      Hold[$CellContext`uuY$$], 0.01, Pi}, {
      Hold[$CellContext`vvY$$], 0.01, 2 Pi}}, Typeset`size$$ = {
    360., {203., 208.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`uuX$13398$$ = 
    0, $CellContext`vvX$13399$$ = 0, $CellContext`uuY$13400$$ = 
    0, $CellContext`vvY$13401$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`uuX$$ = 0.01, $CellContext`uuY$$ = 
        0.01, $CellContext`vvX$$ = 0.01, $CellContext`vvY$$ = 0.01}, 
      "ControllerVariables" :> {
        Hold[$CellContext`uuX$$, $CellContext`uuX$13398$$, 0], 
        Hold[$CellContext`vvX$$, $CellContext`vvX$13399$$, 0], 
        Hold[$CellContext`uuY$$, $CellContext`uuY$13400$$, 0], 
        Hold[$CellContext`vvY$$, $CellContext`vvY$13401$$, 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[
        ContourPlot3D[($CellContext`x/$CellContext`a)^2 + \
($CellContext`y/$CellContext`b)^2 + ($CellContext`z/$CellContext`c)^2 == 
         1, {$CellContext`x, -4, 4}, {$CellContext`y, -4, 
          4}, {$CellContext`z, -4, 4}, Mesh -> None, ContourStyle -> 
         Directive[Blue, 
           Opacity[0.3]], AxesLabel -> Automatic, 
         WorkingPrecision -> $CellContext`wp], 
        ParametricPlot3D[
         $CellContext`X[$CellContext`u, 0], {$CellContext`u, 0, Pi}, 
         PlotStyle -> {Red, Thick}], 
        ParametricPlot3D[
         $CellContext`X[$CellContext`u, $CellContext`v], {$CellContext`u, 
          0, $CellContext`uuX$$}, {$CellContext`v, 0, $CellContext`vvX$$}, 
         Mesh -> None, WorkingPrecision -> $CellContext`wp], 
        ParametricPlot3D[
         $CellContext`Y[$CellContext`u, 0], {$CellContext`u, 0, Pi}, 
         PlotStyle -> {Red, Thick, Dashed}], 
        ParametricPlot3D[
         $CellContext`Y[$CellContext`u, $CellContext`v], {$CellContext`u, 
          0, $CellContext`uuY$$}, {$CellContext`v, 0, $CellContext`vvY$$}, 
         Mesh -> None, PlotStyle -> Darker[Green], 
         WorkingPrecision -> $CellContext`wp]], 
      "Specifications" :> {{$CellContext`uuX$$, 0.01, 
         Pi}, {$CellContext`vvX$$, 0.01, 2 Pi}, {$CellContext`uuY$$, 0.01, 
         Pi}, {$CellContext`vvY$$, 0.01, 2 Pi}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{403., {289., 295.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>(($CellContext`wp = 200; $CellContext`a = 
       2; $CellContext`b = 3; $CellContext`c = 4; $CellContext`X[
         Pattern[$CellContext`u, 
          Blank[]], 
         Pattern[$CellContext`v, 
          Blank[]]] := {$CellContext`a Sin[$CellContext`u] 
         Cos[$CellContext`v], $CellContext`b Sin[$CellContext`u] 
         Sin[$CellContext`v], $CellContext`c 
         Cos[$CellContext`u]}; $CellContext`Y[
         Pattern[$CellContext`u, 
          Blank[]], 
         Pattern[$CellContext`v, 
          Blank[]]] := {(-$CellContext`a) Sin[$CellContext`u] 
         Cos[$CellContext`v], $CellContext`b 
         Cos[$CellContext`u], $CellContext`c Sin[$CellContext`u] 
         Sin[$CellContext`v]}; 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->"bb6425cf-76e7-46a3-\
a569-286635aa54e0"]
},
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, 4246, 83, 594, InheritFromParent,ExpressionUUID->"bb6425cf-76e7-46a3-a569-286635aa54e0"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature PuDCXR#VBmg@4Bw9yrlBizY2 *)