(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     47140,       1072]
NotebookOptionsPosition[     45282,       1006]
NotebookOutlinePosition[     45779,       1026]
CellTagsIndexPosition[     45736,       1023]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Rotation", " ", "of", " ", "general", " ", "triangle", " ", "into", " ", 
     "xy", " ", "plane", " ", "with", " ", "one", " ", "point"}], ",", " ", 
    RowBox[{"O", " ", "atom"}], ",", " ", 
    RowBox[{"at", " ", "0", "rigine", " ", "by", " ", "translation"}], ",", 
    " ", 
    RowBox[{
     RowBox[{
      RowBox[{"one", " ", "leg", " ", "on", " ", "x"}], "-", 
      RowBox[{"axis", " ", "O"}], " ", "-", " ", 
      RowBox[{"C", " ", "atoms"}]}], ";", " ", 
     RowBox[{"example", ":", " ", 
      RowBox[{
      "COH", " ", "in", " ", "Vitamine", " ", "A", "    ", "ES", " ", "8.3", 
       ".2013"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Clear", "[", 
     RowBox[{"T1", ",", "U", ",", "T", ",", "P", ",", "p"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.8910058089999993`", ",", 
         RowBox[{"-", "1.2609385707599998`"}], ",", "2.215514762399999`"}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.3556894324000002`"}], ",", 
         RowBox[{"-", "1.02001740302`"}], ",", 
         RowBox[{"-", "0.6789785517999993`"}]}], "}"}]}], "}"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.5716510170347843`*^9, 3.5716510826640997`*^9}, {
   3.5716511262193766`*^9, 3.5716512306927595`*^9}, {3.571651274435237*^9, 
   3.571651362856192*^9}, {3.5716514621659665`*^9, 3.5716515259076786`*^9}, {
   3.571651568979354*^9, 3.5716521347299476`*^9}, {3.571652232401719*^9, 
   3.571652378308776*^9}, {3.571652412753636*^9, 3.571652478757352*^9}, {
   3.571652545307069*^9, 3.5716525770999246`*^9}, 3.5716526669248824`*^9, 
   3.5716527375618067`*^9, {3.5716527820062847`*^9, 3.5716528145791416`*^9}, {
   3.571658921974269*^9, 3.5716589240022726`*^9}, {3.571658982455575*^9, 
   3.5716589854039803`*^9}, {3.571659202322361*^9, 3.571659204989966*^9}, {
   3.571659361723441*^9, 3.5716594007391095`*^9}, {3.5716608398884373`*^9, 
   3.571660843523244*^9}, {3.571667293318076*^9, 3.5716673002132883`*^9}, {
   3.571677324192623*^9, 3.5716774997709312`*^9}, 3.5716781072047987`*^9, {
   3.5716781806965275`*^9, 3.5716782034569674`*^9}, {3.5716783802208776`*^9, 
   3.571678450873402*^9}, {3.5717165445765185`*^9, 3.571716567336959*^9}, 
   3.5717197685873814`*^9, {3.571719848802722*^9, 3.571719857772738*^9}, {
   3.571720700829419*^9, 3.5717207082550316`*^9}, 3.571721050207632*^9}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"rotate", " ", "p1", " ", "around", " ", "x"}], "-", 
    RowBox[{"axis", " ", "until", " ", "the", " ", "z"}], "-", "comp"}], " ", 
   "=", " ", "0"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.5716510170347843`*^9, 3.5716510826640997`*^9}, {
   3.5716511262193766`*^9, 3.5716512306927595`*^9}, {3.571651274435237*^9, 
   3.571651362856192*^9}, {3.5716514621659665`*^9, 3.5716515259076786`*^9}, {
   3.571651568979354*^9, 3.5716521347299476`*^9}, {3.571652232401719*^9, 
   3.571652378308776*^9}, {3.571652412753636*^9, 3.571652478757352*^9}, {
   3.571652545307069*^9, 3.5716525770999246`*^9}, 3.5716526669248824`*^9, 
   3.5716527375618067`*^9, {3.5716527820062847`*^9, 3.5716528099459333`*^9}, {
   3.571653332843252*^9, 3.5716533405340652`*^9}, {3.571653579417285*^9, 
   3.5716535853140955`*^9}, {3.5716667591731386`*^9, 3.57166689118057*^9}, {
   3.571667308590503*^9, 3.571667311601309*^9}, 3.5716674264019103`*^9, 
   3.5716675428717146`*^9, 3.571673022609868*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"T1", "=", 
  RowBox[{"-", 
   RowBox[{"ArcTan", "[", 
    RowBox[{
     RowBox[{"p", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", 
     RowBox[{"p", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5716510170347843`*^9, 3.5716510826640997`*^9}, {
   3.5716511262193766`*^9, 3.5716512306927595`*^9}, {3.571651274435237*^9, 
   3.571651362856192*^9}, {3.5716514621659665`*^9, 3.5716515259076786`*^9}, {
   3.571651568979354*^9, 3.5716521347299476`*^9}, {3.571652232401719*^9, 
   3.571652378308776*^9}, {3.571652412753636*^9, 3.571652478757352*^9}, {
   3.571652545307069*^9, 3.5716525770999246`*^9}, 3.5716526669248824`*^9, 
   3.5716527375618067`*^9, {3.5716527820062847`*^9, 3.5716528099459333`*^9}, {
   3.571653332843252*^9, 3.5716533405340652`*^9}, {3.571653579417285*^9, 
   3.5716535853140955`*^9}, {3.5716667591731386`*^9, 3.57166689118057*^9}, {
   3.571667308590503*^9, 3.571667311601309*^9}, 3.5716674264019103`*^9, 
   3.5716675428717146`*^9, {3.571673022609868*^9, 3.571673026353874*^9}, {
   3.5716738009420347`*^9, 3.5716738278676825`*^9}, 3.5717170630746293`*^9, 
   3.5717171030886993`*^9}],

Cell[BoxData["1.053376974006295`"], "Output",
 CellChangeTimes->{3.572335177222085*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"U", "=", "p"}], ";"}]], "Input",
 CellChangeTimes->{{3.5716510170347843`*^9, 3.5716510826640997`*^9}, {
   3.5716511262193766`*^9, 3.5716512306927595`*^9}, {3.571651274435237*^9, 
   3.571651362856192*^9}, {3.5716514621659665`*^9, 3.5716515259076786`*^9}, {
   3.571651568979354*^9, 3.5716521347299476`*^9}, {3.571652232401719*^9, 
   3.571652378308776*^9}, {3.571652412753636*^9, 3.571652478757352*^9}, {
   3.571652545307069*^9, 3.5716525770999246`*^9}, 3.5716526669248824`*^9, 
   3.5716527375618067`*^9, {3.5716527820062847`*^9, 3.5716528099459333`*^9}, {
   3.571653332843252*^9, 3.5716533405340652`*^9}, {3.571653579417285*^9, 
   3.5716535853140955`*^9}, {3.5716667591731386`*^9, 3.57166689118057*^9}, {
   3.571667308590503*^9, 3.571667311601309*^9}, 3.5716674264019103`*^9, 
   3.5716675428717146`*^9, 3.571673022609868*^9, {3.5717198949632034`*^9, 
   3.5717199009848137`*^9}, 3.5717202478670235`*^9, {3.571720351872406*^9, 
   3.571720354664811*^9}, {3.571720689690999*^9, 3.5717206908922014`*^9}, {
   3.5717207780183544`*^9, 3.57172078140356*^9}, {3.5717208152088194`*^9, 
   3.5717208187500257`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"T", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "3", "}"}], ",", 
     RowBox[{"{", "3", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"T", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", "1.0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"T", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"T", "[", 
     RowBox[{"[", 
      RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", 
    RowBox[{"Cos", "[", "T1", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"T", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", 
   RowBox[{"Sin", "[", "T1", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"T", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "2"}], "]"}], "]"}], "=", 
   RowBox[{"-", 
    RowBox[{"T", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "3"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "T", "]"}]}], "Input",
 CellChangeTimes->{{3.5716510170347843`*^9, 3.5716510826640997`*^9}, {
   3.5716511262193766`*^9, 3.5716512306927595`*^9}, {3.571651274435237*^9, 
   3.571651362856192*^9}, {3.5716514621659665`*^9, 3.5716515259076786`*^9}, {
   3.571651568979354*^9, 3.5716521347299476`*^9}, {3.571652232401719*^9, 
   3.571652378308776*^9}, {3.571652412753636*^9, 3.571652478757352*^9}, {
   3.571652545307069*^9, 3.5716525770999246`*^9}, 3.5716526669248824`*^9, 
   3.5716527375618067`*^9, {3.5716527820062847`*^9, 3.571652801459519*^9}, {
   3.5716528498352036`*^9, 3.571652858399619*^9}, {3.5716529333577504`*^9, 
   3.5716529342001514`*^9}, {3.571652969768214*^9, 3.5716532517387094`*^9}, {
   3.5716533648857083`*^9, 3.571653366430111*^9}, 3.571657597719143*^9, {
   3.571657731333378*^9, 3.571657878441636*^9}, {3.5716591457098618`*^9, 
   3.5716591461310625`*^9}, {3.5716592919757185`*^9, 3.571659294970924*^9}, {
   3.5716666093316755`*^9, 3.5716666223264985`*^9}, {3.5716673183873205`*^9, 
   3.5716673186837215`*^9}, 3.571717114039919*^9, {3.5717197685873814`*^9, 
   3.5717198063706474`*^9}, {3.571719923199253*^9, 3.571719930266065*^9}, {
   3.5717208975769644`*^9, 3.571720908793384*^9}, {3.5717210122839656`*^9, 
   3.5717210127519665`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1.`", "0", "0"},
     {"0", "0.4946389506381359`", "0.8690985608730484`"},
     {"0", 
      RowBox[{"-", "0.8690985608730484`"}], "0.4946389506381359`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.5723351772376847`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p", "=", 
  RowBox[{"U", ".", "T"}]}]], "Input",
 CellChangeTimes->{{3.5716510170347843`*^9, 3.5716510826640997`*^9}, {
   3.5716511262193766`*^9, 3.5716512306927595`*^9}, {3.571651274435237*^9, 
   3.571651362856192*^9}, {3.5716514621659665`*^9, 3.5716515259076786`*^9}, {
   3.571651568979354*^9, 3.5716521347299476`*^9}, {3.571652232401719*^9, 
   3.571652378308776*^9}, {3.571652412753636*^9, 3.571652478757352*^9}, {
   3.571652545307069*^9, 3.5716525770999246`*^9}, 3.5716526669248824`*^9, {
   3.57165915589668*^9, 3.5716591635562935`*^9}, {3.5717163047416973`*^9, 
   3.57171631212051*^9}, {3.5717176106979914`*^9, 3.571717639963642*^9}, {
   3.5717178428731985`*^9, 3.571717911076519*^9}, {3.571718139070919*^9, 
   3.5717181610825577`*^9}, {3.57172037146604*^9, 3.5717203897804728`*^9}, {
   3.5717204559089885`*^9, 3.5717204701986136`*^9}, {3.572335128596799*^9, 
   3.572335166723266*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.8910058089999993`", ",", 
     RowBox[{"-", "2.5492100230547097`"}], ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.3556894324000002`"}], ",", "0.08555894437059663`", ",", 
     RowBox[{"-", "1.2223448953982992`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5723351772532845`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Rotate", " ", "p1", " ", "around", " ", "z"}], "-", 
   RowBox[{"axis", " ", "to", " ", "make", " ", "y"}], "-", 
   RowBox[{"comp", " ", "to", " ", "0"}]}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.571657528938622*^9, 3.5716575406698427`*^9}, {
   3.571658470103875*^9, 3.5716585072475405`*^9}, {3.57165863791337*^9, 
   3.5716586547769995`*^9}, {3.5716595085508995`*^9, 
   3.5716595093153005`*^9}, {3.5716595400317545`*^9, 
   3.5716595405465555`*^9}, {3.5716595715282097`*^9, 3.571659962823697*^9}, {
   3.5716669073265986`*^9, 3.571666964407099*^9}, {3.571667060846468*^9, 
   3.571667121109374*^9}, {3.571667254910809*^9, 3.5716672710880375`*^9}, 
   3.5716675639317517`*^9, {3.5716728084526916`*^9, 3.5716728130547*^9}, 
   3.5716730371958933`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"T1", ",", "T1", ",", "U", ",", "V", ",", "T"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"T1", "=", 
  RowBox[{"ArcTan", "[", 
   RowBox[{
    RowBox[{"p", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", 
    RowBox[{"p", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.571657528938622*^9, 3.5716575406698427`*^9}, {
   3.571658470103875*^9, 3.5716585072475405`*^9}, {3.57165863791337*^9, 
   3.5716586547769995`*^9}, {3.5716595085508995`*^9, 
   3.5716595093153005`*^9}, {3.5716595400317545`*^9, 
   3.5716595405465555`*^9}, {3.5716595715282097`*^9, 3.571659962823697*^9}, {
   3.5716669073265986`*^9, 3.571666964407099*^9}, {3.571667060846468*^9, 
   3.571667121109374*^9}, {3.571667254910809*^9, 3.5716672710880375`*^9}, 
   3.5716675639317517`*^9, {3.5716728084526916`*^9, 3.5716728130547*^9}, {
   3.5716730371958933`*^9, 3.5716730409399*^9}, 3.5716732176102104`*^9, 
   3.5716733652332697`*^9, {3.5716734033597364`*^9, 3.5716734637786427`*^9}, {
   3.5716740082975993`*^9, 3.5716740130400076`*^9}, 3.5716740558776827`*^9, {
   3.571675848820032*^9, 3.5716758536404405`*^9}, {3.571716495732833*^9, 
   3.571716500225641*^9}, 3.5717171313559494`*^9, 3.5717172354861317`*^9, {
   3.5717173286962957`*^9, 3.571717332175102*^9}, {3.5717173666043625`*^9, 
   3.5717173730627737`*^9}, {3.571717464400934*^9, 3.5717174651497355`*^9}, 
   3.571719768602981*^9, {3.571721118722953*^9, 3.571721158908623*^9}, {
   3.5717221478099604`*^9, 3.5717221537691708`*^9}, {3.5717221941108418`*^9, 
   3.571722237026517*^9}, 3.5717222852306013`*^9}],

Cell[BoxData[
 RowBox[{"-", "1.2345471182378898`"}]], "Output",
 CellChangeTimes->{3.5723351772688847`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"U", "=", "p"}], ";"}]], "Input",
 CellChangeTimes->{{3.571720561599174*^9, 3.5717205635647774`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"T", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "3", "}"}], ",", 
     RowBox[{"{", "3", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"T", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"T", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", 
    RowBox[{"Cos", "[", "T1", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"T", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "2"}], "]"}], "]"}], "=", 
   RowBox[{"-", 
    RowBox[{"Sin", "[", "T1", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"T", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", 
   RowBox[{"-", 
    RowBox[{"T", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"T", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "T", "]"}]}], "Input",
 CellChangeTimes->{{3.571657627093994*^9, 3.5716576537544413`*^9}, 
   3.571657963227785*^9, {3.57165800620586*^9, 3.5716581329092827`*^9}, {
   3.5716581674633436`*^9, 3.5716581993029995`*^9}, {3.571658274760332*^9, 
   3.571658296990371*^9}, {3.571659302536937*^9, 3.5716593120217543`*^9}, {
   3.571666638082526*^9, 3.5716666389249277`*^9}, {3.5716672827880583`*^9, 
   3.5716672849876623`*^9}, 3.5717171371279593`*^9, {3.571719768602981*^9, 
   3.5717197686185813`*^9}, {3.5717198192874703`*^9, 3.571719822547876*^9}, {
   3.5717199686421328`*^9, 3.5717199942885776`*^9}, {3.571720995420336*^9, 
   3.571721001785147*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.32994867848144904`", "0.9439988715927289`", "0"},
     {
      RowBox[{"-", "0.9439988715927289`"}], "0.32994867848144904`", "0"},
     {"0", "0", "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.572335177284485*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p", "=", 
  RowBox[{"U", ".", "T"}]}]], "Input",
 CellChangeTimes->{{3.571657627093994*^9, 3.5716576537544413`*^9}, 
   3.571657963227785*^9, {3.57165800620586*^9, 3.5716581329092827`*^9}, {
   3.5716581674633436`*^9, 3.5716581993029995`*^9}, {3.571658274760332*^9, 
   3.571658296990371*^9}, {3.571659187424335*^9, 3.5716591941635466`*^9}, 
   3.5716730759307613`*^9, {3.571716344942968*^9, 3.571716352150181*^9}, {
   3.571717662958083*^9, 3.5717176709452972`*^9}, {3.57171792901655*^9, 
   3.57171796282181*^9}, {3.571718201081028*^9, 3.571718215838654*^9}, {
   3.5717204104037085`*^9, 3.5717204429141655`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "2.700437574415364`", ",", "1.1102230246251565`*^-16", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5280754835921541`"}], ",", 
     RowBox[{"-", "1.251539233788441`"}], ",", 
     RowBox[{"-", "1.2223448953982992`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.572335177300085*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"rotate", " ", "p2", " ", "around", " ", "x"}], "-", 
    RowBox[{"axis", " ", "to", " ", "make", " ", "z"}], "-", "comp"}], " ", 
   "=", " ", "0"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.5716606820473604`*^9, 3.571660691968978*^9}, 
   3.571660959275447*^9, {3.5716669809899282`*^9, 3.571667011753182*^9}, {
   3.5716671327313943`*^9, 3.571667190357896*^9}, {3.5716672271895604`*^9, 
   3.5716672372047777`*^9}, {3.5716674632179747`*^9, 3.5716674704407873`*^9}, 
   3.5716676177986465`*^9, 3.5716728498551645`*^9, {3.5716729371217175`*^9, 
   3.571672942004526*^9}, {3.5716729911134124`*^9, 3.571672996667022*^9}, 
   3.5716730605959344`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"T1", ",", "T1", ",", "U", ",", "V", ",", "T"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"T1", "=", 
  RowBox[{"-", 
   RowBox[{"ArcTan", "[", 
    RowBox[{
     RowBox[{"p", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "3"}], "]"}], "]"}], "/", 
     RowBox[{"p", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.5716606820473604`*^9, 3.571660691968978*^9}, 
   3.571660959275447*^9, {3.5716669809899282`*^9, 3.571667011753182*^9}, {
   3.5716671327313943`*^9, 3.571667190357896*^9}, {3.5716672271895604`*^9, 
   3.5716672372047777`*^9}, {3.5716674632179747`*^9, 3.5716674704407873`*^9}, 
   3.5716676177986465`*^9, 3.5716728498551645`*^9, {3.5716729371217175`*^9, 
   3.571672942004526*^9}, {3.5716729911134124`*^9, 3.571672996667022*^9}, 
   3.5716730605959344`*^9, 3.5716732321182356`*^9, 3.571673520406742*^9, {
   3.5717164705855885`*^9, 3.5717164745323954`*^9}, 3.5717171518855853`*^9, 
   3.5717197686185813`*^9}],

Cell[BoxData[
 RowBox[{"-", "0.773597698323206`"}]], "Output",
 CellChangeTimes->{3.572335177315685*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"U", "=", "p"}], ";"}]], "Input",
 CellChangeTimes->{{3.5716606820473604`*^9, 3.571660691968978*^9}, 
   3.571660959275447*^9, {3.5716669809899282`*^9, 3.571667011753182*^9}, {
   3.5716671327313943`*^9, 3.571667190357896*^9}, {3.5716672271895604`*^9, 
   3.5716672372047777`*^9}, {3.5716674632179747`*^9, 3.5716674704407873`*^9}, 
   3.5716676177986465`*^9, 3.5716728498551645`*^9, {3.5716729371217175`*^9, 
   3.571672942004526*^9}, {3.5716729911134124`*^9, 3.571672996667022*^9}, 
   3.5716730605959344`*^9, 3.5717200106842065`*^9, {3.571720584780815*^9, 
   3.571720611706462*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"T", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "3", "}"}], ",", 
     RowBox[{"{", "3", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"T", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", "1.0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"T", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"T", "[", 
     RowBox[{"[", 
      RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", 
    RowBox[{"Cos", "[", "T1", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"T", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", 
   RowBox[{"Sin", "[", "T1", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"T", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "2"}], "]"}], "]"}], "=", 
   RowBox[{"-", 
    RowBox[{"T", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "3"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "T", "]"}]}], "Input",
 CellChangeTimes->{{3.571666647941743*^9, 3.571666651064948*^9}, {
   3.5716673391977572`*^9, 3.571667339494158*^9}, 3.5717171599507995`*^9, {
   3.5717197686185813`*^9, 3.5717197686185813`*^9}, {3.5717198313618917`*^9, 
   3.5717198347314973`*^9}, {3.571720029326239*^9, 3.5717200364086514`*^9}, {
   3.5717210276031923`*^9, 3.5717210359960074`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1.`", "0", "0"},
     {"0", "0.7154015443235817`", 
      RowBox[{"-", "0.6987135538827298`"}]},
     {"0", "0.6987135538827298`", "0.7154015443235817`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.5723351773312845`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"p", "=", 
   RowBox[{"U", ".", "T"}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.571660822463207*^9, 3.5716608285472174`*^9}, {
  3.5717163759558225`*^9, 3.571716384239437*^9}, {3.5717176785425105`*^9, 
  3.5717176892909293`*^9}, {3.571717975957033*^9, 3.571718009029091*^9}, {
  3.571718222905466*^9, 3.571718236914291*^9}, {3.571720622829282*^9, 
  3.571720660971349*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2.700437574415364`", ",", "7.942552663604349`*^-17", ",", 
     RowBox[{"-", "7.757278751382766`*^-17"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5280754835921541`"}], ",", 
     RowBox[{"-", "1.7494220465679622`"}], ",", "1.1102230246251565`*^-16"}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5723351773468847`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"c1", "=", "20"}], ";", " ", 
  RowBox[{"c2", "=", "21"}], ";", " ", 
  RowBox[{"c3", "=", "51"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v2", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"u2", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.2557`", ",", "0.255`", ",", "0.255`", ",", "0.2557`", ",", "0.255`", 
     ",", "0.2557`", ",", "0.2547`", ",", "0.2547`", ",", "0.2557`", ",", 
     "0.2547`", ",", "0.2557`", ",", "0.2557`", ",", "0.2547`", ",", 
     "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", 
     "0.2547`", ",", "0.2557`", ",", "0.255`", ",", "0.178`", ",", "0.5693`", 
     ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", 
     "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", 
     "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", 
     "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", 
     "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", 
     "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", 
     "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", 
     "0.5241`"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plota", " ", "=", " ", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"p", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"u2", "[", 
         RowBox[{"[", "c1", "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"p", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"u2", "[", 
         RowBox[{"[", "c3", "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{"v2", ",", 
        RowBox[{"u2", "[", 
         RowBox[{"[", "c2", "]"}], "]"}]}], "]"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Plotc", "=", 
    RowBox[{"Graphics3D", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Tube", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"p", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "v2"}], "}"}], ",", "0.02"}],
         "]"}], ",", 
       RowBox[{"Tube", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"p", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"p", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "0.02"}], "]"}], 
       ",", 
       RowBox[{"Tube", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"p", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", "v2"}], "}"}], ",", "0.02"}],
         "]"}]}], "}"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plotb0", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"Text", "[", 
     RowBox[{"c3", ",", 
      RowBox[{"p", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plotb1", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"Text", "[", 
     RowBox[{"c1", ",", 
      RowBox[{"p", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plotb2", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"Text", "[", 
     RowBox[{"c2", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
  "Plota", ",", "Plotb0", ",", "Plotb1", ",", "Plotb2", ",", "Plotc", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "Automatic"}], ",", " ", 
     RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.5716775916862926`*^9, 3.5716776153203344`*^9}, {
  3.57167792031647*^9, 3.571677980626176*^9}, {3.5716780600303154`*^9, 
  3.5716780606231165`*^9}, {3.571681187032473*^9, 3.5716812002300963`*^9}, {
  3.571716393895854*^9, 3.57171643149192*^9}, {3.5717200555342855`*^9, 
  3.5717201809585056`*^9}}],

Cell[BoxData[
 Graphics3DBox[{
   {Opacity[0.5], 
    SphereBox[{2.700437574415364, 
     7.942552663604349*^-17, -7.757278751382766*^-17}, 0.255], 
    SphereBox[{-0.5280754835921541, -1.7494220465679622`, 
     1.1102230246251565`*^-16}, 0.5241], SphereBox[{0, 0, 0}, 0.178]}, 
   Text3DBox["51", {-0.5280754835921541, -1.7494220465679622`, 
    1.1102230246251565`*^-16}, {1, 0}], 
   Text3DBox["20", {2.700437574415364, 
    7.942552663604349*^-17, -7.757278751382766*^-17}, {1, 0}], 
   Text3DBox["21", {0, 0, 0}, {1, 0}], {
    TubeBox[{{2.700437574415364, 
      7.942552663604349*^-17, -7.757278751382766*^-17}, {0, 0, 0}}, 0.02], 
    TubeBox[{{2.700437574415364, 
     7.942552663604349*^-17, -7.757278751382766*^-17}, {-0.5280754835921541, \
-1.7494220465679622`, 1.1102230246251565`*^-16}}, 0.02], 
    TubeBox[{{-0.5280754835921541, -1.7494220465679622`, 
      1.1102230246251565`*^-16}, {0, 0, 0}}, 0.02]}},
  AspectRatio->Automatic,
  Axes->Automatic,
  AxesLabel->{
    FormBox["xl", TraditionalForm], 
    FormBox["yl", TraditionalForm], 
    FormBox["zl", TraditionalForm]},
  Boxed->False,
  PlotRange->Automatic,
  SphericalRegion->True]], "Output",
 CellChangeTimes->{
  3.572335177362485*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztfHd0Y9d55y+aUbNkFTfZlr2Wy2azu0ksWY4TJS6J417SHMt7kk02juQi
x5FjuSlxbEsTWdKojKQpEtuQQ85wWIYzQxKNIEAQIFGIThIsAHsZdnCGvZPY
333vPvIRA1Ljc3L27B/G4Uc8PLx37/1+96v3fg9f/voPv/2Nf/76Dx956Ov3
fPaxr//Ltx956Af3fOZ7j/HUgd8AfuPbpC/cA3GcArR/Kf6lHhH/xJlfH//6
+D/x+B3i3wEhZ1/WnX2XcqycVo4EfeFX+P6d4t916a3eneGuL/4KrWYe638W
Eu+Wva+srKCnpwcLCwv4fDpPuEH53uVy4cEHH8RnP/tZvPLKK3jooYf0l961
x6VPPvkkiouLr5M98RBms1n59Fnd7W9Rjm/evv3w4cPK7eLawcFB5dtoNKrc
r7U1OzurdCNGrW/rTXIoExMTyvXimscff1y5n9ce0N1OJpRPWpOia3FONPkZ
XZO367jTmhTDk03ekKHJAxk4/rSuyVv3AExcyyZv1jV57tw53SgPKreIc+LF
S/Wt3rxPqxzZHfJrAYd2emRkROP5NvH1QdHsh3Rt3pA2N2kjVb4VwxSvt2Tg
+rY0GU9v/0DamNPm/np5uxA6TUXelCYCYh5u3B78wQxKdZ+uQ14q+hLyIfp6
9NFHFUCEnAl+3q1rXBOG2zM0ea/aZPt2vx/YX0reew3Y6NrtyADbe3XDT58K
wUpbWxvenwGbW6Tk6LvZmYXODIN49/7iqSlMfn6+0qn49P4MuN2ybRXvV/uK
Z+jrHfv3pQmAZqHEpw/Ic1KulU+f2LuHt+0vYr+jfH39rgGIl4DuE7pZvhrB
t+4hT+KlydNvv45tE3gJMymu/bhu7q/bUagbM8qUprm/K8cmGhJaIjvWLJBm
1MSnj6ntH9tuX9op7aXA9mfXNvd6a/d78pwmcOLTR9WWj2eQ4+syzNEX9u9V
s7GaBAj6sG4kGoKy1xNySvU9aL1/fv+e/iQDbn/0q/HyqT3kTXrDT+ssgfha
fPrDq2bm+l0zox3/qU6a9rJgmqf8tA4fzVPKfrIzjPoTctSv4zjj8XiaR9vR
Q9HDA2oPWducfHx/vL8kpyo9bBBfP6DXvj1b+HP5dbpHkjz/gdpI6z7GU5uJ
r+p41Pj5ffX26LVphfiozelXdfOsIfYRtbXQHhIi9ff6fVrTG3bZWmD/mbsx
Q2sPZrDWqhbDl8GPiZcYIy97g+5OLTb7WgZOVe2EW3m7ac/wQQ7qGxm4ky24
9kf+QAbuHspg0TUupSd6TbwdSPfbGdr/J/m1GFn6wLOysu7XiXuaQt2zv9v5
QQajed/erb1bx5Om+dpEXyeQ/1EGc7hPe3frLEmGcEX5VrMkP85gE+/du+m3
74/oQd1ANQn6cQYwPrh3D2/dv4cnMkDxQd2863zr1W2IF294KgPPqqtFeZpM
Z0pX+FJbOLh9mYwpZCMlOnu0lyXXZFs0rrH+pM7aaZ0KxKS1u3ubPzXaR3EG
ddbN85E0NkW3mdLSN6qtFe0P/NEMhuBuCUOaL1aaVxMWFFyDbdacr96b7TB7
IMOQb1Ibz/vVLbfWl94PvPNa+sreX+UzxbInMkD29gyQ7RFryI5fvQZpKshg
Y+/a5uq67SNdUKiaCOXT8QxORrAm3nmuSCfsIjuVsL177yG/ojNAeyWW2kQX
SuOXLhji/fZtaXrDNguqk8KRazNE+sGdkrfoA00dYJkyQdUY4fn9O7sxw51n
dDOiyZkS6e6ZyMq+nt3HdnG6NR+tT5qLdXJGv6VT6ow9/FJn44S4pguUzD6M
Gez2rXu3+rfbM/SbGcRJF7NkyjIMGdDap6+/yaxE79t/muwZzP6OXN21b9Pv
ydC0eMmmHToV0fmD9+/b5rv2MY1iXgRmdbq5Sr9GzJN0ge/bt6PXScO1CdFC
AvFJw0rIhaa1mdLO9+7b8etk55kyvwZ5TlyqSd096RKmxQh7SFg4zRqK9mUb
39ONKN1lkqeWDCyqU4/vXoNNE+MR42jNYPj/i9rMI9dmt/QBVEsGdmRr39y/
tcQe+O+y4DKkzjxLfPXIr0X3WhgkhiCZk438gw6edC+ljzvFayCNIdGiqgz4
+33mRweP3vr1Z7Add+skZm94JjNMk7oyjv+1x53iva2tbTqNAzE8eedXr0FO
tMW1yxmGrior/mp/1dGAEPAKuMUnbVDiFgG9cAWytT/XmZq9YogbMjSZVP7v
ds4av2okI7cvrp4xGWtry90avjutXu2IJQTSEv+WeDuwY3z3TjSl2m3qutKU
V7VA+O8ZfMnd+wuHflEkGAwqn7Qe9C5RuiTFEO7p218nbVIu0qIIfWbz1r2H
n54naQIimrbb7cpFt2QwZ2/Zu8k37aPDmpRsrwuLa2/NgMeb925f26TYdxnq
LuUrzfYNhxK4FOrCCCmcZUQzqZXUnmVCJymRbUJ3jgm9uSb055kwmG/CcIEJ
l04ZMVpkxHStDwutXViMdWEplsCCFGgNMcGepnlv1smd4mZu33/WDkq7Pj2S
RC/HGa32wcWxuTkuHymQZeaYLRyzhWOuQVt2DTpzapDIsaI714rePCv6860Y
LKjBcGENRopqMHqmBuPFFkyctWCyxIxkqRnTZSZcLjfhyjkjFlw+rHZ0YX0y
eUWyImyhZmG1iZasfGQfK8ZJUBn4AKbIQIIAmzh4KwdeR3Jy0I0ctJfkz7Ii
lFWLKKk124a2XBs68uxInLSjO9+O3vw69J+yY7DQjuHTdoycsWPsrB3jJXZM
ltowVVaL5LlaXK6w4sp5K2Yu1GD2ogVzF82YrzRhoUqQEeuJLmxMJWd0ZllL
2+5UGbr/dSyB9DCqJL0P7ZyVhmovqsiYkbNRQ7KRoXoy1EBmPFk2NGXZEcyu
QyTbgRZSW049matH/GQ9uguc6C10op80eNqJ4TNOjJx1YqzEifEyJybL6zF1
rh7T5x24fMGBmYt1mK20Y67KhvnqWixUW7FoqLkOS0YLZ2rZZCIZFdro7sJm
Mol0TyK4kMzeu4/4bbuAD277wjYyW5ZlQAWZvUhGDZxBCxmtJaMOMunKqqNo
Oiia9RRNJ8LZLjSTYjkNaM9tJMON6CpoRE9hI/pPuzF4xo3hs25cKmnEaFkj
xssbMVnRiOT5RkxfbMCVygbMVLkwW+3CvMGJBWM9Fk0OLJnqsGy2Y9liw4ql
Fis1NVitsWDVasaa1UTiTAe92JxOSk+we4lCLm78js5laVmK4P5ql3UfJijA
Ds5zKVkvp/BeIOtVZN3E+bWSbTvZdpLtxiwXBboB/uxGhHLciOa60ZrnQXue
F535XiROedFT5EXfGR8Gin0YKvHhUpkPo+U+jFf4MHneh+RFL6YrvbhS5cWM
wYM5owfzJjcWzG4sWhqxVNOAZasLK1YnVmvrsWarI9lJNqzbraQabNjNJBOP
CYXNgK2+BKYyBCOqAcL/3MNuSherJt0flggYFBRKiUAFEagkAgYiYCH3NnLv
IPeurEZKvpuS70Uwx4tIng8tJ5sQy29CR4Ef8UI/uk8H0FscQP/ZAIZKA7hU
HsBoRQBj5wOYuBjAVGUA09UBXDH4MWP0Y87UhHlLExZqfFiy+rBc68WKzYNV
mxtr9kas1zVg3eHChsNJcmCjvg6b9TaSlVRDMpOMJAM2I15sXU5OZNCM23Um
eh8zIIMJFZiP6IAxk6wUERvOE5QqgmIiKFYCYicgziwPRcRHEWmihvgRzgkg
mhdAa34Q7adCiBeF0HUmjJ6zYfSVhDFYFsbwuQhGzkcwdjGMicowpqrDmDaE
cdkUxow5jDlLCPM1ISxYg1iyBbFsD2Clzo/VuiasOXxYr/dhw+klubHpaiQ1
YKvBSaon1ZEIUoOV7xaSCVsuAuSkyAwkxqQDyLQUftO2E1PNBP7rtUU7+qoE
Vbse2NYsIVOlNCZlhO4cobtA6KoJnYWw2ShLDsLmImyerABlK0jZClG2wmjJ
j6DtVAQdRVEkzkTRfbYZvaXNGChvxlBFMy5daMFoZQvGq1owaWhG0tiMy+Zm
zFiaMVvTjPlaOjdbFEv2CJbrIlh1hLFWH8a6M4QNV5DwBLDV6Cc1YdNNw+L2
YMvtRsrDZNJD/+EhlB5C6bHx2IqUm9rlNvJ6QtlAKK8kcQk7SY6W8worI7VR
jc2uym/latrrrDvcJuO1HRxrSDbi6KAoOqmnjdRTDz2Ulx6qiaIYoCgGKYoh
imIY/pwownlRRPOJW00PJlvGkWwdx+L4vFwkeSfW+iaw3jeO9f5xbAyMY83V
jPWGKDYao8QjQjyYFHtCSHkZyXqJl6+J5EOqyUsiVk3EqslJcpCY/ftqSRZe
a+J9xIlYbc0kxzLkPTfsi02mhRNdcnmHDAxVbEwSGzuxqSc2LmLjppx5KWdN
MBOXWmLiICaurAjc2VEMh8cxOzr/dgnx1sw8tobHsdXOrLWJAWlTBCk/WfeT
9UCA5CeR7aCH1Egi20GyHSDbAYqHv4b3UDx8NEVke2soAT3Pmnpdvy/P75bm
SQsytYUiLaiV+YpqzN6oeK8dubCTnOS/gTrmoZlqojMP0IYHqWdh6lkU/aFx
uZzBgH1uHqkRDjFERkNkNExGw2Q0TEbDZDRMRsNkNEw9CJHJEOc2SB0IcG6b
yKSXczuUUJcYblVC2T7GEYMkEXoHaTWjpBipk3TJQKcXTmCWtDKa1BYj9T7r
4L7QvEumGAIK7SVAFTBpa0/aOpSKzy3SdO9gU0p9KaNMnKOtuUBcqoiLr7qb
g5+XZo5SNU9cxohLMzFpJibNxKS5iUR5b6a8Rznx0XqkInXEhrIepHkNMCxr
Ih4zybCEVwsgDRyClVRP8pACEpc2UjzbgJ4cAwZyDRjON2C0wIDxQgMmiwyY
tXmxNp68MYPa7I/Tjv3OtCWxs6qvnL9egipyM+21137fbfJaES2qBl0D1U3y
EVg/lS6ExuouGXfwjgkC2UpMWmk8YhSsVgpWKwWrhSC2UHuaCWKUIIYJYtCI
NRVEv8znhHzvBKcG2joDZdnANMNIG2eirzAjQoplm9GZbUFPrgUD+RZcKjRj
7LQZk2dNzIOMzIGMmDlHUEmLLq/IgZBeoCfYPZju+/aw3nvMQKb8/boMCAs0
hVXTENZ2fm6T2u+oblLcZSlNmRBZgW4pVbm+OoHJkbnflSqXmiS47ZTQdkpo
GyW0jcC2UWNjBLaFwDYT2AjjRQK73uFtUm57h5w/g0LlpItKimOigTTTOIq8
TeRsNqY0dqYzdehScjQH87M65mZ1mCyzY7rCxlzMirnKGqYqZiwZmJsYCG61
AUt0pBpAaQGG3IHR7SWp4qjJ5H8C0jdsx7d6eabRuENmBSMDw1J863aB2xYa
lcVvtyA1NYpUJ0W2g6B1UO/biWobUY0R1RaGVER1LWjA+nACHpkKq7bYoCMj
7YyJNqaGMltLma2jzNYzg3AhwsSpjRlEPN+N3iIPBs96MFLmwUSFmwmSGzPV
jZg3urBkrmcSVMcEqBbrtRaSkccGrND3ZnKL2pYv32/WCfDBHYB31ykd2G0N
Dm4fScusQastv7T4WpX4o5T+VcNtYmROrcng5C7OITUcRypOBY4Ttk7C1k7Y
2ug6Wpi8RE1Y8hvU6o97MiCmevHzNCwGIlVLT+akcfEq2UYTo0E/Ok4FmGEE
0V8SwqVzIYxfCCFZHcQVU5BZRABLtQyQ7QyOHW5mCgyInQ4GvrV8Z87kMGAq
Gs4UuGqrZjddg9pfn3565+JdAApHpS1C3CHvbAv1SK32kPwCPFlLxPmaHkGq
i8gliFycyHXQybTZsNXKDDjMib+UkHsc78kAnUWZmHIluG5kbuJlMOhHQ3YQ
TdlhBoERxE41I17cgp6yFgxWtDJwbsWEoRXTllbM1rZg0d6MlfooA8AIg7YQ
g14Gxl6OxcdefRR8LwWQOYRmOPVLgzdes7Rl0n2t2ldEN+may8m6UwJcdKRU
amyTAO4BaS1TS7NIdRO3Lo41wbF2Mlhps2KtmdLW6W2Q0rY7x7WSHEqsVJEl
Vnn81FERH0bhzm1BID+GaGE72oo70FXeib7zcQxXxTFmimOqJo4r9jjmHXEs
uzqx5u7AhrcNm02tjI2a1VgqxOGEaBlC9Uq8NN8e01DTL3jekI7awe2jtO12
HUwHldt1rzfLlk8fOU+mvIRmVtYm3qhi00sj1s3BJCiLnXZsxCxYCBlkCdV7
dbJk0nkdN2WpiaoYYgDdzAimFfXZ7fDkdSJYmEDL2S50lPeg+0IvBqp7ccnc
h4naPkzX9WHW2YfFxj6seHux7u/BZrALW2FahWgHXVKM/r9ZjQdaRUBVTzks
2eWMNV3Uo7OXLt6QURe35e/qWk+BnVbPIByFdv5OOYDCpwspKWqd9Ue1SVJA
ZODSTaVM1GOz3YqlZqNLRnqqP9WEyil1O0D8ItTFVvrWdtTmxuE82Q1vYS9C
xX3orR/DVMcMLsdnMNM9i5Xp5QMypl8fnsXGyAy2Rknd9PAtffQ7TEraEzQJ
HFkn5ayTMtbhQ9+5csyPDGdUSVkqqjR70zUjduNViIngRFsd0UQt4gqg6Gm1
UOFt2zbvwPbRe/TI9XGauxuwSdFbiZkwGAw45dclR0ul5apXJLeUIXlpVrM6
1wcxGL2CmfFlTc5v1fR9cZlehsB0E5QeylUPZao7jNiZCkxEw1qCpd9Q57uE
Iz1wUHvapXo7NS/vlBdHXWGEqqqxeWVIbotlLiJ+rwb8shAYNza7HFhtr8EQ
0yqnDNpKj5XLyNkj+W0htdMUJZQ2kiNLV8/K7kDnlm10CcQ4ncZAAhOeJsTK
qjARa9HmWWw/6Tf85UqYjGyvT5MG7bV/3JVpOO/YRimCQY8FG2Ot+6L0Ptl0
aoxGs8eF1c5aDEekUNyM0qMVBKRBUSEKA6mD1EUztbTdxB7B4u3y9GT/NGKV
DYhdMKOlJP+mNO3YqUi4KkXaPf83bB/tJAbv0IywM4rFOMOyXjqY5Zm3S+HM
xLB4v0COLH9+7Gb4HjxxJ7wPnrie/46zneZvZWPw8BH0PvUMIt957m3i9G/D
+9Xjd/Hfsdvh+eqx98Dz18c+zH9Hr4fnK0cJ6/Of/CXpZVIWKR95XzzDpsR3
Kiuer7wiWRFHB7fPCZrLr7hV8uCoHoChgJpTbUVrxRltw1Wfk1+nwymTY/pv
sqnhtjYsdtZgvYfzOBZ7227kdFNlqlpFsHLjHsRt62xryN6PEasdPZY47hfn
/hIJ2/pHkahd500nfuQg+UktKD48cL1yWmVRHKksqpdq5wSt9869QQspKDWO
6iFKkIhcQ6g766BolOofpdKyMMnqTWkiIeg3pTgvjSWw2G7GelcdtsTEzwzL
3dTd16sYvWHXuXzXFs62peAfSqG1fwOtzUNorrKjsSZxN2KTyoaxh5lXJKZ8
+pz4/xO0KV8c/aUZR59mmn0yxk/i3K1K2z87VI3Dh2qU47xjo8p7iTGFsgZ1
horbU8rVs+vyKbAb6a0uEwjhsdpIERnGExRDucw/VY+rTN5vSRSXRsl3KyPo
uA2b3ZzhPo8wcm/dvnBHZw7IfmLDKVTEUmgeSWEluU6X1Y2NszkYffHYtl0N
l5/GYItaqF4v7yt9mj7hWSaugx2I1fmYQhnwwsM5eOz3Xtx23Kf+Yx4lhZso
s6a2z40s7ijdTdKUTHHy66tHyF9c8htVom41faHM17s0nu+T3S+OJDDfbMRa
Rw02EwwkexpUD0aT/h55TedECpbuFOJjKaxNrjKQacPqyaNYZoZ2l2TNUd0O
a2E1Blr80vTfgqOP5iDr+yfxjXv/Hf/6R9TcP3Mj+59HUPTiMkrLUih1pWBL
ELIprVzuFvRHrsCS3YtKWsDyrE4OOyanzS9jYbsSuIkgRLLyITnMubABazGm
/53MIbo4iB63GsbQKd8jr+mZTsE1kEI/WdoYX1IWARdfeQ7z1Ua53X9QiSeF
t6opvIgrY8NqXdltyprMsw8fxXc+9B94/E+K8NzXWpD3eBLFr62jrDqFsz7K
XksSobbLSE1coadiPDO3rIZzd2BxahmTjIDG2mbgP9OPxoJe2HO6YOZcXaQ/
LFf8Ylgy6pbpukWJVHtj8V283oSZAJPiFhM222qYO9Wpsa6IeUXsuzSrPSM3
OJPCycYtjBDhzdF5Zf36ytOHMFVuwJ272PUpPshyqqJWGoBYMC5lMRvfpyw+
/RkTTvxjN2VxDjlPNCuyWBigarcOY6StiyEbw7SWdka4cWxFuhgF9zAa7sWy
tw8Ljf2YcfZjqq4fY9Z+DJn60VfVh/j5XsRKexA+042mAmZ7OZ2wEQsTjdcF
ym65Ei/45MQreFwnALldD8bNWKUML0eM2GDimGqvVRMikRh1i0iMgFwekU74
Rlg7UyiJpjCZpOpc4iw12DD8059hLRHfdqfqFHgUM2E6VW5RTv+WgohYO3r4
3p/iX//wNYpzI8X5UkZx3mwyUrbsSEU4jAiHEAkxOWIWFGzFpr8NG74OrLo7
seSKY64+gcu2BCZrEhg1JjBYmUBPRRydpXG0nulAqKAd3twYnJSQWqJioFk/
zyGWKUN0SZVQkRHWMpTYNgxv1AP1BqzPJLEolnGiJioxJafdpmbdIvsWWXgX
R3op/n6Jlas/BQPxujK9RfM0iZStCisl+Vhqi2/HZCKhd1R3ynDWpSTlbaFu
o1RnoTTPPPyKojS/+ONivPy15quVZjSF0JTmRN6FEUcD83COsMkmN1oo174m
ZUNm0x3GWkMUy/UtWLC3YqY2hqQ5hnFDDJcuxtB/Loaukla0n25Bc0EzgrlR
eKhV9ZQksWFURczOKcGWQ+Z+Jg03kS9ruEltu19ysdzhxWrIiM0og4RWq7q+
0+FU13s6xeoFR5dghpcchQae/xJtfG8Kc8lNGtQRbBlLsXAyG3PRuLTXNyrg
qWGfT4aADmVBqC3UhSrZt9DB5x/Oog4+j19+xogTX6cOHppDyanNbR2M0ZoJ
f6Damnditc6ALZcRWw016s4oA8FNpxvrDi9W7E1YrA1gzhLEZWMIk1VhjF4I
Y6g8jN6zISSKQojlBxHJCcBPxBqUlRU37VQDpb+eM2qTdsl4QCInEuqMyL0R
G5S4ZT8lLizQsyiLicqiolhcFIuMYrFRLDp20isOJpQVNQ3BM74tNA2msJTc
oGQOYPNcPpJHT2CKeni9vMZRndAh6JaZlTKvuCARFHp7gQN9+N5/w+NCb7/c
gKzvUm9fkHrr3NFbVazfjo3pJFasBqXkQJQgrNusWKtlQmetx5LFhXljI65U
u5G86MF4hReXSr0YKPaiu9CDjpMetGS7EaLV8lIlnMrSXh31tpZ6K5AzHcgg
c7KY48MSRrHUukbkNkIm2lOLurgtFrlbqa+xBrn4Te/W5ieSlL1+2uCFOc3O
iXDkPMORFoYjqyIcYTa9XvQa1hzW7SX6jtAYTWwoDUCnXPG0KKM7J0EU4zVQ
NB/50CH84hNn8PKDUeT9ZArFr16tyKodfRs2kkksGQxYNhqUQp4lo1nU+GCu
ShQ22TBdYcdEWR1GGKMOFtWjt6Ae8TwH2rIdiNCo+TmORoYtdcqKspkxgUmo
w4EMhk7WAakP792OtXYvnY+BTsikbLWkIgSvWSzKErwWusoWt7oc00rRa6Xo
tYbUbZvxMekp7tiOehLjKaxPrvCeFixnvYTwoZOooDkpV7yEVzonp3RQNcrS
CDWiVAJXLvX3Xz5M/f20Acf/oUvR37MZ9FddbrhL2a5ZbPBi7rxBoZkKo1LW
liw1YeKsGaOnLRg6ZUFfngVdORa0Z1vQwgkLEiSvUpEmdjeMyl6ckPwyuWoq
EJN1kh+RsK23eemsaC4CJmVnT9nhiwjHRR8aJVJRKmmUohalqEUpalGiFSVa
0Qh9azdSo+NyGeCNjHwWcNE3j4FJEVwtsr0A5l98Bp5/e1WHkl0uHBkV+SrO
oKQ/eeBVPPdlF7L+aTijkqop6ZuxNkHjEksgecaAydPqVuJIgQFDeQb05xjQ
na1uxbaSwiQfqYFkJ5mVjSADnByDgEVW0qpr02/BhoDFR1iEHw+Y1Y3gEP1R
iBoYou0KUwPDbnXTOOSTC6DUwhChCVKQAhElA0hdGsfW7Pw7pUzNjMxjMDRO
dxRloBNR1mDLTncinzHaqBKjzdHNuTD1xBPI+e4JKU8mZfIoU0U6ZazmfD9y
3yH8/BOn8dJXI9vKWFpFZfTuKON75OSsjCYxF1H3o/t4fxepQ4ITIflJjaR+
giFKNJM06rJO+w80oxjzKlv9Ystf2fpvYgjhp7wEKC8BsfIrygMITIDA+Kld
fgLjJzBNlJkmguMjMN4INr1RbHhIsR5sDo5jc4B0Zf4Oif3C2DzGm8cxFh1H
3NSDJvpwd04EruwwHASslubKrPhyH+2pBy+dHkRpcwpTDOkmQr0offw4ih99
GsVPnRKgndqliK/hex9+Dk99upqKmEDBk7M4W3C1IspfdVFX3D8qyjmUsg5R
3pHyGJWdgZSPEuGzqTsFPjLvc8mdAzLvpVR4yLyH5sXtx5Y7wPuD2GgIYc0V
xqozgtV6RjGOqLILsWBrxlwtI5pAD5a7x7HUNY7FxDgWSPPxccx1jmO2Yxwz
7ePoLWtBd0kL4sXNaC9qRuxUFM35EYRzIwjkhOHNDnEegxSxAAW9iVGPD0ai
VEkFrKAPL1M8ZB1OnOvBoacsOHXEyPyzFBOlJVgqymPaG89N08mH7v1X6uQJ
PPclp6qTzy9dpZPyp3nUJ+s/phQKbbV4GX0QsUYi1kjz4iZqblFURNTcRM1N
1NxErZHxXmMjr/Vgk1Zv0yXqvJqwXu+nuxI1YKIWLIQlWwgLtaJGLIxZSxhX
zBFMGyOYMkQwUSXqyiIYuRDBcEUEg+UR9JVG0HM2otShdRaF0VYQRsvJECK5
QQSzReGVKMAShVg+ypWXcuWhXDVSs1xk20mBcchoR5grs2KyXnyOFtWbxLyI
6novYavqDGazXsOVcFw+fbijnd++70lqZxG1M4y8H0/iTAbt/AsVto9qgjaQ
gKjr23LKAM5lJjGIc1lJTGtddQzkHCQnNpjMb9Q3Kjt/a3UerNo9WLF5mZWL
ukJRX+jHvMWPWXMAM8YALhuCSFYFMVkZxPiFIEYrgrh0LoihMrG7GERvcVCp
ZYwXBtBeEEBrnh/NOU0IZ4sSPx+tp5eC5VF2KO0UJCthMlGYKgnTeaUOqVYG
hqq9EtZdiwyLGcr5tVAu0YeN0jyMHTl+VKeazz38KlXzMFWzCsf/z96q+RUV
MfX3FO7DVn8CGwx3Nxz09g4mxA4zj2tIVp63Yb3OjnW7A2t2UV8q6kxFvWkD
lmsaGciJWlRRk+rBrFHUqHpxucqHZKUPkxd8GD/vw9g5H0bKmjBc2oSBs01K
vWt3kQ+JUz505vvQludFS44HkWwP3a+oFBUVo6JyVFSQOilU9bTyIviz0d/U
Mn6p2RYmzSUfTIvZWkXMNrXG0I5JYsFxzqoFL+h08ryik4/jxw8cx+Ev1SPr
O0OqTpbu1kn1Bwnwx8rb72CzlxFlrUHZVF+3mfhu5mcL1qxWZcN91WrDSo2o
Rq7DktmBRVM9FkxOzBtE5bKoYG7A5cpGTF9oxNR5NybOuTFW7sZIqVr9PFjs
Vqqhewrd6Cpwo/Nko1It3ZrdiGh2A+NhF72MkxGKk4LkoIUS5cZ2WigbBclK
e26h3pmVsmQtPNAyJRGM1TAY6xLB2MQyww9azmMvYMFgwjO79M6s6N3PPl6I
l/46jNwfUe9OrF2ld+pTePik8vY/sNnD6Jgea9ViwIrFiBWzCctmM6PWGiyZ
rFg01rIrUakuKtZF5XodrlxUK9mTFaKy3YmJcifGSp0YKXFiuFhUwbvQX+RC
7ykXuvOdjGyd6MhxIpZdj2ZSmBAECIFPKTYXRec2RrqiCL2GZshCiVEjXlGk
3h4S+wHJW3SrWA1UJyXQGltQ6vRmnn0KyXIDDu3SqRN49P7D+I9PVeLY38dR
8ERmnfo7FQ31h0w+gPWuBFa9XixWG0nqQwfzVWbMVVowe7FGKYS5cr6W8Xst
u7RhssxG92HHWIkdI8V2pXBmsEgU0dQpDzx059UhkWsn93bG9naGqnaGHDbq
Sy31xUp9Ec8YiGcNLIyKxLMHJrosIzzV1LFQQitkEYtZWqC0NTJLv+HApZ/9
XFm6+fc09fhHqseP/uAYDn/Rsad6fF3l+nPK23/BWpxcd3ZhVgbcVypMuHzO
jOly8WyJeMZEPGtSg7HiGgbgVlwqsjIIt2Ig34q+k1b05FqV51U6s63K8yvi
OZYoKUSu/CQvOWuUwbmo5+rlnHaHEtqvJ9V2ppQoJikWpoZoNuuMWC0twHJ7
HD/RcVfFZr513xOU8FOU8NAuCS/WJJxy8bDK3ZdkLiZi5aW2BJZi6hM+42fU
p35GCk0YPmXCYIEJ/fkm9OapTwmJp4U6SeLpoVZSM0k8VRQgiaeMhkiDocTd
cvQN/SkYycFMcouZ6Bi2TOewkJ+D+Wgcj+nWglSJfJYSeZES2UmJnMkokd9S
R/81dZl9cST5m7plFWdvSnXA3UPYPF+I6WOvKosC300TgiMPn6QQHKUQ1OG1
RwZR9JwQgq1dQqD+sMn270kIRxUYSmFZWcHvwfqZbKzVW7+dNgHfvO8X+PeP
F+DIV4LI/eFExgl4VG35UJpxj43IRfRYG1ZyXqETMsvHSjWEjuOf738Ghz51
Acf+jgj9ggjlb6I0DaHvq80/ldFALikLjvNHDlNfDVK91dGLqsIXicsPicuz
X7TjtW8LXBavwkX9HRU8nWZxBsnY5pi6kJw8dIi23yAfAFWbFwbrm/cSnI+d
xJG/CqjgHCc4lbvBUQsR5BP8qmoXULXHFNWeQYqxztr509THuHT4KjiHHz6m
gvOn5wlOB/I1cGp2g/NTtfnndLpVpuiWWMicwlZtFZbPnBSxrgxc9eDk4Qe/
/wqe/YKN4Ayg6PAiStLA+YXa/As64TfFKfzTYqlvFFuGEsxlq0Hh564C5+f4
6cfy8OJf+ZH7g/GM4Kgis/27DQFKjKsvhQURPHUPYKM8H+NHjn8qDZfv3v80
canA0f/dTlyuZMRF/T0DvJxJ2ju6sFb4KlbsNR/XjfmcAkkuIXkZz36+Fq99
awCFApKS3ZAcVlt+RSftF2IqS2vK4kkrlk4cUfz1A7rmLyqQ/Az/9tFcQtKk
QnJsNyRBQqJCrf4ymE7au4W0i5WGEGPcw09j+pxBLqDdsr1f80/E5ck/LcfR
v21D/s91uPh3cHlJbf6EbL6X0t6oSbtMyUd+/oTiaT4o19LVvZFcPPb7L+GZ
z1sJTH8mYNQRqz+4ky7oYvuh3oLVskLFymvePcGQUFSWD5FGSeOkSRKtoFym
uGV7L+IbCnY5ePEvfch5bIzYrV6FnZqXyF9lUZWhvCWFaaEMAxPYqrmAxYJc
zDfHZV3NG5WotF55GtDAeERdGAjKxYK42JDKNmCQNJxrQJKRs1hYuFOHu5Ee
/Tsf+iWe/GSZivvPiPvJq3FXx4RcnSKZqUizWnZVeRqXj7+KJLm9Tg5Nq94q
k2tb1u3hGREjdeUYMZBHx3bKiInTHF6xgfdeLhErhrN1DPHGk3Kg+nnMwWMf
OYJnPleDV7/JeXx2ASVnd83jSXWkJ+VId+kkE5r1s7lYc9Yqo1M3FO6gCzIy
kFOfDxXPhYrnQcVzoAOn7BgtVp/1FM94zjOsEqHWkqwnnqHJXpuUlfBaFm5U
d1E51S+Iqf5+5qlW1zrkb9zchbPU7yD1e2VKLAB3YiXvGAJPvawkIFUMvmxM
TkSyEslxKw/19Z32Kg/xTV5gMlTtwaK5kcmSi8lTHZMpkVAZeWzArMkgk5ad
heHvfOgpPPHJUrzyNzFO9+WM031aHZ46yveqRqIthXbNSDCob/75C7jwLwUE
zQ9/TgitBRHlKaihCvWpJ/G0k3jCaaU+go2GILbcTdjyupHyOZRlmY1GAy63
tCvhr7J1+ZEXOa0WvPqNvp1pree0xlW7pf4AlfqLTlq9h/VnlPq/OyHLLcTr
zRgxdGHK2oU5RxeWG5gteDuxGWin5Wmhrw1jwmRCR24env+i2OvOxgt/4VVn
6Shn6eLuWSrX9Yl3oOSls0onWS9FlPfzr8ThOdaO6HMO5XNvYRRjtmFcdg5j
wTOEVf8gNsP9iJ20MA01w/i9bNQ/Xoymp0ywPN+Bs3lXI39e7bJQCkaLO4TS
Fy+g9GWn0oUhuwcXXxtE1uFheIvVuoohCsXI8VpMVcWVzNZ5yAzL9y6g4acu
BF5sRfOpBGJVXYg52tBq96PW0YlRRh2Vu7tqdUdR+jyT3SMelL/UrDRdf2Yc
Ha4ZeD1q7ZdqisbhOFRJ4DwwPj0J+6l5OCyLvH8SEx2jaGnoQVt1FLFKN2IV
Boy3RtO7ijW0ovQw8+vn/Tj3YpvS9OXWUaQmGVFcUevqNBPjb2K4bdkBKTG0
jksdS/CeG0O0qhdtlhhipiZyaMF4e8tVXDlbleZKnw1iItiuFr70DyLVc4n2
YEz5vNE6haVwEnbfIiYapzFUl0SXeRItF8fhKxlFXcEQqrL74K9uR6w2gJiZ
yUVnWlc3YqxvHCVP1kJ7pRIxpOJxOuweKZ23YS04jEXfJVxuGMGYfQQD5kuI
Vw4hWjYAb2EfbDldjD7alYKQJmMTWq01mJ0cq9QL4ltR+5KJOmijs24kiaeA
opRt9hbqwEZTAivubsw5e5C09WDE1IO+i93oKOtCuCiOxpx2muIWWqqQ3BWp
Q3OtSW5jbnex1p/AplhB9VtJcm/X61f2dVddzVisa8GVGlGnHcPw+VZ0l7Qi
VtiMQE5EedDPlOWT+7c2ZY1grK93dxdvwkh3EgtWdUVIVMGLZ2c3HPVYtYkn
jsVKjw9TlU0YOedHf7EfnQVNiOZ4mZ+JdS0XDeOu7fQrSfVxY0EX1Z5Oy9X8
hfYE5qvF3pYBK+JhdaMZC9XigX3xEL/Ih8W+lgNdJx00/nXMnWzM8q10CmaR
1WfasJczolaa3qlkbdMMsWeY2M+U0bLxeKqYmVuhEYMn1UytjS4mpPyWglHx
1RfTNnzUH4zCWeXtNiw0M6o4acBInuq++7PVvYA2uUnikRsk1bIZuYynbuhD
3dW6GUv0c5fFLoGMTeK8SjwFJ3YPusQ5fq/WTfz/85v3vz7+9fGvj399/P/o
GL/xfwGVvGo2\
\>"]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "now", " ", "add", " ", "O", " ", "lone", " ", "pairs", " ", 
   "perpendicular", " ", "to", " ", "COH", " ", "plane", " ", "and", " ", 
   "retransform", " ", "into", " ", "molecular", " ", "skeleton"}], " ", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.5716782232378025`*^9, 3.571678237995428*^9}, {
  3.571678285138711*^9, 3.5716783310963917`*^9}}]
},
WindowSize->{700, 857},
WindowMargins->{{0, Automatic}, {Automatic, 1}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{595.2, 841.8}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 2651, 55, 152, "Input"],
Cell[3211, 77, 1046, 17, 31, "Input"],
Cell[CellGroupData[{
Cell[4282, 98, 1230, 23, 31, "Input"],
Cell[5515, 123, 87, 1, 31, "Output"]
}, Open  ]],
Cell[5617, 127, 1149, 17, 31, "Input"],
Cell[CellGroupData[{
Cell[6791, 148, 2364, 55, 132, "Input"],
Cell[9158, 205, 757, 20, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9952, 230, 925, 14, 31, "Input"],
Cell[10880, 246, 391, 10, 31, "Output"]
}, Open  ]],
Cell[11286, 259, 817, 14, 31, "Input"],
Cell[CellGroupData[{
Cell[12128, 277, 1698, 31, 52, "Input"],
Cell[13829, 310, 107, 2, 31, "Output"]
}, Open  ]],
Cell[13951, 315, 135, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[14111, 322, 1769, 48, 132, "Input"],
Cell[15883, 372, 755, 20, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16675, 397, 639, 10, 31, "Input"],
Cell[17317, 409, 401, 12, 33, "Output"]
}, Open  ]],
Cell[17733, 424, 721, 13, 31, "Input"],
Cell[CellGroupData[{
Cell[18479, 441, 1067, 23, 52, "Input"],
Cell[19549, 466, 104, 2, 31, "Output"]
}, Open  ]],
Cell[19668, 471, 619, 10, 31, "Input"],
Cell[CellGroupData[{
Cell[20312, 485, 1476, 43, 132, "Input"],
Cell[21791, 530, 757, 20, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22585, 555, 425, 8, 52, "Input"],
Cell[23013, 565, 423, 11, 55, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23473, 581, 4734, 127, 432, "Input"],
Cell[28210, 710, 16656, 283, 345, 1170, 27, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[44881, 996, 397, 8, 52, "Input"]
}
]
*)

(* End of internal cache information *)