(* 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[     78566,       1549]
NotebookOptionsPosition[     78307,       1536]
NotebookOutlinePosition[     78651,       1551]
CellTagsIndexPosition[     78608,       1548]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"DynamicModule", "[", " ", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"pt", "=", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", "                ", 
      RowBox[{"Column", "[", 
       RowBox[{
        RowBox[{"{", 
         StyleBox[
          RowBox[{"  ", 
           StyleBox[" ",
            FontColor->RGBColor[1, 0.5, 0]]}]], 
         RowBox[{
          RowBox[{
           StyleBox["Dynamic",
            FontColor->RGBColor[1, 0.5, 0]], "[", 
           RowBox[{"Row", "[", 
            RowBox[{"{", "  ", 
             RowBox[{
              RowBox[{"Style", "[", " ", 
               RowBox[{
               "\"\<Cone \!\(\*SuperscriptBox[\(z\), \
\(2\)]\)=\!\(\*SuperscriptBox[\(x\), \(2\)]\)+\!\(\*SuperscriptBox[\(y\), \(2\
\)]\) cut by the plane z=1+\!\(\*
StyleBox[\"a\",
FontColor->RGBColor[0, 0, 1]]\)x+\!\(\*
StyleBox[\"b\",
FontColor->RGBColor[0, 0, 1]]\)y=\>\"", ",", "20", ",", " ", "Bold"}], "]"}], 
              ",", " ", 
              RowBox[{"Style", "[", " ", 
               RowBox[{
                RowBox[{"1", "+", 
                 RowBox[{
                  StyleBox[
                   RowBox[{"pt", "[", 
                    RowBox[{"[", "1", "]"}], "]"}],
                   FontColor->GrayLevel[0]], "*", "x"}], "+", 
                 RowBox[{
                  RowBox[{"pt", "[", 
                   RowBox[{"[", "2", "]"}], "]"}], "*", "y"}]}], ",", "20", 
                ",", " ", "Bold"}], "]"}]}], "}"}], "]"}], "]"}], ",", 
          "                                                                ", 
          "\[IndentingNewLine]", "                                   ", 
          RowBox[{"Row", "[", 
           RowBox[{
           "{", "\[IndentingNewLine]", 
            "                                           ", 
            RowBox[{
             RowBox[{"Column", "[", 
              RowBox[{"{", 
               StyleBox[
                RowBox[{" ", 
                 StyleBox[" ",
                  FontColor->RGBColor[1, 0.5, 0]]}]], 
               RowBox[{
                RowBox[{
                 StyleBox["Dynamic",
                  FontColor->RGBColor[1, 0.5, 0]], "[", 
                 RowBox[{"If", "[", " ", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"r", "[", "pt", "]"}], " ", "\[NotEqual]", "1"}], 
                   ",", " ", "\[IndentingNewLine]", 
                   "                                          ", 
                   RowBox[{"Column", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Row", "[", 
                    RowBox[{"{", " ", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\!\(\*
StyleBox[\"Major\",
FontColor->RGBColor[0, 1, 0]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[0, 1, 0]]\)\!\(\*
StyleBox[\"Semiaxis\",
FontColor->RGBColor[0, 1, 0]]\) \!\(\*FractionBox[SqrtBox[\(1 + \
\*SuperscriptBox[\(a\), \(2\)] + \*SuperscriptBox[\(b\), \(2\)]\)], \
\(\(|\)\(1 - \*SuperscriptBox[\(a\), \(2\)] - \*SuperscriptBox[\(b\), \
\(2\)]\)\(|\)\)]\)=\>\"", ",", "20", ",", " ", "Bold"}], "]"}], ",", "    ", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    RowBox[{"Round", "[", " ", 
                    RowBox[{
                    RowBox[{"mj", "[", "pt", "]"}], ",", "0.01"}], "]"}], ",",
                     "20", ",", " ", "Bold"}], "]"}]}], "}"}], "]"}], ",", 
                    " ", "\"\<\>\"", ",", "           ", 
                    "\[IndentingNewLine]", 
                    "                                                       ", 
                    RowBox[{"Row", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\!\(\*
StyleBox[\"Minor\",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\"Semiaxis\",
FontColor->RGBColor[0, 0, 1]]\) \!\(\*FractionBox[\(1\), SqrtBox[\(\(|\)\(1 - \
\*SuperscriptBox[\(a\), \(2\)] - \*SuperscriptBox[\(b\), \(2\)]\)\(|\)\)]]\)=\
\>\"", ",", "20", ",", " ", "Bold"}], "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"mn", "[", "pt", "]"}], ",", "0.01"}], "]"}], ",",
                     "20", ",", " ", "Bold"}], "]"}]}], "}"}], "]"}], ",", 
                    " ", "\"\<\>\"", ",", "        ", "\[IndentingNewLine]", 
                    "                                                       ", 
                    RowBox[{"Row", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", " ", 
                    RowBox[{"\"\<\!\(\*
StyleBox[\"Focal\",
FontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"Distance\",
FontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[1, 0, 1]]\)\!\(\*FractionBox[\(1\), \(\*SqrtBox[\(2\)]\\\ \
\*SqrtBox[\(\*SuperscriptBox[\(a\), \(2\)] + \*SuperscriptBox[\(b\), \
\(2\)]\)] + \*SqrtBox[\(1 + \*SuperscriptBox[\(a\), \(2\)] + \
\*SuperscriptBox[\(b\), \(2\)]\)]\)]\)=\>\"", ",", "20", ",", " ", "Bold"}], 
                    "]"}], ",", " ", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"f", "[", "pt", "]"}], ",", "0.001"}], "]"}], ",",
                     "20", ",", " ", "Bold"}], "]"}]}], "}"}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    "                                                       ", 
                    RowBox[{
                    RowBox[{"Row", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\!\(\*
StyleBox[\"Parabola\",
FontColor->RGBColor[1, 0, 1]]\) \!\(\*
StyleBox[\"Focal\",
FontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"Distance\",
FontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"   \",
FontColor->RGBColor[1, 0, 1]]\)\!\(\*FractionBox[\(\(\\\ \)\(1\)\(\\\ \)\), \
\(2 \*SqrtBox[\(2\)]\)]\)=\>\"", ",", "20", ",", " ", "Bold"}], "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    RowBox[{"Round", "[", " ", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "1", " "}], 
                    RowBox[{"2", 
                    SqrtBox["2"]}]], ",", "0.001"}], "]"}], ",", "20", ",", 
                    " ", "Bold"}], "]"}]}], "}"}], "]"}], " ", "\"\<\>\""}], 
                    ",", "              ", "\[IndentingNewLine]", 
                    "                                                         \
           ", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\!\(\*
StyleBox[\"Center\",
FontColor->RGBColor[1, 0, 0]]\) {\!\(\*FractionBox[\(a\), \(1 - \
\*SuperscriptBox[\(a\), \(2\)] - \*SuperscriptBox[\(b\), \
\(2\)]\)]\),\!\(\*FractionBox[\(b\), \(1 - \*SuperscriptBox[\(a\), \(2\)] - \
\*SuperscriptBox[\(b\), \(2\)]\)]\),\!\(\*FractionBox[\(1\), \(1 - \
\*SuperscriptBox[\(a\), \(2\)] - \*SuperscriptBox[\(b\), \(2\)]\)]\)}=\>\"", 
                    ",", "20", ",", " ", "Bold"}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    "                                                       ", 
                    RowBox[{"Row", "[", 
                    RowBox[{"{", 
                    RowBox[{"\"\<                  \>\"", ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"cn", "[", "pt", "]"}], ",", "0.01"}], "]"}], ",",
                     "20", ",", " ", "Bold"}], "]"}]}], "}"}], "]"}]}], " ", 
                    "}"}], ",", "Left"}], "]"}], ",", "\[IndentingNewLine]", 
                   "                                         ", 
                   RowBox[{"Column", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Row", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\!\(\*
StyleBox[\"Focal\",
FontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\"Distance\",
FontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[1, 0, 1]]\)\!\(\*FractionBox[\(\(\\\ \)\(1\)\(\\\ \)\), \
\(2 \*SqrtBox[\(2\)]\)]\)=\>\"", ",", "20", ",", " ", "Bold"}], "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    RowBox[{"Round", "[", " ", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "1", " "}], 
                    RowBox[{"2", 
                    SqrtBox["2"]}]], ",", "0.001"}], "]"}], ",", "20", ",", 
                    " ", "Bold"}], "]"}]}], "}"}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    "                                                       ", 
                    RowBox[{"Row", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\!\(\*
StyleBox[\"Focus\",
FontColor->RGBColor[1, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[1, 0, 1]]\){-\!\(\*FractionBox[\(a\), \
\(4\)]\),-\!\(\*FractionBox[\(b\), \(4\)]\),\!\(\*FractionBox[\(3\), \
\(4\)]\)}=\>\"", ",", "20", ",", " ", "Bold"}], "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    RowBox[{"Round", "[", " ", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"pt", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "/", "4"}], ",", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"pt", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "/", "4"}], ",", 
                    RowBox[{"3", "/", "4"}]}], "}"}], ",", "0.01"}], "]"}], 
                    ",", "20", ",", " ", "Bold"}], "]"}]}], "}"}], "]"}], ",",
                     " ", "\"\<\>\"", ",", "\[IndentingNewLine]", 
                    "                                                       ", 
                    RowBox[{"Row", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\!\(\*
StyleBox[\"Vertex\",
FontColor->RGBColor[0, 1, 0]]\) {-\!\(\*FractionBox[\(a\), \
\(2\)]\),-\!\(\*FractionBox[\(b\), \(2\)]\),\!\(\*FractionBox[\(1\), \
\(2\)]\)}=\>\"", ",", "20", ",", " ", "Bold"}], "]"}], ",", " ", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    RowBox[{"Round", "[", " ", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"pt", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "/", "2"}], ",", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"pt", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "/", "2"}], ",", 
                    RowBox[{"1", "/", "2"}]}], "}"}], ",", "0.01"}], "]"}], 
                    ",", "20", ",", " ", "Bold"}], "]"}]}], "}"}], "]"}]}], 
                    "  ", "}"}], ",", "Left"}], "]"}]}], "]"}], "]"}], ",", 
                "  ", "\"\<\>\"", ",", "\[IndentingNewLine]", 
                "                                              ", 
                RowBox[{"LocatorPane", " ", "[", " ", 
                 RowBox[{
                  RowBox[{
                   StyleBox["Dynamic",
                    FontColor->RGBColor[1, 0.5, 0]], "[", "pt", "]"}], ",", 
                  RowBox[{"Show", "[", " ", 
                   RowBox[{
                    RowBox[{"Graphics", "[", 
                    RowBox[{"{", 
                    RowBox[{"Thick", ",", "Red", ",", 
                    RowBox[{"Circle", "[", "]"}]}], "}"}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    "                                                      ", 
                    RowBox[{"RegionPlot", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"x", "^", "2"}], "+", 
                    RowBox[{"y", "^", "2"}]}], ">", "1.03"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", 
                    RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"y", ",", 
                    RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
                    RowBox[{"PlotStyle", "\[Rule]", "LightGreen"}]}], "]"}], 
                    ",", "   ", "\[IndentingNewLine]", 
                    "                                                      ", 
                    RowBox[{"RegionPlot", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"x", "^", "2"}], "+", 
                    RowBox[{"y", "^", "2"}]}], "<", "0.97"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", 
                    RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"y", ",", 
                    RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
                    RowBox[{"PlotStyle", "\[Rule]", "LightBlue"}]}], "]"}], 
                    ",", "      ", "\[IndentingNewLine]", 
                    "                                                      ", 
                    RowBox[{"Epilog", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Inset", "[", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<Hyperbola\>\"", ",", "Bold", ",", "20", ",", 
                    "Green"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1.3"}], ",", "1.3"}], "}"}]}], "]"}], ",", 
                    RowBox[{"Inset", "[", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<Ellipse\>\"", ",", "Bold", ",", "20", ",", "Blue"}], 
                    "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", "     ", 
                    "\[IndentingNewLine]", 
                    "                                                 ", 
                    RowBox[{"Inset", "[", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<Parabola\>\"", ",", "Bold", ",", "20", ",", "Red"}], 
                    "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"-", "1.2"}]}], "}"}]}], "]"}]}], "}"}]}], ",", 
                    RowBox[{"PlotRange", "\[Rule]", " ", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
                    " ", 
                    RowBox[{"Axes", "\[Rule]", "True"}], ",", 
                    RowBox[{"AxesOrigin", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0"}], "}"}]}], ",", "       ", 
                    "\[IndentingNewLine]", 
                    "                                                      ", 
                    RowBox[{"AxesLabel", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<a\>\"", ",", "Bold", ",", "Blue", ",", "15"}], "]"}],
                     ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<b\>\"", ",", "Bold", ",", "Blue", ",", "15"}], 
                    "]"}]}], "}"}]}], ",", 
                    RowBox[{"ImageSize", " ", "->", " ", 
                    RowBox[{"{", 
                    RowBox[{"400", ",", "400"}], "}"}]}]}], "]"}]}], "]"}]}], 
               "\[IndentingNewLine]", 
               "                                                              \
      ", "}"}], "]"}], ",", "\[IndentingNewLine]", 
             "                                          ", 
             RowBox[{
              StyleBox["Dynamic",
               FontColor->RGBColor[1, 0.5, 0]], "[", 
              RowBox[{"Show", "[", " ", 
               RowBox[{
                RowBox[{
                 StyleBox["Graphics3D",
                  FontColor->RGBColor[0, 1, 0]], "[", 
                 RowBox[{"{", " ", 
                  RowBox[{"{", 
                   RowBox[{"Green", ",", 
                    RowBox[{"PointSize", "[", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "[", "pt", "]"}], " ", "<", "1"}], ",", 
                    "0.02", ",", "0.01"}], "]"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"V1", "[", "pt", "]"}], "]"}]}], "}"}], "}"}], 
                 "]"}], ",", "\[IndentingNewLine]", 
                "                                                          ", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"r", "[", "pt", "]"}], " ", "\[NotEqual]", "1"}], 
                  ",", " ", "\[IndentingNewLine]", 
                  "                                                ", 
                  RowBox[{"{", " ", 
                   RowBox[{
                    RowBox[{
                    StyleBox["Graphics3D",
                    FontColor->RGBColor[0, 1, 0]], "[", 
                    RowBox[{"{", " ", 
                    RowBox[{"{", 
                    RowBox[{"Green", ",", 
                    RowBox[{"PointSize", "[", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "[", "pt", "]"}], "<", "1"}], ",", "0.02", 
                    ",", "0.01"}], "]"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"V2", "[", "pt", "]"}], "]"}]}], "}"}], "}"}], 
                    "]"}], ",", "\[IndentingNewLine]", 
                    
                    StyleBox[
                    "                                                ",
                    FontColor->RGBColor[0, 0, 1]], 
                    RowBox[{
                    StyleBox["Graphics3D",
                    FontColor->RGBColor[0, 0, 1]], "[", 
                    RowBox[{"{", " ", 
                    RowBox[{"{", 
                    RowBox[{"Blue", ",", 
                    RowBox[{"PointSize", "[", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "[", "pt", "]"}], " ", "<", "1"}], ",", 
                    "0.02", ",", "0.01"}], "]"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"V3", "[", "pt", "]"}], "]"}]}], "}"}], "}"}], 
                    "]"}], ",", "\[IndentingNewLine]", 
                    "                                                ", 
                    RowBox[{
                    StyleBox["Graphics3D",
                    FontColor->RGBColor[0, 0, 1]], "[", 
                    RowBox[{"{", " ", 
                    RowBox[{"{", 
                    RowBox[{"Blue", ",", 
                    RowBox[{"PointSize", "[", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "[", "pt", "]"}], " ", "<", "1"}], ",", 
                    "0.02", ",", "0.01"}], "]"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"V4", "[", "pt", "]"}], "]"}]}], "}"}], "}"}], 
                    "]"}], ",", "\[IndentingNewLine]", "          ", 
                    StyleBox["                                      ",
                    FontColor->RGBColor[1, 0, 0]], 
                    RowBox[{
                    StyleBox["Graphics3D",
                    FontColor->RGBColor[1, 0, 0]], "[", 
                    RowBox[{"{", " ", 
                    RowBox[{"{", 
                    RowBox[{"Red", ",", 
                    RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"cn", "[", "pt", "]"}], "]"}]}], "}"}], "}"}], 
                    "]"}], 
                    StyleBox[" ",
                    FontColor->RGBColor[1, 0, 0]], 
                    StyleBox[",",
                    FontColor->GrayLevel[0]], 
                    StyleBox["\[IndentingNewLine]",
                    FontColor->RGBColor[1, 0, 0]], 
                    StyleBox[
                    "                                                    ",
                    FontColor->RGBColor[1, 0, 0]], 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "[", "pt", "]"}], "<", "1"}], ",", "    ", 
                    "\[IndentingNewLine]", 
                    "                                             ", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    StyleBox["Graphics3D",
                    FontColor->RGBColor[1, 0, 1]], 
                    StyleBox["[",
                    FontColor->GrayLevel[0]], 
                    StyleBox[
                    RowBox[{"{", " ", 
                    RowBox[{"{", 
                    RowBox[{"Magenta", ",", 
                    RowBox[{"PointSize", "[", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "[", "pt", "]"}], " ", "<", "1"}], ",", 
                    "0.02", ",", "0.01"}], "]"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"F1E", "[", "pt", "]"}], "]"}]}], "}"}], "   ", 
                    "}"}],
                    FontColor->GrayLevel[0]], 
                    StyleBox["]",
                    FontColor->GrayLevel[0]]}], " ", ",", 
                    "\[IndentingNewLine]", 
                    "                                            ", 
                    RowBox[{
                    StyleBox["Graphics3D",
                    FontColor->RGBColor[1, 0, 1]], 
                    StyleBox["[",
                    FontColor->GrayLevel[0]], 
                    StyleBox[
                    RowBox[{"{", " ", 
                    RowBox[{"{", 
                    RowBox[{"Magenta", ",", 
                    RowBox[{"PointSize", "[", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "[", "pt", "]"}], " ", "<", "1"}], ",", 
                    "0.02", ",", "0.01"}], "]"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"F2E", "[", "pt", "]"}], "]"}]}], "}"}], "   ", 
                    "}"}],
                    FontColor->GrayLevel[0]], 
                    StyleBox["]",
                    FontColor->GrayLevel[0]]}]}], 
                    StyleBox["         ",
                    FontColor->GrayLevel[0]], 
                    StyleBox["}",
                    FontColor->GrayLevel[0]]}], 
                    StyleBox[",",
                    FontColor->GrayLevel[0]], 
                    StyleBox["\[IndentingNewLine]",
                    FontColor->GrayLevel[0]], 
                    "                                             ", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    StyleBox["Graphics3D",
                    FontColor->RGBColor[1, 0, 1]], 
                    StyleBox["[",
                    FontColor->GrayLevel[0]], 
                    StyleBox[
                    RowBox[{"{", " ", 
                    RowBox[{"{", 
                    RowBox[{"Magenta", ",", 
                    RowBox[{"PointSize", "[", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "[", "pt", "]"}], " ", "<", "1"}], ",", 
                    "0.02", ",", "0.01"}], "]"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"F1H", "[", "pt", "]"}], "]"}]}], "}"}], "   ", 
                    "}"}],
                    FontColor->GrayLevel[0]], 
                    StyleBox["]",
                    FontColor->GrayLevel[0]]}], " ", ",", 
                    "\[IndentingNewLine]", 
                    "                                            ", 
                    RowBox[{
                    StyleBox["Graphics3D",
                    FontColor->RGBColor[1, 0, 1]], 
                    StyleBox["[",
                    FontColor->GrayLevel[0]], 
                    StyleBox[
                    RowBox[{"{", " ", 
                    RowBox[{"{", 
                    RowBox[{"Magenta", ",", 
                    RowBox[{"PointSize", "[", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "[", "pt", "]"}], " ", "<", "1"}], ",", 
                    "0.02", ",", "0.01"}], "]"}], "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"F2H", "[", "pt", "]"}], "]"}]}], "}"}], "   ", 
                    "}"}],
                    FontColor->GrayLevel[0]], 
                    StyleBox["]",
                    FontColor->GrayLevel[0]]}]}], 
                    StyleBox["}",
                    FontColor->GrayLevel[0]]}]}], " ", "]"}]}], "  ", 
                   StyleBox[" ",
                    FontColor->RGBColor[1, 0, 0]], "}"}], ",", 
                  "                ", "\[IndentingNewLine]", 
                  "                                                    ", 
                  RowBox[{
                   StyleBox["Graphics3D",
                    FontColor->RGBColor[1, 0, 1]], "[", 
                   RowBox[{"{", " ", 
                    RowBox[{"{", 
                    RowBox[{"Magenta", ",", 
                    RowBox[{"PointSize", "[", "0.01", "]"}], ",", 
                    RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"pt", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "/", "4"}], ",", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"pt", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "/", "4"}], ",", 
                    RowBox[{"3", "/", "4"}]}], "}"}], "]"}]}], "}"}], "}"}], 
                   "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
                "                                                      ", 
                RowBox[{
                 StyleBox["ParametricPlot3D",
                  FontSize->14], 
                 StyleBox["[",
                  FontSize->14], 
                 RowBox[{
                  StyleBox[
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Cos", "[", "u", "]"}], "/", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{
                    RowBox[{"pt", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "*", 
                    RowBox[{"Cos", "[", "u", "]"}]}], "-", 
                    RowBox[{
                    RowBox[{"pt", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "*", 
                    RowBox[{"Sin", "[", "u", "]"}]}]}], ")"}]}], ",", 
                    RowBox[{
                    RowBox[{"Sin", "[", "u", "]"}], "/", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{
                    RowBox[{"pt", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "*", 
                    RowBox[{"Cos", "[", "u", "]"}]}], "-", 
                    RowBox[{
                    RowBox[{"pt", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "*", 
                    RowBox[{"Sin", "[", "u", "]"}]}]}], ")"}]}], ",", 
                    "      ", "\[IndentingNewLine]", 
                    "                                  ", "  ", "  ", "  ", 
                    "  ", "  ", " ", 
                    RowBox[{"1", "/", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{
                    RowBox[{"pt", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "*", 
                    RowBox[{"Cos", "[", "u", "]"}]}], "-", 
                    RowBox[{
                    RowBox[{"pt", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "*", 
                    RowBox[{"Sin", "[", "u", "]"}]}]}], ")"}]}]}], "}"}],
                   FontSize->14], 
                  StyleBox[",",
                   FontSize->14], 
                  StyleBox[
                   RowBox[{"{", 
                    RowBox[{"u", ",", "0", ",", 
                    RowBox[{"2", "Pi"}]}], "}"}],
                   FontSize->14], 
                  StyleBox[",",
                   FontSize->14], 
                  StyleBox[" ",
                   FontSize->14], 
                  RowBox[{"PlotStyle", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"Red", ",", "Thick"}], "}"}]}]}], 
                 StyleBox["]",
                  FontSize->14]}], ",", " ", "\[IndentingNewLine]", 
                "                                                     ", 
                RowBox[{
                 StyleBox["ParametricPlot3D",
                  FontSize->14], 
                 StyleBox["[",
                  FontSize->14], 
                 StyleBox[
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"v", "*", 
                    RowBox[{"Cos", "[", "u", "]"}]}], ",", 
                    RowBox[{"v", "*", 
                    RowBox[{"Sin", "[", "u", "]"}]}], ",", "v"}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"u", ",", "0", ",", 
                    RowBox[{"2", "Pi"}]}], "}"}], ",", "\[IndentingNewLine]", 
                   "                      ", "  ", "  ", "  ", "  ", "  ", 
                   "  ", "  ", "  ", "  ", "  ", "  ", "  ", 
                   RowBox[{"{", 
                    RowBox[{"v", ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"pt", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "2"], "+", 
                    SuperscriptBox[
                    RowBox[{"pt", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "2"]}], "<", "1"}], ",", 
                    RowBox[{
                    RowBox[{"-", "0.5"}], "-", 
                    FractionBox["1", 
                    RowBox[{"1", "-", 
                    RowBox[{"r", "[", "pt", "]"}], " "}]]}], ",", 
                    RowBox[{"-", "10"}]}], "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "[", "pt", "]"}], " ", "<", "1"}], ",", 
                    RowBox[{"0.5", "+", 
                    FractionBox["1", 
                    RowBox[{"1", "-", 
                    RowBox[{"r", "[", "pt", "]"}], " "}]]}], ",", "10"}], 
                    "]"}]}], "}"}], ",", 
                   RowBox[{"PlotStyle", "->", 
                    RowBox[{"Opacity", "[", "p", "]"}]}]}],
                  FontSize->14], " ", 
                 StyleBox["]",
                  FontSize->14]}], ",", " ", "\[IndentingNewLine]", 
                "                                                     ", 
                RowBox[{"Plot3D", "[", " ", 
                 RowBox[{
                  RowBox[{"1", "+", 
                   RowBox[{
                    RowBox[{"pt", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "*", "x"}], "+", 
                   RowBox[{
                    RowBox[{"pt", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "*", "y"}]}], ",", " ", 
                  RowBox[{"{", 
                   RowBox[{"x", ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "[", "pt", "]"}], " ", "<", "1"}], ",", 
                    RowBox[{
                    RowBox[{"-", "0.5"}], "-", 
                    FractionBox["1", 
                    RowBox[{"1", "-", 
                    RowBox[{"r", "[", "pt", "]"}], " "}]]}], ",", 
                    RowBox[{"-", "10"}]}], "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "[", "pt", "]"}], " ", "<", "1"}], ",", 
                    RowBox[{"0.5", "+", 
                    FractionBox["1", 
                    RowBox[{"1", "-", 
                    RowBox[{"r", "[", "pt", "]"}], " "}]]}], ",", "10"}], 
                    "]"}]}], "}"}], ",", " ", "\[IndentingNewLine]", 
                  "                                                           \
                                  ", 
                  RowBox[{"{", 
                   RowBox[{"y", ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "[", "pt", "]"}], " ", "<", "1"}], ",", 
                    RowBox[{
                    RowBox[{"-", "0.5"}], "-", 
                    FractionBox["1", 
                    RowBox[{"1", "-", 
                    RowBox[{"r", "[", "pt", "]"}], " "}]]}], ",", 
                    RowBox[{"-", "10"}]}], "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "[", "pt", "]"}], " ", "<", "1"}], ",", 
                    RowBox[{"0.5", "+", 
                    FractionBox["1", 
                    RowBox[{"1", "-", 
                    RowBox[{"r", "[", "pt", "]"}], " "}]]}], ",", "10"}], 
                    "]"}]}], "}"}], ",", 
                  StyleBox[
                   RowBox[{"PlotStyle", "->", 
                    RowBox[{"Opacity", "[", "p", "]"}]}],
                   FontSize->14]}], " ", "]"}], ",", "\[IndentingNewLine]", 
                "                                                    ", 
                RowBox[{"ImageSize", " ", "->", " ", 
                 RowBox[{"{", 
                  RowBox[{"600", ",", "700"}], "}"}]}], "  ", ",", 
                RowBox[{"Axes", "\[Rule]", "True"}], ",", 
                RowBox[{"AxesLabel", "\[Rule]", 
                 RowBox[{"{", 
                  RowBox[{"\"\<X\>\"", ",", "\"\<Y\>\""}], "}"}]}], ",", 
                RowBox[{"PlotRange", "\[Rule]", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"r", "[", "pt", "]"}], " ", "<", "1"}], ",", 
                   RowBox[{
                    RowBox[{"-", "0.5"}], "-", 
                    FractionBox["1", 
                    RowBox[{"1", "-", 
                    RowBox[{"r", "[", "pt", "]"}], " "}]]}], ",", "10"}], 
                  "]"}]}]}], "         ", "]"}], "]"}]}], "        ", "}"}], 
           "]"}]}], "\[IndentingNewLine]", "          ", "}"}], ",", 
        "Center"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Initialization", "\[RuleDelayed]", 
       RowBox[{"{", "   ", 
        RowBox[{
         RowBox[{
          RowBox[{"r", "[", 
           RowBox[{"{", 
            RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["a", "2"], "+", 
            SuperscriptBox["b", "2"]}]]}], ";", "    ", 
         RowBox[{
          RowBox[{"cn", "[", 
           RowBox[{"{", 
            RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", 
          RowBox[{
           FractionBox["1", 
            RowBox[{"1", "-", 
             SuperscriptBox[
              RowBox[{"r", "[", 
               RowBox[{"{", 
                RowBox[{"a", ",", "b"}], "}"}], "]"}], "2"]}]], 
           RowBox[{"{", 
            RowBox[{"a", ",", "b", ",", "1"}], "}"}]}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"mn", "[", 
           RowBox[{"{", 
            RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", " ", 
          FractionBox["1", 
           SqrtBox[
            RowBox[{"Abs", "[", 
             RowBox[{"1", "-", 
              SuperscriptBox[
               RowBox[{"r", "[", 
                RowBox[{"{", 
                 RowBox[{"a", ",", "b"}], "}"}], "]"}], "2"]}], "]"}]]]}], 
         ";", "           ", 
         RowBox[{
          RowBox[{"mj", "[", 
           RowBox[{"{", 
            RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", " ", 
          FractionBox[
           SqrtBox[
            RowBox[{"1", "+", 
             SuperscriptBox[
              RowBox[{"r", "[", 
               RowBox[{"{", 
                RowBox[{"a", ",", "b"}], "}"}], "]"}], "2"]}]], 
           RowBox[{"Abs", "[", 
            RowBox[{"1", "-", 
             SuperscriptBox[
              RowBox[{"r", "[", 
               RowBox[{"{", 
                RowBox[{"a", ",", "b"}], "}"}], "]"}], "2"]}], "]"}]]}], ";", 
         "       ", 
         RowBox[{
          RowBox[{"f", "[", 
           RowBox[{"{", 
            RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", " ", 
          FractionBox["1", 
           RowBox[{
            RowBox[{
             SqrtBox["2"], " ", 
             RowBox[{"r", "[", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b"}], "}"}], "]"}]}], "+", 
            SqrtBox[
             RowBox[{"1", "+", 
              SuperscriptBox[
               RowBox[{"r", "[", 
                RowBox[{"{", 
                 RowBox[{"a", ",", "b"}], "}"}], "]"}], "2"]}]]}]]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"V1", "[", 
           RowBox[{"{", 
            RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", 
          FractionBox[
           RowBox[{"{", " ", 
            RowBox[{
             RowBox[{"-", "a"}], " ", ",", 
             RowBox[{"-", "b"}], ",", 
             RowBox[{"r", "[", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b"}], "}"}], "]"}]}], "}"}], 
           RowBox[{
            RowBox[{"r", "[", 
             RowBox[{"{", 
              RowBox[{"a", ",", "b"}], "}"}], "]"}], 
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"r", "[", 
               RowBox[{"{", 
                RowBox[{"a", ",", "b"}], "}"}], "]"}]}], ")"}]}]]}], ";", 
         "                                                       ", 
         RowBox[{
          RowBox[{"V2", "[", 
           RowBox[{"{", 
            RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", 
          FractionBox[
           RowBox[{"{", " ", 
            RowBox[{"a", " ", ",", "b", ",", 
             RowBox[{"r", "[", 
              RowBox[{"{", 
               RowBox[{"a", ",", "b"}], "}"}], "]"}]}], "}"}], 
           RowBox[{
            RowBox[{"r", "[", 
             RowBox[{"{", 
              RowBox[{"a", ",", "b"}], "}"}], "]"}], 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"r", "[", 
               RowBox[{"{", 
                RowBox[{"a", ",", "b"}], "}"}], "]"}]}], ")"}]}]]}], " ", ";",
          "                                                           ", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"V3", "[", 
           RowBox[{"{", 
            RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", " ", 
          RowBox[{
           RowBox[{"cn", "[", 
            RowBox[{"{", 
             RowBox[{"a", ",", "b"}], "}"}], "]"}], "+", "   ", 
           RowBox[{
            RowBox[{"mn", "[", 
             RowBox[{"{", 
              RowBox[{"a", ",", "b"}], "}"}], "]"}], 
            RowBox[{"Normalize", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "b"}], ",", "a", ",", "0"}], "}"}], " ", 
             "]"}]}]}]}], " ", ";", "    ", 
         RowBox[{
          RowBox[{"V4", "[", 
           RowBox[{"{", 
            RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", " ", 
          RowBox[{
           RowBox[{"cn", "[", 
            RowBox[{"{", 
             RowBox[{"a", ",", "b"}], "}"}], "]"}], "+", "   ", 
           RowBox[{
            RowBox[{"mn", "[", 
             RowBox[{"{", 
              RowBox[{"a", ",", "b"}], "}"}], "]"}], 
            RowBox[{"Normalize", "[", 
             RowBox[{"{", 
              RowBox[{"b", ",", 
               RowBox[{"-", "a"}], ",", "0"}], "}"}], " ", "]"}]}]}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"F1E", "[", 
           RowBox[{"{", 
            RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", 
          RowBox[{
           RowBox[{"V1", "[", 
            RowBox[{"{", 
             RowBox[{"a", ",", "b"}], "}"}], "]"}], "-", 
           RowBox[{
            RowBox[{"Normalize", "[", 
             RowBox[{
              RowBox[{"V1", "[", 
               RowBox[{"{", 
                RowBox[{"a", ",", "b"}], "}"}], "]"}], "-", 
              RowBox[{"cn", "[", 
               RowBox[{"{", 
                RowBox[{"a", ",", "b"}], "}"}], "]"}]}], "]"}], 
            RowBox[{"f", "[", 
             RowBox[{"{", 
              RowBox[{"a", ",", "b"}], "}"}], "]"}]}]}]}], ";", "      ", 
         RowBox[{
          RowBox[{"F2E", "[", 
           RowBox[{"{", 
            RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", 
          RowBox[{
           RowBox[{"V2", "[", 
            RowBox[{"{", 
             RowBox[{"a", ",", "b"}], "}"}], "]"}], "-", 
           RowBox[{
            RowBox[{"Normalize", "[", 
             RowBox[{
              RowBox[{"V2", "[", 
               RowBox[{"{", 
                RowBox[{"a", ",", "b"}], "}"}], "]"}], "-", 
              RowBox[{"cn", "[", 
               RowBox[{"{", 
                RowBox[{"a", ",", "b"}], "}"}], "]"}]}], "]"}], 
            RowBox[{"f", "[", 
             RowBox[{"{", 
              RowBox[{"a", ",", "b"}], "}"}], "]"}]}]}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"F1H", "[", 
           RowBox[{"{", 
            RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", 
          RowBox[{
           RowBox[{"V1", "[", 
            RowBox[{"{", 
             RowBox[{"a", ",", "b"}], "}"}], "]"}], "+", 
           RowBox[{
            RowBox[{"Normalize", "[", 
             RowBox[{
              RowBox[{"V1", "[", 
               RowBox[{"{", 
                RowBox[{"a", ",", "b"}], "}"}], "]"}], "-", 
              RowBox[{"cn", "[", 
               RowBox[{"{", 
                RowBox[{"a", ",", "b"}], "}"}], "]"}]}], "]"}], 
            RowBox[{"f", "[", 
             RowBox[{"{", 
              RowBox[{"a", ",", "b"}], "}"}], "]"}]}]}]}], ";", "      ", 
         RowBox[{
          RowBox[{"F2H", "[", 
           RowBox[{"{", 
            RowBox[{"a_", ",", "b_"}], "}"}], "]"}], ":=", 
          RowBox[{
           RowBox[{"V2", "[", 
            RowBox[{"{", 
             RowBox[{"a", ",", "b"}], "}"}], "]"}], "+", 
           RowBox[{
            RowBox[{"Normalize", "[", 
             RowBox[{
              RowBox[{"V2", "[", 
               RowBox[{"{", 
                RowBox[{"a", ",", "b"}], "}"}], "]"}], "-", 
              RowBox[{"cn", "[", 
               RowBox[{"{", 
                RowBox[{"a", ",", "b"}], "}"}], "]"}]}], "]"}], 
            RowBox[{"f", "[", 
             RowBox[{"{", 
              RowBox[{"a", ",", "b"}], "}"}], "]"}]}]}]}], ";"}], 
        "\[IndentingNewLine]", "                                ", "}"}]}]}], 
     "]"}], "\n", ",", 
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"p", ",", "0.5", ",", "\"\<Opacity\>\""}], "}"}], 
      StyleBox[",",
       FontColor->GrayLevel[0]], "0", ",", "1", ",", "0.1"}], "}"}], ",", 
    RowBox[{"ControlPlacement", "\[Rule]", "Bottom"}], ",", 
    RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], " ", "]"}], 
  " "}]], "Input",
 CellChangeTimes->{
  3.4103722785625*^9, {3.410374130704869*^9, 3.410374151267369*^9}, {
   3.4103742262829943`*^9, 3.410374264486119*^9}, {3.410374302267369*^9, 
   3.4103743238142443`*^9}, {3.410374416548619*^9, 3.4103744345954943`*^9}, 
   3.410374603329869*^9, {3.4103746802204943`*^9, 3.4103747485329943`*^9}, {
   3.4103748599392443`*^9, 3.410374862361119*^9}, {3.410374896236119*^9, 
   3.410374962923619*^9}, {3.410375019642369*^9, 3.4103750622204943`*^9}, {
   3.410375094579869*^9, 3.410375097142369*^9}, 3.4103751332829943`*^9, {
   3.4103751686267443`*^9, 3.410375181704869*^9}, {3.4103752201892443`*^9, 
   3.4103752246892443`*^9}, {3.410375321798619*^9, 3.410375323861119*^9}, {
   3.410375364423619*^9, 3.4103753672517443`*^9}, 3.4103773080017443`*^9, {
   3.410377522548619*^9, 3.410377526111119*^9}, {3.4103779443142443`*^9, 
   3.4103779503142443`*^9}, {3.410377997548619*^9, 3.4103780019392443`*^9}, {
   3.4103781461892443`*^9, 3.410378148454869*^9}, {3.410378241236119*^9, 
   3.4103782475642443`*^9}, 3.4103782848142443`*^9, {3.410378554017369*^9, 
   3.4103785796579943`*^9}, {3.410378621923619*^9, 3.410378651486119*^9}, {
   3.410382818017369*^9, 3.410382878454869*^9}, {3.4103829457829943`*^9, 
   3.410382947329869*^9}, {3.4103830236892443`*^9, 3.410383179642369*^9}, {
   3.4103834654704943`*^9, 3.4103834887829943`*^9}, {3.410386834798619*^9, 
   3.410386881142369*^9}, {3.410388378548619*^9, 3.410388414798619*^9}, {
   3.410388503454869*^9, 3.4103885039704943`*^9}, {3.410388592454869*^9, 
   3.410388639361119*^9}, {3.410388672986119*^9, 3.410388703298619*^9}, {
   3.410388787048619*^9, 3.4103888361892443`*^9}, {3.410388887986119*^9, 
   3.4103888885954943`*^9}, {3.4103898314079943`*^9, 3.410389875767369*^9}, {
   3.410389916486119*^9, 3.4103899225954943`*^9}, {3.4103900183454943`*^9, 
   3.4103900843142443`*^9}, {3.4103903664079943`*^9, 3.410390368798619*^9}, {
   3.410393230329869*^9, 3.4103932392829943`*^9}, {3.410393413642369*^9, 
   3.410393420767369*^9}, {3.4103948651267443`*^9, 3.410394873548619*^9}, {
   3.410395508361119*^9, 3.410395512392369*^9}, {3.410395968204869*^9, 
   3.410395972298619*^9}, {3.4103960159079943`*^9, 3.4103960194392443`*^9}, {
   3.4103970075642443`*^9, 3.410397221954869*^9}, {3.4103972842204943`*^9, 
   3.4103973489079943`*^9}, {3.4103974153767443`*^9, 
   3.4103974158454943`*^9}, {3.410398140111119*^9, 3.4103982288142443`*^9}, {
   3.410398279611119*^9, 3.410398331486119*^9}, {3.410398445236119*^9, 
   3.4103984495642443`*^9}, {3.410472607296875*^9, 3.410472660390625*^9}, {
   3.41047303290625*^9, 3.41047310328125*^9}, {3.41047496478125*^9, 
   3.41047500275*^9}, 3.410475154578125*^9, {3.410475248203125*^9, 
   3.41047535121875*^9}, {3.410475398484375*^9, 3.410475412640625*^9}, {
   3.410475453015625*^9, 3.410475456859375*^9}, {3.41047555621875*^9, 
   3.410475573609375*^9}, {3.410475618625*^9, 3.41047570028125*^9}, {
   3.410475769828125*^9, 3.4104757794375*^9}, {3.41047914384375*^9, 
   3.41047920940625*^9}, {3.410479933625*^9, 3.4104799484375*^9}, {
   3.41048009*^9, 3.41048009203125*^9}, {3.410480751828125*^9, 
   3.41048078021875*^9}, {3.410480962640625*^9, 3.4104809659375*^9}, {
   3.410481020625*^9, 3.4104810565625*^9}, {3.41048115759375*^9, 
   3.41048125878125*^9}, 3.41048151746875*^9, {3.41048168275*^9, 
   3.41048169021875*^9}, {3.41048200103125*^9, 3.410482005328125*^9}, {
   3.410482176734375*^9, 3.410482178859375*^9}, {3.410485651125*^9, 
   3.410485662671875*^9}, {3.410622698484375*^9, 3.41062275834375*^9}, {
   3.4106227990625*^9, 3.410622813125*^9}, {3.410623082484375*^9, 
   3.410623108375*^9}, {3.410623212265625*^9, 3.41062322996875*^9}, {
   3.4106232803125*^9, 3.410623290203125*^9}, {3.410623341515625*^9, 
   3.410623378296875*^9}, {3.410623462546875*^9, 3.41062347646875*^9}, {
   3.410623654140625*^9, 3.41062365809375*^9}, 3.410623757546875*^9, {
   3.4106237994375*^9, 3.410623813921875*^9}, {3.410623998265625*^9, 
   3.41062402975*^9}, {3.410624122203125*^9, 3.410624145625*^9}, {
   3.410624180515625*^9, 3.410624183578125*^9}, {3.410624219859375*^9, 
   3.41062424084375*^9}, {3.41062435278125*^9, 3.410624354390625*^9}, {
   3.4106244350625*^9, 3.410624441609375*^9}, {3.410624567765625*^9, 
   3.410624666671875*^9}, {3.4106249228125*^9, 3.410624940578125*^9}, {
   3.4106249775625*^9, 3.41062502090625*^9}, 3.410627022859375*^9, {
   3.41062706975*^9, 3.41062707209375*^9}, 3.41062710859375*^9, {
   3.410627144453125*^9, 3.41062717196875*^9}, {3.410627690328125*^9, 
   3.41062769534375*^9}, {3.41062778065625*^9, 3.410627810359375*^9}, {
   3.410629213359375*^9, 3.410629271703125*^9}, {3.41063172759375*^9, 
   3.410631750984375*^9}, {3.410631980265625*^9, 3.410632052484375*^9}, 
   3.41063208903125*^9, {3.4106321304375*^9, 3.410632191390625*^9}, {
   3.410632224296875*^9, 3.41063223378125*^9}, {3.410632301625*^9, 
   3.410632325375*^9}, {3.41063242490625*^9, 3.410632472125*^9}, {
   3.410632519734375*^9, 3.41063255984375*^9}, {3.410632599484375*^9, 
   3.410632603640625*^9}, {3.410634730859375*^9, 3.41063478196875*^9}, 
   3.410634815765625*^9, {3.410635205640625*^9, 3.41063523253125*^9}, {
   3.410635302625*^9, 3.410635315140625*^9}, {3.41063537671875*^9, 
   3.410635399734375*^9}, {3.41063543321875*^9, 3.410635449984375*^9}, {
   3.410635525875*^9, 3.410635548640625*^9}, {3.410635617265625*^9, 
   3.410635617625*^9}, {3.410635648296875*^9, 3.410635660390625*^9}, {
   3.41063579559375*^9, 3.410635804484375*^9}, {3.41063603965625*^9, 
   3.410636094296875*^9}, {3.41063657321875*^9, 3.410636606671875*^9}, {
   3.410636649921875*^9, 3.410636681546875*^9}, {3.410636729640625*^9, 
   3.410636788296875*^9}, {3.410638400703125*^9, 3.410638426671875*^9}, {
   3.410638504296875*^9, 3.410638509265625*^9}, 3.410643587328125*^9, {
   3.410643622796875*^9, 3.410643641390625*^9}, {3.410643784703125*^9, 
   3.4106437850625*^9}, {3.41064386140625*^9, 3.410643934703125*^9}, {
   3.41064396653125*^9, 3.4106439956875*^9}, {3.410644066703125*^9, 
   3.41064408065625*^9}, {3.41064411803125*^9, 3.410644228203125*^9}, {
   3.41064427415625*^9, 3.41064429265625*^9}, {3.410644516546875*^9, 
   3.410644520171875*^9}, {3.410644743359375*^9, 3.410644836140625*^9}, {
   3.410644921609375*^9, 3.41064501840625*^9}, {3.4106450669375*^9, 
   3.410645068828125*^9}, {3.41064510046875*^9, 3.410645144578125*^9}, {
   3.41064517978125*^9, 3.410645361984375*^9}, {3.41064539671875*^9, 
   3.41064539975*^9}, {3.410645496140625*^9, 3.410645680984375*^9}, {
   3.410645756796875*^9, 3.410645783125*^9}, {3.410645988015625*^9, 
   3.41064599621875*^9}, {3.41064615721875*^9, 3.41064615778125*^9}, {
   3.410646350640625*^9, 3.41064647453125*^9}, {3.410646511078125*^9, 
   3.4106465139375*^9}, {3.410646610828125*^9, 3.41064675590625*^9}, {
   3.410647076234375*^9, 3.410647162765625*^9}, {3.4106481970625*^9, 
   3.410648201890625*^9}, {3.410648232578125*^9, 3.41064826215625*^9}, {
   3.41064830140625*^9, 3.410648302828125*^9}, {3.41064868153125*^9, 
   3.41064875740625*^9}, {3.4106491453125*^9, 3.410649160078125*^9}, {
   3.410649313578125*^9, 3.41064935*^9}, {3.4106493996875*^9, 
   3.4106494809375*^9}, {3.41065054009375*^9, 3.41065056540625*^9}, {
   3.410650770328125*^9, 3.41065080003125*^9}, {3.410650879078125*^9, 
   3.410650891125*^9}, {3.41065094690625*^9, 3.410651032359375*^9}, {
   3.4106512083125*^9, 3.410651208546875*^9}, {3.410651309359375*^9, 
   3.410651311078125*^9}, {3.4106520551875*^9, 3.41065205546875*^9}, {
   3.410654115296875*^9, 3.410654115640625*^9}, {3.410654321546875*^9, 
   3.41065432234375*^9}, {3.410654405328125*^9, 3.410654434578125*^9}, {
   3.4106586635625*^9, 3.410658663984375*^9}, {3.4106589191875*^9, 
   3.410658919546875*^9}, {3.410660826453125*^9, 3.410660905671875*^9}, {
   3.410660943703125*^9, 3.410660948125*^9}, {3.410661258921875*^9, 
   3.410661266234375*^9}, {3.410661751921875*^9, 3.410661755859375*^9}, {
   3.4122999970625*^9, 3.412300023484375*^9}, {3.412381405296875*^9, 
   3.412381409828125*^9}, {3.412717486703125*^9, 3.412717564328125*^9}, {
   3.412717728703125*^9, 3.41271772896875*^9}, {3.412717781328125*^9, 
   3.412717989890625*^9}, {3.412718077828125*^9, 3.41271807934375*^9}, {
   3.41271812621875*^9, 3.412718154640625*^9}, {3.4127182519375*^9, 
   3.412718348578125*^9}, {3.412718423125*^9, 3.41271848128125*^9}, {
   3.412718525359375*^9, 3.4127185425*^9}, {3.41271857309375*^9, 
   3.412718784546875*^9}, {3.41271887196875*^9, 3.41271894753125*^9}, {
   3.412719036265625*^9, 3.412719162296875*^9}, 3.412719543375*^9, {
   3.412727528609375*^9, 3.412727566546875*^9}, 3.412727607703125*^9, {
   3.412727693109375*^9, 3.41272775590625*^9}, {3.413145329125*^9, 
   3.41314539884375*^9}, {3.413145452015625*^9, 3.41314549175*^9}, {
   3.413145536828125*^9, 3.41314554178125*^9}, {3.413145633265625*^9, 
   3.413145636859375*^9}, {3.41347011734375*^9, 3.413470139609375*^9}, {
   3.41511575946875*^9, 3.415115802015625*^9}, {3.415115834078125*^9, 
   3.415115835734375*^9}, {3.415115939015625*^9, 3.415115974765625*^9}, {
   3.415116051265625*^9, 3.415116053734375*^9}, {3.46021789815625*^9, 
   3.460217973171875*^9}, {3.460218269765625*^9, 3.46021837403125*^9}, {
   3.460218416015625*^9, 3.460218523734375*^9}, 3.46021855796875*^9, 
   3.460387190078125*^9, {3.4603872283125*^9, 3.46038737709375*^9}, {
   3.460387413140625*^9, 3.460387477109375*^9}, {3.4603875704375*^9, 
   3.460387594875*^9}, {3.46038769584375*^9, 3.460387699390625*^9}, {
   3.46038773259375*^9, 3.46038780890625*^9}, 3.460387854171875*^9, {
   3.46038789403125*^9, 3.460387957921875*^9}, {3.46038800384375*^9, 
   3.46038801621875*^9}, 3.46038807875*^9, {3.460388158265625*^9, 
   3.46038816896875*^9}, {3.460389182734375*^9, 3.460389201671875*^9}, {
   3.460389287453125*^9, 3.4603893329375*^9}, {3.460389479*^9, 
   3.460389533625*^9}, {3.460389914703125*^9, 3.460389932484375*^9}, {
   3.4603899810625*^9, 3.460390032125*^9}, {3.46039031590625*^9, 
   3.460390321109375*^9}, {3.4603906136875*^9, 3.46039068459375*^9}, {
   3.460390797140625*^9, 3.460390810203125*^9}, {3.46039085046875*^9, 
   3.460390881421875*^9}, 3.460391182546875*^9, 3.460391215640625*^9, {
   3.460391248921875*^9, 3.460391273171875*^9}, {3.4603913185*^9, 
   3.460391384703125*^9}, {3.46039142021875*^9, 3.4603915251875*^9}, {
   3.460391576015625*^9, 3.460391580390625*^9}, 3.460728175109375*^9, 
   3.46072856634375*^9, 3.460730514078125*^9, {3.460733293296875*^9, 
   3.460733293984375*^9}, {3.46082180059375*^9, 3.4608218028125*^9}, {
   3.460821853796875*^9, 3.46082201840625*^9}, {3.46082209371875*^9, 
   3.4608220951875*^9}, {3.460822144515625*^9, 3.460822149640625*^9}, {
   3.46082221115625*^9, 3.460822218359375*^9}, 3.46082226175*^9, {
   3.460822387484375*^9, 3.460822439015625*^9}, 3.460822472796875*^9, {
   3.460823043359375*^9, 3.460823048828125*^9}, {3.460823117375*^9, 
   3.460823366484375*^9}, {3.4609013102233105`*^9, 3.4609013144108644`*^9}, {
   3.461425175703125*^9, 3.461425415234375*^9}, {3.461425736359375*^9, 
   3.46142582096875*^9}, {3.4614259324375*^9, 3.46142606121875*^9}, {
   3.461426101515625*^9, 3.46142615990625*^9}, {3.46142620990625*^9, 
   3.461426223984375*^9}, {3.46142625659375*^9, 3.461426266*^9}, {
   3.46142636775*^9, 3.4614263884375*^9}, {3.461426442203125*^9, 
   3.461426482203125*^9}, {3.461426512859375*^9, 3.46142651625*^9}, {
   3.461426558265625*^9, 3.461426632234375*^9}, {3.461426752453125*^9, 
   3.46142675634375*^9}, {3.461426878109375*^9, 3.46142697575*^9}, {
   3.46142704165625*^9, 3.461427043765625*^9}, {3.4614270781875*^9, 
   3.461427202625*^9}, {3.461428229078125*^9, 3.46142833171875*^9}, {
   3.46159789859375*^9, 3.461597927546875*^9}, {3.461598001265625*^9, 
   3.46159801721875*^9}, {3.461598051765625*^9, 3.461598287703125*^9}, {
   3.4615984928125*^9, 3.4615984955625*^9}, {3.461598581671875*^9, 
   3.461598616125*^9}, {3.4615987495*^9, 3.461598752296875*^9}, {
   3.46159879284375*^9, 3.461598824078125*^9}, 3.4615988783125*^9, {
   3.461598928796875*^9, 3.461598971453125*^9}, {3.461599055796875*^9, 
   3.461599110171875*^9}, {3.461599148234375*^9, 3.461599165390625*^9}, {
   3.46159937840625*^9, 3.46159939134375*^9}, 3.46159943440625*^9, {
   3.4615995266875*^9, 3.46159953253125*^9}, {3.461599567625*^9, 
   3.461599615015625*^9}, {3.461599660609375*^9, 3.46159966665625*^9}, {
   3.461599792640625*^9, 3.461599839953125*^9}, {3.461599896921875*^9, 
   3.461599899625*^9}, {3.461600023046875*^9, 3.46160007321875*^9}, {
   3.4616001348125*^9, 3.461600170515625*^9}, {3.461600217*^9, 
   3.46160024665625*^9}, {3.461600395421875*^9, 3.461600433125*^9}, {
   3.461600471875*^9, 3.4616004828125*^9}, {3.461600815421875*^9, 
   3.46160082475*^9}, {3.461600903640625*^9, 3.461600905515625*^9}, {
   3.46160093609375*^9, 3.46160093934375*^9}, {3.461600980078125*^9, 
   3.461600983203125*^9}, {3.462204105344125*^9, 3.46220420717225*^9}, 
   3.46220424192225*^9, {3.4622042852035*^9, 3.4622042893285*^9}, {
   3.462204430875375*^9, 3.4622044337035*^9}, {3.462204999031625*^9, 
   3.4622050488285*^9}, {3.462205304969125*^9, 3.46220539285975*^9}, {
   3.462633735469125*^9, 3.4626337742035*^9}, 3.462633920187875*^9, {
   3.462633951937875*^9, 3.46263395979725*^9}, {3.46263455817225*^9, 
   3.46263460467225*^9}, {3.462634843125375*^9, 3.46263486242225*^9}, 
   3.462634990312875*^9, 3.462635028406625*^9, {3.462635085469125*^9, 
   3.4626350905785*^9}, 3.462635144687875*^9, {3.462635395625375*^9, 
   3.462635398844125*^9}, 3.462636261500375*^9, 3.462636302500375*^9, 
   3.46263655435975*^9, {3.462636802094125*^9, 3.46263680348475*^9}, 
   3.462637295141*^9, {3.462637377500375*^9, 3.462637399969125*^9}, {
   3.462637462812875*^9, 3.462637473344125*^9}, {3.462637559906625*^9, 
   3.462637565781625*^9}, {3.462637616437875*^9, 3.462637628016*^9}, {
   3.46263772642225*^9, 3.4626377349535*^9}, 3.462637786219125*^9, {
   3.462637947469125*^9, 3.46263797573475*^9}, {3.462723989312875*^9, 
   3.462724000141*^9}, {3.462724062141*^9, 3.46272406354725*^9}, {
   3.462724210766*^9, 3.462724334312875*^9}, {3.46280628235975*^9, 
   3.462806469437875*^9}, {3.462806683250375*^9, 3.46280670348475*^9}, 
   3.46280673473475*^9, 3.46280679335975*^9, {3.46280701298475*^9, 
   3.462807063969125*^9}, {3.462807136312875*^9, 3.462807148500375*^9}, {
   3.462807202219125*^9, 3.462807215844125*^9}, {3.46280740060975*^9, 
   3.462807483469125*^9}, {3.4628075183285*^9, 3.462807527844125*^9}, {
   3.46280786592225*^9, 3.462807867781625*^9}, {3.46280830679725*^9, 
   3.462808338781625*^9}, {3.462808390312875*^9, 3.462808492594125*^9}, {
   3.462808565906625*^9, 3.462808571016*^9}, {3.462808693641*^9, 
   3.462808702875375*^9}, {3.462808846031625*^9, 3.4628088904535*^9}, {
   3.462808944094125*^9, 3.4628089495785*^9}, {3.462809053781625*^9, 
   3.46280908142225*^9}, {3.46280918004725*^9, 3.462809199562875*^9}, {
   3.462809298875375*^9, 3.462809376969125*^9}, {3.462809450875375*^9, 
   3.462809519531625*^9}, {3.462809589281625*^9, 3.462809590937875*^9}, {
   3.462809671594125*^9, 3.462809672641*^9}, 3.4628107243285*^9, {
   3.46281075598475*^9, 3.46281092260975*^9}, {3.463241350640625*^9, 
   3.463241376984375*^9}, 3.46324141565625*^9, 3.463241681921875*^9, {
   3.46324174684375*^9, 3.46324179775*^9}, {3.463242311359375*^9, 
   3.463242323078125*^9}, {3.463242690890625*^9, 3.46324269309375*^9}, 
   3.463242821359375*^9, {3.46401961184375*^9, 3.46401963428125*^9}, {
   3.46401967209375*^9, 3.464019678828125*^9}, {3.4640197580625*^9, 
   3.46401975953125*^9}, 3.46402019078125*^9, {3.4644501235625*^9, 
   3.46445013375*^9}, {3.464450191328125*^9, 3.46445019740625*^9}, 
   3.464450350375*^9, {3.464450449703125*^9, 3.464450514109375*^9}, 
   3.46462375203125*^9, {3.464623787328125*^9, 3.464623908046875*^9}, {
   3.46462396725*^9, 3.46462401765625*^9}, {3.4646240765625*^9, 
   3.46462410803125*^9}, {3.464624171578125*^9, 3.46462422053125*^9}, {
   3.464624264984375*^9, 3.46462426775*^9}, {3.46462462378125*^9, 
   3.464624679765625*^9}, {3.464624711515625*^9, 3.464624749390625*^9}, {
   3.464624902375*^9, 3.4646249081875*^9}, 3.464624941421875*^9, 
   3.464625133359375*^9, {3.464625174984375*^9, 3.46462517925*^9}, {
   3.4646252451875*^9, 3.46462524928125*^9}, {3.465056204328125*^9, 
   3.465056205390625*^9}, {3.465056263515625*^9, 3.46505628503125*^9}, 
   3.465056324203125*^9, {3.465056365046875*^9, 3.465056487328125*^9}, {
   3.465056526390625*^9, 3.46505666953125*^9}, {3.465056729796875*^9, 
   3.46505675965625*^9}, {3.46514270346875*^9, 3.4651427086875*^9}, {
   3.465142789515625*^9, 3.4651428981875*^9}, {3.4651429419375*^9, 
   3.46514295465625*^9}, {3.46514299646875*^9, 3.465143042859375*^9}, {
   3.46514313603125*^9, 3.46514316290625*^9}, {3.46514323215625*^9, 
   3.465143346328125*^9}, {3.46514358571875*^9, 3.465143586234375*^9}, {
   3.465244891796875*^9, 3.46524494271875*^9}, {3.46524524521875*^9, 
   3.465245259109375*^9}, {3.465245402671875*^9, 3.465245407984375*^9}, {
   3.46524582428125*^9, 3.465245827390625*^9}, {3.46524597190625*^9, 
   3.465245972546875*^9}, {3.465246007046875*^9, 3.46524602396875*^9}, {
   3.465248103890625*^9, 3.46524810846875*^9}, {3.46524823428125*^9, 
   3.465248275109375*^9}, {3.465253401765625*^9, 3.465253431296875*^9}, {
   3.465253469203125*^9, 3.465253471265625*^9}, {3.4652535678125*^9, 
   3.46525360378125*^9}, {3.46525377865625*^9, 3.46525379184375*^9}, 
   3.465253826125*^9, {3.465253906671875*^9, 3.46525391409375*^9}, {
   3.46525398428125*^9, 3.4652540189375*^9}, {3.465254121265625*^9, 
   3.465254138734375*^9}, {3.465254194453125*^9, 3.465254195078125*^9}, {
   3.465254289875*^9, 3.465254290640625*^9}, {3.465322298859375*^9, 
   3.46532232925*^9}, {3.465322452078125*^9, 3.465322496375*^9}, {
   3.465322565953125*^9, 3.46532260671875*^9}, {3.46532292134375*^9, 
   3.465323029671875*^9}, 3.4653230619375*^9, 3.465323092890625*^9, {
   3.4653237570625*^9, 3.4653237964375*^9}, {3.465324075453125*^9, 
   3.465324097625*^9}, {3.46532413059375*^9, 3.465324131640625*^9}, {
   3.4653243348125*^9, 3.465324337796875*^9}, {3.465324435359375*^9, 
   3.46532451921875*^9}, {3.465348491703125*^9, 3.465348508421875*^9}, {
   3.465348540578125*^9, 3.46534857078125*^9}, {3.465348606546875*^9, 
   3.465348609390625*^9}, 3.465348671328125*^9, 3.465348707171875*^9, {
   3.46534880753125*^9, 3.46534882984375*^9}, 3.46534886253125*^9, {
   3.465348895703125*^9, 3.46534889996875*^9}, {3.465348961*^9, 
   3.46534898534375*^9}, {3.46535377821875*^9, 3.465353799390625*^9}, {
   3.465353868546875*^9, 3.465353882265625*^9}, {3.465353961875*^9, 
   3.4653539955625*^9}, {3.46540418553125*^9, 3.465404246078125*^9}, {
   3.465404277890625*^9, 3.465404295796875*^9}, {3.465405040484375*^9, 
   3.46540504540625*^9}, {3.4654050805625*^9, 3.465405102890625*^9}, {
   3.46540513675*^9, 3.465405141203125*^9}, {3.465405430671875*^9, 
   3.465405465625*^9}, 3.465412405234375*^9, {3.4654124446875*^9, 
   3.465412473453125*^9}, {3.46541253496875*^9, 3.465412577453125*^9}, {
   3.465412708609375*^9, 3.46541271771875*^9}, {3.4654127501875*^9, 
   3.465412759390625*^9}, {3.465412813078125*^9, 3.465412911171875*^9}, {
   3.4654129604375*^9, 3.4654129749375*^9}, {3.465413007578125*^9, 
   3.465413045328125*^9}, {3.46541309075*^9, 3.465413095796875*^9}, {
   3.465413280359375*^9, 3.465413400640625*^9}, {3.465413432390625*^9, 
   3.4654134826875*^9}, {3.46541351678125*^9, 3.46541354446875*^9}, {
   3.465413582578125*^9, 3.465413586796875*^9}, {3.465413675140625*^9, 
   3.46541369875*^9}, {3.465413734671875*^9, 3.465413759140625*^9}, {
   3.46541379365625*^9, 3.46541379634375*^9}, {3.4654138930625*^9, 
   3.465413921875*^9}, {3.465414026140625*^9, 3.46541410234375*^9}, {
   3.465414143515625*^9, 3.46541415784375*^9}, {3.465414237375*^9, 
   3.46541428203125*^9}, {3.46541431553125*^9, 3.465414374921875*^9}, {
   3.465414424234375*^9, 3.46541446321875*^9}, {3.4654145061875*^9, 
   3.465414512390625*^9}, {3.4654145666875*^9, 3.46541458103125*^9}, {
   3.465414676828125*^9, 3.4654147627954264`*^9}, {3.4654148618266764`*^9, 
   3.4654149161079264`*^9}, {3.4654149777016764`*^9, 
   3.4654150390610514`*^9}, {3.4654150901704264`*^9, 
   3.4654150937485514`*^9}, {3.4654151317954264`*^9, 
   3.4654151367329264`*^9}, {3.4654167463266764`*^9, 3.4654167711391764`*^9}, 
   3.4654171193266764`*^9, {3.4654172296391764`*^9, 3.4654172308266764`*^9}, {
   3.4654189337329264`*^9, 3.4654189345766764`*^9}, {3.4654334615923014`*^9, 
   3.4654336008891764`*^9}, {3.4654336314048014`*^9, 3.4654336440766764`*^9}, 
   3.4654336891548014`*^9, {3.4654337372954264`*^9, 3.4654337374829264`*^9}, {
   3.4654338884204264`*^9, 3.4654339338266764`*^9}, 3.4654340052016764`*^9, {
   3.4654340448423014`*^9, 3.4654341345454264`*^9}, {3.4654341655610514`*^9, 
   3.4654341756704264`*^9}, {3.4654342262016764`*^9, 
   3.4654342449516764`*^9}, {3.4654347104829264`*^9, 3.4654347240454264`*^9}, 
   3.4654347857173014`*^9, {3.4654348655141764`*^9, 3.4654349107954264`*^9}, {
   3.4654349462485514`*^9, 3.4654349610923014`*^9}, 3.4654350655298014`*^9, {
   3.4654351173579264`*^9, 3.4654351290923014`*^9}, {3.4654352223735514`*^9, 
   3.4654352287954264`*^9}, {3.4654352668579264`*^9, 
   3.4654353329360514`*^9}, {3.4654354175923014`*^9, 3.4654354428579264`*^9}, 
   3.4654355066704264`*^9, {3.4654355711860514`*^9, 3.4654356431391764`*^9}, {
   3.4654357156704264`*^9, 3.4654357465766764`*^9}, {3.4654357807016764`*^9, 
   3.4654357829360514`*^9}, 3.4654358781079264`*^9, {3.4654359294829264`*^9, 
   3.4654359671704264`*^9}, 3.4654360824048014`*^9, {3.4654361188423014`*^9, 
   3.4654362734516764`*^9}, {3.4654363692798014`*^9, 
   3.4654364661079264`*^9}, {3.4654365549048014`*^9, 
   3.4654365587798014`*^9}, {3.4654366134516764`*^9, 
   3.4654366510610514`*^9}, {3.4654367432954264`*^9, 
   3.4654367492485514`*^9}, {3.4654367834985514`*^9, 
   3.4654368594204264`*^9}, {3.4654368908735514`*^9, 
   3.4654369071235514`*^9}, {3.4654369594985514`*^9, 3.4654369839673014`*^9}, 
   3.4654374962641764`*^9, {3.4654375399673014`*^9, 3.4654376718735514`*^9}, {
   3.4654377046704264`*^9, 3.4654377066548014`*^9}, 3.4654389797954264`*^9, {
   3.4654391572798014`*^9, 3.4654391804985514`*^9}, {3.4654392542329264`*^9, 
   3.4654394116079264`*^9}, {3.4654394528266764`*^9, 
   3.4654397314673014`*^9}, {3.4654397973266764`*^9, 
   3.4654398196548014`*^9}, {3.4654400629516764`*^9, 
   3.4654400804048014`*^9}, {3.4654401272798014`*^9, 
   3.4654402821079264`*^9}, {3.4654403146391764`*^9, 3.4654403374048014`*^9}, 
   3.4654403702954264`*^9, 3.4654404288735514`*^9, 3.465480089828125*^9, {
   3.465480270546875*^9, 3.465480273453125*^9}, {3.4654803256875*^9, 
   3.46548045815625*^9}, {3.465480496703125*^9, 3.46548059478125*^9}, 
   3.46548069175*^9, {3.46548108859375*^9, 3.46548111925*^9}, {
   3.465481153625*^9, 3.465481298*^9}, {3.46548155728125*^9, 
   3.465481584*^9}, {3.465497837125*^9, 3.465497928640625*^9}, {
   3.465498013265625*^9, 3.4654980225*^9}, {3.46549808415625*^9, 
   3.46549808875*^9}, {3.465511403046875*^9, 3.46551148653125*^9}, {
   3.465511606140625*^9, 3.465511625640625*^9}, 3.46551169940625*^9, {
   3.465514228453125*^9, 3.465514315078125*^9}, {3.465520433390625*^9, 
   3.465520446*^9}, {3.46552048178125*^9, 3.4655205335625*^9}, {
   3.465523421796875*^9, 3.46552348625*^9}, {3.465523585515625*^9, 
   3.46552359146875*^9}, {3.46552362346875*^9, 3.465523628890625*^9}, {
   3.465523933890625*^9, 3.46552398425*^9}, {3.46552402178125*^9, 
   3.465524025953125*^9}, {3.46552405721875*^9, 3.465524060625*^9}, {
   3.46552411934375*^9, 3.465524123125*^9}, {3.4655241543125*^9, 
   3.46552420971875*^9}, {3.465596800875*^9, 3.465596847953125*^9}, {
   3.465597124765625*^9, 3.465597175109375*^9}, 3.465597217515625*^9, {
   3.4655972635625*^9, 3.465597332109375*^9}, {3.465597654859375*^9, 
   3.46559772271875*^9}, {3.465598005671875*^9, 3.4655980365625*^9}, {
   3.46559830196875*^9, 3.465598397953125*^9}, {3.465598443171875*^9, 
   3.465598468515625*^9}, {3.4655985386875*^9, 3.465598671*^9}, {
   3.465598719578125*^9, 3.465598730453125*^9}, 3.46559883275*^9, {
   3.465600560390625*^9, 3.465600564859375*^9}, {3.465600601234375*^9, 
   3.465600627328125*^9}, 3.465602292484375*^9, {3.4656024350625*^9, 
   3.46560245678125*^9}, {3.4656025240625*^9, 3.465602551953125*^9}, {
   3.465602601109375*^9, 3.465602647671875*^9}, {3.465602681796875*^9, 
   3.46560292278125*^9}, {3.465604260125*^9, 3.465604286671875*^9}, {
   3.465604486609375*^9, 3.465604490328125*^9}, {3.465606724640625*^9, 
   3.46560678734375*^9}, {3.46560704196875*^9, 3.465607097171875*^9}, {
   3.465607490109375*^9, 3.46560751728125*^9}, {3.465607826828125*^9, 
   3.4656078763125*^9}, {3.4656079064375*^9, 3.465607988734375*^9}, 
   3.46560803046875*^9, {3.46560809115625*^9, 3.465608103796875*^9}, 
   3.4656083145625*^9, 3.46560852640625*^9, 3.46560872990625*^9, {
   3.465608894921875*^9, 3.46560889740625*^9}, {3.465608972953125*^9, 
   3.4656089808125*^9}, {3.465609843859375*^9, 3.4656099776875*^9}, {
   3.465610014484375*^9, 3.465610034828125*^9}, {3.465610143609375*^9, 
   3.465610241578125*^9}, {3.4656115619375*^9, 3.46561157228125*^9}, {
   3.46561163578125*^9, 3.4656116536875*^9}, {3.465611705515625*^9, 
   3.46561173409375*^9}, {3.46561184515625*^9, 3.46561189553125*^9}, 
   3.465651996296875*^9, {3.465652734328125*^9, 3.4656528324375*^9}, 
   3.46565322146875*^9, {3.46565394140625*^9, 3.46565396759375*^9}, {
   3.465690279625*^9, 3.46569028128125*^9}, {3.4656907549375*^9, 
   3.465690756453125*^9}, 3.46569092571875*^9, 3.46569100746875*^9, {
   3.46569169953125*^9, 3.465691816890625*^9}, {3.465692053328125*^9, 
   3.465692100296875*^9}, {3.465692131640625*^9, 3.465692137875*^9}, {
   3.46569224090625*^9, 3.46569229434375*^9}, {3.46569235771875*^9, 
   3.46569236175*^9}, {3.46569241690625*^9, 3.465692431125*^9}, {
   3.46569250540625*^9, 3.465692554125*^9}, {3.465692594921875*^9, 
   3.46569262146875*^9}, {3.4656926515*^9, 3.465692654859375*^9}, {
   3.46569269121875*^9, 3.465692723328125*^9}, {3.46569276184375*^9, 
   3.465692923015625*^9}, {3.4656929961875*^9, 3.465693128796875*^9}, 
   3.46569316721875*^9, {3.46569322825*^9, 3.4656932315*^9}, {
   3.46569334478125*^9, 3.465693351828125*^9}, {3.465693419171875*^9, 
   3.465693423953125*^9}, {3.465694154046875*^9, 3.46569416540625*^9}, {
   3.46569424053125*^9, 3.46569424759375*^9}, {3.465694319359375*^9, 
   3.46569432090625*^9}, {3.465695113953125*^9, 3.4656951416875*^9}, {
   3.465695211625*^9, 3.465695273484375*^9}, {3.465695313796875*^9, 
   3.46569531690625*^9}, {3.4656953479375*^9, 3.465695350484375*^9}, {
   3.46569540909375*^9, 3.465695418796875*^9}, {3.465734307671875*^9, 
   3.4657343454375*^9}, {3.46573443359375*^9, 3.465734454765625*^9}, {
   3.465734499625*^9, 3.4657345026875*^9}, {3.465734534*^9, 
   3.4657345915*^9}, {3.465734695984375*^9, 3.465734716015625*^9}, {
   3.465734800859375*^9, 3.4657349960625*^9}, {3.46573505828125*^9, 
   3.4657350623125*^9}, {3.465735890640625*^9, 3.465735891953125*^9}, {
   3.465736013421875*^9, 3.465736061328125*^9}, {3.46573615428125*^9, 
   3.465736190015625*^9}, {3.465758957421875*^9, 3.46575897025*^9}, 
   3.465759060109375*^9, {3.465759220609375*^9, 3.4657592409375*^9}, {
   3.465759316640625*^9, 3.465759410375*^9}, {3.465759484890625*^9, 
   3.465759486859375*^9}, {3.465762389359375*^9, 3.465762423875*^9}, {
   3.465762456171875*^9, 3.465762505671875*^9}, {3.465762614984375*^9, 
   3.465762627453125*^9}, {3.465762675375*^9, 3.465762719875*^9}, {
   3.465762755140625*^9, 3.465762759171875*^9}, 3.46576279540625*^9, {
   3.465762906140625*^9, 3.4657629551875*^9}, {3.465763020546875*^9, 
   3.46576302353125*^9}, 3.465763095515625*^9, {3.46576314146875*^9, 
   3.465763143328125*^9}, 3.465763174140625*^9, {3.465763239796875*^9, 
   3.465763287421875*^9}, {3.465763366234375*^9, 3.465763434515625*^9}, {
   3.465764722234375*^9, 3.46576473525*^9}, {3.4657648014375*^9, 
   3.465764813625*^9}, 3.465764867890625*^9, {3.465764933953125*^9, 
   3.465764935625*^9}, {3.465764994203125*^9, 3.46576499921875*^9}, {
   3.46576536571875*^9, 3.465765432203125*^9}, {3.465765466640625*^9, 
   3.46576548525*^9}, {3.465765601484375*^9, 3.465765631375*^9}, {
   3.46576568984375*^9, 3.46576570496875*^9}, {3.4657657726875*^9, 
   3.46576579925*^9}, 3.465765885109375*^9, {3.465765947265625*^9, 
   3.46576595075*^9}, 3.465766003609375*^9, {3.465766037984375*^9, 
   3.46576604325*^9}, {3.465766095109375*^9, 3.465766130140625*^9}, {
   3.465766175234375*^9, 3.465766225703125*^9}, {3.46576625678125*^9, 
   3.465766370234375*^9}, {3.465766437609375*^9, 3.465766446203125*^9}, {
   3.46576648134375*^9, 3.465766622515625*^9}, {3.46576667078125*^9, 
   3.46576670259375*^9}, 3.465767025421875*^9, {3.465767120046875*^9, 
   3.465767213515625*^9}, {3.465767254703125*^9, 3.46576726078125*^9}, {
   3.465767345078125*^9, 3.465767400921875*^9}, {3.465767617234375*^9, 
   3.46576764540625*^9}, {3.465767739703125*^9, 3.46576791615625*^9}, {
   3.4657679925625*^9, 3.465768022734375*^9}, {3.465768090859375*^9, 
   3.465768163890625*^9}, {3.465768194515625*^9, 3.465768205296875*^9}, {
   3.46576828084375*^9, 3.46576832634375*^9}, {3.465768399140625*^9, 
   3.46576842471875*^9}, {3.4657684875625*^9, 3.46576849459375*^9}, {
   3.465768577453125*^9, 3.465768631453125*^9}, {3.46576866178125*^9, 
   3.465768678375*^9}, {3.465768740265625*^9, 3.465768757953125*^9}, {
   3.465768849109375*^9, 3.465768928890625*^9}, {3.46576904971875*^9, 
   3.465769083765625*^9}, {3.46576979759375*^9, 3.465769805328125*^9}, {
   3.4657698409375*^9, 3.465769933953125*^9}, {3.465770010328125*^9, 
   3.465770035921875*^9}, {3.465770183234375*^9, 3.465770242390625*^9}, {
   3.4657703264375*^9, 3.465770423171875*^9}, {3.46577221721875*^9, 
   3.46577237925*^9}, {3.4657724351875*^9, 3.46577244003125*^9}, 
   3.465772566984375*^9, {3.46577260896875*^9, 3.465772640265625*^9}, {
   3.46577268421875*^9, 3.465772778140625*^9}, {3.465772883078125*^9, 
   3.465772890890625*^9}, {3.46577299109375*^9, 3.465772994671875*^9}, 
   3.465773110453125*^9, {3.4657732055625*^9, 3.46577323103125*^9}, {
   3.4657732766875*^9, 3.465773293578125*^9}, {3.46577334571875*^9, 
   3.46577340615625*^9}, 3.465773459421875*^9, {3.46577350846875*^9, 
   3.4657735280625*^9}, {3.465773570640625*^9, 3.4657736485625*^9}, {
   3.465773688515625*^9, 3.4657737483125*^9}, {3.46577486184375*^9, 
   3.465774874*^9}, {3.465774914859375*^9, 3.46577495975*^9}, {
   3.46577502578125*^9, 3.46577513678125*^9}, {3.465775169890625*^9, 
   3.465775357578125*^9}, {3.4657754206875*^9, 3.46577551740625*^9}, {
   3.465775563046875*^9, 3.465775566140625*^9}, {3.465775791828125*^9, 
   3.46577602334375*^9}, {3.4657762026875*^9, 3.465776247453125*^9}, 
   3.465776312796875*^9, 3.465776345390625*^9, {3.4657766799375*^9, 
   3.4657767216875*^9}, {3.465776807921875*^9, 3.4657768324375*^9}, {
   3.465776881796875*^9, 3.46577692178125*^9}, {3.465777094921875*^9, 
   3.46577709928125*^9}, {3.465777347078125*^9, 3.4657773855625*^9}, {
   3.4657774156875*^9, 3.46577754571875*^9}, {3.4657775891875*^9, 
   3.46577770109375*^9}, {3.46577773596875*^9, 3.4657778545625*^9}, {
   3.465779061328125*^9, 3.465779064859375*^9}, {3.46577909675*^9, 
   3.46577911759375*^9}, {3.465779169234375*^9, 3.465779193046875*^9}, {
   3.4657793286875*^9, 3.465779348578125*^9}, {3.4657796781875*^9, 
   3.465779682859375*^9}, {3.465779762453125*^9, 3.465779819984375*^9}, {
   3.46577992490625*^9, 3.465779932875*^9}, {3.46578001853125*^9, 
   3.4657801210625*^9}, {3.465780162484375*^9, 3.465780218765625*^9}, {
   3.465780252484375*^9, 3.46578071921875*^9}, {3.465781056953125*^9, 
   3.4657810725625*^9}, {3.465781196390625*^9, 3.465781211578125*^9}, {
   3.465781246578125*^9, 3.46578126434375*^9}, {3.46578134296875*^9, 
   3.465781375859375*^9}, {3.465781418265625*^9, 3.4657814185*^9}, {
   3.465781506765625*^9, 3.4657815319375*^9}, 3.465781573546875*^9, {
   3.46578162509375*^9, 3.4657817465625*^9}, 3.465781859703125*^9, 
   3.465781965765625*^9, {3.46578203184375*^9, 3.465782034*^9}}]
},
WindowSize->{1272, 922},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
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, 77758, 1514, 1432, "Input"]
}
]
*)

(* End of internal cache information *)