(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     22012,        644]
NotebookOptionsPosition[     21463,        624]
NotebookOutlinePosition[     21810,        639]
CellTagsIndexPosition[     21767,        636]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{"\"\< #23\>\"", ";"}], "\[IndentingNewLine]", 
 RowBox[{"\"\<\!\(\*
StyleBox[\"Cone\",
FontSize->18,
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[0, 0, 1]]\) z=\!\(\*SqrtBox[\(\*SuperscriptBox[\(x\), \(2\
\)]\\\  + \*SuperscriptBox[\(y\), \(2\)]\)]\) \>\"", ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Surf", "[", 
    RowBox[{"u_", ",", "v_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", " ", 
      RowBox[{"Cos", "[", "v", "]"}]}], ",", 
     RowBox[{"u", " ", 
      RowBox[{"Sin", "[", "v", "]"}]}], ",", "u"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ParametricGraph", "=", 
   RowBox[{"ParametricPlot3D", "[", "   ", 
    RowBox[{
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", "0", ",", 
       RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ShapesGraph", "=", 
   RowBox[{"Graphics3D", "[", "  ", 
    RowBox[{"Cone", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "1"}], "]"}],
     " ", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphicsRow", "[", 
  RowBox[{
   RowBox[{"{", "   ", 
    RowBox[{"ParametricGraph", ",", "ShapesGraph"}], "  ", "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "800"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", "    ", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "u"], 
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}]}], "\[Cross]", 
    RowBox[{
     SubscriptBox["\[PartialD]", "v"], 
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}]}]}], "  ", ",", "Reals"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", " ", 
  RowBox[{
   RowBox[{"Norm", "[", "%", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", ">", "0"}], ",", 
     RowBox[{"0", "<", "v", "<", 
      RowBox[{"2", "Pi"}]}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.411750924671875*^9, {3.411750972546875*^9, 3.411750984453125*^9}, {
   3.470926629234375*^9, 3.470926635890625*^9}, {3.470926701015625*^9, 
   3.47092672196875*^9}, {3.4709267853125*^9, 3.47092685128125*^9}, {
   3.470926934984375*^9, 3.470927036609375*^9}, {3.4709270859375*^9, 
   3.470927147625*^9}, {3.470927183421875*^9, 3.470927188125*^9}, {
   3.470927297984375*^9, 3.470927394375*^9}, {3.470927432984375*^9, 
   3.470927478890625*^9}, 3.470927511921875*^9, 3.470927548671875*^9, {
   3.47092773659375*^9, 3.470927738234375*^9}, {3.470927903421875*^9, 
   3.470927994953125*^9}, {3.470928035578125*^9, 3.47092816003125*^9}, {
   3.470928236609375*^9, 3.47092835415625*^9}, {3.47092979953125*^9, 
   3.47092980840625*^9}, {3.4709298551875*^9, 3.4709298596875*^9}, {
   3.470929905484375*^9, 3.47092999278125*^9}, {3.470930023421875*^9, 
   3.47093012734375*^9}, {3.47093027346875*^9, 3.470930357484375*^9}, {
   3.470930422859375*^9, 3.4709304296875*^9}, {3.470930463390625*^9, 
   3.47093050678125*^9}}],

Cell[BoxData[{
 RowBox[{"\"\< #26 \>\"", ";"}], "\n", 
 RowBox[{"\"\<\!\(\*
StyleBox[\"Cylinder\",
FontSize->16,
FontColor->RGBColor[0, 0, 1]]\) \!\(\*SuperscriptBox[\(x\), \
\(2\)]\)+\!\(\*SuperscriptBox[\(y\), \(2\)]\)=9 \>\"", ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Surf", "[", 
    RowBox[{"u_", ",", "v_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"3", 
      RowBox[{"Cos", "[", "v", "]"}]}], ",", 
     RowBox[{"3", " ", 
      RowBox[{"Sin", "[", "v", "]"}]}], ",", "u"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ParametricGraph", "=", 
   RowBox[{"ParametricPlot3D", "[", "  ", 
    RowBox[{
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "0", ",", "5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", "0", ",", 
       RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ShapesGraph", "=", 
   RowBox[{"Graphics3D", "[", "  ", 
    RowBox[{"Cylinder", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "3"}], "]"}],
     "  ", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphicsRow", "[", 
  RowBox[{
   RowBox[{"{", "   ", 
    RowBox[{"ParametricGraph", ",", "ShapesGraph"}], "  ", "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "800"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", "    ", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "u"], 
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}]}], "\[Cross]", 
    RowBox[{
     SubscriptBox["\[PartialD]", "v"], 
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}]}]}], "  ", ",", "Reals"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", " ", 
  RowBox[{
   RowBox[{"Norm", "[", "%", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", ">", "0"}], ",", 
     RowBox[{"0", "<", "v", "<", 
      RowBox[{"2", "Pi"}]}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.411750924671875*^9, {3.411750972546875*^9, 3.411750984453125*^9}, {
   3.470926629234375*^9, 3.470926635890625*^9}, {3.470926701015625*^9, 
   3.47092672196875*^9}, {3.4709267853125*^9, 3.47092685128125*^9}, {
   3.470926934984375*^9, 3.470927036609375*^9}, {3.4709270859375*^9, 
   3.470927147625*^9}, {3.470927183421875*^9, 3.470927188125*^9}, {
   3.470927297984375*^9, 3.470927394375*^9}, {3.470927432984375*^9, 
   3.470927478890625*^9}, {3.470927511921875*^9, 3.4709275918125*^9}, {
   3.4709283880625*^9, 3.4709284366875*^9}, {3.470929746921875*^9, 
   3.47092977009375*^9}, {3.4709305491875*^9, 3.47093056121875*^9}, {
   3.4709306178125*^9, 3.470930684140625*^9}}],

Cell[BoxData[{
 RowBox[{"\"\< #27 \>\"", ";"}], "\n", 
 RowBox[{"\"\<\!\(\*
StyleBox[\"Unit\",
FontSize->16,
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontSize->16,
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\"Sphere\",
FontSize->16,
FontColor->RGBColor[0, 0, 1]]\)\>\"", ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Surf", "[", 
    RowBox[{"u_", ",", "v_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Cos", "[", "u", "]"}], " ", 
      RowBox[{"Sin", "[", "v", "]"}]}], ",", 
     RowBox[{
      RowBox[{"Sin", "[", "u", "]"}], " ", 
      RowBox[{"Sin", "[", "v", "]"}]}], ",", 
     RowBox[{"Cos", "[", "v", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ParametricGraph", "=", 
   RowBox[{"ParametricPlot3D", "[", "  ", 
    RowBox[{
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "0", ",", 
       RowBox[{"2", "\[Pi]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ShapesGraph", "=", 
   RowBox[{"Graphics3D", "[", " ", 
    RowBox[{"Sphere", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "1"}], "]"}], "  ", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphicsRow", "[", 
  RowBox[{
   RowBox[{"{", "   ", 
    RowBox[{"ParametricGraph", ",", "ShapesGraph"}], "  ", "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "800"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", "    ", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "u"], 
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}]}], "\[Cross]", 
    RowBox[{
     SubscriptBox["\[PartialD]", "v"], 
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}]}]}], "  ", ",", "Reals"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", " ", 
  RowBox[{
   RowBox[{"Norm", "[", "%", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"0", "<", "u", "<", 
      RowBox[{"2", "Pi"}]}], ",", 
     RowBox[{"0", "<", "v", "<", "Pi"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.411750924671875*^9, {3.411750972546875*^9, 3.411750984453125*^9}, {
   3.470926629234375*^9, 3.470926635890625*^9}, {3.470926701015625*^9, 
   3.47092672196875*^9}, {3.4709267853125*^9, 3.47092685128125*^9}, {
   3.470926934984375*^9, 3.470927036609375*^9}, {3.4709270859375*^9, 
   3.470927147625*^9}, {3.470927183421875*^9, 3.470927188125*^9}, {
   3.4709276259375*^9, 3.470927720515625*^9}, {3.47092846390625*^9, 
   3.47092853846875*^9}, {3.470930700171875*^9, 3.470930754*^9}}],

Cell[BoxData[{
 RowBox[{"\"\< #50 \>\"", ";"}], "\n", 
 RowBox[{"\"\<\!\(\*
StyleBox[\"Torus\",
FontSize->16,
FontColor->RGBColor[0, 0, 1]]\)\>\"", ";", 
  RowBox[{"a", "=", "3"}], ";", "   ", "\"\<Outer Radius\>\"", ";", "     ", 
  RowBox[{"b", "=", "1"}], ";", "  ", "\"\<Inner Radius\>\"", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Surf", "[", 
    RowBox[{"u_", ",", "v_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", " ", 
         RowBox[{"Cos", "[", "v", "]"}]}]}], ")"}], " ", 
      RowBox[{"Cos", "[", "u", "]"}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", " ", 
         RowBox[{"Cos", "[", "v", "]"}]}]}], ")"}], " ", 
      RowBox[{"Sin", "[", "u", "]"}]}], ",", 
     RowBox[{"b", "*", 
      RowBox[{"Sin", "[", "v", "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ParametricGraph", "=", 
   RowBox[{"ParametricPlot3D", "[", " ", 
    RowBox[{
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "0", ",", 
       RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", "0", ",", 
       RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ShapesGraph", "=", 
   RowBox[{"ExampleData", "[", 
    RowBox[{"{", 
     RowBox[{"\"\<Geometry3D\>\"", ",", "\"\<Torus\>\""}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphicsRow", "[", 
  RowBox[{
   RowBox[{"{", "   ", 
    RowBox[{"ParametricGraph", ",", "ShapesGraph"}], "  ", "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "800"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", "    ", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "u"], 
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}]}], "\[Cross]", 
    RowBox[{
     SubscriptBox["\[PartialD]", "v"], 
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}]}]}], "  ", ",", "Reals"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", " ", 
  RowBox[{
   RowBox[{"Norm", "[", "%", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"0", "<", "u", "<", 
      RowBox[{"Pi", "/", "2"}]}], ",", 
     RowBox[{"0", "<", "v", "<", 
      RowBox[{"Pi", "/", "2"}]}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.411750924671875*^9, {3.411750972546875*^9, 3.411750984453125*^9}, {
   3.470926629234375*^9, 3.470926635890625*^9}, {3.470926701015625*^9, 
   3.47092672196875*^9}, {3.4709267853125*^9, 3.47092685128125*^9}, {
   3.470926934984375*^9, 3.470927036609375*^9}, {3.4709270859375*^9, 
   3.470927147625*^9}, {3.470927183421875*^9, 3.470927188125*^9}, 
   3.4709276259375*^9, {3.470928571609375*^9, 3.47092857575*^9}, {
   3.470930985953125*^9, 3.470931063125*^9}, {3.47093115878125*^9, 
   3.47093118078125*^9}, {3.470931283328125*^9, 3.470931290328125*^9}, 
   3.480173441546875*^9}],

Cell[BoxData[{
 RowBox[{"\"\< #52 \>\"", ";"}], "\n", 
 RowBox[{"\"\<\!\(\*
StyleBox[\"Helicoid\",
FontSize->16,
FontColor->RGBColor[1, 0, 1]]\)\>\"", ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Surf", "[", 
    RowBox[{"u_", ",", "v_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", " ", 
      RowBox[{"Cos", "[", "v", "]"}]}], ",", 
     RowBox[{"u", " ", 
      RowBox[{"Sin", "[", "v", "]"}]}], ",", "v"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ParametricPlot3D", "[", " ", 
  RowBox[{
   RowBox[{"Surf", "[", 
    RowBox[{"u", ",", "v"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "0", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", ",", "0", ",", 
     RowBox[{"4", " ", "\[Pi]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", "    ", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "u"], 
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}]}], "\[Cross]", 
    RowBox[{
     SubscriptBox["\[PartialD]", "v"], 
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}]}]}], "  ", ",", "Reals"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", " ", 
  RowBox[{
   RowBox[{"Norm", "[", "%", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"0", "<", "u", "<", 
      RowBox[{"2", "Pi"}]}], ",", 
     RowBox[{"0", "<", "v", "<", "Pi"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.411750924671875*^9, {3.411750972546875*^9, 3.411750984453125*^9}, {
   3.470926629234375*^9, 3.470926633359375*^9}, 3.470926840046875*^9, {
   3.470928616453125*^9, 3.4709286176875*^9}, {3.470931183890625*^9, 
   3.470931185546875*^9}, {3.470931430671875*^9, 3.47093144728125*^9}, {
   3.470931482484375*^9, 3.47093148353125*^9}, {3.470931571953125*^9, 
   3.470931573515625*^9}}],

Cell[BoxData[{
 RowBox[{"\"\< #53 \>\"", ";"}], "\n", 
 RowBox[{"\"\<\!\(\*
StyleBox[\"Pseudosphere\",
FontSize->16,
FontColor->RGBColor[1, 0, 1]]\)\>\"", ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Surf", "[", 
    RowBox[{"u_", ",", "v_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Cos", "[", "u", "]"}], " ", 
      RowBox[{"Sin", "[", "v", "]"}]}], ",", 
     RowBox[{
      RowBox[{"Sin", "[", "u", "]"}], " ", 
      RowBox[{"Sin", "[", "v", "]"}]}], ",", 
     RowBox[{
      RowBox[{"Cos", "[", "v", "]"}], "+", 
      RowBox[{"Log", "[", 
       RowBox[{"Tan", "[", 
        RowBox[{"0.5`", " ", "v"}], "]"}], "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ParametricPlot3D", "[", " ", 
  RowBox[{
   RowBox[{"Surf", "[", 
    RowBox[{"u", ",", "v"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "0", ",", "\[Pi]"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", ",", "0", ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", "    ", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "u"], 
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}]}], "\[Cross]", 
    RowBox[{
     SubscriptBox["\[PartialD]", "v"], 
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}]}]}], "  ", ",", "Reals"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", " ", 
  RowBox[{
   RowBox[{"Norm", "[", "%", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"0", "<", "u", "<", 
      RowBox[{"Pi", "/", "2"}]}], ",", 
     RowBox[{"0", "<", "v", "<", 
      RowBox[{"Pi", "/", "2"}]}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.411750924671875*^9, {3.470928619421875*^9, 3.47092862053125*^9}, {
   3.47093118859375*^9, 3.470931190328125*^9}, {3.47093145459375*^9, 
   3.470931456015625*^9}, {3.47093149328125*^9, 3.47093152015625*^9}, {
   3.4709315958125*^9, 3.470931597796875*^9}, {3.47093165528125*^9, 
   3.47093166096875*^9}}],

Cell[BoxData[{
 RowBox[{"\"\< #54 \>\"", ";"}], "\n", 
 RowBox[{"\"\<\!\(\*
StyleBox[\"Astroidal\",
FontSize->16,
FontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontSize->16,
FontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"Sphere\",
FontSize->16,
FontColor->RGBColor[1, 0, 1]]\)\>\"", ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Surf", "[", 
    RowBox[{"u_", ",", "v_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Cos", "[", "v", "]"}], " ", 
        RowBox[{"Sin", "[", "u", "]"}]}], ")"}], "3"], ",", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sin", "[", "v", "]"}], " ", 
        RowBox[{"Sin", "[", "u", "]"}]}], ")"}], "3"], ",", 
     SuperscriptBox[
      RowBox[{"Cos", "[", "u", "]"}], "3"]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ParametricPlot3D", "[", " ", 
  RowBox[{
   RowBox[{"Surf", "[", 
    RowBox[{"u", ",", "v"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "0", ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", ",", "0", ",", "\[Pi]"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", "    ", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "u"], 
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}]}], "\[Cross]", 
    RowBox[{
     SubscriptBox["\[PartialD]", "v"], 
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}]}]}], "  ", ",", "Reals"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", " ", 
  RowBox[{
   RowBox[{"Norm", "[", "%", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"0", "<", "u", "<", 
      RowBox[{"Pi", "/", "2"}]}], ",", 
     RowBox[{"0", "<", "v", "<", 
      RowBox[{"Pi", "/", "2"}]}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.411750924671875*^9, 3.47092862196875*^9, {3.470929677359375*^9, 
   3.470929683921875*^9}, {3.47093119171875*^9, 3.47093119328125*^9}, {
   3.47093145734375*^9, 3.470931458875*^9}, 3.470931497296875*^9, {
   3.470931532203125*^9, 3.47093154146875*^9}, {3.47093163828125*^9, 
   3.470931674875*^9}, 3.4709320173125*^9, {3.48017345721875*^9, 
   3.48017346525*^9}}],

Cell[BoxData[{
 RowBox[{"\"\<16.5 #36\>\"", ";"}], "\n", 
 RowBox[{"\"\<\!\(\*
StyleBox[\"Mobius\",
FontSize->16,
FontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontSize->16,
FontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"Strip\",
FontSize->16,
FontColor->RGBColor[1, 0, 1]]\)\>\"", ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Surf", "[", 
    RowBox[{"u_", ",", "v_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"5", "+", 
        RowBox[{"u", "*", 
         RowBox[{"Cos", "[", 
          RowBox[{"v", "/", "2"}], "]"}]}]}], ")"}], " ", 
      RowBox[{"Cos", "[", "v", "]"}]}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"5", "+", 
        RowBox[{"u", "*", " ", 
         RowBox[{
          RowBox[{"Cos", "[", "v", "]"}], "/", "2"}]}]}], ")"}], " ", 
      RowBox[{"Sin", "[", "v", "]"}]}], ",", 
     RowBox[{"u", "*", 
      RowBox[{"Sin", "[", 
       RowBox[{"v", "/", "2"}], "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ParametricGraph", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", "0", ",", 
       RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ShapesGraph", "=", 
   RowBox[{"ExampleData", "[", 
    RowBox[{"{", 
     RowBox[{"\"\<Geometry3D\>\"", ",", "\"\<MoebiusStrip\>\""}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphicsRow", "[", 
  RowBox[{
   RowBox[{"{", "   ", 
    RowBox[{"ParametricGraph", ",", "ShapesGraph"}], "  ", "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "800"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", "    ", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "u"], 
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}]}], "\[Cross]", 
    RowBox[{
     SubscriptBox["\[PartialD]", "v"], 
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}]}]}], "  ", ",", "Reals"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", " ", 
  RowBox[{
   RowBox[{"Norm", "[", "%", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"0", "<", "u", "<", "1"}], ",", 
     RowBox[{"0", "<", "v", "<", 
      RowBox[{"Pi", "/", "2"}]}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.411750924671875*^9, 3.47092862196875*^9, {3.470929677359375*^9, 
   3.4709296954375*^9}, {3.470931194875*^9, 3.47093119696875*^9}, {
   3.470931461265625*^9, 3.47093146359375*^9}, 3.47093150028125*^9, {
   3.470931553484375*^9, 3.470931558984375*^9}, {3.470931699515625*^9, 
   3.47093170671875*^9}, {3.470931740546875*^9, 3.4709318110625*^9}, {
   3.470931853015625*^9, 3.470931890515625*^9}, {3.47093194359375*^9, 
   3.470931978953125*^9}}]
},
WindowSize->{1272, 922},
WindowMargins->{{-19, Automatic}, {Automatic, 38}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 3274, 84, 181, "Input"],
Cell[3822, 106, 2850, 77, 172, "Input"],
Cell[6675, 185, 2699, 77, 172, "Input"],
Cell[9377, 264, 3042, 84, 172, "Input"],
Cell[12422, 350, 1815, 52, 132, "Input"],
Cell[14240, 404, 2007, 59, 132, "Input"],
Cell[16250, 465, 2275, 68, 135, "Input"],
Cell[18528, 535, 2931, 87, 172, "Input"]
}
]
*)

(* End of internal cache information *)