(* 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[      6487,        208]
NotebookOptionsPosition[      5653,        178]
NotebookOutlinePosition[      6092,        195]
CellTagsIndexPosition[      6049,        192]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"fixedangle", "[", 
   RowBox[{"t_", ",", "\[Theta]_"}], "]"}], ":=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"t", " ", 
        RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", "1"}], ")"}], 
     RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ",", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"t", " ", 
        RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], "+", "1"}], ")"}], 
     RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", " ", 
    RowBox[{"t", " ", 
     RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.445170872210279*^9, 3.445170922375428*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Alpha]", "=", 
  RowBox[{"\[Pi]", "/", "3"}]}]], "Input",
 CellChangeTimes->{{3.445170932551857*^9, 3.4451709552207813`*^9}}],

Cell[BoxData[
 FractionBox["\[Pi]", "3"]], "Output",
 CellChangeTimes->{{3.445170938395184*^9, 3.4451709558345213`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ParametricPlot3D", "[", 
  RowBox[{
   RowBox[{"fixedangle", "[", 
    RowBox[{"u", ",", "v"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", 
     RowBox[{"-", ".5"}], ",", ".5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", ",", "0", ",", 
     RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.445170947354226*^9, 3.445170948800185*^9}}],

Cell["\<\
For the Mobius band with one-half twist, we arrange for the angle \[Alpha] to \
vary by \[Pi] as \[Theta] goes from 0 to 2\[Pi]:\
\>", "Text",
 CellChangeTimes->{{3.445171084719883*^9, 3.445171131203533*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mobius", "[", 
   RowBox[{"t_", ",", "\[Theta]_"}], "]"}], ":=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"t", " ", 
        RowBox[{"Cos", "[", 
         FractionBox["\[Theta]", "2"], "]"}]}], "+", "1"}], ")"}], 
     RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ",", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"t", " ", 
        RowBox[{"Cos", "[", 
         FractionBox["\[Theta]", "2"], "]"}]}], "+", "1"}], ")"}], 
     RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", " ", 
    RowBox[{"t", " ", 
     RowBox[{"Sin", "[", 
      FractionBox["\[Theta]", "2"], "]"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.445004917016677*^9, 3.44500500092411*^9}, {
  3.445170753582102*^9, 3.4451707724777718`*^9}, {3.4451710375242243`*^9, 
  3.445171053572153*^9}}],

Cell[BoxData[
 RowBox[{"ParametricPlot3D", "[", 
  RowBox[{
   RowBox[{"mobius", "[", 
    RowBox[{"u", ",", "v"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", 
     RowBox[{"-", ".5"}], ",", ".5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", ",", "0", ",", 
     RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.445005003262743*^9, 3.4450050276212387`*^9}, {
  3.445171042385638*^9, 3.445171043419115*^9}}],

Cell["\<\
For the Mobius band with n-half twists, we arrange for the angle \[Alpha] to \
vary by \[Pi] as \[Theta] goes from 0 to 2\[Pi]:\
\>", "Text",
 CellChangeTimes->{{3.445171084719883*^9, 3.445171131203533*^9}, {
  3.445171172379259*^9, 3.44517117690449*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"n", "=", "2"}]], "Input",
 CellChangeTimes->{{3.445171180507298*^9, 3.44517121078996*^9}}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{{3.445171204715404*^9, 3.445171211259116*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"multimobius", "[", 
   RowBox[{"t_", ",", "\[Theta]_", ",", "n_"}], "]"}], ":=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"t", " ", 
        RowBox[{"Cos", "[", 
         FractionBox[
          RowBox[{"n", " ", "\[Theta]"}], "2"], "]"}]}], "+", "1"}], ")"}], 
     RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ",", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"t", " ", 
        RowBox[{"Cos", "[", 
         FractionBox[
          RowBox[{"n", " ", "\[Theta]"}], "2"], "]"}]}], "+", "1"}], ")"}], 
     RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", " ", 
    RowBox[{"t", " ", 
     RowBox[{"Sin", "[", 
      FractionBox[
       RowBox[{"n", " ", "\[Theta]"}], "2"], "]"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.445004917016677*^9, 3.44500500092411*^9}, {
  3.445170753582102*^9, 3.4451707724777718`*^9}, {3.4451710375242243`*^9, 
  3.445171053572153*^9}, {3.445171185722651*^9, 3.445171189732172*^9}, {
  3.445171223552231*^9, 3.445171244585435*^9}}],

Cell[BoxData[
 RowBox[{"ParametricPlot3D", "[", 
  RowBox[{
   RowBox[{"multimobius", "[", 
    RowBox[{"u", ",", "v", ",", "3"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", 
     RowBox[{"-", ".5"}], ",", ".5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", ",", "0", ",", 
     RowBox[{"2", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"PlotPoints", "\[Rule]", " ", "40"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.445005003262743*^9, 3.4450050276212387`*^9}, {
  3.445171042385638*^9, 3.445171043419115*^9}, {3.445171248359961*^9, 
  3.4451712944088707`*^9}}]
},
WindowSize->{640, 656},
WindowMargins->{{12, Automatic}, {Automatic, 24}},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited],
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, 691, 20, 88, "Input"],
Cell[CellGroupData[{
Cell[1261, 44, 151, 3, 40, "Input"],
Cell[1415, 49, 120, 2, 60, "Output"]
}, Open  ]],
Cell[1550, 54, 397, 11, 64, "Input"],
Cell[1950, 67, 218, 4, 62, "Text"],
Cell[2171, 73, 869, 25, 142, "Input"],
Cell[3043, 100, 444, 12, 64, "Input"],
Cell[3490, 114, 265, 5, 62, "Text"],
Cell[CellGroupData[{
Cell[3780, 123, 114, 2, 40, "Input"],
Cell[3897, 127, 94, 1, 40, "Output"]
}, Open  ]],
Cell[4006, 131, 1070, 29, 142, "Input"],
Cell[5079, 162, 570, 14, 64, "Input"]
}
]
*)

(* End of internal cache information *)