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

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

(* CreatedBy='Mathematica 10.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      1746,         62]
NotebookOptionsPosition[      1498,         48]
NotebookOutlinePosition[      1849,         64]
CellTagsIndexPosition[      1806,         61]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"ParametricPlot3D", "[", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{"2", "+", 
         RowBox[{"Cos", "[", "\[Beta]", "]"}]}], ")"}]}], 
      RowBox[{"Sin", "[", "\[Alpha]", "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"+", 
       RowBox[{"(", 
        RowBox[{"2", "+", 
         RowBox[{"Cos", "[", "\[Beta]", "]"}]}], ")"}]}], 
      RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Sin", "[", "\[Beta]", "]"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]", ",", "0", ",", 
     RowBox[{"2", "\[Pi]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Beta]", ",", "0", ",", 
     RowBox[{"2", "\[Pi]"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",\

 CellChangeTimes->{{3.652018852862775*^9, 3.652019004245096*^9}}]
},
WindowSize->{808, 871},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
FrontEndVersion->"10.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (July 6, \
2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 936, 26, 114, "Input"]
}
]
*)

(* End of internal cache information *)
