Genetic_Code_Cubes_std.nb

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

(*** Wolfram CDF File ***)
(* http://www.wolfram.com/cdf *)

(* CreatedBy='Mathematica 12.3' *)

(***************************************************************************)
(*                                                                         *)
(*                                                                         *)
(*  Under the Wolfram FreeCDF terms of use, this file and its content are  *)
(*  bound by the Creative Commons BY-SA Attribution-ShareAlike license.    *)
(*                                                                         *)
(*        For additional information concerning CDF licensing, see:        *)
(*                                                                         *)
(*         www.wolfram.com/cdf/adopting-cdf/licensing-options.html         *)
(*                                                                         *)
(*                                                                         *)
(***************************************************************************)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[      1088,         20]
NotebookDataLength[    201800,       4585]
NotebookOptionsPosition[    197200,       4476]
NotebookOutlinePosition[    200620,       4558]
CellTagsIndexPosition[    200413,       4548]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Genetic Code Cubes ", "Title",
 CellMargins->{{46, 46}, {10, 30}},
 TextAlignment->Center,
 FontFamily->"Times New Roman",
 FontSize->48,
 FontWeight->"Bold",ExpressionUUID->"0364c9af-ea71-4906-b12c-f26580b338b3"],

Cell["Robersy Sanchez", "Text",
 CellFrame->{{0, 0}, {0, 0.5}},
 CellMargins->{{46, 46}, {10, 30}},
 TextAlignment->Left,
 FontFamily->"Times New Roman",
 FontSize->24,
 FontColor->GrayLevel[1],
 Background->RGBColor[
  0., 0.5019607843137255, 
   0.7529411764705882],ExpressionUUID->"997a0dde-c1c6-4d41-ae6c-fdb1c0e51286"],

Cell[TextData[{
 "360 North Frear, Department of Biology. Eberly College of Science. \
University Park. Penn State University. PA 16802. USA.\nEmail: rob547@psu.edu\
\n",
 StyleBox["ORCID: ",
  Background->RGBColor[0., 0.8745098039215686, 0.]],
 StyleBox[ButtonBox["orcid.org/0000-0002-5246-1453",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://orcid.org/0000-0002-5246-1453"], None},
  ButtonNote->"http://orcid.org/0000-0002-5246-1453"],
  Background->RGBColor[0., 0.8745098039215686, 0.]]
}], "Text",
 CellFrame->{{0, 0}, {0.5, 0}},
 CellMargins->{{46, 46}, {10, 30}},
 TextAlignment->Left,
 FontFamily->
  "Times New Roman",ExpressionUUID->"732063f0-145b-4ae7-be79-3defac85e349"],

Cell[CellGroupData[{

Cell["Initialization Code", "Section",
 InitializationGroup->
  True,ExpressionUUID->"2dd4bc70-4631-4463-983b-a7d3419cb9fd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"**", " ", "CODON"}], " ", "SUBSETS"}], " ", "***)"}], 
  "\[IndentingNewLine]", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"StdCode", " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"StringJoin", "[", 
        RowBox[{"Reverse", "[", 
         RowBox[{"RotateLeft", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"IntegerDigits", "[", 
             RowBox[{"k", ",", "4", ",", "3"}], "]"}], "/.", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"0", "\[Rule]", "\"\<A\>\""}], ",", 
              RowBox[{"1", "\[Rule]", "\"\<C\>\""}], ",", 
              RowBox[{"2", "\[Rule]", "\"\<G\>\""}], ",", 
              RowBox[{"3", "\[Rule]", "\"\<U\>\""}]}], "}"}]}], ",", "2"}], 
          "]"}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "63"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Codons", " ", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"StringJoin", "[", 
        RowBox[{
         RowBox[{"IntegerDigits", "[", 
          RowBox[{"k", ",", "4", ",", "3"}], "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"0", "\[Rule]", "\"\<A\>\""}], ",", 
           RowBox[{"1", "\[Rule]", "\"\<C\>\""}], ",", 
           RowBox[{"2", "\[Rule]", "\"\<G\>\""}], ",", 
           RowBox[{"3", "\[Rule]", "\"\<U\>\""}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "63"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Codones", " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"StringJoin", "[", 
        RowBox[{"Reverse", "[", 
         RowBox[{
          RowBox[{"IntegerDigits", "[", 
           RowBox[{"k", ",", "4", ",", "3"}], "]"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"0", "\[Rule]", "\"\<A\>\""}], ",", 
            RowBox[{"1", "\[Rule]", "\"\<C\>\""}], ",", 
            RowBox[{"2", "\[Rule]", "\"\<G\>\""}], ",", 
            RowBox[{"3", "\[Rule]", "\"\<U\>\""}]}], "}"}]}], "]"}], "]"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "0", ",", "63"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", " ", "Initial"}], " ", "Matrix", " ", "element", " ", 
     "values", " ", "for", " ", "the", " ", "lineal", " ", "transformation", 
     " ", "of", " ", "codons", " ", "and", " ", "DNA", " ", "seqeucnes"}], 
    " ", "***)"}], "\[IndentingNewLine]", " ", 
   RowBox[{
    RowBox[{"m11", "=", "0"}], ";", 
    RowBox[{"m12", "=", "1"}], ";", 
    RowBox[{"m13", "=", "0"}], ";"}], "\[IndentingNewLine]", " ", 
   RowBox[{
    RowBox[{"m21", "=", "1"}], ";", 
    RowBox[{"m22", "=", "0"}], ";", 
    RowBox[{"m23", "=", "0"}], ";"}], "\[IndentingNewLine]", " ", 
   RowBox[{
    RowBox[{"m31", "=", "0"}], ";", 
    RowBox[{"m32", "=", "0"}], ";", 
    RowBox[{"m33", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"matrix", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Dynamic", "[", "m11", "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"Dynamic", "[", "m12", "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"Dynamic", "[", "m13", "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Dynamic", "[", "m21", "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"Dynamic", "[", "m22", "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"Dynamic", "[", "m23", "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Dynamic", "[", "m31", "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"Dynamic", "[", "m32", "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"Dynamic", "[", "m33", "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##"}],
     "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      RowBox[{
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
       "**", "**", "**", "**", "**", "**", "**"}], "**", "**"}], "*", " ", 
     "Encoding", " ", "and", " ", "decoding", " ", 
     RowBox[{"functions", " ", "**", "**", "**"}], "*", 
     RowBox[{"**", "**", "**", "**", "**"}], "*", 
     RowBox[{
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
      "**"}]}], "***)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##"}],
     "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"encoding", "[", "enc_", "]"}], ":=", 
     RowBox[{"MapThread", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"#1", "\[Rule]", "#2"}], ")"}], "&"}], ",", 
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"Characters", "[", "enc", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "2", ",", "3"}], "}"}]}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"decoding", "[", "enc_", "]"}], ":=", 
     RowBox[{"MapThread", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"#1", "\[Rule]", "#2"}], ")"}], "&"}], ",", 
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"Characters", "[", "enc", "]"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", "**", "**"}], "*", 
     RowBox[{
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**", " ", "Codon"}], " ", "sequence", " ", 
     RowBox[{"coordinates", " ", "**", "**", "**"}], "*", 
     RowBox[{
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**"}]}], "***)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"points", "[", 
      RowBox[{"s_", ",", 
       RowBox[{"enc_", ":", "\"\<ACGU\>\""}]}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"Characters", "[", "#", "]"}], "]"}], "/.", 
        RowBox[{"encoding", "[", "enc", "]"}]}], "&"}], "/@", "s"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"tripletes", "[", 
      RowBox[{"tr_", ",", 
       RowBox[{"enc_", ":", "\"\<ACGU\>\""}]}], "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"#", "/.", 
        RowBox[{"decoding", "[", "enc", "]"}]}], "&"}], "/@", "tr"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "#"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       " ", "Linear"}], " ", 
     RowBox[{
     "transformation", " ", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
      "**"}]}], "*******)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "#"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tranf", "[", "x_", "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "matrix", "}"}], ",", "\[IndentingNewLine]", 
      "\t\t\t\t\t\t\t\t\t   ", 
      RowBox[{
       RowBox[{"matrix", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"Dynamic", "[", 
              RowBox[{"m11", ",", "Automatic"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"Dynamic", "[", 
              RowBox[{"m12", ",", "Automatic"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"Dynamic", "[", 
              RowBox[{"m13", ",", "Automatic"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"Dynamic", "[", 
              RowBox[{"m21", ",", "Automatic"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"Dynamic", "[", 
              RowBox[{"m22", ",", "Automatic"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"Dynamic", "[", 
              RowBox[{"m23", ",", "Automatic"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"Dynamic", "[", 
              RowBox[{"m31", ",", "Automatic"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"Dynamic", "[", 
              RowBox[{"m32", ",", "Automatic"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"Dynamic", "[", 
              RowBox[{"m33", ",", "Automatic"}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"Mod", "[", 
          RowBox[{
           RowBox[{"matrix", ".", "#"}], ",", "5"}], "]"}], "&"}], "/@", 
        "x"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "#"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", " ", "Matrix"}], " ", 
     RowBox[{
     "determinat", " ", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
      "**"}]}], "*******)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "#"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"matrixDet", "[", "x_", "]"}], ":=", " ", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"matrix", ",", "numDet", ",", "strDet"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{"x", ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"matrix", "=", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"Dynamic", "[", "m11", "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", 
               RowBox[{
                RowBox[{"Dynamic", "[", "m12", "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", 
               RowBox[{
                RowBox[{"Dynamic", "[", "m13", "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"Dynamic", "[", "m21", "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", 
               RowBox[{
                RowBox[{"Dynamic", "[", "m22", "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", 
               RowBox[{
                RowBox[{"Dynamic", "[", "m23", "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"Dynamic", "[", "m31", "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", 
               RowBox[{
                RowBox[{"Dynamic", "[", "m32", "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", 
               RowBox[{
                RowBox[{"Dynamic", "[", "m33", "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}]}], ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"numDet", " ", "=", " ", 
           RowBox[{"Mod", "[", 
            RowBox[{
             RowBox[{"Det", "[", "matrix", "]"}], ",", "5"}], "]"}]}], ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"strDet", " ", "=", " ", "numDet"}]}]}], 
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "#"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*", " ",
      "Product", " ", "and", " ", "Sum", " ", 
     RowBox[{"Operation", " ", "**", "**", "**"}], "*", 
     RowBox[{
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**"}]}], "*******)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "#"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Addition", "[", 
      RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
     RowBox[{"Mod", "[", 
      RowBox[{
       RowBox[{"x", "+", "y"}], ",", "4"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Add", "[", 
      RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Function", "[", 
         RowBox[{"b", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Mod", "[", 
             RowBox[{
              RowBox[{"#", "+", "b"}], ",", "4"}], "]"}], "&"}], "/@", 
           "x"}]}], "]"}], "/@", "y"}], ",", "1"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Multiplication", "[", 
      RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
     RowBox[{"Mod", "[", 
      RowBox[{
       RowBox[{"x", "*", "y"}], ",", "4"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Productos", "[", 
      RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Function", "[", 
         RowBox[{"b", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"Mod", "[", 
             RowBox[{
              RowBox[{"#", "*", "b"}], ",", "4"}], "]"}], "&"}], "/@", 
           "x"}]}], "]"}], "/@", "y"}], ",", "1"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", "**", "**"}], "*", 
     RowBox[{
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**", "**", "**", "**", "**", " ", "Cube"}], " ", 
     RowBox[{"planes", " ", "**", "**", "**"}], "*", 
     RowBox[{"**", "**", "**", "**", "**", "**"}], "*", 
     RowBox[{
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**"}]}], "***)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", " ", "GENETIC"}], " ", "CODE", " ", "PLANES"}], " ", 
    "***)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"GCplaneXAZ", " ", "=", " ", 
     RowBox[{"StdCode", "[", 
      RowBox[{"[", 
       RowBox[{"1", ";;", "16"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"GCplaneXCZ", " ", "=", " ", 
     RowBox[{"StdCode", "[", 
      RowBox[{"[", 
       RowBox[{"17", ";;", "32"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"GCplaneXGZ", " ", "=", " ", 
     RowBox[{"StdCode", "[", 
      RowBox[{"[", 
       RowBox[{"33", ";;", "48"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"GCplaneXUZ", " ", "=", " ", 
     RowBox[{"StdCode", "[", 
      RowBox[{"[", 
       RowBox[{"49", ";;", "64"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"GCplaneAYZ", " ", "=", " ", 
     RowBox[{"Codons", "[", 
      RowBox[{"[", 
       RowBox[{"1", ";;", "16"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"GCplaneCYZ", " ", "=", " ", 
     RowBox[{"Codons", "[", 
      RowBox[{"[", 
       RowBox[{"17", ";;", "32"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"GCplaneGYZ", " ", "=", " ", 
     RowBox[{"Codons", "[", 
      RowBox[{"[", 
       RowBox[{"33", ";;", "48"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"GCplaneUYZ", " ", "=", " ", 
     RowBox[{"Codons", "[", 
      RowBox[{"[", 
       RowBox[{"49", ";;", "64"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"GCplaneXYA", " ", "=", " ", 
     RowBox[{"Codones", "[", 
      RowBox[{"[", 
       RowBox[{"1", ";;", "16"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"GCplaneXYC", " ", "=", " ", 
     RowBox[{"Codones", "[", 
      RowBox[{"[", 
       RowBox[{"17", ";;", "32"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"GCplaneXYG", " ", "=", " ", 
     RowBox[{"Codones", "[", 
      RowBox[{"[", 
       RowBox[{"33", ";;", "48"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"GCplaneXYU", " ", "=", " ", 
     RowBox[{"Codones", "[", 
      RowBox[{"[", 
       RowBox[{"49", ";;", "64"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", " ", "OBLIQUE"}], " ", "PLANES"}], "***)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PlaneXNN", "  ", "=", " ", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"StringJoin", "[", " ", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{"i", ",", "k", ",", "k"}], "}"}], "}"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"0", "\[Rule]", "\"\<A\>\""}], ",", 
            RowBox[{"1", "\[Rule]", "\"\<C\>\""}], ",", 
            RowBox[{"2", "\[Rule]", "\"\<G\>\""}], ",", 
            RowBox[{"3", "\[Rule]", "\"\<U\>\""}]}], "}"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PlaneNYN", "  ", "=", " ", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"StringJoin", "[", " ", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{"k", ",", "i", ",", "k"}], "}"}], "}"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"0", "\[Rule]", "\"\<A\>\""}], ",", 
            RowBox[{"1", "\[Rule]", "\"\<C\>\""}], ",", 
            RowBox[{"2", "\[Rule]", "\"\<G\>\""}], ",", 
            RowBox[{"3", "\[Rule]", "\"\<U\>\""}]}], "}"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PlaneNNZ", "  ", "=", " ", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"StringJoin", "[", " ", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"{", 
            RowBox[{"k", ",", "k", ",", "i"}], "}"}], "}"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"0", "\[Rule]", "\"\<A\>\""}], ",", 
            RowBox[{"1", "\[Rule]", "\"\<C\>\""}], ",", 
            RowBox[{"2", "\[Rule]", "\"\<G\>\""}], ",", 
            RowBox[{"3", "\[Rule]", "\"\<U\>\""}]}], "}"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "0", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", " ", "VERTICAL"}], " ", "LINES", " ", "LABELS"}], " ", 
    "***)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"VlineLabels", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Vertical Line DDZ\>\"", ",", "\"\<Vertical Line DAZ\>\"", ",", 
       "\"\<Vertical Line DCZ\>\"", ",", "\"\<Vertical Line DGZ\>\"", ",", 
       "\"\<Vertical Line DUZ\>\"", ",", "\"\<Vertical Line ADZ\>\"", ",", 
       "\"\<Vertical Line AAZ\>\"", ",", "\"\<Vertical Line ACZ\>\"", ",", 
       "\"\<Vertical Line AGZ\>\"", ",", "\"\<Vertical Line AUZ\>\"", ",", 
       "\"\<Vertical Line CDZ\>\"", ",", "\"\<Vertical Line CAZ\>\"", ",", 
       "\"\<Vertical Line CCZ\>\"", ",", "\"\<Vertical Line CGZ\>\"", ",", 
       "\"\<Vertical Line CUZ\>\"", ",", "\"\<Vertical Line GDZ\>\"", ",", 
       "\"\<Vertical Line GAZ\>\"", ",", "\"\<Vertical Line GCZ\>\"", ",", 
       "\"\<Vertical Line GGZ\>\"", ",", "\"\<Vertical Line GUZ\>\"", ",", 
       "\"\<Vertical Line UDZ\>\"", ",", "\"\<Vertical Line UAZ\>\"", ",", 
       "\"\<Vertical Line UCZ\>\"", ",", "\"\<Vertical Line UGZ\>\"", ",", 
       "\"\<Vertical Line UUZ\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", " ", 
      "FUNCTION"}], " ", 
     RowBox[{"DEFINITIONS", " ", "**", "**", "**"}], "*", 
     RowBox[{
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**"}]}], "********)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}], 
     "*", " ", "Cubes", " ", 
     RowBox[{"functions", " ", "**", "**", "**"}], "*", 
     RowBox[{"**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*", 
     RowBox[{"**", "**", "**", "**", "**", "**", "**", "**", "**"}]}], 
    "*****)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      RowBox[{
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
       "**", "**", " ", "It"}], " ", "is", " ", "uesed", " ", "draws", " ", 
      "vertica"}], ";", " ", 
     RowBox[{"lines", " ", "and", " ", "vertical", " ", 
      RowBox[{
      "planes", " ", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
        "**"}]}]}], "***********)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"VerticalLines", "[", "X_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "initial", "}"}], ",", 
       RowBox[{
        RowBox[{"initial", "=", 
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"StdCode", ",", "X"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", 
        RowBox[{"StdCode", "[", 
         RowBox[{"[", 
          RowBox[{"initial", ";;", 
           RowBox[{"initial", "+", "3"}]}], "]"}], "]"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"V", "[", "X_", "]"}], ":=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"VerticalLines", "[", "X", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{
         RowBox[{"Characters", "[", 
          RowBox[{"VerticalLines", "[", "X", "]"}], "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\"\<A\>\"", "\[Rule]", "0"}], ",", 
           RowBox[{"\"\<C\>\"", "\[Rule]", "1"}], ",", 
           RowBox[{"\"\<G\>\"", "\[Rule]", "2"}], ",", 
           RowBox[{"\"\<U\>\"", "\[Rule]", "3"}]}], "}"}]}], "]"}]}], "}"}]}],
     ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"VerticalPlaneCoordinatesX", "[", 
      RowBox[{"x_", ",", "c_"}], "]"}], " ", ":=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Polygon", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "y", ",", 
            RowBox[{"z", "+", "1"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", 
            RowBox[{"y", "+", "1"}], ",", 
            RowBox[{"z", "+", "1"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", 
            RowBox[{"y", "+", "1"}], ",", "z"}], "}"}]}], "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "0", ",", "c"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"z", ",", "0", ",", "c"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"VerticalPlaneCoordinatesY", "[", 
      RowBox[{"y_", ",", "c_"}], "]"}], " ", ":=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Polygon", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "y", ",", 
            RowBox[{"z", "+", "1"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "+", "1"}], ",", "y", ",", 
            RowBox[{"z", "+", "1"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "+", "1"}], ",", "y", ",", "z"}], "}"}]}], "}"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "c"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"z", ",", "0", ",", "c"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"HorizontalPlaneCoordinates", "[", 
      RowBox[{"z_", ",", "c_"}], "]"}], " ", ":=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Polygon", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", 
            RowBox[{"y", "+", "1"}], ",", "z"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "+", "1"}], ",", 
            RowBox[{"y", "+", "1"}], ",", "z"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "+", "1"}], ",", "y", ",", "z"}], "}"}]}], "}"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "c"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "0", ",", "c"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"TripletCoordinates", "[", 
      RowBox[{"trd_", ",", "crd_", ",", "style_", ",", "col_", ",", "font_"}],
       "]"}], ":=", " ", 
     RowBox[{"MapThread", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#1", ",", "8", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Times New Roman\>\""}], ",", 
            RowBox[{"FontWeight", "\[Rule]", "style"}], ",", "col", ",", 
            "font"}], "]"}], ",", "#2"}], "]"}], "&"}], ",", 
       RowBox[{"{", 
        RowBox[{"trd", ",", "crd"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", " ", "VERTICAL"}], " ", "LINES"}], " ", "***)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"LineAAZ", "=", 
     RowBox[{"V", "[", "\"\<AAA\>\"", "]"}]}], ";", 
    RowBox[{"LineACZ", "=", 
     RowBox[{"V", "[", "\"\<ACA\>\"", "]"}]}], ";", 
    RowBox[{"LineAGZ", "=", 
     RowBox[{"V", "[", "\"\<AGA\>\"", "]"}]}], ";", 
    RowBox[{"LineAUZ", "=", 
     RowBox[{"V", "[", "\"\<AUA\>\"", "]"}]}], ";", 
    RowBox[{"LineCAZ", "=", 
     RowBox[{"V", "[", "\"\<CAA\>\"", "]"}]}], ";", 
    RowBox[{"LineCCZ", "=", 
     RowBox[{"V", "[", "\"\<CCA\>\"", "]"}]}], ";", 
    RowBox[{"LineCGZ", "=", 
     RowBox[{"V", "[", "\"\<CGA\>\"", "]"}]}], ";", 
    RowBox[{"LineCUZ", "=", 
     RowBox[{"V", "[", "\"\<CUA\>\"", "]"}]}], ";", 
    RowBox[{"LineGAZ", "=", 
     RowBox[{"V", "[", "\"\<GAA\>\"", "]"}]}], ";", 
    RowBox[{"LineGCZ", "=", 
     RowBox[{"V", "[", "\"\<GCA\>\"", "]"}]}], ";", 
    RowBox[{"LineGGZ", "=", 
     RowBox[{"V", "[", "\"\<GGA\>\"", "]"}]}], ";", 
    RowBox[{"LineGUZ", "=", 
     RowBox[{"V", "[", "\"\<GUA\>\"", "]"}]}], ";", 
    RowBox[{"LineUAZ", "=", 
     RowBox[{"V", "[", "\"\<UAA\>\"", "]"}]}], ";", 
    RowBox[{"LineUCZ", "=", 
     RowBox[{"V", "[", "\"\<UCA\>\"", "]"}]}], ";", 
    RowBox[{"LineUGZ", "=", 
     RowBox[{"V", "[", "\"\<UGA\>\"", "]"}]}], ";", 
    RowBox[{"LineUUZ", "=", 
     RowBox[{"V", "[", "\"\<UUA\>\"", "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
      "**"}], "*", " ", "SELECTION", " ", 
     RowBox[{
     "FUNCTION", "  ", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**"}], "*"}], "***)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**"}], "*", " ", "Select", " ", "the", " ", "object", " ",
      "to", " ", "be", " ", "visualized", " ", "on", " ", "the", " ", 
     RowBox[{
     "Cube", "  ", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**", "**", "**", "**", "**"}]}], "******)"}], 
   "\[IndentingNewLine]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"f", "[", "t_", "]"}], ":=", " ", 
     RowBox[{"Switch", "[", " ", 
      RowBox[{
      "t", ",", "\[IndentingNewLine]", "\"\<Standard Genetic Code\>\"", ",", 
       "\[IndentingNewLine]", "StdCode", ",", "\[IndentingNewLine]", 
       "\"\<Ancestral Triplet Subset\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<DDD\>\"", ",", "\"\<DDA\>\"", ",", "\"\<DDC\>\"", ",", 
         "\"\<DDG\>\"", ",", "\"\<DDU\>\"", ",", "\"\<DAD\>\"", ",", 
         "\"\<DAA\>\"", ",", "\"\<DAC\>\"", ",", "\"\<DAG\>\"", ",", 
         "\"\<DAU\>\"", ",", "\"\<DCD\>\"", ",", "\"\<DCA\>\"", ",", 
         "\"\<DCC\>\"", ",", "\"\<DCG\>\"", ",", "\"\<DCU\>\"", ",", 
         "\"\<DGD\>\"", ",", "\"\<DGA\>\"", ",", "\"\<DGC\>\"", ",", 
         "\"\<DGG\>\"", ",", "\"\<DGU\>\"", ",", "\"\<DUD\>\"", ",", 
         "\"\<DUA\>\"", ",", "\"\<DUC\>\"", ",", "\"\<DUG\>\"", ",", 
         "\"\<DUU\>\"", ",", "\"\<ADD\>\"", ",", "\"\<ADA\>\"", ",", 
         "\"\<ADC\>\"", ",", "\"\<ADG\>\"", ",", "\"\<ADU\>\"", ",", 
         "\"\<AAD\>\"", ",", "\"\<ACD\>\"", ",", "\"\<AGD\>\"", ",", 
         "\"\<AUD\>\"", ",", "\"\<CDD\>\"", ",", "\"\<CDA\>\"", ",", 
         "\"\<CDC\>\"", ",", "\"\<CDG\>\"", ",", "\"\<CDU\>\"", ",", 
         "\"\<CAD\>\"", ",", "\"\<CCD\>\"", ",", "\"\<CGD\>\"", ",", 
         "\"\<CUD\>\"", ",", "\"\<GDD\>\"", ",", "\"\<GDA\>\"", ",", 
         "\"\<GDC\>\"", ",", "\"\<GDG\>\"", ",", "\"\<GDU\>\"", ",", 
         "\"\<GAD\>\"", ",", "\"\<GCD\>\"", ",", "\"\<GGD\>\"", ",", 
         "\"\<GUD\>\"", ",", "\"\<UDD\>\"", ",", "\"\<UDA\>\"", ",", 
         "\"\<UDC\>\"", ",", "\"\<UDG\>\"", ",", "\"\<UDU\>\"", ",", 
         "\"\<UAD\>\"", ",", "\"\<UCD\>\"", ",", "\"\<UGD\>\"", ",", 
         "\"\<UUD\>\""}], "}"}], ",", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"Oblique", " ", "Planes"}], " ", "*)"}], 
       "\[IndentingNewLine]", "\"\<Oblique Plane XNN\>\"", ",", "PlaneXNN", 
       ",", "\[IndentingNewLine]", "\"\<Oblique Plane NYN\>\"", ",", 
       "PlaneNYN", ",", "\[IndentingNewLine]", "\"\<Oblique Plane NNZ\>\"", 
       ",", "PlaneNNZ", ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"Horizontal", " ", "planes"}], " ", "*)"}], 
       "\[IndentingNewLine]", "\"\<Horizontal Plane XYA\>\"", ",", "PlaneXYA",
        ",", "\[IndentingNewLine]", "\"\<Horizontal Plane XYC\>\"", ",", 
       "PlaneXYC", ",", "\[IndentingNewLine]", "\"\<Horizontal Plane XYG\>\"",
        ",", "PlaneXYG", ",", "\[IndentingNewLine]", 
       "\"\<Horizontal Plane XYU\>\"", ",", "PlaneXYU", ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"Genetic", " ", "code", " ", "planes"}], " ", "*)"}], 
       "\[IndentingNewLine]", "\"\<Code Plane XAZ\>\"", ",", "GCplaneXAZ", 
       ",", "\[IndentingNewLine]", "\"\<Code Plane XCZ\>\"", ",", " ", 
       "GCplaneXCZ", ",", "\[IndentingNewLine]", "\"\<Code Plane XGZ\>\"", 
       ",", "GCplaneXGZ", ",", "\[IndentingNewLine]", 
       "\"\<Code Plane XUZ\>\"", ",", "GCplaneXUZ", ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\"\<Code Plane AYZ\>\"",
        ",", "GCplaneAYZ", ",", "\[IndentingNewLine]", 
       "\"\<Code Plane CYZ\>\"", ",", " ", "GCplaneCYZ", ",", 
       "\[IndentingNewLine]", "\"\<Code Plane GYZ\>\"", ",", "GCplaneGYZ", 
       ",", "\[IndentingNewLine]", "\"\<Code Plane UYZ\>\"", ",", 
       "GCplaneUYZ", ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       "\"\<Code Plane XYA\>\"", ",", "GCplaneXYA", ",", 
       "\[IndentingNewLine]", "\"\<Code Plane XYC\>\"", ",", " ", 
       "GCplaneXYC", ",", "\[IndentingNewLine]", "\"\<Code Plane XYG\>\"", 
       ",", "GCplaneXYG", ",", "\[IndentingNewLine]", 
       "\"\<Code Plane XYU\>\"", ",", "GCplaneXYU", ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"Vertical", " ", "lines"}], " ", "*)"}], 
       "\[IndentingNewLine]", "\"\<Vertical Line AAZ\>\"", ",", "LineAAZ", 
       ",", "\"\<Vertical Line ACZ\>\"", ",", "LineACZ", ",", 
       "\"\<Vertical Line AGZ\>\"", ",", "LineAGZ", ",", 
       "\"\<Vertical Line AUZ\>\"", ",", "LineAUZ", ",", 
       "\"\<Vertical Line CAZ\>\"", ",", "LineCAZ", ",", 
       "\"\<Vertical Line CCZ\>\"", ",", "LineCCZ", ",", 
       "\"\<Vertical Line CGZ\>\"", ",", "LineCGZ", ",", 
       "\"\<Vertical Line CUZ\>\"", ",", "LineCUZ", ",", 
       "\"\<Vertical Line GAZ\>\"", ",", "LineGAZ", ",", 
       "\"\<Vertical Line GCZ\>\"", ",", "LineGCZ", ",", 
       "\"\<Vertical Line GGZ\>\"", ",", "LineGGZ", ",", 
       "\"\<Vertical Line GUZ\>\"", ",", "LineGUZ", ",", 
       "\"\<Vertical Line UAZ\>\"", ",", "LineUAZ", ",", 
       "\"\<Vertical Line UCZ\>\"", ",", "LineUCZ", ",", 
       "\"\<Vertical Line UGZ\>\"", ",", "LineUGZ", ",", 
       "\"\<Vertical Line UUZ\>\"", ",", "LineUUZ", ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"Genetic", " ", "code", " ", "random", " ", "smaple"}], " ", 
        "*)"}], "\[IndentingNewLine]", "\"\<GC Random Sample\>\"", ",", 
       RowBox[{"Flatten", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RandomSample", "[", 
           RowBox[{"GCplaneXAZ", ",", "1"}], "]"}], ",", 
          RowBox[{"RandomSample", "[", 
           RowBox[{"GCplaneXCZ", ",", "1"}], "]"}], ",", 
          RowBox[{"RandomSample", "[", 
           RowBox[{"GCplaneXGZ", ",", "1"}], "]"}], ",", 
          RowBox[{"RandomSample", "[", 
           RowBox[{"GCplaneXUZ", ",", "1"}], "]"}]}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"Amino", " ", "acid", " ", "set"}], " ", "*)"}], 
       "\[IndentingNewLine]", "\"\<Ala\>\"", ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<GCG\>\"", ",", "\"\<GCU\>\"", ",", "\"\<GCA\>\"", ",", 
         "\"\<GCC\>\""}], "}"}], ",", "\[IndentingNewLine]", "\"\<Cys\>\"", 
       ",", 
       RowBox[{"{", 
        RowBox[{"\"\<UGU\>\"", ",", "\"\<UGC\>\""}], "}"}], ",", 
       "\[IndentingNewLine]", "\"\<Asp\>\"", ",", 
       RowBox[{"{", 
        RowBox[{"\"\<GAU\>\"", ",", "\"\<GAC\>\""}], "}"}], ",", 
       "\[IndentingNewLine]", "\"\<Glu\>\"", ",", 
       RowBox[{"{", 
        RowBox[{"\"\<GAG\>\"", ",", "\"\<GAA\>\""}], "}"}], ",", 
       "\[IndentingNewLine]", "\"\<Phe\>\"", ",", 
       RowBox[{"{", 
        RowBox[{"\"\<UUU\>\"", ",", "\"\<UUC\>\""}], "}"}], ",", 
       "\[IndentingNewLine]", "\"\<Gly\>\"", ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<GGG\>\"", ",", "\"\<GGU\>\"", ",", "\"\<GGA\>\"", ",", 
         "\"\<GGC\>\""}], "}"}], ",", "\[IndentingNewLine]", "\"\<His\>\"", 
       ",", 
       RowBox[{"{", 
        RowBox[{"\"\<CAU\>\"", ",", "\"\<CAC\>\""}], "}"}], ",", 
       "\[IndentingNewLine]", "\"\<Ile\>\"", ",", 
       RowBox[{"{", 
        RowBox[{"\"\<AUU\>\"", ",", "\"\<AUA\>\"", ",", "\"\<AUC\>\""}], 
        "}"}], ",", "\[IndentingNewLine]", "\"\<Lys\>\"", ",", 
       RowBox[{"{", 
        RowBox[{"\"\<AAG\>\"", ",", "\"\<AAA\>\""}], "}"}], ",", 
       "\[IndentingNewLine]", "\"\<Leu\>\"", ",", " ", 
       RowBox[{"{", 
        RowBox[{
        "\"\<UUG\>\"", ",", "\"\<UUA\>\"", ",", "\"\<CUG\>\"", ",", 
         "\"\<CUU\>\"", ",", "\"\<CUA\>\"", ",", "\"\<CUC\>\""}], "}"}], ",", 
       "\[IndentingNewLine]", "\"\<Met\>\"", ",", 
       RowBox[{"{", "\"\<AUG\>\"", "}"}], ",", "\[IndentingNewLine]", 
       "\"\<Asn\>\"", ",", 
       RowBox[{"{", 
        RowBox[{"\"\<AAU\>\"", ",", "\"\<AAC\>\""}], "}"}], ",", 
       "\[IndentingNewLine]", "\"\<Pro\>\"", ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<CCG\>\"", ",", "\"\<CCU\>\"", ",", "\"\<CCA\>\"", ",", 
         "\"\<CCC\>\""}], "}"}], ",", "\[IndentingNewLine]", "\"\<Gln\>\"", 
       ",", 
       RowBox[{"{", 
        RowBox[{"\"\<CAG\>\"", ",", "\"\<CAA\>\""}], "}"}], ",", 
       "\[IndentingNewLine]", "\"\<Arg\>\"", ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<AGG\>\"", ",", "\"\<AGA\>\"", ",", "\"\<CGG\>\"", ",", 
         "\"\<CGU\>\"", ",", "\"\<CGA\>\"", ",", "\"\<CGC\>\""}], "}"}], ",", 
       "\[IndentingNewLine]", "\"\<Ser\>\"", ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<UCG\>\"", ",", "\"\<UCU\>\"", ",", "\"\<UCA\>\"", ",", 
         "\"\<UCC\>\"", ",", "\"\<AGU\>\"", ",", "\"\<AGC\>\""}], "}"}], ",", 
       "\[IndentingNewLine]", "\"\<Thr\>\"", ",", " ", 
       RowBox[{"{", 
        RowBox[{
        "\"\<ACG\>\"", ",", "\"\<ACU\>\"", ",", "\"\<ACA\>\"", ",", 
         "\"\<ACC\>\""}], "}"}], ",", "\[IndentingNewLine]", "\"\<Val\>\"", 
       ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<GUG\>\"", ",", "\"\<GUU\>\"", ",", "\"\<GUA\>\"", ",", 
         "\"\<GUC\>\""}], "}"}], ",", "\[IndentingNewLine]", "\"\<Trp\>\"", 
       ",", 
       RowBox[{"{", "\"\<UGG\>\"", "}"}], ",", "\[IndentingNewLine]", 
       "\"\<Tyr\>\"", ",", 
       RowBox[{"{", 
        RowBox[{"\"\<UAU\>\"", ",", "\"\<UAC\>\""}], "}"}], ",", 
       "\[IndentingNewLine]", "\"\<Stop\>\"", ",", 
       RowBox[{"{", 
        RowBox[{"\"\<UGA\>\"", ",", "\"\<UAG\>\"", ",", "\"\<UAA\>\""}], 
        "}"}], ",", "\[IndentingNewLine]", "\"\<None\>\"", ",", 
       RowBox[{"{", "\"\<\>\"", "}"}], ",", "\[IndentingNewLine]", 
       "\"\<DDD\>\"", ",", 
       RowBox[{"{", "\"\<DDD\>\"", "}"}], ",", "\"\<DDA\>\"", ",", 
       RowBox[{"{", "\"\<DDA\>\"", "}"}], ",", "\"\<DDC\>\"", ",", 
       RowBox[{"{", "\"\<DDC\>\"", "}"}], ",", "\"\<DDG\>\"", ",", 
       RowBox[{"{", "\"\<DDG\>\"", "}"}], ",", "\"\<DDU\>\"", ",", 
       RowBox[{"{", "\"\<DDU\>\"", "}"}], ",", "\"\<ADD\>\"", ",", 
       RowBox[{"{", "\"\<ADD\>\"", "}"}], ",", "\"\<ADA\>\"", ",", 
       RowBox[{"{", "\"\<ADA\>\"", "}"}], ",", "\"\<ADC\>\"", ",", 
       RowBox[{"{", "\"\<ADC\>\"", "}"}], ",", "\"\<ADG\>\"", ",", 
       RowBox[{"{", "\"\<ADG\>\"", "}"}], ",", "\"\<ADU\>\"", ",", 
       RowBox[{"{", "\"\<ADU\>\"", "}"}], ",", "\"\<CDD\>\"", ",", 
       RowBox[{"{", "\"\<CDD\>\"", "}"}], ",", "\"\<CDA\>\"", ",", 
       RowBox[{"{", "\"\<CDA\>\"", "}"}], ",", "\"\<CDC\>\"", ",", 
       RowBox[{"{", "\"\<CDC\>\"", "}"}], ",", "\"\<CDG\>\"", ",", 
       RowBox[{"{", "\"\<CDG\>\"", "}"}], ",", "\"\<CDU\>\"", ",", 
       RowBox[{"{", "\"\<CDU\>\"", "}"}], ",", "\"\<GDD\>\"", ",", 
       RowBox[{"{", "\"\<GDD\>\"", "}"}], ",", "\"\<GDA\>\"", ",", 
       RowBox[{"{", "\"\<GDA\>\"", "}"}], ",", "\"\<GDC\>\"", ",", 
       RowBox[{"{", "\"\<GDC\>\"", "}"}], ",", "\"\<GDG\>\"", ",", 
       RowBox[{"{", "\"\<GDG\>\"", "}"}], ",", "\"\<GDU\>\"", ",", 
       RowBox[{"{", "\"\<GDU\>\"", "}"}], ",", "\"\<UDD\>\"", ",", 
       RowBox[{"{", "\"\<UDD\>\"", "}"}], ",", "\"\<UDA\>\"", ",", 
       RowBox[{"{", "\"\<UDA\>\"", "}"}], ",", "\"\<UDC\>\"", ",", 
       RowBox[{"{", "\"\<UDC\>\"", "}"}], ",", "\"\<UDG\>\"", ",", 
       RowBox[{"{", "\"\<UDG\>\"", "}"}], ",", "\"\<UDU\>\"", ",", 
       RowBox[{"{", "\"\<UDU\>\"", "}"}], ",", "\"\<DAD\>\"", ",", 
       RowBox[{"{", "\"\<DAD\>\"", "}"}], ",", "\"\<DAA\>\"", ",", 
       RowBox[{"{", "\"\<DAA\>\"", "}"}], ",", "\"\<DAC\>\"", ",", 
       RowBox[{"{", "\"\<DAC\>\"", "}"}], ",", "\"\<DAG\>\"", ",", 
       RowBox[{"{", "\"\<DAG\>\"", "}"}], ",", "\"\<DAU\>\"", ",", 
       RowBox[{"{", "\"\<DAU\>\"", "}"}], ",", "\"\<AAD\>\"", ",", 
       RowBox[{"{", "\"\<AAD\>\"", "}"}], ",", "\"\<AAA\>\"", ",", 
       RowBox[{"{", "\"\<AAA\>\"", "}"}], ",", "\"\<AAC\>\"", ",", 
       RowBox[{"{", "\"\<AAC\>\"", "}"}], ",", "\"\<AAG\>\"", ",", 
       RowBox[{"{", "\"\<AAG\>\"", "}"}], ",", "\"\<AAU\>\"", ",", 
       RowBox[{"{", "\"\<AAU\>\"", "}"}], ",", "\"\<CAD\>\"", ",", 
       RowBox[{"{", "\"\<CAD\>\"", "}"}], ",", "\"\<CAA\>\"", ",", 
       RowBox[{"{", "\"\<CAA\>\"", "}"}], ",", "\"\<CAC\>\"", ",", 
       RowBox[{"{", "\"\<CAC\>\"", "}"}], ",", "\"\<CAG\>\"", ",", 
       RowBox[{"{", "\"\<CAG\>\"", "}"}], ",", "\"\<CAU\>\"", ",", 
       RowBox[{"{", "\"\<CAU\>\"", "}"}], ",", "\"\<GAD\>\"", ",", 
       RowBox[{"{", "\"\<GAD\>\"", "}"}], ",", "\"\<GAA\>\"", ",", 
       RowBox[{"{", "\"\<GAA\>\"", "}"}], ",", "\"\<GAC\>\"", ",", 
       RowBox[{"{", "\"\<GAC\>\"", "}"}], ",", "\"\<GAG\>\"", ",", 
       RowBox[{"{", "\"\<GAG\>\"", "}"}], ",", "\"\<GAU\>\"", ",", 
       RowBox[{"{", "\"\<GAU\>\"", "}"}], ",", "\"\<UAD\>\"", ",", 
       RowBox[{"{", "\"\<UAD\>\"", "}"}], ",", "\"\<UAA\>\"", ",", 
       RowBox[{"{", "\"\<UAA\>\"", "}"}], ",", "\"\<UAC\>\"", ",", 
       RowBox[{"{", "\"\<UAC\>\"", "}"}], ",", "\"\<UAG\>\"", ",", 
       RowBox[{"{", "\"\<UAG\>\"", "}"}], ",", "\"\<UAU\>\"", ",", 
       RowBox[{"{", "\"\<UAU\>\"", "}"}], ",", "\"\<DCD\>\"", ",", 
       RowBox[{"{", "\"\<DCD\>\"", "}"}], ",", "\"\<DCA\>\"", ",", 
       RowBox[{"{", "\"\<DCA\>\"", "}"}], ",", "\"\<DCC\>\"", ",", 
       RowBox[{"{", "\"\<DCC\>\"", "}"}], ",", "\"\<DCG\>\"", ",", 
       RowBox[{"{", "\"\<DCG\>\"", "}"}], ",", "\"\<DCU\>\"", ",", 
       RowBox[{"{", "\"\<DCU\>\"", "}"}], ",", "\"\<ACD\>\"", ",", 
       RowBox[{"{", "\"\<ACD\>\"", "}"}], ",", "\"\<ACA\>\"", ",", 
       RowBox[{"{", "\"\<ACA\>\"", "}"}], ",", "\"\<ACC\>\"", ",", 
       RowBox[{"{", "\"\<ACC\>\"", "}"}], ",", "\"\<ACG\>\"", ",", 
       RowBox[{"{", "\"\<ACG\>\"", "}"}], ",", "\"\<ACU\>\"", ",", 
       RowBox[{"{", "\"\<ACU\>\"", "}"}], ",", "\"\<CCD\>\"", ",", 
       RowBox[{"{", "\"\<CCD\>\"", "}"}], ",", "\"\<CCA\>\"", ",", 
       RowBox[{"{", "\"\<CCA\>\"", "}"}], ",", "\"\<CCC\>\"", ",", 
       RowBox[{"{", "\"\<CCC\>\"", "}"}], ",", "\"\<CCG\>\"", ",", 
       RowBox[{"{", "\"\<CCG\>\"", "}"}], ",", "\"\<CCU\>\"", ",", 
       RowBox[{"{", "\"\<CCU\>\"", "}"}], ",", "\"\<GCD\>\"", ",", 
       RowBox[{"{", "\"\<GCD\>\"", "}"}], ",", "\"\<GCA\>\"", ",", 
       RowBox[{"{", "\"\<GCA\>\"", "}"}], ",", "\"\<GCC\>\"", ",", 
       RowBox[{"{", "\"\<GCC\>\"", "}"}], ",", "\"\<GCG\>\"", ",", 
       RowBox[{"{", "\"\<GCG\>\"", "}"}], ",", "\"\<GCU\>\"", ",", 
       RowBox[{"{", "\"\<GCU\>\"", "}"}], ",", "\"\<UCD\>\"", ",", 
       RowBox[{"{", "\"\<UCD\>\"", "}"}], ",", "\"\<UCA\>\"", ",", 
       RowBox[{"{", "\"\<UCA\>\"", "}"}], ",", "\"\<UCC\>\"", ",", 
       RowBox[{"{", "\"\<UCC\>\"", "}"}], ",", "\"\<UCG\>\"", ",", 
       RowBox[{"{", "\"\<UCG\>\"", "}"}], ",", "\"\<UCU\>\"", ",", 
       RowBox[{"{", "\"\<UCU\>\"", "}"}], ",", "\"\<DGD\>\"", ",", 
       RowBox[{"{", "\"\<DGD\>\"", "}"}], ",", "\"\<DGA\>\"", ",", 
       RowBox[{"{", "\"\<DGA\>\"", "}"}], ",", "\"\<DGC\>\"", ",", 
       RowBox[{"{", "\"\<DGC\>\"", "}"}], ",", "\"\<DGG\>\"", ",", 
       RowBox[{"{", "\"\<DGG\>\"", "}"}], ",", "\"\<DGU\>\"", ",", 
       RowBox[{"{", "\"\<DGU\>\"", "}"}], ",", "\"\<AGD\>\"", ",", 
       RowBox[{"{", "\"\<AGD\>\"", "}"}], ",", "\"\<AGA\>\"", ",", 
       RowBox[{"{", "\"\<AGA\>\"", "}"}], ",", "\"\<AGC\>\"", ",", 
       RowBox[{"{", "\"\<AGC\>\"", "}"}], ",", "\"\<AGG\>\"", ",", 
       RowBox[{"{", "\"\<AGG\>\"", "}"}], ",", "\"\<AGU\>\"", ",", 
       RowBox[{"{", "\"\<AGU\>\"", "}"}], ",", "\"\<CGD\>\"", ",", 
       RowBox[{"{", "\"\<CGD\>\"", "}"}], ",", "\"\<CGA\>\"", ",", 
       RowBox[{"{", "\"\<CGA\>\"", "}"}], ",", "\"\<CGC\>\"", ",", 
       RowBox[{"{", "\"\<CGC\>\"", "}"}], ",", "\"\<CGG\>\"", ",", 
       RowBox[{"{", "\"\<CGG\>\"", "}"}], ",", "\"\<CGU\>\"", ",", 
       RowBox[{"{", "\"\<CGU\>\"", "}"}], ",", "\"\<GGD\>\"", ",", 
       RowBox[{"{", "\"\<GGD\>\"", "}"}], ",", "\"\<GGA\>\"", ",", 
       RowBox[{"{", "\"\<GGA\>\"", "}"}], ",", "\"\<GGC\>\"", ",", 
       RowBox[{"{", "\"\<GGC\>\"", "}"}], ",", "\"\<GGG\>\"", ",", 
       RowBox[{"{", "\"\<GGG\>\"", "}"}], ",", "\"\<GGU\>\"", ",", 
       RowBox[{"{", "\"\<GGU\>\"", "}"}], ",", "\"\<UGD\>\"", ",", 
       RowBox[{"{", "\"\<UGD\>\"", "}"}], ",", "\"\<UGA\>\"", ",", 
       RowBox[{"{", "\"\<UGA\>\"", "}"}], ",", "\"\<UGC\>\"", ",", 
       RowBox[{"{", "\"\<UGC\>\"", "}"}], ",", "\"\<UGG\>\"", ",", 
       RowBox[{"{", "\"\<UGG\>\"", "}"}], ",", "\"\<UGU\>\"", ",", 
       RowBox[{"{", "\"\<UGU\>\"", "}"}], ",", "\"\<DUD\>\"", ",", 
       RowBox[{"{", "\"\<DUD\>\"", "}"}], ",", "\"\<DUA\>\"", ",", 
       RowBox[{"{", "\"\<DUA\>\"", "}"}], ",", "\"\<DUC\>\"", ",", 
       RowBox[{"{", "\"\<DUC\>\"", "}"}], ",", "\"\<DUG\>\"", ",", 
       RowBox[{"{", "\"\<DUG\>\"", "}"}], ",", "\"\<DUU\>\"", ",", 
       RowBox[{"{", "\"\<DUU\>\"", "}"}], ",", "\"\<AUD\>\"", ",", 
       RowBox[{"{", "\"\<AUD\>\"", "}"}], ",", "\"\<AUA\>\"", ",", 
       RowBox[{"{", "\"\<AUA\>\"", "}"}], ",", "\"\<AUC\>\"", ",", 
       RowBox[{"{", "\"\<AUC\>\"", "}"}], ",", "\"\<AUG\>\"", ",", 
       RowBox[{"{", "\"\<AUG\>\"", "}"}], ",", "\"\<AUU\>\"", ",", 
       RowBox[{"{", "\"\<AUU\>\"", "}"}], ",", "\"\<CUD\>\"", ",", 
       RowBox[{"{", "\"\<CUD\>\"", "}"}], ",", "\"\<CUA\>\"", ",", 
       RowBox[{"{", "\"\<CUA\>\"", "}"}], ",", "\"\<CUC\>\"", ",", 
       RowBox[{"{", "\"\<CUC\>\"", "}"}], ",", "\"\<CUG\>\"", ",", 
       RowBox[{"{", "\"\<CUG\>\"", "}"}], ",", "\"\<CUU\>\"", ",", 
       RowBox[{"{", "\"\<CUU\>\"", "}"}], ",", "\"\<GUD\>\"", ",", 
       RowBox[{"{", "\"\<GUD\>\"", "}"}], ",", "\"\<GUA\>\"", ",", 
       RowBox[{"{", "\"\<GUA\>\"", "}"}], ",", "\"\<GUC\>\"", ",", 
       RowBox[{"{", "\"\<GUC\>\"", "}"}], ",", "\"\<GUG\>\"", ",", 
       RowBox[{"{", "\"\<GUG\>\"", "}"}], ",", "\"\<GUU\>\"", ",", 
       RowBox[{"{", "\"\<GUU\>\"", "}"}], ",", "\"\<UUD\>\"", ",", 
       RowBox[{"{", "\"\<UUD\>\"", "}"}], ",", "\"\<UUA\>\"", ",", 
       RowBox[{"{", "\"\<UUA\>\"", "}"}], ",", "\"\<UUC\>\"", ",", 
       RowBox[{"{", "\"\<UUC\>\"", "}"}], ",", "\"\<UUG\>\"", ",", 
       RowBox[{"{", "\"\<UUG\>\"", "}"}], ",", "\"\<UUU\>\"", ",", 
       RowBox[{"{", "\"\<UUU\>\"", "}"}]}], "\[IndentingNewLine]", "]"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*", " ", 
     "Transcription", " ", 
     RowBox[{
     "Function", " ", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}], 
     "*"}], "***)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**", "**", "**", " ", "Transcription"}], " ", "of", 
     " ", "codons", " ", "into", " ", "amino", " ", 
     RowBox[{
     "acids", " ", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**", "**"}]}], "*****)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"GC", "[", 
      RowBox[{"x_", ",", 
       RowBox[{"enc_", ":", "\"\<ACGU\>\""}]}], "]"}], ":=", 
     RowBox[{"Which", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Ala\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<A\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Cys\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<C\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Asp\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<D\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Glu\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<E\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Phe\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<F\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Gly\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<G\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<His\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<H\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Ile\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<I\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Lys\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<K\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Leu\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<L\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Met\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<M\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Asn\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<N\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Pro\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<P\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Gln\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<Q\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Arg\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<R\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Ser\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<S\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Thr\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<T\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Val\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<V\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Trp\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<W\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Tyr\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<Y\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "[", 
            RowBox[{
             RowBox[{"points", "[", 
              RowBox[{
               RowBox[{"{", "#", "}"}], ",", "enc"}], "]"}], ",", "1"}], 
            "]"}], "&"}], "/@", 
          RowBox[{"f", "[", "\"\<Stop\>\"", "]"}]}], ",", "x"}], "]"}], ",", 
       "\"\<-\>\""}], "\[IndentingNewLine]", "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "#"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", " ", "CUBE"}], " ", 
     RowBox[{
     "FUNCTION", " ", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
       "**", "**"}]}], "*******)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", "##", 
     "#"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"GCube", "[", 
     RowBox[{
     "opacity_", ",", "Operator1_", ",", "Operator2_", ",", "opcolor1_", ",", 
      "opcolor2_", ",", "sumcolor_", ",", "Suma_", ",", "timecolor_", ",", 
      "Producto_", ",", "Size_", ",", "fontweight_", ",", "background_", ",", 
      "cubesize_", ",", "linear_", ",", "linearcolor_", ",", 
      RowBox[{"flag_", ":", "0"}], ",", "enc_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"c", "=", "2"}], ",", 
        RowBox[{"opa", " ", "=", "opacity"}], ",", "triplet", ",", "triplets",
         ",", "tl", ",", "trip", ",", "o1", ",", "oper1", ",", "operat1", ",",
         "operator1", ",", "\[IndentingNewLine]", "\t", "transftriplets1", 
        ",", "graphic", ",", "grafico", ",", "linearamino", ",", "puntos", 
        ",", "puntos2", ",", "operat2", ",", "o2", ",", "oper2", ",", 
        "operator2", ",", "amino", ",", "sumtriplets", ",", "timepoints", ",",
         "timetriplets", ",", "transf", ",", "sumpoints", ",", "sumamino", 
        ",", "timesamino", ",", "amino2"}], "}"}], ",", "\[IndentingNewLine]",
       "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{
        "If", " ", "a", " ", "vertical", " ", "line", " ", "is", " ", 
         "selected"}], ",", " ", 
        RowBox[{
        "then", " ", "a", " ", "line", " ", "is", " ", "resalted", " ", 
         "with", " ", "codon", " ", "drawing", " ", "on", " ", "the", " ", 
         "cube"}]}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"Operator1", "\[NotEqual]", "\"\<None\>\""}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"operat1", "=", "  ", 
           RowBox[{"f", "[", "Operator1", "]"}]}], ";", "\[IndentingNewLine]",
           "\[IndentingNewLine]", 
          RowBox[{"If", " ", "[", 
           RowBox[{
            RowBox[{"MemberQ", "[", 
             RowBox[{"VlineLabels", ",", "Operator1"}], "]"}], ",", 
            RowBox[{
             RowBox[{"o1", "=", "1"}], ";", 
             RowBox[{"oper1", " ", "=", " ", 
              RowBox[{"operat1", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], ";", 
             RowBox[{"operator1", " ", "=", " ", 
              RowBox[{"operat1", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
            RowBox[{"(*", " ", "else", " ", "*)"}], "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"o1", "=", "0"}], ";", 
             RowBox[{"operator1", " ", "=", " ", "operat1"}]}]}], 
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"puntos", "=", 
           RowBox[{"points", "[", 
            RowBox[{"operator1", ",", "enc"}], "]"}]}], ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"flag", "\[Equal]", "1"}], ",", 
            RowBox[{"amino", " ", "=", 
             RowBox[{
              RowBox[{
               RowBox[{"GC", "[", 
                RowBox[{"#", ",", "enc"}], "]"}], "&"}], "/@", "puntos"}]}]}],
            "]"}], ";"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"(*", " ", "Else", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"operator1", " ", "=", " ", 
           RowBox[{"f", "[", "Operator1", "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"puntos", "=", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], "}"}]}], ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"o1", "=", "0"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
       ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"Operator2", "\[NotEqual]", "\"\<None\>\""}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"operat2", "=", "  ", 
           RowBox[{"f", "[", "Operator2", "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"If", " ", "[", 
           RowBox[{
            RowBox[{"MemberQ", "[", 
             RowBox[{"VlineLabels", ",", "Operator2"}], "]"}], ",", 
            RowBox[{
             RowBox[{"o2", "=", "1"}], ";", 
             RowBox[{"oper2", " ", "=", " ", 
              RowBox[{"operat2", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], ";", 
             RowBox[{"operator2", " ", "=", " ", 
              RowBox[{"operat2", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
            RowBox[{"(*", " ", "else", " ", "*)"}], "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"o2", "=", "0"}], ";", 
             RowBox[{"operator2", " ", "=", " ", "operat2"}]}]}], 
           "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
          "\[IndentingNewLine]", 
          RowBox[{"puntos2", "=", 
           RowBox[{"points", "[", 
            RowBox[{"operator2", ",", "enc"}], "]"}]}], ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"flag", "\[Equal]", "1"}], ",", 
            RowBox[{"amino2", " ", "=", 
             RowBox[{
              RowBox[{
               RowBox[{"GC", "[", 
                RowBox[{"#", ",", "enc"}], "]"}], "&"}], "/@", 
              "puntos2"}]}]}], "]"}], ";"}], ",", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", " ", "Else", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"operator2", " ", "=", " ", 
           RowBox[{"f", "[", "Operator2", "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"puntos2", "=", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], "}"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"o2", " ", "=", " ", "0"}], ";"}]}], "\[IndentingNewLine]", 
        "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"**", 
         RowBox[{
         "*", " ", "It", " ", "computes", " ", "the", " ", "coordinate", " ", 
          "of", " ", "triplets", " ", "resulting", " ", "from", " ", "Linear",
           " ", "Transformation"}]}], " ", "***)"}], "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"linear", "&&", 
          RowBox[{"Operator1", "\[NotEqual]", "\"\<None\>\""}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transf", "=", 
           RowBox[{"tranf", "[", "puntos", "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"flag", "\[Equal]", "1"}], ",", 
            RowBox[{"linearamino", " ", "=", 
             RowBox[{
              RowBox[{
               RowBox[{"GC", "[", 
                RowBox[{"#", ",", "enc"}], "]"}], "&"}], "/@", "transf"}]}]}],
            "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"transftriplets1", " ", "=", " ", 
           RowBox[{
            RowBox[{
             RowBox[{"StringJoin", "[", "#", "]"}], "&"}], "/@", 
            RowBox[{"tripletes", "[", 
             RowBox[{"transf", ",", "enc"}], "]"}]}]}], ";"}], ",", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transftriplets1", " ", "=", " ", 
           RowBox[{"{", "\"\<\>\"", "}"}]}], ";", 
          RowBox[{"transf", " ", "=", " ", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], "}"}]}], ";", " ", 
          RowBox[{"linearamino", "=", 
           RowBox[{"{", "\"\<\>\"", "}"}]}], ";"}]}], "\[IndentingNewLine]", 
        "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"**", 
         RowBox[{
         "*", " ", "It", " ", "compute", " ", "the", " ", "coordinate", " ", 
          "of", " ", "triplets", " ", "resulting", " ", "from", " ", "Sum", 
          " ", "Operation"}]}], " ", "***)"}], "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"Suma", " ", "&&", 
          RowBox[{"Operator1", "\[NotEqual]", "\"\<None\>\""}], "&&", 
          RowBox[{"Operator2", "\[NotEqual]", "\"\<None\>\""}]}], ",", 
         "\[IndentingNewLine]", " ", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"sumpoints", " ", "=", 
           RowBox[{"Add", "[", 
            RowBox[{"puntos", ",", "puntos2"}], "]"}]}], ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"flag", "\[Equal]", "1"}], ",", 
            RowBox[{"sumamino", " ", "=", 
             RowBox[{
              RowBox[{
               RowBox[{"GC", "[", 
                RowBox[{"#", ",", "enc"}], "]"}], "&"}], "/@", 
              "sumpoints"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
          "\[IndentingNewLine]", 
          RowBox[{"sumtriplets", " ", "=", " ", 
           RowBox[{
            RowBox[{
             RowBox[{"StringJoin", "[", "#", "]"}], "&"}], "/@", 
            RowBox[{"tripletes", "[", 
             RowBox[{"sumpoints", ",", "enc"}], "]"}]}]}], ";"}], ",", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"sumtriplets", " ", "=", " ", 
           RowBox[{"{", "\"\<\>\"", "}"}]}], ";", 
          RowBox[{"sumpoints", " ", "=", " ", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], "}"}]}]}]}], 
        "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"**", 
         RowBox[{
         "*", " ", "It", " ", "computes", " ", "the", " ", "coordinate", " ", 
          "of", " ", "triplets", " ", "resulting", " ", "from", " ", "Times", 
          " ", "Operation"}]}], " ", "***)"}], "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"Producto", " ", "&&", 
          RowBox[{"Operator1", "\[NotEqual]", "\"\<None\>\""}], "&&", 
          RowBox[{"Operator2", "\[NotEqual]", "\"\<None\>\""}]}], ",", 
         "\[IndentingNewLine]", " ", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"timepoints", " ", "=", 
           RowBox[{"Productos", "[", 
            RowBox[{"puntos", ",", "puntos2"}], "]"}]}], ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"flag", "\[Equal]", "1"}], ",", 
            RowBox[{"timesamino", " ", "=", 
             RowBox[{
              RowBox[{
               RowBox[{"GC", "[", 
                RowBox[{"#", ",", "enc"}], "]"}], "&"}], "/@", 
              "timepoints"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
          "\[IndentingNewLine]", 
          RowBox[{"timetriplets", " ", "=", " ", 
           RowBox[{
            RowBox[{
             RowBox[{"StringJoin", "[", "#", "]"}], "&"}], "/@", 
            RowBox[{"tripletes", "[", 
             RowBox[{"timepoints", ",", "enc"}], "]"}]}]}], ";"}], ",", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"timetriplets", " ", "=", " ", 
           RowBox[{"{", "\"\<\>\"", "}"}]}], ";", 
          RowBox[{"timepoints", " ", "=", " ", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], "}"}]}]}]}], 
        "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"**", " ", "IT"}], " ", "DRAWS", " ", "THE", " ", "CUBE"}], 
        " ", "***)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"graphic", "[", 
         RowBox[{"p_", ",", "h0_"}], "]"}], ":=", 
        RowBox[{"Graphics3D", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{"(*", " ", 
             RowBox[{
              RowBox[{
              "It", " ", "draws", " ", "triplets", " ", "setting", " ", "its",
                " ", "coordinates"}], ",", " ", 
              RowBox[{"colors", " ", "and", " ", "sizes"}]}], " ", "*)"}], 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"TripletCoordinates", "[", 
              RowBox[{
              "operator1", ",", "p", ",", "fontweight", ",", "opcolor1", ",", 
               "Size"}], "]"}], ",", "\[IndentingNewLine]", 
             RowBox[{"TripletCoordinates", "[", 
              RowBox[{
              "operator2", ",", "puntos2", ",", "fontweight", ",", "opcolor2",
                ",", "Size"}], "]"}], ",", "\[IndentingNewLine]", 
             RowBox[{"TripletCoordinates", "[", 
              RowBox[{
              "sumtriplets", ",", "sumpoints", ",", "fontweight", ",", 
               "sumcolor", ",", "Size"}], "]"}], ",", "\[IndentingNewLine]", 
             RowBox[{"TripletCoordinates", "[", 
              RowBox[{
              "timetriplets", ",", "timepoints", ",", "fontweight", ",", 
               "timecolor", ",", "Size"}], "]"}], ",", "\[IndentingNewLine]", 
             
             RowBox[{"TripletCoordinates", "[", 
              RowBox[{
              "transftriplets1", ",", "transf", ",", "fontweight", ",", 
               "linearcolor", ",", "Size"}], "]"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"h0", "\[Equal]", "1"}], ",", 
               RowBox[{"TripletCoordinates", "[", 
                RowBox[{"amino", ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"#", "-", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", "0.2"}], "}"}]}], ")"}], 
                   "&"}], "/@", "p"}], ",", "fontweight", ",", "opcolor1", 
                 ",", "Size"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"h0", "\[Equal]", "1"}], "&&", 
                RowBox[{"Operator2", "\[NotEqual]", "\"\<None\>\""}]}], ",", 
               RowBox[{"TripletCoordinates", "[", 
                RowBox[{"amino2", ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"#", "-", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", "0.2"}], "}"}]}], ")"}], 
                   "&"}], "/@", "puntos2"}], ",", "fontweight", ",", 
                 "opcolor1", ",", "Size"}], "]"}]}], "]"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"h0", "\[Equal]", "1"}], ",", 
               RowBox[{"TripletCoordinates", "[", 
                RowBox[{"linearamino", ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"#", "-", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", "0.2"}], "}"}]}], ")"}], 
                   "&"}], "/@", "transf"}], ",", "fontweight", ",", 
                 "linearcolor", ",", "Size"}], "]"}]}], "]"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"h0", "\[Equal]", "1"}], "&&", "Suma", "&&", 
                RowBox[{"Operator2", "\[NotEqual]", "\"\<None\>\""}]}], ",", 
               RowBox[{"TripletCoordinates", "[", 
                RowBox[{"sumamino", ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"#", "-", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", "0.2"}], "}"}]}], ")"}], 
                   "&"}], "/@", "sumpoints"}], ",", "fontweight", ",", 
                 "linearcolor", ",", "Size"}], "]"}]}], "]"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"h0", "\[Equal]", "1"}], "&&", "Producto", "&&", 
                RowBox[{"Operator2", "\[NotEqual]", "\"\<None\>\""}]}], ",", 
               RowBox[{"TripletCoordinates", "[", 
                RowBox[{"timesamino", ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"#", "-", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0", ",", "0.2"}], "}"}]}], ")"}], 
                   "&"}], "/@", "timepoints"}], ",", "fontweight", ",", 
                 "linearcolor", ",", "Size"}], "]"}]}], "]"}], ",", 
             "\[IndentingNewLine]", "\[IndentingNewLine]", 
             RowBox[{"(*", " ", 
              RowBox[{
               RowBox[{
               "It", " ", "draws", " ", "the", " ", "vertical", " ", "plane", 
                " ", "setting", " ", "its", " ", "coordinates"}], ",", " ", 
               RowBox[{"colors", " ", "and", " ", "opacities"}]}], " ", 
              "*)"}], "\[IndentingNewLine]", 
             RowBox[{"Opacity", "[", "opa", "]"}], ",", "Green", ",", 
             RowBox[{"VerticalPlaneCoordinatesY", "[", 
              RowBox[{"0", ",", "c"}], "]"}], ",", "\[IndentingNewLine]", 
             RowBox[{"Opacity", "[", "opa", "]"}], ",", "Blue", ",", 
             RowBox[{"VerticalPlaneCoordinatesY", "[", 
              RowBox[{"1", ",", "c"}], "]"}], ",", "\[IndentingNewLine]", 
             RowBox[{"Opacity", "[", "opa", "]"}], ",", "Magenta", ",", 
             RowBox[{"VerticalPlaneCoordinatesY", "[", 
              RowBox[{"2", ",", "c"}], "]"}], ",", "\[IndentingNewLine]", 
             RowBox[{"Opacity", "[", "opa", "]"}], ",", "Orange", ",", 
             RowBox[{"VerticalPlaneCoordinatesY", "[", 
              RowBox[{"3", ",", "c"}], "]"}], ",", "\[IndentingNewLine]", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", " ", 
              RowBox[{
               RowBox[{
               "It", " ", "draws", " ", "the", " ", "secondary", " ", 
                "vertical", " ", "plane", " ", "setting", " ", "its", " ", 
                "coordinates"}], ",", " ", 
               RowBox[{"colors", " ", "and", " ", "opacities"}]}], " ", 
              "*)"}], "\[IndentingNewLine]", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"RGBColor", "[", 
                  RowBox[{"1", ",", "1", ",", "0.3", ",", 
                   RowBox[{"Min", "[", 
                    RowBox[{"opa", ",", "0.2"}], "]"}]}], "]"}], ",", 
                 RowBox[{"VerticalPlaneCoordinatesX", "[", 
                  RowBox[{"b", ",", "c"}], "]"}], ",", 
                 RowBox[{"RGBColor", "[", 
                  RowBox[{"1", ",", "1", ",", "0", ",", 
                   RowBox[{"Min", "[", 
                    RowBox[{"opa", ",", "0.3"}], "]"}]}], "]"}], ",", 
                 RowBox[{"HorizontalPlaneCoordinates", "[", 
                  RowBox[{"b", ",", "c"}], "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"b", ",", "0", ",", 
                 RowBox[{"c", "+", "1"}]}], "}"}]}], "]"}]}], 
            "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}], ",", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"(*", " ", 
           RowBox[{"General", " ", "features"}], " ", "*)"}], 
          "\[IndentingNewLine]", 
          RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", "cubesize"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"ViewPoint", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"3", ",", "1.5", ",", "0.1"}], "}"}]}], ",", 
          RowBox[{"SphericalRegion", "\[Rule]", "True"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Background", "\[Rule]", "background"}]}], 
         "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"flag", "==", "0"}], ",", 
         RowBox[{"graphic", "[", 
          RowBox[{"puntos", ",", "0"}], "]"}], ",", 
         RowBox[{"graphic", "[", 
          RowBox[{"puntos", ",", "1"}], "]"}]}], "]"}]}]}], 
     "\[IndentingNewLine]", "]"}]}]}]}]], "Input",
 InitializationCell->True,
 InitializationGroup->True,
 CellLabel->"In[1]:=",
 CellID->3133700,ExpressionUUID->"da952652-1a41-43a0-a930-e07d6b672751"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"Biological", " ", "Background"}],
  FontWeight->"Bold"]], "Section",
 CellFrame->{{0.5, 3}, {3, 0.5}},
 CellMargins->{{46, 48}, {10, 30}},
 TextAlignment->Left,
 FontFamily->"Times New Roman",
 FontWeight->"Bold",
 Background->RGBColor[1., 1., 0.85],
 CellTags->
  "1. Introduction",ExpressionUUID->"24025ffb-98c6-4aa6-8e80-2a0fe2f3fe25"],

Cell[TextData[StyleBox["",
 FontWeight->"Bold"]], "DetailNotes",
 CellID->206146329,ExpressionUUID->"90a337b9-973c-4729-9dce-726e83df9643"],

Cell[TextData[{
 "In the coding protein of the DNA molecules genetic information is encoded \
in three bases called triplets or codons. Every codon encodes the information \
for one amino acid and every amino acid can be encoded by one or more codons. \
The genetic code is the biochemical system that establishes the rules by \
which the nucleotide sequence of a gene is transcribed into the mRNA codon \
sequence and next the mRNA is translated into the amino acid sequence of the \
corresponding protein. The genetic code is an extension of the four-letter \
alphabet found in DNA molecules. These \"letters\" are the DNA bases: \
adenine, guanine, cytosine, and thymine, usually denoted ",
 Cell[BoxData[
  FormBox[
   StyleBox["A",
    FontSlant->"Plain"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "eb20cd59-b092-4198-8d3d-cb02872ea5dc"],
 ", ",
 Cell[BoxData[
  FormBox[
   StyleBox["G",
    FontSlant->"Plain"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "2e2304f4-6093-4ab7-acf2-bcfd22a7b6a2"],
 ", ",
 Cell[BoxData[
  FormBox[
   StyleBox["C",
    FontSlant->"Plain"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "e463bd76-dc62-45fe-b097-b9924cd17fcb"],
 ", and ",
 Cell[BoxData[
  FormBox[
   StyleBox["T",
    FontSlant->"Plain"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "4e1f8d51-ec8d-48ff-adea-fd997efb2b4f"],
 " respectively (in  RNA, ",
 Cell[BoxData[
  FormBox[
   StyleBox["T",
    FontSlant->"Plain"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "d62b5e4c-1449-461a-84fa-7a667ae8b4e4"],
 " is changed to ",
 Cell[BoxData[
  FormBox[
   StyleBox["U",
    FontSlant->"Plain"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "d868a0f7-3794-424c-981c-2b5be9d41341"],
 ", uracil). They are paired according to the following rule \
(Watson\[Dash]Crick base pairings): ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    StyleBox["G",
     FontSlant->"Plain"], ":", 
    StyleBox["C",
     FontSlant->"Plain"]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "77185477-2e05-4b4b-8ffa-e4eeda7795eb"],
 ", ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    StyleBox["A",
     FontSlant->"Plain"], ":", 
    StyleBox["T",
     FontSlant->"Plain"]}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "e9691c12-8003-43b2-9cb9-374d78b4bf5e"],
 ". The base ",
 Cell[BoxData[
  FormBox[
   StyleBox["G",
    FontSlant->"Plain"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "121c26f6-91f8-44f2-9dae-76eba5c83f0e"],
 " is the complementary base of ",
 Cell[BoxData[
  FormBox[
   StyleBox["C",
    FontSlant->"Plain"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "19c3eb9b-5c42-4d4c-bf7e-065235f3e5b7"],
 ", and ",
 Cell[BoxData[
  FormBox[
   StyleBox["A",
    FontSlant->"Plain"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "5f7c901e-516e-4027-8aac-0298f6541888"],
 " is the complementary base of ",
 Cell[BoxData[
  FormBox[
   StyleBox["T",
    FontSlant->"Plain"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "a5f1a19a-17c7-454c-8aca-d05f3e799ebc"],
 " (or ",
 Cell[BoxData[
  FormBox[
   StyleBox["U",
    FontSlant->"Plain"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "96e4f288-1ba1-4b30-81e5-f14f4e16f555"],
 ") in the DNA (or RNA) molecule and vice-versa. The standard genetic code \
table is:"
}], "DetailNotes",
 CellMargins->{{47, 85}, {4, 4}},
 CellChangeTimes->{
  3.35696210375764*^9, {3.4637892128228226`*^9, 3.4637892233179135`*^9}, {
   3.463789274601656*^9, 3.463789285116776*^9}, 3.4637893973181133`*^9, {
   3.463789594812096*^9, 3.463789599138317*^9}, {3.463789640437702*^9, 
   3.4637896496309214`*^9}, {3.463789843299403*^9, 3.463789909885149*^9}, {
   3.4637900112408915`*^9, 3.463790014585701*^9}, {3.4637900553943806`*^9, 
   3.463790069374483*^9}, {3.4637901415883217`*^9, 3.4637901632895265`*^9}, {
   3.463790284984515*^9, 3.4637903168202925`*^9}, {3.463790463531253*^9, 
   3.4637904717731037`*^9}, {3.463790558027131*^9, 3.463790566178853*^9}, {
   3.4638486313678303`*^9, 3.4638487665362453`*^9}, {3.463848802410327*^9, 
   3.463848867830527*^9}, {3.463848915657428*^9, 3.463848931953885*^9}, {
   3.463848972843464*^9, 3.463848989858653*^9}, 3.463849222165206*^9, {
   3.463849276788807*^9, 3.463849292725899*^9}, 3.4638504239781885`*^9, {
   3.4638504591804123`*^9, 3.4638504654615016`*^9}, {3.463850545678198*^9, 
   3.4638505463969297`*^9}, {3.4639554427839375`*^9, 3.463955443204542*^9}, {
   3.4639588062203217`*^9, 3.4639588063204656`*^9}, {3.463959117628104*^9, 
   3.463959144516768*^9}, 3.4639592495177517`*^9, {3.4640527912624145`*^9, 
   3.4640528048920126`*^9}, 3.4640528662902994`*^9, {3.4640529217300177`*^9, 
   3.464052928349536*^9}, 3.4641262550348864`*^9, {3.4641926643535404`*^9, 
   3.464192679007164*^9}, 3.46419271367305*^9, {3.4641927550107145`*^9, 
   3.464192758150877*^9}, {3.4641928210166216`*^9, 3.4641928268751345`*^9}, {
   3.464192887082147*^9, 3.4641930121667004`*^9}, {3.4650531089873867`*^9, 
   3.46505311462195*^9}, {3.465073938868135*^9, 3.46507409150876*^9}, 
   3.4650769461663837`*^9, {3.467834074265625*^9, 3.467834083546875*^9}, {
   3.467852191454296*^9, 3.4678522089895105`*^9}, {3.468563424580512*^9, 
   3.4685634636425123`*^9}, {3.468563598109541*^9, 3.4685636686242633`*^9}, {
   3.4685637023582067`*^9, 3.468563710545602*^9}, {3.468594771328122*^9, 
   3.4685947714531207`*^9}, {3.4685948185931425`*^9, 3.4685948189681377`*^9}},
 
 FontSize->14,
 CellID->48805093,ExpressionUUID->"6643a18a-fb0d-40a2-8ed3-b75a0401d2df"],

Cell[TextData[Cell[BoxData[GridBox[{
   {
    StyleBox["A",
     FontFamily->"Times New Roman"], 
    StyleBox["aa",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["C",
     FontFamily->"Times New Roman"], 
    StyleBox["aa",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["G",
     FontFamily->"Times New Roman"], 
    StyleBox["aa",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["U",
     FontFamily->"Times New Roman"], 
    StyleBox["aa",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"]},
   {
    StyleBox["AAA",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{" ", "Lys", "  "}],
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{
      RowBox[{"(", "lysine", ")"}], "          "}],
     FontFamily->"Times New Roman"], 
    StyleBox["ACA",
     FontFamily->"Times New Roman"], "Thr", 
    StyleBox[
     RowBox[{"(", "threonine", ")"}],
     FontFamily->"Times New Roman"], 
    StyleBox["AGA",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Arg", " "}],
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{
      RowBox[{"(", "arginine", ")"}], "     "}],
     FontFamily->"Times New Roman"], 
    StyleBox["AUA",
     FontFamily->"Times New Roman"], 
    RowBox[{"Ile", "   "}], 
    StyleBox[
     RowBox[{
      RowBox[{"(", "isoleucine", ")"}], "     "}],
     FontFamily->"Times New Roman"]},
   {
    StyleBox["AAC",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Asn", " "}],
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"(", "asparagine", ")"}],
     FontFamily->"Times New Roman"], 
    StyleBox["ACC",
     FontFamily->"Times New Roman"], 
    StyleBox["Thr",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["AGC",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Ser", " "}],
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["AUC",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Ile", "   "}],
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"]},
   {
    StyleBox["AAG",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Lys", " "}],
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["ACG",
     FontFamily->"Times New Roman"], 
    StyleBox["Thr",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["AGG",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Arg", " "}],
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["AUG",
     FontFamily->"Times New Roman"], 
    StyleBox["Met",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{
      RowBox[{"(", "methionine", ")"}], "   "}],
     FontFamily->"Times New Roman"]},
   {
    StyleBox["AAU",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Asn", " "}],
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["ACU",
     FontFamily->"Times New Roman"], 
    StyleBox["Thr",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["AGU",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Ser", " "}],
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["AUU",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Ile", "   "}],
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"]},
   {
    StyleBox["CAA",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Gln", " "}],
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{
      RowBox[{"(", "glutamine", ")"}], "  "}],
     FontFamily->"Times New Roman"], 
    StyleBox["CCA",
     FontFamily->"Times New Roman"], "Pro", 
    StyleBox[
     RowBox[{
      RowBox[{"(", "proline", ")"}], "      "}],
     FontFamily->"Times New Roman"], 
    StyleBox["CGA",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Arg", " "}],
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["CUA",
     FontFamily->"Times New Roman"], 
    StyleBox["Leu",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{
      RowBox[{"(", "leucine", ")"}], "          "}],
     FontFamily->"Times New Roman"]},
   {
    StyleBox["CAC",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"His", " "}],
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{
      RowBox[{"(", "histidine", ")"}], "     "}],
     FontFamily->"Times New Roman"], 
    StyleBox["CCC",
     FontFamily->"Times New Roman"], 
    StyleBox["Pro",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["CGC",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Arg", " "}],
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["CUC",
     FontFamily->"Times New Roman"], 
    StyleBox["Leu",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"]},
   {
    StyleBox["CAG",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Gln", " "}],
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["CCG",
     FontFamily->"Times New Roman"], 
    StyleBox["Pro",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["CGG",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Arg", " "}],
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["CUG",
     FontFamily->"Times New Roman"], 
    StyleBox["Leu",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"]},
   {
    StyleBox["CAU",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"His", " "}],
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["CCU",
     FontFamily->"Times New Roman"], 
    StyleBox["Pro",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["CGU",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Arg", " "}],
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["CUU",
     FontFamily->"Times New Roman"], 
    StyleBox["Leu",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"]},
   {
    StyleBox["GAA",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Glu", " "}],
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{
      RowBox[{"(", "glutamic", ")"}], "     "}],
     FontFamily->"Times New Roman"], 
    StyleBox["GCA",
     FontFamily->"Times New Roman"], "Ala", 
    StyleBox[
     RowBox[{
      RowBox[{"(", "alanine", ")"}], "     "}],
     FontFamily->"Times New Roman"], 
    StyleBox["GGA",
     FontFamily->"Times New Roman"], 
    StyleBox["Gly",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{
      RowBox[{"(", "glycine", ")"}], "       "}],
     FontFamily->"Times New Roman"], 
    StyleBox["GUA",
     FontFamily->"Times New Roman"], 
    StyleBox["Val",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{
      RowBox[{"(", "valine", ")"}], "            "}],
     FontFamily->"Times New Roman"]},
   {
    StyleBox["GAC",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Asp", " "}],
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{
      RowBox[{"(", "aspartic", ")"}], "      "}],
     FontFamily->"Times New Roman"], 
    StyleBox["GCC",
     FontFamily->"Times New Roman"], 
    StyleBox["Ala",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["GGC",
     FontFamily->"Times New Roman"], 
    StyleBox["Gly",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["GUC",
     FontFamily->"Times New Roman"], 
    StyleBox["Val",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"]},
   {
    StyleBox["GAG",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Glu", " "}],
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["GCG",
     FontFamily->"Times New Roman"], 
    StyleBox["Ala",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["GGG",
     FontFamily->"Times New Roman"], 
    StyleBox["Gly",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["GUG",
     FontFamily->"Times New Roman"], 
    StyleBox["Val",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"]},
   {
    StyleBox["GAU",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Asp", " "}],
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["GCU",
     FontFamily->"Times New Roman"], 
    StyleBox["Ala",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["GGU",
     FontFamily->"Times New Roman"], 
    StyleBox["Gly",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["GUU",
     FontFamily->"Times New Roman"], 
    StyleBox["Val",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"]},
   {
    StyleBox["UAA",
     FontFamily->"Times New Roman"], 
    StyleBox["Stop",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["UCA",
     FontFamily->"Times New Roman"], "Ser", 
    StyleBox[
     RowBox[{
      RowBox[{"(", "serina", ")"}], "        "}],
     FontFamily->"Times New Roman"], 
    StyleBox["UGA",
     FontFamily->"Times New Roman"], 
    StyleBox["Stop",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["UUA",
     FontFamily->"Times New Roman"], 
    StyleBox["Leu",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"]},
   {
    StyleBox["UAC",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Tyr", "  "}],
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{
      RowBox[{"(", "tyrosine", ")"}], "      "}],
     FontFamily->"Times New Roman"], 
    StyleBox["UCC",
     FontFamily->"Times New Roman"], 
    StyleBox["Ser",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["UGC",
     FontFamily->"Times New Roman"], 
    StyleBox["Cys",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{
      RowBox[{"(", "cysteine", ")"}], "     "}],
     FontFamily->"Times New Roman"], 
    StyleBox["UUC",
     FontFamily->"Times New Roman"], 
    StyleBox["Phe",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"(", "phenialanine", ")"}],
     FontFamily->"Times New Roman"]},
   {
    StyleBox["UAG",
     FontFamily->"Times New Roman"], 
    StyleBox["Stop",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["UCG",
     FontFamily->"Times New Roman"], 
    StyleBox["Ser",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["UGG",
     FontFamily->"Times New Roman"], 
    StyleBox["Trp",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"(", "tryptophan", ")"}],
     FontFamily->"Times New Roman"], 
    StyleBox["UUG",
     FontFamily->"Times New Roman"], 
    StyleBox["Leu",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"]},
   {
    StyleBox["UAU",
     FontFamily->"Times New Roman"], 
    StyleBox[
     RowBox[{"Tyr", "  "}],
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["UCU",
     FontFamily->"Times New Roman"], "Ser", 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["UGU",
     FontFamily->"Times New Roman"], 
    StyleBox["Cys",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"], 
    StyleBox["UUU",
     FontFamily->"Times New Roman"], 
    StyleBox["Phe",
     FontFamily->"Times New Roman"], 
    StyleBox[" ",
     FontFamily->"Times New Roman"]}
  }]],
 FontFamily->"Times New Roman",
 FontSize->
  12,ExpressionUUID->"85d985d6-06b9-4147-b0f8-02aa8eda230f"]], "DetailNotes",
 CellMargins->{{48, 80}, {4, 4}},
 CellChangeTimes->{
  3.35696210375764*^9, {3.46878878599968*^9, 3.468788869639949*^9}, 
   3.4687889297363634`*^9, {3.4687890400249505`*^9, 3.4687891337897778`*^9}, {
   3.468789164894504*^9, 3.468789166246448*^9}, {3.468789199394112*^9, 
   3.4687892538323903`*^9}, {3.4687892925280323`*^9, 
   3.4687893118157663`*^9}, {3.4687894466596622`*^9, 3.468789471595518*^9}, {
   3.468789526684733*^9, 3.468789557639243*^9}, {3.468789694355832*^9, 
   3.4687898037531376`*^9}, {3.468789871590683*^9, 3.4687899926046925`*^9}, {
   3.468790443412923*^9, 3.468790444063859*^9}, {3.4687905191017585`*^9, 
   3.468790537237837*^9}, {3.468794770334731*^9, 3.4687948710896096`*^9}, 
   3.46879497740248*^9, 3.468795032832184*^9, {3.4687950952319107`*^9, 
   3.4687951106040144`*^9}, {3.4687955279040623`*^9, 
   3.4687955353748045`*^9}, {3.468795567420885*^9, 3.468795788518808*^9}, {
   3.468796432795232*^9, 3.4687966767259874`*^9}, {3.4687968756720576`*^9, 
   3.468796880308725*^9}, {3.4687970118578835`*^9, 3.468797025297208*^9}, {
   3.4687972477871327`*^9, 3.4687973618711777`*^9}, {3.4687974133351793`*^9, 
   3.468797699596803*^9}, {3.4687982431383777`*^9, 3.468798273461981*^9}, {
   3.4687983849623103`*^9, 3.4687983949767103`*^9}, {3.468798434723864*^9, 
   3.46879845189856*^9}, {3.4687985006386447`*^9, 3.4687986187484784`*^9}, {
   3.468798668159528*^9, 3.4687987126835504`*^9}, {3.468798765619669*^9, 
   3.468798787330888*^9}, {3.468798899171707*^9, 3.468798945257976*^9}, {
   3.4687996027934656`*^9, 3.468799755893613*^9}, {3.468799838582514*^9, 
   3.468799865381048*^9}, {3.4688000947809086`*^9, 3.4688001264965134`*^9}, {
   3.4688001669046173`*^9, 3.4688002206619167`*^9}, {3.468800262301792*^9, 
   3.468800475698642*^9}},
 FontSize->14,
 CellID->86312099,ExpressionUUID->"4d7d03a2-5237-4a45-a1be-a34be0a21523"],

Cell["\<\
The three-dimensional structures of proteins are ultimately determined by the \
amino acid sequence encoded by the sequence of codons, genes. The protein \
folding is conducted by the hydrophobic interaction between hydrophobic amino \
acids and water. As a result, the final structures depend on the \
physicochemical properties of amino acids. The mutational event on \
protein-encoding DNA sequences can produce changes in the amino acid \
sequences which in turn can produce changes in the three-dimensional \
structure of proteins.\
\>", "DetailNotes",
 CellMargins->{{45, 76}, {4, 4}},
 CellChangeTimes->{
  3.35696210375764*^9, {3.4637892128228226`*^9, 3.4637892233179135`*^9}, {
   3.463789274601656*^9, 3.463789285116776*^9}, 3.4637893973181133`*^9, {
   3.463789594812096*^9, 3.463789599138317*^9}, {3.463789640437702*^9, 
   3.4637896496309214`*^9}, {3.463789843299403*^9, 3.463789909885149*^9}, {
   3.4637900112408915`*^9, 3.463790014585701*^9}, {3.4637900553943806`*^9, 
   3.463790069374483*^9}, {3.4637901415883217`*^9, 3.4637901632895265`*^9}, {
   3.463790284984515*^9, 3.4637903168202925`*^9}, {3.463790463531253*^9, 
   3.4637904717731037`*^9}, {3.463790558027131*^9, 3.463790566178853*^9}, {
   3.4638486313678303`*^9, 3.4638487665362453`*^9}, {3.463848802410327*^9, 
   3.463848867830527*^9}, {3.463848915657428*^9, 3.463848931953885*^9}, {
   3.463848972843464*^9, 3.463848989858653*^9}, 3.463849222165206*^9, {
   3.463849276788807*^9, 3.463849292725899*^9}, 3.4638504239781885`*^9, {
   3.4638504591804123`*^9, 3.4638504654615016`*^9}, {3.463850545678198*^9, 
   3.4638505463969297`*^9}, {3.4639554427839375`*^9, 3.463955443204542*^9}, {
   3.4639588062203217`*^9, 3.4639588066709695`*^9}, {3.46395915291885*^9, 
   3.463959195409949*^9}, {3.4640529781110897`*^9, 3.4640529807548914`*^9}, 
   3.4641930213836217`*^9, {3.4675857418781023`*^9, 3.4675859725497923`*^9}, {
   3.4675860291011086`*^9, 3.467586029531728*^9}, {3.467586112170557*^9, 
   3.4675861300562754`*^9}, {3.467586179146864*^9, 3.467586213315997*^9}, {
   3.46758625800025*^9, 3.4675864584084225`*^9}, {3.4675879225938177`*^9, 
   3.46758792430628*^9}, 3.467818025109375*^9, 3.467824663640625*^9, {
   3.4678519299182253`*^9, 3.4678519314704576`*^9}, {3.4685637423576946`*^9, 
   3.4685637517169495`*^9}, {3.468563786013386*^9, 3.4685638468876066`*^9}, {
   3.4685950458558583`*^9, 3.4685950889646816`*^9}, {3.46859518459258*^9, 
   3.4685952064840455`*^9}, {3.468595250423233*^9, 3.4685952512201385`*^9}, {
   3.468596687781677*^9, 3.4685966960940704`*^9}, {3.468801708751685*^9, 
   3.4688017175343137`*^9}, {3.468801780484832*^9, 3.468801814033072*^9}, {
   3.4688018479418306`*^9, 3.4688018900924397`*^9}, {3.468801922338808*^9, 
   3.4688020803359966`*^9}, 3.525542140604787*^9, 3.525544433344924*^9, {
   3.5297198764147596`*^9, 3.529719891531624*^9}},
 FontSize->14,
 CellID->1326169,ExpressionUUID->"8e1384fd-fba1-446b-baa5-f52f44e027dc"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Algebraic Cube Handling",
 FontWeight->"Bold",
 FontColor->GrayLevel[0]]], "Subsection",
 CellMargins->{{44, 82}, {4, 4}},
 CellChangeTimes->{
  3.35696210375764*^9, {3.4637892128228226`*^9, 3.4637892233179135`*^9}, {
   3.463789274601656*^9, 3.463789285116776*^9}, 3.4637893973181133`*^9, {
   3.463789594812096*^9, 3.4637895954930754`*^9}, {3.463850572458762*^9, 
   3.463850577193016*^9}, {3.4638522397598286`*^9, 3.463852274618311*^9}, {
   3.4638523046331673`*^9, 3.4638523102736483`*^9}, 3.4638528496192155`*^9, {
   3.463857240000145*^9, 3.463857422729842*^9}, {3.463857549492222*^9, 
   3.46385779662652*^9}, {3.4638579760906754`*^9, 3.46385797668441*^9}, {
   3.463858037479729*^9, 3.4638581559766955`*^9}, {3.4638582786141806`*^9, 
   3.4638582887857957`*^9}, {3.4638584658906364`*^9, 3.463858508061432*^9}, {
   3.463859212637144*^9, 3.463859259557818*^9}, {3.463953503555464*^9, 
   3.463953532016389*^9}, {3.4639536952410946`*^9, 3.463953699186768*^9}, {
   3.4639542722507935`*^9, 3.4639542741635437`*^9}, {3.4639543658553905`*^9, 
   3.4639543662659807`*^9}, {3.4639544532110014`*^9, 
   3.4639545605353265`*^9}, {3.463954630275608*^9, 3.463954650054048*^9}, {
   3.4639546813290195`*^9, 3.4639548970692387`*^9}, {3.4639567345814514`*^9, 
   3.4639567552712016`*^9}, {3.463956925826448*^9, 3.4639569656236734`*^9}, {
   3.463957130640957*^9, 3.463957212608821*^9}, 3.464053355113192*^9, {
   3.4641267337031775`*^9, 3.464126737568736*^9}, {3.464193587560368*^9, 
   3.4641936047143126`*^9}, {3.464193671330358*^9, 3.464193691483899*^9}, {
   3.464193729010105*^9, 3.4641937330720587`*^9}, {3.4641937952043324`*^9, 
   3.464193911327438*^9}, {3.4641939663931093`*^9, 3.464194010833169*^9}, {
   3.464204629990749*^9, 3.464204672928249*^9}, 3.464545444921875*^9, {
   3.4647322697928963`*^9, 3.464732286997635*^9}, {3.46505310881837*^9, 
   3.4650531144469323`*^9}, {3.4650754551099663`*^9, 
   3.4650755448136654`*^9}, {3.4650756916583548`*^9, 3.4650757751276393`*^9}, 
   3.4675914772606015`*^9, {3.467591836707461*^9, 3.467591838259693*^9}, {
   3.4675925531977234`*^9, 3.467592553207738*^9}, {3.467592610179659*^9, 
   3.4675926472329392`*^9}, 3.4675926833548803`*^9, {3.4675928415323277`*^9, 
   3.4675928451074686`*^9}, {3.467813875171875*^9, 3.467813877046875*^9}, {
   3.467817919375*^9, 3.467817932609375*^9}, {3.4678205265625*^9, 
   3.467820529625*^9}, {3.4678206204375*^9, 3.4678206224375*^9}, {
   3.4678206776875*^9, 3.4678207008125*^9}, {3.46782437746875*^9, 
   3.467824378296875*^9}, {3.467832857109375*^9, 3.4678329940625*^9}, {
   3.467834212*^9, 3.46783421403125*^9}, 3.467834246109375*^9, {
   3.46783430534375*^9, 3.467834306390625*^9}, {3.467834348984375*^9, 
   3.46783434965625*^9}, {3.467834460421875*^9, 3.467834479359375*^9}, {
   3.4678345635*^9, 3.4678345648125*^9}, 3.467834617421875*^9, {
   3.467852829161274*^9, 3.4678528715722575`*^9}, {3.4678529486030226`*^9, 
   3.467852952368437*^9}, {3.4678532034494734`*^9, 3.4678532221263294`*^9}, {
   3.4678533003588223`*^9, 3.4678533031728687`*^9}, {3.46785368695472*^9, 
   3.4678536900691986`*^9}, 3.4678538214080544`*^9, 3.467853904237157*^9, {
   3.4680011805625*^9, 3.468001182875*^9}, {3.46834691525*^9, 
   3.4683469179375*^9}, 3.4683469754375*^9, {3.46834702175*^9, 
   3.468347075125*^9}, {3.468596865670025*^9, 3.468596876763633*^9}},
 FontSize->24,
 CellID->22784900,ExpressionUUID->"1239d304-454a-4df3-8661-b05d4a30f808"],

Cell[TextData[{
 "The 24 representations of the Standard Genetic Code can be visualized with \
the present demonstration.  The genetic code representation used is \
\[OpenCurlyDoubleQuote]ACGU\[CloseCurlyDoubleQuote]. The principal planes of \
the cube (planes NYN, Y is a fixed base of {U,C,A,G}) corresponding to the \
main principal columns of the Standard Genetic Cube. The representing matrix \
of a linear transformations can be set in the \[OpenCurlyDoubleQuote]matrix \
element control\[CloseCurlyDoubleQuote]. After choosing of the \
\[OpenCurlyDoubleQuote]Vertical Plane XUZ\[CloseCurlyDoubleQuote] (codons in \
yellow) in the popup-menu \[OpenCurlyDoubleQuote]Codon 1\
\[CloseCurlyDoubleQuote], the application of the linear transformation ",
 Cell[BoxData[
  FormBox[
   RowBox[{"(", GridBox[{
      {"0", "1", "0"},
      {"1", "0", "0"},
      {"0", "0", "1"}
     }], ")"}], TraditionalForm]], "InlineMath",ExpressionUUID->
  "c738fe23-7d8b-4ac2-bd3e-41547aea4155"],
 " by clicking the button \[OpenCurlyDoubleQuote]linear transf\
\[CloseCurlyDoubleQuote] produces the Vertical Plane XGZ (mutants codons in \
white), which is perpendicular to the \[OpenCurlyDoubleQuote]Vertical Plane \
XUZ\[CloseCurlyDoubleQuote]. For different cube representation these planes \
are located in different cube positions, however, they remain perpendiculars. \
The oblique plane \[OpenCurlyDoubleQuote]Oblique Plane NYN\
\[CloseCurlyDoubleQuote] is transformed into the \
\[OpenCurlyDoubleQuote]Oblique Plane YNN\[CloseCurlyDoubleQuote] by the \
application of above linear transformation (see Snapshot 4). It is available \
the selection of several subsets of codon: horizontal planes, vertical lines, \
amino acids, and individuals codons. A random sample of codon can be also \
chosen and for all the cases it is possible to the amino acid encoded by each \
codons clicking on the \[OpenCurlyDoubleQuote]Amino acid\
\[CloseCurlyDoubleQuote] button. The sum operation and product operation can \
act over individual codon or subset of them. The unique codon (AUG, in white) \
that encodes amino acid methionine (M) is added (clicking on the sum control) \
to the two codons (CAU and CAC, in yellow) that encode amino acid histidine \
(H) and two codon (CUU and CUC, in cyan) that encode amino acid leucine (L) \
(see also [2]). The color of planes, background and fonts can be controlled. \
The color of the wild type codon was selected black, the opacity was \
minimized and the background was set in white, and font size 12. The graphic \
can be saved locating the mouse arrow over the cube with a left click, and \
then doing a right-click; next in the menu choose Save Graphic As...\n\n"
}], "DetailNotes",
 CellMargins->{{45, 84}, {4, 4}},
 FontSize->14,
 CellID->135890423,ExpressionUUID->"ce134c02-d1d0-47c4-9b8c-331a98104508"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Dynamic", "[", 
    RowBox[{"GCube", "[", 
     RowBox[{
     "Opacities", ",", "Member1", ",", "Member2", ",", "mcolor1", ",", 
      "mcolor2", ",", "sumcolor", ",", "Suma", ",", "timecolor", ",", 
      "Producto", ",", "Size", ",", "fontweight", ",", "background", ",", 
      "cubesize", ",", "linear", ",", "linearcolor", ",", "flag", ",", 
      "enc"}], "]"}], "]"}], ",", 
   RowBox[{"Style", "[", 
    RowBox[{"\"\<linear transformation\>\"", ",", "Bold"}], "]"}], ",", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", "Matrix"}], " ", "element", " ", "control"}], "****)"}], 
   RowBox[{"Style", "[", 
    RowBox[{"\"\<matrix element control\>\"", ",", "Underlined"}], "]"}], ",", 
   RowBox[{"(*", 
    RowBox[{"Linear", " ", "transformation", " ", "settting"}], "*)"}], 
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PopupMenu", "[", 
          RowBox[{
           RowBox[{"Dynamic", "[", "m11", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
           RowBox[{"ImageSize", "->", 
            RowBox[{"{", 
             RowBox[{"40", ",", "20"}], "}"}]}]}], "]"}], ",", 
         RowBox[{"PopupMenu", "[", 
          RowBox[{
           RowBox[{"Dynamic", "[", "m12", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
           RowBox[{"ImageSize", "->", 
            RowBox[{"{", 
             RowBox[{"40", ",", "20"}], "}"}]}]}], "]"}], ",", 
         RowBox[{"PopupMenu", "[", 
          RowBox[{
           RowBox[{"Dynamic", "[", "m13", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
           RowBox[{"ImageSize", "->", 
            RowBox[{"{", 
             RowBox[{"40", ",", "20"}], "}"}]}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PopupMenu", "[", 
          RowBox[{
           RowBox[{"Dynamic", "[", "m21", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
           RowBox[{"ImageSize", "->", 
            RowBox[{"{", 
             RowBox[{"40", ",", "20"}], "}"}]}]}], "]"}], ",", 
         RowBox[{"PopupMenu", "[", 
          RowBox[{
           RowBox[{"Dynamic", "[", "m22", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
           RowBox[{"ImageSize", "->", 
            RowBox[{"{", 
             RowBox[{"40", ",", "20"}], "}"}]}]}], "]"}], ",", 
         RowBox[{"PopupMenu", "[", 
          RowBox[{
           RowBox[{"Dynamic", "[", "m23", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
           RowBox[{"ImageSize", "->", 
            RowBox[{"{", 
             RowBox[{"40", ",", "20"}], "}"}]}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"PopupMenu", "[", 
          RowBox[{
           RowBox[{"Dynamic", "[", "m31", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
           RowBox[{"ImageSize", "->", 
            RowBox[{"{", 
             RowBox[{"40", ",", "20"}], "}"}]}]}], "]"}], ",", 
         RowBox[{"PopupMenu", "[", 
          RowBox[{
           RowBox[{"Dynamic", "[", "m32", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
           RowBox[{"ImageSize", "->", 
            RowBox[{"{", 
             RowBox[{"40", ",", "20"}], "}"}]}]}], "]"}], ",", 
         RowBox[{"PopupMenu", "[", 
          RowBox[{
           RowBox[{"Dynamic", "[", "m33", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
           RowBox[{"ImageSize", "->", 
            RowBox[{"{", 
             RowBox[{"40", ",", "20"}], "}"}]}]}], "]"}]}], "}"}]}], "}"}], 
     ",", 
     RowBox[{"Frame", "->", "All"}]}], "]"}], ",", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Style", "[", 
    RowBox[{
     RowBox[{"\"\<matrix determinant: \>\"", 
      RowBox[{"Dynamic", "[", 
       RowBox[{"matrixDet", "[", "True", "]"}], "]"}]}], ",", "Red", ",", 
     "Plain"}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"linear", ",", "False", ",", "\"\<linear transf\>\""}], "}"}], 
     ",", 
     RowBox[{
      RowBox[{"Button", "[", 
       RowBox[{
        RowBox[{"Graphics", "[", 
         RowBox[{
          RowBox[{"Polygon", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{"1", "/", "2"}], ")"}]}], ",", 
               RowBox[{
                RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{"1", "/", "2"}], ")"}]}], ",", 
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], ")"}]}]}], 
              "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
          RowBox[{"ImageSize", "->", "8"}]}], "]"}], ",", 
        RowBox[{"linear", "=", 
         RowBox[{
          RowBox[{"Dynamic", "[", 
           RowBox[{"Not", "[", "linear", "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ",", 
        RowBox[{"ImageSize", "->", 
         RowBox[{"{", 
          RowBox[{"17", ",", "17"}], "}"}]}]}], "]"}], "&"}]}], "}"}], ",", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Suma", ",", "False", ",", "\"\<sum\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "True"}], "}"}], ",", 
     RowBox[{"ControlType", "->", "Checkbox"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"sumcolor", ",", "Cyan", ",", "\"\<sum color\>\""}], "}"}], ",",
      "Blue", ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"120", ",", "18"}], "}"}]}]}], "}"}], ",", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Producto", ",", "False", ",", "\"\<times\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "True"}], "}"}], ",", 
     RowBox[{"ControlType", "->", "Checkbox"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"timecolor", ",", "Green", ",", "\"\<time color\>\""}], "}"}], 
     ",", "White", ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"120", ",", "18"}], "}"}]}]}], "}"}], ",", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "Delimiter", ",", 
   RowBox[{"Style", "[", 
    RowBox[{"\"\<cube handling\>\"", ",", "Bold"}], "]"}], ",", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Codon", " ", "Control"}], "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Member1", ",", "\"\<Standard Genetic Code\>\"", ",", 
       "\"\<Codon 1\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<Standard Genetic Code\>\"", ",", "\"\<None\>\"", ",", 
       "\"\<Oblique Plane XNN\>\"", ",", "\"\<Oblique Plane NYN\>\"", ",", 
       "\"\<Oblique Plane NNZ\>\"", ",", "\"\<Code Plane XAZ\>\"", ",", 
       "\"\<Code Plane XCZ\>\"", ",", "\"\<Code Plane XGZ\>\"", ",", 
       "\"\<Code Plane XUZ\>\"", ",", "\"\<Code Plane AYZ\>\"", ",", 
       "\"\<Code Plane CYZ\>\"", ",", "\"\<Code Plane GYZ\>\"", ",", 
       "\"\<Code Plane UYZ\>\"", ",", "\"\<Code Plane XYA\>\"", ",", 
       "\"\<Code Plane XYC\>\"", ",", "\"\<Code Plane XYG\>\"", ",", 
       "\"\<Code Plane XYU\>\"", ",", "\"\<Code Plane XYA\>\"", ",", 
       "\"\<Code Plane XYC\>\"", ",", "\"\<Code Plane XYG\>\"", ",", 
       "\"\<Code Plane XYU\>\"", ",", "\"\<Vertical Line AAZ\>\"", ",", 
       "\"\<Vertical Line ACZ\>\"", ",", "\"\<Vertical Line AGZ\>\"", ",", 
       "\"\<Vertical Line AUZ\>\"", ",", "\"\<Vertical Line CAZ\>\"", ",", 
       "\"\<Vertical Line CCZ\>\"", ",", "\"\<Vertical Line CGZ\>\"", ",", 
       "\"\<Vertical Line CUZ\>\"", ",", "\"\<Vertical Line GAZ\>\"", ",", 
       "\"\<Vertical Line GCZ\>\"", ",", "\"\<Vertical Line GGZ\>\"", ",", 
       "\"\<Vertical Line GUZ\>\"", ",", "\"\<Vertical Line UAZ\>\"", ",", 
       "\"\<Vertical Line UCZ\>\"", ",", "\"\<Vertical Line UGZ\>\"", ",", 
       "\"\<Vertical Line UUZ\>\"", ",", "\"\<GC Random Sample\>\"", ",", 
       "\"\<Ala\>\"", ",", "\"\<Cys\>\"", ",", "\"\<Asp\>\"", ",", 
       "\"\<Glu\>\"", ",", "\"\<Phe\>\"", ",", "\"\<Gly\>\"", ",", 
       "\"\<His\>\"", ",", "\"\<Ile\>\"", ",", "\"\<Lys\>\"", ",", 
       "\"\<Leu\>\"", ",", "\"\<Met\>\"", ",", "\"\<Asn\>\"", ",", 
       "\"\<Pro\>\"", ",", "\"\<Gln\>\"", ",", "\"\<Arg\>\"", ",", 
       "\"\<Ser\>\"", ",", "\"\<Thr\>\"", ",", "\"\<Val\>\"", ",", 
       "\"\<Trp\>\"", ",", "\"\<Tyr\>\"", ",", "\"\<Stop\>\"", ",", 
       "\"\<AAA\>\"", ",", "\"\<AAC\>\"", ",", "\"\<AAG\>\"", ",", 
       "\"\<AAU\>\"", ",", "\"\<CAA\>\"", ",", "\"\<CAC\>\"", ",", 
       "\"\<CAG\>\"", ",", "\"\<CAU\>\"", ",", "\"\<GAA\>\"", ",", 
       "\"\<GAC\>\"", ",", "\"\<GAG\>\"", ",", "\"\<GAU\>\"", ",", 
       "\"\<UAA\>\"", ",", "\"\<UAC\>\"", ",", "\"\<UAG\>\"", ",", 
       "\"\<UAU\>\"", ",", "\"\<ACA\>\"", ",", "\"\<ACC\>\"", ",", 
       "\"\<ACG\>\"", ",", "\"\<ACU\>\"", ",", "\"\<CCA\>\"", ",", 
       "\"\<CCC\>\"", ",", "\"\<CCG\>\"", ",", "\"\<CCU\>\"", ",", 
       "\"\<GCA\>\"", ",", "\"\<GCC\>\"", ",", "\"\<GCG\>\"", ",", 
       "\"\<GCU\>\"", ",", "\"\<UCA\>\"", ",", "\"\<UCC\>\"", ",", 
       "\"\<UCG\>\"", ",", "\"\<UCU\>\"", ",", "\"\<AGA\>\"", ",", 
       "\"\<AGC\>\"", ",", "\"\<AGG\>\"", ",", "\"\<AGU\>\"", ",", 
       "\"\<CGA\>\"", ",", "\"\<CGC\>\"", ",", "\"\<CGG\>\"", ",", 
       "\"\<CGU\>\"", ",", "\"\<GGA\>\"", ",", "\"\<GGC\>\"", ",", 
       "\"\<GGG\>\"", ",", "\"\<GGU\>\"", ",", "\"\<UGA\>\"", ",", 
       "\"\<UGC\>\"", ",", "\"\<UGG\>\"", ",", "\"\<UGU\>\"", ",", 
       "\"\<AUA\>\"", ",", "\"\<AUC\>\"", ",", "\"\<AUG\>\"", ",", 
       "\"\<AUU\>\"", ",", "\"\<CUA\>\"", ",", "\"\<CUC\>\"", ",", 
       "\"\<CUG\>\"", ",", "\"\<CUU\>\"", ",", "\"\<GUA\>\"", ",", 
       "\"\<GUC\>\"", ",", "\"\<GUG\>\"", ",", "\"\<GUU\>\"", ",", 
       "\"\<UUA\>\"", ",", "\"\<UUC\>\"", ",", "\"\<UUG\>\"", ",", 
       "\"\<UUU\>\""}], "}"}], ",", 
     RowBox[{"ControlType", "->", "PopupMenu"}], ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"120", ",", "22"}], "}"}]}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"mcolor1", ",", "Yellow", ",", "\"\<wild type color\>\""}], 
      "}"}], ",", "Yellow", ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"120", ",", "18"}], "}"}]}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "linearcolor", ",", "White", ",", "\"\<mutant codon color\>\""}], "}"}],
      ",", "White", ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"120", ",", "18"}], "}"}]}]}], "}"}], ",", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Member2", ",", "\"\<None\>\"", ",", "\"\<Codon 2\>\""}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<None\>\"", ",", "\"\<Standard Genetic Code\>\"", ",", 
       "\"\<Oblique Plane XNN\>\"", ",", "\"\<Oblique Plane NYN\>\"", ",", 
       "\"\<Oblique Plane NNZ\>\"", ",", "\"\<Code Plane XAZ\>\"", ",", 
       "\"\<Code Plane XCZ\>\"", ",", "\"\<Code Plane XGZ\>\"", ",", 
       "\"\<Code Plane XUZ\>\"", ",", "\"\<Code Plane AYZ\>\"", ",", 
       "\"\<Code Plane CYZ\>\"", ",", "\"\<Code Plane GYZ\>\"", ",", 
       "\"\<Code Plane UYZ\>\"", ",", "\"\<Code Plane XYA\>\"", ",", 
       "\"\<Code Plane XYC\>\"", ",", "\"\<Code Plane XYG\>\"", ",", 
       "\"\<Code Plane XYU\>\"", ",", "\"\<Code Plane XYA\>\"", ",", 
       "\"\<Code Plane XYC\>\"", ",", "\"\<Code Plane XYG\>\"", ",", 
       "\"\<Code Plane XYU\>\"", ",", "\"\<Vertical Line AAZ\>\"", ",", 
       "\"\<Vertical Line ACZ\>\"", ",", "\"\<Vertical Line AGZ\>\"", ",", 
       "\"\<Vertical Line AUZ\>\"", ",", "\"\<Vertical Line CAZ\>\"", ",", 
       "\"\<Vertical Line CCZ\>\"", ",", "\"\<Vertical Line CGZ\>\"", ",", 
       "\"\<Vertical Line CUZ\>\"", ",", "\"\<Vertical Line GAZ\>\"", ",", 
       "\"\<Vertical Line GCZ\>\"", ",", "\"\<Vertical Line GGZ\>\"", ",", 
       "\"\<Vertical Line GUZ\>\"", ",", "\"\<Vertical Line UAZ\>\"", ",", 
       "\"\<Vertical Line UCZ\>\"", ",", "\"\<Vertical Line UGZ\>\"", ",", 
       "\"\<Vertical Line UUZ\>\"", ",", "\"\<GC Random Sample\>\"", ",", 
       "\"\<Ala\>\"", ",", "\"\<Cys\>\"", ",", "\"\<Asp\>\"", ",", 
       "\"\<Glu\>\"", ",", "\"\<Phe\>\"", ",", "\"\<Gly\>\"", ",", 
       "\"\<His\>\"", ",", "\"\<Ile\>\"", ",", "\"\<Lys\>\"", ",", 
       "\"\<Leu\>\"", ",", "\"\<Met\>\"", ",", "\"\<Asn\>\"", ",", 
       "\"\<Pro\>\"", ",", "\"\<Gln\>\"", ",", "\"\<Arg\>\"", ",", 
       "\"\<Ser\>\"", ",", "\"\<Thr\>\"", ",", "\"\<Val\>\"", ",", 
       "\"\<Trp\>\"", ",", "\"\<Tyr\>\"", ",", "\"\<Stop\>\"", ",", 
       "\"\<AAA\>\"", ",", "\"\<AAC\>\"", ",", "\"\<AAG\>\"", ",", 
       "\"\<AAU\>\"", ",", "\"\<CAA\>\"", ",", "\"\<CAC\>\"", ",", 
       "\"\<CAG\>\"", ",", "\"\<CAU\>\"", ",", "\"\<GAA\>\"", ",", 
       "\"\<GAC\>\"", ",", "\"\<GAG\>\"", ",", "\"\<GAU\>\"", ",", 
       "\"\<UAA\>\"", ",", "\"\<UAC\>\"", ",", "\"\<UAG\>\"", ",", 
       "\"\<UAU\>\"", ",", "\"\<ACA\>\"", ",", "\"\<ACC\>\"", ",", 
       "\"\<ACG\>\"", ",", "\"\<ACU\>\"", ",", "\"\<CCA\>\"", ",", 
       "\"\<CCC\>\"", ",", "\"\<CCG\>\"", ",", "\"\<CCU\>\"", ",", 
       "\"\<GCA\>\"", ",", "\"\<GCC\>\"", ",", "\"\<GCG\>\"", ",", 
       "\"\<GCU\>\"", ",", "\"\<UCA\>\"", ",", "\"\<UCC\>\"", ",", 
       "\"\<UCG\>\"", ",", "\"\<UCU\>\"", ",", "\"\<AGA\>\"", ",", 
       "\"\<AGC\>\"", ",", "\"\<AGG\>\"", ",", "\"\<AGU\>\"", ",", 
       "\"\<CGA\>\"", ",", "\"\<CGC\>\"", ",", "\"\<CGG\>\"", ",", 
       "\"\<CGU\>\"", ",", "\"\<GGA\>\"", ",", "\"\<GGC\>\"", ",", 
       "\"\<GGG\>\"", ",", "\"\<GGU\>\"", ",", "\"\<UGA\>\"", ",", 
       "\"\<UGC\>\"", ",", "\"\<UGG\>\"", ",", "\"\<UGU\>\"", ",", 
       "\"\<AUA\>\"", ",", "\"\<AUC\>\"", ",", "\"\<AUG\>\"", ",", 
       "\"\<AUU\>\"", ",", "\"\<CUA\>\"", ",", "\"\<CUC\>\"", ",", 
       "\"\<CUG\>\"", ",", "\"\<CUU\>\"", ",", "\"\<GUA\>\"", ",", 
       "\"\<GUC\>\"", ",", "\"\<GUG\>\"", ",", "\"\<GUU\>\"", ",", 
       "\"\<UUA\>\"", ",", "\"\<UUC\>\"", ",", "\"\<UUG\>\"", ",", 
       "\"\<UUU\>\""}], "}"}], ",", 
     RowBox[{"ControlType", "->", "PopupMenu"}], ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"120", ",", "22"}], "}"}]}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"mcolor2", ",", "White", ",", "\"\<color\>\""}], "}"}], ",", 
     "White", ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"120", ",", "18"}], "}"}]}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"flag", ",", "0", ",", "\"\<Amino acids\>\""}], "}"}], ",", 
     RowBox[{
      RowBox[{"Button", "[", 
       RowBox[{
        RowBox[{"Graphics", "[", 
         RowBox[{
          RowBox[{"Polygon", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{"1", "/", "2"}], ")"}]}], ",", 
               RowBox[{
                RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{"1", "/", "2"}], ")"}]}], ",", 
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"Sqrt", "[", "3", "]"}], "/", "2"}], ")"}]}]}], 
              "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
          RowBox[{"ImageSize", "->", "8"}]}], "]"}], ",", 
        RowBox[{"flag", "=", 
         RowBox[{"Mod", "[", 
          RowBox[{
           RowBox[{"flag", "+", "1"}], ",", "2"}], "]"}]}], ",", 
        RowBox[{"ImageSize", "->", 
         RowBox[{"{", 
          RowBox[{"17", ",", "17"}], "}"}]}]}], "]"}], "&"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "enc", ",", "\"\<ACGU\>\"", ",", "\"\<Cube representation\>\""}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<ACGU\>\"", ",", "\"\<AGCU\>\"", ",", "\"\<UCGA\>\"", ",", 
       "\"\<UGCA\>\"", ",", "\"\<CAUG\>\"", ",", "\"\<CUAG\>\"", ",", 
       "\"\<GAUC\>\"", ",", "\"\<GUAC\>\"", ",", "\"\<ACUG\>\"", ",", 
       "\"\<AUCG\>\"", ",", "\"\<GUCA\>\"", ",", "\"\<GCUA\>\"", ",", 
       "\"\<CAGU\>\"", ",", "\"\<UAGC\>\"", ",", "\"\<UGAC\>\"", ",", 
       "\"\<CGAU\>\"", ",", "\"\<AGUC\>\"", ",", "\"\<AUGC\>\"", ",", 
       "\"\<CGUA\>\"", ",", "\"\<CUGA\>\"", ",", "\"\<GACU\>\"", ",", 
       "\"\<GCAU\>\"", ",", "\"\<UACG\>\"", ",", "\"\<UCAG\>\""}], "}"}], ",", 
     RowBox[{"ControlType", "->", "PopupMenu"}], ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"60", ",", "22"}], "}"}]}]}], "}"}], ",", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", "General"}], " ", "Controls"}], "****)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Control", " ", "for", " ", "Font", " ", "Size", " ", "and", " ", 
     RowBox[{"Triplet", "'"}], "s", " ", "Color"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Size", ",", "10", ",", "\"\<font size\>\""}], "}"}], ",", 
     RowBox[{"Range", "[", 
      RowBox[{"8", ",", "40"}], "]"}], ",", 
     RowBox[{"ControlType", "->", "PopupMenu"}], ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"60", ",", "20"}], "}"}]}]}], "}"}], ",", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Font", " ", "weight"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"fontweight", ",", "\"\<Bold\>\"", ",", "\"\<font weight\>\""}],
       "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<Bold\>\"", ",", "\"\<Plain\>\""}], "}"}], ",", 
     RowBox[{"ControlType", "->", "PopupMenu"}], ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"60", ",", "20"}], "}"}]}]}], "}"}], ",", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Cube", " ", "Size", " ", "control"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"cubesize", ",", "385", ",", "\"\<cube size\>\""}], "}"}], ",", 
     
     RowBox[{"Range", "[", 
      RowBox[{"385", ",", "2000", ",", "25"}], "]"}], ",", 
     RowBox[{"ControlType", "->", "PopupMenu"}], ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"60", ",", "20"}], "}"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Opacities", ",", "0.47", ",", "\"\<opacity\>\""}], "}"}], ",", 
     "0", ",", "1", ",", "0.01", ",", 
     RowBox[{"ImageSize", "->", "Small"}]}], "}"}], ",", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Cube", " ", "Background"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"background", ",", 
     RowBox[{"RGBColor", "[", 
      RowBox[{"0", ",", "0.6666666666666666", ",", "1"}], "]"}], ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"120", ",", "18"}], "}"}]}]}], "}"}], ",", 
   RowBox[{"FrameMargins", "->", "Small"}], ",", 
   RowBox[{"ImageMargins", "->", "Medium"}], ",", 
   RowBox[{"ControlPlacement", "->", "Left"}], ",", 
   RowBox[{"SaveDefinitions", "->", "True"}], ",", 
   RowBox[{"AutorunSequencing", "->", 
    RowBox[{"{", 
     RowBox[{"1", ",", "5", ",", "7"}], "}"}]}], ",", 
   RowBox[{"Alignment", "->", "Left"}]}], "]"}]], "Input",
 CellLabel->"In[44]:=",ExpressionUUID->"c6abba33-b6a1-45f0-b337-0cf516f56ba0"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`background$$ = RGBColor[
    0, 0.6666666666666666, 1], $CellContext`cubesize$$ = 
    485, $CellContext`enc$$ = "ACGU", $CellContext`flag$$ = 
    0, $CellContext`fontweight$$ = "Bold", $CellContext`linear$$ = 
    False, $CellContext`linearcolor$$ = GrayLevel[1], $CellContext`mcolor1$$ =
     RGBColor[1, 1, 0], $CellContext`mcolor2$$ = GrayLevel[
    1], $CellContext`Member1$$ = 
    "Standard Genetic Code", $CellContext`Member2$$ = 
    "None", $CellContext`Opacities$$ = 0.47, $CellContext`Producto$$ = 
    False, $CellContext`Size$$ = 10, $CellContext`Suma$$ = 
    False, $CellContext`sumcolor$$ = RGBColor[
    0, 1, 1], $CellContext`timecolor$$ = RGBColor[0, 1, 0], Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[
       Style["linear transformation", Bold]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Style["matrix element control", Underlined]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Grid[{{
          PopupMenu[
           Dynamic[$CellContext`m11], {0, 1, 2, 3, 4}, ImageSize -> {40, 20}], 
          PopupMenu[
           Dynamic[$CellContext`m12], {0, 1, 2, 3, 4}, ImageSize -> {40, 20}], 
          PopupMenu[
           Dynamic[$CellContext`m13], {0, 1, 2, 3, 4}, 
           ImageSize -> {40, 20}]}, {
          PopupMenu[
           Dynamic[$CellContext`m21], {0, 1, 2, 3, 4}, ImageSize -> {40, 20}], 
          PopupMenu[
           Dynamic[$CellContext`m22], {0, 1, 2, 3, 4}, ImageSize -> {40, 20}], 
          PopupMenu[
           Dynamic[$CellContext`m23], {0, 1, 2, 3, 4}, 
           ImageSize -> {40, 20}]}, {
          PopupMenu[
           Dynamic[$CellContext`m31], {0, 1, 2, 3, 4}, ImageSize -> {40, 20}], 
          PopupMenu[
           Dynamic[$CellContext`m32], {0, 1, 2, 3, 4}, ImageSize -> {40, 20}], 
          PopupMenu[
           Dynamic[$CellContext`m33], {0, 1, 2, 3, 4}, 
           ImageSize -> {40, 20}]}}, Frame -> All]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Style["matrix determinant: " Dynamic[
          $CellContext`matrixDet[True]], 
        RGBColor[1, 0, 0], Plain]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`linear$$], False, "linear transf"}, 
      Dynamic[Button[
        Graphics[
         Polygon[{{-(1/2), Sqrt[3]/2}, {-(1/2), -(Sqrt[3]/2)}, {1, 0}}], 
         ImageSize -> 8], $CellContext`linear$$ = Part[
          Dynamic[
           Not[$CellContext`linear$$]], 1], ImageSize -> {17, 17}]& ]}, {{
       Hold[$CellContext`Suma$$], False, "sum"}, {False, True}}, {{
       Hold[$CellContext`sumcolor$$], 
       RGBColor[0, 1, 1], "sum color"}, 
      RGBColor[0, 0, 1]}, {{
       Hold[$CellContext`Producto$$], False, "times"}, {False, True}}, {{
       Hold[$CellContext`timecolor$$], 
       RGBColor[0, 1, 0], "time color"}, 
      GrayLevel[1]}, {
      Hold[
       Style["cube handling", Bold]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`Member1$$], "Standard Genetic Code", "Codon 1"}, {
      "Standard Genetic Code", "None", "Oblique Plane XNN", 
       "Oblique Plane NYN", "Oblique Plane NNZ", "Code Plane XAZ", 
       "Code Plane XCZ", "Code Plane XGZ", "Code Plane XUZ", "Code Plane AYZ",
        "Code Plane CYZ", "Code Plane GYZ", "Code Plane UYZ", 
       "Code Plane XYA", "Code Plane XYC", "Code Plane XYG", "Code Plane XYU",
        "Code Plane XYA", "Code Plane XYC", "Code Plane XYG", 
       "Code Plane XYU", "Vertical Line AAZ", "Vertical Line ACZ", 
       "Vertical Line AGZ", "Vertical Line AUZ", "Vertical Line CAZ", 
       "Vertical Line CCZ", "Vertical Line CGZ", "Vertical Line CUZ", 
       "Vertical Line GAZ", "Vertical Line GCZ", "Vertical Line GGZ", 
       "Vertical Line GUZ", "Vertical Line UAZ", "Vertical Line UCZ", 
       "Vertical Line UGZ", "Vertical Line UUZ", "GC Random Sample", "Ala", 
       "Cys", "Asp", "Glu", "Phe", "Gly", "His", "Ile", "Lys", "Leu", "Met", 
       "Asn", "Pro", "Gln", "Arg", "Ser", "Thr", "Val", "Trp", "Tyr", "Stop", 
       "AAA", "AAC", "AAG", "AAU", "CAA", "CAC", "CAG", "CAU", "GAA", "GAC", 
       "GAG", "GAU", "UAA", "UAC", "UAG", "UAU", "ACA", "ACC", "ACG", "ACU", 
       "CCA", "CCC", "CCG", "CCU", "GCA", "GCC", "GCG", "GCU", "UCA", "UCC", 
       "UCG", "UCU", "AGA", "AGC", "AGG", "AGU", "CGA", "CGC", "CGG", "CGU", 
       "GGA", "GGC", "GGG", "GGU", "UGA", "UGC", "UGG", "UGU", "AUA", "AUC", 
       "AUG", "AUU", "CUA", "CUC", "CUG", "CUU", "GUA", "GUC", "GUG", "GUU", 
       "UUA", "UUC", "UUG", "UUU"}}, {{
       Hold[$CellContext`mcolor1$$], 
       RGBColor[1, 1, 0], "wild type color"}, 
      RGBColor[1, 1, 0]}, {{
       Hold[$CellContext`linearcolor$$], 
       GrayLevel[1], "mutant codon color"}, 
      GrayLevel[1]}, {{
       Hold[$CellContext`Member2$$], "None", "Codon 2"}, {
      "None", "Standard Genetic Code", "Oblique Plane XNN", 
       "Oblique Plane NYN", "Oblique Plane NNZ", "Code Plane XAZ", 
       "Code Plane XCZ", "Code Plane XGZ", "Code Plane XUZ", "Code Plane AYZ",
        "Code Plane CYZ", "Code Plane GYZ", "Code Plane UYZ", 
       "Code Plane XYA", "Code Plane XYC", "Code Plane XYG", "Code Plane XYU",
        "Code Plane XYA", "Code Plane XYC", "Code Plane XYG", 
       "Code Plane XYU", "Vertical Line AAZ", "Vertical Line ACZ", 
       "Vertical Line AGZ", "Vertical Line AUZ", "Vertical Line CAZ", 
       "Vertical Line CCZ", "Vertical Line CGZ", "Vertical Line CUZ", 
       "Vertical Line GAZ", "Vertical Line GCZ", "Vertical Line GGZ", 
       "Vertical Line GUZ", "Vertical Line UAZ", "Vertical Line UCZ", 
       "Vertical Line UGZ", "Vertical Line UUZ", "GC Random Sample", "Ala", 
       "Cys", "Asp", "Glu", "Phe", "Gly", "His", "Ile", "Lys", "Leu", "Met", 
       "Asn", "Pro", "Gln", "Arg", "Ser", "Thr", "Val", "Trp", "Tyr", "Stop", 
       "AAA", "AAC", "AAG", "AAU", "CAA", "CAC", "CAG", "CAU", "GAA", "GAC", 
       "GAG", "GAU", "UAA", "UAC", "UAG", "UAU", "ACA", "ACC", "ACG", "ACU", 
       "CCA", "CCC", "CCG", "CCU", "GCA", "GCC", "GCG", "GCU", "UCA", "UCC", 
       "UCG", "UCU", "AGA", "AGC", "AGG", "AGU", "CGA", "CGC", "CGG", "CGU", 
       "GGA", "GGC", "GGG", "GGU", "UGA", "UGC", "UGG", "UGU", "AUA", "AUC", 
       "AUG", "AUU", "CUA", "CUC", "CUG", "CUU", "GUA", "GUC", "GUG", "GUU", 
       "UUA", "UUC", "UUG", "UUU"}}, {{
       Hold[$CellContext`mcolor2$$], 
       GrayLevel[1], "color"}, 
      GrayLevel[1]}, {{
       Hold[$CellContext`flag$$], 0, "Amino acids"}, 
      Dynamic[Button[
        Graphics[
         Polygon[{{-(1/2), Sqrt[3]/2}, {-(1/2), -(Sqrt[3]/2)}, {1, 0}}], 
         ImageSize -> 8], $CellContext`flag$$ = 
        Mod[$CellContext`flag$$ + 1, 2], ImageSize -> {17, 17}]& ]}, {{
       Hold[$CellContext`enc$$], "ACGU", "Cube representation"}, {
      "ACGU", "AGCU", "UCGA", "UGCA", "CAUG", "CUAG", "GAUC", "GUAC", "ACUG", 
       "AUCG", "GUCA", "GCUA", "CAGU", "UAGC", "UGAC", "CGAU", "AGUC", "AUGC",
        "CGUA", "CUGA", "GACU", "GCAU", "UACG", "UCAG"}}, {{
       Hold[$CellContext`Size$$], 10, "font size"}, {8, 9, 10, 11, 12, 13, 14,
       15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32,
       33, 34, 35, 36, 37, 38, 39, 40}}, {{
       Hold[$CellContext`fontweight$$], "Bold", "font weight"}, {
      "Bold", "Plain"}}, {{
       Hold[$CellContext`cubesize$$], 385, "cube size"}, {385, 410, 435, 460, 
      485, 510, 535, 560, 585, 610, 635, 660, 685, 710, 735, 760, 785, 810, 
      835, 860, 885, 910, 935, 960, 985, 1010, 1035, 1060, 1085, 1110, 1135, 
      1160, 1185, 1210, 1235, 1260, 1285, 1310, 1335, 1360, 1385, 1410, 1435, 
      1460, 1485, 1510, 1535, 1560, 1585, 1610, 1635, 1660, 1685, 1710, 1735, 
      1760, 1785, 1810, 1835, 1860, 1885, 1910, 1935, 1960, 1985}}, {{
       Hold[$CellContext`Opacities$$], 0.47, "opacity"}, 0, 1, 0.01}, {
      Hold[$CellContext`background$$], 
      RGBColor[0, 0.6666666666666666, 1]}}, Typeset`size$$ = {
    363.75, {180., 183.75}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`background$$ = 
        RGBColor[0, 0.6666666666666666, 1], $CellContext`cubesize$$ = 
        385, $CellContext`enc$$ = "ACGU", $CellContext`flag$$ = 
        0, $CellContext`fontweight$$ = "Bold", $CellContext`linear$$ = 
        False, $CellContext`linearcolor$$ = 
        GrayLevel[1], $CellContext`mcolor1$$ = 
        RGBColor[1, 1, 0], $CellContext`mcolor2$$ = 
        GrayLevel[1], $CellContext`Member1$$ = 
        "Standard Genetic Code", $CellContext`Member2$$ = 
        "None", $CellContext`Opacities$$ = 0.47, $CellContext`Producto$$ = 
        False, $CellContext`Size$$ = 10, $CellContext`Suma$$ = 
        False, $CellContext`sumcolor$$ = 
        RGBColor[0, 1, 1], $CellContext`timecolor$$ = RGBColor[0, 1, 0]}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Dynamic[
        $CellContext`GCube[$CellContext`Opacities$$, $CellContext`Member1$$, \
$CellContext`Member2$$, $CellContext`mcolor1$$, $CellContext`mcolor2$$, \
$CellContext`sumcolor$$, $CellContext`Suma$$, $CellContext`timecolor$$, \
$CellContext`Producto$$, $CellContext`Size$$, $CellContext`fontweight$$, \
$CellContext`background$$, $CellContext`cubesize$$, $CellContext`linear$$, \
$CellContext`linearcolor$$, $CellContext`flag$$, $CellContext`enc$$]], 
      "Specifications" :> {
        Style["linear transformation", Bold], 
        Style["matrix element control", Underlined], 
        Grid[{{
           PopupMenu[
            Dynamic[$CellContext`m11], {0, 1, 2, 3, 4}, 
            ImageSize -> {40, 20}], 
           PopupMenu[
            Dynamic[$CellContext`m12], {0, 1, 2, 3, 4}, 
            ImageSize -> {40, 20}], 
           PopupMenu[
            Dynamic[$CellContext`m13], {0, 1, 2, 3, 4}, 
            ImageSize -> {40, 20}]}, {
           PopupMenu[
            Dynamic[$CellContext`m21], {0, 1, 2, 3, 4}, 
            ImageSize -> {40, 20}], 
           PopupMenu[
            Dynamic[$CellContext`m22], {0, 1, 2, 3, 4}, 
            ImageSize -> {40, 20}], 
           PopupMenu[
            Dynamic[$CellContext`m23], {0, 1, 2, 3, 4}, 
            ImageSize -> {40, 20}]}, {
           PopupMenu[
            Dynamic[$CellContext`m31], {0, 1, 2, 3, 4}, 
            ImageSize -> {40, 20}], 
           PopupMenu[
            Dynamic[$CellContext`m32], {0, 1, 2, 3, 4}, 
            ImageSize -> {40, 20}], 
           PopupMenu[
            Dynamic[$CellContext`m33], {0, 1, 2, 3, 4}, 
            ImageSize -> {40, 20}]}}, Frame -> All], 
        Style["matrix determinant: " Dynamic[
           $CellContext`matrixDet[True]], 
         RGBColor[1, 0, 0], 
         Plain], {{$CellContext`linear$$, False, "linear transf"}, 
         Dynamic[Button[
           Graphics[
            Polygon[{{-(1/2), Sqrt[3]/2}, {-(1/2), -(Sqrt[3]/2)}, {1, 0}}], 
            ImageSize -> 8], $CellContext`linear$$ = Part[
             Dynamic[
              Not[$CellContext`linear$$]], 1], 
           ImageSize -> {17, 17}]& ]}, {{$CellContext`Suma$$, False, "sum"}, {
         False, True}, ControlType -> Checkbox}, {{$CellContext`sumcolor$$, 
          RGBColor[0, 1, 1], "sum color"}, 
         RGBColor[0, 0, 1], 
         ImageSize -> {120, 18}}, {{$CellContext`Producto$$, False, 
          "times"}, {False, True}, ControlType -> 
         Checkbox}, {{$CellContext`timecolor$$, 
          RGBColor[0, 1, 0], "time color"}, 
         GrayLevel[1], ImageSize -> {120, 18}}, Delimiter, 
        Style[
        "cube handling", 
         Bold], {{$CellContext`Member1$$, "Standard Genetic Code", 
          "Codon 1"}, {
         "Standard Genetic Code", "None", "Oblique Plane XNN", 
          "Oblique Plane NYN", "Oblique Plane NNZ", "Code Plane XAZ", 
          "Code Plane XCZ", "Code Plane XGZ", "Code Plane XUZ", 
          "Code Plane AYZ", "Code Plane CYZ", "Code Plane GYZ", 
          "Code Plane UYZ", "Code Plane XYA", "Code Plane XYC", 
          "Code Plane XYG", "Code Plane XYU", "Code Plane XYA", 
          "Code Plane XYC", "Code Plane XYG", "Code Plane XYU", 
          "Vertical Line AAZ", "Vertical Line ACZ", "Vertical Line AGZ", 
          "Vertical Line AUZ", "Vertical Line CAZ", "Vertical Line CCZ", 
          "Vertical Line CGZ", "Vertical Line CUZ", "Vertical Line GAZ", 
          "Vertical Line GCZ", "Vertical Line GGZ", "Vertical Line GUZ", 
          "Vertical Line UAZ", "Vertical Line UCZ", "Vertical Line UGZ", 
          "Vertical Line UUZ", "GC Random Sample", "Ala", "Cys", "Asp", "Glu",
           "Phe", "Gly", "His", "Ile", "Lys", "Leu", "Met", "Asn", "Pro", 
          "Gln", "Arg", "Ser", "Thr", "Val", "Trp", "Tyr", "Stop", "AAA", 
          "AAC", "AAG", "AAU", "CAA", "CAC", "CAG", "CAU", "GAA", "GAC", 
          "GAG", "GAU", "UAA", "UAC", "UAG", "UAU", "ACA", "ACC", "ACG", 
          "ACU", "CCA", "CCC", "CCG", "CCU", "GCA", "GCC", "GCG", "GCU", 
          "UCA", "UCC", "UCG", "UCU", "AGA", "AGC", "AGG", "AGU", "CGA", 
          "CGC", "CGG", "CGU", "GGA", "GGC", "GGG", "GGU", "UGA", "UGC", 
          "UGG", "UGU", "AUA", "AUC", "AUG", "AUU", "CUA", "CUC", "CUG", 
          "CUU", "GUA", "GUC", "GUG", "GUU", "UUA", "UUC", "UUG", "UUU"}, 
         ControlType -> PopupMenu, 
         ImageSize -> {120, 22}}, {{$CellContext`mcolor1$$, 
          RGBColor[1, 1, 0], "wild type color"}, 
         RGBColor[1, 1, 0], 
         ImageSize -> {120, 18}}, {{$CellContext`linearcolor$$, 
          GrayLevel[1], "mutant codon color"}, 
         GrayLevel[1], 
         ImageSize -> {120, 18}}, {{$CellContext`Member2$$, "None", 
          "Codon 2"}, {
         "None", "Standard Genetic Code", "Oblique Plane XNN", 
          "Oblique Plane NYN", "Oblique Plane NNZ", "Code Plane XAZ", 
          "Code Plane XCZ", "Code Plane XGZ", "Code Plane XUZ", 
          "Code Plane AYZ", "Code Plane CYZ", "Code Plane GYZ", 
          "Code Plane UYZ", "Code Plane XYA", "Code Plane XYC", 
          "Code Plane XYG", "Code Plane XYU", "Code Plane XYA", 
          "Code Plane XYC", "Code Plane XYG", "Code Plane XYU", 
          "Vertical Line AAZ", "Vertical Line ACZ", "Vertical Line AGZ", 
          "Vertical Line AUZ", "Vertical Line CAZ", "Vertical Line CCZ", 
          "Vertical Line CGZ", "Vertical Line CUZ", "Vertical Line GAZ", 
          "Vertical Line GCZ", "Vertical Line GGZ", "Vertical Line GUZ", 
          "Vertical Line UAZ", "Vertical Line UCZ", "Vertical Line UGZ", 
          "Vertical Line UUZ", "GC Random Sample", "Ala", "Cys", "Asp", "Glu",
           "Phe", "Gly", "His", "Ile", "Lys", "Leu", "Met", "Asn", "Pro", 
          "Gln", "Arg", "Ser", "Thr", "Val", "Trp", "Tyr", "Stop", "AAA", 
          "AAC", "AAG", "AAU", "CAA", "CAC", "CAG", "CAU", "GAA", "GAC", 
          "GAG", "GAU", "UAA", "UAC", "UAG", "UAU", "ACA", "ACC", "ACG", 
          "ACU", "CCA", "CCC", "CCG", "CCU", "GCA", "GCC", "GCG", "GCU", 
          "UCA", "UCC", "UCG", "UCU", "AGA", "AGC", "AGG", "AGU", "CGA", 
          "CGC", "CGG", "CGU", "GGA", "GGC", "GGG", "GGU", "UGA", "UGC", 
          "UGG", "UGU", "AUA", "AUC", "AUG", "AUU", "CUA", "CUC", "CUG", 
          "CUU", "GUA", "GUC", "GUG", "GUU", "UUA", "UUC", "UUG", "UUU"}, 
         ControlType -> PopupMenu, 
         ImageSize -> {120, 22}}, {{$CellContext`mcolor2$$, 
          GrayLevel[1], "color"}, 
         GrayLevel[1], 
         ImageSize -> {120, 18}}, {{$CellContext`flag$$, 0, "Amino acids"}, 
         Dynamic[Button[
           Graphics[
            Polygon[{{-(1/2), Sqrt[3]/2}, {-(1/2), -(Sqrt[3]/2)}, {1, 0}}], 
            ImageSize -> 8], $CellContext`flag$$ = 
           Mod[$CellContext`flag$$ + 1, 2], 
           ImageSize -> {17, 17}]& ]}, {{$CellContext`enc$$, "ACGU", 
          "Cube representation"}, {
         "ACGU", "AGCU", "UCGA", "UGCA", "CAUG", "CUAG", "GAUC", "GUAC", 
          "ACUG", "AUCG", "GUCA", "GCUA", "CAGU", "UAGC", "UGAC", "CGAU", 
          "AGUC", "AUGC", "CGUA", "CUGA", "GACU", "GCAU", "UACG", "UCAG"}, 
         ControlType -> PopupMenu, 
         ImageSize -> {60, 22}}, {{$CellContext`Size$$, 10, "font size"}, {8, 
         9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 
         26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40}, 
         ControlType -> PopupMenu, 
         ImageSize -> {60, 20}}, {{$CellContext`fontweight$$, "Bold", 
          "font weight"}, {"Bold", "Plain"}, ControlType -> PopupMenu, 
         ImageSize -> {60, 20}}, {{$CellContext`cubesize$$, 385, 
          "cube size"}, {385, 410, 435, 460, 485, 510, 535, 560, 585, 610, 
         635, 660, 685, 710, 735, 760, 785, 810, 835, 860, 885, 910, 935, 960,
          985, 1010, 1035, 1060, 1085, 1110, 1135, 1160, 1185, 1210, 1235, 
         1260, 1285, 1310, 1335, 1360, 1385, 1410, 1435, 1460, 1485, 1510, 
         1535, 1560, 1585, 1610, 1635, 1660, 1685, 1710, 1735, 1760, 1785, 
         1810, 1835, 1860, 1885, 1910, 1935, 1960, 1985}, ControlType -> 
         PopupMenu, 
         ImageSize -> {60, 20}}, {{$CellContext`Opacities$$, 0.47, "opacity"},
          0, 1, 0.01, ImageSize -> Small}, {$CellContext`background$$, 
         RGBColor[0, 0.6666666666666666, 1], ImageSize -> {120, 18}}}, 
      "Options" :> {
       FrameMargins -> Small, ImageMargins -> Medium, ControlPlacement -> 
        Left, AutorunSequencing -> {1, 5, 7}, Alignment -> Left}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{550.5, {211.10052490234375`, 215.39947509765625`}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`GCube[
         Pattern[$CellContext`opacity, 
          Blank[]], 
         Pattern[$CellContext`Operator1, 
          Blank[]], 
         Pattern[$CellContext`Operator2, 
          Blank[]], 
         Pattern[$CellContext`opcolor1, 
          Blank[]], 
         Pattern[$CellContext`opcolor2, 
          Blank[]], 
         Pattern[$CellContext`sumcolor, 
          Blank[]], 
         Pattern[$CellContext`Suma, 
          Blank[]], 
         Pattern[$CellContext`timecolor, 
          Blank[]], 
         Pattern[$CellContext`Producto, 
          Blank[]], 
         Pattern[$CellContext`Size, 
          Blank[]], 
         Pattern[$CellContext`fontweight, 
          Blank[]], 
         Pattern[$CellContext`background, 
          Blank[]], 
         Pattern[$CellContext`cubesize, 
          Blank[]], 
         Pattern[$CellContext`linear, 
          Blank[]], 
         Pattern[$CellContext`linearcolor, 
          Blank[]], 
         Optional[
          Pattern[$CellContext`flag, 
           Blank[]], 0], 
         Pattern[$CellContext`enc, 
          Blank[]]] := 
       Module[{$CellContext`c = 
          2, $CellContext`opa = $CellContext`opacity, $CellContext`triplet, \
$CellContext`triplets, $CellContext`tl, $CellContext`trip, $CellContext`o1, \
$CellContext`oper1, $CellContext`operat1, $CellContext`operator1, \
$CellContext`transftriplets1, $CellContext`graphic, $CellContext`grafico, \
$CellContext`linearamino, $CellContext`puntos, $CellContext`puntos2, \
$CellContext`operat2, $CellContext`o2, $CellContext`oper2, \
$CellContext`operator2, $CellContext`amino, $CellContext`sumtriplets, \
$CellContext`timepoints, $CellContext`timetriplets, $CellContext`transf, \
$CellContext`sumpoints, $CellContext`sumamino, $CellContext`timesamino, \
$CellContext`amino2}, 
         If[$CellContext`Operator1 != 
           "None", $CellContext`operat1 = \
$CellContext`f[$CellContext`Operator1]; If[
             
             MemberQ[$CellContext`VlineLabels, $CellContext`Operator1], \
$CellContext`o1 = 1; $CellContext`oper1 = 
              Part[$CellContext`operat1, 2]; $CellContext`operator1 = 
              Part[$CellContext`operat1, 1], $CellContext`o1 = 
              0; $CellContext`operator1 = $CellContext`operat1]; \
$CellContext`puntos = $CellContext`points[$CellContext`operator1, \
$CellContext`enc]; 
           If[$CellContext`flag == 1, $CellContext`amino = 
             Map[$CellContext`GC[#, $CellContext`enc]& , \
$CellContext`puntos]]; 
           Null, $CellContext`operator1 = \
$CellContext`f[$CellContext`Operator1]; $CellContext`puntos = {{0, 0, 
             0}}; $CellContext`o1 = 0; Null]; 
         If[$CellContext`Operator2 != 
           "None", $CellContext`operat2 = \
$CellContext`f[$CellContext`Operator2]; If[
             
             MemberQ[$CellContext`VlineLabels, $CellContext`Operator2], \
$CellContext`o2 = 1; $CellContext`oper2 = 
              Part[$CellContext`operat2, 2]; $CellContext`operator2 = 
              Part[$CellContext`operat2, 1], $CellContext`o2 = 
              0; $CellContext`operator2 = $CellContext`operat2]; \
$CellContext`puntos2 = $CellContext`points[$CellContext`operator2, \
$CellContext`enc]; 
           If[$CellContext`flag == 1, $CellContext`amino2 = 
             Map[$CellContext`GC[#, $CellContext`enc]& , \
$CellContext`puntos2]]; 
           Null, $CellContext`operator2 = \
$CellContext`f[$CellContext`Operator2]; $CellContext`puntos2 = {{0, 0, 
             0}}; $CellContext`o2 = 0; Null]; If[
           
           And[$CellContext`linear, $CellContext`Operator1 != 
            "None"], $CellContext`transf = \
$CellContext`tranf[$CellContext`puntos]; 
           If[$CellContext`flag == 1, $CellContext`linearamino = 
             Map[$CellContext`GC[#, $CellContext`enc]& , \
$CellContext`transf]]; $CellContext`transftriplets1 = Map[StringJoin[#]& , 
              $CellContext`tripletes[$CellContext`transf, $CellContext`enc]]; 
           Null, $CellContext`transftriplets1 = {""}; $CellContext`transf = {{
             0, 0, 0}}; $CellContext`linearamino = {""}; Null]; If[
           
           And[$CellContext`Suma, $CellContext`Operator1 != 
            "None", $CellContext`Operator2 != 
            "None"], $CellContext`sumpoints = \
$CellContext`Add[$CellContext`puntos, $CellContext`puntos2]; 
           If[$CellContext`flag == 1, $CellContext`sumamino = 
             Map[$CellContext`GC[#, $CellContext`enc]& , \
$CellContext`sumpoints]]; $CellContext`sumtriplets = Map[StringJoin[#]& , 
              $CellContext`tripletes[$CellContext`sumpoints, \
$CellContext`enc]]; 
           Null, $CellContext`sumtriplets = {""}; $CellContext`sumpoints = {{
             0, 0, 0}}]; If[
           
           And[$CellContext`Producto, $CellContext`Operator1 != 
            "None", $CellContext`Operator2 != 
            "None"], $CellContext`timepoints = \
$CellContext`Productos[$CellContext`puntos, $CellContext`puntos2]; 
           If[$CellContext`flag == 1, $CellContext`timesamino = 
             
             Map[$CellContext`GC[#, $CellContext`enc]& , \
$CellContext`timepoints]]; $CellContext`timetriplets = Map[StringJoin[#]& , 
              $CellContext`tripletes[$CellContext`timepoints, \
$CellContext`enc]]; 
           Null, $CellContext`timetriplets = {
             ""}; $CellContext`timepoints = {{0, 0, 0}}]; $CellContext`graphic[
            Pattern[$CellContext`p, 
             Blank[]], 
            Pattern[$CellContext`h0, 
             Blank[]]] := Graphics3D[
            Flatten[{
              $CellContext`TripletCoordinates[$CellContext`operator1, \
$CellContext`p, $CellContext`fontweight, $CellContext`opcolor1, \
$CellContext`Size], 
              $CellContext`TripletCoordinates[$CellContext`operator2, \
$CellContext`puntos2, $CellContext`fontweight, $CellContext`opcolor2, \
$CellContext`Size], 
              $CellContext`TripletCoordinates[$CellContext`sumtriplets, \
$CellContext`sumpoints, $CellContext`fontweight, $CellContext`sumcolor, \
$CellContext`Size], 
              $CellContext`TripletCoordinates[$CellContext`timetriplets, \
$CellContext`timepoints, $CellContext`fontweight, $CellContext`timecolor, \
$CellContext`Size], 
              $CellContext`TripletCoordinates[$CellContext`transftriplets1, \
$CellContext`transf, $CellContext`fontweight, $CellContext`linearcolor, \
$CellContext`Size], 
              If[$CellContext`h0 == 1, 
               $CellContext`TripletCoordinates[$CellContext`amino, 
                
                Map[# - {
                 0, 0, 0.2}& , $CellContext`p], $CellContext`fontweight, \
$CellContext`opcolor1, $CellContext`Size]], 
              If[
               And[$CellContext`h0 == 1, $CellContext`Operator2 != "None"], 
               $CellContext`TripletCoordinates[$CellContext`amino2, 
                
                Map[# - {
                 0, 0, 0.2}& , $CellContext`puntos2], \
$CellContext`fontweight, $CellContext`opcolor1, $CellContext`Size]], 
              If[$CellContext`h0 == 1, 
               $CellContext`TripletCoordinates[$CellContext`linearamino, 
                
                Map[# - {
                 0, 0, 0.2}& , $CellContext`transf], $CellContext`fontweight, \
$CellContext`linearcolor, $CellContext`Size]], 
              If[
               
               And[$CellContext`h0 == 
                1, $CellContext`Suma, $CellContext`Operator2 != "None"], 
               $CellContext`TripletCoordinates[$CellContext`sumamino, 
                
                Map[# - {
                 0, 0, 0.2}& , $CellContext`sumpoints], \
$CellContext`fontweight, $CellContext`linearcolor, $CellContext`Size]], 
              If[
               
               And[$CellContext`h0 == 
                1, $CellContext`Producto, $CellContext`Operator2 != "None"], 
               $CellContext`TripletCoordinates[$CellContext`timesamino, 
                
                Map[# - {
                 0, 0, 0.2}& , $CellContext`timepoints], \
$CellContext`fontweight, $CellContext`linearcolor, $CellContext`Size]], 
              Opacity[$CellContext`opa], Green, 
              $CellContext`VerticalPlaneCoordinatesY[0, $CellContext`c], 
              Opacity[$CellContext`opa], Blue, 
              $CellContext`VerticalPlaneCoordinatesY[1, $CellContext`c], 
              Opacity[$CellContext`opa], Magenta, 
              $CellContext`VerticalPlaneCoordinatesY[2, $CellContext`c], 
              Opacity[$CellContext`opa], Orange, 
              $CellContext`VerticalPlaneCoordinatesY[3, $CellContext`c], 
              Table[{
                RGBColor[1, 1, 0.3, 
                 Min[$CellContext`opa, 0.2]], 
                $CellContext`VerticalPlaneCoordinatesX[$CellContext`b, \
$CellContext`c], 
                RGBColor[1, 1, 0, 
                 Min[$CellContext`opa, 0.3]], 
                $CellContext`HorizontalPlaneCoordinates[$CellContext`b, \
$CellContext`c]}, {$CellContext`b, 0, $CellContext`c + 1}]}], Boxed -> False, 
            ImageSize -> $CellContext`cubesize, ViewPoint -> {3, 1.5, 0.1}, 
            SphericalRegion -> True, Background -> $CellContext`background]; 
         If[$CellContext`flag == 0, 
           $CellContext`graphic[$CellContext`puntos, 0], 
           $CellContext`graphic[$CellContext`puntos, 1]]], $CellContext`f[
         Pattern[$CellContext`t, 
          Blank[]]] := 
       Switch[$CellContext`t, "Standard Genetic Code", $CellContext`StdCode, 
         "Ancestral Triplet Subset", {
         "DDD", "DDA", "DDC", "DDG", "DDU", "DAD", "DAA", "DAC", "DAG", "DAU",
           "DCD", "DCA", "DCC", "DCG", "DCU", "DGD", "DGA", "DGC", "DGG", 
          "DGU", "DUD", "DUA", "DUC", "DUG", "DUU", "ADD", "ADA", "ADC", 
          "ADG", "ADU", "AAD", "ACD", "AGD", "AUD", "CDD", "CDA", "CDC", 
          "CDG", "CDU", "CAD", "CCD", "CGD", "CUD", "GDD", "GDA", "GDC", 
          "GDG", "GDU", "GAD", "GCD", "GGD", "GUD", "UDD", "UDA", "UDC", 
          "UDG", "UDU", "UAD", "UCD", "UGD", "UUD"}, 
         "Oblique Plane XNN", $CellContext`PlaneXNN, 
         "Oblique Plane NYN", $CellContext`PlaneNYN, 
         "Oblique Plane NNZ", $CellContext`PlaneNNZ, 
         "Horizontal Plane XYA", $CellContext`PlaneXYA, 
         "Horizontal Plane XYC", $CellContext`PlaneXYC, 
         "Horizontal Plane XYG", $CellContext`PlaneXYG, 
         "Horizontal Plane XYU", $CellContext`PlaneXYU, 
         "Code Plane XAZ", $CellContext`GCplaneXAZ, 
         "Code Plane XCZ", $CellContext`GCplaneXCZ, 
         "Code Plane XGZ", $CellContext`GCplaneXGZ, 
         "Code Plane XUZ", $CellContext`GCplaneXUZ, 
         "Code Plane AYZ", $CellContext`GCplaneAYZ, 
         "Code Plane CYZ", $CellContext`GCplaneCYZ, 
         "Code Plane GYZ", $CellContext`GCplaneGYZ, 
         "Code Plane UYZ", $CellContext`GCplaneUYZ, 
         "Code Plane XYA", $CellContext`GCplaneXYA, 
         "Code Plane XYC", $CellContext`GCplaneXYC, 
         "Code Plane XYG", $CellContext`GCplaneXYG, 
         "Code Plane XYU", $CellContext`GCplaneXYU, 
         "Vertical Line AAZ", $CellContext`LineAAZ, 
         "Vertical Line ACZ", $CellContext`LineACZ, 
         "Vertical Line AGZ", $CellContext`LineAGZ, 
         "Vertical Line AUZ", $CellContext`LineAUZ, 
         "Vertical Line CAZ", $CellContext`LineCAZ, 
         "Vertical Line CCZ", $CellContext`LineCCZ, 
         "Vertical Line CGZ", $CellContext`LineCGZ, 
         "Vertical Line CUZ", $CellContext`LineCUZ, 
         "Vertical Line GAZ", $CellContext`LineGAZ, 
         "Vertical Line GCZ", $CellContext`LineGCZ, 
         "Vertical Line GGZ", $CellContext`LineGGZ, 
         "Vertical Line GUZ", $CellContext`LineGUZ, 
         "Vertical Line UAZ", $CellContext`LineUAZ, 
         "Vertical Line UCZ", $CellContext`LineUCZ, 
         "Vertical Line UGZ", $CellContext`LineUGZ, 
         "Vertical Line UUZ", $CellContext`LineUUZ, "GC Random Sample", 
         Flatten[{
           RandomSample[$CellContext`GCplaneXAZ, 1], 
           RandomSample[$CellContext`GCplaneXCZ, 1], 
           RandomSample[$CellContext`GCplaneXGZ, 1], 
           RandomSample[$CellContext`GCplaneXUZ, 1]}], "Ala", {
         "GCG", "GCU", "GCA", "GCC"}, "Cys", {"UGU", "UGC"}, "Asp", {
         "GAU", "GAC"}, "Glu", {"GAG", "GAA"}, "Phe", {"UUU", "UUC"}, "Gly", {
         "GGG", "GGU", "GGA", "GGC"}, "His", {"CAU", "CAC"}, "Ile", {
         "AUU", "AUA", "AUC"}, "Lys", {"AAG", "AAA"}, "Leu", {
         "UUG", "UUA", "CUG", "CUU", "CUA", "CUC"}, "Met", {"AUG"}, "Asn", {
         "AAU", "AAC"}, "Pro", {"CCG", "CCU", "CCA", "CCC"}, "Gln", {
         "CAG", "CAA"}, "Arg", {"AGG", "AGA", "CGG", "CGU", "CGA", "CGC"}, 
         "Ser", {"UCG", "UCU", "UCA", "UCC", "AGU", "AGC"}, "Thr", {
         "ACG", "ACU", "ACA", "ACC"}, "Val", {"GUG", "GUU", "GUA", "GUC"}, 
         "Trp", {"UGG"}, "Tyr", {"UAU", "UAC"}, "Stop", {"UGA", "UAG", "UAA"},
          "None", {""}, "DDD", {"DDD"}, "DDA", {"DDA"}, "DDC", {"DDC"}, 
         "DDG", {"DDG"}, "DDU", {"DDU"}, "ADD", {"ADD"}, "ADA", {"ADA"}, 
         "ADC", {"ADC"}, "ADG", {"ADG"}, "ADU", {"ADU"}, "CDD", {"CDD"}, 
         "CDA", {"CDA"}, "CDC", {"CDC"}, "CDG", {"CDG"}, "CDU", {"CDU"}, 
         "GDD", {"GDD"}, "GDA", {"GDA"}, "GDC", {"GDC"}, "GDG", {"GDG"}, 
         "GDU", {"GDU"}, "UDD", {"UDD"}, "UDA", {"UDA"}, "UDC", {"UDC"}, 
         "UDG", {"UDG"}, "UDU", {"UDU"}, "DAD", {"DAD"}, "DAA", {"DAA"}, 
         "DAC", {"DAC"}, "DAG", {"DAG"}, "DAU", {"DAU"}, "AAD", {"AAD"}, 
         "AAA", {"AAA"}, "AAC", {"AAC"}, "AAG", {"AAG"}, "AAU", {"AAU"}, 
         "CAD", {"CAD"}, "CAA", {"CAA"}, "CAC", {"CAC"}, "CAG", {"CAG"}, 
         "CAU", {"CAU"}, "GAD", {"GAD"}, "GAA", {"GAA"}, "GAC", {"GAC"}, 
         "GAG", {"GAG"}, "GAU", {"GAU"}, "UAD", {"UAD"}, "UAA", {"UAA"}, 
         "UAC", {"UAC"}, "UAG", {"UAG"}, "UAU", {"UAU"}, "DCD", {"DCD"}, 
         "DCA", {"DCA"}, "DCC", {"DCC"}, "DCG", {"DCG"}, "DCU", {"DCU"}, 
         "ACD", {"ACD"}, "ACA", {"ACA"}, "ACC", {"ACC"}, "ACG", {"ACG"}, 
         "ACU", {"ACU"}, "CCD", {"CCD"}, "CCA", {"CCA"}, "CCC", {"CCC"}, 
         "CCG", {"CCG"}, "CCU", {"CCU"}, "GCD", {"GCD"}, "GCA", {"GCA"}, 
         "GCC", {"GCC"}, "GCG", {"GCG"}, "GCU", {"GCU"}, "UCD", {"UCD"}, 
         "UCA", {"UCA"}, "UCC", {"UCC"}, "UCG", {"UCG"}, "UCU", {"UCU"}, 
         "DGD", {"DGD"}, "DGA", {"DGA"}, "DGC", {"DGC"}, "DGG", {"DGG"}, 
         "DGU", {"DGU"}, "AGD", {"AGD"}, "AGA", {"AGA"}, "AGC", {"AGC"}, 
         "AGG", {"AGG"}, "AGU", {"AGU"}, "CGD", {"CGD"}, "CGA", {"CGA"}, 
         "CGC", {"CGC"}, "CGG", {"CGG"}, "CGU", {"CGU"}, "GGD", {"GGD"}, 
         "GGA", {"GGA"}, "GGC", {"GGC"}, "GGG", {"GGG"}, "GGU", {"GGU"}, 
         "UGD", {"UGD"}, "UGA", {"UGA"}, "UGC", {"UGC"}, "UGG", {"UGG"}, 
         "UGU", {"UGU"}, "DUD", {"DUD"}, "DUA", {"DUA"}, "DUC", {"DUC"}, 
         "DUG", {"DUG"}, "DUU", {"DUU"}, "AUD", {"AUD"}, "AUA", {"AUA"}, 
         "AUC", {"AUC"}, "AUG", {"AUG"}, "AUU", {"AUU"}, "CUD", {"CUD"}, 
         "CUA", {"CUA"}, "CUC", {"CUC"}, "CUG", {"CUG"}, "CUU", {"CUU"}, 
         "GUD", {"GUD"}, "GUA", {"GUA"}, "GUC", {"GUC"}, "GUG", {"GUG"}, 
         "GUU", {"GUU"}, "UUD", {"UUD"}, "UUA", {"UUA"}, "UUC", {"UUC"}, 
         "UUG", {"UUG"}, "UUU", {"UUU"}], $CellContext`StdCode = {
        "AAA", "AAC", "AAG", "AAU", "CAA", "CAC", "CAG", "CAU", "GAA", "GAC", 
         "GAG", "GAU", "UAA", "UAC", "UAG", "UAU", "ACA", "ACC", "ACG", "ACU",
          "CCA", "CCC", "CCG", "CCU", "GCA", "GCC", "GCG", "GCU", "UCA", 
         "UCC", "UCG", "UCU", "AGA", "AGC", "AGG", "AGU", "CGA", "CGC", "CGG",
          "CGU", "GGA", "GGC", "GGG", "GGU", "UGA", "UGC", "UGG", "UGU", 
         "AUA", "AUC", "AUG", "AUU", "CUA", "CUC", "CUG", "CUU", "GUA", "GUC",
          "GUG", "GUU", "UUA", "UUC", "UUG", "UUU"}, $CellContext`PlaneXNN = {
        "AAA", "ACC", "AGG", "AUU", "CAA", "CCC", "CGG", "CUU", "GAA", "GCC", 
         "GGG", "GUU", "UAA", "UCC", "UGG", "UUU"}, $CellContext`PlaneNYN = {
        "AAA", "CAC", "GAG", "UAU", "ACA", "CCC", "GCG", "UCU", "AGA", "CGC", 
         "GGG", "UGU", "AUA", "CUC", "GUG", "UUU"}, $CellContext`PlaneNNZ = {
        "AAA", "CCA", "GGA", "UUA", "AAC", "CCC", "GGC", "UUC", "AAG", "CCG", 
         "GGG", "UUG", "AAU", "CCU", "GGU", 
         "UUU"}, $CellContext`GCplaneXAZ = {
        "AAA", "AAC", "AAG", "AAU", "CAA", "CAC", "CAG", "CAU", "GAA", "GAC", 
         "GAG", "GAU", "UAA", "UAC", "UAG", 
         "UAU"}, $CellContext`GCplaneXCZ = {
        "ACA", "ACC", "ACG", "ACU", "CCA", "CCC", "CCG", "CCU", "GCA", "GCC", 
         "GCG", "GCU", "UCA", "UCC", "UCG", 
         "UCU"}, $CellContext`GCplaneXGZ = {
        "AGA", "AGC", "AGG", "AGU", "CGA", "CGC", "CGG", "CGU", "GGA", "GGC", 
         "GGG", "GGU", "UGA", "UGC", "UGG", 
         "UGU"}, $CellContext`GCplaneXUZ = {
        "AUA", "AUC", "AUG", "AUU", "CUA", "CUC", "CUG", "CUU", "GUA", "GUC", 
         "GUG", "GUU", "UUA", "UUC", "UUG", 
         "UUU"}, $CellContext`GCplaneAYZ = {
        "AAA", "AAC", "AAG", "AAU", "ACA", "ACC", "ACG", "ACU", "AGA", "AGC", 
         "AGG", "AGU", "AUA", "AUC", "AUG", 
         "AUU"}, $CellContext`GCplaneCYZ = {
        "CAA", "CAC", "CAG", "CAU", "CCA", "CCC", "CCG", "CCU", "CGA", "CGC", 
         "CGG", "CGU", "CUA", "CUC", "CUG", 
         "CUU"}, $CellContext`GCplaneGYZ = {
        "GAA", "GAC", "GAG", "GAU", "GCA", "GCC", "GCG", "GCU", "GGA", "GGC", 
         "GGG", "GGU", "GUA", "GUC", "GUG", 
         "GUU"}, $CellContext`GCplaneUYZ = {
        "UAA", "UAC", "UAG", "UAU", "UCA", "UCC", "UCG", "UCU", "UGA", "UGC", 
         "UGG", "UGU", "UUA", "UUC", "UUG", 
         "UUU"}, $CellContext`GCplaneXYA = {
        "AAA", "CAA", "GAA", "UAA", "ACA", "CCA", "GCA", "UCA", "AGA", "CGA", 
         "GGA", "UGA", "AUA", "CUA", "GUA", 
         "UUA"}, $CellContext`GCplaneXYC = {
        "AAC", "CAC", "GAC", "UAC", "ACC", "CCC", "GCC", "UCC", "AGC", "CGC", 
         "GGC", "UGC", "AUC", "CUC", "GUC", 
         "UUC"}, $CellContext`GCplaneXYG = {
        "AAG", "CAG", "GAG", "UAG", "ACG", "CCG", "GCG", "UCG", "AGG", "CGG", 
         "GGG", "UGG", "AUG", "CUG", "GUG", 
         "UUG"}, $CellContext`GCplaneXYU = {
        "AAU", "CAU", "GAU", "UAU", "ACU", "CCU", "GCU", "UCU", "AGU", "CGU", 
         "GGU", "UGU", "AUU", "CUU", "GUU", "UUU"}, $CellContext`LineAAZ = {{
         "AAA", "AAC", "AAG", "AAU"}, 
         Line[{{0, 0, 0}, {0, 0, 1}, {0, 0, 2}, {0, 0, 
          3}}]}, $CellContext`LineACZ = {{"ACA", "ACC", "ACG", "ACU"}, 
         Line[{{0, 1, 0}, {0, 1, 1}, {0, 1, 2}, {0, 1, 
          3}}]}, $CellContext`LineAGZ = {{"AGA", "AGC", "AGG", "AGU"}, 
         Line[{{0, 2, 0}, {0, 2, 1}, {0, 2, 2}, {0, 2, 
          3}}]}, $CellContext`LineAUZ = {{"AUA", "AUC", "AUG", "AUU"}, 
         Line[{{0, 3, 0}, {0, 3, 1}, {0, 3, 2}, {0, 3, 
          3}}]}, $CellContext`LineCAZ = {{"CAA", "CAC", "CAG", "CAU"}, 
         Line[{{1, 0, 0}, {1, 0, 1}, {1, 0, 2}, {1, 0, 
          3}}]}, $CellContext`LineCCZ = {{"CCA", "CCC", "CCG", "CCU"}, 
         Line[{{1, 1, 0}, {1, 1, 1}, {1, 1, 2}, {1, 1, 
          3}}]}, $CellContext`LineCGZ = {{"CGA", "CGC", "CGG", "CGU"}, 
         Line[{{1, 2, 0}, {1, 2, 1}, {1, 2, 2}, {1, 2, 
          3}}]}, $CellContext`LineCUZ = {{"CUA", "CUC", "CUG", "CUU"}, 
         Line[{{1, 3, 0}, {1, 3, 1}, {1, 3, 2}, {1, 3, 
          3}}]}, $CellContext`LineGAZ = {{"GAA", "GAC", "GAG", "GAU"}, 
         Line[{{2, 0, 0}, {2, 0, 1}, {2, 0, 2}, {2, 0, 
          3}}]}, $CellContext`LineGCZ = {{"GCA", "GCC", "GCG", "GCU"}, 
         Line[{{2, 1, 0}, {2, 1, 1}, {2, 1, 2}, {2, 1, 
          3}}]}, $CellContext`LineGGZ = {{"GGA", "GGC", "GGG", "GGU"}, 
         Line[{{2, 2, 0}, {2, 2, 1}, {2, 2, 2}, {2, 2, 
          3}}]}, $CellContext`LineGUZ = {{"GUA", "GUC", "GUG", "GUU"}, 
         Line[{{2, 3, 0}, {2, 3, 1}, {2, 3, 2}, {2, 3, 
          3}}]}, $CellContext`LineUAZ = {{"UAA", "UAC", "UAG", "UAU"}, 
         Line[{{3, 0, 0}, {3, 0, 1}, {3, 0, 2}, {3, 0, 
          3}}]}, $CellContext`LineUCZ = {{"UCA", "UCC", "UCG", "UCU"}, 
         Line[{{3, 1, 0}, {3, 1, 1}, {3, 1, 2}, {3, 1, 
          3}}]}, $CellContext`LineUGZ = {{"UGA", "UGC", "UGG", "UGU"}, 
         Line[{{3, 2, 0}, {3, 2, 1}, {3, 2, 2}, {3, 2, 
          3}}]}, $CellContext`LineUUZ = {{"UUA", "UUC", "UUG", "UUU"}, 
         Line[{{3, 3, 0}, {3, 3, 1}, {3, 3, 2}, {3, 3, 
          3}}]}, $CellContext`VlineLabels = {
        "Vertical Line DDZ", "Vertical Line DAZ", "Vertical Line DCZ", 
         "Vertical Line DGZ", "Vertical Line DUZ", "Vertical Line ADZ", 
         "Vertical Line AAZ", "Vertical Line ACZ", "Vertical Line AGZ", 
         "Vertical Line AUZ", "Vertical Line CDZ", "Vertical Line CAZ", 
         "Vertical Line CCZ", "Vertical Line CGZ", "Vertical Line CUZ", 
         "Vertical Line GDZ", "Vertical Line GAZ", "Vertical Line GCZ", 
         "Vertical Line GGZ", "Vertical Line GUZ", "Vertical Line UDZ", 
         "Vertical Line UAZ", "Vertical Line UCZ", "Vertical Line UGZ", 
         "Vertical Line UUZ"}, $CellContext`points[
         Pattern[$CellContext`s, 
          Blank[]], 
         Optional[
          Pattern[$CellContext`enc, 
           Blank[]], "ACGU"]] := Map[ReplaceAll[
          Flatten[
           Characters[#]], 
          $CellContext`encoding[$CellContext`enc]]& , $CellContext`s], \
$CellContext`encoding[
         Pattern[$CellContext`enc, 
          Blank[]]] := MapThread[# -> #2& , {
          Characters[$CellContext`enc], {0, 1, 2, 3}}], $CellContext`GC[
         Pattern[$CellContext`x, 
          Blank[]], 
         Optional[
          Pattern[$CellContext`enc, 
           Blank[]], "ACGU"]] := Which[
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Ala"]], $CellContext`x], "A", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Cys"]], $CellContext`x], "C", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Asp"]], $CellContext`x], "D", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Glu"]], $CellContext`x], "E", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Phe"]], $CellContext`x], "F", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Gly"]], $CellContext`x], "G", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["His"]], $CellContext`x], "H", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Ile"]], $CellContext`x], "I", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Lys"]], $CellContext`x], "K", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Leu"]], $CellContext`x], "L", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Met"]], $CellContext`x], "M", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Asn"]], $CellContext`x], "N", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Pro"]], $CellContext`x], "P", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Gln"]], $CellContext`x], "Q", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Arg"]], $CellContext`x], "R", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Ser"]], $CellContext`x], "S", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Thr"]], $CellContext`x], "T", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Val"]], $CellContext`x], "V", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Trp"]], $CellContext`x], "W", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Tyr"]], $CellContext`x], "Y", 
         MemberQ[
          Map[Flatten[
            $CellContext`points[{#}, $CellContext`enc], 1]& , 
           $CellContext`f["Stop"]], $CellContext`x], "-"], $CellContext`tranf[
        
         Pattern[$CellContext`x, 
          Blank[]]] := Module[{$CellContext`matrix}, $CellContext`matrix = {{
             Part[
              Dynamic[$CellContext`m11, Automatic], 1], 
             Part[
              Dynamic[$CellContext`m12, Automatic], 1], 
             Part[
              Dynamic[$CellContext`m13, Automatic], 1]}, {
             Part[
              Dynamic[$CellContext`m21, Automatic], 1], 
             Part[
              Dynamic[$CellContext`m22, Automatic], 1], 
             Part[
              Dynamic[$CellContext`m23, Automatic], 1]}, {
             Part[
              Dynamic[$CellContext`m31, Automatic], 1], 
             Part[
              Dynamic[$CellContext`m32, Automatic], 1], 
             Part[
              Dynamic[$CellContext`m33, Automatic], 1]}}; Map[Mod[
            Dot[$CellContext`matrix, #], 
            5]& , $CellContext`x]], $CellContext`matrix = {{0, 1, 0}, {1, 0, 
        0}, {0, 0, 1}}, $CellContext`m11 = 0, $CellContext`m12 = 
       1, $CellContext`m13 = 0, $CellContext`m21 = 1, $CellContext`m22 = 
       0, $CellContext`m23 = 0, $CellContext`m31 = 0, $CellContext`m32 = 
       0, $CellContext`m33 = 1, $CellContext`tripletes[
         Pattern[$CellContext`tr, 
          Blank[]], 
         Optional[
          Pattern[$CellContext`enc, 
           Blank[]], "ACGU"]] := Map[ReplaceAll[#, 
          $CellContext`decoding[$CellContext`enc]]& , $CellContext`tr], \
$CellContext`decoding[
         Pattern[$CellContext`enc, 
          Blank[]]] := MapThread[# -> #2& , {{0, 1, 2, 3}, 
          Characters[$CellContext`enc]}], $CellContext`Add[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          Blank[]]] := Flatten[
         Map[
          Function[$CellContext`b, 
           Map[
           Mod[# + $CellContext`b, 4]& , $CellContext`x]], $CellContext`y], 
         1], $CellContext`Productos[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`y, 
          Blank[]]] := Flatten[
         Map[
          Function[$CellContext`b, 
           Map[Mod[# $CellContext`b, 4]& , $CellContext`x]], $CellContext`y], 
         1], $CellContext`TripletCoordinates[
         Pattern[$CellContext`trd, 
          Blank[]], 
         Pattern[$CellContext`crd, 
          Blank[]], 
         Pattern[$CellContext`style, 
          Blank[]], 
         Pattern[$CellContext`col, 
          Blank[]], 
         Pattern[$CellContext`font, 
          Blank[]]] := MapThread[Text[
          
          Style[#, 8, FontFamily -> "Times New Roman", 
           FontWeight -> $CellContext`style, $CellContext`col, \
$CellContext`font], #2]& , {$CellContext`trd, $CellContext`crd}], \
$CellContext`VerticalPlaneCoordinatesY[
         Pattern[$CellContext`y, 
          Blank[]], 
         Pattern[$CellContext`c, 
          Blank[]]] := Table[
         Polygon[{{$CellContext`x, $CellContext`y, $CellContext`z}, \
{$CellContext`x, $CellContext`y, $CellContext`z + 1}, {$CellContext`x + 
            1, $CellContext`y, $CellContext`z + 1}, {$CellContext`x + 
            1, $CellContext`y, $CellContext`z}}], {$CellContext`x, 
          0, $CellContext`c}, {$CellContext`z, 
          0, $CellContext`c}], $CellContext`VerticalPlaneCoordinatesX[
         Pattern[$CellContext`x, 
          Blank[]], 
         Pattern[$CellContext`c, 
          Blank[]]] := Table[
         Polygon[{{$CellContext`x, $CellContext`y, $CellContext`z}, \
{$CellContext`x, $CellContext`y, $CellContext`z + 
            1}, {$CellContext`x, $CellContext`y + 1, $CellContext`z + 
            1}, {$CellContext`x, $CellContext`y + 
            1, $CellContext`z}}], {$CellContext`y, 
          0, $CellContext`c}, {$CellContext`z, 
          0, $CellContext`c}], $CellContext`HorizontalPlaneCoordinates[
         Pattern[$CellContext`z, 
          Blank[]], 
         Pattern[$CellContext`c, 
          Blank[]]] := Table[
         Polygon[{{$CellContext`x, $CellContext`y, $CellContext`z}, \
{$CellContext`x, $CellContext`y + 1, $CellContext`z}, {$CellContext`x + 
            1, $CellContext`y + 1, $CellContext`z}, {$CellContext`x + 
            1, $CellContext`y, $CellContext`z}}], {$CellContext`x, 
          0, $CellContext`c}, {$CellContext`y, 
          0, $CellContext`c}], $CellContext`matrixDet[
         Pattern[$CellContext`x, 
          Blank[]]] := 
       Module[{$CellContext`matrix, $CellContext`numDet, $CellContext`strDet}, 
         If[$CellContext`x, $CellContext`matrix = {{
              Part[
               Dynamic[$CellContext`m11], 1], 
              Part[
               Dynamic[$CellContext`m12], 1], 
              Part[
               Dynamic[$CellContext`m13], 1]}, {
              Part[
               Dynamic[$CellContext`m21], 1], 
              Part[
               Dynamic[$CellContext`m22], 1], 
              Part[
               Dynamic[$CellContext`m23], 1]}, {
              Part[
               Dynamic[$CellContext`m31], 1], 
              Part[
               Dynamic[$CellContext`m32], 1], 
              Part[
               Dynamic[$CellContext`m33], 1]}}; $CellContext`numDet = Mod[
             Det[$CellContext`matrix], 
             5]; $CellContext`strDet = $CellContext`numDet]]}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellLabel->"Out[44]=",ExpressionUUID->"b22cf122-8cd2-4a4a-adb6-37158502a53b"]
}, {2}]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["References", "Section",
 CellFrame->{{0.5, 3}, {3, 0.5}},
 CellMargins->{{45., 44.81818181818153}, {8., 18.}},
 TextJustification->1.,
 FontFamily->"Times New Roman",
 FontWeight->"Bold",
 Background->RGBColor[0.88, 1, 0.88],
 CellTags->
  "References",ExpressionUUID->"95bece2f-8dac-431e-9283-61e27cf9a947"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"1.", "\t", "Sanchez", " ", "R"}], ",", " ", 
  RowBox[{"Grau", " ", "R"}], ",", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Morgado", " ", "E", " ", 
     RowBox[{"(", "2006", ")"}], " ", 
     RowBox[{
      ButtonBox[
       RowBox[{
       "A", " ", "novel", " ", "Lie", " ", "algebra", " ", "of", " ", "the", 
        " ", "genetic", " ", "code", " ", "over", " ", "the", " ", "Galois", 
        " ", "field", " ", "of", " ", "four", " ", "DNA", " ", "bases"}],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL[
         "http://www.sciencedirect.com/science/article/pii/S0025556406000526"]\
, None},
       ButtonNote->
        "http://www.sciencedirect.com/science/article/pii/S0025556406000526"],
       ".", " ", "Math"}], " ", "Biosci", " ", "202"}], ":", " ", 
    RowBox[{"156", "-", 
     RowBox[{"174.", " ", "Available"}]}], ":", " ", "http", ":"}], "//", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"www", ".", "sciencedirect", ".", "com"}], "/", "science"}], 
       "/", "article"}], "/", "pii"}], "/", 
     RowBox[{"S0025556406000526", ".", " ", "Accessed"}]}], " ", "26", " ", 
    "March", " ", "2012."}]}]}], "\n", 
 RowBox[{
  RowBox[{"2.", "\t", "S\[AAcute]nchez", " ", "R"}], ",", " ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Grau", " ", "R", " ", 
      RowBox[{"(", "2009", ")"}], " ", 
      RowBox[{
       ButtonBox[
        RowBox[{
        "An", " ", "algebraic", " ", "hypothesis", " ", "about", " ", "the", 
         " ", "primeval", " ", "genetic", " ", "code", " ", "architecture"}],
        BaseStyle->"Hyperlink",
        ButtonData->{
          URL[
          "http://www.sciencedirect.com/science/article/pii/\
S002555640900114X"], None},
        ButtonNote->
         "http://www.sciencedirect.com/science/article/pii/S002555640900114X"]\
, ".", " ", "Math"}], " ", "Biosci", " ", "221"}], " ", ":", " ", 
     RowBox[{"60", " ", "-", " ", 
      RowBox[{"76.", " ", "Available"}]}], " ", ":", " ", "http", " ", ":"}], 
    " ", "//", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"www", ".", "ncbi", ".", "nlm", ".", "nih", ".", "gov"}], "/", 
      "entrez"}], "/", 
     RowBox[{"query", ".", 
      RowBox[{"fcgi", "?", "cmd"}]}]}]}], " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Retrieve", " ", "&"}], " ", "db"}], " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"PubMed", " ", "&"}], " ", "dopt"}], " ", "=", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Citation", " ", "&"}], " ", "list_uids"}], " ", "=", " ", 
      RowBox[{
      "19607845.", " ", "Accessed", " ", "1", " ", "April", " ", 
       "2012."}]}]}]}]}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"3.", "\t", "Sanchez", " ", "R", " ", 
      RowBox[{"(", "2014", ")"}], " ", "Evolutionary", " ", "Analysis", " ", 
      "of", " ", "DNA"}], "-", "Protein", "-", 
     RowBox[{
     "Coding", " ", "Regions", " ", "Based", " ", "on", " ", "a", " ", 
      "Genetic", " ", "Code", " ", "Cube", " ", 
      RowBox[{"Metric", ".", " ", 
       StyleBox["Curr",
        FontSlant->"Italic"], 
       StyleBox[".",
        FontSlant->"Italic"], 
       StyleBox[" ",
        FontSlant->"Italic"], 
       StyleBox["Top",
        FontSlant->"Italic"], 
       StyleBox[".",
        FontSlant->"Italic"], 
       StyleBox[" ",
        FontSlant->"Italic"], 
       StyleBox["Med",
        FontSlant->"Italic"], 
       StyleBox[".",
        FontSlant->"Italic"], 
       StyleBox[" ",
        FontSlant->"Italic"], 
       StyleBox["Chem",
        FontSlant->"Italic"], 
       StyleBox[".",
        FontSlant->"Italic"], " ", "14"}]}]}], ":", " ", 
    RowBox[{"407", "-", 
     RowBox[{"417.", " ", "Available"}]}], ":", " ", "http", ":"}], "//", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"www", ".", "ingentaconnect", ".", "com"}], "/", 
           "content"}], "/", "ben"}], "/", "ctmc"}], "/", "2014"}], "/", 
       "00000014"}], "/", "00000003"}], "/", 
     RowBox[{"art00017", ".", "\n", "4."}]}], "\t", "Jos\[EAcute]", " ", "M", 
    " ", "V"}]}], ",", " ", 
  RowBox[{"Morgado", " ", "ER"}], ",", " ", 
  RowBox[{"S\[AAcute]nchez", " ", "R"}], ",", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Govezensky", " ", "T", " ", 
     RowBox[{"(", "2012", ")"}], " ", 
     RowBox[{
      ButtonBox[
       RowBox[{
       "The", " ", "24", " ", "Possible", " ", "Algebraic", " ", 
        "Representations", " ", "of", " ", "the", " ", "Standard", " ", 
        "Genetic", " ", "Code", " ", "in", " ", "Six", " ", "or", " ", "in", 
        " ", "Three", " ", "Dimensions"}],
       BaseStyle->"Hyperlink",
       ButtonData->{
         URL[
         "http://www.m-hikari.com/asb/asb2012/asb1-4-2012/joseASB1-4-2012-1.\
pdf"], None},
       ButtonNote->
        "http://www.m-hikari.com/asb/asb2012/asb1-4-2012/joseASB1-4-2012-1.\
pdf"], ".", " ", "Adv"}], " ", "Stud", " ", "Biol", " ", "4"}], " ", ":", " ", 
    RowBox[{"119", " ", "-", " ", 
     RowBox[{"152.", " ", "Available"}]}], " ", ":", " ", "http", " ", ":"}], 
   " ", "//", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"www", ".", "oalib", ".", "com"}], "/", "paper"}], "/", 
     "2332054"}], " ", 
    RowBox[{"#", ".", "VJ3fFV4A0", "."}]}]}]}]}], "ItemParagraph",
 CellMargins->{{79., 43.90909090909099}, {4., 4.}},
 TextJustification->1.,
 FontFamily->"Times New Roman",
 CellTags->{
  "[1]", "[2]", "[3]", 
   "[4]"},ExpressionUUID->"a24289e6-e637-4fdc-8a50-5657bcb442df"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"5.", "                ", 
   ButtonBox[
    RowBox[{"Sanchez", ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"R", ".", " ", 
        RowBox[{"(", "2018", ")"}], ".", " ", "Symmetric"}], " ", "Group", 
       " ", "of", " ", "the", " ", "Genetic"}], "-", 
      RowBox[{"Code", " ", 
       RowBox[{"Cubes", ".", " ", "Effect"}], " ", "of", " ", "the", " ", 
       "Genetic"}], "-", 
      RowBox[{
      "Code", " ", "Architecture", " ", "on", " ", "the", " ", "Evolutionary",
        " ", 
       RowBox[{"Process", ".", " "}]}]}]}],
    BaseStyle->"Hyperlink",
    ButtonData->{
      URL[
      "http://match.pmf.kg.ac.rs/electronic_versions/Match79/n3/match79n3_527-\
560.pdf"], None},
    ButtonNote->
     "http://match.pmf.kg.ac.rs/electronic_versions/Match79/n3/match79n3_527-\
560.pdf"], 
   StyleBox[
    ButtonBox[
     RowBox[{"MATCH", " ", 
      RowBox[{
      "Commun", ".", " ", "Math", ".", " ", "Comput", ".", " ", "Chem", 
       "."}]}],
     BaseStyle->"Hyperlink",
     ButtonData->{
       URL[
       "http://match.pmf.kg.ac.rs/electronic_versions/Match79/n3/match79n3_\
527-560.pdf"], None},
     ButtonNote->
      "http://match.pmf.kg.ac.rs/electronic_versions/Match79/n3/match79n3_527-\
560.pdf"],
    FontSlant->"Italic"], 
   ButtonBox[
    RowBox[{",", " ", 
     RowBox[{"vol", " ", "79"}], ",", " ", 
     RowBox[{"no", ".", " ", "3"}], ",", " ", 
     RowBox[{
      RowBox[{"pp", ".", " ", "527"}], "-", "560.", " "}]}],
    BaseStyle->"Hyperlink",
    ButtonData->{
      URL[
      "http://match.pmf.kg.ac.rs/electronic_versions/Match79/n3/match79n3_527-\
560.pdf"], None},
    ButtonNote->
     "http://match.pmf.kg.ac.rs/electronic_versions/Match79/n3/match79n3_527-\
560.pdf"]}]}]], "ItemParagraph",
 CellMargins->{{79., 43.90909090909099}, {4., 4.}},
 TextJustification->1.,
 FontFamily->"Times New Roman",
 CellTags->{
  "[1]", "[2]", "[3]", 
   "[4]"},ExpressionUUID->"36122a96-f67b-44b1-a304-fc50cb91ee38"]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->{"RulerBar", "EditBar"},
WindowSize->{1911.75, 768.75},
WindowMargins->{{1152, Automatic}, {Automatic, 0}},
Visible->True,
ScrollingOptions->{"VerticalScrollRange"->Fit},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{611.9999999999999, 792.}},
ShowCellBracket->Automatic,
TaggingRules->Association["TryRealOnly" -> False],
CellContext->Notebook,
TrackCellChangeTimes->False,
Magnification:>0.75 Inherited,
FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (June 19, 2021)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData["Text"], FontFamily -> "Times New Roman", FontSize -> 18, 
    FontWeight -> "Plain", FontSlant -> "Plain", 
    FontVariations -> {"StrikeThrough" -> False, "Underline" -> False}], 
   Cell[
    StyleData["Subsubsection"]], 
   Cell[
    StyleData["Subsection"], FontFamily -> "Times New Roman", FontSize -> 20, 
    FontWeight -> "Bold", FontSlant -> "Plain", 
    FontVariations -> {"StrikeThrough" -> False, "Underline" -> False}], 
   Cell[
    StyleData["Section"], FontFamily -> "Times New Roman", FontSize -> 28, 
    FontWeight -> "Bold", FontSlant -> "Plain", 
    FontVariations -> {"StrikeThrough" -> False, "Underline" -> False}]}, 
  Visible -> False, FrontEndVersion -> 
  "12.3 for Microsoft Windows (64-bit) (June 19, 2021)", StyleDefinitions -> 
  "Default.nb"],
ExpressionUUID->"4b8de3db-6ab0-4a6f-a85a-5ea59e13f52e"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "1. Introduction"->{
  Cell[88971, 2022, 374, 11, 44, "Section",ExpressionUUID->"24025ffb-98c6-4aa6-8e80-2a0fe2f3fe25",
   CellTags->"1. Introduction"]},
 "References"->{
  Cell[189234, 4244, 314, 8, 52, "Section",ExpressionUUID->"95bece2f-8dac-431e-9283-61e27cf9a947",
   CellTags->"References"]},
 "[1]"->{
  Cell[189551, 4254, 5618, 157, 73, "ItemParagraph",ExpressionUUID->"a24289e6-e637-4fdc-8a50-5657bcb442df",
   CellTags->{"[1]", "[2]", "[3]", "[4]"}],
  Cell[195172, 4413, 2000, 59, 22, "ItemParagraph",ExpressionUUID->"36122a96-f67b-44b1-a304-fc50cb91ee38",
   CellTags->{"[1]", "[2]", "[3]", "[4]"}]},
 "[2]"->{
  Cell[189551, 4254, 5618, 157, 73, "ItemParagraph",ExpressionUUID->"a24289e6-e637-4fdc-8a50-5657bcb442df",
   CellTags->{"[1]", "[2]", "[3]", "[4]"}],
  Cell[195172, 4413, 2000, 59, 22, "ItemParagraph",ExpressionUUID->"36122a96-f67b-44b1-a304-fc50cb91ee38",
   CellTags->{"[1]", "[2]", "[3]", "[4]"}]},
 "[3]"->{
  Cell[189551, 4254, 5618, 157, 73, "ItemParagraph",ExpressionUUID->"a24289e6-e637-4fdc-8a50-5657bcb442df",
   CellTags->{"[1]", "[2]", "[3]", "[4]"}],
  Cell[195172, 4413, 2000, 59, 22, "ItemParagraph",ExpressionUUID->"36122a96-f67b-44b1-a304-fc50cb91ee38",
   CellTags->{"[1]", "[2]", "[3]", "[4]"}]},
 "[4]"->{
  Cell[189551, 4254, 5618, 157, 73, "ItemParagraph",ExpressionUUID->"a24289e6-e637-4fdc-8a50-5657bcb442df",
   CellTags->{"[1]", "[2]", "[3]", "[4]"}],
  Cell[195172, 4413, 2000, 59, 22, "ItemParagraph",ExpressionUUID->"36122a96-f67b-44b1-a304-fc50cb91ee38",
   CellTags->{"[1]", "[2]", "[3]", "[4]"}]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"1. Introduction", 198856, 4519},
 {"References", 199006, 4522},
 {"[1]", 199144, 4525},
 {"[2]", 199458, 4530},
 {"[3]", 199772, 4535},
 {"[4]", 200086, 4540}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[1510, 35, 219, 5, 71, "Title",ExpressionUUID->"0364c9af-ea71-4906-b12c-f26580b338b3"],
Cell[1732, 42, 323, 9, 63, "Text",ExpressionUUID->"997a0dde-c1c6-4d41-ae6c-fdb1c0e51286"],
Cell[2058, 53, 694, 17, 88, "Text",ExpressionUUID->"732063f0-145b-4ae7-be79-3defac85e349"],
Cell[CellGroupData[{
Cell[2777, 74, 124, 2, 47, "Section",ExpressionUUID->"2dd4bc70-4631-4463-983b-a7d3419cb9fd",
 InitializationGroup->True],
Cell[2904, 78, 86030, 1939, 4643, "Input",ExpressionUUID->"da952652-1a41-43a0-a930-e07d6b672751",
 InitializationCell->True,
 InitializationGroup->True,
 CellID->3133700]
}, Closed]],
Cell[CellGroupData[{
Cell[88971, 2022, 374, 11, 44, "Section",ExpressionUUID->"24025ffb-98c6-4aa6-8e80-2a0fe2f3fe25",
 CellTags->"1. Introduction"],
Cell[89348, 2035, 139, 2, 18, "DetailNotes",ExpressionUUID->"90a337b9-973c-4729-9dce-726e83df9643",
 CellID->206146329],
Cell[89490, 2039, 5482, 128, 46, "DetailNotes",ExpressionUUID->"6643a18a-fb0d-40a2-8ed3-b75a0401d2df",
 CellID->48805093],
Cell[94975, 2169, 15127, 506, 238, "DetailNotes",ExpressionUUID->"4d7d03a2-5237-4a45-a1be-a34be0a21523",
 CellID->86312099],
Cell[110105, 2677, 2947, 43, 32, "DetailNotes",ExpressionUUID->"8e1384fd-fba1-446b-baa5-f52f44e027dc",
 CellID->1326169],
Cell[CellGroupData[{
Cell[113077, 2724, 3448, 50, 27, "Subsection",ExpressionUUID->"1239d304-454a-4df3-8661-b05d4a30f808",
 CellID->22784900],
Cell[116528, 2776, 2835, 45, 128, "DetailNotes",ExpressionUUID->"ce134c02-d1d0-47c4-9b8c-331a98104508",
 CellID->135890423],
Cell[CellGroupData[{
Cell[119388, 2825, 21062, 475, 721, "Input",ExpressionUUID->"c6abba33-b6a1-45f0-b337-0cf516f56ba0"],
Cell[140453, 3302, 48723, 935, 441, "Output",ExpressionUUID->"b22cf122-8cd2-4a4a-adb6-37158502a53b"]
}, {2}]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[189234, 4244, 314, 8, 52, "Section",ExpressionUUID->"95bece2f-8dac-431e-9283-61e27cf9a947",
 CellTags->"References"],
Cell[189551, 4254, 5618, 157, 73, "ItemParagraph",ExpressionUUID->"a24289e6-e637-4fdc-8a50-5657bcb442df",
 CellTags->{"[1]", "[2]", "[3]", "[4]"}],
Cell[195172, 4413, 2000, 59, 22, "ItemParagraph",ExpressionUUID->"36122a96-f67b-44b1-a304-fc50cb91ee38",
 CellTags->{"[1]", "[2]", "[3]", "[4]"}]
}, Open  ]]
}, Open  ]]
}
]
*)