(* 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[     19551,        349]
NotebookOptionsPosition[     19176,        333]
NotebookOutlinePosition[     19521,        348]
CellTagsIndexPosition[     19478,        345]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"#17", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"r", "[", "t_", "]"}], ":=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        SuperscriptBox["t", "2"], "-", "1"}], ",", "t", ",", "0"}], "}"}]}], 
    ";", 
    RowBox[{"Row", "[", 
     RowBox[{"{", 
      RowBox[{"\"\<r(t)=\>\"", ",", 
       RowBox[{"r", "[", "t", "]"}], ",", "\"\<  r(1)=\>\"", ",", 
       RowBox[{"r", "[", "1", "]"}]}], "}"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.415501313421875*^9, 3.415501316921875*^9}, 
   3.415501409265625*^9, {3.4155014579375*^9, 3.415501458859375*^9}, {
   3.415501531640625*^9, 3.415501533296875*^9}, {3.41550156496875*^9, 
   3.4155015676875*^9}, {3.415501611765625*^9, 3.415501679875*^9}, {
   3.415501727234375*^9, 3.415501728921875*^9}, {3.4155018101875*^9, 
   3.4155018243125*^9}, {3.415501862125*^9, 3.41550187409375*^9}, {
   3.41550190553125*^9, 3.415501920359375*^9}, {3.41550213065625*^9, 
   3.415502168609375*^9}, {3.415502241484375*^9, 3.415502300328125*^9}, 
   3.415502365015625*^9, 3.41550242146875*^9, {3.415502486765625*^9, 
   3.415502492421875*^9}, {3.415502566984375*^9, 3.41550258665625*^9}, {
   3.415502639765625*^9, 3.4155027050625*^9}, {3.415502775765625*^9, 
   3.41550277771875*^9}, {3.4155028489375*^9, 3.415502943734375*^9}, {
   3.4155031594375*^9, 3.415503484984375*^9}, {3.415503550359375*^9, 
   3.4155036001875*^9}, {3.415503633421875*^9, 3.4155037200625*^9}, {
   3.415503753796875*^9, 3.4155037908125*^9}, 3.41550385921875*^9, {
   3.415503937859375*^9, 3.415503957109375*^9}, {3.415504018234375*^9, 
   3.415504032609375*^9}, {3.415504182359375*^9, 3.415504218375*^9}, {
   3.41554191959375*^9, 3.41554198190625*^9}, {3.415542293625*^9, 
   3.415542303875*^9}, {3.415542468578125*^9, 3.41554264221875*^9}, {
   3.415542676671875*^9, 3.415542712109375*^9}, {3.4155428355*^9, 
   3.4155430575625*^9}, {3.415543093*^9, 3.415543182953125*^9}, {
   3.41554321775*^9, 3.415543309625*^9}, {3.4155433421875*^9, 
   3.41554335175*^9}, {3.41554592415625*^9, 3.41554595065625*^9}, {
   3.4155460613125*^9, 3.415546190640625*^9}, {3.415547009046875*^9, 
   3.415547331875*^9}, {3.4155477319375*^9, 3.415547765109375*^9}, {
   3.415547796765625*^9, 3.415547811671875*^9}, {3.415547886265625*^9, 
   3.41554791709375*^9}, {3.41554797903125*^9, 3.4155481101875*^9}, {
   3.41554814284375*^9, 3.4155481860625*^9}, {3.415548277421875*^9, 
   3.4155483191875*^9}, {3.415548404390625*^9, 3.41554841315625*^9}, {
   3.415548448625*^9, 3.415548498375*^9}, {3.41554853675*^9, 
   3.41554856565625*^9}, {3.41554864553125*^9, 3.415548811171875*^9}, {
   3.415548878109375*^9, 3.4155489811875*^9}, {3.415549046765625*^9, 
   3.41554919425*^9}, {3.4155492503125*^9, 3.415549358671875*^9}, {
   3.415549393765625*^9, 3.415549526890625*^9}, {3.415549578984375*^9, 
   3.41554971278125*^9}, {3.41554975953125*^9, 3.415549822796875*^9}, {
   3.415549856328125*^9, 3.415549911859375*^9}, {3.41554995528125*^9, 
   3.415549958203125*^9}, {3.415549993375*^9, 3.415550028375*^9}, {
   3.41555005934375*^9, 3.415550125984375*^9}, {3.415550233*^9, 
   3.415550249796875*^9}, {3.4155504761875*^9, 3.41555048228125*^9}, {
   3.41555059275*^9, 3.415550795234375*^9}, {3.415550855609375*^9, 
   3.415550922953125*^9}, {3.415550957890625*^9, 3.415551104078125*^9}, {
   3.41555114984375*^9, 3.4155511570625*^9}, {3.4155511898125*^9, 
   3.41555121928125*^9}, {3.415551266671875*^9, 3.415551281390625*^9}, {
   3.415551375421875*^9, 3.4155514050625*^9}, {3.41555264803125*^9, 
   3.41555267134375*^9}, {3.415552889078125*^9, 3.4155529211875*^9}, 
   3.415554901203125*^9, {3.41555498953125*^9, 3.4155549938125*^9}, {
   3.41555576934375*^9, 3.415555804609375*^9}, 3.415556191796875*^9, {
   3.4702474354375*^9, 3.470247491875*^9}, {3.470247529484375*^9, 
   3.47024756715625*^9}, {3.4702475975*^9, 3.47024762071875*^9}, {
   3.47024767040625*^9, 3.47024772809375*^9}, {3.470247798171875*^9, 
   3.470247974015625*^9}, {3.47024801590625*^9, 3.47024802025*^9}, {
   3.47024805984375*^9, 3.470248131046875*^9}, {3.470248288234375*^9, 
   3.47024829865625*^9}, {3.470248360359375*^9, 3.470248397109375*^9}, {
   3.47024843371875*^9, 3.47024843571875*^9}, 3.4702485380625*^9, {
   3.470248585*^9, 3.470248601046875*^9}, {3.470251678609375*^9, 
   3.470251701234375*^9}, {3.47025181459375*^9, 3.47025200809375*^9}, {
   3.470252047359375*^9, 3.470252434921875*^9}, {3.47025247034375*^9, 
   3.4702524751875*^9}, 3.471195204734375*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"T", "[", "t_", "]"}], ":=", " ", 
   FractionBox[
    RowBox[{
     RowBox[{"r", "'"}], "[", "t", "]"}], 
    RowBox[{"Simplify", "[", "   ", 
     RowBox[{
      RowBox[{"Norm", "[", 
       RowBox[{
        RowBox[{"r", "'"}], "[", "t", "]"}], "]"}], ",", "  ", 
      RowBox[{"Element", "[", 
       RowBox[{"t", ",", "Reals"}], "]"}], ",", " ", 
      RowBox[{"Assumptions", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0.5", "\[LessEqual]", "t", "\[LessEqual]", "2"}], "}"}]}]}], 
     "]"}]]}], ";", " ", 
  RowBox[{"Row", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<T(t)=\>\"", ",", 
     RowBox[{"T", "[", "t", "]"}], ",", "\"\<  T(1)=\>\"", ",", 
     RowBox[{"T", "[", "1", "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.415501313421875*^9, 3.415501316921875*^9}, 
   3.415501409265625*^9, {3.4155014579375*^9, 3.415501458859375*^9}, {
   3.415501531640625*^9, 3.415501533296875*^9}, {3.41550156496875*^9, 
   3.4155015676875*^9}, {3.415501611765625*^9, 3.415501679875*^9}, {
   3.415501727234375*^9, 3.415501728921875*^9}, {3.4155018101875*^9, 
   3.4155018243125*^9}, {3.415501862125*^9, 3.41550187409375*^9}, {
   3.41550190553125*^9, 3.415501920359375*^9}, {3.41550213065625*^9, 
   3.415502168609375*^9}, {3.415502241484375*^9, 3.415502300328125*^9}, 
   3.415502365015625*^9, 3.41550242146875*^9, {3.415502486765625*^9, 
   3.415502492421875*^9}, {3.415502566984375*^9, 3.41550258665625*^9}, {
   3.415502639765625*^9, 3.4155027050625*^9}, {3.415502775765625*^9, 
   3.41550277771875*^9}, {3.4155028489375*^9, 3.415502943734375*^9}, {
   3.4155031594375*^9, 3.415503484984375*^9}, {3.415503550359375*^9, 
   3.4155036001875*^9}, {3.415503633421875*^9, 3.4155037200625*^9}, {
   3.415503753796875*^9, 3.4155037908125*^9}, 3.41550385921875*^9, {
   3.415503937859375*^9, 3.415503957109375*^9}, {3.415504018234375*^9, 
   3.415504032609375*^9}, {3.415504182359375*^9, 3.415504218375*^9}, {
   3.41554191959375*^9, 3.41554198190625*^9}, {3.415542293625*^9, 
   3.415542303875*^9}, {3.415542468578125*^9, 3.41554264221875*^9}, {
   3.415542676671875*^9, 3.415542712109375*^9}, {3.4155428355*^9, 
   3.4155430575625*^9}, {3.415543093*^9, 3.415543182953125*^9}, {
   3.41554321775*^9, 3.415543309625*^9}, {3.4155433421875*^9, 
   3.41554335175*^9}, {3.41554592415625*^9, 3.41554595065625*^9}, {
   3.4155460613125*^9, 3.415546190640625*^9}, {3.415547009046875*^9, 
   3.415547331875*^9}, {3.4155477319375*^9, 3.415547765109375*^9}, {
   3.415547796765625*^9, 3.415547811671875*^9}, {3.415547886265625*^9, 
   3.41554791709375*^9}, {3.41554797903125*^9, 3.4155481101875*^9}, {
   3.41554814284375*^9, 3.4155481860625*^9}, {3.415548277421875*^9, 
   3.4155483191875*^9}, {3.415548404390625*^9, 3.41554841315625*^9}, {
   3.415548448625*^9, 3.415548498375*^9}, {3.41554853675*^9, 
   3.41554856565625*^9}, {3.41554864553125*^9, 3.415548811171875*^9}, {
   3.415548878109375*^9, 3.4155489811875*^9}, {3.415549046765625*^9, 
   3.41554919425*^9}, {3.4155492503125*^9, 3.415549358671875*^9}, {
   3.415549393765625*^9, 3.415549526890625*^9}, {3.415549578984375*^9, 
   3.41554971278125*^9}, {3.41554975953125*^9, 3.415549822796875*^9}, {
   3.415549856328125*^9, 3.415549911859375*^9}, {3.41554995528125*^9, 
   3.415549958203125*^9}, {3.415549993375*^9, 3.415550028375*^9}, {
   3.41555005934375*^9, 3.415550125984375*^9}, {3.415550233*^9, 
   3.415550249796875*^9}, {3.4155504761875*^9, 3.41555048228125*^9}, {
   3.41555059275*^9, 3.415550795234375*^9}, {3.415550855609375*^9, 
   3.415550922953125*^9}, {3.415550957890625*^9, 3.415551104078125*^9}, {
   3.41555114984375*^9, 3.4155511570625*^9}, {3.4155511898125*^9, 
   3.41555121928125*^9}, {3.415551266671875*^9, 3.415551281390625*^9}, {
   3.415551375421875*^9, 3.4155514050625*^9}, {3.41555264803125*^9, 
   3.41555267134375*^9}, {3.415552889078125*^9, 3.4155529211875*^9}, 
   3.415554901203125*^9, {3.41555498953125*^9, 3.4155549938125*^9}, {
   3.41555576934375*^9, 3.415555804609375*^9}, 3.415556191796875*^9, {
   3.4702474354375*^9, 3.470247491875*^9}, {3.470247529484375*^9, 
   3.47024756715625*^9}, {3.4702475975*^9, 3.47024762071875*^9}, {
   3.47024767040625*^9, 3.47024772809375*^9}, {3.470247798171875*^9, 
   3.470247974015625*^9}, {3.47024801590625*^9, 3.47024802025*^9}, {
   3.47024805984375*^9, 3.470248131046875*^9}, {3.470248288234375*^9, 
   3.47024829865625*^9}, {3.470248360359375*^9, 3.470248397109375*^9}, {
   3.47024843371875*^9, 3.47024843571875*^9}, 3.4702485380625*^9, {
   3.470248585*^9, 3.470248601046875*^9}, {3.470251678609375*^9, 
   3.470251701234375*^9}, {3.47025181459375*^9, 3.47025200809375*^9}, {
   3.470252047359375*^9, 3.470252434921875*^9}, {3.47025247034375*^9, 
   3.4702524751875*^9}, {3.471195204734375*^9, 3.47119520765625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Nv", "[", "t_", "]"}], ":=", 
   RowBox[{"Simplify", "[", " ", 
    FractionBox[
     RowBox[{
      RowBox[{"T", "'"}], "[", "t", "]"}], 
     RowBox[{"Simplify", "[", "   ", 
      RowBox[{
       RowBox[{"Norm", "[", 
        RowBox[{
         RowBox[{"T", "'"}], "[", "t", "]"}], "]"}], ",", "  ", 
       RowBox[{"Element", "[", 
        RowBox[{"t", ",", "Reals"}], "]"}], ",", " ", 
       RowBox[{"Assumptions", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.5", "\[LessEqual]", "t", "\[LessEqual]", "2"}], "}"}]}]}],
       "]"}]], "]"}]}], ";", 
  RowBox[{"Row", "[", 
   RowBox[{"{", 
    RowBox[{"\"\<N(t)=\>\"", ",", 
     RowBox[{"Nv", "[", "t", "]"}], ",", "\"\<  N(1)=\>\"", ",", 
     RowBox[{"Nv", "[", "1", "]"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.415501313421875*^9, 3.415501316921875*^9}, 
   3.415501409265625*^9, {3.4155014579375*^9, 3.415501458859375*^9}, {
   3.415501531640625*^9, 3.415501533296875*^9}, {3.41550156496875*^9, 
   3.4155015676875*^9}, {3.415501611765625*^9, 3.415501679875*^9}, {
   3.415501727234375*^9, 3.415501728921875*^9}, {3.4155018101875*^9, 
   3.4155018243125*^9}, {3.415501862125*^9, 3.41550187409375*^9}, {
   3.41550190553125*^9, 3.415501920359375*^9}, {3.41550213065625*^9, 
   3.415502168609375*^9}, {3.415502241484375*^9, 3.415502300328125*^9}, 
   3.415502365015625*^9, 3.41550242146875*^9, {3.415502486765625*^9, 
   3.415502492421875*^9}, {3.415502566984375*^9, 3.41550258665625*^9}, {
   3.415502639765625*^9, 3.4155027050625*^9}, {3.415502775765625*^9, 
   3.41550277771875*^9}, {3.4155028489375*^9, 3.415502943734375*^9}, {
   3.4155031594375*^9, 3.415503484984375*^9}, {3.415503550359375*^9, 
   3.4155036001875*^9}, {3.415503633421875*^9, 3.4155037200625*^9}, {
   3.415503753796875*^9, 3.4155037908125*^9}, 3.41550385921875*^9, {
   3.415503937859375*^9, 3.415503957109375*^9}, {3.415504018234375*^9, 
   3.415504032609375*^9}, {3.415504182359375*^9, 3.415504218375*^9}, {
   3.41554191959375*^9, 3.41554198190625*^9}, {3.415542293625*^9, 
   3.415542303875*^9}, {3.415542468578125*^9, 3.41554264221875*^9}, {
   3.415542676671875*^9, 3.415542712109375*^9}, {3.4155428355*^9, 
   3.4155430575625*^9}, {3.415543093*^9, 3.415543182953125*^9}, {
   3.41554321775*^9, 3.415543309625*^9}, {3.4155433421875*^9, 
   3.41554335175*^9}, {3.41554592415625*^9, 3.41554595065625*^9}, {
   3.4155460613125*^9, 3.415546190640625*^9}, {3.415547009046875*^9, 
   3.415547331875*^9}, {3.4155477319375*^9, 3.415547765109375*^9}, {
   3.415547796765625*^9, 3.415547811671875*^9}, {3.415547886265625*^9, 
   3.41554791709375*^9}, {3.41554797903125*^9, 3.4155481101875*^9}, {
   3.41554814284375*^9, 3.4155481860625*^9}, {3.415548277421875*^9, 
   3.4155483191875*^9}, {3.415548404390625*^9, 3.41554841315625*^9}, {
   3.415548448625*^9, 3.415548498375*^9}, {3.41554853675*^9, 
   3.41554856565625*^9}, {3.41554864553125*^9, 3.415548811171875*^9}, {
   3.415548878109375*^9, 3.4155489811875*^9}, {3.415549046765625*^9, 
   3.41554919425*^9}, {3.4155492503125*^9, 3.415549358671875*^9}, {
   3.415549393765625*^9, 3.415549526890625*^9}, {3.415549578984375*^9, 
   3.41554971278125*^9}, {3.41554975953125*^9, 3.415549822796875*^9}, {
   3.415549856328125*^9, 3.415549911859375*^9}, {3.41554995528125*^9, 
   3.415549958203125*^9}, {3.415549993375*^9, 3.415550028375*^9}, {
   3.41555005934375*^9, 3.415550125984375*^9}, {3.415550233*^9, 
   3.415550249796875*^9}, {3.4155504761875*^9, 3.41555048228125*^9}, {
   3.41555059275*^9, 3.415550795234375*^9}, {3.415550855609375*^9, 
   3.415550922953125*^9}, {3.415550957890625*^9, 3.415551104078125*^9}, {
   3.41555114984375*^9, 3.4155511570625*^9}, {3.4155511898125*^9, 
   3.41555121928125*^9}, {3.415551266671875*^9, 3.415551281390625*^9}, {
   3.415551375421875*^9, 3.4155514050625*^9}, {3.41555264803125*^9, 
   3.41555267134375*^9}, {3.415552889078125*^9, 3.4155529211875*^9}, 
   3.415554901203125*^9, {3.41555498953125*^9, 3.4155549938125*^9}, {
   3.41555576934375*^9, 3.415555804609375*^9}, 3.415556191796875*^9, {
   3.4702474354375*^9, 3.470247491875*^9}, {3.470247529484375*^9, 
   3.47024756715625*^9}, {3.4702475975*^9, 3.47024762071875*^9}, {
   3.47024767040625*^9, 3.47024772809375*^9}, {3.470247798171875*^9, 
   3.470247974015625*^9}, {3.47024801590625*^9, 3.47024802025*^9}, {
   3.47024805984375*^9, 3.470248131046875*^9}, {3.470248288234375*^9, 
   3.47024829865625*^9}, {3.470248360359375*^9, 3.470248397109375*^9}, {
   3.47024843371875*^9, 3.47024843571875*^9}, 3.4702485380625*^9, {
   3.470248585*^9, 3.470248601046875*^9}, {3.470251678609375*^9, 
   3.470251701234375*^9}, {3.47025181459375*^9, 3.47025200809375*^9}, {
   3.470252047359375*^9, 3.470252434921875*^9}, {3.47025247034375*^9, 
   3.4702524751875*^9}, {3.471195204734375*^9, 3.471195210234375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"B", "[", "t_", "]"}], ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"T", "[", "t", "]"}], "\[Cross]", 
     RowBox[{"Nv", "[", "t", "]"}]}], 
    RowBox[{"Row", "[", 
     RowBox[{"{", 
      RowBox[{"\"\<B(t)=\>\"", ",", 
       RowBox[{"B", "[", "t", "]"}], ",", "\"\<  B(1)=\>\"", ",", 
       RowBox[{"B", "[", "1", "]"}]}], "}"}], "]"}]}]}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.415501313421875*^9, 3.415501316921875*^9}, 
   3.415501409265625*^9, {3.4155014579375*^9, 3.415501458859375*^9}, {
   3.415501531640625*^9, 3.415501533296875*^9}, {3.41550156496875*^9, 
   3.4155015676875*^9}, {3.415501611765625*^9, 3.415501679875*^9}, {
   3.415501727234375*^9, 3.415501728921875*^9}, {3.4155018101875*^9, 
   3.4155018243125*^9}, {3.415501862125*^9, 3.41550187409375*^9}, {
   3.41550190553125*^9, 3.415501920359375*^9}, {3.41550213065625*^9, 
   3.415502168609375*^9}, {3.415502241484375*^9, 3.415502300328125*^9}, 
   3.415502365015625*^9, 3.41550242146875*^9, {3.415502486765625*^9, 
   3.415502492421875*^9}, {3.415502566984375*^9, 3.41550258665625*^9}, {
   3.415502639765625*^9, 3.4155027050625*^9}, {3.415502775765625*^9, 
   3.41550277771875*^9}, {3.4155028489375*^9, 3.415502943734375*^9}, {
   3.4155031594375*^9, 3.415503484984375*^9}, {3.415503550359375*^9, 
   3.4155036001875*^9}, {3.415503633421875*^9, 3.4155037200625*^9}, {
   3.415503753796875*^9, 3.4155037908125*^9}, 3.41550385921875*^9, {
   3.415503937859375*^9, 3.415503957109375*^9}, {3.415504018234375*^9, 
   3.415504032609375*^9}, {3.415504182359375*^9, 3.415504218375*^9}, {
   3.41554191959375*^9, 3.41554198190625*^9}, {3.415542293625*^9, 
   3.415542303875*^9}, {3.415542468578125*^9, 3.41554264221875*^9}, {
   3.415542676671875*^9, 3.415542712109375*^9}, {3.4155428355*^9, 
   3.4155430575625*^9}, {3.415543093*^9, 3.415543182953125*^9}, {
   3.41554321775*^9, 3.415543309625*^9}, {3.4155433421875*^9, 
   3.41554335175*^9}, {3.41554592415625*^9, 3.41554595065625*^9}, {
   3.4155460613125*^9, 3.415546190640625*^9}, {3.415547009046875*^9, 
   3.415547331875*^9}, {3.4155477319375*^9, 3.415547765109375*^9}, {
   3.415547796765625*^9, 3.415547811671875*^9}, {3.415547886265625*^9, 
   3.41554791709375*^9}, {3.41554797903125*^9, 3.4155481101875*^9}, {
   3.41554814284375*^9, 3.4155481860625*^9}, {3.415548277421875*^9, 
   3.4155483191875*^9}, {3.415548404390625*^9, 3.41554841315625*^9}, {
   3.415548448625*^9, 3.415548498375*^9}, {3.41554853675*^9, 
   3.41554856565625*^9}, {3.41554864553125*^9, 3.415548811171875*^9}, {
   3.415548878109375*^9, 3.4155489811875*^9}, {3.415549046765625*^9, 
   3.41554919425*^9}, {3.4155492503125*^9, 3.415549358671875*^9}, {
   3.415549393765625*^9, 3.415549526890625*^9}, {3.415549578984375*^9, 
   3.41554971278125*^9}, {3.41554975953125*^9, 3.415549822796875*^9}, {
   3.415549856328125*^9, 3.415549911859375*^9}, {3.41554995528125*^9, 
   3.415549958203125*^9}, {3.415549993375*^9, 3.415550028375*^9}, {
   3.41555005934375*^9, 3.415550125984375*^9}, {3.415550233*^9, 
   3.415550249796875*^9}, {3.4155504761875*^9, 3.41555048228125*^9}, {
   3.41555059275*^9, 3.415550795234375*^9}, {3.415550855609375*^9, 
   3.415550922953125*^9}, {3.415550957890625*^9, 3.415551104078125*^9}, {
   3.41555114984375*^9, 3.4155511570625*^9}, {3.4155511898125*^9, 
   3.41555121928125*^9}, {3.415551266671875*^9, 3.415551281390625*^9}, {
   3.415551375421875*^9, 3.4155514050625*^9}, {3.41555264803125*^9, 
   3.41555267134375*^9}, {3.415552889078125*^9, 3.4155529211875*^9}, 
   3.415554901203125*^9, {3.41555498953125*^9, 3.4155549938125*^9}, {
   3.41555576934375*^9, 3.415555804609375*^9}, 3.415556191796875*^9, {
   3.4702474354375*^9, 3.470247491875*^9}, {3.470247529484375*^9, 
   3.47024756715625*^9}, {3.4702475975*^9, 3.47024762071875*^9}, {
   3.47024767040625*^9, 3.47024772809375*^9}, {3.470247798171875*^9, 
   3.470247974015625*^9}, {3.47024801590625*^9, 3.47024802025*^9}, {
   3.47024805984375*^9, 3.470248131046875*^9}, {3.470248288234375*^9, 
   3.47024829865625*^9}, {3.470248360359375*^9, 3.470248397109375*^9}, {
   3.47024843371875*^9, 3.47024843571875*^9}, 3.4702485380625*^9, {
   3.470248585*^9, 3.470248601046875*^9}, {3.470251678609375*^9, 
   3.470251701234375*^9}, {3.47025181459375*^9, 3.47025200809375*^9}, {
   3.470252047359375*^9, 3.470252434921875*^9}, {3.47025247034375*^9, 
   3.4702524751875*^9}, {3.471195204734375*^9, 3.471195210234375*^9}}]
},
WindowSize->{1276, 907},
WindowMargins->{{0, Automatic}, {Automatic, 26}},
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, 4502, 73, 54, "Input"],
Cell[5050, 95, 4799, 80, 49, "Input"],
Cell[9852, 177, 4848, 81, 49, "Input"],
Cell[14703, 260, 4469, 71, 52, "Input"]
}
]
*)

(* End of internal cache information *)