(* 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[     42251,       1100]
NotebookOptionsPosition[     41073,       1064]
NotebookOutlinePosition[     41413,       1079]
CellTagsIndexPosition[     41370,       1076]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.453709252328125*^9, 3.45370925346875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Tau]1", "=", "0"}], ";"}]], "Input",
 CellChangeTimes->{{3.4537092605*^9, 3.45370928775*^9}, {3.45370950875*^9, 
   3.453709509546875*^9}, 3.4538147350769224`*^9, {3.4538673409001107`*^9, 
   3.453867386826511*^9}, {3.453867492079711*^9, 3.453867529933299*^9}, 
   3.453867580709366*^9, 3.45386762441673*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SPo", "=", 
   RowBox[{"ListPointPlot3D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0"}], "}"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"PointSize", "[", "Normal", "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4537092605*^9, 3.45370928775*^9}, {3.45370950875*^9, 
   3.453709509546875*^9}, 3.4538147350769224`*^9, {3.4538673409001107`*^9, 
   3.453867386826511*^9}, {3.453867492079711*^9, 3.453867529933299*^9}, 
   3.453867580709366*^9, 3.45386762441673*^9, 3.4598394432845907`*^9, 
   3.459846561236577*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"P0", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"14", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Cos", "[", "\[Tau]1", "]"}], "+", 
           RowBox[{"0.08", 
            RowBox[{"Sin", "[", 
             RowBox[{"3", "\[Tau]1"}], "]"}]}]}], ")"}]}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"3", "+", 
           RowBox[{"Cos", "[", "v", "]"}]}], ")"}], " ", 
         RowBox[{"Sin", "[", "u", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"12", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Sin", "[", "\[Tau]1", "]"}], "+", 
           RowBox[{"0.08", 
            RowBox[{"Sin", "[", 
             RowBox[{"3", "\[Tau]1"}], "]"}]}]}], ")"}]}], "+", 
        RowBox[{"Sin", "[", "v", "]"}]}], ",", 
       RowBox[{"13", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"3", "+", 
           RowBox[{"Cos", "[", "v", "]"}]}], ")"}], " ", 
         RowBox[{"Cos", "[", "u", "]"}]}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "0", ",", 
       RowBox[{"2", "Pi"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", "0", ",", 
       RowBox[{"2", "Pi"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "->", 
      RowBox[{"Opacity", "[", "1.0", "]"}]}], ",", 
     RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
     RowBox[{"ColorFunction", "\[Rule]", "\"\<BlueGreenYellow\>\""}]}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4537092605*^9, 3.45370928775*^9}, {3.45370950875*^9, 
   3.453709509546875*^9}, 3.4538147350769224`*^9, {3.4538673409001107`*^9, 
   3.453867386826511*^9}, {3.453867492079711*^9, 3.453867529933299*^9}, 
   3.453867580709366*^9, {3.45386762441673*^9, 3.453867627381528*^9}, 
   3.45983945087873*^9, 3.4598465671585655`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"P1", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"14", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Cos", "[", "\[Tau]1", "]"}], "+", 
           RowBox[{"0.08", 
            RowBox[{"Sin", "[", 
             RowBox[{"3", "\[Tau]1"}], "]"}]}]}], ")"}]}], "+", "u"}], ",", 
       RowBox[{"12", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Sin", "[", "\[Tau]1", "]"}], "+", 
          RowBox[{"0.08", 
           RowBox[{"Sin", "[", 
            RowBox[{"3", "\[Tau]1"}], "]"}]}]}], ")"}]}], ",", 
       RowBox[{"1", "+", "v"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "0", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", "0", ",", "7"}], "}"}], ",", 
     RowBox[{"PlotStyle", "->", 
      RowBox[{"Opacity", "[", "1.0", "]"}]}], ",", 
     RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
     RowBox[{"ColorFunction", "\[Rule]", "\"\<BlueGreenYellow\>\""}]}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4537092605*^9, 3.45370928775*^9}, {3.45370950875*^9, 
   3.453709509546875*^9}, 3.4538147350769224`*^9, {3.4538673409001107`*^9, 
   3.453867386826511*^9}, {3.453867492079711*^9, 3.453867529933299*^9}, 
   3.453867580709366*^9, {3.45386762441673*^9, 3.4538676301434717`*^9}, 
   3.4598394557539797`*^9, 3.4598465714086475`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SP1", "=", 
   RowBox[{"ListPointPlot3D", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"14", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Cos", "[", "\[Tau]1", "]"}], "+", 
             RowBox[{"0.08", 
              RowBox[{"Sin", "[", 
               RowBox[{"3", "\[Tau]1"}], "]"}]}]}], ")"}]}], "+", "u"}], ",", 
         
         RowBox[{"12", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Sin", "[", "\[Tau]1", "]"}], "+", 
            RowBox[{"0.08", 
             RowBox[{"Sin", "[", 
              RowBox[{"3", "\[Tau]1"}], "]"}]}]}], ")"}]}], ",", 
         RowBox[{"1", "+", "v"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"u", ",", "1", ",", "7"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"v", ",", "1", ",", "7"}], "}"}]}], "]"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", 
        RowBox[{"PointSize", "[", "0.002", "]"}]}], "]"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4537092605*^9, 3.45370928775*^9}, {3.45370950875*^9, 
   3.453709509546875*^9}, 3.4538147350769224`*^9, {3.4538673409001107`*^9, 
   3.453867386826511*^9}, {3.453867492079711*^9, 3.453867529933299*^9}, 
   3.453867580709366*^9, {3.45386762441673*^9, 3.453867632265643*^9}, 
   3.4538683530881667`*^9, 3.459839460941745*^9, 3.4598465744712057`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"P5", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ParametricPlot3D", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"14", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Cos", "[", 
              RowBox[{"\[Pi]", " ", 
               RowBox[{"\[Tau]2", "/", "20"}]}], "]"}], "+", 
             RowBox[{"0.08", 
              RowBox[{"Sin", "[", 
               RowBox[{"3", "\[Pi]", " ", 
                RowBox[{"\[Tau]2", "/", "20"}]}], "]"}]}]}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"3", "+", 
             RowBox[{"Cos", "[", "v", "]"}]}], ")"}], " ", 
           RowBox[{"Sin", "[", "u", "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"12", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Sin", "[", 
              RowBox[{"\[Pi]", " ", 
               RowBox[{"\[Tau]2", "/", "20"}]}], "]"}], "+", 
             RowBox[{"0.08", 
              RowBox[{"Sin", "[", 
               RowBox[{"3", "\[Pi]", " ", 
                RowBox[{"\[Tau]2", "/", "20"}]}], "]"}]}]}], ")"}]}], "+", 
          RowBox[{"Sin", "[", "v", "]"}]}], ",", 
         RowBox[{"13", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"3", "+", 
             RowBox[{"Cos", "[", "v", "]"}]}], ")"}], " ", 
           RowBox[{"Cos", "[", "u", "]"}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"u", ",", "0", ",", 
         RowBox[{"2", "Pi"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"v", ",", "0", ",", 
         RowBox[{"2", "Pi"}]}], "}"}], ",", 
       RowBox[{"PlotStyle", "->", 
        RowBox[{"Opacity", "[", "0.1", "]"}]}], ",", 
       RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
       RowBox[{"ColorFunction", "\[Rule]", "\"\<BlueGreenYellow\>\""}]}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Tau]2", ",", "1", ",", "39"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4537092605*^9, 3.45370928775*^9}, {3.45370950875*^9, 
   3.453709509546875*^9}, 3.4538147350769224`*^9, {3.4538673409001107`*^9, 
   3.453867386826511*^9}, {3.453867492079711*^9, 3.453867529933299*^9}, 
   3.453867580709366*^9, {3.45386762441673*^9, 3.4538676405202646`*^9}, 
   3.459839466238891*^9, {3.4598395041783333`*^9, 3.459839527210763*^9}, {
   3.4598447332646065`*^9, 3.4598447577646065`*^9}, 3.4598448073271065`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"P2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ParametricPlot3D", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"14", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Cos", "[", 
              RowBox[{"\[Pi]", " ", 
               RowBox[{"\[Tau]2", "/", "20"}]}], "]"}], "+", 
             RowBox[{"0.08", 
              RowBox[{"Sin", "[", 
               RowBox[{"3", "\[Pi]", " ", 
                RowBox[{"\[Tau]2", "/", "20"}]}], "]"}]}]}], ")"}]}], "+", 
          "u"}], ",", 
         RowBox[{"12", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Pi]", " ", 
              RowBox[{"\[Tau]2", "/", "20"}]}], "]"}], "+", 
            RowBox[{"0.08", 
             RowBox[{"Sin", "[", 
              RowBox[{"3", "\[Pi]", " ", 
               RowBox[{"\[Tau]2", "/", "20"}]}], "]"}]}]}], ")"}]}], ",", 
         RowBox[{"1", "+", "v"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"u", ",", "0", ",", "7"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"v", ",", "0", ",", "7"}], "}"}], ",", 
       RowBox[{"PlotStyle", "->", 
        RowBox[{"Opacity", "[", "0.3", "]"}]}], ",", 
       RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
       RowBox[{"ColorFunction", "\[Rule]", "\"\<BlueGreenYellow\>\""}]}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Tau]2", ",", "1", ",", "39"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4537092605*^9, 3.45370928775*^9}, {3.45370950875*^9, 
   3.453709509546875*^9}, 3.4538147350769224`*^9, {3.4538673409001107`*^9, 
   3.453867386826511*^9}, {3.453867492079711*^9, 3.453867529933299*^9}, 
   3.453867580709366*^9, {3.45386762441673*^9, 3.4538676431573744`*^9}, {
   3.459842103217577*^9, 3.45984212314959*^9}, {3.4598447638427315`*^9, 
   3.4598447845771065`*^9}, 3.4598448244989815`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"P3", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Sin", "[", "t", "]"}], "/", "2"}], ",", "0", ",", 
        RowBox[{
         RowBox[{"Cos", "[", "t", "]"}], "/", "2"}]}], "}"}], "+", 
      RowBox[{"{", 
       RowBox[{"3", ",", "0", ",", "4"}], "}"}], "+", 
      RowBox[{"{", 
       RowBox[{"14", ",", "0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       RowBox[{"\[Pi]", "/", "4"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", " ", "Purple"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4537092605*^9, 3.45370928775*^9}, {3.45370950875*^9, 
   3.453709509546875*^9}, 3.4538147350769224`*^9, {3.4538673409001107`*^9, 
   3.453867386826511*^9}, {3.453867492079711*^9, 3.453867529933299*^9}, 
   3.453867580709366*^9, {3.45386762441673*^9, 3.4538676476825924`*^9}, {
   3.453868557238329*^9, 3.453868562073779*^9}, 3.459842130585043*^9, 
   3.459846577393137*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SP2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ListPointPlot3D", "[", 
      RowBox[{
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"u", "+", 
                 RowBox[{
                  RowBox[{"Sin", "[", 
                   RowBox[{"\[Tau]2", " ", 
                    RowBox[{"\[Pi]", "/", "80"}]}], "]"}], "v"}]}], ",", "0", 
                ",", "v"}], "}"}], "+", 
              RowBox[{"{", 
               RowBox[{"3", ",", "0", ",", "4"}], "}"}], "+", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"14", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"Cos", "[", 
                    RowBox[{"\[Pi]", " ", 
                    RowBox[{"\[Tau]2", "/", "20"}]}], "]"}], "+", 
                   RowBox[{"0.08", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"3", "\[Pi]", " ", 
                    RowBox[{"\[Tau]2", "/", "20"}]}], "]"}]}]}], ")"}]}], ",",
                 
                RowBox[{"12", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"Sin", "[", 
                    RowBox[{"\[Pi]", " ", 
                    RowBox[{"\[Tau]2", "/", "20"}]}], "]"}], "+", 
                   RowBox[{"0.08", 
                    RowBox[{"Sin", "[", 
                    RowBox[{"3", "\[Pi]", " ", 
                    RowBox[{"\[Tau]2", "/", "20"}]}], "]"}]}]}], ")"}]}], ",",
                 "0"}], "}"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"u", ",", 
               RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"v", ",", 
               RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}], ",", "1"}], 
          "]"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"14", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Cos", "[", 
                  RowBox[{"\[Pi]", " ", 
                   RowBox[{"\[Tau]2", "/", "20"}]}], "]"}], "+", 
                 RowBox[{"0.08", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"3", "\[Pi]", " ", 
                    RowBox[{"\[Tau]2", "/", "20"}]}], "]"}]}]}], ")"}]}], "+",
               "7"}], ">=", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ">=", 
             RowBox[{"14", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Cos", "[", 
                 RowBox[{"\[Pi]", " ", 
                  RowBox[{"\[Tau]2", "/", "20"}]}], "]"}], "+", 
                RowBox[{"0.08", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"3", "\[Pi]", " ", 
                   RowBox[{"\[Tau]2", "/", "20"}]}], "]"}]}]}], ")"}]}]}], 
            ")"}], "&&", 
           RowBox[{"(", 
            RowBox[{"8", ">=", 
             RowBox[{"#", "[", 
              RowBox[{"[", "3", "]"}], "]"}], "\[GreaterEqual]", "1"}], 
            ")"}]}], "&"}]}], "]"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", " ", 
        RowBox[{"Directive", "[", 
         RowBox[{"Black", ",", 
          RowBox[{"PointSize", "[", "0.002", "]"}]}], "]"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Tau]2", ",", "1", ",", "39"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4537092605*^9, 3.45370928775*^9}, {3.45370950875*^9, 
   3.453709509546875*^9}, 3.4538147350769224`*^9, {3.4538673409001107`*^9, 
   3.453867386826511*^9}, {3.453867492079711*^9, 3.453867529933299*^9}, 
   3.453867580709366*^9, {3.45386762441673*^9, 3.453867651630455*^9}, 
   3.4538677219585843`*^9, {3.453867755101905*^9, 3.4538677563346367`*^9}, 
   3.4538682446606483`*^9, 3.4598421358804607`*^9, {3.4598449052958565`*^9, 
   3.4598449487958565`*^9}, {3.459844996359226*^9, 3.45984502912569*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"A0", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Purple", ",", "Thick", ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{"3", ",", "0", ",", "4"}], "}"}], "+", 
          RowBox[{"{", 
           RowBox[{"14", ",", "0", ",", "0"}], "}"}]}], " ", ",", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "1"}], "}"}], "+", 
          RowBox[{"{", 
           RowBox[{"3", ",", "0", ",", "4"}], "}"}], "+", 
          RowBox[{"{", 
           RowBox[{"14", ",", "0", ",", "0"}], "}"}]}]}], "}"}], "]"}]}], 
     "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4537092605*^9, 3.45370928775*^9}, {3.45370950875*^9, 
   3.453709509546875*^9}, 3.4538147350769224`*^9, {3.4538673409001107`*^9, 
   3.453867386826511*^9}, {3.453867492079711*^9, 3.453867529933299*^9}, 
   3.453867580709366*^9, {3.45386762441673*^9, 3.4538676571231337`*^9}, {
   3.4538678611324444`*^9, 3.453867913156847*^9}, {3.453867944490081*^9, 
   3.453867953712163*^9}, {3.4538682333492556`*^9, 3.4538682401903076`*^9}, 
   3.459842152047885*^9, 3.459846580752577*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"A1", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Purple", ",", "Thick", ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{"3", ",", "0", ",", "4"}], "}"}], "+", 
          RowBox[{"{", 
           RowBox[{"14", ",", "0", ",", "0"}], "}"}]}], " ", ",", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "0", ",", "1"}], "}"}], "+", 
          RowBox[{"{", 
           RowBox[{"3", ",", "0", ",", "4"}], "}"}], "+", 
          RowBox[{"{", 
           RowBox[{"14", ",", "0", ",", "0"}], "}"}]}]}], "}"}], "]"}]}], 
     "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4537092605*^9, 3.45370928775*^9}, {3.45370950875*^9, 
   3.453709509546875*^9}, 3.4538147350769224`*^9, {3.4538673409001107`*^9, 
   3.453867386826511*^9}, {3.453867492079711*^9, 3.453867529933299*^9}, 
   3.453867580709366*^9, {3.45386762441673*^9, 3.453867666376424*^9}, {
   3.4538679873548183`*^9, 3.4538679974663396`*^9}, {3.453868232589028*^9, 
   3.4538682415707216`*^9}, 3.459842154594059*^9, 3.4598465835026293`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"A2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"{", 
       RowBox[{"Purple", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "0", ",", "4"}], "}"}], "+", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"14", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Cos", "[", 
                  RowBox[{"\[Pi]", " ", 
                   RowBox[{"\[Tau]2", "/", "20"}]}], "]"}], "+", 
                 RowBox[{"0.08", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"3", "\[Pi]", " ", 
                    RowBox[{"\[Tau]2", "/", "20"}]}], "]"}]}]}], ")"}]}], ",",
               
              RowBox[{"12", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Sin", "[", 
                  RowBox[{"\[Pi]", " ", 
                   RowBox[{"\[Tau]2", "/", "20"}]}], "]"}], "+", 
                 RowBox[{"0.08", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"3", "\[Pi]", " ", 
                    RowBox[{"\[Tau]2", "/", "20"}]}], "]"}]}]}], ")"}]}], ",",
               "0"}], "}"}]}], " ", ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Sin", "[", 
               RowBox[{"\[Tau]2", " ", 
                RowBox[{"\[Pi]", "/", "80"}]}], "]"}], ",", "0", ",", "1"}], 
             "}"}], "+", 
            RowBox[{"{", 
             RowBox[{"3", ",", "0", ",", "4"}], "}"}], "+", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"14", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Cos", "[", 
                  RowBox[{"\[Pi]", " ", 
                   RowBox[{"\[Tau]2", "/", "20"}]}], "]"}], "+", 
                 RowBox[{"0.08", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"3", "\[Pi]", " ", 
                    RowBox[{"\[Tau]2", "/", "20"}]}], "]"}]}]}], ")"}]}], ",",
               
              RowBox[{"12", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Sin", "[", 
                  RowBox[{"\[Pi]", " ", 
                   RowBox[{"\[Tau]2", "/", "20"}]}], "]"}], "+", 
                 RowBox[{"0.08", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"3", "\[Pi]", " ", 
                    RowBox[{"\[Tau]2", "/", "20"}]}], "]"}]}]}], ")"}]}], ",",
               "0"}], "}"}]}]}], "}"}], "]"}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Tau]2", ",", "1", ",", "39"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4537092605*^9, 3.45370928775*^9}, {3.45370950875*^9, 
   3.453709509546875*^9}, 3.4538147350769224`*^9, {3.4538673409001107`*^9, 
   3.453867386826511*^9}, {3.453867492079711*^9, 3.453867529933299*^9}, 
   3.453867580709366*^9, {3.45386762441673*^9, 3.453867672836563*^9}, 
   3.4538681141233387`*^9, {3.453868218534813*^9, 3.453868227118387*^9}, 
   3.453868395214801*^9, 3.459842158702303*^9, {3.459845041985394*^9, 
   3.4598450813770275`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"A3", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "0", ",", "4"}], "}"}], "+", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"14", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Cos", "[", 
                  RowBox[{"\[Pi]", " ", 
                   RowBox[{"\[Tau]2", "/", "20"}]}], "]"}], "+", 
                 RowBox[{"0.08", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"3", "\[Pi]", " ", 
                    RowBox[{"\[Tau]2", "/", "20"}]}], "]"}]}]}], ")"}]}], ",",
               
              RowBox[{"12", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Sin", "[", 
                  RowBox[{"\[Pi]", " ", 
                   RowBox[{"\[Tau]2", "/", "20"}]}], "]"}], "+", 
                 RowBox[{"0.08", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"3", "\[Pi]", " ", 
                    RowBox[{"\[Tau]2", "/", "20"}]}], "]"}]}]}], ")"}]}], ",",
               "0"}], "}"}]}], " ", ",", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "0", ",", "0"}], "}"}], "+", 
            RowBox[{"{", 
             RowBox[{"3", ",", "0", ",", "4"}], "}"}], "+", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"14", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Cos", "[", 
                  RowBox[{"\[Pi]", " ", 
                   RowBox[{"\[Tau]2", "/", "20"}]}], "]"}], "+", 
                 RowBox[{"0.08", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"3", "\[Pi]", " ", 
                    RowBox[{"\[Tau]2", "/", "20"}]}], "]"}]}]}], ")"}]}], ",",
               
              RowBox[{"12", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Sin", "[", 
                  RowBox[{"\[Pi]", " ", 
                   RowBox[{"\[Tau]2", "/", "20"}]}], "]"}], "+", 
                 RowBox[{"0.08", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"3", "\[Pi]", " ", 
                    RowBox[{"\[Tau]2", "/", "20"}]}], "]"}]}]}], ")"}]}], ",",
               "0"}], "}"}]}]}], "}"}], "]"}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Tau]2", ",", "1", ",", "39"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.455439732234375*^9, 3.45543977003125*^9}, 
   3.4598421708708286`*^9, {3.4598450867677903`*^9, 3.4598451203461585`*^9}}],\


Cell[BoxData[
 RowBox[{
  RowBox[{"A4", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", "Thick", ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{"3", ",", "0", ",", "4"}], "}"}], "+", 
          RowBox[{"{", 
           RowBox[{"14", ",", "0", ",", "0"}], "}"}]}], " ", ",", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "0", ",", "0"}], "}"}], "+", 
          RowBox[{"{", 
           RowBox[{"3", ",", "0", ",", "4"}], "}"}], "+", 
          RowBox[{"{", 
           RowBox[{"14", ",", "0", ",", "0"}], "}"}]}]}], "}"}], "]"}]}], 
     "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.455439790984375*^9, 3.455439825578125*^9}, 
   3.4598421748072453`*^9, 3.459846586643315*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"L1", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"14", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Cos", "[", "t", "]"}], "+", 
          RowBox[{"0.08", 
           RowBox[{"Sin", "[", 
            RowBox[{"3", "t"}], "]"}]}]}], ")"}]}], ",", 
       RowBox[{"12", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Sin", "[", "t", "]"}], "+", 
          RowBox[{"0.08", 
           RowBox[{"Sin", "[", 
            RowBox[{"3", "t"}], "]"}]}]}], ")"}]}], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       RowBox[{"2", "\[Pi]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Directive", "[", 
        RowBox[{
         RowBox[{"Opacity", "[", "0.8", "]"}], ",", "Blue"}], "]"}], 
       "}"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4537092605*^9, 3.45370928775*^9}, {3.45370950875*^9, 
   3.453709509546875*^9}, 3.4538147350769224`*^9, {3.4538673409001107`*^9, 
   3.453867386826511*^9}, {3.453867492079711*^9, 3.453867529933299*^9}, 
   3.453867580709366*^9, {3.45386762441673*^9, 3.4538676791874723`*^9}, 
   3.4598421821177325`*^9, 3.4598465894558687`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"L2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ParametricPlot3D", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"14", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Cos", "[", 
             RowBox[{"\[Pi]", " ", 
              RowBox[{"\[Tau]2", "/", "20"}]}], "]"}], "+", 
            RowBox[{"0.08", 
             RowBox[{"Sin", "[", 
              RowBox[{"3", "\[Pi]", " ", 
               RowBox[{"\[Tau]2", "/", "20"}]}], "]"}]}]}], ")"}]}], ",", 
         RowBox[{"12", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Pi]", " ", 
              RowBox[{"\[Tau]2", "/", "20"}]}], "]"}], "+", 
            RowBox[{"0.08", 
             RowBox[{"Sin", "[", 
              RowBox[{"3", "\[Pi]", " ", 
               RowBox[{"\[Tau]2", "/", "20"}]}], "]"}]}]}], ")"}]}], ",", 
         "t"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "9"}], "}"}], ",", 
       RowBox[{"ColorFunction", "\[Rule]", "\"\<BlueGreenYellow\>\""}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Directive", "[", 
           RowBox[{"Opacity", "[", "0.8", "]"}], "]"}], ",", "Dotted"}], 
         "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Tau]2", ",", "1", ",", "40"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4537092605*^9, 3.45370928775*^9}, {3.45370950875*^9, 
   3.453709509546875*^9}, 3.4538147350769224`*^9, {3.4538673409001107`*^9, 
   3.453867386826511*^9}, {3.453867492079711*^9, 3.453867529933299*^9}, 
   3.453867580709366*^9, {3.45386762441673*^9, 3.453867683306981*^9}, {
   3.4598421866945972`*^9, 3.459842206267335*^9}, {3.459843146772812*^9, 
   3.459843149227429*^9}, {3.459843181731554*^9, 3.459843183701501*^9}, {
   3.459845129877348*^9, 3.45984514592412*^9}, 3.4598455106113887`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"T1", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Blue", " ", ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<c \[Element] \!\(\*SuperscriptBox[\(C\), \(sing\)]\)\>\"", ",", 
          "16"}], "]"}], ",", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{"0", ",", 
          RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "]"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.4537092605*^9, 3.45370928775*^9}, {3.45370950875*^9, 
   3.453709509546875*^9}, 3.4538147350769224`*^9, {3.4538673409001107`*^9, 
   3.453867386826511*^9}, {3.453867492079711*^9, 3.453867529933299*^9}, 
   3.453867580709366*^9, {3.45386762441673*^9, 3.453867687442094*^9}, {
   3.4540418549375*^9, 3.45404186303125*^9}, {3.45404218965625*^9, 
   3.454042216015625*^9}, {3.455440428921875*^9, 3.45544042975*^9}, {
   3.455440520359375*^9, 3.455440520765625*^9}, {3.455440590140625*^9, 
   3.455440600546875*^9}, {3.4554409325*^9, 3.455440932640625*^9}, {
   3.45544096340625*^9, 3.45544096390625*^9}, 3.459842213452857*^9, 
   3.459846593424695*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"T2", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{"Blue", " ", ",", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[Gamma]\>\"", ",", "16"}], "]"}], ",", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"14", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Cos", "[", 
              RowBox[{
               RowBox[{"1", 
                RowBox[{"\[Pi]", "/", "3"}]}], "+", "\[Pi]"}], "]"}], "+", 
             RowBox[{"0.08", 
              RowBox[{"Sin", "[", 
               RowBox[{"15", 
                RowBox[{"\[Pi]", "/", "4"}]}], "]"}]}]}], ")"}]}], ",", 
          RowBox[{"12", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"1", 
                RowBox[{"\[Pi]", "/", "3"}]}], "+", "\[Pi]"}], "]"}], "+", 
             RowBox[{"0.08", 
              RowBox[{"Sin", "[", 
               RowBox[{"15", 
                RowBox[{"\[Pi]", "/", "4"}]}], "]"}]}]}], ")"}]}], ",", "0"}],
          "}"}]}], "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4537092605*^9, 3.45370928775*^9}, {3.45370950875*^9, 
   3.453709509546875*^9}, 3.4538147350769224`*^9, {3.4538673409001107`*^9, 
   3.453867386826511*^9}, {3.453867492079711*^9, 3.453867529933299*^9}, 
   3.453867580709366*^9, {3.45386762441673*^9, 3.4538676902820587`*^9}, {
   3.454041911203125*^9, 3.454041916609375*^9}, {3.4540421944375*^9, 
   3.454042218140625*^9}, {3.45544043228125*^9, 3.45544043353125*^9}, {
   3.455440516890625*^9, 3.45544051771875*^9}, {3.455440603015625*^9, 
   3.455440603125*^9}, {3.45544093578125*^9, 3.45544093678125*^9}, {
   3.4554409699375*^9, 3.4554409709375*^9}, 3.459842216780066*^9, 
   3.459846596331001*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"T3", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"Text", "[", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<P \[Subset] \[DoubleStruckCapitalC]\>\"", ",", "16"}], 
       "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"14", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Cos", "[", "\[Tau]1", "]"}], "+", 
            RowBox[{"0.08", 
             RowBox[{"Sin", "[", 
              RowBox[{"3", "\[Tau]1"}], "]"}]}]}], ")"}]}], "+", "8.2"}], ",",
         
        RowBox[{"12", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Sin", "[", "\[Tau]1", "]"}], "+", 
           RowBox[{"0.08", 
            RowBox[{"Sin", "[", 
             RowBox[{"3", "\[Tau]1"}], "]"}]}]}], ")"}]}], ",", 
        RowBox[{"1", "+", "3.5"}]}], "}"}]}], "]"}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.4537092605*^9, 3.45370928775*^9}, {3.45370950875*^9, 
   3.453709509546875*^9}, 3.4538147350769224`*^9, {3.4538673409001107`*^9, 
   3.453867386826511*^9}, {3.453867492079711*^9, 3.453867529933299*^9}, 
   3.453867580709366*^9, {3.45386762441673*^9, 3.4538676926851053`*^9}, {
   3.4540419195625*^9, 3.45404192515625*^9}, {3.454042199203125*^9, 
   3.454042213734375*^9}, {3.45544043575*^9, 3.4554404365625*^9}, {
   3.4554405223125*^9, 3.4554405228125*^9}, {3.455440559625*^9, 
   3.45544060625*^9}, {3.45544094534375*^9, 3.455440945453125*^9}, {
   3.45544097584375*^9, 3.45544097684375*^9}, 3.459842220560275*^9, 
   3.459846599002927*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SPic", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"T1", ",", "T2", ",", "L1", ",", 
     RowBox[{"L2", "[", 
      RowBox[{"[", "40", "]"}], "]"}], ",", "P0", ",", "P1", ",", "SPo", ",", 
     "SP1", ",", "A0", ",", "A1", ",", "A4", ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "20"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ViewPoint", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", 
        RowBox[{"-", "60"}], ",", "40"}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.459842924895923*^9, 3.4598429283952737`*^9}, {
   3.4598429614985037`*^9, 3.4598430849696336`*^9}, {3.459843154464986*^9, 
   3.459843190408702*^9}, {3.4598441421314363`*^9, 3.4598441983709965`*^9}, 
   3.4598445742841787`*^9, {3.459845165783368*^9, 3.4598451665489883`*^9}, {
   3.459845291454438*^9, 3.4598452953762884`*^9}, 3.4598466026123714`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"EPic", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"T1", ",", "T2", ",", "L1", ",", 
     RowBox[{"L2", "[", 
      RowBox[{"[", "8", "]"}], "]"}], ",", 
     RowBox[{"L2", "[", 
      RowBox[{"[", "16", "]"}], "]"}], ",", 
     RowBox[{"L2", "[", 
      RowBox[{"[", "24", "]"}], "]"}], ",", 
     RowBox[{"L2", "[", 
      RowBox[{"[", "32", "]"}], "]"}], ",", 
     RowBox[{"L2", "[", 
      RowBox[{"[", "40", "]"}], "]"}], ",", "P0", ",", "P1", ",", 
     RowBox[{"P2", "[", 
      RowBox[{"[", "8", "]"}], "]"}], ",", 
     RowBox[{"P2", "[", 
      RowBox[{"[", "16", "]"}], "]"}], ",", 
     RowBox[{"P2", "[", 
      RowBox[{"[", "24", "]"}], "]"}], ",", 
     RowBox[{"P2", "[", 
      RowBox[{"[", "32", "]"}], "]"}], ",", 
     RowBox[{"P5", "[", 
      RowBox[{"[", "8", "]"}], "]"}], ",", 
     RowBox[{"P5", "[", 
      RowBox[{"[", "16", "]"}], "]"}], ",", 
     RowBox[{"P5", "[", 
      RowBox[{"[", "24", "]"}], "]"}], ",", 
     RowBox[{"P5", "[", 
      RowBox[{"[", "32", "]"}], "]"}], ",", 
     RowBox[{"SP2", "[", 
      RowBox[{"[", "8", "]"}], "]"}], ",", 
     RowBox[{"SP2", "[", 
      RowBox[{"[", "16", "]"}], "]"}], ",", 
     RowBox[{"SP2", "[", 
      RowBox[{"[", "24", "]"}], "]"}], ",", 
     RowBox[{"SP2", "[", 
      RowBox[{"[", "32", "]"}], "]"}], ",", "SPo", ",", "SP1", ",", "A0", ",",
      "A1", ",", "A4", ",", 
     RowBox[{"A2", "[", 
      RowBox[{"[", "8", "]"}], "]"}], ",", 
     RowBox[{"A2", "[", 
      RowBox[{"[", "16", "]"}], "]"}], ",", 
     RowBox[{"A2", "[", 
      RowBox[{"[", "24", "]"}], "]"}], ",", 
     RowBox[{"A2", "[", 
      RowBox[{"[", "32", "]"}], "]"}], ",", 
     RowBox[{"A3", "[", 
      RowBox[{"[", "8", "]"}], "]"}], ",", 
     RowBox[{"A3", "[", 
      RowBox[{"[", "16", "]"}], "]"}], ",", 
     RowBox[{"A3", "[", 
      RowBox[{"[", "24", "]"}], "]"}], ",", 
     RowBox[{"A3", "[", 
      RowBox[{"[", "32", "]"}], "]"}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "20"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ViewPoint", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6"}], ",", 
        RowBox[{"-", "60"}], ",", "40"}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.459846287107893*^9, 3.4598465074230433`*^9}, 
   3.4598466061749396`*^9}],

Cell[BoxData[
 RowBox[{"ListAnimate", "[", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"{", "SPic", "}"}], ",", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Show", "[", 
       RowBox[{"T1", ",", "T2", ",", "L1", ",", 
        RowBox[{"L2", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"P2", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"P5", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", "SPo", ",", 
        RowBox[{"SP2", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"A2", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"A3", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"Axes", "\[Rule]", "False"}], ",", 
        RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "20"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"ViewPoint", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "6"}], ",", 
           RowBox[{"-", "60"}], ",", "40"}], "}"}]}], ",", 
        RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "39"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", "SPic", "}"}], ",", 
    RowBox[{"{", "SPic", "}"}], ",", 
    RowBox[{"{", "SPic", "}"}], ",", 
    RowBox[{"{", "SPic", "}"}], ",", 
    RowBox[{"{", "EPic", "}"}], ",", 
    RowBox[{"{", "EPic", "}"}], ",", 
    RowBox[{"{", "EPic", "}"}], ",", 
    RowBox[{"{", "EPic", "}"}], ",", 
    RowBox[{"{", "EPic", "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.45370873065625*^9, 3.453708754171875*^9}, {
   3.453709028*^9, 3.45370908259375*^9}, {3.4537092026875*^9, 
   3.4537092038125*^9}, {3.45370932721875*^9, 3.45370934775*^9}, 
   3.453709524421875*^9, {3.453710088828125*^9, 3.4537100904375*^9}, {
   3.4537101271875*^9, 3.45371014059375*^9}, {3.45378318609375*^9, 
   3.453783203625*^9}, {3.4537844868125*^9, 3.453784496*^9}, {
   3.453785204296875*^9, 3.453785236703125*^9}, {3.453787031765625*^9, 
   3.45378705146875*^9}, {3.45378715303125*^9, 3.45378715421875*^9}, {
   3.453787214171875*^9, 3.453787215046875*^9}, {3.453787949671875*^9, 
   3.45378796325*^9}, {3.4537894008125*^9, 3.453789461078125*^9}, {
   3.45378949171875*^9, 3.453789494671875*^9}, {3.45378954675*^9, 
   3.453789551484375*^9}, {3.4537942105*^9, 3.45379421190625*^9}, {
   3.453808530085389*^9, 3.453808531005789*^9}, {3.4538135050055227`*^9, 
   3.4538135140223227`*^9}, {3.4538139639669223`*^9, 
   3.4538139719509225`*^9}, {3.4538143689241223`*^9, 
   3.4538143707021227`*^9}, {3.4538146753159227`*^9, 3.453814677212922*^9}, {
   3.45543977865625*^9, 3.45543977975*^9}, {3.45543983328125*^9, 
   3.45543983421875*^9}, {3.459842262330027*^9, 3.4598423033656063`*^9}, {
   3.4598423382169375`*^9, 3.4598423396385126`*^9}, {3.4598423815359116`*^9, 
   3.459842511586564*^9}, {3.4598425587016115`*^9, 3.459842563138174*^9}, {
   3.459842614205517*^9, 3.459842615127215*^9}, {3.459842666867279*^9, 
   3.459842675787441*^9}, 3.4598442148991785`*^9, {3.459844270529476*^9, 
   3.459844359794156*^9}, {3.4598444330092583`*^9, 3.4598444824914165`*^9}, {
   3.459845171955203*^9, 3.459845173111446*^9}, {3.459845307313712*^9, 
   3.459845361969612*^9}, {3.459845414063278*^9, 3.459845416157055*^9}, {
   3.4598465208764267`*^9, 3.459846538626768*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.4538132367947226`*^9, 3.453813236841522*^9}}]
},
WindowSize->{1272, 905},
WindowMargins->{{8, Automatic}, {Automatic, 1}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 117, 2, 31, "Input"],
Cell[688, 25, 345, 6, 31, "Input"],
Cell[1036, 33, 698, 17, 31, "Input"],
Cell[1737, 52, 1868, 50, 52, "Input"],
Cell[3608, 104, 1421, 36, 52, "Input"],
Cell[5032, 142, 1504, 39, 31, "Input"],
Cell[6539, 183, 2446, 62, 52, "Input"],
Cell[8988, 247, 1949, 49, 52, "Input"],
Cell[10940, 298, 1055, 26, 31, "Input"],
Cell[11998, 326, 4111, 102, 132, "Input"],
Cell[16112, 430, 1214, 28, 31, "Input"],
Cell[17329, 460, 1164, 27, 31, "Input"],
Cell[18496, 489, 3203, 80, 112, "Input"],
Cell[21702, 571, 2734, 71, 112, "Input"],
Cell[24441, 645, 830, 23, 31, "Input"],
Cell[25274, 670, 1298, 34, 52, "Input"],
Cell[26575, 706, 1962, 48, 52, "Input"],
Cell[28540, 756, 1169, 25, 55, "Input"],
Cell[29712, 783, 1870, 44, 52, "Input"],
Cell[31585, 829, 1562, 38, 31, "Input"],
Cell[33150, 869, 1360, 32, 52, "Input"],
Cell[34513, 903, 2760, 77, 72, "Input"],
Cell[37276, 982, 3696, 77, 92, "Input"],
Cell[40975, 1061, 94, 1, 31, "Input"]
}
]
*)

(* End of internal cache information *)