ElementaryProcessesInProteinFolding-author.nb

(* 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[    115841,       2570]
NotebookOptionsPosition[    111728,       2445]
NotebookOutlinePosition[    113372,       2497]
CellTagsIndexPosition[    113036,       2485]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Elementary Processes in Protein Folding", "DemoTitle",
 CellChangeTimes->{
  3.35696210375764*^9, {3.4101245983338957`*^9, 3.4101246050229883`*^9}, {
   3.410131811968322*^9, 3.410131824697701*^9}}],

Cell[CellGroupData[{

Cell["", "InitializationSection"],

Cell[BoxData[
 RowBox[{"initvars", "=", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"c", "=", 
     RowBox[{"Darker", "[", "Gray", "]"}]}], ";", 
    RowBox[{"o", "=", "Red"}], ";", 
    RowBox[{"n", "=", "Blue"}], ";", 
    RowBox[{"h", "=", "Yellow"}], ";", 
    RowBox[{"r1", "=", "Purple"}], ";", 
    RowBox[{"r2", "=", 
     RowBox[{"Lighter", "[", "Purple", "]"}]}], ";", 
    RowBox[{"g", "=", "Gray"}], ";", "\[IndentingNewLine]", 
    RowBox[{"\[Alpha]", "=", 
     RowBox[{"30", "\[Degree]"}]}], ";", 
    RowBox[{"\[Beta]", "=", 
     RowBox[{"109.5", "\[Degree]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"rp", "=", "1.33"}], ";", 
    RowBox[{"rcc", "=", "1.54"}], ";", 
    RowBox[{"rcn", "=", "1.46"}], ";", 
    RowBox[{"rch", "=", "1.09"}], ";", 
    RowBox[{"rco", "=", "1.24"}], ";", 
    RowBox[{"rnh", "=", "1.01"}], ";", "\n", 
    RowBox[{"x0", "=", "0"}], ";", 
    RowBox[{"y0", "=", "0"}], ";", 
    RowBox[{"z0", "=", "0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"x1", "=", "x0"}], ";", 
    RowBox[{"y1", "=", 
     RowBox[{"y0", "+", "rco"}]}], ";", 
    RowBox[{"z1", "=", "z0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"x2", "=", 
     RowBox[{"x0", "+", 
      RowBox[{"rp", " ", 
       RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}]}], ";", 
    RowBox[{"y2", "=", 
     RowBox[{"y0", "-", 
      RowBox[{"rp", " ", 
       RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}]}], ";", 
    RowBox[{"z2", "=", "z0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"x3", "=", "x2"}], ";", 
    RowBox[{"y3", "=", 
     RowBox[{"y2", "-", "rch"}]}], ";", 
    RowBox[{"z3", "=", "z0"}], ";", "\[IndentingNewLine]", 
    RowBox[{"x4", "=", 
     RowBox[{"x0", "-", 
      RowBox[{"rcc", " ", 
       RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}]}], ";", 
    RowBox[{"y4", "=", 
     RowBox[{"y0", "-", 
      RowBox[{"rcc", " ", 
       RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}]}], ";", 
    RowBox[{"z4", "=", "z0"}], ";", 
    RowBox[{"x5", "=", 
     RowBox[{"x2", "+", 
      RowBox[{"rcn", " ", 
       RowBox[{"Cos", "[", "\[Alpha]", "]"}]}]}]}], ";", 
    RowBox[{"y5", "=", 
     RowBox[{"y2", "+", 
      RowBox[{"rcn", " ", 
       RowBox[{"Sin", "[", "\[Alpha]", "]"}]}]}]}], ";", 
    RowBox[{"z5", "=", "z0"}], ";"}], ")"}]}]], "Input",
 CellChangeTimes->{
  3.35696210375764*^9, {3.409781959262014*^9, 3.409781962529833*^9}, {
   3.409782010755262*^9, 3.40978211987636*^9}, {3.409782197018022*^9, 
   3.4097822445533657`*^9}, {3.409785159991399*^9, 3.4097851708050528`*^9}, {
   3.4098428921552477`*^9, 3.4098429352746696`*^9}, {3.4098432823651867`*^9, 
   3.409843294952207*^9}, {3.409844812743864*^9, 3.409844814836122*^9}, {
   3.410051786611268*^9, 3.4100517894923983`*^9}, {3.410052029403986*^9, 
   3.410052038292284*^9}, {3.4100532932592173`*^9, 3.4100533043841753`*^9}, {
   3.410095504257881*^9, 3.410095635581766*^9}, 3.410095671426309*^9, {
   3.410095724284376*^9, 3.410095736512671*^9}, {3.410096043608346*^9, 
   3.4100960922335052`*^9}, {3.4101086337570753`*^9, 
   3.4101086480166197`*^9}, {3.410133344274706*^9, 3.4101333566559277`*^9}, {
   3.410175534795568*^9, 3.410175582936563*^9}, 3.410292035727669*^9, {
   3.410311459185182*^9, 3.410311459918469*^9}, 3.410311490023322*^9, 
   3.410371115239855*^9, {3.410379441108562*^9, 3.4103794433627863`*^9}, 
   3.410396292328125*^9, 3.4103965065*^9, {3.410396771171875*^9, 
   3.41039678203125*^9}},
 CellID->1470005039],

Cell[BoxData[
 RowBox[{
  RowBox[{"tetra1", "[", "\[Psi]_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Psi]1", "=", "\[Psi]"}], ",", "xp1", ",", "yp1", ",", "zp1", 
      ",", "xh1", ",", "yh1", ",", "zh1", ",", "xr1", ",", "yr1", ",", 
      "zr1"}], "}"}], ",", 
    RowBox[{
     RowBox[{"xp1", "=", 
      RowBox[{"x4", "-", "1.17"}]}], ";", 
     RowBox[{"yp1", "=", 
      RowBox[{"y4", "+", "1.00"}]}], ";", 
     RowBox[{"zp1", "=", "z4"}], ";", 
     RowBox[{"xh1", "=", 
      RowBox[{
       FractionBox["rch", "rcc"], 
       RowBox[{"(", 
        RowBox[{"x4", "-", ".86"}], ")"}]}]}], ";", 
     RowBox[{"yh1", "=", 
      RowBox[{
       FractionBox["rch", "rcc"], 
       RowBox[{"(", 
        RowBox[{"y4", "-", ".22"}], ")"}]}]}], ";", 
     RowBox[{"zh1", "=", 
      RowBox[{
       FractionBox["rch", "rcc"], 
       RowBox[{"(", 
        RowBox[{"z4", "+", "1.26"}], ")"}]}]}], ";", 
     RowBox[{"xr1", "=", 
      RowBox[{"x4", "-", ".86"}]}], ";", 
     RowBox[{"yr1", "=", 
      RowBox[{"y4", "-", ".22"}]}], ";", 
     RowBox[{"zr1", "=", 
      RowBox[{"z4", "-", "1.26"}]}], ";", 
     RowBox[{"Graphics3D", "[", 
      RowBox[{
       RowBox[{"Rotate", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"c", ",", 
           RowBox[{"Sphere", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"x4", ",", "y4", ",", "z4"}], "}"}], ",", ".4"}], "]"}],
            ",", "r1", ",", 
           RowBox[{"Sphere", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"xr1", ",", "yr1", ",", "zr1"}], "}"}], ",", ".5"}], 
            "]"}], ",", "h", ",", 
           RowBox[{"Sphere", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"xh1", ",", "yh1", ",", "zh1"}], "}"}], ",", ".3"}], 
            "]"}], ",", "g", ",", 
           RowBox[{"Thickness", "[", ".02", "]"}], ",", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"x4", ",", "y4", ",", "z4"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"xr1", ",", "yr1", ",", "zr1"}], "}"}]}], "}"}], "]"}],
            ",", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"x4", ",", "y4", ",", "z4"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"xh1", ",", "yh1", ",", "zh1"}], "}"}]}], "}"}], "]"}],
            ",", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"x4", ",", "y4", ",", "z4"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"xp1", ",", "yp1", ",", "zp1"}], "}"}]}], "}"}], "]"}],
            ",", "\[IndentingNewLine]", 
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<\[InvisiblePrefixScriptBase]C\>\"", ",", "24", ",", "Bold",
                ",", "Black"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"x4", ",", "y4", ",", "z4"}], "}"}]}], "]"}], ",", 
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"\"\<H\>\"", ",", "24", ",", "Bold", ",", "Black"}], 
              "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"xh1", ",", "yh1", ",", "zh1"}], "}"}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<\[InvisiblePrefixScriptBase]\!\(\*SubscriptBox[\(R\), \
\(1\)]\)\>\"", ",", "32", ",", "Bold", ",", "Black"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"xr1", ",", "yr1", ",", "zr1"}], "}"}]}], "]"}], ",", 
           "Green", ",", 
           RowBox[{"Cylinder", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"2", "xp1"}], "-", "x4"}], ",", 
                 RowBox[{
                  RowBox[{"2", "yp1"}], "-", "y4"}], ",", 
                 RowBox[{
                  RowBox[{"2", "zp1"}], "-", "z4"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{".5", 
                  RowBox[{"(", 
                   RowBox[{"xp1", "+", "x4"}], ")"}]}], ",", 
                 RowBox[{".5", 
                  RowBox[{"(", 
                   RowBox[{"yp1", "+", "y4"}], ")"}]}], ",", 
                 RowBox[{".5", 
                  RowBox[{"(", 
                   RowBox[{"zp1", "+", "z4"}], ")"}]}]}], "}"}]}], "}"}], ",",
              ".4"}], "]"}]}], "}"}], ",", "\[Psi]1", ",", 
         RowBox[{"{", 
          RowBox[{"x4", ",", "y4", ",", "z4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"x0", ",", "y0", ",", "z0"}], "}"}]}], "]"}], ",", 
       RowBox[{"Boxed", "\[Rule]", "False"}]}], "\[IndentingNewLine]", 
      "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.35696210375764*^9, {3.410291190213777*^9, 3.4102911971684847`*^9}, {
   3.410297512624722*^9, 3.410297696380164*^9}, {3.4102978079604883`*^9, 
   3.410297830271393*^9}, {3.4102983195179653`*^9, 3.41029833992395*^9}, {
   3.410299696858762*^9, 3.4102998596270847`*^9}, {3.410302306916868*^9, 
   3.41030236068891*^9}, {3.410302417759454*^9, 3.410302432133657*^9}, {
   3.410302481597658*^9, 3.41030248815362*^9}, {3.41030264944807*^9, 
   3.410302651559971*^9}, 3.4103030304826097`*^9, {3.4103031151221323`*^9, 
   3.4103031246004868`*^9}, {3.4103033324227057`*^9, 
   3.4103033579475393`*^9}, {3.410303449151773*^9, 3.410303606577902*^9}, {
   3.410312324200438*^9, 3.410312335322929*^9}, 3.410312396731173*^9, {
   3.4103128080215073`*^9, 3.410312826877056*^9}, {3.410312947223029*^9, 
   3.410312970149329*^9}, {3.410313632369173*^9, 3.410313648438024*^9}, {
   3.410315085253729*^9, 3.410315126071308*^9}, {3.41031554769129*^9, 
   3.4103156015197773`*^9}, {3.4103157268663054`*^9, 3.410315734873538*^9}, {
   3.41031598454104*^9, 3.410315998875708*^9}, {3.410316167186757*^9, 
   3.410316226674698*^9}, {3.410316577018609*^9, 3.410316756432403*^9}, {
   3.4103168278178787`*^9, 3.4103168562489*^9}, {3.4103169410192537`*^9, 
   3.4103169796648283`*^9}, {3.4103509631482773`*^9, 3.4103510500181007`*^9}, 
   3.410351683065275*^9, {3.410351737956131*^9, 3.410351753113319*^9}, {
   3.410351799962317*^9, 3.410351803377514*^9}, {3.410354601888139*^9, 
   3.41035465787956*^9}, {3.410354697102312*^9, 3.4103547570289583`*^9}, {
   3.4103550498364677`*^9, 3.4103550748592176`*^9}, {3.4103555867080383`*^9, 
   3.4103556124328012`*^9}, {3.410355679722775*^9, 3.410355687480256*^9}, {
   3.41035598720537*^9, 3.410356030076289*^9}, {3.410356098184375*^9, 
   3.4103561150210247`*^9}, {3.4103564071327133`*^9, 3.410356418400997*^9}, {
   3.410356657210598*^9, 3.410356684975587*^9}, {3.410356933932831*^9, 
   3.410356978232719*^9}, {3.410357081150467*^9, 3.410357095260412*^9}, {
   3.410357680156913*^9, 3.410357691450786*^9}, {3.410357873330954*^9, 
   3.4103578909373493`*^9}, {3.410357950681425*^9, 3.4103579834966183`*^9}, 
   3.410363925110011*^9, 3.410363988776723*^9, {3.4103658020617*^9, 
   3.410365831267705*^9}, {3.4103658943233557`*^9, 3.410365900504156*^9}, {
   3.410365956168942*^9, 3.41036596141572*^9}, 3.410366370033551*^9, 
   3.410366546446183*^9, {3.4103666001546183`*^9, 3.410366605889456*^9}, {
   3.410367249830367*^9, 3.410367256709386*^9}, {3.410368022517352*^9, 
   3.410368030334258*^9}, {3.410368190741351*^9, 3.410368232987398*^9}, {
   3.410368293754629*^9, 3.410368347032835*^9}, {3.4103683936583967`*^9, 
   3.41036840060884*^9}, {3.410368712070994*^9, 3.4103687168812447`*^9}, {
   3.410368757881863*^9, 3.410368763017362*^9}, {3.410378217570032*^9, 
   3.410378251873281*^9}, {3.4103785970485477`*^9, 3.410378612685453*^9}, {
   3.410396214515625*^9, 3.41039624621875*^9}, {3.58593435519468*^9, 
   3.585934391463887*^9}},
 CellID->1510957599],

Cell[BoxData[
 RowBox[{
  RowBox[{"tetra2", "[", "\[Phi]_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Phi]1", "=", "\[Phi]"}], ",", "xp2", ",", "yp2", ",", "zp2", 
      ",", "xh2", ",", "yh2", ",", "zh2", ",", "xr2", ",", "yr2", ",", 
      "zr2"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"xp2", "=", 
      RowBox[{"x5", "+", "1.17"}]}], ";", 
     RowBox[{"yp2", "=", 
      RowBox[{"y5", "-", "1.00"}]}], ";", 
     RowBox[{"zp2", "=", "z5"}], ";", 
     RowBox[{"xh2", "=", 
      RowBox[{
       FractionBox["rch", "rcc"], 
       RowBox[{"(", 
        RowBox[{"x5", "+", ".86"}], ")"}]}]}], ";", 
     RowBox[{"yh2", "=", 
      RowBox[{
       FractionBox["rch", "rcc"], 
       RowBox[{"(", 
        RowBox[{"y5", "+", ".22"}], ")"}]}]}], ";", 
     RowBox[{"zh2", "=", 
      RowBox[{
       FractionBox["rch", "rcc"], 
       RowBox[{"(", 
        RowBox[{"z5", "-", "1.26"}], ")"}]}]}], ";", 
     RowBox[{"xr2", "=", 
      RowBox[{"x5", "+", ".86"}]}], ";", 
     RowBox[{"yr2", "=", 
      RowBox[{"y5", "+", ".22"}]}], ";", 
     RowBox[{"zr2", "=", 
      RowBox[{"z5", "+", "1.26"}]}], ";", 
     RowBox[{"Graphics3D", "[", 
      RowBox[{
       RowBox[{"Rotate", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"c", ",", 
           RowBox[{"Sphere", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"x5", ",", "y5", ",", "z5"}], "}"}], ",", ".4"}], "]"}],
            ",", "r2", ",", 
           RowBox[{"Sphere", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"xr2", ",", "yr2", ",", "zr2"}], "}"}], ",", ".5"}], 
            "]"}], ",", "h", ",", 
           RowBox[{"Sphere", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"xh2", ",", "yh2", ",", "zh2"}], "}"}], ",", ".3"}], 
            "]"}], ",", "g", ",", 
           RowBox[{"Thickness", "[", ".02", "]"}], ",", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"x5", ",", "y5", ",", "z5"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"xr2", ",", "yr2", ",", "zr2"}], "}"}]}], "}"}], "]"}],
            ",", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"x5", ",", "y5", ",", "z5"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"xh2", ",", "yh2", ",", "zh2"}], "}"}]}], "}"}], "]"}],
            ",", 
           RowBox[{"Line", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"x5", ",", "y5", ",", "z5"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"xp2", ",", "yp2", ",", "zp2"}], "}"}]}], "}"}], "]"}],
            ",", "\[IndentingNewLine]", 
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<\[InvisiblePrefixScriptBase]C\>\"", ",", "24", ",", "Bold",
                ",", "Black"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"x5", ",", "y5", ",", "z5"}], "}"}]}], "]"}], ",", 
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"\"\<H\>\"", ",", "24", ",", "Bold", ",", "Black"}], 
              "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"xh2", ",", "yh2", ",", "zh2"}], "}"}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
              "\"\<\[InvisiblePrefixScriptBase]\!\(\*SubscriptBox[\(R\), \
\(2\)]\)\>\"", ",", "32", ",", "Bold", ",", "Black"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"xr2", ",", "yr2", ",", "zr2"}], "}"}]}], "]"}], ",", 
           "Green", ",", 
           RowBox[{"Cylinder", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"2", "xp2"}], "-", "x5"}], ",", 
                 RowBox[{
                  RowBox[{"2", "yp2"}], "-", "y5"}], ",", 
                 RowBox[{
                  RowBox[{"2", "zp2"}], "-", "z5"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{".5", 
                  RowBox[{"(", 
                   RowBox[{"xp2", "+", "x5"}], ")"}]}], ",", 
                 RowBox[{".5", 
                  RowBox[{"(", 
                   RowBox[{"yp2", "+", "y5"}], ")"}]}], ",", 
                 RowBox[{".5", 
                  RowBox[{"(", 
                   RowBox[{"zp2", "+", "z5"}], ")"}]}]}], "}"}]}], "}"}], ",",
              ".4"}], "]"}]}], "}"}], ",", "\[Phi]1", ",", 
         RowBox[{"{", 
          RowBox[{"x2", ",", "y2", ",", "z2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"x5", ",", "y5", ",", "z5"}], "}"}]}], "]"}], ",", 
       RowBox[{"Boxed", "\[Rule]", "False"}]}], "\[IndentingNewLine]", 
      "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.35696210375764*^9, {3.410291190213777*^9, 3.4102911971684847`*^9}, {
   3.4102912495958652`*^9, 3.410291262755254*^9}, 3.410291294343856*^9, {
   3.4102913434873743`*^9, 3.41029139219932*^9}, {3.410291436738902*^9, 
   3.4102914525681963`*^9}, {3.410291588978078*^9, 3.410291605399712*^9}, {
   3.410291646816235*^9, 3.410291651629776*^9}, {3.410297078328627*^9, 
   3.410297088183873*^9}, {3.410297165156884*^9, 3.410297261294134*^9}, {
   3.4102973225178003`*^9, 3.410297398283945*^9}, {3.4102977695485*^9, 
   3.410297788883068*^9}, {3.4102981019227037`*^9, 3.4102981221444683`*^9}, {
   3.410299929290957*^9, 3.410300120379011*^9}, 3.410302907064623*^9, {
   3.4103039856782923`*^9, 3.410304074527688*^9}, {3.410304126295845*^9, 
   3.410304181065134*^9}, {3.410304681021913*^9, 3.410304685555771*^9}, {
   3.410313738674452*^9, 3.4103137582266417`*^9}, {3.410314187388421*^9, 
   3.410314222306554*^9}, {3.410314463403297*^9, 3.410314472443531*^9}, {
   3.410314669901165*^9, 3.41031467766542*^9}, {3.410315152241735*^9, 
   3.4103151830639668`*^9}, {3.410315261684126*^9, 3.4103153268750362`*^9}, {
   3.410315384996499*^9, 3.410315400226499*^9}, {3.41031579075457*^9, 
   3.410315800489296*^9}, {3.410315850396456*^9, 3.4103158731939898`*^9}, {
   3.410315931848283*^9, 3.410315977720409*^9}, {3.410316352762397*^9, 
   3.41031636405079*^9}, {3.410350641366197*^9, 3.4103506777523327`*^9}, 
   3.4103507208008327`*^9, {3.4103508036007013`*^9, 3.410350919207697*^9}, {
   3.410351070620969*^9, 3.410351192770105*^9}, {3.410351902401173*^9, 
   3.410351934622899*^9}, {3.4103519696010733`*^9, 3.4103519893614264`*^9}, {
   3.410358673429072*^9, 3.410358684905864*^9}, {3.410358717018847*^9, 
   3.410358742454462*^9}, {3.4103587727965117`*^9, 3.410358937450884*^9}, {
   3.410361816282378*^9, 3.4103618460464783`*^9}, {3.4103618849502783`*^9, 
   3.4103619138700743`*^9}, {3.410361993815456*^9, 3.410361998365876*^9}, {
   3.410362044062752*^9, 3.410362048390188*^9}, 3.4103621816640472`*^9, {
   3.4103623726418247`*^9, 3.410362423637628*^9}, 3.410362583383135*^9, {
   3.4103627081898193`*^9, 3.410362714948588*^9}, 3.410362966564897*^9, {
   3.41036307941525*^9, 3.410363095236725*^9}, {3.410363205279072*^9, 
   3.410363255164323*^9}, 3.410363909423596*^9, {3.410367970024914*^9, 
   3.4103680096599083`*^9}, 3.410371495904366*^9, {3.410372031933605*^9, 
   3.410372052258244*^9}, {3.410372085131136*^9, 3.4103720923056498`*^9}, {
   3.41037213357216*^9, 3.410372139130411*^9}, {3.410372423212018*^9, 
   3.41037244912959*^9}, {3.410372494524274*^9, 3.410372503403324*^9}, {
   3.410372657469017*^9, 3.410372701577417*^9}, {3.410372827626442*^9, 
   3.410372834358616*^9}, {3.410373097470931*^9, 3.410373139685134*^9}, {
   3.410373202086822*^9, 3.410373209805037*^9}, {3.410373460051064*^9, 
   3.4103734661252737`*^9}, {3.410373516262998*^9, 3.4103735219979753`*^9}, 
   3.410373557750929*^9, {3.4103736245757227`*^9, 3.410373631683301*^9}, 
   3.41037370148778*^9, {3.410373751008472*^9, 3.4103737743890057`*^9}, {
   3.410378288153536*^9, 3.4103783095597553`*^9}, {3.410378683661441*^9, 
   3.410378689702578*^9}, 3.410396390765625*^9, {3.410396421484375*^9, 
   3.410396433*^9}, {3.4105434954270144`*^9, 3.4105435094669857`*^9}, {
   3.585934308536429*^9, 3.585934321685664*^9}, 3.585934402288272*^9},
 CellID->1182338211],

Cell[BoxData[
 RowBox[{
  RowBox[{"backbone", "=", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{"c", ",", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x0", ",", "y0", ",", "z0"}], "}"}], ",", ".4"}], "]"}], 
       ",", "\[IndentingNewLine]", "g", ",", "\[IndentingNewLine]", 
       RowBox[{"Thickness", "[", ".02", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x0", ",", "y0", ",", "z0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"x1", ",", "y1", ",", "z1"}], "}"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "o", ",", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x1", ",", "y1", ",", "z1"}], "}"}], ",", ".4"}], "]"}], 
       ",", "Black", ",", 
       RowBox[{"Thickness", "[", ".04", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x0", ",", "y0", ",", "z0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"x2", ",", "y2", ",", "z2"}], "}"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "n", ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x2", ",", "y2", ",", "z2"}], "}"}], ",", ".4"}], "]"}], 
       ",", "\[IndentingNewLine]", "g", ",", "\[IndentingNewLine]", 
       RowBox[{"Thickness", "[", ".02", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x2", ",", "y2", ",", "z2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"x3", ",", "y3", ",", "z3"}], "}"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "h", ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x3", ",", "y3", ",", "z3"}], "}"}], ",", ".3"}], "]"}], 
       ",", "\[IndentingNewLine]", "g", ",", "\[IndentingNewLine]", 
       RowBox[{"Thickness", "[", ".02", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x0", ",", "y0", ",", "z0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"x4", ",", "y4", ",", "z4"}], "}"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "c", ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x4", ",", "y4", ",", "z4"}], "}"}], ",", ".4"}], "]"}], 
       ",", "\[IndentingNewLine]", "g", ",", "\[IndentingNewLine]", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x2", ",", "y2", ",", "z2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"x5", ",", "y5", ",", "z5"}], "}"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "c", ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x5", ",", "y5", ",", "z5"}], "}"}], ",", ".4"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<\[Psi]\>\"", ",", "36", ",", "Bold", ",", "Black"}], 
          "]"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"x0", "+", "x4"}], ")"}], "/", "2"}], ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"y0", "+", "y4"}], ")"}], "/", "2"}], ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"z0", "+", "z4"}], ")"}], "/", "2"}]}], "}"}]}], "]"}], 
       ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<\[InvisiblePrefixScriptBase]\[Phi]\>\"", ",", "36", ",", 
           "Bold", ",", "Black"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"x2", "+", "x5"}], ")"}], "/", "2"}], ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"y2", "+", "y5"}], ")"}], "/", "2"}], ",", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"z2", "+", "z5"}], ")"}], "/", "2"}]}], "}"}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<\[InvisiblePrefixScriptBase]C\>\"", ",", "24", ",", "Bold", 
           ",", "Black"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x0", ",", "y0", ",", "z0"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<\[InvisiblePrefixScriptBase]O\>\"", ",", "24", ",", "Bold", 
           ",", "Black"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x1", ",", "y1", ",", "z1"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<\[InvisiblePrefixScriptBase]N\>\"", ",", "24", ",", "Bold", 
           ",", "Black"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x2", ",", "y2", ",", "z2"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<\[InvisiblePrefixScriptBase]H\>\"", ",", "24", ",", "Bold", 
           ",", "Black"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x3", ",", "y3", ",", "z3"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<\[InvisiblePrefixScriptBase]C\>\"", ",", "24", ",", "Bold", 
           ",", "Black"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x4", ",", "y4", ",", "z4"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<\[InvisiblePrefixScriptBase]C\>\"", ",", "24", ",", "Bold", 
           ",", "Black"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x5", ",", "y5", ",", "z5"}], "}"}]}], "]"}]}], 
      "\[IndentingNewLine]", "}"}], ",", 
     RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
     RowBox[{"ViewPoint", "\[Rule]", "Above"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.35696210375764*^9, {3.41012470055711*^9, 3.410124704953176*^9}, {
   3.4101247367447433`*^9, 3.4101247371958113`*^9}, {3.410124870032103*^9, 
   3.41012489443196*^9}, 3.410125001550399*^9, {3.410125110084345*^9, 
   3.41012514038352*^9}, 3.410125198427013*^9, {3.410125276993567*^9, 
   3.4101252901108427`*^9}, {3.410126493312763*^9, 3.410126518550033*^9}, {
   3.410126605387678*^9, 3.410126665718832*^9}, {3.410126715498056*^9, 
   3.410126762367193*^9}, {3.4101268138970413`*^9, 3.410126886631147*^9}, 
   3.4101271003996067`*^9, {3.410127140424881*^9, 3.4101271826259823`*^9}, {
   3.410127735568852*^9, 3.4101278655353403`*^9}, {3.410127897652779*^9, 
   3.410127914417924*^9}, {3.410127969253952*^9, 3.410127972756975*^9}, {
   3.410128004175777*^9, 3.410128012837775*^9}, {3.4101281379548798`*^9, 
   3.4101281550056133`*^9}, {3.410128187938736*^9, 3.4101282613053637`*^9}, {
   3.410128368379382*^9, 3.410128523683168*^9}, {3.41012856860485*^9, 
   3.410128648097501*^9}, {3.410128727344205*^9, 3.410128733396545*^9}, {
   3.4101292038224897`*^9, 3.410129242949656*^9}, {3.410129281528308*^9, 
   3.4101292971138363`*^9}, {3.410129439353531*^9, 3.4101294458378963`*^9}, {
   3.4101749583680553`*^9, 3.4101750500967627`*^9}, {3.4101751368294067`*^9, 
   3.4101753752572937`*^9}, {3.4103066335700912`*^9, 
   3.4103067722992687`*^9}, {3.410310503011437*^9, 3.4103105133872557`*^9}, {
   3.410310547565235*^9, 3.410310581906501*^9}, {3.410310643510171*^9, 
   3.410310753269761*^9}, {3.4103108133721037`*^9, 3.410310851605075*^9}, {
   3.410310892114525*^9, 3.410310958284546*^9}, {3.410311226861437*^9, 
   3.410311245283016*^9}, {3.410311351621456*^9, 3.410311353754719*^9}, {
   3.4103147591266937`*^9, 3.4103147653399563`*^9}, {3.410314812286326*^9, 
   3.410314817396747*^9}, {3.4103582064167624`*^9, 3.4103582805898943`*^9}, {
   3.410358369259482*^9, 3.410358375631775*^9}, 3.410358476100917*^9, 
   3.410359102017147*^9, 3.410359136477819*^9, {3.410378812528019*^9, 
   3.410378834540846*^9}, {3.410378866261559*^9, 3.410378900153358*^9}, {
   3.410378931073868*^9, 3.410378971658806*^9}, {3.4103793511000423`*^9, 
   3.410379353473198*^9}, 3.410387392627327*^9, {3.585934421283502*^9, 
   3.585934427773404*^9}, {3.6243134493333893`*^9, 3.6243135350814133`*^9}, 
   3.6259237769868*^9, {3.625923820521132*^9, 3.625923822392928*^9}, {
   3.625924090773679*^9, 3.62592410993478*^9}, {3.625924145379445*^9, 
   3.6259241512355022`*^9}, 3.625924242595707*^9, 3.625924286548594*^9, 
   3.625924347242476*^9, {3.625924404369501*^9, 3.62592440482407*^9}, {
   3.6259244444547462`*^9, 3.625924444894609*^9}, {3.625924498080493*^9, 
   3.625924557405072*^9}, {3.62592468248558*^9, 3.6259246839075108`*^9}, {
   3.625924772036076*^9, 3.625924774314439*^9}},
 CellID->1045860403]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "ManipulateSection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"initvars", ";", "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Graphics3D", "@", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x0", ",", "y0", ",", "z0"}], "}"}], ",", ".4"}], "]"}]}], 
      ",", "backbone", ",", 
      RowBox[{"tetra1", "[", 
       RowBox[{"ang", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
      RowBox[{"tetra2", "[", 
       RowBox[{"ang", "[", 
        RowBox[{"[", "2", "]"}], "]"}], " ", "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"ImageSize", "\[Rule]", 
       RowBox[{"1.1", 
        RowBox[{"{", 
         RowBox[{"525", ",", "350"}], "}"}]}]}], ",", 
      RowBox[{"ViewAngle", "\[Rule]", 
       RowBox[{"Pi", "/", "16"}]}], ",", 
      RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "4"}], ",", "6"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "4"}], ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}]}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ang", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"45", "\[Degree]"}], ",", 
         RowBox[{"120", "\[Degree]"}]}], "}"}], ",", 
       "\"\<\[Phi], \[Psi]\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"0", "\[Degree]"}], ",", 
       RowBox[{"0", "\[Degree]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"360", "\[Degree]"}], ",", 
       RowBox[{"360", "\[Degree]"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.35696210375764*^9, {3.409783635140251*^9, 3.409783988822134*^9}, {
   3.40978416411467*^9, 3.4097842313109913`*^9}, {3.409784430875092*^9, 
   3.409784440745234*^9}, {3.409784488446199*^9, 3.4097844997542267`*^9}, {
   3.4097845431502457`*^9, 3.409784584319475*^9}, {3.409784964379663*^9, 
   3.4097850261539993`*^9}, 3.409785078835856*^9, {3.409785217794482*^9, 
   3.409785325309553*^9}, {3.409785362990638*^9, 3.409785376467453*^9}, {
   3.4097854087495813`*^9, 3.4097854177642717`*^9}, {3.409785450469372*^9, 
   3.409785461293613*^9}, {3.409785517772525*^9, 3.409785569652598*^9}, {
   3.4097856114654417`*^9, 3.409785704678041*^9}, {3.4097857491210403`*^9, 
   3.4097857749037123`*^9}, {3.409844044400032*^9, 3.409844088647944*^9}, {
   3.409844129069886*^9, 3.409844154434638*^9}, {3.409844192296228*^9, 
   3.409844280256589*^9}, {3.4098443690020103`*^9, 3.409844421365818*^9}, {
   3.4098444949688177`*^9, 3.409844519969017*^9}, {3.409844578281281*^9, 
   3.4098445815260687`*^9}, {3.4098446931320677`*^9, 3.409844699975546*^9}, {
   3.409946435655224*^9, 3.4099465387875977`*^9}, {3.409946597623947*^9, 
   3.409946642861661*^9}, {3.4099466802629957`*^9, 3.4099467120958767`*^9}, {
   3.4099467480293837`*^9, 3.40994675561265*^9}, {3.409946791122341*^9, 
   3.409946858015128*^9}, {3.409946974242786*^9, 3.409946997174419*^9}, {
   3.4099471099712*^9, 3.4099471178537903`*^9}, {3.409947208208667*^9, 
   3.409947230778302*^9}, {3.409956379959277*^9, 3.409956389432523*^9}, {
   3.409956579060691*^9, 3.409956580995672*^9}, {3.409957196460927*^9, 
   3.409957203001115*^9}, {3.409957246770659*^9, 3.409957271752509*^9}, {
   3.409959688691074*^9, 3.409959740682115*^9}, {3.40995979846376*^9, 
   3.4099598101748037`*^9}, {3.409959927378628*^9, 3.409959946862713*^9}, {
   3.4099601661575212`*^9, 3.4099602384438057`*^9}, 3.409960283552803*^9, {
   3.409960338328117*^9, 3.4099603539936438`*^9}, {3.40996043515131*^9, 
   3.409960443371462*^9}, {3.4099605158680487`*^9, 3.409960558054582*^9}, {
   3.409960637860519*^9, 3.409960738722103*^9}, {3.409961698323409*^9, 
   3.40996179739744*^9}, {3.409961845520361*^9, 3.409961864973524*^9}, {
   3.4099619035227137`*^9, 3.4099619383598003`*^9}, {3.409961973458202*^9, 
   3.409962002998577*^9}, {3.409962083890604*^9, 3.409962108465521*^9}, 
   3.4099632522010098`*^9, {3.410049488488874*^9, 3.4100494952489443`*^9}, {
   3.41005068344379*^9, 3.410050784385166*^9}, {3.4100509702872972`*^9, 
   3.410050988315133*^9}, {3.410051108142839*^9, 3.4100511142742*^9}, {
   3.4100511965915403`*^9, 3.4100512044861383`*^9}, {3.4100513263775*^9, 
   3.410051380524397*^9}, {3.410051524409589*^9, 3.4100515667085133`*^9}, {
   3.4100520665853853`*^9, 3.410052072628769*^9}, {3.410052136857499*^9, 
   3.410052146989719*^9}, {3.410052237800354*^9, 3.41005224463826*^9}, {
   3.4100525747290916`*^9, 3.410052647266725*^9}, {3.410053431365806*^9, 
   3.410053440844984*^9}, {3.410053485173956*^9, 3.4100534925994987`*^9}, {
   3.410053669236887*^9, 3.410053873490103*^9}, {3.410097511429838*^9, 
   3.410097545259453*^9}, {3.410098868521455*^9, 3.4100989695458384`*^9}, {
   3.410099911087946*^9, 3.41009993341931*^9}, {3.410099966310644*^9, 
   3.4100999766127853`*^9}, 3.41010007056417*^9, 3.410292093851811*^9, {
   3.410292193411278*^9, 3.410292303722288*^9}, {3.410292467631649*^9, 
   3.41029249081828*^9}, {3.410292595180543*^9, 3.4102925956544*^9}, {
   3.410303710054948*^9, 3.4103037245865297`*^9}, {3.410303755662299*^9, 
   3.410303802394621*^9}, {3.410304198583901*^9, 3.410304235959351*^9}, {
   3.410304281186059*^9, 3.4103042932475653`*^9}, {3.410305106329006*^9, 
   3.410305149110043*^9}, {3.410305246459195*^9, 3.410305367979001*^9}, {
   3.410305457945339*^9, 3.41030547586471*^9}, {3.410305883717586*^9, 
   3.4103059232112103`*^9}, {3.410305964685779*^9, 3.410306003419956*^9}, {
   3.410306065670065*^9, 3.41030613763689*^9}, {3.410306167846157*^9, 
   3.410306174530793*^9}, {3.410306244606346*^9, 3.4103062667411423`*^9}, 
   3.410306316669989*^9, {3.410306477204608*^9, 3.4103064775940123`*^9}, {
   3.41031349836594*^9, 3.4103135058027*^9}, {3.410358099917325*^9, 
   3.4103581059052343`*^9}, {3.410379172164785*^9, 3.4103792748853188`*^9}, 
   3.410379305279724*^9, {3.410379695472342*^9, 3.410379699244899*^9}, {
   3.41037974186583*^9, 3.410379747080412*^9}, {3.410379779041482*^9, 
   3.410379834238103*^9}, {3.410379868592304*^9, 3.410379933853929*^9}, {
   3.410379966263362*^9, 3.4103799887009773`*^9}, {3.410380077456094*^9, 
   3.410380077748951*^9}, {3.410380109545196*^9, 3.4103801492966833`*^9}, {
   3.410380181047579*^9, 3.410380248907137*^9}, {3.4103802929936*^9, 
   3.410380318462963*^9}, {3.410395474682802*^9, 3.4103955032611103`*^9}, {
   3.410396364359375*^9, 3.41039636509375*^9}, {3.4103967884375*^9, 
   3.41039679321875*^9}, {3.6243133943011637`*^9, 3.624313435249703*^9}, {
   3.6243135623528643`*^9, 3.62431370206715*^9}, {3.624313734493752*^9, 
   3.624313734725299*^9}, {3.624313784013403*^9, 3.624313814285625*^9}, {
   3.624313849961295*^9, 3.624313871862914*^9}, {3.6259234987090197`*^9, 
   3.6259235087491627`*^9}, 3.625923597667108*^9, 3.625923631052765*^9, {
   3.625923696103073*^9, 3.625923715751546*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`ang$$ = {45 Degree, 120 Degree}, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`ang$$], {45 Degree, 120 Degree}, "\[Phi], \[Psi]"}, {
      0, 0}, {360 Degree, 360 Degree}}}, Typeset`size$$ = {
    578., {190., 195.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`ang$4586$$ = {0, 0}}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`ang$$ = {45 Degree, 120 Degree}}, 
      "ControllerVariables" :> {
        Hold[$CellContext`ang$$, $CellContext`ang$4586$$, {0, 0}]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> ($CellContext`initvars; Show[
         Graphics3D[
          
          Sphere[{$CellContext`x0, $CellContext`y0, $CellContext`z0}, 
           0.4]], $CellContext`backbone, 
         $CellContext`tetra1[
          Part[$CellContext`ang$$, 1]], 
         $CellContext`tetra2[
          Part[$CellContext`ang$$, 2]], ImageSize -> 1.1 {525, 350}, 
         ViewAngle -> Pi/16, Boxed -> False, 
         PlotRange -> {{-4, 6}, {-4, 2}, {-3, 3}}]), 
      "Specifications" :> {{{$CellContext`ang$$, {45 Degree, 120 Degree}, 
          "\[Phi], \[Psi]"}, {0, 0}, {360 Degree, 360 Degree}}}, 
      "Options" :> {}, "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{727., {217., 222.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`initvars = Null, $CellContext`x0 = 
       0, $CellContext`y0 = 0, $CellContext`z0 = 0, $CellContext`backbone = 
       Graphics3D[{
          RGBColor[
          0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
          Sphere[{0, 0, 0}, 0.4], 
          GrayLevel[0.5], 
          Thickness[0.02], 
          Line[{{0, 0, 0}, {0, 1.24, 0}}], 
          RGBColor[1, 0, 0], 
          Sphere[{0, 1.24, 0}, 0.4], 
          GrayLevel[0], 
          Thickness[0.04], 
          Line[{{0, 0, 0}, {1.1518137870333034`, -0.665, 0}}], 
          RGBColor[0, 0, 1], 
          Sphere[{1.1518137870333034`, -0.665, 0}, 0.4], 
          GrayLevel[0.5], 
          Thickness[0.02], 
          
          Line[{{1.1518137870333034`, -0.665, 0}, {
            1.1518137870333034`, -1.7550000000000001`, 0}}], 
          RGBColor[1, 1, 0], 
          Sphere[{1.1518137870333034`, -1.7550000000000001`, 0}, 0.3], 
          GrayLevel[0.5], 
          Thickness[0.02], 
          Line[{{0, 0, 0}, {-1.3336791218280355`, -0.77, 0}}], 
          RGBColor[
          0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
          Sphere[{-1.3336791218280355`, -0.77, 0}, 0.4], 
          GrayLevel[0.5], 
          
          Line[{{1.1518137870333034`, -0.665, 0}, {
            2.4162108765585835`, 0.06499999999999995, 0}}], 
          RGBColor[
          0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
          Sphere[{2.4162108765585835`, 0.06499999999999995, 0}, 0.4], 
          Text[
           Style["\[Psi]", 36, Bold, 
            GrayLevel[0]], {-0.6668395609140177, -0.385, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]\[Phi]", 36, Bold, 
            GrayLevel[0]], {1.7840123317959433`, -0.30000000000000004`, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]C", 24, Bold, 
            GrayLevel[0]], {0, 0, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]O", 24, Bold, 
            GrayLevel[0]], {0, 1.24, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]N", 24, Bold, 
            GrayLevel[0]], {1.1518137870333034`, -0.665, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]H", 24, Bold, 
            GrayLevel[0]], {1.1518137870333034`, -1.7550000000000001`, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]C", 24, Bold, 
            GrayLevel[0]], {-1.3336791218280355`, -0.77, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]C", 24, Bold, 
            GrayLevel[0]], {2.4162108765585835`, 0.06499999999999995, 0}]}, 
         Boxed -> False, ViewPoint -> Above], $CellContext`tetra1[
         Pattern[$CellContext`\[Phi], 
          Blank[]]] := 
       Module[{$CellContext`\[Phi]1 = $CellContext`\[Phi], $CellContext`xp1, \
$CellContext`yp1, $CellContext`zp1, $CellContext`xh1, $CellContext`yh1, \
$CellContext`zh1, $CellContext`xr1, $CellContext`yr1, $CellContext`zr1}, \
$CellContext`xp1 = $CellContext`x4 - 1.17; $CellContext`yp1 = $CellContext`y4 + 
           1.; $CellContext`zp1 = $CellContext`z4; $CellContext`xh1 = \
($CellContext`rch/$CellContext`rcc) ($CellContext`x4 - 
            0.86); $CellContext`yh1 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`y4 - 
            0.22); $CellContext`zh1 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`z4 + 1.26); $CellContext`xr1 = $CellContext`x4 - 
           0.86; $CellContext`yr1 = $CellContext`y4 - 
           0.22; $CellContext`zr1 = $CellContext`z4 - 1.26; Graphics3D[
           Rotate[{$CellContext`c, 
             
             Sphere[{$CellContext`x4, $CellContext`y4, $CellContext`z4}, 
              0.4], $CellContext`r1, 
             
             Sphere[{$CellContext`xr1, $CellContext`yr1, $CellContext`zr1}, 
              0.5], $CellContext`h, 
             
             Sphere[{$CellContext`xh1, $CellContext`yh1, $CellContext`zh1}, 
              0.3], $CellContext`g, 
             Thickness[0.02], 
             
             Line[{{$CellContext`x4, $CellContext`y4, $CellContext`z4}, \
{$CellContext`xr1, $CellContext`yr1, $CellContext`zr1}}], 
             
             Line[{{$CellContext`x4, $CellContext`y4, $CellContext`z4}, \
{$CellContext`xh1, $CellContext`yh1, $CellContext`zh1}}], 
             
             Line[{{$CellContext`x4, $CellContext`y4, $CellContext`z4}, \
{$CellContext`xp1, $CellContext`yp1, $CellContext`zp1}}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]C", 24, Bold, 
               Black], {$CellContext`x4, $CellContext`y4, $CellContext`z4}], 
             Text[
              Style[
              "H", 24, Bold, 
               Black], {$CellContext`xh1, $CellContext`yh1, \
$CellContext`zh1}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]\!\(\*SubscriptBox[\(R\), \
\(1\)]\)", 32, Bold, 
               Black], {$CellContext`xr1, $CellContext`yr1, \
$CellContext`zr1}], Green, 
             
             Cylinder[{{
               2 $CellContext`xp1 - $CellContext`x4, 
                2 $CellContext`yp1 - $CellContext`y4, 
                2 $CellContext`zp1 - $CellContext`z4}, {
               0.5 ($CellContext`xp1 + $CellContext`x4), 
                0.5 ($CellContext`yp1 + $CellContext`y4), 
                0.5 ($CellContext`zp1 + $CellContext`z4)}}, 
              0.4]}, $CellContext`\[Phi]1, {$CellContext`x4, $CellContext`y4, \
$CellContext`z4}, {$CellContext`x0, $CellContext`y0, $CellContext`z0}], Boxed -> 
           False]], $CellContext`xp1 = -2.5036791218280356`, $CellContext`yp1 = 
       0.22999999999999998`, $CellContext`zp1 = 
       0, $CellContext`xh1 = -1.552668988826337, $CellContext`yh1 = \
-0.7007142857142857, $CellContext`zh1 = 
       0.891818181818182, $CellContext`xr1 = -2.1936791218280356`, \
$CellContext`yr1 = -0.99, $CellContext`zr1 = -1.26, $CellContext`x4 = \
-1.3336791218280355`, $CellContext`y4 = -0.77, $CellContext`z4 = 
       0, $CellContext`rch = 1.09, $CellContext`rcc = 1.54, $CellContext`c = 
       RGBColor[
        0.33333333333333337`, 0.33333333333333337`, 
         0.33333333333333337`], $CellContext`r1 = 
       RGBColor[0.5, 0, 0.5], $CellContext`h = 
       RGBColor[1, 1, 0], $CellContext`g = GrayLevel[0.5], $CellContext`tetra2[
         Pattern[$CellContext`\[Psi], 
          Blank[]]] := 
       Module[{$CellContext`\[Psi]1 = $CellContext`\[Psi], $CellContext`xp2, \
$CellContext`yp2, $CellContext`zp2, $CellContext`xh2, $CellContext`yh2, \
$CellContext`zh2, $CellContext`xr2, $CellContext`yr2, $CellContext`zr2}, \
$CellContext`xp2 = $CellContext`x5 + 1.17; $CellContext`yp2 = $CellContext`y5 - 
           1.; $CellContext`zp2 = $CellContext`z5; $CellContext`xh2 = \
($CellContext`rch/$CellContext`rcc) ($CellContext`x5 + 
            0.86); $CellContext`yh2 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`y5 + 
            0.22); $CellContext`zh2 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`z5 - 1.26); $CellContext`xr2 = $CellContext`x5 + 
           0.86; $CellContext`yr2 = $CellContext`y5 + 
           0.22; $CellContext`zr2 = $CellContext`z5 + 1.26; Graphics3D[
           Rotate[{$CellContext`c, 
             
             Sphere[{$CellContext`x5, $CellContext`y5, $CellContext`z5}, 
              0.4], $CellContext`r2, 
             
             Sphere[{$CellContext`xr2, $CellContext`yr2, $CellContext`zr2}, 
              0.5], $CellContext`h, 
             
             Sphere[{$CellContext`xh2, $CellContext`yh2, $CellContext`zh2}, 
              0.3], $CellContext`g, 
             Thickness[0.02], 
             
             Line[{{$CellContext`x5, $CellContext`y5, $CellContext`z5}, \
{$CellContext`xr2, $CellContext`yr2, $CellContext`zr2}}], 
             
             Line[{{$CellContext`x5, $CellContext`y5, $CellContext`z5}, \
{$CellContext`xh2, $CellContext`yh2, $CellContext`zh2}}], 
             
             Line[{{$CellContext`x5, $CellContext`y5, $CellContext`z5}, \
{$CellContext`xp2, $CellContext`yp2, $CellContext`zp2}}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]C", 24, Bold, 
               Black], {$CellContext`x5, $CellContext`y5, $CellContext`z5}], 
             Text[
              Style[
              "H", 24, Bold, 
               Black], {$CellContext`xh2, $CellContext`yh2, \
$CellContext`zh2}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]\!\(\*SubscriptBox[\(R\), \
\(2\)]\)", 32, Bold, 
               Black], {$CellContext`xr2, $CellContext`yr2, \
$CellContext`zr2}], Green, 
             
             Cylinder[{{
               2 $CellContext`xp2 - $CellContext`x5, 
                2 $CellContext`yp2 - $CellContext`y5, 
                2 $CellContext`zp2 - $CellContext`z5}, {
               0.5 ($CellContext`xp2 + $CellContext`x5), 
                0.5 ($CellContext`yp2 + $CellContext`y5), 
                0.5 ($CellContext`zp2 + $CellContext`z5)}}, 
              0.4]}, $CellContext`\[Psi]1, {$CellContext`x2, $CellContext`y2, \
$CellContext`z2}, {$CellContext`x5, $CellContext`y5, $CellContext`z5}], Boxed -> 
           False]], $CellContext`xp2 = 
       3.5862108765585834`, $CellContext`yp2 = -0.935, $CellContext`zp2 = 
       0, $CellContext`xh2 = 2.318876529512244, $CellContext`yh2 = 
       0.2017207792207792, $CellContext`zh2 = 
       0.891818181818182, $CellContext`xr2 = 
       3.2762108765585833`, $CellContext`yr2 = 
       0.2849999999999999, $CellContext`zr2 = -1.26, $CellContext`x5 = 
       2.4162108765585835`, $CellContext`y5 = 
       0.06499999999999995, $CellContext`z5 = 0, $CellContext`r2 = 
       RGBColor[0.6666666666666666, 1/3, 0.6666666666666666], $CellContext`x2 = 
       1.1518137870333034`, $CellContext`y2 = -0.665, $CellContext`z2 = 0, 
       Attributes[PlotRange] = {ReadProtected}}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellID->33154645]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "ManipulateCaptionSection"],

Cell[TextData[{
 "Biologically active ",
 Cell[BoxData[
  FormBox["\[Alpha]", TraditionalForm]], "InlineMath"],
 "-amino acids are compounds with the general formula ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     StyleBox["H",
      FontSlant->"Plain"], "2"], "NCHRCOOH"}], TraditionalForm]], 
  "InlineMath"],
 ", where ",
 Cell[BoxData[
  FormBox[
   StyleBox["R",
    FontSlant->"Plain"], TraditionalForm]], "InlineMath"],
 " represents one of about 20 possible side groups (or residues). An amide \
linkage is formed by the reaction of the carboxyl group of one molecule with \
the amide group of another. Proteins are built up of chains of amino acids \
connected by amide (or peptide) linkages, with the general structure ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"\[CenterDot]", "\[CenterDot]", "\[CenterDot]", "HNCH"}], 
    FormBox[
     SubscriptBox[
      StyleBox["R",
       FontSlant->"Plain"], "1"],
     TraditionalForm], "CONHCH", 
    RowBox[{
     FormBox[
      SubscriptBox[
       StyleBox["R",
        FontSlant->"Plain"], "2"],
      TraditionalForm], "\[CenterDot]", "\[CenterDot]", "\[CenterDot]"}]}], 
   TraditionalForm]], "InlineMath"],
 ". Chains can vary in length from about 100 to several thousand amino acid \
units."
}], "ManipulateCaption",
 CellChangeTimes->{
  3.35696210375764*^9, {3.410381531346332*^9, 3.4103820000123243`*^9}, {
   3.410382040161644*^9, 3.410382042228498*^9}, {3.410382108991156*^9, 
   3.410382137564302*^9}, {3.4103822078604403`*^9, 3.410382285916657*^9}, {
   3.410382339435944*^9, 3.4103825219008627`*^9}, {3.410382631911327*^9, 
   3.410382651500956*^9}, 3.410383489448825*^9, {3.410383742742834*^9, 
   3.4103837730403967`*^9}, {3.4103838139679537`*^9, 3.410383991127098*^9}, {
   3.410384149389896*^9, 3.410384166311666*^9}, {3.41038478228652*^9, 
   3.41038479628477*^9}, {3.410385286363859*^9, 3.410385295392194*^9}, 
   3.410395791044202*^9, {3.4105328206150985`*^9, 3.4105328437400985`*^9}, {
   3.410532874193223*^9, 3.4105329138025985`*^9}, {3.4105346892088485`*^9, 
   3.4105347355525985`*^9}, 3.410534994599473*^9},
 CellID->719708968],

Cell[TextData[{
 "The linear sequence of amino acids, identified by the side groups ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    StyleBox["R",
     FontSlant->"Plain"], "1"], TraditionalForm]], "InlineMath"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    StyleBox["R",
     FontSlant->"Plain"], "2"], TraditionalForm]], "InlineMath"],
 ", ..., determines the primary structure of the protein. The amide C-N bond \
is relatively rigid (attributed to its partial double-bond character) and \
creates a planar unit incorporating six connected atoms. However, the \
adjacent C-C and N-C bonds can undergo torsional motions, characterized by \
the angles ",
 "\[Psi]",
 " and ",
 Cell[BoxData[
  FormBox["\[Phi]", TraditionalForm]], "InlineMath"],
 ", one set for each amino acid unit. Although possible torsional motions \
might be restricted by steric and electrostatic effects, an immense number of \
conformations remain possible for every protein. In order to fulfill its \
biological function, a protein must attain a very specific three-dimensional \
secondary and tertiary structure. The \"protein folding problem\", a very \
active area of current research, explores the details of how the final \
configuration is achieved."
}], "ManipulateCaption",
 CellChangeTimes->{
  3.35696210375764*^9, {3.4103813630434027`*^9, 3.410381382489541*^9}, {
   3.410381418271592*^9, 3.410381419231539*^9}, {3.41038145581682*^9, 
   3.4103814980798597`*^9}, {3.41038269825633*^9, 3.410382791913763*^9}, {
   3.4103828298534927`*^9, 3.410382871292931*^9}, {3.410382953841827*^9, 
   3.4103832331771107`*^9}, {3.410383265118833*^9, 3.41038340140672*^9}, {
   3.410383513155085*^9, 3.410383725046916*^9}, {3.410384009871955*^9, 
   3.4103840481986723`*^9}, {3.410384085012875*^9, 3.410384085623349*^9}, {
   3.410384190462922*^9, 3.4103843536788054`*^9}, {3.4103843930187187`*^9, 
   3.410384497355674*^9}, {3.410384678439824*^9, 3.4103846883163147`*^9}, {
   3.410384834080069*^9, 3.4103848504844646`*^9}, {3.410384881303845*^9, 
   3.4103850845971622`*^9}, {3.410385131844109*^9, 3.410385140608234*^9}, {
   3.410385180328683*^9, 3.410385207415699*^9}, {3.410386428283092*^9, 
   3.4103864335421963`*^9}, {3.41038696234201*^9, 3.410386984805678*^9}, {
   3.410387020698896*^9, 3.410387023070117*^9}, {3.41039272115625*^9, 
   3.410392733390625*^9}, {3.410395762028392*^9, 3.410395797231742*^9}, {
   3.4105329255213485`*^9, 3.410532942818223*^9}, {3.4105347157713485`*^9, 
   3.4105347215525985`*^9}, {3.585934543868692*^9, 3.58593455013873*^9}}],

Cell[TextData[{
 "This Demonstration presents a simplified schematic representation of the \
possible motions of a protein chain. Two amino-acid units, with side groups ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    StyleBox["R",
     FontSlant->"Plain"], "1"], TraditionalForm]], "InlineMath"],
 " and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    StyleBox["R",
     FontSlant->"Plain"], "2"], TraditionalForm]], "InlineMath"],
 ", are shown. The green cylinders represent the continuation of the protein \
chain in each direction. The torsional angles ",
 Cell[BoxData[
  FormBox["\[Psi]", TraditionalForm]], "InlineMath"],
 " and ",
 Cell[BoxData[
  FormBox["\[Phi]", TraditionalForm]], "InlineMath"],
 " can be independently varied between 0\[Degree] and 360\[Degree]. The \
immense number of possibilities, for just two of the hundreds or thousands of \
configuration variables, is soon apparent."
}], "ManipulateCaption",
 CellChangeTimes->{
  3.35696210375764*^9, {3.4103852130306377`*^9, 3.410385269311573*^9}, {
   3.41038533554432*^9, 3.410385392498629*^9}, {3.41038548229889*^9, 
   3.410385561523933*^9}, {3.410385618112067*^9, 3.410385726849332*^9}, {
   3.410385782320445*^9, 3.4103859513200827`*^9}, {3.410385985847486*^9, 
   3.410386127128196*^9}, 3.410387524518502*^9, {3.410387803158473*^9, 
   3.4103878066489573`*^9}, {3.410392684*^9, 3.410392716625*^9}, {
   3.4105329504275985`*^9, 3.410532953380723*^9}, {3.410534982536973*^9, 
   3.410534989286973*^9}, {3.585934558687821*^9, 3.585934564550495*^9}},
 CellID->1626763557],

Cell["\<\
Remarkably, a linear sequence of amino acids will biologically self-assemble \
in a matter of milliseconds! \
\>", "ManipulateCaption",
 CellChangeTimes->{
  3.35696210375764*^9, {3.410386329233964*^9, 3.410386373005733*^9}, {
   3.41038674140973*^9, 3.410386765199595*^9}},
 CellID->257031333]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "ThumbnailSection"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`ang$$ = {4.5553093477052, 
    2.638937829015426}, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`ang$$], {4.5553093477052, 2.638937829015426}, 
       "\[Phi], \[Psi]"}, {0, 0}, {360 Degree, 360 Degree}}}, 
    Typeset`size$$ = {578., {190., 195.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`ang$4635$$ = {0, 0}}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`ang$$ = {4.5553093477052, 
         2.638937829015426}}, "ControllerVariables" :> {
        Hold[$CellContext`ang$$, $CellContext`ang$4635$$, {0, 0}]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> ($CellContext`initvars; Show[
         Graphics3D[
          
          Sphere[{$CellContext`x0, $CellContext`y0, $CellContext`z0}, 
           0.4]], $CellContext`backbone, 
         $CellContext`tetra1[
          Part[$CellContext`ang$$, 1]], 
         $CellContext`tetra2[
          Part[$CellContext`ang$$, 2]], ImageSize -> 1.1 {525, 350}, 
         ViewAngle -> Pi/16, Boxed -> False, 
         PlotRange -> {{-4, 6}, {-4, 2}, {-3, 3}}]), 
      "Specifications" :> {{{$CellContext`ang$$, {4.5553093477052, 
          2.638937829015426}, "\[Phi], \[Psi]"}, {0, 0}, {
         360 Degree, 360 Degree}}}, "Options" :> {}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{727., {217., 222.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`initvars = Null, $CellContext`x0 = 
       0, $CellContext`y0 = 0, $CellContext`z0 = 0, $CellContext`backbone = 
       Graphics3D[{
          RGBColor[
          0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
          Sphere[{0, 0, 0}, 0.4], 
          GrayLevel[0.5], 
          Thickness[0.02], 
          Line[{{0, 0, 0}, {0, 1.24, 0}}], 
          RGBColor[1, 0, 0], 
          Sphere[{0, 1.24, 0}, 0.4], 
          GrayLevel[0], 
          Thickness[0.04], 
          Line[{{0, 0, 0}, {1.1518137870333034`, -0.665, 0}}], 
          RGBColor[0, 0, 1], 
          Sphere[{1.1518137870333034`, -0.665, 0}, 0.4], 
          GrayLevel[0.5], 
          Thickness[0.02], 
          
          Line[{{1.1518137870333034`, -0.665, 0}, {
            1.1518137870333034`, -1.7550000000000001`, 0}}], 
          RGBColor[1, 1, 0], 
          Sphere[{1.1518137870333034`, -1.7550000000000001`, 0}, 0.3], 
          GrayLevel[0.5], 
          Thickness[0.02], 
          Line[{{0, 0, 0}, {-1.3336791218280355`, -0.77, 0}}], 
          RGBColor[
          0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
          Sphere[{-1.3336791218280355`, -0.77, 0}, 0.4], 
          GrayLevel[0.5], 
          
          Line[{{1.1518137870333034`, -0.665, 0}, {
            2.4162108765585835`, 0.06499999999999995, 0}}], 
          RGBColor[
          0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
          Sphere[{2.4162108765585835`, 0.06499999999999995, 0}, 0.4], 
          Text[
           Style["\[Psi]", 36, Bold, 
            GrayLevel[0]], {-0.6668395609140177, -0.385, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]\[Phi]", 36, Bold, 
            GrayLevel[0]], {1.7840123317959433`, -0.30000000000000004`, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]C", 24, Bold, 
            GrayLevel[0]], {0, 0, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]O", 24, Bold, 
            GrayLevel[0]], {0, 1.24, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]N", 24, Bold, 
            GrayLevel[0]], {1.1518137870333034`, -0.665, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]H", 24, Bold, 
            GrayLevel[0]], {1.1518137870333034`, -1.7550000000000001`, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]C", 24, Bold, 
            GrayLevel[0]], {-1.3336791218280355`, -0.77, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]C", 24, Bold, 
            GrayLevel[0]], {2.4162108765585835`, 0.06499999999999995, 0}]}, 
         Boxed -> False, ViewPoint -> Above], $CellContext`tetra1[
         Pattern[$CellContext`\[Phi], 
          Blank[]]] := 
       Module[{$CellContext`\[Phi]1 = $CellContext`\[Phi], $CellContext`xp1, \
$CellContext`yp1, $CellContext`zp1, $CellContext`xh1, $CellContext`yh1, \
$CellContext`zh1, $CellContext`xr1, $CellContext`yr1, $CellContext`zr1}, \
$CellContext`xp1 = $CellContext`x4 - 1.17; $CellContext`yp1 = $CellContext`y4 + 
           1.; $CellContext`zp1 = $CellContext`z4; $CellContext`xh1 = \
($CellContext`rch/$CellContext`rcc) ($CellContext`x4 - 
            0.86); $CellContext`yh1 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`y4 - 
            0.22); $CellContext`zh1 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`z4 + 1.26); $CellContext`xr1 = $CellContext`x4 - 
           0.86; $CellContext`yr1 = $CellContext`y4 - 
           0.22; $CellContext`zr1 = $CellContext`z4 - 1.26; Graphics3D[
           Rotate[{$CellContext`c, 
             
             Sphere[{$CellContext`x4, $CellContext`y4, $CellContext`z4}, 
              0.4], $CellContext`r1, 
             
             Sphere[{$CellContext`xr1, $CellContext`yr1, $CellContext`zr1}, 
              0.5], $CellContext`h, 
             
             Sphere[{$CellContext`xh1, $CellContext`yh1, $CellContext`zh1}, 
              0.3], $CellContext`g, 
             Thickness[0.02], 
             
             Line[{{$CellContext`x4, $CellContext`y4, $CellContext`z4}, \
{$CellContext`xr1, $CellContext`yr1, $CellContext`zr1}}], 
             
             Line[{{$CellContext`x4, $CellContext`y4, $CellContext`z4}, \
{$CellContext`xh1, $CellContext`yh1, $CellContext`zh1}}], 
             
             Line[{{$CellContext`x4, $CellContext`y4, $CellContext`z4}, \
{$CellContext`xp1, $CellContext`yp1, $CellContext`zp1}}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]C", 24, Bold, 
               Black], {$CellContext`x4, $CellContext`y4, $CellContext`z4}], 
             Text[
              Style[
              "H", 24, Bold, 
               Black], {$CellContext`xh1, $CellContext`yh1, \
$CellContext`zh1}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]\!\(\*SubscriptBox[\(R\), \
\(1\)]\)", 32, Bold, 
               Black], {$CellContext`xr1, $CellContext`yr1, \
$CellContext`zr1}], Green, 
             
             Cylinder[{{
               2 $CellContext`xp1 - $CellContext`x4, 
                2 $CellContext`yp1 - $CellContext`y4, 
                2 $CellContext`zp1 - $CellContext`z4}, {
               0.5 ($CellContext`xp1 + $CellContext`x4), 
                0.5 ($CellContext`yp1 + $CellContext`y4), 
                0.5 ($CellContext`zp1 + $CellContext`z4)}}, 
              0.4]}, $CellContext`\[Phi]1, {$CellContext`x4, $CellContext`y4, \
$CellContext`z4}, {$CellContext`x0, $CellContext`y0, $CellContext`z0}], Boxed -> 
           False]], $CellContext`xp1 = -2.5036791218280356`, $CellContext`yp1 = 
       0.22999999999999998`, $CellContext`zp1 = 
       0, $CellContext`xh1 = -1.552668988826337, $CellContext`yh1 = \
-0.7007142857142857, $CellContext`zh1 = 
       0.891818181818182, $CellContext`xr1 = -2.1936791218280356`, \
$CellContext`yr1 = -0.99, $CellContext`zr1 = -1.26, $CellContext`x4 = \
-1.3336791218280355`, $CellContext`y4 = -0.77, $CellContext`z4 = 
       0, $CellContext`rch = 1.09, $CellContext`rcc = 1.54, $CellContext`c = 
       RGBColor[
        0.33333333333333337`, 0.33333333333333337`, 
         0.33333333333333337`], $CellContext`r1 = 
       RGBColor[0.5, 0, 0.5], $CellContext`h = 
       RGBColor[1, 1, 0], $CellContext`g = GrayLevel[0.5], $CellContext`tetra2[
         Pattern[$CellContext`\[Psi], 
          Blank[]]] := 
       Module[{$CellContext`\[Psi]1 = $CellContext`\[Psi], $CellContext`xp2, \
$CellContext`yp2, $CellContext`zp2, $CellContext`xh2, $CellContext`yh2, \
$CellContext`zh2, $CellContext`xr2, $CellContext`yr2, $CellContext`zr2}, \
$CellContext`xp2 = $CellContext`x5 + 1.17; $CellContext`yp2 = $CellContext`y5 - 
           1.; $CellContext`zp2 = $CellContext`z5; $CellContext`xh2 = \
($CellContext`rch/$CellContext`rcc) ($CellContext`x5 + 
            0.86); $CellContext`yh2 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`y5 + 
            0.22); $CellContext`zh2 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`z5 - 1.26); $CellContext`xr2 = $CellContext`x5 + 
           0.86; $CellContext`yr2 = $CellContext`y5 + 
           0.22; $CellContext`zr2 = $CellContext`z5 + 1.26; Graphics3D[
           Rotate[{$CellContext`c, 
             
             Sphere[{$CellContext`x5, $CellContext`y5, $CellContext`z5}, 
              0.4], $CellContext`r2, 
             
             Sphere[{$CellContext`xr2, $CellContext`yr2, $CellContext`zr2}, 
              0.5], $CellContext`h, 
             
             Sphere[{$CellContext`xh2, $CellContext`yh2, $CellContext`zh2}, 
              0.3], $CellContext`g, 
             Thickness[0.02], 
             
             Line[{{$CellContext`x5, $CellContext`y5, $CellContext`z5}, \
{$CellContext`xr2, $CellContext`yr2, $CellContext`zr2}}], 
             
             Line[{{$CellContext`x5, $CellContext`y5, $CellContext`z5}, \
{$CellContext`xh2, $CellContext`yh2, $CellContext`zh2}}], 
             
             Line[{{$CellContext`x5, $CellContext`y5, $CellContext`z5}, \
{$CellContext`xp2, $CellContext`yp2, $CellContext`zp2}}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]C", 24, Bold, 
               Black], {$CellContext`x5, $CellContext`y5, $CellContext`z5}], 
             Text[
              Style[
              "H", 24, Bold, 
               Black], {$CellContext`xh2, $CellContext`yh2, \
$CellContext`zh2}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]\!\(\*SubscriptBox[\(R\), \
\(2\)]\)", 32, Bold, 
               Black], {$CellContext`xr2, $CellContext`yr2, \
$CellContext`zr2}], Green, 
             
             Cylinder[{{
               2 $CellContext`xp2 - $CellContext`x5, 
                2 $CellContext`yp2 - $CellContext`y5, 
                2 $CellContext`zp2 - $CellContext`z5}, {
               0.5 ($CellContext`xp2 + $CellContext`x5), 
                0.5 ($CellContext`yp2 + $CellContext`y5), 
                0.5 ($CellContext`zp2 + $CellContext`z5)}}, 
              0.4]}, $CellContext`\[Psi]1, {$CellContext`x2, $CellContext`y2, \
$CellContext`z2}, {$CellContext`x5, $CellContext`y5, $CellContext`z5}], Boxed -> 
           False]], $CellContext`xp2 = 
       3.5862108765585834`, $CellContext`yp2 = -0.935, $CellContext`zp2 = 
       0, $CellContext`xh2 = 2.318876529512244, $CellContext`yh2 = 
       0.2017207792207792, $CellContext`zh2 = 
       0.891818181818182, $CellContext`xr2 = 
       3.2762108765585833`, $CellContext`yr2 = 
       0.2849999999999999, $CellContext`zr2 = -1.26, $CellContext`x5 = 
       2.4162108765585835`, $CellContext`y5 = 
       0.06499999999999995, $CellContext`z5 = 0, $CellContext`r2 = 
       RGBColor[0.6666666666666666, 1/3, 0.6666666666666666], $CellContext`x2 = 
       1.1518137870333034`, $CellContext`y2 = -0.665, $CellContext`z2 = 0, 
       Attributes[PlotRange] = {ReadProtected}}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellID->1031853942]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SnapshotsSection"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`ang$$ = {1.1309733552923256`, 
    4.523893421169302}, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`ang$$], {1.1309733552923256`, 4.523893421169302}, 
       "\[Phi], \[Psi]"}, {0, 0}, {360 Degree, 360 Degree}}}, 
    Typeset`size$$ = {578., {190., 195.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`ang$4684$$ = {0, 0}}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`ang$$ = {1.1309733552923256`, 
         4.523893421169302}}, "ControllerVariables" :> {
        Hold[$CellContext`ang$$, $CellContext`ang$4684$$, {0, 0}]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> ($CellContext`initvars; Show[
         Graphics3D[
          
          Sphere[{$CellContext`x0, $CellContext`y0, $CellContext`z0}, 
           0.4]], $CellContext`backbone, 
         $CellContext`tetra1[
          Part[$CellContext`ang$$, 1]], 
         $CellContext`tetra2[
          Part[$CellContext`ang$$, 2]], ImageSize -> 1.1 {525, 350}, 
         ViewAngle -> Pi/16, Boxed -> False, 
         PlotRange -> {{-4, 6}, {-4, 2}, {-3, 3}}]), 
      "Specifications" :> {{{$CellContext`ang$$, {1.1309733552923256`, 
          4.523893421169302}, "\[Phi], \[Psi]"}, {0, 0}, {
         360 Degree, 360 Degree}}}, "Options" :> {}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{727., {217., 222.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`initvars = Null, $CellContext`x0 = 
       0, $CellContext`y0 = 0, $CellContext`z0 = 0, $CellContext`backbone = 
       Graphics3D[{
          RGBColor[
          0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
          Sphere[{0, 0, 0}, 0.4], 
          GrayLevel[0.5], 
          Thickness[0.02], 
          Line[{{0, 0, 0}, {0, 1.24, 0}}], 
          RGBColor[1, 0, 0], 
          Sphere[{0, 1.24, 0}, 0.4], 
          GrayLevel[0], 
          Thickness[0.04], 
          Line[{{0, 0, 0}, {1.1518137870333034`, -0.665, 0}}], 
          RGBColor[0, 0, 1], 
          Sphere[{1.1518137870333034`, -0.665, 0}, 0.4], 
          GrayLevel[0.5], 
          Thickness[0.02], 
          
          Line[{{1.1518137870333034`, -0.665, 0}, {
            1.1518137870333034`, -1.7550000000000001`, 0}}], 
          RGBColor[1, 1, 0], 
          Sphere[{1.1518137870333034`, -1.7550000000000001`, 0}, 0.3], 
          GrayLevel[0.5], 
          Thickness[0.02], 
          Line[{{0, 0, 0}, {-1.3336791218280355`, -0.77, 0}}], 
          RGBColor[
          0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
          Sphere[{-1.3336791218280355`, -0.77, 0}, 0.4], 
          GrayLevel[0.5], 
          
          Line[{{1.1518137870333034`, -0.665, 0}, {
            2.4162108765585835`, 0.06499999999999995, 0}}], 
          RGBColor[
          0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
          Sphere[{2.4162108765585835`, 0.06499999999999995, 0}, 0.4], 
          Text[
           Style["\[Psi]", 36, Bold, 
            GrayLevel[0]], {-0.6668395609140177, -0.385, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]\[Phi]", 36, Bold, 
            GrayLevel[0]], {1.7840123317959433`, -0.30000000000000004`, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]C", 24, Bold, 
            GrayLevel[0]], {0, 0, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]O", 24, Bold, 
            GrayLevel[0]], {0, 1.24, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]N", 24, Bold, 
            GrayLevel[0]], {1.1518137870333034`, -0.665, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]H", 24, Bold, 
            GrayLevel[0]], {1.1518137870333034`, -1.7550000000000001`, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]C", 24, Bold, 
            GrayLevel[0]], {-1.3336791218280355`, -0.77, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]C", 24, Bold, 
            GrayLevel[0]], {2.4162108765585835`, 0.06499999999999995, 0}]}, 
         Boxed -> False, ViewPoint -> Above], $CellContext`tetra1[
         Pattern[$CellContext`\[Phi], 
          Blank[]]] := 
       Module[{$CellContext`\[Phi]1 = $CellContext`\[Phi], $CellContext`xp1, \
$CellContext`yp1, $CellContext`zp1, $CellContext`xh1, $CellContext`yh1, \
$CellContext`zh1, $CellContext`xr1, $CellContext`yr1, $CellContext`zr1}, \
$CellContext`xp1 = $CellContext`x4 - 1.17; $CellContext`yp1 = $CellContext`y4 + 
           1.; $CellContext`zp1 = $CellContext`z4; $CellContext`xh1 = \
($CellContext`rch/$CellContext`rcc) ($CellContext`x4 - 
            0.86); $CellContext`yh1 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`y4 - 
            0.22); $CellContext`zh1 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`z4 + 1.26); $CellContext`xr1 = $CellContext`x4 - 
           0.86; $CellContext`yr1 = $CellContext`y4 - 
           0.22; $CellContext`zr1 = $CellContext`z4 - 1.26; Graphics3D[
           Rotate[{$CellContext`c, 
             
             Sphere[{$CellContext`x4, $CellContext`y4, $CellContext`z4}, 
              0.4], $CellContext`r1, 
             
             Sphere[{$CellContext`xr1, $CellContext`yr1, $CellContext`zr1}, 
              0.5], $CellContext`h, 
             
             Sphere[{$CellContext`xh1, $CellContext`yh1, $CellContext`zh1}, 
              0.3], $CellContext`g, 
             Thickness[0.02], 
             
             Line[{{$CellContext`x4, $CellContext`y4, $CellContext`z4}, \
{$CellContext`xr1, $CellContext`yr1, $CellContext`zr1}}], 
             
             Line[{{$CellContext`x4, $CellContext`y4, $CellContext`z4}, \
{$CellContext`xh1, $CellContext`yh1, $CellContext`zh1}}], 
             
             Line[{{$CellContext`x4, $CellContext`y4, $CellContext`z4}, \
{$CellContext`xp1, $CellContext`yp1, $CellContext`zp1}}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]C", 24, Bold, 
               Black], {$CellContext`x4, $CellContext`y4, $CellContext`z4}], 
             Text[
              Style[
              "H", 24, Bold, 
               Black], {$CellContext`xh1, $CellContext`yh1, \
$CellContext`zh1}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]\!\(\*SubscriptBox[\(R\), \
\(1\)]\)", 32, Bold, 
               Black], {$CellContext`xr1, $CellContext`yr1, \
$CellContext`zr1}], Green, 
             
             Cylinder[{{
               2 $CellContext`xp1 - $CellContext`x4, 
                2 $CellContext`yp1 - $CellContext`y4, 
                2 $CellContext`zp1 - $CellContext`z4}, {
               0.5 ($CellContext`xp1 + $CellContext`x4), 
                0.5 ($CellContext`yp1 + $CellContext`y4), 
                0.5 ($CellContext`zp1 + $CellContext`z4)}}, 
              0.4]}, $CellContext`\[Phi]1, {$CellContext`x4, $CellContext`y4, \
$CellContext`z4}, {$CellContext`x0, $CellContext`y0, $CellContext`z0}], Boxed -> 
           False]], $CellContext`xp1 = -2.5036791218280356`, $CellContext`yp1 = 
       0.22999999999999998`, $CellContext`zp1 = 
       0, $CellContext`xh1 = -1.552668988826337, $CellContext`yh1 = \
-0.7007142857142857, $CellContext`zh1 = 
       0.891818181818182, $CellContext`xr1 = -2.1936791218280356`, \
$CellContext`yr1 = -0.99, $CellContext`zr1 = -1.26, $CellContext`x4 = \
-1.3336791218280355`, $CellContext`y4 = -0.77, $CellContext`z4 = 
       0, $CellContext`rch = 1.09, $CellContext`rcc = 1.54, $CellContext`c = 
       RGBColor[
        0.33333333333333337`, 0.33333333333333337`, 
         0.33333333333333337`], $CellContext`r1 = 
       RGBColor[0.5, 0, 0.5], $CellContext`h = 
       RGBColor[1, 1, 0], $CellContext`g = GrayLevel[0.5], $CellContext`tetra2[
         Pattern[$CellContext`\[Psi], 
          Blank[]]] := 
       Module[{$CellContext`\[Psi]1 = $CellContext`\[Psi], $CellContext`xp2, \
$CellContext`yp2, $CellContext`zp2, $CellContext`xh2, $CellContext`yh2, \
$CellContext`zh2, $CellContext`xr2, $CellContext`yr2, $CellContext`zr2}, \
$CellContext`xp2 = $CellContext`x5 + 1.17; $CellContext`yp2 = $CellContext`y5 - 
           1.; $CellContext`zp2 = $CellContext`z5; $CellContext`xh2 = \
($CellContext`rch/$CellContext`rcc) ($CellContext`x5 + 
            0.86); $CellContext`yh2 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`y5 + 
            0.22); $CellContext`zh2 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`z5 - 1.26); $CellContext`xr2 = $CellContext`x5 + 
           0.86; $CellContext`yr2 = $CellContext`y5 + 
           0.22; $CellContext`zr2 = $CellContext`z5 + 1.26; Graphics3D[
           Rotate[{$CellContext`c, 
             
             Sphere[{$CellContext`x5, $CellContext`y5, $CellContext`z5}, 
              0.4], $CellContext`r2, 
             
             Sphere[{$CellContext`xr2, $CellContext`yr2, $CellContext`zr2}, 
              0.5], $CellContext`h, 
             
             Sphere[{$CellContext`xh2, $CellContext`yh2, $CellContext`zh2}, 
              0.3], $CellContext`g, 
             Thickness[0.02], 
             
             Line[{{$CellContext`x5, $CellContext`y5, $CellContext`z5}, \
{$CellContext`xr2, $CellContext`yr2, $CellContext`zr2}}], 
             
             Line[{{$CellContext`x5, $CellContext`y5, $CellContext`z5}, \
{$CellContext`xh2, $CellContext`yh2, $CellContext`zh2}}], 
             
             Line[{{$CellContext`x5, $CellContext`y5, $CellContext`z5}, \
{$CellContext`xp2, $CellContext`yp2, $CellContext`zp2}}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]C", 24, Bold, 
               Black], {$CellContext`x5, $CellContext`y5, $CellContext`z5}], 
             Text[
              Style[
              "H", 24, Bold, 
               Black], {$CellContext`xh2, $CellContext`yh2, \
$CellContext`zh2}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]\!\(\*SubscriptBox[\(R\), \
\(2\)]\)", 32, Bold, 
               Black], {$CellContext`xr2, $CellContext`yr2, \
$CellContext`zr2}], Green, 
             
             Cylinder[{{
               2 $CellContext`xp2 - $CellContext`x5, 
                2 $CellContext`yp2 - $CellContext`y5, 
                2 $CellContext`zp2 - $CellContext`z5}, {
               0.5 ($CellContext`xp2 + $CellContext`x5), 
                0.5 ($CellContext`yp2 + $CellContext`y5), 
                0.5 ($CellContext`zp2 + $CellContext`z5)}}, 
              0.4]}, $CellContext`\[Psi]1, {$CellContext`x2, $CellContext`y2, \
$CellContext`z2}, {$CellContext`x5, $CellContext`y5, $CellContext`z5}], Boxed -> 
           False]], $CellContext`xp2 = 
       3.5862108765585834`, $CellContext`yp2 = -0.935, $CellContext`zp2 = 
       0, $CellContext`xh2 = 2.318876529512244, $CellContext`yh2 = 
       0.2017207792207792, $CellContext`zh2 = 
       0.891818181818182, $CellContext`xr2 = 
       3.2762108765585833`, $CellContext`yr2 = 
       0.2849999999999999, $CellContext`zr2 = -1.26, $CellContext`x5 = 
       2.4162108765585835`, $CellContext`y5 = 
       0.06499999999999995, $CellContext`z5 = 0, $CellContext`r2 = 
       RGBColor[0.6666666666666666, 1/3, 0.6666666666666666], $CellContext`x2 = 
       1.1518137870333034`, $CellContext`y2 = -0.665, $CellContext`z2 = 0, 
       Attributes[PlotRange] = {ReadProtected}}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellID->1438753669],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`ang$$ = {2.921681167838508, 
    1.382300767579509}, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`ang$$], {2.921681167838508, 1.382300767579509}, 
       "\[Phi], \[Psi]"}, {0, 0}, {360 Degree, 360 Degree}}}, 
    Typeset`size$$ = {578., {190., 195.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`ang$4733$$ = {0, 0}}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`ang$$ = {2.921681167838508, 
         1.382300767579509}}, "ControllerVariables" :> {
        Hold[$CellContext`ang$$, $CellContext`ang$4733$$, {0, 0}]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> ($CellContext`initvars; Show[
         Graphics3D[
          
          Sphere[{$CellContext`x0, $CellContext`y0, $CellContext`z0}, 
           0.4]], $CellContext`backbone, 
         $CellContext`tetra1[
          Part[$CellContext`ang$$, 1]], 
         $CellContext`tetra2[
          Part[$CellContext`ang$$, 2]], ImageSize -> 1.1 {525, 350}, 
         ViewAngle -> Pi/16, Boxed -> False, 
         PlotRange -> {{-4, 6}, {-4, 2}, {-3, 3}}]), 
      "Specifications" :> {{{$CellContext`ang$$, {2.921681167838508, 
          1.382300767579509}, "\[Phi], \[Psi]"}, {0, 0}, {
         360 Degree, 360 Degree}}}, "Options" :> {}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{727., {217., 222.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`initvars = Null, $CellContext`x0 = 
       0, $CellContext`y0 = 0, $CellContext`z0 = 0, $CellContext`backbone = 
       Graphics3D[{
          RGBColor[
          0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
          Sphere[{0, 0, 0}, 0.4], 
          GrayLevel[0.5], 
          Thickness[0.02], 
          Line[{{0, 0, 0}, {0, 1.24, 0}}], 
          RGBColor[1, 0, 0], 
          Sphere[{0, 1.24, 0}, 0.4], 
          GrayLevel[0], 
          Thickness[0.04], 
          Line[{{0, 0, 0}, {1.1518137870333034`, -0.665, 0}}], 
          RGBColor[0, 0, 1], 
          Sphere[{1.1518137870333034`, -0.665, 0}, 0.4], 
          GrayLevel[0.5], 
          Thickness[0.02], 
          
          Line[{{1.1518137870333034`, -0.665, 0}, {
            1.1518137870333034`, -1.7550000000000001`, 0}}], 
          RGBColor[1, 1, 0], 
          Sphere[{1.1518137870333034`, -1.7550000000000001`, 0}, 0.3], 
          GrayLevel[0.5], 
          Thickness[0.02], 
          Line[{{0, 0, 0}, {-1.3336791218280355`, -0.77, 0}}], 
          RGBColor[
          0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
          Sphere[{-1.3336791218280355`, -0.77, 0}, 0.4], 
          GrayLevel[0.5], 
          
          Line[{{1.1518137870333034`, -0.665, 0}, {
            2.4162108765585835`, 0.06499999999999995, 0}}], 
          RGBColor[
          0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
          Sphere[{2.4162108765585835`, 0.06499999999999995, 0}, 0.4], 
          Text[
           Style["\[Psi]", 36, Bold, 
            GrayLevel[0]], {-0.6668395609140177, -0.385, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]\[Phi]", 36, Bold, 
            GrayLevel[0]], {1.7840123317959433`, -0.30000000000000004`, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]C", 24, Bold, 
            GrayLevel[0]], {0, 0, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]O", 24, Bold, 
            GrayLevel[0]], {0, 1.24, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]N", 24, Bold, 
            GrayLevel[0]], {1.1518137870333034`, -0.665, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]H", 24, Bold, 
            GrayLevel[0]], {1.1518137870333034`, -1.7550000000000001`, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]C", 24, Bold, 
            GrayLevel[0]], {-1.3336791218280355`, -0.77, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]C", 24, Bold, 
            GrayLevel[0]], {2.4162108765585835`, 0.06499999999999995, 0}]}, 
         Boxed -> False, ViewPoint -> Above], $CellContext`tetra1[
         Pattern[$CellContext`\[Phi], 
          Blank[]]] := 
       Module[{$CellContext`\[Phi]1 = $CellContext`\[Phi], $CellContext`xp1, \
$CellContext`yp1, $CellContext`zp1, $CellContext`xh1, $CellContext`yh1, \
$CellContext`zh1, $CellContext`xr1, $CellContext`yr1, $CellContext`zr1}, \
$CellContext`xp1 = $CellContext`x4 - 1.17; $CellContext`yp1 = $CellContext`y4 + 
           1.; $CellContext`zp1 = $CellContext`z4; $CellContext`xh1 = \
($CellContext`rch/$CellContext`rcc) ($CellContext`x4 - 
            0.86); $CellContext`yh1 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`y4 - 
            0.22); $CellContext`zh1 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`z4 + 1.26); $CellContext`xr1 = $CellContext`x4 - 
           0.86; $CellContext`yr1 = $CellContext`y4 - 
           0.22; $CellContext`zr1 = $CellContext`z4 - 1.26; Graphics3D[
           Rotate[{$CellContext`c, 
             
             Sphere[{$CellContext`x4, $CellContext`y4, $CellContext`z4}, 
              0.4], $CellContext`r1, 
             
             Sphere[{$CellContext`xr1, $CellContext`yr1, $CellContext`zr1}, 
              0.5], $CellContext`h, 
             
             Sphere[{$CellContext`xh1, $CellContext`yh1, $CellContext`zh1}, 
              0.3], $CellContext`g, 
             Thickness[0.02], 
             
             Line[{{$CellContext`x4, $CellContext`y4, $CellContext`z4}, \
{$CellContext`xr1, $CellContext`yr1, $CellContext`zr1}}], 
             
             Line[{{$CellContext`x4, $CellContext`y4, $CellContext`z4}, \
{$CellContext`xh1, $CellContext`yh1, $CellContext`zh1}}], 
             
             Line[{{$CellContext`x4, $CellContext`y4, $CellContext`z4}, \
{$CellContext`xp1, $CellContext`yp1, $CellContext`zp1}}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]C", 24, Bold, 
               Black], {$CellContext`x4, $CellContext`y4, $CellContext`z4}], 
             Text[
              Style[
              "H", 24, Bold, 
               Black], {$CellContext`xh1, $CellContext`yh1, \
$CellContext`zh1}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]\!\(\*SubscriptBox[\(R\), \
\(1\)]\)", 32, Bold, 
               Black], {$CellContext`xr1, $CellContext`yr1, \
$CellContext`zr1}], Green, 
             
             Cylinder[{{
               2 $CellContext`xp1 - $CellContext`x4, 
                2 $CellContext`yp1 - $CellContext`y4, 
                2 $CellContext`zp1 - $CellContext`z4}, {
               0.5 ($CellContext`xp1 + $CellContext`x4), 
                0.5 ($CellContext`yp1 + $CellContext`y4), 
                0.5 ($CellContext`zp1 + $CellContext`z4)}}, 
              0.4]}, $CellContext`\[Phi]1, {$CellContext`x4, $CellContext`y4, \
$CellContext`z4}, {$CellContext`x0, $CellContext`y0, $CellContext`z0}], Boxed -> 
           False]], $CellContext`xp1 = -2.5036791218280356`, $CellContext`yp1 = 
       0.22999999999999998`, $CellContext`zp1 = 
       0, $CellContext`xh1 = -1.552668988826337, $CellContext`yh1 = \
-0.7007142857142857, $CellContext`zh1 = 
       0.891818181818182, $CellContext`xr1 = -2.1936791218280356`, \
$CellContext`yr1 = -0.99, $CellContext`zr1 = -1.26, $CellContext`x4 = \
-1.3336791218280355`, $CellContext`y4 = -0.77, $CellContext`z4 = 
       0, $CellContext`rch = 1.09, $CellContext`rcc = 1.54, $CellContext`c = 
       RGBColor[
        0.33333333333333337`, 0.33333333333333337`, 
         0.33333333333333337`], $CellContext`r1 = 
       RGBColor[0.5, 0, 0.5], $CellContext`h = 
       RGBColor[1, 1, 0], $CellContext`g = GrayLevel[0.5], $CellContext`tetra2[
         Pattern[$CellContext`\[Psi], 
          Blank[]]] := 
       Module[{$CellContext`\[Psi]1 = $CellContext`\[Psi], $CellContext`xp2, \
$CellContext`yp2, $CellContext`zp2, $CellContext`xh2, $CellContext`yh2, \
$CellContext`zh2, $CellContext`xr2, $CellContext`yr2, $CellContext`zr2}, \
$CellContext`xp2 = $CellContext`x5 + 1.17; $CellContext`yp2 = $CellContext`y5 - 
           1.; $CellContext`zp2 = $CellContext`z5; $CellContext`xh2 = \
($CellContext`rch/$CellContext`rcc) ($CellContext`x5 + 
            0.86); $CellContext`yh2 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`y5 + 
            0.22); $CellContext`zh2 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`z5 - 1.26); $CellContext`xr2 = $CellContext`x5 + 
           0.86; $CellContext`yr2 = $CellContext`y5 + 
           0.22; $CellContext`zr2 = $CellContext`z5 + 1.26; Graphics3D[
           Rotate[{$CellContext`c, 
             
             Sphere[{$CellContext`x5, $CellContext`y5, $CellContext`z5}, 
              0.4], $CellContext`r2, 
             
             Sphere[{$CellContext`xr2, $CellContext`yr2, $CellContext`zr2}, 
              0.5], $CellContext`h, 
             
             Sphere[{$CellContext`xh2, $CellContext`yh2, $CellContext`zh2}, 
              0.3], $CellContext`g, 
             Thickness[0.02], 
             
             Line[{{$CellContext`x5, $CellContext`y5, $CellContext`z5}, \
{$CellContext`xr2, $CellContext`yr2, $CellContext`zr2}}], 
             
             Line[{{$CellContext`x5, $CellContext`y5, $CellContext`z5}, \
{$CellContext`xh2, $CellContext`yh2, $CellContext`zh2}}], 
             
             Line[{{$CellContext`x5, $CellContext`y5, $CellContext`z5}, \
{$CellContext`xp2, $CellContext`yp2, $CellContext`zp2}}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]C", 24, Bold, 
               Black], {$CellContext`x5, $CellContext`y5, $CellContext`z5}], 
             Text[
              Style[
              "H", 24, Bold, 
               Black], {$CellContext`xh2, $CellContext`yh2, \
$CellContext`zh2}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]\!\(\*SubscriptBox[\(R\), \
\(2\)]\)", 32, Bold, 
               Black], {$CellContext`xr2, $CellContext`yr2, \
$CellContext`zr2}], Green, 
             
             Cylinder[{{
               2 $CellContext`xp2 - $CellContext`x5, 
                2 $CellContext`yp2 - $CellContext`y5, 
                2 $CellContext`zp2 - $CellContext`z5}, {
               0.5 ($CellContext`xp2 + $CellContext`x5), 
                0.5 ($CellContext`yp2 + $CellContext`y5), 
                0.5 ($CellContext`zp2 + $CellContext`z5)}}, 
              0.4]}, $CellContext`\[Psi]1, {$CellContext`x2, $CellContext`y2, \
$CellContext`z2}, {$CellContext`x5, $CellContext`y5, $CellContext`z5}], Boxed -> 
           False]], $CellContext`xp2 = 
       3.5862108765585834`, $CellContext`yp2 = -0.935, $CellContext`zp2 = 
       0, $CellContext`xh2 = 2.318876529512244, $CellContext`yh2 = 
       0.2017207792207792, $CellContext`zh2 = 
       0.891818181818182, $CellContext`xr2 = 
       3.2762108765585833`, $CellContext`yr2 = 
       0.2849999999999999, $CellContext`zr2 = -1.26, $CellContext`x5 = 
       2.4162108765585835`, $CellContext`y5 = 
       0.06499999999999995, $CellContext`z5 = 0, $CellContext`r2 = 
       RGBColor[0.6666666666666666, 1/3, 0.6666666666666666], $CellContext`x2 = 
       1.1518137870333034`, $CellContext`y2 = -0.665, $CellContext`z2 = 0, 
       Attributes[PlotRange] = {ReadProtected}}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellID->467049663],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`ang$$ = {0.5340707511102649, 0}, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`ang$$], {1.350884841043611, 1.82212373908208}, 
       "\[Phi], \[Psi]"}, {0, 0}, {360 Degree, 360 Degree}}}, 
    Typeset`size$$ = {578., {190., 195.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`ang$4782$$ = {0, 0}}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`ang$$ = {1.350884841043611, 
         1.82212373908208}}, "ControllerVariables" :> {
        Hold[$CellContext`ang$$, $CellContext`ang$4782$$, {0, 0}]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> ($CellContext`initvars; Show[
         Graphics3D[
          
          Sphere[{$CellContext`x0, $CellContext`y0, $CellContext`z0}, 
           0.4]], $CellContext`backbone, 
         $CellContext`tetra1[
          Part[$CellContext`ang$$, 1]], 
         $CellContext`tetra2[
          Part[$CellContext`ang$$, 2]], ImageSize -> 1.1 {525, 350}, 
         ViewAngle -> Pi/16, Boxed -> False, 
         PlotRange -> {{-4, 6}, {-4, 2}, {-3, 3}}]), 
      "Specifications" :> {{{$CellContext`ang$$, {1.350884841043611, 
          1.82212373908208}, "\[Phi], \[Psi]"}, {0, 0}, {
         360 Degree, 360 Degree}}}, "Options" :> {}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{727., {217., 222.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`initvars = Null, $CellContext`x0 = 
       0, $CellContext`y0 = 0, $CellContext`z0 = 0, $CellContext`backbone = 
       Graphics3D[{
          RGBColor[
          0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
          Sphere[{0, 0, 0}, 0.4], 
          GrayLevel[0.5], 
          Thickness[0.02], 
          Line[{{0, 0, 0}, {0, 1.24, 0}}], 
          RGBColor[1, 0, 0], 
          Sphere[{0, 1.24, 0}, 0.4], 
          GrayLevel[0], 
          Thickness[0.04], 
          Line[{{0, 0, 0}, {1.1518137870333034`, -0.665, 0}}], 
          RGBColor[0, 0, 1], 
          Sphere[{1.1518137870333034`, -0.665, 0}, 0.4], 
          GrayLevel[0.5], 
          Thickness[0.02], 
          
          Line[{{1.1518137870333034`, -0.665, 0}, {
            1.1518137870333034`, -1.7550000000000001`, 0}}], 
          RGBColor[1, 1, 0], 
          Sphere[{1.1518137870333034`, -1.7550000000000001`, 0}, 0.3], 
          GrayLevel[0.5], 
          Thickness[0.02], 
          Line[{{0, 0, 0}, {-1.3336791218280355`, -0.77, 0}}], 
          RGBColor[
          0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
          Sphere[{-1.3336791218280355`, -0.77, 0}, 0.4], 
          GrayLevel[0.5], 
          
          Line[{{1.1518137870333034`, -0.665, 0}, {
            2.4162108765585835`, 0.06499999999999995, 0}}], 
          RGBColor[
          0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
          Sphere[{2.4162108765585835`, 0.06499999999999995, 0}, 0.4], 
          Text[
           Style["\[Psi]", 36, Bold, 
            GrayLevel[0]], {-0.6668395609140177, -0.385, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]\[Phi]", 36, Bold, 
            GrayLevel[0]], {1.7840123317959433`, -0.30000000000000004`, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]C", 24, Bold, 
            GrayLevel[0]], {0, 0, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]O", 24, Bold, 
            GrayLevel[0]], {0, 1.24, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]N", 24, Bold, 
            GrayLevel[0]], {1.1518137870333034`, -0.665, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]H", 24, Bold, 
            GrayLevel[0]], {1.1518137870333034`, -1.7550000000000001`, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]C", 24, Bold, 
            GrayLevel[0]], {-1.3336791218280355`, -0.77, 0}], 
          Text[
           Style["\[InvisiblePrefixScriptBase]C", 24, Bold, 
            GrayLevel[0]], {2.4162108765585835`, 0.06499999999999995, 0}]}, 
         Boxed -> False, ViewPoint -> Above], $CellContext`tetra1[
         Pattern[$CellContext`\[Phi], 
          Blank[]]] := 
       Module[{$CellContext`\[Phi]1 = $CellContext`\[Phi], $CellContext`xp1, \
$CellContext`yp1, $CellContext`zp1, $CellContext`xh1, $CellContext`yh1, \
$CellContext`zh1, $CellContext`xr1, $CellContext`yr1, $CellContext`zr1}, \
$CellContext`xp1 = $CellContext`x4 - 1.17; $CellContext`yp1 = $CellContext`y4 + 
           1.; $CellContext`zp1 = $CellContext`z4; $CellContext`xh1 = \
($CellContext`rch/$CellContext`rcc) ($CellContext`x4 - 
            0.86); $CellContext`yh1 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`y4 - 
            0.22); $CellContext`zh1 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`z4 + 1.26); $CellContext`xr1 = $CellContext`x4 - 
           0.86; $CellContext`yr1 = $CellContext`y4 - 
           0.22; $CellContext`zr1 = $CellContext`z4 - 1.26; Graphics3D[
           Rotate[{$CellContext`c, 
             
             Sphere[{$CellContext`x4, $CellContext`y4, $CellContext`z4}, 
              0.4], $CellContext`r1, 
             
             Sphere[{$CellContext`xr1, $CellContext`yr1, $CellContext`zr1}, 
              0.5], $CellContext`h, 
             
             Sphere[{$CellContext`xh1, $CellContext`yh1, $CellContext`zh1}, 
              0.3], $CellContext`g, 
             Thickness[0.02], 
             
             Line[{{$CellContext`x4, $CellContext`y4, $CellContext`z4}, \
{$CellContext`xr1, $CellContext`yr1, $CellContext`zr1}}], 
             
             Line[{{$CellContext`x4, $CellContext`y4, $CellContext`z4}, \
{$CellContext`xh1, $CellContext`yh1, $CellContext`zh1}}], 
             
             Line[{{$CellContext`x4, $CellContext`y4, $CellContext`z4}, \
{$CellContext`xp1, $CellContext`yp1, $CellContext`zp1}}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]C", 24, Bold, 
               Black], {$CellContext`x4, $CellContext`y4, $CellContext`z4}], 
             Text[
              Style[
              "H", 24, Bold, 
               Black], {$CellContext`xh1, $CellContext`yh1, \
$CellContext`zh1}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]\!\(\*SubscriptBox[\(R\), \
\(1\)]\)", 32, Bold, 
               Black], {$CellContext`xr1, $CellContext`yr1, \
$CellContext`zr1}], Green, 
             
             Cylinder[{{
               2 $CellContext`xp1 - $CellContext`x4, 
                2 $CellContext`yp1 - $CellContext`y4, 
                2 $CellContext`zp1 - $CellContext`z4}, {
               0.5 ($CellContext`xp1 + $CellContext`x4), 
                0.5 ($CellContext`yp1 + $CellContext`y4), 
                0.5 ($CellContext`zp1 + $CellContext`z4)}}, 
              0.4]}, $CellContext`\[Phi]1, {$CellContext`x4, $CellContext`y4, \
$CellContext`z4}, {$CellContext`x0, $CellContext`y0, $CellContext`z0}], Boxed -> 
           False]], $CellContext`xp1 = -2.5036791218280356`, $CellContext`yp1 = 
       0.22999999999999998`, $CellContext`zp1 = 
       0, $CellContext`xh1 = -1.552668988826337, $CellContext`yh1 = \
-0.7007142857142857, $CellContext`zh1 = 
       0.891818181818182, $CellContext`xr1 = -2.1936791218280356`, \
$CellContext`yr1 = -0.99, $CellContext`zr1 = -1.26, $CellContext`x4 = \
-1.3336791218280355`, $CellContext`y4 = -0.77, $CellContext`z4 = 
       0, $CellContext`rch = 1.09, $CellContext`rcc = 1.54, $CellContext`c = 
       RGBColor[
        0.33333333333333337`, 0.33333333333333337`, 
         0.33333333333333337`], $CellContext`r1 = 
       RGBColor[0.5, 0, 0.5], $CellContext`h = 
       RGBColor[1, 1, 0], $CellContext`g = GrayLevel[0.5], $CellContext`tetra2[
         Pattern[$CellContext`\[Psi], 
          Blank[]]] := 
       Module[{$CellContext`\[Psi]1 = $CellContext`\[Psi], $CellContext`xp2, \
$CellContext`yp2, $CellContext`zp2, $CellContext`xh2, $CellContext`yh2, \
$CellContext`zh2, $CellContext`xr2, $CellContext`yr2, $CellContext`zr2}, \
$CellContext`xp2 = $CellContext`x5 + 1.17; $CellContext`yp2 = $CellContext`y5 - 
           1.; $CellContext`zp2 = $CellContext`z5; $CellContext`xh2 = \
($CellContext`rch/$CellContext`rcc) ($CellContext`x5 + 
            0.86); $CellContext`yh2 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`y5 + 
            0.22); $CellContext`zh2 = ($CellContext`rch/$CellContext`rcc) \
($CellContext`z5 - 1.26); $CellContext`xr2 = $CellContext`x5 + 
           0.86; $CellContext`yr2 = $CellContext`y5 + 
           0.22; $CellContext`zr2 = $CellContext`z5 + 1.26; Graphics3D[
           Rotate[{$CellContext`c, 
             
             Sphere[{$CellContext`x5, $CellContext`y5, $CellContext`z5}, 
              0.4], $CellContext`r2, 
             
             Sphere[{$CellContext`xr2, $CellContext`yr2, $CellContext`zr2}, 
              0.5], $CellContext`h, 
             
             Sphere[{$CellContext`xh2, $CellContext`yh2, $CellContext`zh2}, 
              0.3], $CellContext`g, 
             Thickness[0.02], 
             
             Line[{{$CellContext`x5, $CellContext`y5, $CellContext`z5}, \
{$CellContext`xr2, $CellContext`yr2, $CellContext`zr2}}], 
             
             Line[{{$CellContext`x5, $CellContext`y5, $CellContext`z5}, \
{$CellContext`xh2, $CellContext`yh2, $CellContext`zh2}}], 
             
             Line[{{$CellContext`x5, $CellContext`y5, $CellContext`z5}, \
{$CellContext`xp2, $CellContext`yp2, $CellContext`zp2}}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]C", 24, Bold, 
               Black], {$CellContext`x5, $CellContext`y5, $CellContext`z5}], 
             Text[
              Style[
              "H", 24, Bold, 
               Black], {$CellContext`xh2, $CellContext`yh2, \
$CellContext`zh2}], 
             Text[
              Style[
              "\[InvisiblePrefixScriptBase]\!\(\*SubscriptBox[\(R\), \
\(2\)]\)", 32, Bold, 
               Black], {$CellContext`xr2, $CellContext`yr2, \
$CellContext`zr2}], Green, 
             
             Cylinder[{{
               2 $CellContext`xp2 - $CellContext`x5, 
                2 $CellContext`yp2 - $CellContext`y5, 
                2 $CellContext`zp2 - $CellContext`z5}, {
               0.5 ($CellContext`xp2 + $CellContext`x5), 
                0.5 ($CellContext`yp2 + $CellContext`y5), 
                0.5 ($CellContext`zp2 + $CellContext`z5)}}, 
              0.4]}, $CellContext`\[Psi]1, {$CellContext`x2, $CellContext`y2, \
$CellContext`z2}, {$CellContext`x5, $CellContext`y5, $CellContext`z5}], Boxed -> 
           False]], $CellContext`xp2 = 
       3.5862108765585834`, $CellContext`yp2 = -0.935, $CellContext`zp2 = 
       0, $CellContext`xh2 = 2.318876529512244, $CellContext`yh2 = 
       0.2017207792207792, $CellContext`zh2 = 
       0.891818181818182, $CellContext`xr2 = 
       3.2762108765585833`, $CellContext`yr2 = 
       0.2849999999999999, $CellContext`zr2 = -1.26, $CellContext`x5 = 
       2.4162108765585835`, $CellContext`y5 = 
       0.06499999999999995, $CellContext`z5 = 0, $CellContext`r2 = 
       RGBColor[0.6666666666666666, 1/3, 0.6666666666666666], $CellContext`x2 = 
       1.1518137870333034`, $CellContext`y2 = -0.665, $CellContext`z2 = 0, 
       Attributes[PlotRange] = {ReadProtected}}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellID->650956256]
}, Open  ]],

Cell["", "DetailsSection"],

Cell[CellGroupData[{

Cell["", "ControlSuggestionsSection"],

Cell[BoxData[
 TooltipBox[
  RowBox[{
   CheckboxBox[True], Cell[" Resize Images"]}],
  "\"Click inside an image to reveal its orange resize frame.\\nDrag any of \
the orange resize handles to resize the image.\"",
  TooltipDelay->0.35]], "ControlSuggestions",
 CellChangeTimes->{3.35696210375764*^9, 3.410387463659059*^9},
 FontFamily->"Verdana",
 CellTags->"ResizeImages"],

Cell[BoxData[
 TooltipBox[
  RowBox[{
   CheckboxBox[True], Cell[" Rotate and Zoom in 3D"]}],
  RowBox[{
   "\"Drag a 3D graphic to rotate it. Starting the drag near the center \
tumbles\\nthe graphic; starting near a corner turns it parallel to the plane \
of the screen.\\nHold down \"", 
    FrameBox[
    "Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
     GrayLevel[0.9]], "\" (or \"", 
    FrameBox[
    "Cmd", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
     GrayLevel[0.9]], "\" on Mac) and drag up and down to zoom.\""}],
  TooltipDelay->0.35]], "ControlSuggestions",
 CellChangeTimes->{3.35696210375764*^9, 3.410387460028534*^9},
 FontFamily->"Verdana",
 CellTags->"RotateAndZoomIn3D"],

Cell[BoxData[
 TooltipBox[
  RowBox[{
   CheckboxBox[False], Cell[" Drag Locators"]}],
  RowBox[{"\"Drag any locator (\"", 
    GraphicsBox[
     LocatorBox[
      Scaled[{0.5, 0.5}]], ImageSize -> 20], 
    "\", etc.) to move it around.\""}],
  TooltipDelay->0.35]], "ControlSuggestions",
 FontFamily->"Verdana",
 CellTags->"DragLocators"],

Cell[BoxData[
 TooltipBox[
  RowBox[{
   CheckboxBox[False], Cell[" Create and Delete Locators"]}],
  RowBox[{"\"Insert a new locator in the graphic by holding down the \"", 
    FrameBox[
    "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
     GrayLevel[0.9]], 
    "\" key\\nand clicking where you want it to be. Delete a locator by \
clicking it\\nwhile holding down the \"", 
    FrameBox[
    "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
     GrayLevel[0.9]], "\" key.\""}],
  TooltipDelay->0.35]], "ControlSuggestions",
 FontFamily->"Verdana",
 CellTags->"CreateAndDeleteLocators"],

Cell[BoxData[
 TooltipBox[
  RowBox[{
   CheckboxBox[False], Cell[" Slider Zoom"]}],
  RowBox[{"\"Hold down the \"", 
    FrameBox[
    "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
     GrayLevel[0.9]], 
    "\" key while moving a slider to make fine adjustments in the slider \
value.\\nHold \"", 
    FrameBox[
    "Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
     GrayLevel[0.9]], "\" and/or \"", 
    FrameBox[
    "Shift", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
     GrayLevel[0.9]], "\" at the same time as \"", 
    FrameBox[
    "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> 
     GrayLevel[0.9]], "\" to make ever finer adjustments.\""}],
  TooltipDelay->0.35]], "ControlSuggestions",
 FontFamily->"Verdana",
 CellTags->"SliderZoom"],

Cell[BoxData[
 TooltipBox[
  RowBox[{
   CheckboxBox[False], Cell[" Gamepad Controls"]}],
  "\"Control this Demonstration with a gamepad or other\\nhuman interface \
device connected to your computer.\"",
  TooltipDelay->0.35]], "ControlSuggestions",
 CellChangeTimes->{3.35696210375764*^9, 3.3895522232313623`*^9},
 FontFamily->"Verdana",
 CellTags->"GamepadControls"],

Cell[BoxData[
 TooltipBox[
  RowBox[{
   CheckboxBox[False], Cell[" Automatic Animation"]}],
  RowBox[{"\"Animate a slider in this Demonstration by clicking the\"", 
    AdjustmentBox[
     Cell[
      GraphicsData[
      "CompressedBitmap", 
       "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwcIKwAgOI/R/IhBKc\n\
/4EAyGAG0f+nTZsGwgysIJIRKsWKLAXGIHFmEpUgLADxWUAkI24jZs+eTaEt\n\
IG+wQKRmzJgBlYf5lhEA30OqWA=="], "Graphics", ImageSize -> {9, 9}, ImageMargins -> 
      0], BoxBaselineShift -> 0.1839080459770115, 
     BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], 
    "\"button\\nnext to the slider, and then clicking the play button that \
appears.\\nAnimate all controls by selecting \"", 
    StyleBox["Autorun", FontWeight -> "Bold"], "\" from the\"", 
    AdjustmentBox[
     Cell[
      GraphicsData[
      "CompressedBitmap", 
       "eJyNULENwyAQfEySIlMwTVJlCGRFsosokeNtqBmDBagoaZjAI1C8/8GUUUC6\n\
57h7cQ8PvU7Pl17nUav7oj/TPH7V7b2QJAUAXBkKmCPRowxICy64bRvGGNF7\n\
X8CctGoDSN4xhIDGGDhzFXwUh3/ClBKrDQPmnGXtI6u0OOd+tZBVUqy1xSaH\n\
UqiK6pPe4XdEdAz6563tx/gejuORGMxJaz8mdpJn7hc="], "Graphics", 
      ImageSize -> {10, 10}, ImageMargins -> 0], BoxBaselineShift -> 
     0.1839080459770115, 
     BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], 
    "\"menu.\""}],
  TooltipDelay->0.35]], "ControlSuggestions",
 FontFamily->"Verdana",
 CellTags->"AutomaticAnimation"],

Cell[BoxData[
 TooltipBox[
  RowBox[{
   CheckboxBox[False], Cell[" Bookmark Animation"]}],
  RowBox[{
   "\"See a prepared animation of this Demonstration by selecting\\n\"", 
    StyleBox["Animate Bookmarks", FontWeight -> "Bold"], "\" from the\"", 
    AdjustmentBox[
     Cell[
      GraphicsData[
      "CompressedBitmap", 
       "eJyNULENwyAQfEySIlMwTVJlCGRFsosokeNtqBmDBagoaZjAI1C8/8GUUUC6\n\
57h7cQ8PvU7Pl17nUav7oj/TPH7V7b2QJAUAXBkKmCPRowxICy64bRvGGNF7\n\
X8CctGoDSN4xhIDGGDhzFXwUh3/ClBKrDQPmnGXtI6u0OOd+tZBVUqy1xSaH\n\
UqiK6pPe4XdEdAz6563tx/gejuORGMxJaz8mdpJn7hc="], "Graphics", 
      ImageSize -> {10, 10}, ImageMargins -> 0], BoxBaselineShift -> 
     0.1839080459770115, 
     BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], 
    "\"menu.\""}],
  TooltipDelay->0.35]], "ControlSuggestions",
 FontFamily->"Verdana",
 CellTags->"BookmarkAnimation"]
}, Open  ]],

Cell["", "SearchTermsSection"],

Cell[CellGroupData[{

Cell["", "RelatedLinksSection"],

Cell[TextData[ButtonBox["Protein Structure Analysis and Prediction",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://www.mathematica-journal.com/issue/v5i4/article/fairchild/64-\
69fairchild.mj.pdf"], None}]], "RelatedLinks",
 CellChangeTimes->{
  3.35696210375764*^9, {3.410380623795483*^9, 3.4103806624577227`*^9}, 
   3.410387526436659*^9},
 CellID->2097567160]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "AuthorSection"],

Cell[TextData[{
 "Contributed by: ",
 ButtonBox["S. M. Blinder",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://demonstrations.wolfram.com/author.html?author=S.+M.+Blinder"],
     None},
  ButtonNote->
   "http://demonstrations.wolfram.com/author.html?author=S.+M.+Blinder"]
}], "Author",
 CellChangeTimes->{
  3.35696210375764*^9, {3.410380415322489*^9, 3.410380420743821*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{828, 799},
WindowMargins->{{Automatic, 133}, {Automatic, 0}},
Magnification->1.,
FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 20, \
2012)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Demonstration.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "AutomaticAnimation"->{
  Cell[108474, 2352, 1412, 31, 29, "ControlSuggestions",
   CellTags->"AutomaticAnimation"]},
 "BookmarkAnimation"->{
  Cell[109889, 2385, 882, 21, 29, "ControlSuggestions",
   CellTags->"BookmarkAnimation"]},
 "CreateAndDeleteLocators"->{
  Cell[106615, 2301, 637, 15, 29, "ControlSuggestions",
   CellTags->"CreateAndDeleteLocators"]},
 "DragLocators"->{
  Cell[106272, 2288, 340, 11, 29, "ControlSuggestions",
   CellTags->"DragLocators"]},
 "GamepadControls"->{
  Cell[108102, 2341, 369, 9, 29, "ControlSuggestions",
   CellTags->"GamepadControls"]},
 "ResizeImages"->{
  Cell[105152, 2258, 374, 9, 29, "ControlSuggestions",
   CellTags->"ResizeImages"]},
 "RotateAndZoomIn3D"->{
  Cell[105529, 2269, 740, 17, 29, "ControlSuggestions",
   CellTags->"RotateAndZoomIn3D"]},
 "SliderZoom"->{
  Cell[107255, 2318, 844, 21, 29, "ControlSuggestions",
   CellTags->"SliderZoom"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"AutomaticAnimation", 112135, 2458},
 {"BookmarkAnimation", 112253, 2461},
 {"CreateAndDeleteLocators", 112375, 2464},
 {"DragLocators", 112492, 2467},
 {"GamepadControls", 112601, 2470},
 {"ResizeImages", 112709, 2473},
 {"RotateAndZoomIn3D", 112819, 2476},
 {"SliderZoom", 112928, 2479}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 204, 3, 76, "DemoTitle"],
Cell[CellGroupData[{
Cell[796, 29, 33, 0, 275, "InitializationSection"],
Cell[832, 31, 3412, 78, 137, "Input",
 CellID->1470005039],
Cell[4247, 111, 8152, 180, 223, "Input",
 CellID->1510957599],
Cell[12402, 293, 8535, 184, 243, "Input",
 CellID->1182338211],
Cell[20940, 479, 9362, 211, 457, "Input",
 CellID->1045860403]
}, Open  ]],
Cell[CellGroupData[{
Cell[30339, 695, 29, 0, 243, "ManipulateSection"],
Cell[CellGroupData[{
Cell[30393, 699, 7158, 128, 89, "Input"],
Cell[37554, 829, 12082, 248, 451, "Output",
 CellID->33154645]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[49685, 1083, 36, 0, 181, "ManipulateCaptionSection"],
Cell[49724, 1085, 2136, 52, 87, "ManipulateCaption",
 CellID->719708968],
Cell[51863, 1139, 2547, 47, 135, "ManipulateCaption"],
Cell[54413, 1188, 1552, 34, 71, "ManipulateCaption",
 CellID->1626763557],
Cell[55968, 1224, 304, 7, 23, "ManipulateCaption",
 CellID->257031333]
}, Open  ]],
Cell[CellGroupData[{
Cell[56309, 1236, 28, 0, 179, "ThumbnailSection"],
Cell[56340, 1238, 12155, 250, 451, "Output",
 CellID->1031853942]
}, Open  ]],
Cell[CellGroupData[{
Cell[68532, 1493, 28, 0, 149, "SnapshotsSection"],
Cell[68563, 1495, 12171, 250, 451, "Output",
 CellID->1438753669],
Cell[80737, 1747, 12162, 250, 451, "Output",
 CellID->467049663],
Cell[92902, 1999, 12144, 250, 451, "Output",
 CellID->650956256]
}, Open  ]],
Cell[105061, 2252, 26, 0, 357, "DetailsSection"],
Cell[CellGroupData[{
Cell[105112, 2256, 37, 0, 119, "ControlSuggestionsSection"],
Cell[105152, 2258, 374, 9, 29, "ControlSuggestions",
 CellTags->"ResizeImages"],
Cell[105529, 2269, 740, 17, 29, "ControlSuggestions",
 CellTags->"RotateAndZoomIn3D"],
Cell[106272, 2288, 340, 11, 29, "ControlSuggestions",
 CellTags->"DragLocators"],
Cell[106615, 2301, 637, 15, 29, "ControlSuggestions",
 CellTags->"CreateAndDeleteLocators"],
Cell[107255, 2318, 844, 21, 29, "ControlSuggestions",
 CellTags->"SliderZoom"],
Cell[108102, 2341, 369, 9, 29, "ControlSuggestions",
 CellTags->"GamepadControls"],
Cell[108474, 2352, 1412, 31, 29, "ControlSuggestions",
 CellTags->"AutomaticAnimation"],
Cell[109889, 2385, 882, 21, 29, "ControlSuggestions",
 CellTags->"BookmarkAnimation"]
}, Open  ]],
Cell[110786, 2409, 30, 0, 165, "SearchTermsSection"],
Cell[CellGroupData[{
Cell[110841, 2413, 31, 0, 137, "RelatedLinksSection"],
Cell[110875, 2415, 371, 8, 23, "RelatedLinks",
 CellID->2097567160]
}, Open  ]],
Cell[CellGroupData[{
Cell[111283, 2428, 25, 0, 149, "AuthorSection"],
Cell[111311, 2430, 389, 11, 23, "Author"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)