(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      1805,         66]
NotebookOptionsPosition[      1515,         52]
NotebookOutlinePosition[      1858,         67]
CellTagsIndexPosition[      1815,         64]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"hypruled", "[", 
   RowBox[{"u_", ",", "v_"}], "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", "u", "]"}], ",", 
     RowBox[{"Sin", "[", "u", "]"}], ",", "0"}], "}"}], " ", "+", " ", 
   RowBox[{"v", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"Sin", "[", "u", "]"}]}], ",", 
      RowBox[{"Cos", "[", "u", "]"}], ",", 
      RowBox[{"-", "1"}]}], "}"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4451734021305943`*^9, 3.44517344690795*^9}, 
   3.445173479591007*^9}],

Cell[BoxData[
 RowBox[{"ParametricPlot3D", "[", 
  RowBox[{
   RowBox[{"hypruled", "[", 
    RowBox[{"u", ",", "v"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "0", ",", 
     RowBox[{"2", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"v", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.445173449720085*^9, 3.445173473643812*^9}}]
},
WindowSize->{640, 656},
WindowMargins->{{-921, Automatic}, {-19, Automatic}},
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 565, 17, 27, "Input"],
Cell[1113, 39, 398, 11, 27, "Input"]
}
]
*)

(* End of internal cache information *)