Kaleidocycle.nb

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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    334360,       7313]
NotebookOptionsPosition[    313269,       7023]
NotebookOutlinePosition[    313682,       7040]
CellTagsIndexPosition[    313639,       7037]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "setup", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Setup", "[", 
      RowBox[{
       RowBox[{"N_", ":", "7"}], ",", 
       RowBox[{"ori_", ":", "False"}], ",", 
       RowBox[{"sl_", ":", "0"}], ",", " ", 
       RowBox[{"freeangle_", ":", "False"}]}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Clear", "[", "h", "]"}], ";", 
        RowBox[{"oriented", "=", "ori"}], ";", 
        RowBox[{"slide", " ", "=", " ", "sl"}], ";", 
        RowBox[{"n", "=", "N"}], ";", 
        RowBox[{"FreeAngle", "=", "freeangle"}], ";", "\[IndentingNewLine]", 
        RowBox[{"H", "=", 
         RowBox[{"Array", "[", 
          RowBox[{"h", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"n", "+", "1"}], ",", "3"}], "}"}]}], "]"}]}], ";", " ", 
        
        RowBox[{"(*", " ", 
         RowBox[{"hinge", " ", "vectors"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"vars", "=", 
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"i", ",", "1"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "3", ",", "n"}], "}"}]}], "]"}], ",", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"i", ",", "2"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "2", ",", "n"}], "}"}]}], "]"}], ",", " ", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"i", ",", "3"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "2", ",", 
               RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "initial", " ", "and", " ", "final", " ", "hinges", " ", "are", " ", 
          "fixed", " ", "to", " ", "kill", " ", "the", " ", "global", " ", 
          "symmetry"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"1", ",", "1"}], "]"}], "=", "0"}], ";", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"1", ",", "2"}], "]"}], "=", "0"}], ";", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"1", ",", "3"}], "]"}], "=", "1"}], ";", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"2", ",", "1"}], "]"}], "=", "0"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{"oriented", ",", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"h", "[", 
             RowBox[{
              RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "=", "0"}], ";", 
           RowBox[{
            RowBox[{"h", "[", 
             RowBox[{
              RowBox[{"n", "+", "1"}], ",", "2"}], "]"}], "=", "0"}], ";", 
           " ", 
           RowBox[{
            RowBox[{"h", "[", 
             RowBox[{
              RowBox[{"n", "+", "1"}], ",", "3"}], "]"}], "=", "1"}], ";"}], 
          ",", " ", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"h", "[", 
             RowBox[{
              RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "=", "0"}], ";", 
           RowBox[{
            RowBox[{"h", "[", 
             RowBox[{
              RowBox[{"n", "+", "1"}], ",", "2"}], "]"}], "=", "0"}], ";", 
           " ", 
           RowBox[{
            RowBox[{"h", "[", 
             RowBox[{
              RowBox[{"n", "+", "1"}], ",", "3"}], "]"}], "=", 
            RowBox[{"-", "1"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{"FreeAngle", ",", "\[IndentingNewLine]", 
          RowBox[{"vars", "=", 
           RowBox[{"Join", "[", 
            RowBox[{"vars", ",", 
             RowBox[{"{", 
              RowBox[{"h", "[", 
               RowBox[{"n", ",", "3"}], "]"}], "}"}]}], "]"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"(*", " ", 
           RowBox[{
           "constraint", " ", "for", " ", "constant", " ", "torsion"}], " ", 
           "*)"}], 
          RowBox[{
           RowBox[{"InProd", "=", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"H", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ".", 
                RowBox[{"H", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", "+", "1"}], "]"}], "]"}]}], "\[Equal]", 
               RowBox[{"h", "[", 
                RowBox[{"2", ",", "3"}], "]"}]}], ",", " ", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", " ", 
           "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{"oriented", ",", "  ", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"n", ",", "3"}], "]"}], "=", 
              RowBox[{"h", "[", 
               RowBox[{"2", ",", "3"}], "]"}]}], ",", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"n", ",", "3"}], "]"}], "=", 
              RowBox[{"-", 
               RowBox[{"h", "[", 
                RowBox[{"2", ",", "3"}], "]"}]}]}]}], " ", "]"}]}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"constraint", " ", "for", " ", "unit", " ", "norm"}], " ", 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"Nrm", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"H", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ".", 
             RowBox[{"H", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], "==", "1"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"constraint", " ", "for", " ", "closedness"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{"FreeAngle", ",", "\[IndentingNewLine]", 
          RowBox[{"MA", "=", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Cross", "[", 
               RowBox[{
                RowBox[{"H", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{"H", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", "+", "1"}], "]"}], "]"}]}], "]"}], "/", 
              RowBox[{"Norm", "[", 
               RowBox[{"Cross", "[", 
                RowBox[{
                 RowBox[{"H", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], ",", 
                 RowBox[{"H", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", "+", "1"}], "]"}], "]"}]}], "]"}], "]"}]}], 
             " ", ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"MA", "=", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"Cross", "[", 
              RowBox[{
               RowBox[{"H", "[", 
                RowBox[{"[", "i", "]"}], "]"}], ",", 
               RowBox[{"H", "[", 
                RowBox[{"[", 
                 RowBox[{"i", "+", "1"}], "]"}], "]"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"M", ":=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"MA", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "+", " ", 
            RowBox[{"slide", "*", 
             RowBox[{"H", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"ExtP", "=", 
         RowBox[{"Total", "[", "M", "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"combined", " ", "all", " ", "constraints"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{"FreeAngle", ",", "\[IndentingNewLine]", 
          RowBox[{"cons", " ", "=", " ", 
           RowBox[{"Join", "[", 
            RowBox[{"Nrm", ",", " ", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"ExtP", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "==", "0"}], ",", " ", 
               RowBox[{
                RowBox[{"ExtP", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], "==", "0"}], ",", " ", 
               RowBox[{
                RowBox[{"ExtP", "[", 
                 RowBox[{"[", "3", "]"}], "]"}], "==", "0"}]}], "}"}]}], 
            "]"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"cons", " ", "=", " ", 
            RowBox[{"Join", "[", 
             RowBox[{"InProd", ",", " ", "Nrm", ",", " ", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{"ExtP", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "==", "0"}], ",", " ", 
                RowBox[{
                 RowBox[{"ExtP", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], "==", "0"}], ",", " ", 
                RowBox[{
                 RowBox[{"ExtP", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], "==", "0"}]}], "}"}]}], 
             "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"definition", " ", "for", " ", "various", " ", "energies"}], 
         " ", "*)"}], " ", "\[IndentingNewLine]", "        ", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{"TODO", ":", " ", 
           RowBox[{"when", " ", "FreeAngle"}]}], ",", " ", 
          RowBox[{
          "we", " ", "do", " ", "not", " ", "have", " ", "to", " ", "divide", 
           " ", "by", " ", "Norm"}]}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"energyE2", "=", 
         RowBox[{"Total", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"ArcCos", "[", " ", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"M", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], ".", 
                  RowBox[{"M", "[", 
                   RowBox[{"[", 
                    RowBox[{"Mod", "[", 
                    RowBox[{
                    RowBox[{"i", "+", "1"}], ",", "n", ",", "1"}], "]"}], 
                    "]"}], "]"}]}], ")"}], "/", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"Norm", "[", 
                   RowBox[{"M", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}], "*", 
                  RowBox[{"Norm", "[", 
                   RowBox[{"M", "[", 
                    RowBox[{"[", 
                    RowBox[{"Mod", "[", 
                    RowBox[{
                    RowBox[{"i", "+", "1"}], ",", "n", ",", "1"}], "]"}], 
                    "]"}], "]"}], "]"}]}], ")"}]}], "]"}], "]"}], "^", "2"}], 
            ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Bobenko", "-", 
          RowBox[{
           RowBox[{"Suris", "'"}], "s", " ", "bending", " ", "energy"}]}], 
         " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"energyE", "=", 
         RowBox[{"Total", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Log", "[", "2", "]"}], "-", 
             RowBox[{"Log", "[", 
              RowBox[{"1", "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"M", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], ".", 
                  RowBox[{"M", "[", 
                   RowBox[{"[", 
                    RowBox[{"Mod", "[", 
                    RowBox[{
                    RowBox[{"i", "+", "1"}], ",", "n", ",", "1"}], "]"}], 
                    "]"}], "]"}]}], ")"}], "/", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"Norm", "[", 
                   RowBox[{"M", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}], "*", 
                  RowBox[{"Norm", "[", 
                   RowBox[{"M", "[", 
                    RowBox[{"[", 
                    RowBox[{"Mod", "[", 
                    RowBox[{
                    RowBox[{"i", "+", "1"}], ",", "n", ",", "1"}], "]"}], 
                    "]"}], "]"}], "]"}]}], ")"}]}]}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"spring", " ", "energy"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"energyS", "=", 
         RowBox[{"Total", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Log", "[", "2", "]"}], "-", 
             RowBox[{"Log", "[", 
              RowBox[{"1", "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"MA", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], ".", 
                  RowBox[{"MA", "[", 
                   RowBox[{"[", 
                    RowBox[{"Mod", "[", 
                    RowBox[{
                    RowBox[{"i", "+", "1"}], ",", "n", ",", "1"}], "]"}], 
                    "]"}], "]"}]}], ")"}], "/", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"Norm", "[", 
                   RowBox[{"MA", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}], "*", 
                  RowBox[{"Norm", "[", 
                   RowBox[{"MA", "[", 
                    RowBox[{"[", 
                    RowBox[{"Mod", "[", 
                    RowBox[{
                    RowBox[{"i", "+", "1"}], ",", "n", ",", "1"}], "]"}], 
                    "]"}], "]"}], "]"}]}], ")"}]}]}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}], ";", 
        
        RowBox[{"energyB", " ", "=", " ", 
         RowBox[{"Total", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Cross", "[", 
             RowBox[{
              RowBox[{"M", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ",", 
              RowBox[{
               RowBox[{"M", "[", 
                RowBox[{"[", 
                 RowBox[{"Mod", "[", 
                  RowBox[{
                   RowBox[{"i", "+", "1"}], ",", "n", ",", "1"}], "]"}], 
                 "]"}], "]"}], "/", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Norm", "[", 
                   RowBox[{"M", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}], "*", 
                  RowBox[{"Norm", "[", 
                   RowBox[{"M", "[", 
                    RowBox[{"[", 
                    RowBox[{"Mod", "[", 
                    RowBox[{
                    RowBox[{"i", "+", "1"}], ",", "n", ",", "1"}], "]"}], 
                    "]"}], "]"}], "]"}]}], "+", 
                 RowBox[{
                  RowBox[{"M", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], ".", 
                  RowBox[{"M", "[", 
                   RowBox[{"[", 
                    RowBox[{"Mod", "[", 
                    RowBox[{
                    RowBox[{"i", "+", "1"}], ",", "n", ",", "1"}], "]"}], 
                    "]"}], "]"}]}]}], ")"}]}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
          RowBox[{"torsion", "/", "twist"}], " ", "energy"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"energyT2", " ", "=", " ", 
         RowBox[{"Total", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Abs", "[", 
              RowBox[{"ArcCos", "[", 
               RowBox[{
                RowBox[{"H", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ".", 
                RowBox[{"H", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", "+", "1"}], "]"}], "]"}]}], "]"}], "]"}], "^", 
             "2"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"energyT", " ", "=", " ", 
         RowBox[{"Total", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Log", "[", "2", "]"}], "-", 
             RowBox[{"Log", "[", 
              RowBox[{"1", "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"H", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], ".", 
                  RowBox[{"H", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ")"}], "/", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"Norm", "[", 
                   RowBox[{"H", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}], "*", 
                  RowBox[{"Norm", "[", 
                   RowBox[{"H", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", "+", "1"}], "]"}], "]"}], "]"}]}], ")"}]}]}],
               "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"HA", "=", 
         RowBox[{"Total", "[", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"H", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}], ";", 
        "\n", "       ", 
        RowBox[{"Print", "[", 
         RowBox[{
         "\"\<Setup \>\"", ",", "n", ",", 
          "\"\< tetrahedra system with slide=\>\"", ",", "slide", ",", 
          "\"\< oriented=\>\"", ",", "oriented", ",", " ", 
          "\"\< free (non-constant) twist angle=\>\"", ",", " ", 
          "FreeAngle"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "random", " ", "hinge", " ", "configuration", " ", "used", " ", "as", " ",
      "initial", " ", "points"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"RndH", ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"r", ",", "ip"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ip", "=", 
         RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", "=", "3"}], ",", 
          RowBox[{"i", "<=", "n"}], ",", 
          RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"r", "=", 
            RowBox[{"Normalize", "@", 
             RowBox[{"RandomVariate", "[", 
              RowBox[{
               RowBox[{"NormalDistribution", "[", "]"}], ",", "3"}], 
              "]"}]}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"ip", " ", "=", " ", 
            RowBox[{"Join", "[", 
             RowBox[{"ip", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"h", "[", 
                   RowBox[{"i", ",", "1"}], "]"}], ",", 
                  RowBox[{"r", "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"h", "[", 
                   RowBox[{"i", ",", "2"}], "]"}], ",", 
                  RowBox[{"r", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"h", "[", 
                   RowBox[{"i", ",", "3"}], "]"}], ",", 
                  RowBox[{"r", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "}"}]}], 
             "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"Not", "[", "FreeAngle", "]"}], ",", 
          RowBox[{"ip", "=", 
           RowBox[{"Join", "[", 
            RowBox[{"Drop", "[", 
             RowBox[{"ip", ",", 
              RowBox[{"-", "1"}]}], "]"}], "]"}]}]}], "]"}], ";", 
        RowBox[{"ip", "=", 
         RowBox[{"Join", "[", 
          RowBox[{"ip", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"h", "[", 
                RowBox[{"2", ",", "2"}], "]"}], ",", 
               RowBox[{"Sqrt", "[", 
                RowBox[{"1", "-", 
                 RowBox[{
                  RowBox[{"r", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}], "]"}]}], 
              "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"h", "[", 
                RowBox[{"2", ",", "3"}], "]"}], ",", 
               RowBox[{"r", "[", 
                RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "}"}]}], "]"}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", "ip", "]"}], ";"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "find", " ", "Kaleidocycle", " ", "that", " ", "minimises", " ", "a", " ",
      "functional", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
       "with", " ", "a", " ", "specified", " ", "cos", " ", "if", " ", "a"}], 
       "\[GreaterEqual]", 
       RowBox[{
        RowBox[{"-", "1"}], " ", "is", " ", "given"}]}], ")"}]}], " ", "*)"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Options", "[", "MKn", "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\"\<boxConstraint\>\"", "\[Rule]", "False"}], ",", 
       RowBox[{"\"\<initialPoint\>\"", "\[Rule]", "0"}], ",", 
       RowBox[{"\"\<torsion\>\"", "\[Rule]", 
        RowBox[{"-", "2"}]}], ",", 
       RowBox[{"\"\<maxiter\>\"", "\[Rule]", "500"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"MKn", "[", 
      RowBox[{
       RowBox[{"target_", ":", 
        RowBox[{"h", "[", 
         RowBox[{"2", ",", "3"}], "]"}]}], ",", 
       RowBox[{"localop_", ":", "False"}], ",", " ", 
       RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"sols", ",", "box", ",", "ip"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"box", " ", "=", " ", "cons"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"OptionValue", "[", "\"\<boxConstraint\>\"", "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"box", "=", 
           RowBox[{"Join", "[", 
            RowBox[{"box", ",", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "1"}], "<", 
                RowBox[{
                 RowBox[{
                  RowBox[{"M", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], ".", 
                  RowBox[{"M", "[", 
                   RowBox[{"[", 
                    RowBox[{"Mod", "[", 
                    RowBox[{
                    RowBox[{"i", "+", "1"}], ",", "n", ",", "1"}], "]"}], 
                    "]"}], "]"}]}], "/", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"Norm", "[", 
                    RowBox[{"M", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}], "*", 
                   RowBox[{"Norm", "[", 
                    RowBox[{"M", "[", 
                    RowBox[{"[", 
                    RowBox[{"Mod", "[", 
                    RowBox[{
                    RowBox[{"i", "+", "1"}], ",", "n", ",", "1"}], "]"}], 
                    "]"}], "]"}], "]"}]}], ")"}]}], "<", "1"}], ",", " ", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], 
            "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"OptionValue", "[", "\"\<torsion\>\"", "]"}], 
           "\[GreaterEqual]", 
           RowBox[{"-", "1"}]}], ",", " ", 
          RowBox[{"box", "=", 
           RowBox[{"Join", "[", 
            RowBox[{"box", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"h", "[", 
                RowBox[{"2", ",", "3"}], "]"}], "\[Equal]", 
               RowBox[{"OptionValue", "[", "\"\<torsion\>\"", "]"}]}], 
              "}"}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"ip", "=", "RndH"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Head", "[", 
            RowBox[{"OptionValue", "[", "\"\<initialPoint\>\"", "]"}], "]"}], 
           "\[Equal]", "List"}], ",", 
          RowBox[{"ip", "=", 
           RowBox[{"OptionValue", "[", "\"\<initialPoint\>\"", "]"}]}]}], 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{"localop", ",", "\[IndentingNewLine]", 
          RowBox[{"(*", " ", 
           RowBox[{"for", " ", "local", " ", "minimum"}], " ", "*)"}], 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Print", "[", "\"\<Finding local minima...\>\"", "]"}], 
           ";", "\[IndentingNewLine]", 
           RowBox[{"sols", " ", "=", " ", 
            RowBox[{"FindMinimum", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"target", ",", "cons"}], "}"}], ",", "ip", ",", 
              RowBox[{"MaxIterations", "\[Rule]", 
               RowBox[{"OptionValue", "[", "\"\<maxiter\>\"", "]"}]}]}], 
             "]"}]}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"(*", " ", 
           RowBox[{
            RowBox[{"for", " ", "global", " ", "minimum"}], ",", " ", 
            RowBox[{"use", " ", "the", " ", "below", " ", 
             RowBox[{"(", "slow", ")"}]}]}], " ", "*)"}], 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Print", "[", "\"\<Finding global minima...\>\"", "]"}], 
           ";", "\[IndentingNewLine]", 
           RowBox[{"sols", " ", "=", " ", 
            RowBox[{"NMinimize", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"target", ",", "cons"}], "}"}], ",", "vars", ",", " ", 
              
              RowBox[{"Method", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"\"\<RandomSearch\>\"", ",", 
                 RowBox[{
                 "\"\<PostProcess\>\"", " ", "->", 
                  "\"\<InteriorPoint\>\""}]}], "}"}]}], ",", " ", 
              RowBox[{"WorkingPrecision", "\[Rule]", "14"}], ",", " ", 
              RowBox[{"MaxIterations", "\[Rule]", 
               RowBox[{"OptionValue", "[", "\"\<maxiter\>\"", "]"}]}]}], 
             "]"}]}]}]}], "\[IndentingNewLine]", "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Head", "[", "sols", "]"}], "\[Equal]", "List"}], ",", 
          RowBox[{"PrintSol", "[", "sols", "]"}], ",", 
          RowBox[{"Print", "[", "\"\<no solution\>\"", "]"}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "[", "sols", "]"}], ";"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "recover", " ", "hinge", " ", "direction", " ", "from", " ", "the", " ", 
     "centre", " ", "line"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"M2B", "[", "M_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "B", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"B", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Cross", "[", " ", 
            RowBox[{
             RowBox[{"M", "[", 
              RowBox[{"[", 
               RowBox[{"Mod", "[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "n", ",", "1"}], "]"}], "]"}], 
              "]"}], ",", 
             RowBox[{"M", "[", 
              RowBox[{"[", 
               RowBox[{"Mod", "[", 
                RowBox[{"i", ",", "n", ",", "1"}], "]"}], "]"}], "]"}]}], " ",
             "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"B", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"B", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "/", 
            RowBox[{"Norm", "[", 
             RowBox[{"B", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"B", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "=", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", "=", "2"}], ",", 
          RowBox[{"i", "\[LessEqual]", 
           RowBox[{"n", "+", "1"}]}], ",", 
          RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"B", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"Sign", "[", 
             RowBox[{
              RowBox[{"Cross", "[", 
               RowBox[{
                RowBox[{"B", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", 
                RowBox[{"B", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ".", 
              RowBox[{"M", "[", 
               RowBox[{"[", 
                RowBox[{"Mod", "[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", "n", ",", "1"}], "]"}], "]"}],
                "]"}]}], "]"}], "*", 
            RowBox[{"B", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}]}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "[", "B", "]"}], ";"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Total", " ", "Twist"}], ";", " ", 
     RowBox[{"does", " ", "not", " ", "consider", " ", "slide"}]}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Tw", "[", "B_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"FreeAngle", " ", "||", " ", 
          RowBox[{"slide", "\[NotEqual]", "0"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"Return", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "/", "Pi"}], ")"}], "*", 
           RowBox[{"Total", "[", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"ArcCos", "[", 
               RowBox[{
                RowBox[{"B", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ".", 
                RowBox[{"B", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", "+", "1"}], "]"}], "]"}]}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}], 
          "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Return", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"n", "/", "Pi"}], ")"}], "*", 
           RowBox[{"ArcCos", "[", 
            RowBox[{"B", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "3"}], "]"}], "]"}], "]"}]}], "]"}]}], 
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Total", " ", "torsion", " ", "of", " ", "a", " ", "curve"}], " ",
     "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"TwM", "[", "M_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Return", "[", 
         RowBox[{"Tw", "[", 
          RowBox[{"M2B", "[", "M", "]"}], "]"}], "]"}], ";"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"dipole", " ", "energy"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Dipole", "[", 
      RowBox[{"C_", ",", "P_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"e", ",", "m", ",", "i", ",", "j", ",", "norm2"}], "}"}], ",",
        "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"e", "=", "0"}], ";", "\n", "\t", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", "=", "1"}], ",", " ", 
          RowBox[{"i", "<", " ", 
           RowBox[{"Length", "[", "P", "]"}]}], ",", " ", 
          RowBox[{"i", "++"}], ",", "\n", "\t   ", 
          RowBox[{
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"j", "=", 
              RowBox[{"i", "+", "1"}]}], ",", " ", 
             RowBox[{"j", "<", 
              RowBox[{"Length", "[", "P", "]"}]}], " ", ",", 
             RowBox[{"j", "++"}], ",", "\n", "\t\t", 
             RowBox[{
              RowBox[{"m", "=", 
               RowBox[{
                RowBox[{"C", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "-", 
                RowBox[{"C", "[", 
                 RowBox[{"[", "j", "]"}], "]"}]}]}], ";", 
              RowBox[{"norm2", "=", 
               RowBox[{"m", ".", "m"}]}], ";", "\n", "\t\t", 
              RowBox[{"e", "=", 
               RowBox[{"e", "+", 
                RowBox[{
                 RowBox[{
                  RowBox[{"P", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], ".", 
                  RowBox[{"P", "[", 
                   RowBox[{"[", "j", "]"}], "]"}]}], "/", 
                 RowBox[{"norm2", "^", 
                  RowBox[{"(", 
                   RowBox[{"3", "/", "2"}], ")"}]}]}], "-", 
                RowBox[{"3", "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"P", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ".", "m"}], ")"}], "*", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"P", "[", 
                    RowBox[{"[", "j", "]"}], "]"}], ".", "m"}], ")"}], "/", 
                  RowBox[{"norm2", "^", 
                   RowBox[{"(", 
                    RowBox[{"5", "/", "2"}], ")"}]}]}]}]}]}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
         "]"}], ";", "\n", "\t", 
        RowBox[{"Return", "[", "e", "]"}], ";"}]}], "\n", "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Print", " ", "solution"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PrintSol", "[", "sol_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Print", "[", 
         RowBox[{"\"\<Cos(twist):\>\"", ",", 
          RowBox[{
           RowBox[{"h", "[", 
            RowBox[{"2", ",", "3"}], "]"}], "/.", 
           RowBox[{"sol", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<total local twist:\>\"", ",", 
          RowBox[{"Tw", "[", 
           RowBox[{"H", "/.", 
            RowBox[{"sol", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<Writhe:\>\"", ",", 
          RowBox[{"Writhe", "[", 
           RowBox[{"M", "/.", 
            RowBox[{"sol", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<Total half twist:\>\"", ",", 
          RowBox[{
           RowBox[{"Writhe", "[", 
            RowBox[{"M", "/.", 
             RowBox[{"sol", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "+", 
           RowBox[{"TwM", "[", 
            RowBox[{"M", "/.", 
             RowBox[{"sol", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}], "]"}], ";", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<Hinge vectors:\>\"", ",", 
          RowBox[{
           RowBox[{"Transpose", "[", 
            RowBox[{"H", " ", "/.", " ", 
             RowBox[{"sol", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}], " ", "//", " ", 
           "MatrixForm"}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<Elastic Energy:\>\"", ",", " ", 
          RowBox[{"energyE", " ", "/.", " ", 
           RowBox[{"sol", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<Torsion Energy:\>\"", ",", " ", 
          RowBox[{"energyT", " ", "/.", " ", 
           RowBox[{"sol", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}], ";", " ", 
        "\[IndentingNewLine]", 
        RowBox[{"Print", "[", 
         RowBox[{"\"\<Target func:\>\"", ",", " ", 
          RowBox[{"sol", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"display", " ", "kaleidocycle"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Disp", "[", 
      RowBox[{"sol_", ",", " ", 
       RowBox[{"width_", ":", "0.5"}], ",", " ", 
       RowBox[{"matform_", ":", "True"}]}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"P", ",", "centre", ",", "pnt", ",", "tri"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Head", "[", "sol", "]"}], "!=", "List"}], ",", 
          RowBox[{"Return", "[", "0", "]"}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"P", "=", 
         RowBox[{"H", " ", "/.", " ", 
          RowBox[{"sol", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"centre", "=", 
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], "}"}], ",", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"Sum", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"M", " ", "/.", " ", 
                  RowBox[{"sol", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "[", 
                RowBox[{"[", "i", "]"}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "m"}], "}"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"m", ",", "n"}], "}"}]}], "]"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"pnt", "=", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"centre", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "+", 
                RowBox[{"width", "*", 
                 RowBox[{"P", "[", 
                  RowBox[{"[", "i", "]"}], "]"}]}]}], ",", 
               RowBox[{
                RowBox[{"centre", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "-", 
                RowBox[{"width", "*", 
                 RowBox[{"P", "[", 
                  RowBox[{"[", "i", "]"}], "]"}]}]}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", 
               RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}], ",", "1"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"tri", "=", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"2", "*", "i"}], "+", "1"}], ",", 
                 RowBox[{
                  RowBox[{"2", "*", "i"}], "+", "2"}], ",", 
                 RowBox[{
                  RowBox[{"2", "*", "i"}], "+", "3"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"2", "*", "i"}], "+", "1"}], ",", 
                 RowBox[{
                  RowBox[{"2", "*", "i"}], "+", "2"}], ",", 
                 RowBox[{
                  RowBox[{"2", "*", "i"}], "+", "4"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"2", "*", "i"}], "+", "3"}], ",", 
                 RowBox[{
                  RowBox[{"2", "*", "i"}], "+", "4"}], ",", 
                 RowBox[{
                  RowBox[{"2", "*", "i"}], "+", "1"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"2", "*", "i"}], "+", "3"}], ",", 
                 RowBox[{
                  RowBox[{"2", "*", "i"}], "+", "4"}], ",", 
                 RowBox[{
                  RowBox[{"2", "*", "i"}], "+", "2"}]}], "}"}]}], "}"}], ",", 
             
             RowBox[{"{", 
              RowBox[{"i", ",", "0", ",", 
               RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ",", "1"}], "]"}]}],
         ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{"oriented", ",", 
          RowBox[{"Print", "[", 
           RowBox[{"\"\<Dipole energy:\>\"", ",", 
            RowBox[{"Dipole", "[", 
             RowBox[{"centre", ",", "P"}], "]"}]}], "]"}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{"matform", ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Print", "[", 
            RowBox[{"\"\<Hinge centre:\>\"", ",", 
             RowBox[{
              RowBox[{"Transpose", "[", "centre", "]"}], " ", "//", " ", 
              "MatrixForm"}]}], "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<vertex position:\>\"", ",", 
             RowBox[{
              RowBox[{"Transpose", "[", "pnt", "]"}], " ", "//", " ", 
              "MatrixForm"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Print", "[", 
            RowBox[{"\"\<vertex position:\>\"", ",", "pnt"}], "]"}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"Graphics3D", "[", 
          RowBox[{"{", 
           RowBox[{"GraphicsComplex", "[", 
            RowBox[{"pnt", ",", 
             RowBox[{"Polygon", "[", "tri", "]"}]}], "]"}], "}"}], "]"}], 
         "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", "Writhe", " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Lwrithe", "[", 
      RowBox[{"u_", ",", 
       RowBox[{"eps", ":", "0.001"}]}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "n", ",", "r13", ",", "r14", ",", "r23", ",", "r24", ",", "a"}], 
        "}"}], ",", "\n", 
       RowBox[{
        RowBox[{"r13", ":=", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "-", 
          RowBox[{"u", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}]}], ";", 
        RowBox[{"r14", ":=", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "-", 
          RowBox[{"u", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}]}], ";", 
        RowBox[{"r23", ":=", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "-", 
          RowBox[{"u", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}], ";", 
        RowBox[{"r24", ":=", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "-", 
          RowBox[{"u", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}], ";", "\n", 
        RowBox[{"n", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Cross", "[", 
            RowBox[{"r13", ",", "r14"}], "]"}], ",", 
           RowBox[{"Cross", "[", 
            RowBox[{"r14", ",", "r24"}], "]"}], ",", "\[IndentingNewLine]", 
           " ", 
           RowBox[{"Cross", "[", 
            RowBox[{"r24", ",", "r23"}], "]"}], ",", 
           RowBox[{"Cross", "[", 
            RowBox[{"r23", ",", "r13"}], "]"}]}], "}"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"a", "=", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"i", "=", "1"}], ",", 
          RowBox[{"i", "\[LessEqual]", "4"}], ",", 
          RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Norm", "[", 
               RowBox[{"n", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "*", 
              RowBox[{"Norm", "[", 
               RowBox[{"n", "[", 
                RowBox[{"[", 
                 RowBox[{"Mod", "[", 
                  RowBox[{
                   RowBox[{"i", "+", "1"}], ",", "1", ",", "4"}], "]"}], 
                 "]"}], "]"}], "]"}]}], ">", "eps"}], ",", 
            RowBox[{
             RowBox[{"a", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "=", 
             RowBox[{"ArcSin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"n", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], ".", 
                 RowBox[{"n", "[", 
                  RowBox[{"[", 
                   RowBox[{"Mod", "[", 
                    RowBox[{
                    RowBox[{"i", "+", "1"}], ",", "1", ",", "4"}], "]"}], 
                   "]"}], "]"}]}], ")"}], "/", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Norm", "[", 
                  RowBox[{"n", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "]"}], "*", 
                 RowBox[{"Norm", "[", 
                  RowBox[{"n", "[", 
                   RowBox[{"[", 
                    RowBox[{"Mod", "[", 
                    RowBox[{
                    RowBox[{"i", "+", "1"}], ",", "1", ",", "4"}], "]"}], 
                    "]"}], "]"}], "]"}]}], ")"}]}], "]"}]}]}], "]"}]}], "]"}],
         ";", "\n", 
        RowBox[{"Return", "[", 
         RowBox[{
          RowBox[{"Sign", "[", 
           RowBox[{
            RowBox[{"Cross", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"u", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"u", "[", 
                RowBox[{"[", "3", "]"}], "]"}]}], ",", 
              RowBox[{
               RowBox[{"u", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "-", 
               RowBox[{"u", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ".", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"[", "3", "]"}], "]"}], "-", 
              RowBox[{"u", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "]"}], "*", "\n", 
          RowBox[{
           RowBox[{"Total", "[", "a", "]"}], "/", "Pi"}]}], "]"}], ";"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Writhe", "[", "M_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"i", ",", "j", ",", "k", ",", "wr", ",", "U"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"wr", "=", "0"}], ";", 
        RowBox[{"U", "=", 
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], "}"}], ",", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"Sum", "[", 
              RowBox[{
               RowBox[{"M", "[", 
                RowBox[{"[", "k", "]"}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"k", ",", "1", ",", "i"}], "}"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}]}], 
        ";", "\n", "      ", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"j", "=", "1"}], ",", 
          RowBox[{"j", "<=", 
           RowBox[{"n", "-", "2"}]}], ",", 
          RowBox[{"j", "++"}], ",", "\n", "         ", 
          RowBox[{
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"i", "=", 
              RowBox[{"j", "+", "2"}]}], ",", 
             RowBox[{"i", "<=", "n"}], ",", 
             RowBox[{"i", "++"}], ",", "\n", "            ", 
             RowBox[{
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"i", " ", "\[NotEqual]", " ", "n"}], " ", "||", " ", 
                 
                 RowBox[{"j", "!=", "1"}]}], ",", "\n", "               ", 
                RowBox[{
                 RowBox[{"wr", "=", 
                  RowBox[{"wr", "+", 
                   RowBox[{"Lwrithe", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"U", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ",", 
                    RowBox[{"U", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", "+", "1"}], "]"}], "]"}], ",", 
                    RowBox[{"U", "[", 
                    RowBox[{"[", "j", "]"}], "]"}], ",", 
                    RowBox[{"U", "[", 
                    RowBox[{"[", 
                    RowBox[{"j", "+", "1"}], "]"}], "]"}]}], "}"}], "]"}]}]}],
                  ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", "wr", "]"}], ";"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.696217122965217*^9, 3.6962171477500143`*^9}, {
   3.6962174924061213`*^9, 3.696217524918675*^9}, {3.6962176060239763`*^9, 
   3.6962176063263807`*^9}, {3.696219032591016*^9, 3.696219072071185*^9}, {
   3.6962195445939417`*^9, 3.6962195549677763`*^9}, {3.696220432145658*^9, 
   3.696220434824291*^9}, 3.6962206011672487`*^9, {3.696221218817341*^9, 
   3.6962212189678993`*^9}, {3.696221995032358*^9, 3.696221995175047*^9}, {
   3.696978268684164*^9, 3.6969782691003027`*^9}, {3.697162778142984*^9, 
   3.697162778792697*^9}, {3.697576402882587*^9, 3.6975764031916847`*^9}, {
   3.697578264020048*^9, 3.6975782642820187`*^9}, {3.697579488231028*^9, 
   3.697579488362234*^9}, {3.698093925095956*^9, 3.6980939252313547`*^9}, {
   3.6980942609813967`*^9, 3.6980942611492434`*^9}, {3.698094337853468*^9, 
   3.6980943389334717`*^9}, {3.698100097525955*^9, 3.698100098339954*^9}, {
   3.6981026992114973`*^9, 3.6981027177654047`*^9}, {3.698119941396549*^9, 
   3.69811994174574*^9}, {3.6984683346576242`*^9, 3.69846833508716*^9}, {
   3.7017711281440153`*^9, 3.701771130188302*^9}, {3.701838236735269*^9, 
   3.701838238201251*^9}, {3.702024298761612*^9, 3.7020242989831457`*^9}, {
   3.702184315639956*^9, 3.702184406493156*^9}, {3.7021844896269827`*^9, 
   3.7021845211242523`*^9}, {3.702185895759783*^9, 3.702185923874614*^9}, {
   3.70218596502131*^9, 3.702185965709804*^9}, {3.702185998593343*^9, 
   3.702186020175338*^9}, 3.702186068382106*^9, {3.70218620990987*^9, 
   3.702186217119864*^9}, {3.702186260240596*^9, 3.702186285691719*^9}, {
   3.702186318237224*^9, 3.70218637996334*^9}, {3.702186418674511*^9, 
   3.7021865909969807`*^9}, {3.70218666171599*^9, 3.7021866854587193`*^9}, {
   3.7021867312928047`*^9, 3.7021867403649683`*^9}, {3.7021870845036*^9, 
   3.70218711638955*^9}, {3.7021871640939493`*^9, 3.702187192059888*^9}, {
   3.702192882398699*^9, 3.702192903381611*^9}, {3.7021929386135883`*^9, 
   3.70219296321784*^9}, {3.7021933076351423`*^9, 3.7021933280393543`*^9}, {
   3.7021933798329153`*^9, 3.702193380059638*^9}, {3.702193420318293*^9, 
   3.702193421178623*^9}, {3.702193594241852*^9, 3.702193624220731*^9}, 
   3.702193791615773*^9, {3.702195637525038*^9, 3.702195639996696*^9}, {
   3.702197836339957*^9, 3.702197859636183*^9}, {3.702200575984742*^9, 
   3.7022006234673*^9}, 3.702202084005309*^9, {3.702203683696965*^9, 
   3.7022036883186903`*^9}, {3.702343589017542*^9, 3.702343830704235*^9}, {
   3.702343873248406*^9, 3.702343885713154*^9}, 3.702343938577829*^9, {
   3.702343988466387*^9, 3.7023439889366693`*^9}, {3.702410685299259*^9, 
   3.702410701005453*^9}, {3.702867906175715*^9, 3.702867990267227*^9}, {
   3.702868029886791*^9, 3.702868033926559*^9}, {3.7028694204275007`*^9, 
   3.702869482292576*^9}, {3.702869600369465*^9, 3.702869645029416*^9}, {
   3.702871442101945*^9, 3.7028714490160503`*^9}, {3.702875079620105*^9, 
   3.7028750887550488`*^9}, {3.702875191350028*^9, 3.702875249552458*^9}, {
   3.70287750103554*^9, 3.702877505555759*^9}, {3.702877590987248*^9, 
   3.702877594784047*^9}, {3.7028777179843483`*^9, 3.702877719967057*^9}, {
   3.702878364979204*^9, 3.702878380809608*^9}, {3.702878411423911*^9, 
   3.702878504643035*^9}, {3.702878539251794*^9, 3.702878550305377*^9}, {
   3.702878592183631*^9, 3.702878609956918*^9}, 3.7028786738868237`*^9, {
   3.706013421103422*^9, 3.706013467498131*^9}, {3.7060135150160713`*^9, 
   3.706013542445784*^9}, {3.706013635791092*^9, 3.706013738512233*^9}, {
   3.708980818030162*^9, 3.708980860455442*^9}, {3.7089849106071033`*^9, 
   3.708985067548975*^9}, {3.708985114092752*^9, 3.708985148845426*^9}, 
   3.708992878337641*^9, {3.7089930210022573`*^9, 3.708993031154311*^9}, {
   3.7089930912334013`*^9, 3.708993127118259*^9}, {3.708993177964253*^9, 
   3.708993178770771*^9}, {3.708993295199898*^9, 3.7089933437091103`*^9}, {
   3.708993381381588*^9, 3.708993394891583*^9}, {3.708993475680873*^9, 
   3.7089934800404053`*^9}, {3.708993738688158*^9, 3.708993790284501*^9}, {
   3.7089940224698553`*^9, 3.7089940474029016`*^9}, {3.70899413499349*^9, 
   3.708994170015482*^9}, {3.7089944688691273`*^9, 3.708994518329936*^9}, {
   3.709073025457116*^9, 3.709073026564239*^9}, {3.70907356025091*^9, 
   3.709073621097973*^9}, {3.7090736628990583`*^9, 3.709073686024022*^9}, {
   3.709073718036311*^9, 3.7090737913972673`*^9}, {3.7090738632480783`*^9, 
   3.709073902101239*^9}, {3.709073953077879*^9, 3.7090739569521303`*^9}, {
   3.7090740728887243`*^9, 3.709074088027144*^9}, {3.709074122378705*^9, 
   3.709074228944612*^9}, {3.709074316320142*^9, 3.709074316614977*^9}, {
   3.709074499260639*^9, 3.709074511612543*^9}, {3.709074673953455*^9, 
   3.709074786887064*^9}, {3.709074832918516*^9, 3.709074912727417*^9}, {
   3.709074945304167*^9, 3.709074946170781*^9}, {3.7090750601585093`*^9, 
   3.70907508592756*^9}, {3.709075196114142*^9, 3.709075208467141*^9}, {
   3.709076629118402*^9, 3.709076634012023*^9}, {3.7090766688535337`*^9, 
   3.709076674509017*^9}, {3.7090768111778812`*^9, 3.709076814924293*^9}, {
   3.709077003703277*^9, 3.70907701788943*^9}, {3.7090772599429913`*^9, 
   3.709077261978726*^9}, 3.709077331173568*^9, 3.709077485783334*^9, {
   3.7090776804623327`*^9, 3.709077680836823*^9}, {3.7090778144254436`*^9, 
   3.709077820918765*^9}, {3.709079860724414*^9, 3.709079902713016*^9}, {
   3.709080022242093*^9, 3.70908070500284*^9}, {3.709080737159555*^9, 
   3.709080787533861*^9}, {3.7090808601874847`*^9, 3.709080881152523*^9}, {
   3.709080959877515*^9, 3.709081044283843*^9}, {3.709081131822625*^9, 
   3.709081134100628*^9}, {3.709081266724435*^9, 3.709081276858412*^9}, {
   3.709081367777083*^9, 3.7090813831056223`*^9}, {3.709081472170382*^9, 
   3.7090814853729877`*^9}, {3.709081579187195*^9, 3.7090816250211353`*^9}, {
   3.709081690796776*^9, 3.709081695707971*^9}, {3.709081733221158*^9, 
   3.7090817993762836`*^9}, {3.709081875073381*^9, 3.7090818824676657`*^9}, {
   3.7090819269016247`*^9, 3.7090819278427277`*^9}, {3.709082250212743*^9, 
   3.709082256451783*^9}, {3.709085163429413*^9, 3.709085195445828*^9}, {
   3.709086103852964*^9, 3.709086130789948*^9}, {3.709086420587372*^9, 
   3.709086425866632*^9}, {3.709086787039504*^9, 3.709086787242198*^9}, {
   3.709091287180056*^9, 3.7090912925877733`*^9}, {3.709091361165311*^9, 
   3.709091361529778*^9}, {3.7090913975331507`*^9, 3.709091405647973*^9}, {
   3.709091436429617*^9, 3.709091446596302*^9}, {3.7090924069211473`*^9, 
   3.709092407926478*^9}, {3.709092438607667*^9, 3.7090924597845716`*^9}, 
   3.709092498934627*^9, {3.709093254651308*^9, 3.709093260658225*^9}, {
   3.709101298852357*^9, 3.709101305209022*^9}, {3.709148262808854*^9, 
   3.709148263117625*^9}, {3.722840375623762*^9, 3.7228404049105787`*^9}, 
   3.7228408466986313`*^9, {3.7228408924684267`*^9, 3.722840904947936*^9}, {
   3.722840956857655*^9, 3.72284096361897*^9}, {3.722840996912477*^9, 
   3.722841092365065*^9}, {3.722841126776569*^9, 3.72284113571109*^9}, {
   3.722841379238134*^9, 3.7228414009562273`*^9}, {3.722841622082241*^9, 
   3.722841622493985*^9}, {3.722841671385347*^9, 3.7228416870946903`*^9}, {
   3.722841730655303*^9, 3.722841751377445*^9}, {3.722841817713348*^9, 
   3.722841819819334*^9}, {3.722842114469756*^9, 3.72284212799263*^9}, 
   3.722842254372836*^9, {3.722843044297223*^9, 3.722843051899292*^9}, 
   3.7228633463533897`*^9, {3.72286361792905*^9, 3.722863641802911*^9}, {
   3.722863740852661*^9, 3.722863883567955*^9}, {3.722863946561253*^9, 
   3.722864007293124*^9}, {3.722864128190544*^9, 3.7228641505011387`*^9}, {
   3.722864261284276*^9, 3.722864264380558*^9}, {3.724232866820467*^9, 
   3.724232901236012*^9}, {3.7242414289737787`*^9, 3.7242415465178823`*^9}, {
   3.7242415891439943`*^9, 3.724241758811453*^9}, {3.724241835958561*^9, 
   3.724241847338174*^9}, {3.724241960469181*^9, 3.72424206489071*^9}, {
   3.724287211466281*^9, 3.724287283341895*^9}, 3.724287350985512*^9, {
   3.724287382498351*^9, 3.724287548756606*^9}, {3.724287590880731*^9, 
   3.7242876330217237`*^9}, {3.724287664919478*^9, 3.724287731268228*^9}, {
   3.724287796517462*^9, 3.724287826925337*^9}, {3.7242879654316463`*^9, 
   3.7242879698287477`*^9}, {3.724295957145172*^9, 3.7242959620294466`*^9}, {
   3.7242960896581593`*^9, 3.7242962401533875`*^9}, {3.724296350162158*^9, 
   3.7242963517874546`*^9}, {3.7242963950585413`*^9, 3.724296396252717*^9}, 
   3.7242988279650564`*^9, {3.724298977742257*^9, 3.724298982358512*^9}, {
   3.72429913726044*^9, 3.7242991377126427`*^9}, {3.7242994146366777`*^9, 
   3.724299423360911*^9}, {3.72429959388256*^9, 3.7242996415513763`*^9}, {
   3.724299673812176*^9, 3.7242996864919033`*^9}, {3.7242998282609015`*^9, 
   3.724299831425318*^9}, {3.724319137304038*^9, 3.7243191517729797`*^9}, {
   3.724319422873509*^9, 3.724319424480064*^9}, 3.7243194644340687`*^9, {
   3.724319610975934*^9, 3.724319613615471*^9}, {3.7243197320630713`*^9, 
   3.724319755224493*^9}, {3.724319821941698*^9, 3.724319827974443*^9}, {
   3.724993945852511*^9, 3.7249939494812527`*^9}, {3.725085346658946*^9, 
   3.725085346842074*^9}, {3.725085421962308*^9, 3.72508542351245*^9}, {
   3.725085622808131*^9, 3.725085649558671*^9}, 3.725085680446096*^9, {
   3.7250857313114*^9, 3.72508594651982*^9}, {3.725086211971508*^9, 
   3.7250862780489388`*^9}, {3.725086328468223*^9, 3.7250863331578093`*^9}, {
   3.725086388932783*^9, 3.725086425874207*^9}, {3.725086497275598*^9, 
   3.725086538232421*^9}, {3.72508698314769*^9, 3.725087001189311*^9}, 
   3.725087169657481*^9, {3.725087204769759*^9, 3.7250872051656847`*^9}, {
   3.72508832494477*^9, 3.7250883258899393`*^9}, {3.725580035883628*^9, 
   3.725580099599225*^9}, {3.725580165194806*^9, 3.725580167176485*^9}, 
   3.824595886558778*^9, {3.82459591801132*^9, 3.824595992741712*^9}, {
   3.857617468627611*^9, 3.8576174941184273`*^9}, {3.8576175324185257`*^9, 
   3.857617561809168*^9}, {3.85761979946721*^9, 3.857619823583817*^9}, {
   3.857685615898823*^9, 3.857685702401059*^9}, {3.8576857383131227`*^9, 
   3.8576857888621693`*^9}, {3.85768726787882*^9, 3.857687273186458*^9}, {
   3.8576873657318277`*^9, 3.857687438869343*^9}, 3.8576876508310137`*^9, {
   3.857687884003853*^9, 3.857687957197485*^9}, 3.857688007111985*^9, {
   3.857688042133882*^9, 3.8576880828465357`*^9}, 3.8576881370595512`*^9, {
   3.857688195998043*^9, 3.8576882332590027`*^9}, {3.8576889271443653`*^9, 
   3.8576889837940474`*^9}, {3.857689022288518*^9, 3.857689071268371*^9}, {
   3.857689132921033*^9, 3.8576893329419327`*^9}, {3.857689407728067*^9, 
   3.857689441617378*^9}, {3.857693721886016*^9, 3.857693739088366*^9}, {
   3.857713091060038*^9, 3.85771309654074*^9}, {3.857774949042831*^9, 
   3.8577749622140017`*^9}, {3.85777504559186*^9, 3.857775067577826*^9}, {
   3.857775839644355*^9, 3.857775902779312*^9}, {3.857777345033708*^9, 
   3.857777354670442*^9}, {3.857777390156611*^9, 3.8577773926140423`*^9}, {
   3.857777585170236*^9, 3.85777759231207*^9}, {3.857777995647148*^9, 
   3.8577780217808733`*^9}, {3.8577783234172077`*^9, 
   3.8577783287192497`*^9}, {3.8577802839059*^9, 3.8577802888640738`*^9}, {
   3.857780387873877*^9, 3.8577803947408733`*^9}, {3.857780529871966*^9, 
   3.857780535708476*^9}, {3.8577806010736437`*^9, 3.8577806070474377`*^9}, {
   3.857780643030472*^9, 3.857780671434635*^9}, {3.857780704176552*^9, 
   3.857780708101318*^9}, {3.857780756739563*^9, 3.857780770405415*^9}, {
   3.857780805823881*^9, 3.8577808095091143`*^9}, {3.857780854368484*^9, 
   3.8577808614874783`*^9}, {3.85778089344562*^9, 3.8577809053175707`*^9}, {
   3.857780939210498*^9, 3.857780943226598*^9}, 3.857780984854425*^9, {
   3.857781031021008*^9, 3.857781032338415*^9}, {3.857781163594891*^9, 
   3.857781193151162*^9}, {3.857781271743443*^9, 3.857781275102004*^9}, {
   3.8577829771465187`*^9, 3.8577829791326714`*^9}, {3.85778351131627*^9, 
   3.8577835157560177`*^9}, {3.857786411864003*^9, 3.857786413978593*^9}, {
   3.8577998476932707`*^9, 3.8577998618038673`*^9}, {3.8578804107920437`*^9, 
   3.857880447410528*^9}, {3.857880579787993*^9, 3.857880607444366*^9}, {
   3.857880831354055*^9, 3.857880837027961*^9}, {3.857881075231518*^9, 
   3.857881220032899*^9}, {3.8578813514745617`*^9, 3.857881353198635*^9}, 
   3.857881426961679*^9, {3.857882263102069*^9, 3.857882275625907*^9}, 
   3.8578829087888517`*^9, 3.8578830957588673`*^9, 3.857883133424849*^9, {
   3.857883528798736*^9, 3.85788360426582*^9}, {3.857883648156414*^9, 
   3.857883651176528*^9}, {3.85788390951184*^9, 3.8578839408417273`*^9}, {
   3.857884027040987*^9, 3.85788402912123*^9}, {3.857887311805833*^9, 
   3.857887312076729*^9}, {3.8578875090516768`*^9, 3.857887573533827*^9}, {
   3.857887648396215*^9, 3.8578876485259113`*^9}, {3.8578877601590347`*^9, 
   3.8578877708546667`*^9}, 3.857943404533326*^9, {3.85794350825109*^9, 
   3.857943509009646*^9}, {3.857943603916615*^9, 3.857943713157716*^9}, {
   3.857943745728696*^9, 3.857943862912922*^9}, {3.857943983224143*^9, 
   3.85794404489469*^9}, {3.857944093006277*^9, 3.857944361305915*^9}, {
   3.857944424528983*^9, 3.857944430819098*^9}, {3.857944467609313*^9, 
   3.857944519668785*^9}, {3.857944957419793*^9, 3.857944973245886*^9}, {
   3.857945051661742*^9, 3.8579452661167297`*^9}, {3.857945398483292*^9, 
   3.857945402189879*^9}, {3.8579460370514927`*^9, 3.857946087200377*^9}, {
   3.857946694217247*^9, 3.8579466988758097`*^9}, {3.85794709741397*^9, 
   3.85794710216781*^9}, {3.857947218369504*^9, 3.857947247197393*^9}, {
   3.857947672362945*^9, 3.857947738044146*^9}, {3.857947948762941*^9, 
   3.857947983646702*^9}, {3.85794817999085*^9, 3.857948183547224*^9}, 
   3.857948637761671*^9, {3.857949468199644*^9, 3.857949476010126*^9}, {
   3.857949831379163*^9, 3.857949901246117*^9}, {3.857949958496653*^9, 
   3.857949958880233*^9}, {3.8579501714289513`*^9, 3.857950254369876*^9}, {
   3.857950299231941*^9, 3.857950330698028*^9}, {3.8579509468372107`*^9, 
   3.857950947723446*^9}, {3.857951255379236*^9, 3.857951508991338*^9}, 
   3.8579515683219223`*^9, 3.857951604862379*^9},
 CellLabel->"In[88]:=",ExpressionUUID->"4721de3c-ac49-4e74-9734-971a89b8dcd5"],

Cell[CellGroupData[{

Cell["Kaleidocycle", "Title",
 CellChangeTimes->{{3.8579456785353203`*^9, 
  3.8579456814426203`*^9}},ExpressionUUID->"1e4b7b8b-87da-4c13-b746-\
dd835620df87"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Orientable", " ", "Kaleidocycle"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Setup", "[", 
    RowBox[{"7", ",", "True", ",", "0"}], "]"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.7021843876478777`*^9, 3.702184392458454*^9}, {
   3.70218455562215*^9, 3.7021845645445967`*^9}, 3.7021852620502443`*^9, {
   3.702185980089983*^9, 3.70218598050762*^9}, 3.7021866369516907`*^9, {
   3.702186691953752*^9, 3.702186697900935*^9}, {3.7021929100729*^9, 
   3.702192918606772*^9}, {3.7021979215284023`*^9, 3.702197948267557*^9}, {
   3.7060099241000643`*^9, 3.706009924362688*^9}, {3.706013587011373*^9, 
   3.706013594351763*^9}, {3.7060138673272676`*^9, 3.706013870591627*^9}, {
   3.706014047678844*^9, 3.7060140481067877`*^9}, {3.708980871629301*^9, 
   3.708980871996517*^9}, 3.708994597238285*^9, {3.709077100370944*^9, 
   3.7090771045021553`*^9}, {3.725086579555584*^9, 3.725086580028817*^9}, {
   3.72508812521964*^9, 3.7250881280674143`*^9}, {3.725088181334292*^9, 
   3.725088197943955*^9}, {3.8246015985693293`*^9, 3.824601599662364*^9}, {
   3.8576176001603928`*^9, 3.85761760357869*^9}, {3.8576178244638653`*^9, 
   3.8576178284819*^9}, {3.8576211647539663`*^9, 3.8576211692478857`*^9}, {
   3.857688312161407*^9, 3.857688321112062*^9}, {3.857689521139574*^9, 
   3.85768952423118*^9}, {3.857690785054975*^9, 3.857690785790703*^9}, {
   3.857690988713971*^9, 3.857690989108202*^9}, {3.8577783361846457`*^9, 
   3.8577783365360527`*^9}, {3.857947289883335*^9, 3.857947290158239*^9}, {
   3.85794775330081*^9, 3.8579477536372957`*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"708eaf9d-57eb-47ed-8af7-fc544a21a827"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Setup \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\" tetrahedra system with slide=\"\>", 
   "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" oriented=\"\>", 
   "\[InvisibleSpace]", "True", 
   "\[InvisibleSpace]", "\<\" free (non-constant) twist angle=\"\>", 
   "\[InvisibleSpace]", "False"}],
  SequenceForm[
  "Setup ", 7, " tetrahedra system with slide=", 0, " oriented=", True, 
   " free (non-constant) twist angle=", False],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7250883890972853`*^9, 3.8245960073028917`*^9, 3.824601600724361*^9, 
   3.8576176079395523`*^9, {3.857617719625361*^9, 3.85761774075846*^9}, 
   3.857617830151153*^9, 3.857621173838731*^9, 3.857688321886441*^9, 
   3.857689459623438*^9, 3.8576902247735147`*^9, 3.857690991704404*^9, 
   3.857778029077403*^9, 3.857778337023481*^9, 3.857780211546339*^9, 
   3.857780307726981*^9, 3.857783997907732*^9, 3.857880757464595*^9, 
   3.857944560440178*^9, 3.857945275351306*^9, 3.857945585092758*^9, 
   3.85794569471395*^9, 3.857946123721877*^9, 3.8579468590910273`*^9, 
   3.857947137039434*^9, {3.857947287536359*^9, 3.857947290958953*^9}, 
   3.857947336728108*^9, 3.857947445264189*^9, 3.857947754413424*^9, 
   3.8579482212184067`*^9, 3.857948666663422*^9, 3.857949291870893*^9, 
   3.8579493368797092`*^9, 3.857950391596237*^9, 3.857951376220443*^9, 
   3.857951522752286*^9, 3.8579515903299847`*^9},
 CellLabel->
  "During evaluation of \
In[84]:=",ExpressionUUID->"f58befc3-f666-4998-94c2-8803ea945d42"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"maximum", " ", "twist", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"minimising", " ", "cos"}], "=", 
      RowBox[{"h", "[", 
       RowBox[{"2", ",", "3"}], "]"}]}], ")"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"sol", "=", 
    RowBox[{"MKn", "[", 
     RowBox[{
      RowBox[{"h", "[", 
       RowBox[{"2", ",", "3"}], "]"}], ",", "True"}], "]"}]}], ";", 
   RowBox[{"Disp", "[", "sol", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.702186092055655*^9, 3.7021860966573687`*^9}, {
   3.7021867028440237`*^9, 3.7021867068491783`*^9}, 3.702187125131421*^9, {
   3.7021872152315187`*^9, 3.702187217857761*^9}, {3.702192969267066*^9, 
   3.702192978388234*^9}, {3.702193474193982*^9, 3.702193477834257*^9}, {
   3.702195747963356*^9, 3.702195748453321*^9}, {3.706047999146022*^9, 
   3.706048000637374*^9}, {3.708994601644782*^9, 3.708994621107147*^9}, {
   3.7090749675211687`*^9, 3.709074968470834*^9}, {3.724296602087204*^9, 
   3.72429660897352*^9}, {3.724296674034346*^9, 3.7242966747462416`*^9}, {
   3.7242987688124876`*^9, 3.7242987697680297`*^9}, {3.7243195471389017`*^9, 
   3.724319547873863*^9}, {3.725086345717724*^9, 3.7250863511167192`*^9}, {
   3.725088131245969*^9, 3.7250881318908854`*^9}, {3.725088185593396*^9, 
   3.725088186140136*^9}, {3.857689456878582*^9, 3.8576894575415907`*^9}, {
   3.857700617285133*^9, 3.857700623245234*^9}, {3.857700661415141*^9, 
   3.857700665870914*^9}, {3.857778033222521*^9, 3.857778035033449*^9}, {
   3.857780718966894*^9, 3.857780719063442*^9}, 3.857781098981288*^9, {
   3.857947378429819*^9, 3.857947380313611*^9}, {3.857947451165483*^9, 
   3.8579474529191513`*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"854ffd0a-b3d8-4955-b5f6-79d4169df8ff"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Finding local minima...\"\>"], "Print",
 CellChangeTimes->{
  3.8579453207223387`*^9, 3.857945409422543*^9, 3.8579456967546*^9, 
   3.8579461255904837`*^9, 3.857946865621578*^9, 3.8579471387714853`*^9, {
   3.85794727931981*^9, 3.857947295856886*^9}, 3.857947340352562*^9, 
   3.857947381654969*^9, 3.857947453649788*^9, 3.85794775862776*^9, 
   3.857947993989929*^9, 3.857948253776134*^9, 3.8579486685051813`*^9, 
   3.857949294688469*^9, {3.8579493471674633`*^9, 3.857949355374639*^9}, {
   3.8579495558524103`*^9, 3.857949562635063*^9}, {3.85795039511549*^9, 
   3.857950401054339*^9}, 3.857951377582831*^9, {3.857951520077726*^9, 
   3.857951524085836*^9}, {3.857951576736908*^9, 3.8579515946905317`*^9}},
 CellLabel->
  "During evaluation of \
In[87]:=",ExpressionUUID->"8e04a70c-6dba-4190-a683-914af42063a7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Cos(twist):\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.29538856615431275`"}]}],
  SequenceForm["Cos(twist):", -0.29538856615431275`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8579453207223387`*^9, 3.857945409422543*^9, 3.8579456967546*^9, 
   3.8579461255904837`*^9, 3.857946865621578*^9, 3.8579471387714853`*^9, {
   3.85794727931981*^9, 3.857947295856886*^9}, 3.857947340352562*^9, 
   3.857947381654969*^9, 3.857947453649788*^9, 3.85794775862776*^9, 
   3.857947993989929*^9, 3.857948253776134*^9, 3.8579486685051813`*^9, 
   3.857949294688469*^9, {3.8579493471674633`*^9, 3.857949355374639*^9}, {
   3.8579495558524103`*^9, 3.857949562635063*^9}, {3.85795039511549*^9, 
   3.857950401054339*^9}, 3.857951377582831*^9, {3.857951520077726*^9, 
   3.857951524085836*^9}, {3.857951576736908*^9, 3.857951594766718*^9}},
 CellLabel->
  "During evaluation of \
In[87]:=",ExpressionUUID->"5fff9292-0f07-4fa6-bbb4-1e55ea9377e9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"total local twist:\"\>", "\[InvisibleSpace]", 
   "4.168143737149987`"}],
  SequenceForm["total local twist:", 4.168143737149987],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8579453207223387`*^9, 3.857945409422543*^9, 3.8579456967546*^9, 
   3.8579461255904837`*^9, 3.857946865621578*^9, 3.8579471387714853`*^9, {
   3.85794727931981*^9, 3.857947295856886*^9}, 3.857947340352562*^9, 
   3.857947381654969*^9, 3.857947453649788*^9, 3.85794775862776*^9, 
   3.857947993989929*^9, 3.857948253776134*^9, 3.8579486685051813`*^9, 
   3.857949294688469*^9, {3.8579493471674633`*^9, 3.857949355374639*^9}, {
   3.8579495558524103`*^9, 3.857949562635063*^9}, {3.85795039511549*^9, 
   3.857950401054339*^9}, 3.857951377582831*^9, {3.857951520077726*^9, 
   3.857951524085836*^9}, {3.857951576736908*^9, 3.857951594768306*^9}},
 CellLabel->
  "During evaluation of \
In[87]:=",ExpressionUUID->"4ce9c0ea-237e-49bc-87f3-b8f9e39e5fb8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writhe:\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.16814372986812529`"}]}],
  SequenceForm["Writhe:", -0.16814372986812529`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8579453207223387`*^9, 3.857945409422543*^9, 3.8579456967546*^9, 
   3.8579461255904837`*^9, 3.857946865621578*^9, 3.8579471387714853`*^9, {
   3.85794727931981*^9, 3.857947295856886*^9}, 3.857947340352562*^9, 
   3.857947381654969*^9, 3.857947453649788*^9, 3.85794775862776*^9, 
   3.857947993989929*^9, 3.857948253776134*^9, 3.8579486685051813`*^9, 
   3.857949294688469*^9, {3.8579493471674633`*^9, 3.857949355374639*^9}, {
   3.8579495558524103`*^9, 3.857949562635063*^9}, {3.85795039511549*^9, 
   3.857950401054339*^9}, 3.857951377582831*^9, {3.857951520077726*^9, 
   3.857951524085836*^9}, {3.857951576736908*^9, 3.857951594769052*^9}},
 CellLabel->
  "During evaluation of \
In[87]:=",ExpressionUUID->"577cb7f4-60b6-48ad-bf5e-f32640667d79"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Total half twist:\"\>", "\[InvisibleSpace]", 
   "4.0000000072818604`"}],
  SequenceForm["Total half twist:", 4.0000000072818604`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8579453207223387`*^9, 3.857945409422543*^9, 3.8579456967546*^9, 
   3.8579461255904837`*^9, 3.857946865621578*^9, 3.8579471387714853`*^9, {
   3.85794727931981*^9, 3.857947295856886*^9}, 3.857947340352562*^9, 
   3.857947381654969*^9, 3.857947453649788*^9, 3.85794775862776*^9, 
   3.857947993989929*^9, 3.857948253776134*^9, 3.8579486685051813`*^9, 
   3.857949294688469*^9, {3.8579493471674633`*^9, 3.857949355374639*^9}, {
   3.8579495558524103`*^9, 3.857949562635063*^9}, {3.85795039511549*^9, 
   3.857950401054339*^9}, 3.857951377582831*^9, {3.857951520077726*^9, 
   3.857951524085836*^9}, {3.857951576736908*^9, 3.857951594775147*^9}},
 CellLabel->
  "During evaluation of \
In[87]:=",ExpressionUUID->"4548ce65-234d-4904-a3ef-fb679ec68f86"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge vectors:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0.9372716237297907`", 
        RowBox[{"-", "0.556281940332416`"}], "0.49553087927084616`", 
        RowBox[{"-", "0.3932708741865845`"}], 
        RowBox[{"-", "0.7132763596640351`"}], "0"},
       {"0", 
        RowBox[{"-", "0.9553772003692049`"}], "0.2275266951188011`", 
        "0.8169984294263984`", "0.13533276076630824`", 
        RowBox[{"-", "0.9190019801723663`"}], "0.635596125407422`", "0"},
       {"1", 
        RowBox[{"-", "0.29538856615431275`"}], "0.2641088995970209`", 
        "0.15186827360688365`", 
        RowBox[{"-", "0.8579826309354329`"}], 
        RowBox[{"-", "0.027809855242570188`"}], 
        RowBox[{"-", "0.29538856615431275`"}], "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge vectors:", 
   MatrixForm[{{
     0, 0, 0.9372716237297907, -0.556281940332416, 
      0.49553087927084616`, -0.3932708741865845, -0.7132763596640351, 0}, {
     0, -0.9553772003692049, 0.2275266951188011, 0.8169984294263984, 
      0.13533276076630824`, -0.9190019801723663, 0.635596125407422, 0}, {
     1, -0.29538856615431275`, 0.2641088995970209, 
      0.15186827360688365`, -0.8579826309354329, -0.027809855242570188`, \
-0.29538856615431275`, 1}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8579453207223387`*^9, 3.857945409422543*^9, 3.8579456967546*^9, 
   3.8579461255904837`*^9, 3.857946865621578*^9, 3.8579471387714853`*^9, {
   3.85794727931981*^9, 3.857947295856886*^9}, 3.857947340352562*^9, 
   3.857947381654969*^9, 3.857947453649788*^9, 3.85794775862776*^9, 
   3.857947993989929*^9, 3.857948253776134*^9, 3.8579486685051813`*^9, 
   3.857949294688469*^9, {3.8579493471674633`*^9, 3.857949355374639*^9}, {
   3.8579495558524103`*^9, 3.857949562635063*^9}, {3.85795039511549*^9, 
   3.857950401054339*^9}, 3.857951377582831*^9, {3.857951520077726*^9, 
   3.857951524085836*^9}, {3.857951576736908*^9, 3.857951594776319*^9}},
 CellLabel->
  "During evaluation of \
In[87]:=",ExpressionUUID->"a871ce25-f812-4173-88db-7e864e0693cb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Elastic Energy:\"\>", "\[InvisibleSpace]", 
   "3.3412760431061033`"}],
  SequenceForm["Elastic Energy:", 3.3412760431061033`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8579453207223387`*^9, 3.857945409422543*^9, 3.8579456967546*^9, 
   3.8579461255904837`*^9, 3.857946865621578*^9, 3.8579471387714853`*^9, {
   3.85794727931981*^9, 3.857947295856886*^9}, 3.857947340352562*^9, 
   3.857947381654969*^9, 3.857947453649788*^9, 3.85794775862776*^9, 
   3.857947993989929*^9, 3.857948253776134*^9, 3.8579486685051813`*^9, 
   3.857949294688469*^9, {3.8579493471674633`*^9, 3.857949355374639*^9}, {
   3.8579495558524103`*^9, 3.857949562635063*^9}, {3.85795039511549*^9, 
   3.857950401054339*^9}, 3.857951377582831*^9, {3.857951520077726*^9, 
   3.857951524085836*^9}, {3.857951576736908*^9, 3.8579515947774477`*^9}},
 CellLabel->
  "During evaluation of \
In[87]:=",ExpressionUUID->"66cf08b7-35ee-47c5-89d6-d390236b1d20"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Torsion Energy:\"\>", "\[InvisibleSpace]", 
   "7.30279174870467`"}],
  SequenceForm["Torsion Energy:", 7.30279174870467],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8579453207223387`*^9, 3.857945409422543*^9, 3.8579456967546*^9, 
   3.8579461255904837`*^9, 3.857946865621578*^9, 3.8579471387714853`*^9, {
   3.85794727931981*^9, 3.857947295856886*^9}, 3.857947340352562*^9, 
   3.857947381654969*^9, 3.857947453649788*^9, 3.85794775862776*^9, 
   3.857947993989929*^9, 3.857948253776134*^9, 3.8579486685051813`*^9, 
   3.857949294688469*^9, {3.8579493471674633`*^9, 3.857949355374639*^9}, {
   3.8579495558524103`*^9, 3.857949562635063*^9}, {3.85795039511549*^9, 
   3.857950401054339*^9}, 3.857951377582831*^9, {3.857951520077726*^9, 
   3.857951524085836*^9}, {3.857951576736908*^9, 3.857951594778173*^9}},
 CellLabel->
  "During evaluation of \
In[87]:=",ExpressionUUID->"bdb0d30d-8f50-457f-8440-7fd5e9a4167f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Target func:\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.29538856615431275`"}]}],
  SequenceForm["Target func:", -0.29538856615431275`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8579453207223387`*^9, 3.857945409422543*^9, 3.8579456967546*^9, 
   3.8579461255904837`*^9, 3.857946865621578*^9, 3.8579471387714853`*^9, {
   3.85794727931981*^9, 3.857947295856886*^9}, 3.857947340352562*^9, 
   3.857947381654969*^9, 3.857947453649788*^9, 3.85794775862776*^9, 
   3.857947993989929*^9, 3.857948253776134*^9, 3.8579486685051813`*^9, 
   3.857949294688469*^9, {3.8579493471674633`*^9, 3.857949355374639*^9}, {
   3.8579495558524103`*^9, 3.857949562635063*^9}, {3.85795039511549*^9, 
   3.857950401054339*^9}, 3.857951377582831*^9, {3.857951520077726*^9, 
   3.857951524085836*^9}, {3.857951576736908*^9, 3.857951594778892*^9}},
 CellLabel->
  "During evaluation of \
In[87]:=",ExpressionUUID->"4c419062-674d-4904-9d25-660e7a8f6d64"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Dipole energy:\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "4.2271532910097225`"}]}],
  SequenceForm["Dipole energy:", -4.2271532910097225`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8579453207223387`*^9, 3.857945409422543*^9, 3.8579456967546*^9, 
   3.8579461255904837`*^9, 3.857946865621578*^9, 3.8579471387714853`*^9, {
   3.85794727931981*^9, 3.857947295856886*^9}, 3.857947340352562*^9, 
   3.857947381654969*^9, 3.857947453649788*^9, 3.85794775862776*^9, 
   3.857947993989929*^9, 3.857948253776134*^9, 3.8579486685051813`*^9, 
   3.857949294688469*^9, {3.8579493471674633`*^9, 3.857949355374639*^9}, {
   3.8579495558524103`*^9, 3.857949562635063*^9}, {3.85795039511549*^9, 
   3.857950401054339*^9}, 3.857951377582831*^9, {3.857951520077726*^9, 
   3.857951524085836*^9}, {3.857951576736908*^9, 3.857951594779619*^9}},
 CellLabel->
  "During evaluation of \
In[87]:=",ExpressionUUID->"cb74f040-5997-40df-b066-1ea47ea20df0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge centre:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0.9553772003692049`", "0.7702623635125838`", 
        "0.5890398937314555`", 
        RowBox[{"-", "0.13248332095795512`"}], 
        RowBox[{"-", "0.9247346422276029`"}], 
        RowBox[{"-", "0.6355961287711945`"}], 
        RowBox[{"-", "3.3637724827784155`*^-9"}]},
       {"0", "0", 
        RowBox[{"-", "0.2768593210306674`"}], 
        RowBox[{"-", "0.5661201555541213`"}], 
        RowBox[{"-", "0.9681449791086305`"}], 
        RowBox[{"-", "0.6169447577830014`"}], 
        RowBox[{"-", "0.7132763651090255`"}], 
        RowBox[{"-", "5.4449902364694935`*^-9"}]},
       {"0", "0", "0.8954479398644662`", "1.7877663758357443`", 
        "1.307635254989556`", "0.9054638288357446`", 
        RowBox[{"-", "1.974223451384205`*^-9"}], 
        RowBox[{"-", "1.97422367342881`*^-9"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge centre:", 
   MatrixForm[{{
     0, 0.9553772003692049, 0.7702623635125838, 
      0.5890398937314555, -0.13248332095795512`, -0.9247346422276029, \
-0.6355961287711945, -3.3637724827784155`*^-9}, {
     0, 0, -0.2768593210306674, -0.5661201555541213, -0.9681449791086305, \
-0.6169447577830014, -0.7132763651090255, -5.4449902364694935`*^-9}, {
     0, 0, 0.8954479398644662, 1.7877663758357443`, 1.307635254989556, 
      0.9054638288357446, -1.974223451384205*^-9, -1.97422367342881*^-9}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8579453207223387`*^9, 3.857945409422543*^9, 3.8579456967546*^9, 
   3.8579461255904837`*^9, 3.857946865621578*^9, 3.8579471387714853`*^9, {
   3.85794727931981*^9, 3.857947295856886*^9}, 3.857947340352562*^9, 
   3.857947381654969*^9, 3.857947453649788*^9, 3.85794775862776*^9, 
   3.857947993989929*^9, 3.857948253776134*^9, 3.8579486685051813`*^9, 
   3.857949294688469*^9, {3.8579493471674633`*^9, 3.857949355374639*^9}, {
   3.8579495558524103`*^9, 3.857949562635063*^9}, {3.85795039511549*^9, 
   3.857950401054339*^9}, 3.857951377582831*^9, {3.857951520077726*^9, 
   3.857951524085836*^9}, {3.857951576736908*^9, 3.857951594780478*^9}},
 CellLabel->
  "During evaluation of \
In[87]:=",ExpressionUUID->"8dbe238c-7dcb-465a-ae83-b66c622dfada"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"vertex position:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0.`", "0.`", "0.9553772003692049`", "0.9553772003692049`", 
        "1.238898175377479`", "0.3016265516476885`", "0.3108989235652475`", 
        "0.8671808638976635`", "0.11528211867746796`", 
        RowBox[{"-", "0.3802487605933782`"}], 
        RowBox[{"-", "1.1213700793208952`"}], 
        RowBox[{"-", "0.7280992051343107`"}], 
        RowBox[{"-", "0.9922343086032122`"}], 
        RowBox[{"-", "0.27895794893917697`"}], 
        RowBox[{"-", "3.3637724827784155`*^-9"}], 
        RowBox[{"-", "3.3637724827784155`*^-9"}]},
       {"0.`", "0.`", 
        RowBox[{"-", "0.47768860018460246`"}], "0.47768860018460246`", 
        RowBox[{"-", "0.16309597347126686`"}], 
        RowBox[{"-", "0.39062266859006795`"}], 
        RowBox[{"-", "0.1576209408409221`"}], 
        RowBox[{"-", "0.9746193702673205`"}], 
        RowBox[{"-", "0.9004785987254764`"}], 
        RowBox[{"-", "1.0358113594917846`"}], 
        RowBox[{"-", "1.0764457478691845`"}], 
        RowBox[{"-", "0.15744376769681823`"}], 
        RowBox[{"-", "0.39547830240531445`"}], 
        RowBox[{"-", "1.0310744278127366`"}], 
        RowBox[{"-", "5.4449902364694935`*^-9"}], 
        RowBox[{"-", "5.4449902364694935`*^-9"}]},
       {"0.5`", 
        RowBox[{"-", "0.5`"}], 
        RowBox[{"-", "0.14769428307715637`"}], "0.14769428307715637`", 
        "1.0275023896629767`", "0.7633934900659558`", "1.8637005126391861`", 
        "1.7118322390323024`", "0.8786439395218395`", "1.7366265704572725`", 
        "0.8915589012144595`", "0.9193687564570298`", 
        RowBox[{"-", "0.14769428505137983`"}], "0.14769428110293292`", 
        "0.4999999980257763`", 
        RowBox[{"-", "0.5000000019742237`"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["vertex position:", 
   MatrixForm[CompressedData["
1:eJxTTMoPSmViYGBgBmIBBkyw7cBdk+JJ7+xhtJLC0idtlz7bqy3fXXzT97I9
yyGXmUeeXrbX4XIV/bT/tX1CewejYvNee5uvR5/+C72xf3vYtAOKHz/uzyjx
3DLN5/n+hAJdraQD7/efPfWyoOjWxf1AKyYwP9XZh0Rjsf/efiht79crahDy
4Mj+169WWXz7f2O/3GlOzzc6R/Z3iGh/EzF4v9/kcEfdjgtv9n+omvtu3aQP
+82cDXTlLT/uf3NwNo+c+pH9WR+OWbb439xfoGn8zL3+A8j+hitJ5vuQaCB4
YA+l919Yf75w6fNDMNpeZmFTxLKCD/arGKz0d+S+sOfU+7pg+8W/9uWy64xX
Jf+2n5Wq9PSm7Bv74hXhHy1O/rY/2J/asaz9jf1zv31sFdlv7QXYectA5k2I
mJQLMi8m5OHf///v218K5WcE2QcAw7K3fg==
    "]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8579453207223387`*^9, 3.857945409422543*^9, 3.8579456967546*^9, 
   3.8579461255904837`*^9, 3.857946865621578*^9, 3.8579471387714853`*^9, {
   3.85794727931981*^9, 3.857947295856886*^9}, 3.857947340352562*^9, 
   3.857947381654969*^9, 3.857947453649788*^9, 3.85794775862776*^9, 
   3.857947993989929*^9, 3.857948253776134*^9, 3.8579486685051813`*^9, 
   3.857949294688469*^9, {3.8579493471674633`*^9, 3.857949355374639*^9}, {
   3.8579495558524103`*^9, 3.857949562635063*^9}, {3.85795039511549*^9, 
   3.857950401054339*^9}, 3.857951377582831*^9, {3.857951520077726*^9, 
   3.857951524085836*^9}, {3.857951576736908*^9, 3.857951594781654*^9}},
 CellLabel->
  "During evaluation of \
In[87]:=",ExpressionUUID->"05cb4207-4bf1-41ff-a732-bf36e43da774"]
}, Open  ]],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJxTTMoPSmViYGAQAGJmBlzggT0O8f3bDtw1KZ70zh5C39t/Yf35wqXPD6GL
20PF7ZUUlj5pu/TZ3q9X1CDkwZH9MgubIpYVfLBXW767+KbvZfvXr1ZZfPt/
Y/8qBiv9Hbkv7FkOucw88vSyvdxpTs83Okf2c+p9XbD94l97HS5X0U/7X9t3
iGh/EzF4v79cdp3xquTf9gntHYyKzXvtTQ531O248Gb/rFSlpzdl39jbfD36
9F/ojf0fqua+Wzfpw/7iFeEfLU7+tt8eNu2A4seP+82cDXTlLT/uP9if2rGs
/Y19Ronnlmk+z/e/OTibR079yP7nfvvYKrLf2icU6GolHXi/P+vDMcsW/5v7
Bdh5y0D+PXvqZUHRrYv7CzSNn7nXf9g/IWJSLsi/wECawPxUZx+QbriSZL4v
JuTh3///72OIXwrlZwSFJwDmCrd+
   "], 
   Polygon3DBox[{{1, 2, 3}, {1, 2, 4}, {3, 4, 1}, {3, 4, 2}, {3, 4, 5}, {3, 4,
     6}, {5, 6, 3}, {5, 6, 4}, {5, 6, 7}, {5, 6, 8}, {7, 8, 5}, {7, 8, 6}, {7,
     8, 9}, {7, 8, 10}, {9, 10, 7}, {9, 10, 8}, {9, 10, 11}, {9, 10, 12}, {11,
     12, 9}, {11, 12, 10}, {11, 12, 13}, {11, 12, 14}, {13, 14, 11}, {13, 14, 
    12}, {13, 14, 15}, {13, 14, 16}, {15, 16, 13}, {15, 16, 14}}]]]], "Output",\

 CellChangeTimes->{
  3.857945320780534*^9, 3.8579454094664907`*^9, 3.857945696810793*^9, 
   3.857946125663385*^9, 3.857946865691378*^9, 3.8579471388419247`*^9, {
   3.857947279364749*^9, 3.857947295932281*^9}, 3.857947340430071*^9, 
   3.8579473858509274`*^9, 3.857947489794948*^9, 3.857947758637712*^9, 
   3.8579480919868803`*^9, 3.85794825378881*^9, 3.857948668551342*^9, 
   3.857949294773744*^9, {3.85794934722593*^9, 3.8579493554280252`*^9}, {
   3.857949556001504*^9, 3.85794956274822*^9}, {3.857950395174487*^9, 
   3.8579504010939703`*^9}, 3.857951377639432*^9, {3.857951520131586*^9, 
   3.857951524174183*^9}, {3.85795157690307*^9, 3.857951594782853*^9}},
 CellLabel->"Out[87]=",ExpressionUUID->"756a80b8-1aae-4edf-a5d0-2b4f29f4ba25"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Kn", " ", "with", " ", "a", " ", "specified", " ", "cos", 
    RowBox[{"(", "twist", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"sol", "=", 
    RowBox[{"MKn", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"h", "[", 
          RowBox[{"2", ",", "3"}], "]"}], "-", "0.1"}], ")"}], "^", "2"}], 
      ",", "True"}], "]"}]}], ";", 
   RowBox[{"Disp", "[", 
    RowBox[{"sol", ",", "0.2"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.708993423288382*^9, 3.7089934256627617`*^9}, {
  3.708993500168288*^9, 3.708993563194777*^9}, {3.7089935945134153`*^9, 
  3.708993610330594*^9}, {3.709075408109667*^9, 3.709075414383833*^9}, {
  3.8578826705401278`*^9, 3.857882671382484*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"18a44f77-9ab0-4c41-904e-b97c39531899"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Finding local minima...\"\>"], "Print",
 CellChangeTimes->{
  3.7089943343587914`*^9, 3.708994531822936*^9, 3.709075415119801*^9, 
   3.857690413700622*^9, 3.8579461340687857`*^9, 3.857948682305583*^9, {
   3.857950406564274*^9, 3.8579504107227907`*^9}},
 CellLabel->
  "During evaluation of \
In[85]:=",ExpressionUUID->"41457aa6-38c5-4552-9465-3d5460c163f5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Cos(twist):\"\>", "\[InvisibleSpace]", "0.09999999999209455`"}],
  SequenceForm["Cos(twist):", 0.09999999999209455],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7089943343587914`*^9, 3.708994531822936*^9, 3.709075415119801*^9, 
   3.857690413700622*^9, 3.8579461340687857`*^9, 3.857948682305583*^9, {
   3.857950406564274*^9, 3.857950410757184*^9}},
 CellLabel->
  "During evaluation of \
In[85]:=",ExpressionUUID->"ff55d232-b8f9-4b6d-aad8-7971c9559a94"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"total local twist:\"\>", "\[InvisibleSpace]", 
   "3.2768100370128836`"}],
  SequenceForm["total local twist:", 3.2768100370128836`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7089943343587914`*^9, 3.708994531822936*^9, 3.709075415119801*^9, 
   3.857690413700622*^9, 3.8579461340687857`*^9, 3.857948682305583*^9, {
   3.857950406564274*^9, 3.857950410759055*^9}},
 CellLabel->
  "During evaluation of \
In[85]:=",ExpressionUUID->"9959c1f4-f2d0-42f9-a851-07cc05d96fc0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writhe:\"\>", "\[InvisibleSpace]", "0.7231899629815607`"}],
  SequenceForm["Writhe:", 0.7231899629815607],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7089943343587914`*^9, 3.708994531822936*^9, 3.709075415119801*^9, 
   3.857690413700622*^9, 3.8579461340687857`*^9, 3.857948682305583*^9, {
   3.857950406564274*^9, 3.8579504107653112`*^9}},
 CellLabel->
  "During evaluation of \
In[85]:=",ExpressionUUID->"a4c78667-25c5-41a6-822b-353a2bc74ba5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Total half twist:\"\>", "\[InvisibleSpace]", 
   "3.999999999996087`"}],
  SequenceForm["Total half twist:", 3.999999999996087],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7089943343587914`*^9, 3.708994531822936*^9, 3.709075415119801*^9, 
   3.857690413700622*^9, 3.8579461340687857`*^9, 3.857948682305583*^9, {
   3.857950406564274*^9, 3.857950410766371*^9}},
 CellLabel->
  "During evaluation of \
In[85]:=",ExpressionUUID->"301a7236-ecb9-4686-ad9c-3ea4cb166b8f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge vectors:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "0.8715155823855091`"}], 
        RowBox[{"-", "0.5625157673445655`"}], "0.7184624000273304`", 
        RowBox[{"-", "0.6180387451461332`"}], 
        RowBox[{"-", "0.823436165052792`"}], "0"},
       {"0", "0.9949874371147869`", "0.05149243271242928`", 
        RowBox[{"-", "0.3065081432054567`"}], 
        RowBox[{"-", "0.5368668935277876`"}], 
        RowBox[{"-", "0.6540336354231471`"}], "0.5585274228746163`", "0"},
       {"1", "0.09999999999209455`", "0.4876567635788538`", 
        RowBox[{"-", "0.767872886440735`"}], 
        RowBox[{"-", "0.4422507417233271`"}], 
        RowBox[{"-", "0.4361973329667673`"}], "0.09999999999209455`", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge vectors:", 
   MatrixForm[{{
     0, 0, -0.8715155823855091, -0.5625157673445655, 
      0.7184624000273304, -0.6180387451461332, -0.823436165052792, 0}, {
     0, 0.9949874371147869, 
      0.05149243271242928, -0.3065081432054567, -0.5368668935277876, \
-0.6540336354231471, 0.5585274228746163, 0}, {
     1, 0.09999999999209455, 
      0.4876567635788538, -0.767872886440735, -0.4422507417233271, \
-0.4361973329667673, 0.09999999999209455, 1}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7089943343587914`*^9, 3.708994531822936*^9, 3.709075415119801*^9, 
   3.857690413700622*^9, 3.8579461340687857`*^9, 3.857948682305583*^9, {
   3.857950406564274*^9, 3.857950410767376*^9}},
 CellLabel->
  "During evaluation of \
In[85]:=",ExpressionUUID->"39792490-061a-4c9e-b379-9f87dc87cead"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Elastic Energy:\"\>", "\[InvisibleSpace]", 
   "6.459208781131028`"}],
  SequenceForm["Elastic Energy:", 6.459208781131028],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7089943343587914`*^9, 3.708994531822936*^9, 3.709075415119801*^9, 
   3.857690413700622*^9, 3.8579461340687857`*^9, 3.857948682305583*^9, {
   3.857950406564274*^9, 3.857950410768619*^9}},
 CellLabel->
  "During evaluation of \
In[85]:=",ExpressionUUID->"eae3182c-a29c-4e0d-af7a-c35f44cb39bc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Torsion Energy:\"\>", "\[InvisibleSpace]", 
   "4.184859005327198`"}],
  SequenceForm["Torsion Energy:", 4.184859005327198],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7089943343587914`*^9, 3.708994531822936*^9, 3.709075415119801*^9, 
   3.857690413700622*^9, 3.8579461340687857`*^9, 3.857948682305583*^9, {
   3.857950406564274*^9, 3.857950410769376*^9}},
 CellLabel->
  "During evaluation of \
In[85]:=",ExpressionUUID->"c0a4b1db-441a-44ba-824c-760cd2c11ad6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Target func:\"\>", "\[InvisibleSpace]", 
   "6.24962040393753`*^-23"}],
  SequenceForm["Target func:", 6.24962040393753*^-23],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7089943343587914`*^9, 3.708994531822936*^9, 3.709075415119801*^9, 
   3.857690413700622*^9, 3.8579461340687857`*^9, 3.857948682305583*^9, {
   3.857950406564274*^9, 3.857950410770103*^9}},
 CellLabel->
  "During evaluation of \
In[85]:=",ExpressionUUID->"5f2ec9de-bfcd-46ef-8388-47d8738349be"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Dipole energy:\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "20.7732978771979`"}]}],
  SequenceForm["Dipole energy:", -20.7732978771979],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7089943343587914`*^9, 3.708994531822936*^9, 3.709075415119801*^9, 
   3.857690413700622*^9, 3.8579461340687857`*^9, 3.857948682305583*^9, {
   3.857950406564274*^9, 3.857950410770874*^9}},
 CellLabel->
  "During evaluation of \
In[85]:=",ExpressionUUID->"0cfb02bb-1570-4d47-8f79-3a329af7db81"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge centre:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "0.9949874371147869`"}], 
        RowBox[{"-", "0.5149243270006074`"}], 
        RowBox[{"-", "0.404993200811219`"}], 
        RowBox[{"-", "0.6816852783020191`"}], 
        RowBox[{"-", "0.7367522315649355`"}], 
        RowBox[{"-", "0.5585274228553704`"}], "1.9245938176482014`*^-11"},
       {"0", "0", 
        RowBox[{"-", "0.08715155823166118`"}], 
        RowBox[{"-", "1.0306793626214266`"}], 
        RowBox[{"-", "1.8311401748687512`"}], 
        RowBox[{"-", "1.2444206986852953`"}], 
        RowBox[{"-", "0.8234361651111572`"}], 
        RowBox[{"-", "5.836509053835925`*^-11"}]},
       {"0", "0", "0.8671470557233586`", "1.1632389839546338`", 
        "1.6854496527246234`", "0.8837465361334927`", 
        "1.9888535263135054`*^-12", "1.9888535263135054`*^-12"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge centre:", 
   MatrixForm[{{
     0, -0.9949874371147869, -0.5149243270006074, -0.404993200811219, \
-0.6816852783020191, -0.7367522315649355, -0.5585274228553704, 
      1.9245938176482014`*^-11}, {
     0, 0, -0.08715155823166118, -1.0306793626214266`, -1.8311401748687512`, \
-1.2444206986852953`, -0.8234361651111572, -5.836509053835925*^-11}, {
     0, 0, 0.8671470557233586, 1.1632389839546338`, 1.6854496527246234`, 
      0.8837465361334927, 1.9888535263135054`*^-12, 
      1.9888535263135054`*^-12}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7089943343587914`*^9, 3.708994531822936*^9, 3.709075415119801*^9, 
   3.857690413700622*^9, 3.8579461340687857`*^9, 3.857948682305583*^9, {
   3.857950406564274*^9, 3.85795041077176*^9}},
 CellLabel->
  "During evaluation of \
In[85]:=",ExpressionUUID->"b0d49a2a-19b4-402b-a95f-36fd1669a7c8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"vertex position:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0.`", "0.`", 
        RowBox[{"-", "0.9949874371147869`"}], 
        RowBox[{"-", "0.9949874371147869`"}], 
        RowBox[{"-", "0.6892274434777093`"}], 
        RowBox[{"-", "0.3406212105235056`"}], 
        RowBox[{"-", "0.5174963542801321`"}], 
        RowBox[{"-", "0.2924900473423059`"}], 
        RowBox[{"-", "0.537992798296553`"}], 
        RowBox[{"-", "0.8253777583074852`"}], 
        RowBox[{"-", "0.8603599805941622`"}], 
        RowBox[{"-", "0.6131444825357089`"}], 
        RowBox[{"-", "0.7232146558659288`"}], 
        RowBox[{"-", "0.39384018984481195`"}], "1.9245938176482014`*^-11", 
        "1.9245938176482014`*^-11"},
       {"0.`", "0.`", "0.1989974874229574`", 
        RowBox[{"-", "0.1989974874229574`"}], 
        RowBox[{"-", "0.07685307168917532`"}], 
        RowBox[{"-", "0.09745004477414704`"}], 
        RowBox[{"-", "1.0919809912625178`"}], 
        RowBox[{"-", "0.9693777339803352`"}], 
        RowBox[{"-", "1.9385135535743088`"}], 
        RowBox[{"-", "1.7237667961631937`"}], 
        RowBox[{"-", "1.3752274257699246`"}], 
        RowBox[{"-", "1.1136139716006659`"}], 
        RowBox[{"-", "0.711730680536234`"}], 
        RowBox[{"-", "0.9351416496860805`"}], 
        RowBox[{"-", "5.836509053835925`*^-11"}], 
        RowBox[{"-", "5.836509053835925`*^-11"}]},
       {"0.2`", 
        RowBox[{"-", "0.2`"}], "0.01999999999841891`", 
        RowBox[{"-", "0.01999999999841891`"}], "0.9646784084391293`", 
        "0.7696157030075879`", "1.0096644066664868`", "1.3168135612427807`", 
        "1.596999504379958`", "1.7738998010692888`", "0.7965070695401393`", 
        "0.9709860027268462`", "0.020000000000407765`", 
        RowBox[{"-", "0.019999999996430057`"}], "0.20000000000198886`", 
        RowBox[{"-", "0.19999999999801116`"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["vertex position:", 
   MatrixForm[CompressedData["
1:eJxTTMoPSmViYGBgBmIBBkzw7/qpJ++vvd8Po9UOqW9T43u2/0zew+d7zlzd
b3RtbXNI/4P9fenvdTR2XNp/N9J1jY35w/2zb9yYW5f5ar8Hb95ywY7X+/dc
a9N9OO/x/tzLd/knqzzfb/TjXPVak5v7QXY4aG61RaaRwf/71q/2V5y0h9L7
GXobpi5Zs3l/TrlPcc2nHftZLEL5D1Z83P86QLZEhfX9fkvX7SfVWP7vv2j5
vbZnyu/9558rV75j+Lb/pbfbo5iLH/dXXejLrj/2bL/d+wC9dW/egu0X4b6w
F0bPmgkCJ+2h9P5QheXuD6um2EPp/VNevHFYeu+d/b9fMTIbF7yw3y2aeXeq
+gf73xXHJVYLfrWPW2IQ5d/7075s8v+DTxL/2BctvZbyp+alPcPeSzaBQu/t
p95fDzZPNHEe2LymjbPA9m1qnAG2DwDZCsUH
    "]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7089943343587914`*^9, 3.708994531822936*^9, 3.709075415119801*^9, 
   3.857690413700622*^9, 3.8579461340687857`*^9, 3.857948682305583*^9, {
   3.857950406564274*^9, 3.8579504107729197`*^9}},
 CellLabel->
  "During evaluation of \
In[85]:=",ExpressionUUID->"780882b9-9acc-41ca-b1e9-f6829d6bd365"]
}, Open  ]],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJxTTMoPSmViYGAQAGJmBkwwayYInLTHIb7/3/VTT95fe7///33rV/srTtqH
Kix3f1g1xR5NfD9UfL/aIfVtanzP9jP0Nkxdsmbz/ikv3jgsvffO/kzew+d7
zlzdn1PuU1zzacf+f79iZDYueGFvdG1tc0j/g/0sFqH8Bys+7t8tmnl3qvoH
+7709zoaOy7tfx0gW6LC+n7/74rjEqsFv9rfjXRdY2P+cL+l6/aTaiz/98ct
MYjy7/1pP/vGjbl1ma/2X7T8Xtsz5ff+ssn/Dz5J/GPvwZu3XLDj9f7zz5Ur
3zF821+09FrKn5qX9nuutek+nPd4/0tvt0cxFz/uZ9h7ySZQ6L197uW7/JNV
nu+vutCXXX/s2f6p99eD/Wv041z1WpOb++3eB+ite/N2v2jiPLB/QWHloLnV
FkSLcF/Y27RxFjw8kcU3Nc4AhycA7lTFBw==
   "], 
   Polygon3DBox[{{1, 2, 3}, {1, 2, 4}, {3, 4, 1}, {3, 4, 2}, {3, 4, 5}, {3, 4,
     6}, {5, 6, 3}, {5, 6, 4}, {5, 6, 7}, {5, 6, 8}, {7, 8, 5}, {7, 8, 6}, {7,
     8, 9}, {7, 8, 10}, {9, 10, 7}, {9, 10, 8}, {9, 10, 11}, {9, 10, 12}, {11,
     12, 9}, {11, 12, 10}, {11, 12, 13}, {11, 12, 14}, {13, 14, 11}, {13, 14, 
    12}, {13, 14, 15}, {13, 14, 16}, {15, 16, 13}, {15, 16, 14}}]],
  ImageSize->{359.106588140149, 319.17978226239296`},
  ImageSizeRaw->Automatic,
  ViewPoint->{3.1218239113533772`, -1.263068434290468, 0.32995999272840393`},
  ViewVertical->{0.5419965658146272, -0.1270451717514873, 
   0.8307221238054189}]], "Output",
 CellChangeTimes->{{3.708993510531905*^9, 3.7089935359576406`*^9}, 
   3.708993584822073*^9, 3.708994367032365*^9, 3.708994539785652*^9, 
   3.7090755526520777`*^9, 3.857690504156412*^9, 3.8579461341291437`*^9, 
   3.8579486824201183`*^9, {3.85795040662061*^9, 3.8579504107741613`*^9}},
 CellLabel->"Out[85]=",ExpressionUUID->"2542c38f-5fd1-46fe-a3c4-2b9b6b5fa7bf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Kn", " ", "with", " ", "minimal", " ", "averaged", " ", "hinge"}],
    " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"sol", "=", 
    RowBox[{"MKn", "[", 
     RowBox[{
      RowBox[{"HA", ".", "HA"}], ",", "True"}], "]"}]}], ";", 
   RowBox[{"Disp", "[", "sol", "]"}]}]}]], "Input",
 CellChangeTimes->{
  3.706013784109256*^9, {3.706013881431525*^9, 3.706013882835725*^9}, {
   3.708994382412475*^9, 3.7089944202026987`*^9}, {3.709075428446045*^9, 
   3.709075433917018*^9}, {3.857882723945916*^9, 3.857882728661399*^9}},
 CellLabel->
  "In[459]:=",ExpressionUUID->"86d36d27-18bb-4237-ac68-27a7870ae547"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Finding local minima...\"\>"], "Print",
 CellChangeTimes->{3.706013799890046*^9, 3.706013950028661*^9, 
  3.70601408383479*^9, 3.708994423401107*^9, 3.708994543515327*^9, 
  3.709077308060882*^9, 3.857688824016059*^9, 3.8576907077994328`*^9, 
  3.85769100439503*^9, 3.857946145534204*^9},
 CellLabel->
  "During evaluation of \
In[459]:=",ExpressionUUID->"9e58c32d-f5c6-4b63-8120-864cd40cba58"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Cos(twist):\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.2952713185522306`"}]}],
  SequenceForm["Cos(twist):", -0.2952713185522306],
  Editable->False]], "Print",
 CellChangeTimes->{3.706013799890046*^9, 3.706013950028661*^9, 
  3.70601408383479*^9, 3.708994423401107*^9, 3.708994543515327*^9, 
  3.709077308060882*^9, 3.857688824016059*^9, 3.8576907077994328`*^9, 
  3.85769100439503*^9, 3.857946145572982*^9},
 CellLabel->
  "During evaluation of \
In[459]:=",ExpressionUUID->"0ab936e4-7d4d-449e-914f-084cfb9428a1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"total local twist:\"\>", "\[InvisibleSpace]", 
   "4.167870292755019`"}],
  SequenceForm["total local twist:", 4.167870292755019],
  Editable->False]], "Print",
 CellChangeTimes->{3.706013799890046*^9, 3.706013950028661*^9, 
  3.70601408383479*^9, 3.708994423401107*^9, 3.708994543515327*^9, 
  3.709077308060882*^9, 3.857688824016059*^9, 3.8576907077994328`*^9, 
  3.85769100439503*^9, 3.857946145575371*^9},
 CellLabel->
  "During evaluation of \
In[459]:=",ExpressionUUID->"05759fd0-885d-469d-a337-54654aba4f6d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writhe:\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.16787029275481735`"}]}],
  SequenceForm["Writhe:", -0.16787029275481735`],
  Editable->False]], "Print",
 CellChangeTimes->{3.706013799890046*^9, 3.706013950028661*^9, 
  3.70601408383479*^9, 3.708994423401107*^9, 3.708994543515327*^9, 
  3.709077308060882*^9, 3.857688824016059*^9, 3.8576907077994328`*^9, 
  3.85769100439503*^9, 3.857946145576269*^9},
 CellLabel->
  "During evaluation of \
In[459]:=",ExpressionUUID->"5824e4c7-ccae-4cb6-a0d0-a0fe4a7b94b3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Total half twist:\"\>", "\[InvisibleSpace]", 
   "4.000000000000195`"}],
  SequenceForm["Total half twist:", 4.000000000000195],
  Editable->False]], "Print",
 CellChangeTimes->{3.706013799890046*^9, 3.706013950028661*^9, 
  3.70601408383479*^9, 3.708994423401107*^9, 3.708994543515327*^9, 
  3.709077308060882*^9, 3.857688824016059*^9, 3.8576907077994328`*^9, 
  3.85769100439503*^9, 3.857946145581077*^9},
 CellLabel->
  "During evaluation of \
In[459]:=",ExpressionUUID->"29da3f84-aa97-4754-a6a1-930ed8dd5b95"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge vectors:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0.8885639814927198`", 
        RowBox[{"-", "0.03225185767484381`"}], 
        RowBox[{"-", "0.30763932664961957`"}], "0.563591479379162`", 
        RowBox[{"-", "0.9535323171405865`"}], "0"},
       {"0", "0.9554134437197588`", 
        RowBox[{"-", "0.385774975564263`"}], "0.04868058901405409`", 
        RowBox[{"-", "0.9149788802092093`"}], "0.3471146771328714`", 
        "0.059924691146359045`", "0"},
       {"1", 
        RowBox[{"-", "0.2952713185522306`"}], 
        RowBox[{"-", "0.2482573644874574`"}], "0.9982935529843263`", 
        RowBox[{"-", "0.26109709586682955`"}], 
        RowBox[{"-", "0.7495839147759528`"}], 
        RowBox[{"-", "0.2952713185522306`"}], "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge vectors:", 
   MatrixForm[{{
     0, 0, 0.8885639814927198, -0.03225185767484381, -0.30763932664961957`, 
      0.563591479379162, -0.9535323171405865, 0}, {
     0, 0.9554134437197588, -0.385774975564263, 
      0.04868058901405409, -0.9149788802092093, 0.3471146771328714, 
      0.059924691146359045`, 0}, {
     1, -0.2952713185522306, -0.2482573644874574, 
      0.9982935529843263, -0.26109709586682955`, -0.7495839147759528, \
-0.2952713185522306, 1}}]],
  Editable->False]], "Print",
 CellChangeTimes->{3.706013799890046*^9, 3.706013950028661*^9, 
  3.70601408383479*^9, 3.708994423401107*^9, 3.708994543515327*^9, 
  3.709077308060882*^9, 3.857688824016059*^9, 3.8576907077994328`*^9, 
  3.85769100439503*^9, 3.857946145582358*^9},
 CellLabel->
  "During evaluation of \
In[459]:=",ExpressionUUID->"e116b8f6-63c7-4e5a-9e2e-3b1df97ca109"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Elastic Energy:\"\>", "\[InvisibleSpace]", 
   "3.3424407276370194`"}],
  SequenceForm["Elastic Energy:", 3.3424407276370194`],
  Editable->False]], "Print",
 CellChangeTimes->{3.706013799890046*^9, 3.706013950028661*^9, 
  3.70601408383479*^9, 3.708994423401107*^9, 3.708994543515327*^9, 
  3.709077308060882*^9, 3.857688824016059*^9, 3.8576907077994328`*^9, 
  3.85769100439503*^9, 3.857946145583424*^9},
 CellLabel->
  "During evaluation of \
In[459]:=",ExpressionUUID->"1e92b3f8-ab47-4562-8d8d-43668c156017"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Torsion Energy:\"\>", "\[InvisibleSpace]", 
   "7.301627058693896`"}],
  SequenceForm["Torsion Energy:", 7.301627058693896],
  Editable->False]], "Print",
 CellChangeTimes->{3.706013799890046*^9, 3.706013950028661*^9, 
  3.70601408383479*^9, 3.708994423401107*^9, 3.708994543515327*^9, 
  3.709077308060882*^9, 3.857688824016059*^9, 3.8576907077994328`*^9, 
  3.85769100439503*^9, 3.857946145584242*^9},
 CellLabel->
  "During evaluation of \
In[459]:=",ExpressionUUID->"9ca21f75-2aff-4954-b5a0-a2830392f8c1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Target func:\"\>", "\[InvisibleSpace]", 
   "0.05952465122878555`"}],
  SequenceForm["Target func:", 0.05952465122878555],
  Editable->False]], "Print",
 CellChangeTimes->{3.706013799890046*^9, 3.706013950028661*^9, 
  3.70601408383479*^9, 3.708994423401107*^9, 3.708994543515327*^9, 
  3.709077308060882*^9, 3.857688824016059*^9, 3.8576907077994328`*^9, 
  3.85769100439503*^9, 3.857946145585053*^9},
 CellLabel->
  "During evaluation of \
In[459]:=",ExpressionUUID->"33fc4506-db59-45d7-b1cc-8085bbb670e0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Dipole energy:\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "4.22993950144428`"}]}],
  SequenceForm["Dipole energy:", -4.22993950144428],
  Editable->False]], "Print",
 CellChangeTimes->{3.706013799890046*^9, 3.706013950028661*^9, 
  3.70601408383479*^9, 3.708994423401107*^9, 3.708994543515327*^9, 
  3.709077308060882*^9, 3.857688824016059*^9, 3.8576907077994328`*^9, 
  3.85769100439503*^9, 3.857946145585862*^9},
 CellLabel->
  "During evaluation of \
In[459]:=",ExpressionUUID->"0268c076-649e-4768-8124-6e587692441d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge centre:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "0.9554134437197588`"}], 
        RowBox[{"-", "1.3065101529528262`"}], 
        RowBox[{"-", "1.6795415092309898`"}], 
        RowBox[{"-", "0.7788343524179743`"}], 
        RowBox[{"-", "0.0023502673212925096`"}], 
        RowBox[{"-", "0.05992469114591947`"}], "4.3920422854171193`*^-13"},
       {"0", "0", 
        RowBox[{"-", "0.26236745843337517`"}], 
        RowBox[{"-", "1.1414083913854602`"}], 
        RowBox[{"-", "1.4569436141994268`"}], 
        RowBox[{"-", "1.834697203529676`"}], 
        RowBox[{"-", "0.9535323171409624`"}], 
        RowBox[{"-", "3.75921516138078`*^-13"}]},
       {"0", "0", 
        RowBox[{"-", "0.8489459735232994`"}], 
        RowBox[{"-", "0.8181321151339757`"}], 
        RowBox[{"-", "0.7736462828887898`"}], 
        RowBox[{"-", "0.36475810773434914`"}], "1.801891968966629`*^-13", 
        "1.801891968966629`*^-13"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge centre:", 
   MatrixForm[{{
     0, -0.9554134437197588, -1.3065101529528262`, -1.6795415092309898`, \
-0.7788343524179743, -0.0023502673212925096`, -0.05992469114591947, 
      4.3920422854171193`*^-13}, {
     0, 0, -0.26236745843337517`, -1.1414083913854602`, -1.4569436141994268`, \
-1.834697203529676, -0.9535323171409624, -3.75921516138078*^-13}, {
     0, 0, -0.8489459735232994, -0.8181321151339757, -0.7736462828887898, \
-0.36475810773434914`, 1.801891968966629*^-13, 1.801891968966629*^-13}}]],
  Editable->False]], "Print",
 CellChangeTimes->{3.706013799890046*^9, 3.706013950028661*^9, 
  3.70601408383479*^9, 3.708994423401107*^9, 3.708994543515327*^9, 
  3.709077308060882*^9, 3.857688824016059*^9, 3.8576907077994328`*^9, 
  3.85769100439503*^9, 3.857946145586855*^9},
 CellLabel->
  "During evaluation of \
In[459]:=",ExpressionUUID->"7e7099b6-2bf7-4923-b141-4dea7b950a8d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"vertex position:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0.`", "0.`", 
        RowBox[{"-", "0.9554134437197588`"}], 
        RowBox[{"-", "0.9554134437197588`"}], 
        RowBox[{"-", "0.8622281622064664`"}], 
        RowBox[{"-", "1.750792143699186`"}], 
        RowBox[{"-", "1.6956674380684116`"}], 
        RowBox[{"-", "1.663415580393568`"}], 
        RowBox[{"-", "0.9326540157427841`"}], 
        RowBox[{"-", "0.6250146890931645`"}], "0.2794454723682885`", 
        RowBox[{"-", "0.2841460070108735`"}], 
        RowBox[{"-", "0.5366908497162127`"}], "0.4168414674243738`", 
        "4.3920422854171193`*^-13", "4.3920422854171193`*^-13"},
       {"0.`", "0.`", "0.4777067218598794`", 
        RowBox[{"-", "0.4777067218598794`"}], 
        RowBox[{"-", "0.45525494621550666`"}], 
        RowBox[{"-", "0.06947997065124367`"}], 
        RowBox[{"-", "1.1170680968784332`"}], 
        RowBox[{"-", "1.1657486858924873`"}], 
        RowBox[{"-", "1.9144330543040313`"}], 
        RowBox[{"-", "0.9994541740948222`"}], 
        RowBox[{"-", "1.6611398649632403`"}], 
        RowBox[{"-", "2.0082545420961115`"}], 
        RowBox[{"-", "0.9235699715677829`"}], 
        RowBox[{"-", "0.983494662714142`"}], 
        RowBox[{"-", "3.75921516138078`*^-13"}], 
        RowBox[{"-", "3.75921516138078`*^-13"}]},
       {"0.5`", 
        RowBox[{"-", "0.5`"}], 
        RowBox[{"-", "0.1476356592761153`"}], "0.1476356592761153`", 
        RowBox[{"-", "0.973074655767028`"}], 
        RowBox[{"-", "0.7248172912795707`"}], 
        RowBox[{"-", "0.3189853386418125`"}], 
        RowBox[{"-", "1.3172788916261389`"}], 
        RowBox[{"-", "0.9041948308222045`"}], 
        RowBox[{"-", "0.643097734955375`"}], 
        RowBox[{"-", "0.7395500651223255`"}], "0.010033849653627247`", 
        RowBox[{"-", "0.1476356592759351`"}], "0.1476356592762955`", 
        "0.5000000000001802`", 
        RowBox[{"-", "0.4999999999998198`"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["vertex position:", 
   MatrixForm[CompressedData["
1:eJxTTMoPSmViYGBgBmIBBkwQ8eau2f5J7/bDaOl9p5vjp7/e/6+xZL4d85/9
+0K/6ZYo/t5/T/368si5v/bXqTLb+N54u79nuuo5OYYn+ydOMnXOf3TR/uGS
m7uL9C/tX/rvk+cknYf7Lwn3Xm1fe8sebMmLOFsUGsP+e/ZQer/O/NAlT5Xu
7n8weU1lwcmN+2W/fz/ddP/jfmkzEYkXyz7tF3nwsrdl4b/9DRc+Bbb/fr8/
dapiKvuUX/sVjz46+FyA4cDdgndzHvW+3b95V8uZkxXv94MtKYnai0IzPLCH
0vuLrTXW7Hx6CEbbW+1/VJqr/H7/vvvGHFsMn++3XB9e7Zh1Zb/y28/sk4W/
7v/0r+i/5vs3+39VVWx2nPJk/7X+d09TVj3fv0D9TcOCnhZ7cSWIeedDIOaF
s0HsC/r8Hwju7wcAfBS/ew==
    "]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.706013799890046*^9, 3.706013950028661*^9, 
  3.70601408383479*^9, 3.708994423401107*^9, 3.708994543515327*^9, 
  3.709077308060882*^9, 3.857688824016059*^9, 3.8576907077994328`*^9, 
  3.85769100439503*^9, 3.857946145588724*^9},
 CellLabel->
  "During evaluation of \
In[459]:=",ExpressionUUID->"78a6cdc9-4133-45fa-8c7e-6b5b5dafa16c"]
}, Open  ]],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJxTTMoPSmViYGAQAGJmBlzggT0O8f0Rb+6a7Z/0Dkrfsy+21liz8+khdPH9
UHF76X2nm+Onv96vMz90yVOlu/ut9j8qzVV+v/9fY8l8O+Y/+x9MXlNZcHLj
/n33jTm2GD7fvy/0m26J4u/9st+/n266/3G/5frwasesK/vvqV9fHjn3135p
MxGJF8s+7Vd++5l9svDX/XWqzDa+N97uF3nwsrdl4b/9n/4V/dd8/2Z/z3TV
c3IMT/Y3XPgU2P77/f5fVRWbHac82T9xkqlz/qOL9qlTFVPZp/zaf63/3dOU
Vc/3P1xyc3eR/qX9ikcfHXwuwHBggfqbhgU9LfZL/33ynKTzcP/dgndzHvW+
3S+uBPHvJeHeq+1rb9lv3tVy5mTF+/3nQyD+BQfTizhbMF0StTecDSk8kcSD
Pv8Hgvv7AaJqv3s=
   "], 
   Polygon3DBox[{{1, 2, 3}, {1, 2, 4}, {3, 4, 1}, {3, 4, 2}, {3, 4, 5}, {3, 4,
     6}, {5, 6, 3}, {5, 6, 4}, {5, 6, 7}, {5, 6, 8}, {7, 8, 5}, {7, 8, 6}, {7,
     8, 9}, {7, 8, 10}, {9, 10, 7}, {9, 10, 8}, {9, 10, 11}, {9, 10, 12}, {11,
     12, 9}, {11, 12, 10}, {11, 12, 13}, {11, 12, 14}, {13, 14, 11}, {13, 14, 
    12}, {13, 14, 15}, {13, 14, 16}, {15, 16, 13}, {15, 16, 14}}]],
  ImageSize->{391.05843305438054`, 443.9370903048896},
  ImageSizeRaw->Automatic,
  ViewPoint->{-0.9920447954699506, -2.5714429933065746`, 1.9630405130703514`},
  
  ViewVertical->{-0.5734671479119569, 0.08388815810311058, 
   0.8149222092910423}]], "Output",
 CellChangeTimes->{3.709077315405839*^9, 3.8576892336770067`*^9, 
  3.857690826520994*^9, 3.857691082416272*^9, 3.857946145590559*^9},
 CellLabel->
  "Out[459]=",ExpressionUUID->"166ff5a1-eddc-4fff-b860-2414097ac11e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Non", " ", "Orientable", " ", "Kaleidocycle"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Setup", "[", 
    RowBox[{"8", ",", "False", ",", "0"}], "]"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.709077146348349*^9, 3.709077171964669*^9}, {
   3.709077210428977*^9, 3.7090772160498962`*^9}, 3.709077311047862*^9, {
   3.70908623112943*^9, 3.709086232893342*^9}, {3.7091009535122833`*^9, 
   3.7091009547586412`*^9}, {3.709101018853057*^9, 3.7091010199983397`*^9}, {
   3.709101091728858*^9, 3.7091011208266907`*^9}, {3.7091012147341623`*^9, 
   3.7091012154665947`*^9}, {3.709101317948263*^9, 3.709101318449707*^9}, {
   3.709148368031294*^9, 3.7091483911751003`*^9}, {3.709148443024454*^9, 
   3.709148447970037*^9}, {3.7242405179617968`*^9, 3.724240519046316*^9}, {
   3.724240624000083*^9, 3.724240624553645*^9}, {3.724278746185136*^9, 
   3.72427874786771*^9}, {3.724289425394829*^9, 3.724289426460992*^9}, {
   3.7243090948670464`*^9, 3.724309095661729*^9}, {3.7243127582967587`*^9, 
   3.72431276262939*^9}, {3.8576238615339117`*^9, 3.857623862863098*^9}},
 CellLabel->
  "In[461]:=",ExpressionUUID->"49ef6a38-d8da-4234-a034-47d5ef581441"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Setup \"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\" tetrahedra system with slide=\"\>", 
   "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" oriented=\"\>", 
   "\[InvisibleSpace]", "False", 
   "\[InvisibleSpace]", "\<\" free (non-constant) twist angle=\"\>", 
   "\[InvisibleSpace]", "False"}],
  SequenceForm[
  "Setup ", 8, " tetrahedra system with slide=", 0, " oriented=", False, 
   " free (non-constant) twist angle=", False],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.70907717673419*^9, 3.7090772175507317`*^9, 3.709077318067511*^9, 
   3.70907735801989*^9, 3.709077579503154*^9, 3.709077691364313*^9, {
   3.709077828161105*^9, 3.709077852260437*^9}, 3.7090863027085667`*^9, 
   3.709091881905142*^9, 3.70909380201676*^9, 3.709100961326057*^9, 
   3.7091010211209106`*^9, {3.709101093333516*^9, 3.70910112139016*^9}, 
   3.709101216541366*^9, 3.709101319563011*^9, {3.709148344881857*^9, 
   3.709148370974679*^9}, 3.709148450632155*^9, 3.7242405198591003`*^9, 
   3.7242894271423597`*^9, 3.724309096553845*^9, 3.724309151764164*^9, 
   3.724309196267858*^9, 3.7243127659358387`*^9, 3.857617953621331*^9, 
   3.857619631534589*^9, 3.857691266201961*^9, 3.85788314117397*^9, 
   3.857883262994773*^9, 3.8578836160864563`*^9, 3.8578836773274393`*^9, 
   3.857883747974166*^9, 3.8578839495114098`*^9, 3.857884037996398*^9, 
   3.857946163228204*^9},
 CellLabel->
  "During evaluation of \
In[461]:=",ExpressionUUID->"0d8b3219-3b1c-4aa9-800d-67a051d48273"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"minimum", " ", "twist", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"maximising", " ", "cos"}], "=", 
      RowBox[{"h", "[", 
       RowBox[{"2", ",", "3"}], "]"}]}], ")"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"sol", "=", 
    RowBox[{"MKn", "[", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"h", "[", 
        RowBox[{"2", ",", "3"}], "]"}]}], ",", "True"}], "]"}]}], ";", " ", 
   RowBox[{"Disp", "[", "sol", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.709086189504573*^9, 3.709086245311597*^9}, {
  3.709086306194466*^9, 3.709086312531002*^9}, {3.857690329342785*^9, 
  3.8576903766871567`*^9}, {3.857883674299449*^9, 3.857883675157761*^9}},
 CellLabel->
  "In[462]:=",ExpressionUUID->"f437f947-b786-4e83-9896-420510cb41e8"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Finding local minima...\"\>"], "Print",
 CellChangeTimes->{
  3.709086235302814*^9, 3.709086313991185*^9, 3.7090938037134943`*^9, 
   3.709148347135767*^9, 3.709148453265773*^9, 3.7242405221944437`*^9, 
   3.7243127764760103`*^9, 3.857617956927328*^9, 3.857619637453145*^9, 
   3.8576912757611637`*^9, 3.8578837522887487`*^9, 3.857883959485384*^9, 
   3.857884050126731*^9, {3.857946158933139*^9, 3.857946165365493*^9}},
 CellLabel->
  "During evaluation of \
In[462]:=",ExpressionUUID->"64e141ac-4af8-4d93-a050-7a0059792a50"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Cos(twist):\"\>", "\[InvisibleSpace]", "0.4699589259405675`"}],
  
  SequenceForm["Cos(twist):", 0.4699589259405675],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.709086235302814*^9, 3.709086313991185*^9, 3.7090938037134943`*^9, 
   3.709148347135767*^9, 3.709148453265773*^9, 3.7242405221944437`*^9, 
   3.7243127764760103`*^9, 3.857617956927328*^9, 3.857619637453145*^9, 
   3.8576912757611637`*^9, 3.8578837522887487`*^9, 3.857883959485384*^9, 
   3.857884050126731*^9, {3.857946158933139*^9, 3.857946165415885*^9}},
 CellLabel->
  "During evaluation of \
In[462]:=",ExpressionUUID->"900b2176-0796-4da2-bfab-3df1d2910262"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"total local twist:\"\>", "\[InvisibleSpace]", 
   "2.7541497616808117`"}],
  SequenceForm["total local twist:", 2.7541497616808117`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.709086235302814*^9, 3.709086313991185*^9, 3.7090938037134943`*^9, 
   3.709148347135767*^9, 3.709148453265773*^9, 3.7242405221944437`*^9, 
   3.7243127764760103`*^9, 3.857617956927328*^9, 3.857619637453145*^9, 
   3.8576912757611637`*^9, 3.8578837522887487`*^9, 3.857883959485384*^9, 
   3.857884050126731*^9, {3.857946158933139*^9, 3.8579461654176207`*^9}},
 CellLabel->
  "During evaluation of \
In[462]:=",ExpressionUUID->"1eea30d6-6498-4470-b7ec-cc9bf1ad155c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writhe:\"\>", "\[InvisibleSpace]", "0.24585023831715946`"}],
  SequenceForm["Writhe:", 0.24585023831715946`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.709086235302814*^9, 3.709086313991185*^9, 3.7090938037134943`*^9, 
   3.709148347135767*^9, 3.709148453265773*^9, 3.7242405221944437`*^9, 
   3.7243127764760103`*^9, 3.857617956927328*^9, 3.857619637453145*^9, 
   3.8576912757611637`*^9, 3.8578837522887487`*^9, 3.857883959485384*^9, 
   3.857884050126731*^9, {3.857946158933139*^9, 3.857946165423563*^9}},
 CellLabel->
  "During evaluation of \
In[462]:=",ExpressionUUID->"845d7b79-3ce3-4d60-9984-48fdcee9517e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Total half twist:\"\>", "\[InvisibleSpace]", 
   "5.491700476636197`"}],
  SequenceForm["Total half twist:", 5.491700476636197],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.709086235302814*^9, 3.709086313991185*^9, 3.7090938037134943`*^9, 
   3.709148347135767*^9, 3.709148453265773*^9, 3.7242405221944437`*^9, 
   3.7243127764760103`*^9, 3.857617956927328*^9, 3.857619637453145*^9, 
   3.8576912757611637`*^9, 3.8578837522887487`*^9, 3.857883959485384*^9, 
   3.857884050126731*^9, {3.857946158933139*^9, 3.857946165424513*^9}},
 CellLabel->
  "During evaluation of \
In[462]:=",ExpressionUUID->"3253c98a-157e-4cc2-a4bd-7d3aa0a6df3e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge vectors:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0.8595787990520608`", "0.7240606632999818`", 
        "0.021457462030311215`", 
        RowBox[{"-", "0.02176862248875239`"}], 
        RowBox[{"-", "0.7242524574945883`"}], 
        RowBox[{"-", "0.8596154228067655`"}], "0"},
       {"0", "0.8826882846900214`", "0.5091273935291535`", 
        RowBox[{"-", "0.2439594256436165`"}], "0.4703429625432039`", 
        "0.9997630111458623`", "0.45441499356218396`", "0.20049920898404502`",
         "0"},
       {"1", "0.4699589259405675`", "0.04374454686000915`", 
        RowBox[{"-", "0.645151109820424`"}], 
        RowBox[{"-", "0.8822228034401769`"}], 
        RowBox[{"-", "0.0002204985260224282`"}], "0.5186187341775392`", 
        RowBox[{"-", "0.4699589259405675`"}], 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge vectors:", 
   MatrixForm[{{
     0, 0, 0.8595787990520608, 0.7240606632999818, 
      0.021457462030311215`, -0.02176862248875239, -0.7242524574945883, \
-0.8596154228067655, 0}, {
     0, 0.8826882846900214, 0.5091273935291535, -0.2439594256436165, 
      0.4703429625432039, 0.9997630111458623, 0.45441499356218396`, 
      0.20049920898404502`, 0}, {
     1, 0.4699589259405675, 
      0.04374454686000915, -0.645151109820424, -0.8822228034401769, \
-0.0002204985260224282, 0.5186187341775392, -0.4699589259405675, -1}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.709086235302814*^9, 3.709086313991185*^9, 3.7090938037134943`*^9, 
   3.709148347135767*^9, 3.709148453265773*^9, 3.7242405221944437`*^9, 
   3.7243127764760103`*^9, 3.857617956927328*^9, 3.857619637453145*^9, 
   3.8576912757611637`*^9, 3.8578837522887487`*^9, 3.857883959485384*^9, 
   3.857884050126731*^9, {3.857946158933139*^9, 3.857946165425392*^9}},
 CellLabel->
  "During evaluation of \
In[462]:=",ExpressionUUID->"394345b3-bace-4f6b-8cd8-e6ac1c5b8672"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Elastic Energy:\"\>", "\[InvisibleSpace]", 
   "2.836488864728451`"}],
  SequenceForm["Elastic Energy:", 2.836488864728451],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.709086235302814*^9, 3.709086313991185*^9, 3.7090938037134943`*^9, 
   3.709148347135767*^9, 3.709148453265773*^9, 3.7242405221944437`*^9, 
   3.7243127764760103`*^9, 3.857617956927328*^9, 3.857619637453145*^9, 
   3.8576912757611637`*^9, 3.8578837522887487`*^9, 3.857883959485384*^9, 
   3.857884050126731*^9, {3.857946158933139*^9, 3.857946165426478*^9}},
 CellLabel->
  "During evaluation of \
In[462]:=",ExpressionUUID->"a04fa59f-48fc-4903-bc64-57afde4b5a93"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Torsion Energy:\"\>", "\[InvisibleSpace]", 
   "2.463301773574628`"}],
  SequenceForm["Torsion Energy:", 2.463301773574628],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.709086235302814*^9, 3.709086313991185*^9, 3.7090938037134943`*^9, 
   3.709148347135767*^9, 3.709148453265773*^9, 3.7242405221944437`*^9, 
   3.7243127764760103`*^9, 3.857617956927328*^9, 3.857619637453145*^9, 
   3.8576912757611637`*^9, 3.8578837522887487`*^9, 3.857883959485384*^9, 
   3.857884050126731*^9, {3.857946158933139*^9, 3.857946165427134*^9}},
 CellLabel->
  "During evaluation of \
In[462]:=",ExpressionUUID->"915fc678-7639-4086-bdee-3ad22065e4f0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Target func:\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.4699589259405675`"}]}],
  SequenceForm["Target func:", -0.4699589259405675],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.709086235302814*^9, 3.709086313991185*^9, 3.7090938037134943`*^9, 
   3.709148347135767*^9, 3.709148453265773*^9, 3.7242405221944437`*^9, 
   3.7243127764760103`*^9, 3.857617956927328*^9, 3.857619637453145*^9, 
   3.8576912757611637`*^9, 3.8578837522887487`*^9, 3.857883959485384*^9, 
   3.857884050126731*^9, {3.857946158933139*^9, 3.857946165427812*^9}},
 CellLabel->
  "During evaluation of \
In[462]:=",ExpressionUUID->"c1ac1cb0-8383-4e74-a294-c487883c352f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge centre:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "0.8826882846900214`"}], 
        RowBox[{"-", "1.0833444486874992`"}], 
        RowBox[{"-", "1.4011366571358042`"}], 
        RowBox[{"-", "0.8824678044378634`"}], 
        RowBox[{"-", "0.0005577878989337925`"}], "0.5180382372553414`", 
        "0.20049920898266393`", 
        RowBox[{"-", "1.3810064203312322`*^-12"}]},
       {"0", "0", "0.4039667291637894`", "0.9901986509655489`", 
        "1.615138173760028`", "1.6343476802578358`", "1.645796992297087`", 
        "0.859615422807579`", "8.135714324453147`*^-13"},
       {"0", "0", 
        RowBox[{"-", "0.7587401356911722`"}], 
        RowBox[{"-", "1.337081604066252`"}], 
        RowBox[{"-", "0.9912900165160571`"}], 
        RowBox[{"-", "0.9595989212732405`"}], 
        RowBox[{"-", "0.24541009198674435`"}], "1.5303314171433158`*^-12", 
        "1.5303314171433158`*^-12"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge centre:", 
   MatrixForm[{{
     0, -0.8826882846900214, -1.0833444486874992`, -1.4011366571358042`, \
-0.8824678044378634, -0.0005577878989337925, 0.5180382372553414, 
      0.20049920898266393`, -1.3810064203312322`*^-12}, {
     0, 0, 0.4039667291637894, 0.9901986509655489, 1.615138173760028, 
      1.6343476802578358`, 1.645796992297087, 0.859615422807579, 
      8.135714324453147*^-13}, {
     0, 0, -0.7587401356911722, -1.337081604066252, -0.9912900165160571, \
-0.9595989212732405, -0.24541009198674435`, 1.5303314171433158`*^-12, 
      1.5303314171433158`*^-12}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.709086235302814*^9, 3.709086313991185*^9, 3.7090938037134943`*^9, 
   3.709148347135767*^9, 3.709148453265773*^9, 3.7242405221944437`*^9, 
   3.7243127764760103`*^9, 3.857617956927328*^9, 3.857619637453145*^9, 
   3.8576912757611637`*^9, 3.8578837522887487`*^9, 3.857883959485384*^9, 
   3.857884050126731*^9, {3.857946158933139*^9, 3.857946165450221*^9}},
 CellLabel->
  "During evaluation of \
In[462]:=",ExpressionUUID->"dd466285-c7fb-4b7f-9ec1-2b4c6b886d3c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"vertex position:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0.`", "0.`", 
        RowBox[{"-", "0.8826882846900214`"}], 
        RowBox[{"-", "0.8826882846900214`"}], 
        RowBox[{"-", "0.6535550491614688`"}], 
        RowBox[{"-", "1.5131338482135297`"}], 
        RowBox[{"-", "1.0391063254858133`"}], 
        RowBox[{"-", "1.763166988785795`"}], 
        RowBox[{"-", "0.8717390734227078`"}], 
        RowBox[{"-", "0.893196535453019`"}], 
        RowBox[{"-", "0.011442099143309988`"}], "0.010326523345442403`", 
        "0.1559120085080472`", "0.8801644660026355`", 
        RowBox[{"-", "0.22930850242071882`"}], "0.6303069203860467`", 
        RowBox[{"-", "1.3810064203312322`*^-12"}], 
        RowBox[{"-", "1.3810064203312322`*^-12"}]},
       {"0.`", "0.`", "0.4413441423450107`", 
        RowBox[{"-", "0.4413441423450107`"}], "0.6585304259283662`", 
        "0.14940303239921265`", "0.8682189381437406`", "1.1121783637873572`", 
        "1.85030965503163`", "1.3799666924884262`", "2.134229185830767`", 
        "1.1344661746849047`", "1.873004489078179`", "1.418589495515995`", 
        "0.9598650272996014`", "0.7593658183155565`", 
        "8.135714324453147`*^-13", "8.135714324453147`*^-13"},
       {"0.5`", 
        RowBox[{"-", "0.5`"}], "0.23497946297028374`", 
        RowBox[{"-", "0.23497946297028374`"}], 
        RowBox[{"-", "0.7368678622611676`"}], 
        RowBox[{"-", "0.7806124091211767`"}], 
        RowBox[{"-", "1.6596571589764642`"}], 
        RowBox[{"-", "1.01450604915604`"}], 
        RowBox[{"-", "1.4324014182361455`"}], 
        RowBox[{"-", "0.5501786147959686`"}], 
        RowBox[{"-", "0.9597091705362517`"}], 
        RowBox[{"-", "0.9594886720102294`"}], "0.013899275102025266`", 
        RowBox[{"-", "0.504719459075514`"}], 
        RowBox[{"-", "0.2349794629687534`"}], "0.23497946297181407`", 
        RowBox[{"-", "0.49999999999846967`"}], "0.5000000000015303`"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["vertex position:", 
   MatrixForm[CompressedData["
1:eJxTTMoPSmViYGBgBmIhBkww9VRmw2+7N/thNJOEp/ubl0/2dx7uuHba9Mf+
V8UBX3QXfNhf1LN42jvTP/sN78WHez59vX9p1dRnAlPf7J/48GPPl7z2/ROb
0xqE1FrtJRzP7Hjz5bD9rSWTVvtpvbGft9db+Xfk2f1VLAbZldpP7EF2NnhX
7EWmMd1zxx5K718hEJm2Tuip/aNvnJWL5Q/b/+FWFi0+8do+bqJNV/Xpj/YL
wv9635v11/7My5gv4SLf7NfURR14JsTocJLzNcMxtU/2KxfK9l3+/td+Prf0
s65N3+wF8mbdMdv+zv7DpuzunT4vwO5hWJBji0IzPLCH0vs7DSNmnRM+Zw+l
9ysG27zMnvJ8P+d9hgfHfr3Yf4fFbdWX3l/7G5peb8yy/rB/tvjD/bKvv+3v
sN6gJzD74f5zvxczftj6br9RcOo0xS3v9jesYVKwLO+xf+blk7NS7cF+zahw
sLkvOSLB9gRM+Q8E9/ffMIW4AwDaac0G
    "]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.709086235302814*^9, 3.709086313991185*^9, 3.7090938037134943`*^9, 
   3.709148347135767*^9, 3.709148453265773*^9, 3.7242405221944437`*^9, 
   3.7243127764760103`*^9, 3.857617956927328*^9, 3.857619637453145*^9, 
   3.8576912757611637`*^9, 3.8578837522887487`*^9, 3.857883959485384*^9, 
   3.857884050126731*^9, {3.857946158933139*^9, 3.8579461654516973`*^9}},
 CellLabel->
  "During evaluation of \
In[462]:=",ExpressionUUID->"a2484234-61ac-4c3c-8acf-f6ff99354fea"]
}, Open  ]],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJxTTMoPSmViYGAQAmJmBlzggT0O8f1TT2U2/LZ7A6Xv2HcaRsw6J3zOHk18
P1R8P5OEp/ubl0/2rxCITFsn9NReMdjmZfaU5/s7D3dcO236Y/+jb5yVi+UP
23PeZ3hw7NeL/a+KA77oLviw/w+3smjxidf2d1jcVn3p/bW/qGfxtHemf/bH
TbTpqj790b6h6fXGLOsP+w3vxYd7Pn29f0H4X+97s/7azxZ/uF/29bf9S6um
PhOY+mb/mZcxX8JFvtl3WG/QE5j9cP/Ehx97vuS1719TF3XgmRCjw7nfixk/
bH23f2JzWoOQWqv9Sc7XDMfUPtkbBadOU9zybr+E45kdb74ctl+5ULbv8ve/
9g1rmBQsy3vsby2ZtNpP6439fG7pZ12bvtk/8/LJWan2YP+8vd7KvyPP7hfI
m3XHbPs7e82ocHA4VLEYZFdqP7H/sCm7e6fPC/uXHJHgcAOFaoN3xV5w8C7I
sQ2Y8h8I7u9HF79hCokXAHxnzQY=
   "], 
   Polygon3DBox[{{1, 2, 3}, {1, 2, 4}, {3, 4, 1}, {3, 4, 2}, {3, 4, 5}, {3, 4,
     6}, {5, 6, 3}, {5, 6, 4}, {5, 6, 7}, {5, 6, 8}, {7, 8, 5}, {7, 8, 6}, {7,
     8, 9}, {7, 8, 10}, {9, 10, 7}, {9, 10, 8}, {9, 10, 11}, {9, 10, 12}, {11,
     12, 9}, {11, 12, 10}, {11, 12, 13}, {11, 12, 14}, {13, 14, 11}, {13, 14, 
    12}, {13, 14, 15}, {13, 14, 16}, {15, 16, 13}, {15, 16, 14}, {15, 16, 
    17}, {15, 16, 18}, {17, 18, 15}, {17, 18, 16}}]],
  ImageSize->{400.48248097475204`, 375.3991055143103},
  ImageSizeRaw->Automatic,
  ViewPoint->{1.6852842529029082`, 0.03681229018694676, 2.934018037130767},
  ViewVertical->{-0.09019798253146978, 0.6511195214844716, 
   0.7535965052261624}]], "Output",
 CellChangeTimes->{
  3.857691403168709*^9, 3.857883764859166*^9, 3.8578839915532923`*^9, 
   3.857884050137024*^9, {3.8579461590073757`*^9, 3.857946165452943*^9}},
 CellLabel->
  "Out[462]=",ExpressionUUID->"c92dd5e3-614d-40b9-ac52-c61cc5a5291f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"minimum", " ", "writhe"}], ";", " ", 
    RowBox[{
    "should", " ", "be", " ", "equal", " ", "to", " ", "maximum", " ", 
     "torsion"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"sol", "=", 
    RowBox[{"MKn", "[", 
     RowBox[{
      RowBox[{"Writhe", "[", "M", "]"}], ",", "True"}], "]"}]}], ";", " ", 
   RowBox[{"Disp", "[", "sol", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.857690734908358*^9, 3.857690759921348*^9}, {
  3.857693374917095*^9, 3.8576933762116547`*^9}, {3.8576950898477497`*^9, 
  3.857695104506625*^9}, {3.8576990993462143`*^9, 3.857699099415802*^9}, {
  3.8578832693177223`*^9, 3.857883270398666*^9}, {3.8578833135035057`*^9, 
  3.857883314181438*^9}, {3.8578840880474873`*^9, 3.857884098929804*^9}, {
  3.85794543814639*^9, 3.857945438399482*^9}},
 CellLabel->
  "In[463]:=",ExpressionUUID->"f0d1d9c4-26d4-41cc-b098-2dc7f27ed6dc"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Finding local minima...\"\>"], "Print",
 CellChangeTimes->{
  3.857693380132434*^9, 3.857883272358666*^9, {3.8578840813457108`*^9, 
   3.8578840898508587`*^9}, 3.857946174500003*^9},
 CellLabel->
  "During evaluation of \
In[463]:=",ExpressionUUID->"3078b6c8-ecae-4d39-95fd-675c80e5e600"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Cos(twist):\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.4699589259446763`"}]}],
  SequenceForm["Cos(twist):", -0.4699589259446763],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.857693380132434*^9, 3.857883272358666*^9, {3.8578840813457108`*^9, 
   3.8578840898508587`*^9}, 3.857946175091771*^9},
 CellLabel->
  "During evaluation of \
In[463]:=",ExpressionUUID->"b739a66e-806f-42ec-9580-d7069d282e4f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"total local twist:\"\>", "\[InvisibleSpace]", 
   "5.245850238331042`"}],
  SequenceForm["total local twist:", 5.245850238331042],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.857693380132434*^9, 3.857883272358666*^9, {3.8578840813457108`*^9, 
   3.8578840898508587`*^9}, 3.857946175093362*^9},
 CellLabel->
  "During evaluation of \
In[463]:=",ExpressionUUID->"1f5f79c7-0138-4537-83ca-ab39ec2c5e71"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writhe:\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.24585023832590572`"}]}],
  SequenceForm["Writhe:", -0.24585023832590572`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.857693380132434*^9, 3.857883272358666*^9, {3.8578840813457108`*^9, 
   3.8578840898508587`*^9}, 3.857946175097444*^9},
 CellLabel->
  "During evaluation of \
In[463]:=",ExpressionUUID->"16708af3-dc77-44fe-a02f-71236cb66fc5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Total half twist:\"\>", "\[InvisibleSpace]", 
   "2.5082995233507392`"}],
  SequenceForm["Total half twist:", 2.5082995233507392`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.857693380132434*^9, 3.857883272358666*^9, {3.8578840813457108`*^9, 
   3.8578840898508587`*^9}, 3.857946175122026*^9},
 CellLabel->
  "During evaluation of \
In[463]:=",ExpressionUUID->"191df36f-94a5-4462-a981-979ee701f21b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge vectors:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "0.8022350088340613`"}], "0.46130875239648084`", 
        "0.2875912752337749`", 
        RowBox[{"-", "0.2744106758848344`"}], "0.8274623881035598`", 
        RowBox[{"-", "0.8795629284388073`"}], "0"},
       {"0", "0.88268828469413`", 
        RowBox[{"-", "0.5878574087742375`"}], "0.012764815082041386`", 
        RowBox[{"-", "0.6849479549854607`"}], "0.9005288030955136`", 
        RowBox[{"-", "0.06065541875139222`"}], "0.0742136300222767`", "0"},
       {"1", 
        RowBox[{"-", "0.4699589259446763`"}], 
        RowBox[{"-", "0.10412808256334243`"}], "0.8871478425189087`", 
        RowBox[{"-", "0.6694307711693142`"}], 
        RowBox[{"-", "0.33726348127538125`"}], "0.5582355385458186`", 
        "0.4699589259446763`", 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge vectors:", 
   MatrixForm[{{
     0, 0, -0.8022350088340613, 0.46130875239648084`, 
      0.2875912752337749, -0.2744106758848344, 
      0.8274623881035598, -0.8795629284388073, 0}, {
     0, 0.88268828469413, -0.5878574087742375, 
      0.012764815082041386`, -0.6849479549854607, 
      0.9005288030955136, -0.06065541875139222, 0.0742136300222767, 0}, {
     1, -0.4699589259446763, -0.10412808256334243`, 
      0.8871478425189087, -0.6694307711693142, -0.33726348127538125`, 
      0.5582355385458186, 0.4699589259446763, -1}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.857693380132434*^9, 3.857883272358666*^9, {3.8578840813457108`*^9, 
   3.8578840898508587`*^9}, 3.8579461751231613`*^9},
 CellLabel->
  "During evaluation of \
In[463]:=",ExpressionUUID->"9dec9467-828b-4376-8191-7981799cbbba"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Elastic Energy:\"\>", "\[InvisibleSpace]", 
   "2.8364888647350326`"}],
  SequenceForm["Elastic Energy:", 2.8364888647350326`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.857693380132434*^9, 3.857883272358666*^9, {3.8578840813457108`*^9, 
   3.8578840898508587`*^9}, 3.857946175124013*^9},
 CellLabel->
  "During evaluation of \
In[463]:=",ExpressionUUID->"821533ef-079b-4842-9f77-f36a9aa5cbfd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Torsion Energy:\"\>", "\[InvisibleSpace]", 
   "10.623583662131564`"}],
  SequenceForm["Torsion Energy:", 10.623583662131564`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.857693380132434*^9, 3.857883272358666*^9, {3.8578840813457108`*^9, 
   3.8578840898508587`*^9}, 3.857946175124661*^9},
 CellLabel->
  "During evaluation of \
In[463]:=",ExpressionUUID->"79239470-b6e6-40f9-b0fe-ccb30300bdb7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Target func:\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.24585023832590652`"}]}],
  SequenceForm["Target func:", -0.24585023832590652`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.857693380132434*^9, 3.857883272358666*^9, {3.8578840813457108`*^9, 
   3.8578840898508587`*^9}, 3.857946175125299*^9},
 CellLabel->
  "During evaluation of \
In[463]:=",ExpressionUUID->"ec265b9e-de12-439f-b404-bc28736e9832"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge centre:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "0.88268828469413`"}], 
        RowBox[{"-", "1.2508697597166165`"}], 
        RowBox[{"-", "1.771057015900669`"}], 
        RowBox[{"-", "1.1719520754017836`"}], 
        RowBox[{"-", "0.3381024524945251`"}], "0.14414787119120986`", 
        "0.07421363001915537`", 
        RowBox[{"-", "3.121281011431165`*^-12"}]},
       {"0", "0", "0.3770175031068734`", "1.0406833645304152`", 
        "1.6046336177452507`", "1.8853266027896973`", "1.7594395485887429`", 
        "0.8795629283740021`", 
        RowBox[{"-", "6.480527225960486`*^-11"}]},
       {"0", "0", "0.7081234438693178`", "0.9690668301578826`", 
        "0.6494232941394513`", "0.7204504897329396`", 
        RowBox[{"-", "0.00805872977686728`"}], "8.543277196793042`*^-12", 
        "8.543277196793042`*^-12"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge centre:", 
   MatrixForm[{{
     0, -0.88268828469413, -1.2508697597166165`, -1.771057015900669, \
-1.1719520754017836`, -0.3381024524945251, 0.14414787119120986`, 
      0.07421363001915537, -3.121281011431165*^-12}, {
     0, 0, 0.3770175031068734, 1.0406833645304152`, 1.6046336177452507`, 
      1.8853266027896973`, 1.7594395485887429`, 
      0.8795629283740021, -6.480527225960486*^-11}, {
     0, 0, 0.7081234438693178, 0.9690668301578826, 0.6494232941394513, 
      0.7204504897329396, -0.00805872977686728, 8.543277196793042*^-12, 
      8.543277196793042*^-12}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.857693380132434*^9, 3.857883272358666*^9, {3.8578840813457108`*^9, 
   3.8578840898508587`*^9}, 3.857946175126092*^9},
 CellLabel->
  "During evaluation of \
In[463]:=",ExpressionUUID->"211011d5-e6f3-42b8-b30a-47886fec73ec"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"vertex position:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0.`", "0.`", 
        RowBox[{"-", "0.88268828469413`"}], 
        RowBox[{"-", "0.88268828469413`"}], 
        RowBox[{"-", "1.651987264133647`"}], 
        RowBox[{"-", "0.8497522552995859`"}], 
        RowBox[{"-", "1.5404026397024286`"}], 
        RowBox[{"-", "2.0017113920989096`"}], 
        RowBox[{"-", "1.0281564377848962`"}], 
        RowBox[{"-", "1.315747713018671`"}], 
        RowBox[{"-", "0.47530779043694227`"}], 
        RowBox[{"-", "0.20089711455210787`"}], "0.5578790652429897`", 
        RowBox[{"-", "0.26958332286057`"}], 
        RowBox[{"-", "0.3655678342002483`"}], "0.513995094238559`", 
        RowBox[{"-", "3.121281011431165`*^-12"}], 
        RowBox[{"-", "3.121281011431165`*^-12"}]},
       {"0.`", "0.`", "0.441344142347065`", 
        RowBox[{"-", "0.441344142347065`"}], "0.08308879871975461`", 
        "0.6709462074939921`", "1.0470657720714358`", "1.0343009569893946`", 
        "1.2621596402525204`", "1.947107595237981`", "2.335591004337454`", 
        "1.4350622012419405`", "1.7291118392130467`", "1.789767257964439`", 
        "0.9166697433851404`", "0.8424561133628637`", 
        RowBox[{"-", "6.480527225960486`*^-11"}], 
        RowBox[{"-", "6.480527225960486`*^-11"}]},
       {"0.5`", 
        RowBox[{"-", "0.5`"}], 
        RowBox[{"-", "0.23497946297233815`"}], "0.23497946297233815`", 
        "0.6560594025876466`", "0.760187485150989`", "1.412640751417337`", 
        "0.5254929088984284`", "0.31470790855479425`", "0.9841386797241084`", 
        "0.551818749095249`", "0.8890822303706302`", "0.27105903949604204`", 
        RowBox[{"-", "0.2871764990497766`"}], "0.23497946298088143`", 
        RowBox[{"-", "0.23497946296379488`"}], 
        RowBox[{"-", "0.4999999999914567`"}], "0.5000000000085433`"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["vertex position:", 
   MatrixForm[CompressedData["
1:eJxTTMoPSmViYGBgBmIhBkygEp3V8NvuzX4Y/epMr1FX3q/9p2+4LdE2fL1/
kRSzbe3SH/urD2s4NzIzHHgdbK4VUvxhf6h1cKUv79f9b6rvxhZm39vvHpGn
8n/byf1K77uMVG89tOd9cy7jlsPF/d+YxReWpV7fv/sx4/WlRQ/sQXY2lHTv
RaYx3XPHHkrvD/DX2unnutXe93egXkrFU/vjb/5wnjjwwf7jLXbN+p4P9k3F
k/3OGX6xZyoy9Y5S/29fskE5zGs9k0P814QTzN++2dvt49AtXPXbflMX279H
i/7Yv/VROhkd+tbeet2z1rSvr8DucblwcS8yzcAAcSeQ3r86KHLWOeFzMNp+
usxpz4J/T+xvrizcUhL8wj4j0tVAd9Y3e4av9o3XLjyw/+d8aLGOyhX7pzNa
0gTq3tsLPhQ9Xb/iof3zDXcmxxS/sfd7U8XMEXnR/pnfs07JxEv72VnjwOb6
LwgB23Np2d/////f3z9dhxHsDgBxjMQS
    "]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.857693380132434*^9, 3.857883272358666*^9, {3.8578840813457108`*^9, 
   3.8578840898508587`*^9}, 3.857946175127159*^9},
 CellLabel->
  "During evaluation of \
In[463]:=",ExpressionUUID->"4759163b-ed0f-47e5-8fc0-3184602ea54b"]
}, Open  ]],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJxTTMoPSmViYGAQAmJmBlzggT0O8f0q0VkNv+3eQOk79quDImedEz6HLr4f
Km7/6kyvUVfer/0B/lo7/Vy32k+XOe1Z8O+J/ekbbku0DV/v9/0dqJdS8dT+
5srCLSXBL+wXSTHb1i79sf/4mz+cJw58sM+IdDXQnfXNvvqwhnMjM8OBj7fY
Net7PtgzfLVvvHbhgf3rYHOtkOIP+5uKJ/udM/xi/8/50GIdlSv2odbBlb68
X/czFZl6R6n/t386oyVNoO69/Zvqu7GF2ff2l2xQDvNaz+Qg+FD0dP2Kh/bu
EXkq/7ed3B//NeEE87dv9s833JkcU/zGXul9l5HqrYf2dvs4dAtX/bb3e1PF
zBF50Z73zbmMWw4X92/qYvv3aNEf+2d+zzolEy/t/8YsvrAs9fr+tz5KJ6ND
39qzs8aBw2H3Y8brS4se2Fuve9aa9vWVvf+CEHC4gUK1oaR7L4h2uXBx76Vl
f////38fQ3y6DiM4XgC47sQS
   "], 
   Polygon3DBox[{{1, 2, 3}, {1, 2, 4}, {3, 4, 1}, {3, 4, 2}, {3, 4, 5}, {3, 4,
     6}, {5, 6, 3}, {5, 6, 4}, {5, 6, 7}, {5, 6, 8}, {7, 8, 5}, {7, 8, 6}, {7,
     8, 9}, {7, 8, 10}, {9, 10, 7}, {9, 10, 8}, {9, 10, 11}, {9, 10, 12}, {11,
     12, 9}, {11, 12, 10}, {11, 12, 13}, {11, 12, 14}, {13, 14, 11}, {13, 14, 
    12}, {13, 14, 15}, {13, 14, 16}, {15, 16, 13}, {15, 16, 14}, {15, 16, 
    17}, {15, 16, 18}, {17, 18, 15}, {17, 18, 16}}]]]], "Output",
 CellChangeTimes->{
  3.857696504287524*^9, 3.857883292622272*^9, {3.857884084252033*^9, 
   3.857884091009701*^9}, 3.857946175128344*^9},
 CellLabel->
  "Out[463]=",ExpressionUUID->"58ab9aa4-df93-4cf1-9552-98dbc4cc38ac"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"minimum", " ", "linking", " ", "number"}], ";", " ", 
    RowBox[{"very", " ", "slow"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Setup", "[", 
     RowBox[{"8", ",", "False", ",", "0"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Tt", "=", 
     RowBox[{
      RowBox[{"Writhe", "[", "M", "]"}], "+", 
      RowBox[{"Tw", "[", "H", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sol", "=", 
     RowBox[{"MKn", "[", "Tt", "]"}]}], ";", " ", 
    RowBox[{"Disp", "[", "sol", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.709086375883082*^9, 3.709086384075075*^9}, {
   3.709091542485819*^9, 3.7090915460253696`*^9}, {3.709092337196178*^9, 
   3.7090923444198837`*^9}, {3.709092519713924*^9, 3.7090925413171864`*^9}, {
   3.709148462339776*^9, 3.709148466790062*^9}, 3.725088371773514*^9, {
   3.725088422809363*^9, 3.725088423132114*^9}, {3.8577089767171173`*^9, 
   3.857709067334255*^9}, {3.85770983994777*^9, 3.857709855717064*^9}, 
   3.8577099329451923`*^9, {3.857880676091651*^9, 3.857880676633708*^9}, {
   3.8578841266890182`*^9, 3.8578841534101343`*^9}, {3.857933678812573*^9, 
   3.857933680636187*^9}},ExpressionUUID->"1dc6ffcd-62d9-4b2c-b905-\
43d98ecc8748"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Setup \"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\" tetrahedra system with slide=\"\>", 
   "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" oriented=\"\>", 
   "\[InvisibleSpace]", "False", 
   "\[InvisibleSpace]", "\<\" free (non-constant) twist angle=\"\>", 
   "\[InvisibleSpace]", "False"}],
  SequenceForm[
  "Setup ", 8, " tetrahedra system with slide=", 0, " oriented=", False, 
   " free (non-constant) twist angle=", False],
  Editable->False]], "Print",
 CellChangeTimes->{{3.709101134283938*^9, 3.709101169652458*^9}, 
   3.709101223657558*^9, 3.709101324239059*^9, 3.724240680724202*^9, 
   3.857699510168548*^9, 3.85770908337405*^9, {3.857884134002824*^9, 
   3.857884162243957*^9}},
 CellLabel->
  "During evaluation of \
In[283]:=",ExpressionUUID->"1b1bf260-a449-44e9-9a4d-04cfca11b91f"],

Cell[BoxData["\<\"Finding global minima...\"\>"], "Print",
 CellChangeTimes->{{3.709101134283938*^9, 3.709101169652458*^9}, 
   3.709101223657558*^9, 3.709101324239059*^9, 3.724240680724202*^9, 
   3.857699510168548*^9, 3.85770908337405*^9, {3.857884134002824*^9, 
   3.857884162353322*^9}},
 CellLabel->
  "During evaluation of \
In[283]:=",ExpressionUUID->"9a91bb03-9fc4-43fd-aa65-80e054c57573"]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.8578841344061203`*^9, 3.857886809379326*^9},
 CellLabel->
  "Out[285]=",ExpressionUUID->"7f285d44-733b-4793-b157-fb73a00762ea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "maximum", " ", "twist", " ", "with", " ", "a", " ", "specified", " ", 
     "linking", " ", "number"}], ";", " ", 
    RowBox[{"very", " ", "slow"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Setup", "[", 
     RowBox[{"9", ",", "True"}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Tt", "=", 
     RowBox[{
      RowBox[{"Writhe", "[", "M", "]"}], "+", 
      RowBox[{"Tw", "[", "H", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cons", "=", 
     RowBox[{"Join", "[", 
      RowBox[{"cons", ",", 
       RowBox[{"{", 
        RowBox[{"Tt", "\[Equal]", "4"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sol", "=", 
     RowBox[{"MKn", "[", 
      RowBox[{
       RowBox[{"h", "[", 
        RowBox[{"2", ",", "3"}], "]"}], ",", "False"}], "]"}]}], ";"}], 
   " "}]}]], "Input",
 CellChangeTimes->{{3.8577098767237873`*^9, 3.857709916971382*^9}, {
   3.857886817149866*^9, 3.8578868190041647`*^9}, {3.8578879309508953`*^9, 
   3.857887937422525*^9}, {3.8579336586244802`*^9, 3.857933685877244*^9}, {
   3.857949108926816*^9, 3.857949170215228*^9}, {3.857949213644882*^9, 
   3.8579492694895773`*^9}, {3.857949594645672*^9, 3.8579496189736443`*^9}, {
   3.857949649793077*^9, 3.857949698372896*^9}, 3.857949728463443*^9, {
   3.8579503685192833`*^9, 3.85795036870006*^9}, {3.85795055839995*^9, 
   3.8579505587781267`*^9}, {3.8579506115874767`*^9, 3.85795065733125*^9}, {
   3.857951127620699*^9, 3.857951128038781*^9}, {3.857951725140275*^9, 
   3.857951725444005*^9}, {3.857957187126596*^9, 3.857957276634733*^9}},
 CellLabel->
  "In[121]:=",ExpressionUUID->"fba82a70-e601-4bd6-ba44-752f36c2c808"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Setup \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\" tetrahedra system with slide=\"\>", 
   "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" oriented=\"\>", 
   "\[InvisibleSpace]", "True", 
   "\[InvisibleSpace]", "\<\" free (non-constant) twist angle=\"\>", 
   "\[InvisibleSpace]", "False"}],
  SequenceForm[
  "Setup ", 9, " tetrahedra system with slide=", 0, " oriented=", True, 
   " free (non-constant) twist angle=", False],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8579491786712303`*^9, 3.857949270573148*^9}, {
   3.857949584198056*^9, 3.85794961951112*^9}, {3.857949651100964*^9, 
   3.8579496991106033`*^9}, 3.857949914709938*^9, 3.857949981061699*^9, 
   3.8579502651538773`*^9, {3.857950351033814*^9, 3.857950369691517*^9}, {
   3.857950534280117*^9, 3.857950561827683*^9}, 3.857951002679099*^9, 
   3.85795112907696*^9, 3.857951536292528*^9, {3.857951614877544*^9, 
   3.857951617176097*^9}, 3.857951726507433*^9, 3.857957076132126*^9, 
   3.8579573062401047`*^9},
 CellLabel->
  "During evaluation of \
In[121]:=",ExpressionUUID->"7d56d40b-f5b2-4faa-b56b-1416deac5077"],

Cell[BoxData["\<\"Finding global minima...\"\>"], "Print",
 CellChangeTimes->{{3.8579491786712303`*^9, 3.857949270573148*^9}, {
   3.857949584198056*^9, 3.85794961951112*^9}, {3.857949651100964*^9, 
   3.8579496991106033`*^9}, 3.857949914709938*^9, 3.857949981061699*^9, 
   3.8579502651538773`*^9, {3.857950351033814*^9, 3.857950369691517*^9}, {
   3.857950534280117*^9, 3.857950561827683*^9}, 3.857951002679099*^9, 
   3.85795112907696*^9, 3.857951536292528*^9, {3.857951614877544*^9, 
   3.857951617176097*^9}, 3.857951726507433*^9, 3.857957076132126*^9, 
   3.85795730637148*^9},
 CellLabel->
  "During evaluation of \
In[121]:=",ExpressionUUID->"618713d6-0052-4641-931c-8f394b3dc6e3"]
}, Open  ]],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.8579650675427847`*^9},
 CellLabel->
  "Out[124]=",ExpressionUUID->"5f8aa8e9-aa5d-4d4a-8a1c-20d5ac87ca35"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"minimum", " ", "energy"}], ";", " ", 
    RowBox[{
    "this", " ", "is", " ", "meaningful", " ", "only", " ", "for", " ", "the",
      " ", "unoriented", " ", "case"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  
  RowBox[{
   RowBox[{
    RowBox[{"Setup", "[", 
     RowBox[{"10", ",", "False", ",", "0"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sole", "=", 
     RowBox[{"MKn", "[", 
      RowBox[{"energyE", ",", "True"}], "]"}]}], ";", 
    RowBox[{"Disp", "[", "sole", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.70908636792334*^9, 3.709086373180862*^9}, {
   3.70914811822014*^9, 3.709148119355957*^9}, {3.709148483034094*^9, 
   3.709148483605997*^9}, {3.7091486438286467`*^9, 3.709148685230298*^9}, {
   3.724278757410275*^9, 3.724278764534821*^9}, {3.857619972780232*^9, 
   3.857619973722826*^9}, {3.857620169845571*^9, 3.857620177030674*^9}, {
   3.857620282773563*^9, 3.857620283145548*^9}, {3.857621094641554*^9, 
   3.857621098881098*^9}, {3.857623877076481*^9, 3.857623877438513*^9}, {
   3.8576240209048147`*^9, 3.857624021751416*^9}, {3.857624064968498*^9, 
   3.857624068373579*^9}, {3.8576247563782597`*^9, 3.857624756898958*^9}, {
   3.8576846044714937`*^9, 3.857684604916978*^9}, {3.857693406105526*^9, 
   3.8576934114460697`*^9}, {3.8577098648139677`*^9, 
   3.8577098683216467`*^9}, {3.857711300344871*^9, 3.857711301176238*^9}, {
   3.857718503106868*^9, 3.857718546957983*^9}, {3.857720581782013*^9, 
   3.857720595893406*^9}, {3.8577230906053658`*^9, 3.857723114355785*^9}, {
   3.85776146680779*^9, 3.8577614780698853`*^9}, {3.857769917714872*^9, 
   3.857769923182322*^9}, 3.8578812503896513`*^9, {3.857887909704707*^9, 
   3.8578879104913054`*^9}},
 CellLabel->"",ExpressionUUID->"17522997-bc0f-4941-8425-9c2268616f6b"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Setup \"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\" tetrahedra system with slide=\"\>", 
   "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" oriented=\"\>", 
   "\[InvisibleSpace]", "False", 
   "\[InvisibleSpace]", "\<\" free twist angle=\"\>", "\[InvisibleSpace]", 
   "False"}],
  SequenceForm[
  "Setup ", 10, " tetrahedra system with slide=", 0, " oriented=", False, 
   " free twist angle=", False],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7090772224605417`*^9, 3.709077270943034*^9, 3.709077369533568*^9, 
   3.709077867241418*^9, 3.7091009908495827`*^9, 3.709101041364012*^9, 
   3.709148136561398*^9, 3.7091483037001343`*^9, 3.709148402981765*^9, 
   3.709148507585182*^9, 3.724278767506053*^9, 3.8576180136568117`*^9, {
   3.857619670309217*^9, 3.857619699391179*^9}, 3.857619838409006*^9, 
   3.857619975861761*^9, 3.85762022937435*^9, 3.8576202848565807`*^9, 
   3.8576210997116327`*^9, 3.857623878841359*^9, 3.857624023164983*^9, 
   3.8576240691939983`*^9, 3.8576247583594933`*^9, 3.857684606133018*^9, 
   3.857685266334009*^9, 3.857709954796976*^9, 3.857711303238349*^9, 
   3.857718513867326*^9, 3.857720599444977*^9, 3.857723095664227*^9, 
   3.857761478983033*^9, 3.8577699247160254`*^9},
 CellLabel->
  "During evaluation of \
In[35]:=",ExpressionUUID->"69d23e98-0167-4813-ab6a-63208bcdb6a1"],

Cell[BoxData["\<\"Minimising...\"\>"], "Print",
 CellChangeTimes->{
  3.7090772224605417`*^9, 3.709077270943034*^9, 3.709077369533568*^9, 
   3.709077867241418*^9, 3.7091009908495827`*^9, 3.709101041364012*^9, 
   3.709148136561398*^9, 3.7091483037001343`*^9, 3.709148402981765*^9, 
   3.709148507585182*^9, 3.724278767506053*^9, 3.8576180136568117`*^9, {
   3.857619670309217*^9, 3.857619699391179*^9}, 3.857619838409006*^9, 
   3.857619975861761*^9, 3.85762022937435*^9, 3.8576202848565807`*^9, 
   3.8576210997116327`*^9, 3.857623878841359*^9, 3.857624023164983*^9, 
   3.8576240691939983`*^9, 3.8576247583594933`*^9, 3.857684606133018*^9, 
   3.857685266334009*^9, 3.857709954796976*^9, 3.857711303238349*^9, 
   3.857718513867326*^9, 3.857720599444977*^9, 3.857723095664227*^9, 
   3.857761478983033*^9, 3.8577699247173223`*^9},
 CellLabel->
  "During evaluation of \
In[35]:=",ExpressionUUID->"d0615055-1b9e-4f3a-ae48-9ba60b13aac9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Cos(twist):\"\>", "\[InvisibleSpace]", "0.6660097717696543`"}],
  
  SequenceForm["Cos(twist):", 0.6660097717696543],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7090772224605417`*^9, 3.709077270943034*^9, 3.709077369533568*^9, 
   3.709077867241418*^9, 3.7091009908495827`*^9, 3.709101041364012*^9, 
   3.709148136561398*^9, 3.7091483037001343`*^9, 3.709148402981765*^9, 
   3.709148507585182*^9, 3.724278767506053*^9, 3.8576180136568117`*^9, {
   3.857619670309217*^9, 3.857619699391179*^9}, 3.857619838409006*^9, 
   3.857619975861761*^9, 3.85762022937435*^9, 3.8576202848565807`*^9, 
   3.8576210997116327`*^9, 3.857623878841359*^9, 3.857624023164983*^9, 
   3.8576240691939983`*^9, 3.8576247583594933`*^9, 3.857684606133018*^9, 
   3.857685266334009*^9, 3.857709954796976*^9, 3.857711303238349*^9, 
   3.857718513867326*^9, 3.857720599444977*^9, 3.857723095664227*^9, 
   3.857761478983033*^9, 3.857770630145134*^9},
 CellLabel->
  "During evaluation of \
In[35]:=",ExpressionUUID->"05f73959-e18c-491e-9d79-181e597a87ad"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"total local twist:\"\>", "\[InvisibleSpace]", 
   "2.6800089426615887`"}],
  SequenceForm["total local twist:", 2.6800089426615887`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7090772224605417`*^9, 3.709077270943034*^9, 3.709077369533568*^9, 
   3.709077867241418*^9, 3.7091009908495827`*^9, 3.709101041364012*^9, 
   3.709148136561398*^9, 3.7091483037001343`*^9, 3.709148402981765*^9, 
   3.709148507585182*^9, 3.724278767506053*^9, 3.8576180136568117`*^9, {
   3.857619670309217*^9, 3.857619699391179*^9}, 3.857619838409006*^9, 
   3.857619975861761*^9, 3.85762022937435*^9, 3.8576202848565807`*^9, 
   3.8576210997116327`*^9, 3.857623878841359*^9, 3.857624023164983*^9, 
   3.8576240691939983`*^9, 3.8576247583594933`*^9, 3.857684606133018*^9, 
   3.857685266334009*^9, 3.857709954796976*^9, 3.857711303238349*^9, 
   3.857718513867326*^9, 3.857720599444977*^9, 3.857723095664227*^9, 
   3.857761478983033*^9, 3.857770630161784*^9},
 CellLabel->
  "During evaluation of \
In[35]:=",ExpressionUUID->"02b1834c-f1c2-404e-9e45-7eff2539e611"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writhe:\"\>", "\[InvisibleSpace]", "0.31999105733808897`"}],
  SequenceForm["Writhe:", 0.31999105733808897`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7090772224605417`*^9, 3.709077270943034*^9, 3.709077369533568*^9, 
   3.709077867241418*^9, 3.7091009908495827`*^9, 3.709101041364012*^9, 
   3.709148136561398*^9, 3.7091483037001343`*^9, 3.709148402981765*^9, 
   3.709148507585182*^9, 3.724278767506053*^9, 3.8576180136568117`*^9, {
   3.857619670309217*^9, 3.857619699391179*^9}, 3.857619838409006*^9, 
   3.857619975861761*^9, 3.85762022937435*^9, 3.8576202848565807`*^9, 
   3.8576210997116327`*^9, 3.857623878841359*^9, 3.857624023164983*^9, 
   3.8576240691939983`*^9, 3.8576247583594933`*^9, 3.857684606133018*^9, 
   3.857685266334009*^9, 3.857709954796976*^9, 3.857711303238349*^9, 
   3.857718513867326*^9, 3.857720599444977*^9, 3.857723095664227*^9, 
   3.857761478983033*^9, 3.857770630164386*^9},
 CellLabel->
  "During evaluation of \
In[35]:=",ExpressionUUID->"17d93b55-3738-4a73-94d0-50ce4cc13e01"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Total half twist:\"\>", "\[InvisibleSpace]", 
   "2.9999999999996776`"}],
  SequenceForm["Total half twist:", 2.9999999999996776`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7090772224605417`*^9, 3.709077270943034*^9, 3.709077369533568*^9, 
   3.709077867241418*^9, 3.7091009908495827`*^9, 3.709101041364012*^9, 
   3.709148136561398*^9, 3.7091483037001343`*^9, 3.709148402981765*^9, 
   3.709148507585182*^9, 3.724278767506053*^9, 3.8576180136568117`*^9, {
   3.857619670309217*^9, 3.857619699391179*^9}, 3.857619838409006*^9, 
   3.857619975861761*^9, 3.85762022937435*^9, 3.8576202848565807`*^9, 
   3.8576210997116327`*^9, 3.857623878841359*^9, 3.857624023164983*^9, 
   3.8576240691939983`*^9, 3.8576247583594933`*^9, 3.857684606133018*^9, 
   3.857685266334009*^9, 3.857709954796976*^9, 3.857711303238349*^9, 
   3.857718513867326*^9, 3.857720599444977*^9, 3.857723095664227*^9, 
   3.857761478983033*^9, 3.857770630166091*^9},
 CellLabel->
  "During evaluation of \
In[35]:=",ExpressionUUID->"ac7eaded-3a3a-48e8-a1a3-8dd6bea3755c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge vectors:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "0.7027760643871082`"}], 
        RowBox[{"-", "0.9181478711988867`"}], 
        RowBox[{"-", "0.5173991454842177`"}], 
        RowBox[{"-", "0.29374315008353996`"}], 
        RowBox[{"-", "0.6906341120587979`"}], 
        RowBox[{"-", "0.8137248558808698`"}], 
        RowBox[{"-", "0.15683206543661876`"}], "0.27855592174155325`", "0"},
       {"0", 
        RowBox[{"-", "0.7459430165282956`"}], 
        RowBox[{"-", "0.6633567752424605`"}], "0.11556270164228004`", 
        "0.8169466152100268`", "0.794800326016625`", "0.10458570843338309`", 
        RowBox[{"-", "0.5364511194640905`"}], 
        RowBox[{"-", "0.9868022466536848`"}], 
        RowBox[{"-", "0.6919809118555946`"}], "0"},
       {"1", "0.6660097717696543`", "0.2570283876705883`", 
        "0.3790115415202095`", "0.2547476244296079`", 
        RowBox[{"-", "0.5310436926891647`"}], 
        RowBox[{"-", "0.7156020911459745`"}], 
        RowBox[{"-", "0.22376786040611255`"}], 
        RowBox[{"-", "0.04031165156269951`"}], 
        RowBox[{"-", "0.6660097717696543`"}], 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge vectors:", 
   MatrixForm[{{
     0, 0, -0.7027760643871082, -0.9181478711988867, -0.5173991454842177, \
-0.29374315008353996`, -0.6906341120587979, -0.8137248558808698, \
-0.15683206543661876`, 0.27855592174155325`, 0}, {
     0, -0.7459430165282956, -0.6633567752424605, 0.11556270164228004`, 
      0.8169466152100268, 0.794800326016625, 
      0.10458570843338309`, -0.5364511194640905, -0.9868022466536848, \
-0.6919809118555946, 0}, {
     1, 0.6660097717696543, 0.2570283876705883, 0.3790115415202095, 
      0.2547476244296079, -0.5310436926891647, -0.7156020911459745, \
-0.22376786040611255`, -0.04031165156269951, -0.6660097717696543, -1}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7090772224605417`*^9, 3.709077270943034*^9, 3.709077369533568*^9, 
   3.709077867241418*^9, 3.7091009908495827`*^9, 3.709101041364012*^9, 
   3.709148136561398*^9, 3.7091483037001343`*^9, 3.709148402981765*^9, 
   3.709148507585182*^9, 3.724278767506053*^9, 3.8576180136568117`*^9, {
   3.857619670309217*^9, 3.857619699391179*^9}, 3.857619838409006*^9, 
   3.857619975861761*^9, 3.85762022937435*^9, 3.8576202848565807`*^9, 
   3.8576210997116327`*^9, 3.857623878841359*^9, 3.857624023164983*^9, 
   3.8576240691939983`*^9, 3.8576247583594933`*^9, 3.857684606133018*^9, 
   3.857685266334009*^9, 3.857709954796976*^9, 3.857711303238349*^9, 
   3.857718513867326*^9, 3.857720599444977*^9, 3.857723095664227*^9, 
   3.857761478983033*^9, 3.8577706301755323`*^9},
 CellLabel->
  "During evaluation of \
In[35]:=",ExpressionUUID->"d62a2f20-b6ab-4f1e-8494-18d95e50a0ed"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Elastic Energy:\"\>", "\[InvisibleSpace]", 
   "2.204628824912273`"}],
  SequenceForm["Elastic Energy:", 2.204628824912273],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7090772224605417`*^9, 3.709077270943034*^9, 3.709077369533568*^9, 
   3.709077867241418*^9, 3.7091009908495827`*^9, 3.709101041364012*^9, 
   3.709148136561398*^9, 3.7091483037001343`*^9, 3.709148402981765*^9, 
   3.709148507585182*^9, 3.724278767506053*^9, 3.8576180136568117`*^9, {
   3.857619670309217*^9, 3.857619699391179*^9}, 3.857619838409006*^9, 
   3.857619975861761*^9, 3.85762022937435*^9, 3.8576202848565807`*^9, 
   3.8576210997116327`*^9, 3.857623878841359*^9, 3.857624023164983*^9, 
   3.8576240691939983`*^9, 3.8576247583594933`*^9, 3.857684606133018*^9, 
   3.857685266334009*^9, 3.857709954796976*^9, 3.857711303238349*^9, 
   3.857718513867326*^9, 3.857720599444977*^9, 3.857723095664227*^9, 
   3.857761478983033*^9, 3.8577706301806087`*^9},
 CellLabel->
  "During evaluation of \
In[35]:=",ExpressionUUID->"446f1148-b9ba-4b5c-bfa4-ef11dd2cce35"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Target func:\"\>", "\[InvisibleSpace]", "2.204628824912273`"}],
  
  SequenceForm["Target func:", 2.204628824912273],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7090772224605417`*^9, 3.709077270943034*^9, 3.709077369533568*^9, 
   3.709077867241418*^9, 3.7091009908495827`*^9, 3.709101041364012*^9, 
   3.709148136561398*^9, 3.7091483037001343`*^9, 3.709148402981765*^9, 
   3.709148507585182*^9, 3.724278767506053*^9, 3.8576180136568117`*^9, {
   3.857619670309217*^9, 3.857619699391179*^9}, 3.857619838409006*^9, 
   3.857619975861761*^9, 3.85762022937435*^9, 3.8576202848565807`*^9, 
   3.8576210997116327`*^9, 3.857623878841359*^9, 3.857624023164983*^9, 
   3.8576240691939983`*^9, 3.8576247583594933`*^9, 3.857684606133018*^9, 
   3.857685266334009*^9, 3.857709954796976*^9, 3.857711303238349*^9, 
   3.857718513867326*^9, 3.857720599444977*^9, 3.857723095664227*^9, 
   3.857761478983033*^9, 3.857770630182815*^9},
 CellLabel->
  "During evaluation of \
In[35]:=",ExpressionUUID->"368bc6bc-af0e-4366-94c8-84e071cacdd6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge centre:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0.7459430165282956`", "0.9960165801769778`", 
        "0.7148938113364852`", "0.434700939082054`", 
        RowBox[{"-", "0.20160690313760588`"}], 
        RowBox[{"-", "0.714828097669629`"}], 
        RowBox[{"-", "1.1221165607609267`"}], 
        RowBox[{"-", "1.32130595753031`"}], 
        RowBox[{"-", "0.6919809118614695`"}], 
        RowBox[{"-", "5.874745134804016`*^-12"}]},
       {"0", "0", 
        RowBox[{"-", "0.46805572624763375`"}], 
        RowBox[{"-", "0.4376855537182027`"}], 
        RowBox[{"-", "0.3998898123663972`"}], 
        RowBox[{"-", "0.7494817348548062`"}], 
        RowBox[{"-", "0.5929280581495868`"}], 
        RowBox[{"-", "0.1651665672426522`"}], 
        RowBox[{"-", "0.16287518437500606`"}], 
        RowBox[{"-", "0.27855592174058413`"}], "9.690026558928366`*^-13"},
       {"0", "0", 
        RowBox[{"-", "0.5242308974128032`"}], 
        RowBox[{"-", "1.2145052090971298`"}], 
        RowBox[{"-", "1.9047909616557888`"}], 
        RowBox[{"-", "2.0760474989654893`"}], 
        RowBox[{"-", "1.557852616991895`"}], 
        RowBox[{"-", "1.1022571839157116`"}], 
        RowBox[{"-", "0.38340440504586293`"}], 
        RowBox[{"-", "3.582911745070305`*^-12"}], 
        RowBox[{"-", "3.582911745070305`*^-12"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge centre:", 
   MatrixForm[{{
     0, 0.7459430165282956, 0.9960165801769778, 0.7148938113364852, 
      0.434700939082054, -0.20160690313760588`, -0.714828097669629, \
-1.1221165607609267`, -1.32130595753031, -0.6919809118614695, \
-5.874745134804016*^-12}, {
     0, 0, -0.46805572624763375`, -0.4376855537182027, -0.3998898123663972, \
-0.7494817348548062, -0.5929280581495868, -0.1651665672426522, \
-0.16287518437500606`, -0.27855592174058413`, 9.690026558928366*^-13}, {
     0, 0, -0.5242308974128032, -1.2145052090971298`, -1.9047909616557888`, \
-2.0760474989654893`, -1.557852616991895, -1.1022571839157116`, \
-0.38340440504586293`, -3.582911745070305*^-12, -3.582911745070305*^-12}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7090772224605417`*^9, 3.709077270943034*^9, 3.709077369533568*^9, 
   3.709077867241418*^9, 3.7091009908495827`*^9, 3.709101041364012*^9, 
   3.709148136561398*^9, 3.7091483037001343`*^9, 3.709148402981765*^9, 
   3.709148507585182*^9, 3.724278767506053*^9, 3.8576180136568117`*^9, {
   3.857619670309217*^9, 3.857619699391179*^9}, 3.857619838409006*^9, 
   3.857619975861761*^9, 3.85762022937435*^9, 3.8576202848565807`*^9, 
   3.8576210997116327`*^9, 3.857623878841359*^9, 3.857624023164983*^9, 
   3.8576240691939983`*^9, 3.8576247583594933`*^9, 3.857684606133018*^9, 
   3.857685266334009*^9, 3.857709954796976*^9, 3.857711303238349*^9, 
   3.857718513867326*^9, 3.857720599444977*^9, 3.857723095664227*^9, 
   3.857761478983033*^9, 3.8577706301883163`*^9},
 CellLabel->
  "During evaluation of \
In[35]:=",ExpressionUUID->"54cb82ee-b8b3-4e75-ad81-8e642a1cd8fe"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"vertex position:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0.`", "0.`", "0.7459430165282956`", "0.7459430165282956`", 
        "0.6446285479834237`", "1.3474046123705319`", "0.25581987573704185`", 
        "1.1739677469359286`", "0.17600136633994512`", "0.6934005118241628`", 
        
        RowBox[{"-", "0.34847847817937583`"}], 
        RowBox[{"-", "0.054735328095835895`"}], 
        RowBox[{"-", "1.0601451536990278`"}], 
        RowBox[{"-", "0.36951104164023`"}], 
        RowBox[{"-", "1.5289789887013616`"}], 
        RowBox[{"-", "0.7152541328204918`"}], 
        RowBox[{"-", "1.3997219902486195`"}], 
        RowBox[{"-", "1.2428899248120007`"}], 
        RowBox[{"-", "0.5527029509906929`"}], 
        RowBox[{"-", "0.8312588727322461`"}], 
        RowBox[{"-", "5.874745134804016`*^-12"}], 
        RowBox[{"-", "5.874745134804016`*^-12"}]},
       {"0.`", "0.`", 
        RowBox[{"-", "0.3729715082641478`"}], "0.3729715082641478`", 
        RowBox[{"-", "0.7997341138688641`"}], 
        RowBox[{"-", "0.1363773386264035`"}], 
        RowBox[{"-", "0.3799042028970627`"}], 
        RowBox[{"-", "0.4954669045393427`"}], "0.008583495238616179`", 
        RowBox[{"-", "0.8083631199714105`"}], 
        RowBox[{"-", "0.3520815718464937`"}], 
        RowBox[{"-", "1.1468818978631186`"}], 
        RowBox[{"-", "0.5406352039328953`"}], 
        RowBox[{"-", "0.6452209123662783`"}], 
        RowBox[{"-", "0.4333921269746974`"}], "0.10305899248939307`", 
        RowBox[{"-", "0.6562763077018484`"}], "0.33052593895183635`", 
        RowBox[{"-", "0.6245463776683815`"}], "0.06743453418721318`", 
        "9.690026558928366`*^-13", "9.690026558928366`*^-13"},
       {"0.5`", 
        RowBox[{"-", "0.5`"}], "0.33300488588482713`", 
        RowBox[{"-", "0.33300488588482713`"}], 
        RowBox[{"-", "0.395716703577509`"}], 
        RowBox[{"-", "0.6527450912480973`"}], 
        RowBox[{"-", "1.0249994383370251`"}], 
        RowBox[{"-", "1.4040109798572344`"}], 
        RowBox[{"-", "1.7774171494409847`"}], 
        RowBox[{"-", "2.032164773870593`"}], 
        RowBox[{"-", "2.341569345310072`"}], 
        RowBox[{"-", "1.810525652620907`"}], 
        RowBox[{"-", "1.9156536625648821`"}], 
        RowBox[{"-", "1.2000515714189077`"}], 
        RowBox[{"-", "1.214141114118768`"}], 
        RowBox[{"-", "0.9903732537126553`"}], 
        RowBox[{"-", "0.4035602308272127`"}], 
        RowBox[{"-", "0.36324857926451315`"}], 
        RowBox[{"-", "0.33300488588841004`"}], "0.3330048858812442`", 
        RowBox[{"-", "0.5000000000035829`"}], "0.4999999999964171`"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["vertex position:", 
   MatrixForm[CompressedData["
1:eJxTTMoPSmViYGBgBmIxBkwQkDr18eF7z+1htBtLKc+ZBU/s5x/rVP7R99V+
o+vf4Kj4C/Z7E6rSJ534ZH9jrm2FWfsx+2f8Wq5hBs/stX6dWFPhe20/D7P5
DRe2Nfu90w8djvr2YX/94WuLBZdd35/0lHvNprIf+3niZy6Kefxs/5eDOx85
pX7b/65tZ/eDR5/3s/DESu5b/3B/yiIZ0zUzX+0HuSnh2sy9yDSme6/vh9L2
Jf8E/2dPf7lfrGAFx4WSg/uPTDq8PTLgxn6RM+cv7tp6f79CzzoryymN9g7W
RaEy917u37ddTbWx49r+JyrWVxdEftrfv+Kf0SOfh/vP3lsZvGzpk/0aF96E
bNpze/+07z6/hJJ22S9muq5tzvB0/7fjE13C1K/ad1TErvf483j/kfov+5Kd
N9qDHcVTaItCMzywh9L7Z6hO2vnZ/6o9lN5vpSWmnhN8c/9y+cI1no+f7L9l
tvB8atqH/W7Js82vlH3bH6PL/N2n4M9+1jv3Zt13ZDggklS9tWM304GNZpr7
X37/sz/wTlFJy7J/+43lz7hlGn/e/+j5XGv53M/7Pd5+sFfe+H6/1vxwr3eX
b+7PmyPwo8z++v4dipPB9lZoTgS7Q6AO4q4HzP+B4L49AEcLCAw=
    "]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7090772224605417`*^9, 3.709077270943034*^9, 3.709077369533568*^9, 
   3.709077867241418*^9, 3.7091009908495827`*^9, 3.709101041364012*^9, 
   3.709148136561398*^9, 3.7091483037001343`*^9, 3.709148402981765*^9, 
   3.709148507585182*^9, 3.724278767506053*^9, 3.8576180136568117`*^9, {
   3.857619670309217*^9, 3.857619699391179*^9}, 3.857619838409006*^9, 
   3.857619975861761*^9, 3.85762022937435*^9, 3.8576202848565807`*^9, 
   3.8576210997116327`*^9, 3.857623878841359*^9, 3.857624023164983*^9, 
   3.8576240691939983`*^9, 3.8576247583594933`*^9, 3.857684606133018*^9, 
   3.857685266334009*^9, 3.857709954796976*^9, 3.857711303238349*^9, 
   3.857718513867326*^9, 3.857720599444977*^9, 3.857723095664227*^9, 
   3.857761478983033*^9, 3.857770630196781*^9},
 CellLabel->
  "During evaluation of \
In[35]:=",ExpressionUUID->"c10ba425-0184-4cd0-b9b2-642be18c7a6b"]
}, Open  ]],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJxTTMoPSmViYGAQA2JmBlzggT0O8f0BqVMfH7733B5CX98/Q3XSzs/+V+3R
xO2h4vvdWEp5zix4Yl/yT/B/9vSX+620xNRzgm/un3+sU/lH31d7sYIVHBdK
Du5fLl+4xvPxk/0bXf8GR8VfsD8y6fD2yIAb+2+ZLTyfmvZh/96EqvRJJz7Z
i5w5f3HX1vv73ZJnm18p+7b/xlzbCrP2Y/YKPeusLKc02sfoMn/3Kfiz/xm/
lmuYwTN7B+uiUJl7L/ez3rk3674jwwGtXyfWVPhe279vu5pqY8e1/SJJ1Vs7
djMd4GE2v+HCtmb/ExXrqwsiP+3faKa5/+X3P/u90w8djvr2YX//in9Gj3we
7g+8U1TSsuzf/vrD1xYLLru+/+y9lcHLlj7Zbyx/xi3T+PP+pKfcazaV/div
ceFNyKY9t/c/ej7XWj73836e+JmLYh4/2z/tu88voaRd9h5vP9grb3y//8vB
nY+cUr/tX8x0Xduc4el+rfnhXu8u39z/rm1n94NHn/d/Oz7RJUz9qn3eHIEf
ZfbX97PwxEruW/9wf0dF7HqPP4/371CcDA7nlEUypmtmvtp/pP7LvmTnjfYV
mhPB8QKKtYRrM/eCo4+n0FagDhKP6OIPmP8DwX17AGK8CAw=
   "], 
   Polygon3DBox[{{1, 2, 3}, {1, 2, 4}, {3, 4, 1}, {3, 4, 2}, {3, 4, 5}, {3, 4,
     6}, {5, 6, 3}, {5, 6, 4}, {5, 6, 7}, {5, 6, 8}, {7, 8, 5}, {7, 8, 6}, {7,
     8, 9}, {7, 8, 10}, {9, 10, 7}, {9, 10, 8}, {9, 10, 11}, {9, 10, 12}, {11,
     12, 9}, {11, 12, 10}, {11, 12, 13}, {11, 12, 14}, {13, 14, 11}, {13, 14, 
    12}, {13, 14, 15}, {13, 14, 16}, {15, 16, 13}, {15, 16, 14}, {15, 16, 
    17}, {15, 16, 18}, {17, 18, 15}, {17, 18, 16}, {17, 18, 19}, {17, 18, 
    20}, {19, 20, 17}, {19, 20, 18}, {19, 20, 21}, {19, 20, 22}, {21, 22, 
    19}, {21, 22, 20}}]],
  ImageSize->{403.98234731845474`, 356.15632424019344`},
  ImageSizeRaw->Automatic,
  ViewPoint->{-1.7951638988646392`, -0.8940879257283337, -2.7254345263241793`},
  ViewVertical->{-0.3301905749858491, -0.5603533841467988, \
-0.7595908563600173}]], "Output",
 CellChangeTimes->{
  3.7090772227092648`*^9, 3.709077271179028*^9, 3.709077369751029*^9, 
   3.709077867290564*^9, 3.7091009909029007`*^9, 3.709101041418377*^9, 
   3.709148136671546*^9, 3.709148303756963*^9, 3.709148403096508*^9, 
   3.7091485077712812`*^9, 3.724278787080044*^9, 3.857618033948008*^9, {
   3.857619690819868*^9, 3.85761971952074*^9}, 3.857619856827241*^9, 
   3.857620006841445*^9, 3.857620242549872*^9, 3.85762029851614*^9, 
   3.8576211228306103`*^9, 3.857623921064169*^9, 3.857624051731586*^9, 
   3.857624091349077*^9, 3.8576247864387903`*^9, 3.857684638880937*^9, 
   3.8576852975362797`*^9, 3.857710204801694*^9, 3.8577119165489607`*^9, 
   3.8577191123967457`*^9, 3.857721007116452*^9, 3.857723691203322*^9, 
   3.857761892831765*^9, 3.857770630210883*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"933f4376-015f-490d-819a-82aede90f968"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Orientable", " ", "Kn", " ", "with", " ", "slide"}], "  ", "*)"}],
   "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Setup", "[", 
    RowBox[{"7", ",", "True", ",", "2.8"}], "]"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.702197982857092*^9, 3.70219798803074*^9}, {
  3.709148493880199*^9, 3.7091484988888702`*^9}, {3.7091487051202793`*^9, 
  3.709148705572908*^9}, {3.7091487488719177`*^9, 3.709148785916574*^9}, {
  3.857709965651535*^9, 3.857709966885825*^9}, {3.857880693387375*^9, 
  3.857880696746958*^9}, {3.857945492004445*^9, 3.857945493446485*^9}, {
  3.857946272721682*^9, 3.857946272919983*^9}, {3.857946407489946*^9, 
  3.8579464077573833`*^9}, {3.857946475244676*^9, 3.857946516815135*^9}, {
  3.8579467200173683`*^9, 3.8579467215439587`*^9}},
 CellLabel->
  "In[497]:=",ExpressionUUID->"a10da374-8121-4746-9a87-4e20257aa9d8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Setup \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\" tetrahedra system with slide=\"\>", 
   "\[InvisibleSpace]", "2.8`", "\[InvisibleSpace]", "\<\" oriented=\"\>", 
   "\[InvisibleSpace]", "True", 
   "\[InvisibleSpace]", "\<\" free (non-constant) twist angle=\"\>", 
   "\[InvisibleSpace]", "False"}],
  SequenceForm[
  "Setup ", 7, " tetrahedra system with slide=", 2.8, " oriented=", True, 
   " free (non-constant) twist angle=", False],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.857881442066505*^9, 3.8578823012256937`*^9, 3.857887898382637*^9, 
   3.857945446343347*^9, 3.857946188648623*^9, 3.8579462736228933`*^9, 
   3.857946408609139*^9, {3.8579464761376677`*^9, 3.857946517460497*^9}, 
   3.8579467221537952`*^9},
 CellLabel->
  "During evaluation of \
In[497]:=",ExpressionUUID->"796d303b-649d-40b8-8b25-d3a7ba1be874"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{"MKn", "[", 
    RowBox[{
     RowBox[{"h", "[", 
      RowBox[{"2", ",", "3"}], "]"}], ",", "True"}], "]"}]}], ";", 
  RowBox[{"Disp", "[", "sol", "]"}]}]], "Input",
 CellChangeTimes->{{3.857880784872711*^9, 3.857880787307826*^9}},
 CellLabel->
  "In[498]:=",ExpressionUUID->"ea88c7eb-94e8-43c9-b9fc-eb40b206b2c7"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Finding local minima...\"\>"], "Print",
 CellChangeTimes->{
  3.702200761349699*^9, 3.709078716408841*^9, 3.709148719904001*^9, 
   3.709148799132205*^9, 3.8577069126354513`*^9, 3.857880715868587*^9, 
   3.857880793017137*^9, 3.857880856354788*^9, 3.857881444613182*^9, 
   3.857945451400752*^9, 3.857946191321007*^9, 3.857946276648016*^9, 
   3.8579464159755907`*^9, {3.8579464785430813`*^9, 3.85794651961649*^9}, {
   3.857946712518414*^9, 3.857946723928507*^9}},
 CellLabel->
  "During evaluation of \
In[498]:=",ExpressionUUID->"459b23e8-3808-465b-a719-7cddb6496898"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Cos(twist):\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.8573913472674313`"}]}],
  SequenceForm["Cos(twist):", -0.8573913472674313],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702200761349699*^9, 3.709078716408841*^9, 3.709148719904001*^9, 
   3.709148799132205*^9, 3.8577069126354513`*^9, 3.857880715868587*^9, 
   3.857880793017137*^9, 3.857880856354788*^9, 3.857881444613182*^9, 
   3.857945451400752*^9, 3.857946191321007*^9, 3.857946276648016*^9, 
   3.8579464159755907`*^9, {3.8579464785430813`*^9, 3.85794651961649*^9}, {
   3.857946712518414*^9, 3.857946723961645*^9}},
 CellLabel->
  "During evaluation of \
In[498]:=",ExpressionUUID->"411ed435-c255-4a14-b651-4c5cdeaf536f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"total local twist:\"\>", "\[InvisibleSpace]", 
   "5.795414082647408`"}],
  SequenceForm["total local twist:", 5.795414082647408],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702200761349699*^9, 3.709078716408841*^9, 3.709148719904001*^9, 
   3.709148799132205*^9, 3.8577069126354513`*^9, 3.857880715868587*^9, 
   3.857880793017137*^9, 3.857880856354788*^9, 3.857881444613182*^9, 
   3.857945451400752*^9, 3.857946191321007*^9, 3.857946276648016*^9, 
   3.8579464159755907`*^9, {3.8579464785430813`*^9, 3.85794651961649*^9}, {
   3.857946712518414*^9, 3.857946723963791*^9}},
 CellLabel->
  "During evaluation of \
In[498]:=",ExpressionUUID->"fd0519c0-e2b0-4783-8f08-bf9d3eb8d70e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writhe:\"\>", "\[InvisibleSpace]", "1.4867610320656865`*^-7"}],
  
  SequenceForm["Writhe:", 1.4867610320656865`*^-7],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702200761349699*^9, 3.709078716408841*^9, 3.709148719904001*^9, 
   3.709148799132205*^9, 3.8577069126354513`*^9, 3.857880715868587*^9, 
   3.857880793017137*^9, 3.857880856354788*^9, 3.857881444613182*^9, 
   3.857945451400752*^9, 3.857946191321007*^9, 3.857946276648016*^9, 
   3.8579464159755907`*^9, {3.8579464785430813`*^9, 3.85794651961649*^9}, {
   3.857946712518414*^9, 3.8579467239646606`*^9}},
 CellLabel->
  "During evaluation of \
In[498]:=",ExpressionUUID->"afe9d9c4-996d-4a81-a7bf-af301317bf13"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Total half twist:\"\>", "\[InvisibleSpace]", 
   "3.000000006264874`"}],
  SequenceForm["Total half twist:", 3.000000006264874],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702200761349699*^9, 3.709078716408841*^9, 3.709148719904001*^9, 
   3.709148799132205*^9, 3.8577069126354513`*^9, 3.857880715868587*^9, 
   3.857880793017137*^9, 3.857880856354788*^9, 3.857881444613182*^9, 
   3.857945451400752*^9, 3.857946191321007*^9, 3.857946276648016*^9, 
   3.8579464159755907`*^9, {3.8579464785430813`*^9, 3.85794651961649*^9}, {
   3.857946712518414*^9, 3.857946723969138*^9}},
 CellLabel->
  "During evaluation of \
In[498]:=",ExpressionUUID->"e0e0d8ab-01d3-4e0e-9704-a7730efccc1f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge vectors:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0.47412236775797073`", 
        RowBox[{"-", "0.3801649394675179`"}], "0.6852883180548083`", 
        RowBox[{"-", "0.3804026899476395`"}], "0.47414803091362995`", "0"},
       {"0", "0.514665014966958`", 
        RowBox[{"-", "0.6129362679277569`"}], "0.9042503473500528`", 
        RowBox[{"-", "0.7018604991797184`"}], "0.6751686983596801`", 
        RowBox[{"-", "0.2001592454292837`"}], "0"},
       {"1", 
        RowBox[{"-", "0.8573913472674313`"}], "0.6320736679787882`", 
        RowBox[{"-", "0.1944374979682573`"}], 
        RowBox[{"-", "0.1943496780988255`"}], "0.6320134951068428`", 
        RowBox[{"-", "0.8573913472674313`"}], "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge vectors:", 
   MatrixForm[{{
     0, 0, 0.47412236775797073`, -0.3801649394675179, 
      0.6852883180548083, -0.3804026899476395, 0.47414803091362995`, 0}, {
     0, 0.514665014966958, -0.6129362679277569, 
      0.9042503473500528, -0.7018604991797184, 
      0.6751686983596801, -0.2001592454292837, 0}, {
     1, -0.8573913472674313, 
      0.6320736679787882, -0.1944374979682573, -0.1943496780988255, 
      0.6320134951068428, -0.8573913472674313, 1}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702200761349699*^9, 3.709078716408841*^9, 3.709148719904001*^9, 
   3.709148799132205*^9, 3.8577069126354513`*^9, 3.857880715868587*^9, 
   3.857880793017137*^9, 3.857880856354788*^9, 3.857881444613182*^9, 
   3.857945451400752*^9, 3.857946191321007*^9, 3.857946276648016*^9, 
   3.8579464159755907`*^9, {3.8579464785430813`*^9, 3.85794651961649*^9}, {
   3.857946712518414*^9, 3.8579467239703197`*^9}},
 CellLabel->
  "During evaluation of \
In[498]:=",ExpressionUUID->"17590a67-6da4-452b-a9f2-340786269378"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Elastic Energy:\"\>", "\[InvisibleSpace]", 
   "21.038276780690275`"}],
  SequenceForm["Elastic Energy:", 21.038276780690275`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702200761349699*^9, 3.709078716408841*^9, 3.709148719904001*^9, 
   3.709148799132205*^9, 3.8577069126354513`*^9, 3.857880715868587*^9, 
   3.857880793017137*^9, 3.857880856354788*^9, 3.857881444613182*^9, 
   3.857945451400752*^9, 3.857946191321007*^9, 3.857946276648016*^9, 
   3.8579464159755907`*^9, {3.8579464785430813`*^9, 3.85794651961649*^9}, {
   3.857946712518414*^9, 3.857946723971529*^9}},
 CellLabel->
  "During evaluation of \
In[498]:=",ExpressionUUID->"ba07fba0-e554-4fa6-9f79-d06eb7b035fe"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Torsion Energy:\"\>", "\[InvisibleSpace]", 
   "18.485587483070336`"}],
  SequenceForm["Torsion Energy:", 18.485587483070336`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702200761349699*^9, 3.709078716408841*^9, 3.709148719904001*^9, 
   3.709148799132205*^9, 3.8577069126354513`*^9, 3.857880715868587*^9, 
   3.857880793017137*^9, 3.857880856354788*^9, 3.857881444613182*^9, 
   3.857945451400752*^9, 3.857946191321007*^9, 3.857946276648016*^9, 
   3.8579464159755907`*^9, {3.8579464785430813`*^9, 3.85794651961649*^9}, {
   3.857946712518414*^9, 3.857946723972313*^9}},
 CellLabel->
  "During evaluation of \
In[498]:=",ExpressionUUID->"9639cea1-70d0-4ca1-8e64-5bfc9553d68f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Target func:\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.8573913472674313`"}]}],
  SequenceForm["Target func:", -0.8573913472674313],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702200761349699*^9, 3.709078716408841*^9, 3.709148719904001*^9, 
   3.709148799132205*^9, 3.8577069126354513`*^9, 3.857880715868587*^9, 
   3.857880793017137*^9, 3.857880856354788*^9, 3.857881444613182*^9, 
   3.857945451400752*^9, 3.857946191321007*^9, 3.857946276648016*^9, 
   3.8579464159755907`*^9, {3.8579464785430813`*^9, 3.85794651961649*^9}, {
   3.857946712518414*^9, 3.857946723973093*^9}},
 CellLabel->
  "During evaluation of \
In[498]:=",ExpressionUUID->"e25e1b74-36ff-4b7e-a785-ec4a9bbc64e2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Dipole energy:\"\>", "\[InvisibleSpace]", 
   "4.308244384125003`"}],
  SequenceForm["Dipole energy:", 4.308244384125003],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702200761349699*^9, 3.709078716408841*^9, 3.709148719904001*^9, 
   3.709148799132205*^9, 3.8577069126354513`*^9, 3.857880715868587*^9, 
   3.857880793017137*^9, 3.857880856354788*^9, 3.857881444613182*^9, 
   3.857945451400752*^9, 3.857946191321007*^9, 3.857946276648016*^9, 
   3.8579464159755907`*^9, {3.8579464785430813`*^9, 3.85794651961649*^9}, {
   3.857946712518414*^9, 3.857946723973875*^9}},
 CellLabel->
  "During evaluation of \
In[498]:=",ExpressionUUID->"82c2fccb-c3c2-4e5a-999c-b740038f62c8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge centre:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "0.514665014966958`"}], 
        RowBox[{"-", "0.7148850637240857`"}], "0.16028252652746566`", 
        RowBox[{"-", "1.216388067293075`"}], "0.39005273528498785`", 
        RowBox[{"-", "1.1274552522060968`"}], 
        RowBox[{"-", "1.1077216699462156`*^-8"}]},
       {"0", "0.`", "1.0345536262458515`", 
        RowBox[{"-", "0.82977300476039`"}], "1.4949972882603342`", 
        RowBox[{"-", "0.8293924341533352`"}], "1.034593900631158`", 
        RowBox[{"-", "1.7484466319217518`*^-8"}]},
       {"0", "2.8`", "0.15529003215286696`", "2.120804739030846`", 
        "1.2235302992690316`", "0.8750468004385215`", "2.4006957932551094`", 
        "2.0906302466983107`*^-8"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge centre:", 
   MatrixForm[{{
     0, -0.514665014966958, -0.7148850637240857, 
      0.16028252652746566`, -1.216388067293075, 
      0.39005273528498785`, -1.1274552522060968`, -1.1077216699462156`*^-8}, {
     0, 0., 1.0345536262458515`, -0.82977300476039, 
      1.4949972882603342`, -0.8293924341533352, 
      1.034593900631158, -1.7484466319217518`*^-8}, {
     0, 2.8, 0.15529003215286696`, 2.120804739030846, 1.2235302992690316`, 
      0.8750468004385215, 2.4006957932551094`, 2.0906302466983107`*^-8}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702200761349699*^9, 3.709078716408841*^9, 3.709148719904001*^9, 
   3.709148799132205*^9, 3.8577069126354513`*^9, 3.857880715868587*^9, 
   3.857880793017137*^9, 3.857880856354788*^9, 3.857881444613182*^9, 
   3.857945451400752*^9, 3.857946191321007*^9, 3.857946276648016*^9, 
   3.8579464159755907`*^9, {3.8579464785430813`*^9, 3.85794651961649*^9}, {
   3.857946712518414*^9, 3.857946723974806*^9}},
 CellLabel->
  "During evaluation of \
In[498]:=",ExpressionUUID->"c8ccfe71-7082-40e2-9a50-df23f5a0b8a5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"vertex position:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0.`", "0.`", 
        RowBox[{"-", "0.514665014966958`"}], 
        RowBox[{"-", "0.514665014966958`"}], 
        RowBox[{"-", "0.47782387984510033`"}], 
        RowBox[{"-", "0.951946247603071`"}], 
        RowBox[{"-", "0.029799943206293283`"}], "0.35036499626122464`", 
        RowBox[{"-", "0.8737439082656708`"}], 
        RowBox[{"-", "1.559032226320479`"}], "0.1998513903111681`", 
        "0.5802540802588076`", 
        RowBox[{"-", "0.8903812367492818`"}], 
        RowBox[{"-", "1.3645292676629117`"}], 
        RowBox[{"-", "1.1077216699462156`*^-8"}], 
        RowBox[{"-", "1.1077216699462156`*^-8"}]},
       {"0.`", "0.`", "0.257332507483479`", 
        RowBox[{"-", "0.257332507483479`"}], "0.7280854922819731`", 
        "1.3410217602097299`", 
        RowBox[{"-", "0.37764783108536354`"}], 
        RowBox[{"-", "1.2818981784354164`"}], "1.144067038670475`", 
        "1.8459275378501934`", 
        RowBox[{"-", "0.49180808497349515`"}], 
        RowBox[{"-", "1.1669767833331752`"}], "0.9345142779165161`", 
        "1.1346735233457999`", 
        RowBox[{"-", "1.7484466319217518`*^-8"}], 
        RowBox[{"-", "1.7484466319217518`*^-8"}]},
       {"0.5`", 
        RowBox[{"-", "0.5`"}], "2.371304326366284`", "3.2286956736337156`", 
        "0.47132686614226105`", 
        RowBox[{"-", "0.16074680183652712`"}], "2.0235859900467172`", 
        "2.2180234880149747`", "1.1263554602196189`", "1.3207051383184443`", 
        "1.1910535479919429`", "0.5590400528851001`", "1.9720001196213937`", 
        "2.829391466888825`", "0.5000000209063025`", 
        RowBox[{"-", "0.49999997909369753`"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["vertex position:", 
   MatrixForm[CompressedData["
1:eJxTTMoPSmViYGBgBmIBBkywb+vXw0oVD/bD6F3rvOesmnJv/01NhV/hZe/2
S3T+DH3QPG9/0C41v8Sca/YrJj46sfXr6/0ffKcfO/3xx34lrZ0/dk05af9g
gRNj4cRH9mpvZ55iqHuzf+UBgyUyV7/uB1qx4vBJ931INBb7L9hD6f0xiY6f
Kn2e258y3mp9ueSr/dz1v84lat/Yf/ml0KrlTV/2C4Vb2Er6fbKPWRwb8Lrj
r/2OZebzTlTe3x+z/eeN96s/7b9Ts7Km6/lb+4CWZTnz1T/ZA634IH4saB8S
DQQP7KH0ftlbIul5P5gc1n/anhp3hdPh1orPGhZa9+xLOjJfRE4+sv+M+v+b
vgYMDj9czSSb9zE6hLNP9e1l/WRve4p722zFr/asE9y0+vg+268r5fy+/PFD
e61t4f/9e//bL//s92/6IjYHhXBLbpB9BwJ7X/7/f38/AN5buQw=
    "]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702200761349699*^9, 3.709078716408841*^9, 3.709148719904001*^9, 
   3.709148799132205*^9, 3.8577069126354513`*^9, 3.857880715868587*^9, 
   3.857880793017137*^9, 3.857880856354788*^9, 3.857881444613182*^9, 
   3.857945451400752*^9, 3.857946191321007*^9, 3.857946276648016*^9, 
   3.8579464159755907`*^9, {3.8579464785430813`*^9, 3.85794651961649*^9}, {
   3.857946712518414*^9, 3.857946723976026*^9}},
 CellLabel->
  "During evaluation of \
In[498]:=",ExpressionUUID->"eae76268-c1ee-42c0-8a60-b173ba34ce26"]
}, Open  ]],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJxTTMoPSmViYGAQAGJmBlzggT0O8f37tn49rFQBoy/Yy94SSc/7weSAJr5/
/aftqXFXOB12rfOes2rKvf0xiY6fKn2e299a8VnDQuue/U1NhV/hZe/2nzLe
an255Kt9SUfmi8jJR/ZLdP4MfdA8b//c9b/OJWrf2H9G/f9NXwMGh6Bdan6J
OdfsL78UWrW86cv+H65mks37GB1WTHx0YuvX1/uFwi1sJf0+2YezT/XtZf1k
/8F3+rHTH3/sj1kcG/C646+97SnubbMVv9orae38sWvKSfsdy8znnai8v591
gptWH99n+wcLnBgLJz6yj9n+88b71Z/2ryvl/L788UN7tbczTzHUvdl/p2Zl
Tdfzt/Za28L/+/f+t195wGCJzNWv+wNaluXMV/9kv/yz37/pi9gcgIG04vBJ
931A+oP4saB9CuGW3NDwRBE/ENj78v//+/sBOJK5DA==
   "], 
   Polygon3DBox[{{1, 2, 3}, {1, 2, 4}, {3, 4, 1}, {3, 4, 2}, {3, 4, 5}, {3, 4,
     6}, {5, 6, 3}, {5, 6, 4}, {5, 6, 7}, {5, 6, 8}, {7, 8, 5}, {7, 8, 6}, {7,
     8, 9}, {7, 8, 10}, {9, 10, 7}, {9, 10, 8}, {9, 10, 11}, {9, 10, 12}, {11,
     12, 9}, {11, 12, 10}, {11, 12, 13}, {11, 12, 14}, {13, 14, 11}, {13, 14, 
    12}, {13, 14, 15}, {13, 14, 16}, {15, 16, 13}, {15, 16, 14}}]],
  ImageSize->{433.80759499927643`, 449.91533391141843`},
  ImageSizeRaw->Automatic,
  ViewPoint->{2.0547435982206252`, 2.62058964670847, -0.6004487064985131},
  ViewVertical->{0.43752202468910123`, 0.843114992801561, 
   0.3126205156818297}]], "Output",
 CellChangeTimes->{
  3.7022007614070873`*^9, 3.709078716471459*^9, 3.7091487199199867`*^9, 
   3.709148799266683*^9, 3.857707158457226*^9, 3.857880729896491*^9, 
   3.85788079309321*^9, 3.8578808564359903`*^9, 3.8578814446936207`*^9, 
   3.85794545144965*^9, 3.8579461913911543`*^9, 3.8579462767027884`*^9, 
   3.857946416030957*^9, {3.857946478612578*^9, 3.857946519681472*^9}, {
   3.857946712614194*^9, 3.857946723977264*^9}},
 CellLabel->
  "Out[498]=",ExpressionUUID->"e4f83842-c995-4c35-846c-83a80609a818"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"minimal", " ", "spring", " ", "energy"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"sole", "=", 
    RowBox[{"MKn", "[", 
     RowBox[{"energyS", ",", "True", ",", 
      RowBox[{"{", 
       RowBox[{"\"\<boxConstraint\>\"", "\[Rule]", "True"}], "}"}]}], "]"}]}],
    ";", 
   RowBox[{"Disp", "[", "sole", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.709148592850793*^9, 3.7091486346192627`*^9}, {
   3.857699944607277*^9, 3.857699946688045*^9}, 3.857880312027775*^9, {
   3.85788087799329*^9, 3.857880879621437*^9}, {3.85788126014682*^9, 
   3.85788127678442*^9}, {3.857881483246224*^9, 3.8578814837515297`*^9}, {
   3.85788154103129*^9, 3.8578815424685097`*^9}, {3.8578822448084583`*^9, 
   3.85788224673663*^9}, {3.857882393514311*^9, 3.857882421358317*^9}, {
   3.8579467403875*^9, 3.857946749792262*^9}},
 CellLabel->
  "In[499]:=",ExpressionUUID->"33c8da61-16c7-484e-9e29-2fa8da95cd14"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Finding local minima...\"\>"], "Print",
 CellChangeTimes->{
  3.702203488261093*^9, 3.7022042484235067`*^9, 3.709149017551359*^9, 
   3.824601634803072*^9, 3.857707158536292*^9, {3.8578808807996273`*^9, 
   3.857880889968719*^9}, 3.857881286600423*^9, {3.857881463456367*^9, 
   3.857881486505444*^9}, 3.857881545636743*^9, {3.857882292379828*^9, 
   3.8578823472190647`*^9}, {3.8578823957082167`*^9, 3.8578824459798822`*^9}, 
   3.857946756086565*^9},
 CellLabel->
  "During evaluation of \
In[499]:=",ExpressionUUID->"144b8d13-51d5-41b8-9544-7e86dd9c9561"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Cos(twist):\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.10207436284602853`"}]}],
  SequenceForm["Cos(twist):", -0.10207436284602853`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702203488261093*^9, 3.7022042484235067`*^9, 3.709149017551359*^9, 
   3.824601634803072*^9, 3.857707158536292*^9, {3.8578808807996273`*^9, 
   3.857880889968719*^9}, 3.857881286600423*^9, {3.857881463456367*^9, 
   3.857881486505444*^9}, 3.857881545636743*^9, {3.857882292379828*^9, 
   3.8578823472190647`*^9}, {3.8578823957082167`*^9, 3.8578824459798822`*^9}, 
   3.8579467561349583`*^9},
 CellLabel->
  "During evaluation of \
In[499]:=",ExpressionUUID->"59382b68-0a05-460e-9076-491283292775"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"total local twist:\"\>", "\[InvisibleSpace]", 
   "3.727835769321778`"}],
  SequenceForm["total local twist:", 3.727835769321778],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702203488261093*^9, 3.7022042484235067`*^9, 3.709149017551359*^9, 
   3.824601634803072*^9, 3.857707158536292*^9, {3.8578808807996273`*^9, 
   3.857880889968719*^9}, 3.857881286600423*^9, {3.857881463456367*^9, 
   3.857881486505444*^9}, 3.857881545636743*^9, {3.857882292379828*^9, 
   3.8578823472190647`*^9}, {3.8578823957082167`*^9, 3.8578824459798822`*^9}, 
   3.857946756137371*^9},
 CellLabel->
  "During evaluation of \
In[499]:=",ExpressionUUID->"a2f260b4-ee1c-462d-ad3b-ab46d8e433cd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writhe:\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "2.0000000000219753`"}]}],
  SequenceForm["Writhe:", -2.0000000000219753`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702203488261093*^9, 3.7022042484235067`*^9, 3.709149017551359*^9, 
   3.824601634803072*^9, 3.857707158536292*^9, {3.8578808807996273`*^9, 
   3.857880889968719*^9}, 3.857881286600423*^9, {3.857881463456367*^9, 
   3.857881486505444*^9}, 3.857881545636743*^9, {3.857882292379828*^9, 
   3.8578823472190647`*^9}, {3.8578823957082167`*^9, 3.8578824459798822`*^9}, 
   3.857946756138156*^9},
 CellLabel->
  "During evaluation of \
In[499]:=",ExpressionUUID->"b43b1f54-526f-4966-817d-1009b1ce996c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Total half twist:\"\>", "\[InvisibleSpace]", 
   "0.999999999831739`"}],
  SequenceForm["Total half twist:", 0.999999999831739],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702203488261093*^9, 3.7022042484235067`*^9, 3.709149017551359*^9, 
   3.824601634803072*^9, 3.857707158536292*^9, {3.8578808807996273`*^9, 
   3.857880889968719*^9}, 3.857881286600423*^9, {3.857881463456367*^9, 
   3.857881486505444*^9}, 3.857881545636743*^9, {3.857882292379828*^9, 
   3.8578823472190647`*^9}, {3.8578823957082167`*^9, 3.8578824459798822`*^9}, 
   3.857946756142352*^9},
 CellLabel->
  "During evaluation of \
In[499]:=",ExpressionUUID->"41047f29-0b57-4c6f-8a1f-e80a00b157ec"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge vectors:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0.6780227405407082`", "0.3762878756276039`", 
        RowBox[{"-", "0.1674514942521448`"}], "0.37630693879052624`", 
        "0.6780367598896914`", "0"},
       {"0", "0.9947767711650576`", 
        RowBox[{"-", "0.175843067464124`"}], 
        RowBox[{"-", "0.649661288629239`"}], "0.7318220530785686`", 
        "0.5908327430579771`", 
        RowBox[{"-", "0.7279058845390807`"}], "0"},
       {"1", 
        RowBox[{"-", "0.10207436284602853`"}], 
        RowBox[{"-", "0.7136976808523529`"}], "0.6605661551775958`", 
        "0.6606031186411399`", 
        RowBox[{"-", "0.7136594135405402`"}], 
        RowBox[{"-", "0.10207436284602853`"}], "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge vectors:", 
   MatrixForm[{{
     0, 0, 0.6780227405407082, 0.3762878756276039, -0.1674514942521448, 
      0.37630693879052624`, 0.6780367598896914, 0}, {
     0, 0.9947767711650576, -0.175843067464124, -0.649661288629239, 
      0.7318220530785686, 0.5908327430579771, -0.7279058845390807, 0}, {
     1, -0.10207436284602853`, -0.7136976808523529, 0.6605661551775958, 
      0.6606031186411399, -0.7136594135405402, -0.10207436284602853`, 1}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702203488261093*^9, 3.7022042484235067`*^9, 3.709149017551359*^9, 
   3.824601634803072*^9, 3.857707158536292*^9, {3.8578808807996273`*^9, 
   3.857880889968719*^9}, 3.857881286600423*^9, {3.857881463456367*^9, 
   3.857881486505444*^9}, 3.857881545636743*^9, {3.857882292379828*^9, 
   3.8578823472190647`*^9}, {3.8578823957082167`*^9, 3.8578824459798822`*^9}, 
   3.85794675614347*^9},
 CellLabel->
  "During evaluation of \
In[499]:=",ExpressionUUID->"ec3ecbba-74e1-4a0a-bf2e-af321004c854"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Elastic Energy:\"\>", "\[InvisibleSpace]", 
   "6.613920182982065`"}],
  SequenceForm["Elastic Energy:", 6.613920182982065],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702203488261093*^9, 3.7022042484235067`*^9, 3.709149017551359*^9, 
   3.824601634803072*^9, 3.857707158536292*^9, {3.8578808807996273`*^9, 
   3.857880889968719*^9}, 3.857881286600423*^9, {3.857881463456367*^9, 
   3.857881486505444*^9}, 3.857881545636743*^9, {3.857882292379828*^9, 
   3.8578823472190647`*^9}, {3.8578823957082167`*^9, 3.8578824459798822`*^9}, 
   3.857946756144376*^9},
 CellLabel->
  "During evaluation of \
In[499]:=",ExpressionUUID->"e168c337-b2c2-45e7-abff-674d034ab7f1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Torsion Energy:\"\>", "\[InvisibleSpace]", 
   "5.6057064275694675`"}],
  SequenceForm["Torsion Energy:", 5.6057064275694675`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702203488261093*^9, 3.7022042484235067`*^9, 3.709149017551359*^9, 
   3.824601634803072*^9, 3.857707158536292*^9, {3.8578808807996273`*^9, 
   3.857880889968719*^9}, 3.857881286600423*^9, {3.857881463456367*^9, 
   3.857881486505444*^9}, 3.857881545636743*^9, {3.857882292379828*^9, 
   3.8578823472190647`*^9}, {3.8578823957082167`*^9, 3.8578824459798822`*^9}, 
   3.8579467561450977`*^9},
 CellLabel->
  "During evaluation of \
In[499]:=",ExpressionUUID->"d131774c-309f-4ffe-bd8d-590739143e7b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Target func:\"\>", "\[InvisibleSpace]", "1.0082137565143534`"}],
  SequenceForm["Target func:", 1.0082137565143534`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702203488261093*^9, 3.7022042484235067`*^9, 3.709149017551359*^9, 
   3.824601634803072*^9, 3.857707158536292*^9, {3.8578808807996273`*^9, 
   3.857880889968719*^9}, 3.857881286600423*^9, {3.857881463456367*^9, 
   3.857881486505444*^9}, 3.857881545636743*^9, {3.857882292379828*^9, 
   3.8578823472190647`*^9}, {3.8578823957082167`*^9, 3.8578824459798822`*^9}, 
   3.8579467561457987`*^9},
 CellLabel->
  "During evaluation of \
In[499]:=",ExpressionUUID->"fa940fdc-145e-4f85-b00a-79fa2734b1ce"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Dipole energy:\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.2194002877880789`"}]}],
  SequenceForm["Dipole energy:", -0.2194002877880789],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702203488261093*^9, 3.7022042484235067`*^9, 3.709149017551359*^9, 
   3.824601634803072*^9, 3.857707158536292*^9, {3.8578808807996273`*^9, 
   3.857880889968719*^9}, 3.857881286600423*^9, {3.857881463456367*^9, 
   3.857881486505444*^9}, 3.857881545636743*^9, {3.857882292379828*^9, 
   3.8578823472190647`*^9}, {3.8578823957082167`*^9, 3.8578824459798822`*^9}, 
   3.857946756146534*^9},
 CellLabel->
  "During evaluation of \
In[499]:=",ExpressionUUID->"eedf3ace-97be-4dfe-8839-147df4778849"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge centre:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "0.9947767711650576`"}], 
        RowBox[{"-", "1.7226957147836426`"}], 
        RowBox[{"-", "0.40404977529330943`"}], 
        RowBox[{"-", "0.2630288767411999`"}], 
        RowBox[{"-", "1.6444707105226897`"}], 
        RowBox[{"-", "1.1705970443782991`"}], 
        RowBox[{"-", "1.2262442172783494`*^-9"}]},
       {"0", "0.`", "2.7161662200263503`", "1.5073709721165713`", 
        RowBox[{"-", "0.6708703699286245`"}], "1.5073175808382164`", 
        "2.716173235990329`", 
        RowBox[{"-", "6.087876869287356`*^-10"}]},
       {"0", "2.8`", "1.8397105114195507`", 
        RowBox[{"-", "0.5329605080067255`"}], "1.4832137386421687`", 
        "2.9585769286258135`", "0.2858082168340206`", 
        "8.651410698945483`*^-10"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge centre:", 
   MatrixForm[{{
     0, -0.9947767711650576, -1.7226957147836426`, -0.40404977529330943`, \
-0.2630288767411999, -1.6444707105226897`, -1.1705970443782991`, \
-1.2262442172783494`*^-9}, {
     0, 0., 2.7161662200263503`, 1.5073709721165713`, -0.6708703699286245, 
      1.5073175808382164`, 2.716173235990329, -6.087876869287356*^-10}, {
     0, 2.8, 1.8397105114195507`, -0.5329605080067255, 1.4832137386421687`, 
      2.9585769286258135`, 0.2858082168340206, 8.651410698945483*^-10}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702203488261093*^9, 3.7022042484235067`*^9, 3.709149017551359*^9, 
   3.824601634803072*^9, 3.857707158536292*^9, {3.8578808807996273`*^9, 
   3.857880889968719*^9}, 3.857881286600423*^9, {3.857881463456367*^9, 
   3.857881486505444*^9}, 3.857881545636743*^9, {3.857882292379828*^9, 
   3.8578823472190647`*^9}, {3.8578823957082167`*^9, 3.8578824459798822`*^9}, 
   3.857946756147397*^9},
 CellLabel->
  "During evaluation of \
In[499]:=",ExpressionUUID->"3565880c-8b84-4045-9ce7-35643672293d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"vertex position:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0.`", "0.`", 
        RowBox[{"-", "0.9947767711650576`"}], 
        RowBox[{"-", "0.9947767711650576`"}], 
        RowBox[{"-", "1.3836843445132885`"}], 
        RowBox[{"-", "2.061707085053997`"}], 
        RowBox[{"-", "0.21590583747950748`"}], 
        RowBox[{"-", "0.5921937131071113`"}], 
        RowBox[{"-", "0.3467546238672723`"}], 
        RowBox[{"-", "0.1793031296151275`"}], 
        RowBox[{"-", "1.4563172411274266`"}], 
        RowBox[{"-", "1.8326241799179528`"}], 
        RowBox[{"-", "0.8315786644334535`"}], 
        RowBox[{"-", "1.5096154243231448`"}], 
        RowBox[{"-", "1.2262442172783494`*^-9"}], 
        RowBox[{"-", "1.2262442172783494`*^-9"}]},
       {"0.`", "0.`", "0.4973883855825288`", 
        RowBox[{"-", "0.4973883855825288`"}], "2.6282446862942885`", 
        "2.804087753758412`", "1.1825403278019517`", "1.832201616431191`", 
        RowBox[{"-", "0.30495934338934017`"}], 
        RowBox[{"-", "1.0367813964679087`"}], "1.802733952367205`", 
        "1.2119012093092278`", "2.3522202937207886`", "3.0801261782598695`", 
        RowBox[{"-", "6.087876869287356`*^-10"}], 
        RowBox[{"-", "6.087876869287356`*^-10"}]},
       {"0.5`", 
        RowBox[{"-", "0.5`"}], "2.7489628185769854`", "2.851037181423014`", 
        "1.4828616709933742`", "2.196559351845727`", 
        RowBox[{"-", "0.20267743041792757`"}], 
        RowBox[{"-", "0.8632435855955234`"}], "1.8135152979627387`", 
        "1.1529121793215986`", "2.6017472218555433`", "3.3154066353960836`", 
        "0.2347710354110063`", "0.33684539825703486`", "0.5000000008651411`", 
        
        RowBox[{"-", "0.49999999913485893`"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["vertex position:", 
   MatrixForm[CompressedData["
1:eJxTTMoPSmViYGBgBmIBBkzgqhcvYXb1/X4YPXn/L8NJyt/2O7046JFQx3Cg
bXtd/tlFp/cvUr5m5fD50X6DU/5+VobX9j+werQq/fOx/cFPNvsJ+37f/3Zz
5u7coL/7ZyT8vO0159X+IyIXGpLUf+wHWuEgIii6D4nGYv99eyi9v0gjR20p
G6uDG29O/9E8Nod5RxQz1r/+ZG/DmLJkU8Bf+3sP5hqWtFze/+DJO7EV0z7s
t3va0/f/+h/7NSX7Wz8lf7avVp1yP+Iik8PV/JmGkks4HEB2fHnFsg+ZZmB4
YA+l9zutumv+4C+rQ5fS+ylvzrE5sHde0zi787v9W+P5W3snMTo8UlrSHPrx
5P6UVcLMG+e/3s+y+8dcDZa/9qu6pnKFFH2yn7Hg042ECywOM/b+f/m5lcvh
zJaJ+r94ztkvmhPC8KDvqn3R8zKwfTKGQv///7+/HwCg+KyK
    "]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702203488261093*^9, 3.7022042484235067`*^9, 3.709149017551359*^9, 
   3.824601634803072*^9, 3.857707158536292*^9, {3.8578808807996273`*^9, 
   3.857880889968719*^9}, 3.857881286600423*^9, {3.857881463456367*^9, 
   3.857881486505444*^9}, 3.857881545636743*^9, {3.857882292379828*^9, 
   3.8578823472190647`*^9}, {3.8578823957082167`*^9, 3.8578824459798822`*^9}, 
   3.857946756148539*^9},
 CellLabel->
  "During evaluation of \
In[499]:=",ExpressionUUID->"dd204978-8793-4cbf-9cb3-1462ad8f9002"]
}, Open  ]],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJxTTMoPSmViYGAQAGJmBlzggT0O8f2uevESZlffQ+n79k6r7po/+MvqgCa+
v0vp/ZQ359gcJu//ZThJ+dv+Io0ctaVsrA7sndc0zu78bu/04qBHQh3DATfe
nP6jeWwOb43nb+2dxOjQtr0u/+yi0/vnHVHMWP/6k/0jpSXNoR9P7l+kfM3K
4fOj/TaMKUs2Bfy1T1klzLxx/uv9Bqf8/awMr+2/92CuYUnL5f0su3/M1WD5
a//A6tGq9M/H9j948k5sxbQP+1d1TeUKKfpkH/xks5+w7/f9dk97+v5f/2M/
Y8GnGwkXWBzebs7cnRv0d/+akv2tn5I/28/Y+//l51YuhxkJP297zXm1v1p1
yv2Ii0wOZ7ZM1P/Fc87+iMiFhiT1H/uv5s80lFzC4bBoTgjDg76roHBzEBEU
3QcKrS+vWPYVPS+DhSeKuIyh0P///+/vBwALSayK
   "], 
   Polygon3DBox[{{1, 2, 3}, {1, 2, 4}, {3, 4, 1}, {3, 4, 2}, {3, 4, 5}, {3, 4,
     6}, {5, 6, 3}, {5, 6, 4}, {5, 6, 7}, {5, 6, 8}, {7, 8, 5}, {7, 8, 6}, {7,
     8, 9}, {7, 8, 10}, {9, 10, 7}, {9, 10, 8}, {9, 10, 11}, {9, 10, 12}, {11,
     12, 9}, {11, 12, 10}, {11, 12, 13}, {11, 12, 14}, {13, 14, 11}, {13, 14, 
    12}, {13, 14, 15}, {13, 14, 16}, {15, 16, 13}, {15, 16, 14}}]],
  ImageSize->{390.8056456592504, 437.30568894563726`},
  ImageSizeRaw->Automatic,
  ViewPoint->{2.199739940095332, -1.2500925046123805`, 2.2468673583149785`},
  ViewVertical->{0.36044382186222607`, 0.3535102499763128, 
   0.8631979810234942}]], "Output",
 CellChangeTimes->{
  3.7022034883646297`*^9, 3.70220424859789*^9, 3.709149017645081*^9, 
   3.82460163483675*^9, 3.8577073450233927`*^9, {3.857880880937667*^9, 
   3.857880890065859*^9}, 3.857881299705949*^9, {3.8578814769512253`*^9, 
   3.8578814865136623`*^9}, 3.85788224189861*^9, {3.8578822924919167`*^9, 
   3.857882347295722*^9}, {3.857882395811329*^9, 3.857882446082896*^9}, 
   3.8579467561497927`*^9},
 CellLabel->
  "Out[499]=",ExpressionUUID->"df49bf06-84da-4692-bac0-39db4f6645cf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"minimal", " ", "bending", " ", "energy"}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"sole", "=", 
    RowBox[{"MKn", "[", 
     RowBox[{"energyE", ",", "True", ",", 
      RowBox[{"{", 
       RowBox[{"\"\<boxConstraint\>\"", "\[Rule]", "True"}], "}"}]}], "]"}]}],
    ";", 
   RowBox[{"Disp", "[", "sole", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7090779643613167`*^9, 3.7090779643711863`*^9}, {
   3.857881554109091*^9, 3.857881568091179*^9}, {3.85788231382953*^9, 
   3.857882314609425*^9}, 3.85794678410258*^9},
 CellLabel->
  "In[500]:=",ExpressionUUID->"cffc9d2e-6b44-4c81-b7c3-a8d44b4730b0"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Finding local minima...\"\>"], "Print",
 CellChangeTimes->{3.8578824784171047`*^9, 3.857946785192369*^9},
 CellLabel->
  "During evaluation of \
In[500]:=",ExpressionUUID->"9723e910-0e3b-4d9d-b764-e90a2cc6b916"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Cos(twist):\"\>", "\[InvisibleSpace]", "0.649001738774555`"}],
  SequenceForm["Cos(twist):", 0.649001738774555],
  Editable->False]], "Print",
 CellChangeTimes->{3.8578824784171047`*^9, 3.857946785333095*^9},
 CellLabel->
  "During evaluation of \
In[500]:=",ExpressionUUID->"789622bf-c3c3-428b-9c6c-e20c5cec3661"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"total local twist:\"\>", "\[InvisibleSpace]", 
   "1.9263074653538537`"}],
  SequenceForm["total local twist:", 1.9263074653538537`],
  Editable->False]], "Print",
 CellChangeTimes->{3.8578824784171047`*^9, 3.857946785336279*^9},
 CellLabel->
  "During evaluation of \
In[500]:=",ExpressionUUID->"0791457e-0b89-4c11-b1dd-2d0ee973c4db"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writhe:\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "8.603824487359583`*^-11"}]}],
  SequenceForm["Writhe:", -8.603824487359583*^-11],
  Editable->False]], "Print",
 CellChangeTimes->{3.8578824784171047`*^9, 3.857946785337948*^9},
 CellLabel->
  "During evaluation of \
In[500]:=",ExpressionUUID->"14e01ee6-6c63-437b-a86e-02113e2572ea"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Total half twist:\"\>", "\[InvisibleSpace]", 
   "5.000000000000022`"}],
  SequenceForm["Total half twist:", 5.000000000000022],
  Editable->False]], "Print",
 CellChangeTimes->{3.8578824784171047`*^9, 3.8579467853505297`*^9},
 CellLabel->
  "During evaluation of \
In[500]:=",ExpressionUUID->"f33b1ed0-0d75-4170-b146-36218575f116"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge vectors:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", "0.1877949880481083`", "0.4219166004696915`", 
        "0.5261919712953299`", "0.42196483171517685`", "0.1877917906206099`", 
        "0"},
       {"0", "0.7607869235650704`", "0.9722251451155494`", 
        "0.475103402149792`", 
        RowBox[{"-", "0.35623478008434933`"}], 
        RowBox[{"-", "0.895786944041461`"}], 
        RowBox[{"-", "0.7372455401401514`"}], "0"},
       {"1", "0.649001738774555`", 
        RowBox[{"-", "0.13968288985123747`"}], 
        RowBox[{"-", "0.7721807699573016`"}], 
        RowBox[{"-", "0.7721520520278702`"}], 
        RowBox[{"-", "0.1396833267351576`"}], "0.649001738774555`", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge vectors:", 
   MatrixForm[{{
     0, 0, 0.1877949880481083, 0.4219166004696915, 0.5261919712953299, 
      0.42196483171517685`, 0.1877917906206099, 0}, {
     0, 0.7607869235650704, 0.9722251451155494, 
      0.475103402149792, -0.35623478008434933`, -0.895786944041461, \
-0.7372455401401514, 0}, {
     1, 0.649001738774555, -0.13968288985123747`, -0.7721807699573016, \
-0.7721520520278702, -0.1396833267351576, 0.649001738774555, 1}}]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8578824784171047`*^9, 3.857946785352865*^9},
 CellLabel->
  "During evaluation of \
In[500]:=",ExpressionUUID->"62a1088f-3ccf-409e-ab85-15b22943b940"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Elastic Energy:\"\>", "\[InvisibleSpace]", 
   "1.4599840492839746`"}],
  SequenceForm["Elastic Energy:", 1.4599840492839746`],
  Editable->False]], "Print",
 CellChangeTimes->{3.8578824784171047`*^9, 3.857946785354368*^9},
 CellLabel->
  "During evaluation of \
In[500]:=",ExpressionUUID->"6994c58e-bc9b-4208-9327-ef351371615f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Torsion Energy:\"\>", "\[InvisibleSpace]", 
   "1.350839579492729`"}],
  SequenceForm["Torsion Energy:", 1.350839579492729],
  Editable->False]], "Print",
 CellChangeTimes->{3.8578824784171047`*^9, 3.857946785357111*^9},
 CellLabel->
  "During evaluation of \
In[500]:=",ExpressionUUID->"e5e34aab-9ccc-4729-b980-19317a53f851"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Target func:\"\>", "\[InvisibleSpace]", "1.459984049283975`"}],
  
  SequenceForm["Target func:", 1.459984049283975],
  Editable->False]], "Print",
 CellChangeTimes->{3.8578824784171047`*^9, 3.8579467853590612`*^9},
 CellLabel->
  "During evaluation of \
In[500]:=",ExpressionUUID->"a8c371ca-1441-4207-8f22-dfb2502ebea7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Dipole energy:\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.38276380520724707`"}]}],
  SequenceForm["Dipole energy:", -0.38276380520724707`],
  Editable->False]], "Print",
 CellChangeTimes->{3.8578824784171047`*^9, 3.8579467853603973`*^9},
 CellLabel->
  "During evaluation of \
In[500]:=",ExpressionUUID->"837d2b33-05c6-4656-b094-4bbbe295fb0b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge centre:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "0.7607869235650704`"}], 
        RowBox[{"-", "1.4980316492700076`"}], 
        RowBox[{"-", "1.656575427672041`"}], 
        RowBox[{"-", "1.1171386600233921`"}], 
        RowBox[{"-", "0.2857248082369084`"}], "0.21142852664369904`", 
        "2.4125546005393517`*^-10"},
       {"0", "0.`", "2.2520826597585657`", "5.060390214517398`", 
        "6.310148187833933`", "5.0603700379571475`", "2.252079303108756`", 
        "9.5723429183181`*^-11"},
       {"0", "2.8`", "4.474332897350694`", "3.7622449153772597`", 
        "1.1998417963682417`", 
        RowBox[{"-", "1.2832212982262052`"}], 
        RowBox[{"-", "1.8172048691265403`"}], 
        RowBox[{"-", "5.577860395789003`*^-10"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge centre:", 
   MatrixForm[{{
     0, -0.7607869235650704, -1.4980316492700076`, -1.656575427672041, \
-1.1171386600233921`, -0.2857248082369084, 0.21142852664369904`, 
      2.4125546005393517`*^-10}, {
     0, 0., 2.2520826597585657`, 5.060390214517398, 6.310148187833933, 
      5.0603700379571475`, 2.252079303108756, 9.5723429183181*^-11}, {
     0, 2.8, 4.474332897350694, 3.7622449153772597`, 
      1.1998417963682417`, -1.2832212982262052`, -1.8172048691265403`, \
-5.577860395789003*^-10}}]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8578824784171047`*^9, 3.857946785361395*^9},
 CellLabel->
  "During evaluation of \
In[500]:=",ExpressionUUID->"6ec9d763-f30b-40a2-84c1-9637dee7c39b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"vertex position:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0.`", "0.`", 
        RowBox[{"-", "0.7607869235650704`"}], 
        RowBox[{"-", "0.7607869235650704`"}], 
        RowBox[{"-", "1.4041341552459534`"}], 
        RowBox[{"-", "1.5919291432940619`"}], 
        RowBox[{"-", "1.4456171274371954`"}], 
        RowBox[{"-", "1.8675337279068867`"}], 
        RowBox[{"-", "0.8540426743757272`"}], 
        RowBox[{"-", "1.380234645671057`"}], 
        RowBox[{"-", "0.07474239237931996`"}], 
        RowBox[{"-", "0.4967072240944968`"}], "0.305324421954004`", 
        "0.11753263133339409`", "2.4125546005393517`*^-10", 
        "2.4125546005393517`*^-10"},
       {"0.`", "0.`", "0.3803934617825352`", 
        RowBox[{"-", "0.3803934617825352`"}], "2.7381952323163405`", 
        "1.765970087200791`", "5.297941915592293`", "4.822838513442502`", 
        "6.132030797791758`", "6.488265577876108`", "4.612476565936417`", 
        "5.508263509977878`", "1.8834565330386803`", "2.6207020731788315`", 
        "9.5723429183181`*^-11", "9.5723429183181`*^-11"},
       {"0.5`", 
        RowBox[{"-", "0.5`"}], "3.124500869387277`", "2.4754991306127225`", 
        "4.404491452425075`", "4.544174342276312`", "3.376154530398609`", 
        "4.14833530035591`", "0.8137657703543066`", "1.5859178223821768`", 
        RowBox[{"-", "1.3530629615937841`"}], 
        RowBox[{"-", "1.2133796348586263`"}], 
        RowBox[{"-", "1.4927039997392628`"}], 
        RowBox[{"-", "2.141705738513818`"}], "0.49999999944221396`", 
        RowBox[{"-", "0.500000000557786`"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["vertex position:", 
   MatrixForm[CompressedData["
1:eJxTTMoPSmViYGBgBmIBBkxg9b32YmzEi/0wettS+4TQ8m/7X32p39hV8XN/
gui5HHvF7/t3TL/Bnf3w7/5jC6p8A0Ne77+aWf+mQPTb/jO3nzgFKm3e78p/
WoL31P39RbP2FuZ3Xba30D0VPk9snz3IDrMpH2yRaUz7b9hD6f2/njx7duk5
q8Pdu4tvZjr+sQ/xq1svbijqcKb+ie40L2GHoKBbIsbtEg5G35ye/P4s6TCP
dyKfbrGQw7rsI1ZlHGIO5tm+gYuV/tnHPGNbZvSdxQFkxwf/W7bINAPDA3so
vd9pzyX/X/84HLoEftVcOsvsULf1HqPxPEGHZTPectroCjko5Rf5xTJxOzyo
rjd9Ol3A4cMVj+Y4rlf2EWlXYl/H/7SPmiYeqbrs6/6mWVMPM2R93s948fo0
2Uff91tNcZlnpsR4wGdt2v///+/bR630AdsHANoDpYg=
    "]]],
  Editable->False]], "Print",
 CellChangeTimes->{3.8578824784171047`*^9, 3.857946785362836*^9},
 CellLabel->
  "During evaluation of \
In[500]:=",ExpressionUUID->"4ad30152-20b5-4900-be71-4758973338c2"]
}, Open  ]],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJxTTMoPSmViYGAQAGJmBlzggT0O8f1W32svxka8gNI37J32XPL/9Y/DAU18
f5fAr5pLZ5kdti21Twgt/7b/15Nnzy49Z3Wo23qP0XieoMOrL/Ubuyp+7r97
d/HNTMc/9stmvOW00RVySBA9l2Ov+H1/iF/denFDUQel/CK/WCZuhx3Tb3Bn
P/y7/0z9E91pXsIOD6rrTZ9OF3A4tqDKNzDk9f6goFsixu0SDh+ueDTHcb2y
v5pZ/6ZA9Nt+o29OT35/lnSISLsS+zr+p/2Z20+cApU275/HO5FPt1jIIWqa
eKTqsq/7XflPS/Ceur9/XfYRqzIOMYemWVMPM2R93l80a29hftdle/Ns38DF
Sv/sGS9enyb76Pt+C91T4fPE9tnHPGNbZvSdxcFqiss8MyXGA6BQMpvywRZE
f/C/ZeuzNu3////37dHFo1b6gMMTAPZkpYg=
   "], 
   Polygon3DBox[{{1, 2, 3}, {1, 2, 4}, {3, 4, 1}, {3, 4, 2}, {3, 4, 5}, {3, 4,
     6}, {5, 6, 3}, {5, 6, 4}, {5, 6, 7}, {5, 6, 8}, {7, 8, 5}, {7, 8, 6}, {7,
     8, 9}, {7, 8, 10}, {9, 10, 7}, {9, 10, 8}, {9, 10, 11}, {9, 10, 12}, {11,
     12, 9}, {11, 12, 10}, {11, 12, 13}, {11, 12, 14}, {13, 14, 11}, {13, 14, 
    12}, {13, 14, 15}, {13, 14, 16}, {15, 16, 13}, {15, 16, 14}}]]]], "Output",\

 CellChangeTimes->{{3.857882458294591*^9, 3.857882478558807*^9}, 
   3.857946785364903*^9},
 CellLabel->
  "Out[500]=",ExpressionUUID->"b106121a-66b4-4676-8b66-32e4035496fc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Orientable", " ", "K4", " ", "with", " ", 
    RowBox[{"slide", ":", " ", 
     RowBox[{"Bennett", " ", "4", 
      RowBox[{"R", " ", "?"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Setup", "[", 
    RowBox[{"4", ",", "True", ",", "1"}], "]"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.702344306646769*^9, 3.702344308998667*^9}, {
   3.702344387280039*^9, 3.7023444181913967`*^9}, 3.702344464583557*^9, {
   3.709091693722953*^9, 3.709091700358521*^9}, {3.709148518725635*^9, 
   3.7091485251719093`*^9}},
 CellLabel->
  "In[350]:=",ExpressionUUID->"6f05fe96-0d7d-4819-a0a3-ba00369891e7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Setup \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" tetrahedra system with slide=\"\>", 
   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" oriented=\"\>", 
   "\[InvisibleSpace]", "True", 
   "\[InvisibleSpace]", "\<\" free (non-constant) twist angle=\"\>", 
   "\[InvisibleSpace]", "False"}],
  SequenceForm[
  "Setup ", 4, " tetrahedra system with slide=", 1, " oriented=", True, 
   " free (non-constant) twist angle=", False],
  Editable->False]], "Print",
 CellChangeTimes->{3.702344310103702*^9, 3.70241072009589*^9, 
  3.709091607885599*^9, 3.857882495048777*^9, 3.857882620375012*^9, 
  3.857887865163028*^9},
 CellLabel->
  "During evaluation of \
In[350]:=",ExpressionUUID->"90f971fb-5807-4551-880e-f74e1295d1e5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{"MKn", "[", 
    RowBox[{"-", 
     RowBox[{"h", "[", 
      RowBox[{"2", ",", "3"}], "]"}]}], "]"}]}], ";", 
  RowBox[{"Disp", "[", 
   RowBox[{"sol", ",", "0.2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7023443123371677`*^9, 3.7023443402944937`*^9}, {
  3.70241072421005*^9, 3.7024107458750877`*^9}, {3.709091604385545*^9, 
  3.709091606128469*^9}, {3.7090916836160107`*^9, 3.7090917103235893`*^9}, {
  3.857699960489355*^9, 3.85769996345207*^9}, {3.8578824969568872`*^9, 
  3.857882518718567*^9}, {3.857887867206171*^9, 
  3.857887883712244*^9}},ExpressionUUID->"549f6e95-0b5f-48e2-aa47-\
3d9449de632d"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Finding global minima...\"\>"], "Print",
 CellChangeTimes->{
  3.7023443508549213`*^9, {3.702410729105925*^9, 3.702410748711968*^9}, 
   3.709091617880536*^9, 3.7090917122723217`*^9, {3.857882499084886*^9, 
   3.857882520148581*^9}, 3.857882654840293*^9},
 CellLabel->
  "During evaluation of \
In[182]:=",ExpressionUUID->"833f30b5-fb9d-459b-9848-f3780043e8b3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Cos(twist):\"\>", "\[InvisibleSpace]", 
   "0.38196603780025645969944935060111323557`14."}],
  SequenceForm["Cos(twist):", 0.38196603780025645969944935060111323557`14.],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7023443508549213`*^9, {3.702410729105925*^9, 3.702410748711968*^9}, 
   3.709091617880536*^9, 3.7090917122723217`*^9, {3.857882499084886*^9, 
   3.857882520148581*^9}, 3.857882702670474*^9},
 CellLabel->
  "During evaluation of \
In[182]:=",ExpressionUUID->"0da2b982-1337-4b6f-95e7-838e195706d0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"total local twist:\"\>", "\[InvisibleSpace]", 
   "1.50098851456443557097596455346368548986`14.455197356427865"}],
  SequenceForm[
  "total local twist:", 
   1.50098851456443557097596455346368548986`14.455197356427865],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7023443508549213`*^9, {3.702410729105925*^9, 3.702410748711968*^9}, 
   3.709091617880536*^9, 3.7090917122723217`*^9, {3.857882499084886*^9, 
   3.857882520148581*^9}, 3.85788270267647*^9},
 CellLabel->
  "During evaluation of \
In[182]:=",ExpressionUUID->"cd958ad7-ec45-45d1-82bf-2aecd1dfeab9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writhe:\"\>", "\[InvisibleSpace]", "0``2.5918953700240177"}],
  SequenceForm["Writhe:", 0``2.5918953700240177],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7023443508549213`*^9, {3.702410729105925*^9, 3.702410748711968*^9}, 
   3.709091617880536*^9, 3.7090917122723217`*^9, {3.857882499084886*^9, 
   3.857882520148581*^9}, 3.857882702677395*^9},
 CellLabel->
  "During evaluation of \
In[182]:=",ExpressionUUID->"d378799d-9c32-4753-873b-2fb9c896159d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Total half twist:\"\>", "\[InvisibleSpace]", 
   "1.5009885145644355709`2.7682727390949284"}],
  SequenceForm["Total half twist:", 1.5009885145644355709`2.7682727390949284],
  
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7023443508549213`*^9, {3.702410729105925*^9, 3.702410748711968*^9}, 
   3.709091617880536*^9, 3.7090917122723217`*^9, {3.857882499084886*^9, 
   3.857882520148581*^9}, 3.857882702678061*^9},
 CellLabel->
  "During evaluation of \
In[182]:=",ExpressionUUID->"f6656d6a-848d-404a-b756-f8020bb72f28"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge vectors:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "0.82668443403056262563126613049172196263`14."}], 
        RowBox[{"-", "0.82653262045415383756503566681809175501`14."}], "0"},
       {"0", 
        RowBox[{"-", "0.92417645149968213808675766072464304685`14."}], 
        RowBox[{"-", "0.51081411557866904854803260126936703979`14."}], 
        "0.41345591878037551553846463044091196561`14.", "0"},
       {"1", "0.38196603780025645969944935060111323557`14.", 
        RowBox[{"-", "0.23592778269186602757934487210710011445`14."}], 
        "0.38196603780025645969944935060111323557`14.", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge vectors:", 
   MatrixForm[{{
     0, 0, -0.82668443403056262563126613049172196263`14., \
-0.82653262045415383756503566681809175501`14., 0}, {
     0, -0.92417645149968213808675766072464304685`14., \
-0.51081411557866904854803260126936703979`14., 
      0.41345591878037551553846463044091196561`14., 0}, {
     1, 0.38196603780025645969944935060111323557`14., \
-0.23592778269186602757934487210710011445`14., 
      0.38196603780025645969944935060111323557`14., 1}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7023443508549213`*^9, {3.702410729105925*^9, 3.702410748711968*^9}, 
   3.709091617880536*^9, 3.7090917122723217`*^9, {3.857882499084886*^9, 
   3.857882520148581*^9}, 3.8578827026788683`*^9},
 CellLabel->
  "During evaluation of \
In[182]:=",ExpressionUUID->"2bf46edc-bf78-4bb7-82c5-789c17c29445"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Torsion Energy:\"\>", "\[InvisibleSpace]", 
   "1.47856018677849184234408585288234213993`13.521509302113444"}],
  SequenceForm[
  "Torsion Energy:", 
   1.47856018677849184234408585288234213993`13.521509302113444],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7023443508549213`*^9, {3.702410729105925*^9, 3.702410748711968*^9}, 
   3.709091617880536*^9, 3.7090917122723217`*^9, {3.857882499084886*^9, 
   3.857882520148581*^9}, 3.857882702692396*^9},
 CellLabel->
  "During evaluation of \
In[182]:=",ExpressionUUID->"53f6cd36-c038-436e-b51e-fc46e7952131"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Target func:\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.38196603780025645969944935060111323557`14."}]}],
  SequenceForm["Target func:", -0.38196603780025645969944935060111323557`14.],
  
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7023443508549213`*^9, {3.702410729105925*^9, 3.702410748711968*^9}, 
   3.709091617880536*^9, 3.7090917122723217`*^9, {3.857882499084886*^9, 
   3.857882520148581*^9}, 3.8578827026955643`*^9},
 CellLabel->
  "During evaluation of \
In[182]:=",ExpressionUUID->"d4f78864-dbec-4f7e-b38f-93c41003d20a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Dipole energy:\"\>", "\[InvisibleSpace]", 
   RowBox[{
   "-", "0.35358987558931201439806988788322680972`11.949444901505167"}]}],
  SequenceForm[
  "Dipole energy:", \
-0.35358987558931201439806988788322680972`11.949444901505167],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7023443508549213`*^9, {3.702410729105925*^9, 3.702410748711968*^9}, 
   3.709091617880536*^9, 3.7090917122723217`*^9, {3.857882499084886*^9, 
   3.857882520148581*^9}, 3.8578827026961603`*^9},
 CellLabel->
  "During evaluation of \
In[182]:=",ExpressionUUID->"d926fdd8-94d6-4660-ab3d-7c9a3da95ad6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge centre:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0.92417645149968213808675766072464304685`14.", 
        "1.33732899629806548281798792692733498199`13.883080725717779", 
        "0.41307665664615862789462130527541055214`13.116002214834255", 
        RowBox[{
        "-", "4.502761969413194973110176923726`6.009782260753001*^-8"}]},
       {"0", "0", 
        RowBox[{
        "-", "1.23994182927748363954538804298103648306`13.901473447464019"}], 
        
        RowBox[{
        "-", "1.23998855861210499827292132983844404535`13.603732497164206"}], 
        
        RowBox[{
        "-", "1.937757564516942103257944032472`5.651007710016871*^-8"}]},
       {"0", "1", 
        "0.61796375104786802129087148571447897859`13.509936315869796", 
        RowBox[{
        "-", "0.381966133371747343801317816795557317`13.016897220249893"}], 
        RowBox[{"-", "9.557149088410186846619444408143`6.37224448064112*^-8"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge centre:", 
   MatrixForm[{{
     0, 0.92417645149968213808675766072464304685`14., 
      1.33732899629806548281798792692733498199`13.883080725717779, 
      0.41307665664615862789462130527541055214`13.116002214834255, \
-4.502761969413194973110176923726`6.009782260753001*^-8}, {
     0, 0, -1.23994182927748363954538804298103648306`13.901473447464019, \
-1.23998855861210499827292132983844404535`13.603732497164206, \
-1.937757564516942103257944032472`5.651007710016871*^-8}, {
     0, 1, 0.61796375104786802129087148571447897859`13.509936315869796, \
-0.381966133371747343801317816795557317`13.016897220249893, \
-9.557149088410186846619444408143`6.37224448064112*^-8}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7023443508549213`*^9, {3.702410729105925*^9, 3.702410748711968*^9}, 
   3.709091617880536*^9, 3.7090917122723217`*^9, {3.857882499084886*^9, 
   3.857882520148581*^9}, 3.857882702696909*^9},
 CellLabel->
  "During evaluation of \
In[182]:=",ExpressionUUID->"5c43213f-3d48-4fba-89aa-1b11cc855bf3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"vertex position:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0.`", "0.`", "0.9241764514996821`", "0.9241764514996821`", 
        "1.171992109491953`", "1.502665883104178`", "0.24777013255532782`", 
        "0.5783831807369895`", 
        RowBox[{"-", "4.502761969413195`*^-8"}], 
        RowBox[{"-", "4.502761969413195`*^-8"}]},
       {"0.`", "0.`", 
        RowBox[{"-", "0.18483529029993642`"}], "0.18483529029993642`", 
        RowBox[{"-", "1.3421046523932174`"}], 
        RowBox[{"-", "1.1377790061617497`"}], 
        RowBox[{"-", "1.15729737485603`"}], 
        RowBox[{"-", "1.3226797423681802`"}], 
        RowBox[{"-", "1.9377575645169422`*^-8"}], 
        RowBox[{"-", "1.9377575645169422`*^-8"}]},
       {"0.2`", 
        RowBox[{"-", "0.2`"}], "1.0763932075600513`", "0.9236067924399487`", 
        "0.5707781945094949`", "0.6651493075862412`", 
        RowBox[{"-", "0.30557292581169604`"}], 
        RowBox[{"-", "0.45835934093179864`"}], "0.19999990442850912`", 
        RowBox[{"-", "0.2000000955714909`"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["vertex position:", 
   MatrixForm[{{0., 0., 0.9241764514996821, 0.9241764514996821, 
    1.171992109491953, 1.502665883104178, 0.24777013255532782`, 
    0.5783831807369895, -4.502761969413195*^-8, -4.502761969413195*^-8}, {0., 
    0., -0.18483529029993642`, 
    0.18483529029993642`, -1.3421046523932174`, -1.1377790061617497`, \
-1.15729737485603, -1.3226797423681802`, -1.9377575645169422`*^-8, \
-1.9377575645169422`*^-8}, {0.2, -0.2, 1.0763932075600513`, 
    0.9236067924399487, 0.5707781945094949, 
    0.6651493075862412, -0.30557292581169604`, -0.45835934093179864`, 
    0.19999990442850912`, -0.2000000955714909}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7023443508549213`*^9, {3.702410729105925*^9, 3.702410748711968*^9}, 
   3.709091617880536*^9, 3.7090917122723217`*^9, {3.857882499084886*^9, 
   3.857882520148581*^9}, 3.857882702697853*^9},
 CellLabel->
  "During evaluation of \
In[182]:=",ExpressionUUID->"44d32523-fcd8-4d74-950f-41be53f6dcde"]
}, Open  ]],

Cell[BoxData[
 Graphics3DBox[
  GraphicsComplex3DBox[{{0., 0., 0.2}, {0., 0., -0.2}, {
   0.9241764514996821, -0.18483529029993642`, 1.0763932075600513`}, {
   0.9241764514996821, 0.18483529029993642`, 0.9236067924399487}, {
   1.171992109491953, -1.3421046523932174`, 0.5707781945094949}, {
   1.502665883104178, -1.1377790061617497`, 0.6651493075862412}, {
   0.24777013255532782`, -1.15729737485603, -0.30557292581169604`}, {
   0.5783831807369895, -1.3226797423681802`, -0.45835934093179864`}, \
{-4.502761969413195*^-8, -1.9377575645169422`*^-8, 
   0.19999990442850912`}, {-4.502761969413195*^-8, -1.9377575645169422`*^-8, \
-0.2000000955714909}}, 
   Polygon3DBox[{{1, 2, 3}, {1, 2, 4}, {3, 4, 1}, {3, 4, 2}, {3, 4, 5}, {3, 4,
     6}, {5, 6, 3}, {5, 6, 4}, {5, 6, 7}, {5, 6, 8}, {7, 8, 5}, {7, 8, 6}, {7,
     8, 9}, {7, 8, 10}, {9, 10, 7}, {9, 10, 8}}]],
  ImageSize->{380.4545480673265, 360.32096459863885`},
  ImageSizeRaw->Automatic,
  ViewPoint->{1.5226799099755977`, -1.4612276613839885`, -2.645044349980352},
  ViewVertical->{
   0.9400367752021366, -0.3279486296208465, -0.09370462954078845}]], "Output",\

 CellChangeTimes->{
  3.7023443509125223`*^9, {3.702410735773862*^9, 3.70241074876048*^9}, 
   3.709091617948248*^9, 3.7090917133878403`*^9, 3.8578825049946203`*^9, 
   3.857882569082129*^9, 3.857882702698947*^9},
 CellLabel->
  "Out[182]=",ExpressionUUID->"b6f041d4-021b-43f2-96fd-eeed600b384b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Non", "-", 
    RowBox[{"orientable", " ", "20"}], "-", 
    RowBox[{"fold", " ", "Kaleidocycle"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Setup", "[", 
    RowBox[{"20", ",", "False", ",", "0"}], "]"}], ";"}]}]], "Input",
 CellChangeTimes->{{3.702877544670355*^9, 3.702877551800747*^9}, {
  3.702883122523528*^9, 3.702883123607156*^9}, {3.702884727036364*^9, 
  3.7028847401346188`*^9}, {3.7090868113434553`*^9, 3.709086814822257*^9}, {
  3.709094653296833*^9, 3.7090946619260187`*^9}},
 CellLabel->
  "In[346]:=",ExpressionUUID->"53539604-9082-49e8-8ca7-f66e0d7b3bb6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Setup \"\>", "\[InvisibleSpace]", "20", 
   "\[InvisibleSpace]", "\<\" tetrahedra system with slide=\"\>", 
   "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" oriented=\"\>", 
   "\[InvisibleSpace]", "False", 
   "\[InvisibleSpace]", "\<\" free (non-constant) twist angle=\"\>", 
   "\[InvisibleSpace]", "False"}],
  SequenceForm[
  "Setup ", 20, " tetrahedra system with slide=", 0, " oriented=", False, 
   " free (non-constant) twist angle=", False],
  Editable->False]], "Print",
 CellChangeTimes->{3.709091527957905*^9, 3.709093974662341*^9, 
  3.8578878335642767`*^9},
 CellLabel->
  "During evaluation of \
In[346]:=",ExpressionUUID->"091da5c3-b3bf-4c08-9e6a-95d042401883"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"minimum", " ", "twist", " ", "with", " ", "TT"}], "=", "5"}], 
   " ", "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"sol", "=", 
    RowBox[{"MKn", "[", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"h", "[", 
        RowBox[{"2", ",", "3"}], "]"}]}], ",", "True"}], "]"}]}], ";", 
   RowBox[{"Disp", "[", "sol", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7090868510540247`*^9, 3.709086870726247*^9}, {
  3.709090242252846*^9, 3.709090243318787*^9}, {3.709091242380123*^9, 
  3.709091243192416*^9}, {3.7090983381951027`*^9, 3.7090983552203407`*^9}, {
  3.857699970136204*^9, 3.8576999730795183`*^9}, {3.857887850198708*^9, 
  3.857887851026361*^9}},
 CellLabel->
  "In[349]:=",ExpressionUUID->"9aab90a8-472a-4fc8-be07-20b4fbcf7ebe"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Finding local minima...\"\>"], "Print",
 CellChangeTimes->{
  3.702883055170362*^9, 3.7028832047624197`*^9, 3.709086871406316*^9, 
   3.7090939916980877`*^9, {3.709096422020007*^9, 3.7090964340896683`*^9}, 
   3.857887852796833*^9},
 CellLabel->
  "During evaluation of \
In[349]:=",ExpressionUUID->"aef101fb-895c-4f28-a572-8483255d938a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Cos(twist):\"\>", "\[InvisibleSpace]", "0.9177756563263111`"}],
  
  SequenceForm["Cos(twist):", 0.9177756563263111],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702883055170362*^9, 3.7028832047624197`*^9, 3.709086871406316*^9, 
   3.7090939916980877`*^9, {3.709096422020007*^9, 3.7090964340896683`*^9}, 
   3.857887852934511*^9},
 CellLabel->
  "During evaluation of \
In[349]:=",ExpressionUUID->"20f33f57-461a-4606-8b4c-cc162d12cd8e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"total local twist:\"\>", "\[InvisibleSpace]", 
   "2.599662862567543`"}],
  SequenceForm["total local twist:", 2.599662862567543],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702883055170362*^9, 3.7028832047624197`*^9, 3.709086871406316*^9, 
   3.7090939916980877`*^9, {3.709096422020007*^9, 3.7090964340896683`*^9}, 
   3.857887852936029*^9},
 CellLabel->
  "During evaluation of \
In[349]:=",ExpressionUUID->"8ef6ae52-3bed-48b6-b035-98ebd77fb96f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writhe:\"\>", "\[InvisibleSpace]", "0.40033713460671017`"}],
  SequenceForm["Writhe:", 0.40033713460671017`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702883055170362*^9, 3.7028832047624197`*^9, 3.709086871406316*^9, 
   3.7090939916980877`*^9, {3.709096422020007*^9, 3.7090964340896683`*^9}, 
   3.8578878529621277`*^9},
 CellLabel->
  "During evaluation of \
In[349]:=",ExpressionUUID->"80b7750e-23a0-4145-ba4d-1694365dfdb2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Total half twist:\"\>", "\[InvisibleSpace]", 
   "2.9999999971742533`"}],
  SequenceForm["Total half twist:", 2.9999999971742533`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702883055170362*^9, 3.7028832047624197`*^9, 3.709086871406316*^9, 
   3.7090939916980877`*^9, {3.709096422020007*^9, 3.7090964340896683`*^9}, 
   3.857887852991704*^9},
 CellLabel->
  "During evaluation of \
In[349]:=",ExpressionUUID->"70ef713a-0f61-4a79-97c2-2030e7c24a35"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge vectors:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "0.24401830023221086`"}], 
        RowBox[{"-", "0.5775373340224451`"}], 
        RowBox[{"-", "0.8489815739809062`"}], 
        RowBox[{"-", "0.9826403131958623`"}], 
        RowBox[{"-", "0.9405891371961599`"}], 
        RowBox[{"-", "0.7284253426051339`"}], 
        RowBox[{"-", "0.4525522764585168`"}], 
        RowBox[{"-", "0.26282177122468287`"}], 
        RowBox[{"-", "0.1990029807726064`"}], 
        RowBox[{"-", "0.18747432586242907`"}], 
        RowBox[{"-", "0.1215088972452693`"}], "0.08747085886013264`", 
        "0.43208242955207476`", "0.7514063315033864`", "0.8751273504143323`", 
        "0.7796822345222881`", "0.533088854941469`", "0.22827876703003097`", 
        "0"},
       {"0", "0.3970992881581784`", "0.6519667016700045`", 
        "0.6550108264100777`", "0.46258470856845757`", "0.18532182081406137`", 
        RowBox[{"-", "0.050562357710221564`"}], 
        RowBox[{"-", "0.09739627166099406`"}], "0.11699406867911273`", 
        "0.4728090857348774`", "0.7836121364422431`", "0.9568453017807461`", 
        "0.9765728775699846`", "0.8589097300087134`", "0.669678706345018`", 
        "0.5242042855493718`", "0.48360446674643726`", "0.4998947737073376`", 
        "0.4777473500100746`", "0.32492560622580624`", "0"},
       {"1", "0.9177756563263111`", "0.7179098057997245`", 
        "0.4872488537539828`", "0.2554323288976532`", 
        RowBox[{"-", "0.008592897767021612`"}], 
        RowBox[{"-", "0.33576111338402925`"}], 
        RowBox[{"-", "0.6781670090951065`"}], 
        RowBox[{"-", "0.8840298802108588`"}], 
        RowBox[{"-", "0.841056649082871`"}], 
        RowBox[{"-", "0.588514941628819`"}], 
        RowBox[{"-", "0.22203704571173283`"}], "0.1775978783139073`", 
        "0.5046017512341598`", "0.6040158989230231`", "0.400747293295478`", 
        "0.01669853121066703`", 
        RowBox[{"-", "0.37709525161128565`"}], 
        RowBox[{"-", "0.6982648085171617`"}], 
        RowBox[{"-", "0.9177756563263111`"}], 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge vectors:", 
   MatrixForm[{{
     0, 0, -0.24401830023221086`, -0.5775373340224451, -0.8489815739809062, \
-0.9826403131958623, -0.9405891371961599, -0.7284253426051339, \
-0.4525522764585168, -0.26282177122468287`, -0.1990029807726064, \
-0.18747432586242907`, -0.1215088972452693, 0.08747085886013264, 
      0.43208242955207476`, 0.7514063315033864, 0.8751273504143323, 
      0.7796822345222881, 0.533088854941469, 0.22827876703003097`, 0}, {
     0, 0.3970992881581784, 0.6519667016700045, 0.6550108264100777, 
      0.46258470856845757`, 
      0.18532182081406137`, -0.050562357710221564`, -0.09739627166099406, 
      0.11699406867911273`, 0.4728090857348774, 0.7836121364422431, 
      0.9568453017807461, 0.9765728775699846, 0.8589097300087134, 
      0.669678706345018, 0.5242042855493718, 0.48360446674643726`, 
      0.4998947737073376, 0.4777473500100746, 0.32492560622580624`, 0}, {
     1, 0.9177756563263111, 0.7179098057997245, 0.4872488537539828, 
      0.2554323288976532, -0.008592897767021612, -0.33576111338402925`, \
-0.6781670090951065, -0.8840298802108588, -0.841056649082871, \
-0.588514941628819, -0.22203704571173283`, 0.1775978783139073, 
      0.5046017512341598, 0.6040158989230231, 0.400747293295478, 
      0.01669853121066703, -0.37709525161128565`, -0.6982648085171617, \
-0.9177756563263111, -1}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702883055170362*^9, 3.7028832047624197`*^9, 3.709086871406316*^9, 
   3.7090939916980877`*^9, {3.709096422020007*^9, 3.7090964340896683`*^9}, 
   3.8578878529931087`*^9},
 CellLabel->
  "During evaluation of \
In[349]:=",ExpressionUUID->"3144d2d7-2bce-49cb-82cf-d1d9230674bc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Elastic Energy:\"\>", "\[InvisibleSpace]", 
   "1.0684373857148852`"}],
  SequenceForm["Elastic Energy:", 1.0684373857148852`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702883055170362*^9, 3.7028832047624197`*^9, 3.709086871406316*^9, 
   3.7090939916980877`*^9, {3.709096422020007*^9, 3.7090964340896683`*^9}, 
   3.857887852993989*^9},
 CellLabel->
  "During evaluation of \
In[349]:=",ExpressionUUID->"12b1266d-6fae-4826-9d84-191633f5b1c5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Torsion Energy:\"\>", "\[InvisibleSpace]", 
   "0.8396235699623507`"}],
  SequenceForm["Torsion Energy:", 0.8396235699623507],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702883055170362*^9, 3.7028832047624197`*^9, 3.709086871406316*^9, 
   3.7090939916980877`*^9, {3.709096422020007*^9, 3.7090964340896683`*^9}, 
   3.857887852994535*^9},
 CellLabel->
  "During evaluation of \
In[349]:=",ExpressionUUID->"aae4821d-5a22-43be-98a0-d446794df172"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Target func:\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.9177756563263111`"}]}],
  SequenceForm["Target func:", -0.9177756563263111],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702883055170362*^9, 3.7028832047624197`*^9, 3.709086871406316*^9, 
   3.7090939916980877`*^9, {3.709096422020007*^9, 3.7090964340896683`*^9}, 
   3.857887852995076*^9},
 CellLabel->
  "During evaluation of \
In[349]:=",ExpressionUUID->"9a93e6c5-88fa-4a2b-a3f4-e76032b101d1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge centre:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "0.3970992881581784`"}], 
        RowBox[{"-", "0.7103769828414204`"}], 
        RowBox[{"-", "0.8629456499517218`"}], 
        RowBox[{"-", "0.9210285781227203`"}], 
        RowBox[{"-", "0.9723407055181259`"}], 
        RowBox[{"-", "1.034999043579674`"}], 
        RowBox[{"-", "1.0334112012908852`"}], 
        RowBox[{"-", "0.8679684692834508`"}], 
        RowBox[{"-", "0.5483897492244674`"}], 
        RowBox[{"-", "0.16758276306052156`"}], "0.22154407010528931`", 
        "0.608313122234025`", "0.9485529607509036`", "1.1294270454299247`", 
        "1.0811712516199035`", "0.8961215121686774`", "0.7054090556197863`", 
        "0.5365063843369764`", "0.32492561283690957`", 
        "6.611103442466515`*^-9"},
       {"0", "0", 
        RowBox[{"-", "0.22395405565124815`"}], 
        RowBox[{"-", "0.5196761338782523`"}], 
        RowBox[{"-", "0.785819726404006`"}], 
        RowBox[{"-", "1.0441130419436475`"}], 
        RowBox[{"-", "1.3659630612616238`"}], 
        RowBox[{"-", "1.7592626791710475`"}], 
        RowBox[{"-", "2.0963064237517637`"}], 
        RowBox[{"-", "2.244586225992227`"}], 
        RowBox[{"-", "2.2318879851771927`"}], 
        RowBox[{"-", "2.1657425771739414`"}], 
        RowBox[{"-", "2.1054680580904135`"}], 
        RowBox[{"-", "2.028619816802064`"}], 
        RowBox[{"-", "1.863424055616549`"}], 
        RowBox[{"-", "1.5827185489606077`"}], 
        RowBox[{"-", "1.2445610140717227`"}], 
        RowBox[{"-", "0.9015350975477396`"}], 
        RowBox[{"-", "0.5581357072401267`"}], 
        RowBox[{"-", "0.2282787630647367`"}], "3.965294315122492`*^-9"},
       {"0", "0", "0.0968994933197796`", "0.31359997557939795`", 
        "0.6025321586133832`", "0.8997517303929796`", "1.1237480329523923`", 
        "1.1785270053421382`", "1.0492286563230317`", "0.8660064165964696`", 
        "0.7541465043411728`", "0.7106385941656675`", "0.6438214697413975`", 
        "0.45403462727424926`", "0.1414921959705091`", 
        RowBox[{"-", "0.1352091627683527`"}], 
        RowBox[{"-", "0.23057121200042063`"}], 
        RowBox[{"-", "0.17015743445776765`"}], 
        RowBox[{"-", "0.06415464557168038`"}], 
        RowBox[{"-", "2.219767147870755`*^-9"}], 
        RowBox[{"-", "2.219767147870755`*^-9"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge centre:", 
   MatrixForm[{{
     0, -0.3970992881581784, -0.7103769828414204, -0.8629456499517218, \
-0.9210285781227203, -0.9723407055181259, -1.034999043579674, \
-1.0334112012908852`, -0.8679684692834508, -0.5483897492244674, \
-0.16758276306052156`, 0.22154407010528931`, 0.608313122234025, 
      0.9485529607509036, 1.1294270454299247`, 1.0811712516199035`, 
      0.8961215121686774, 0.7054090556197863, 0.5365063843369764, 
      0.32492561283690957`, 6.611103442466515*^-9}, {
     0, 0, -0.22395405565124815`, -0.5196761338782523, -0.785819726404006, \
-1.0441130419436475`, -1.3659630612616238`, -1.7592626791710475`, \
-2.0963064237517637`, -2.244586225992227, -2.2318879851771927`, \
-2.1657425771739414`, -2.1054680580904135`, -2.028619816802064, \
-1.863424055616549, -1.5827185489606077`, -1.2445610140717227`, \
-0.9015350975477396, -0.5581357072401267, -0.2282787630647367, 
      3.965294315122492*^-9}, {
     0, 0, 0.0968994933197796, 0.31359997557939795`, 0.6025321586133832, 
      0.8997517303929796, 1.1237480329523923`, 1.1785270053421382`, 
      1.0492286563230317`, 0.8660064165964696, 0.7541465043411728, 
      0.7106385941656675, 0.6438214697413975, 0.45403462727424926`, 
      0.1414921959705091, -0.1352091627683527, -0.23057121200042063`, \
-0.17015743445776765`, -0.06415464557168038, -2.219767147870755*^-9, \
-2.219767147870755*^-9}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702883055170362*^9, 3.7028832047624197`*^9, 3.709086871406316*^9, 
   3.7090939916980877`*^9, {3.709096422020007*^9, 3.7090964340896683`*^9}, 
   3.8578878531302834`*^9},
 CellLabel->
  "During evaluation of \
In[349]:=",ExpressionUUID->"e43b9bb8-e0a1-4653-b260-0726b89b3308"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"vertex position:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0.`", "0.`", 
        RowBox[{"-", "0.3970992881581784`"}], 
        RowBox[{"-", "0.3970992881581784`"}], 
        RowBox[{"-", "0.8323861329575258`"}], 
        RowBox[{"-", "0.5883678327253149`"}], 
        RowBox[{"-", "1.1517143169629445`"}], 
        RowBox[{"-", "0.5741769829404992`"}], 
        RowBox[{"-", "1.3455193651131734`"}], 
        RowBox[{"-", "0.4965377911322672`"}], 
        RowBox[{"-", "1.4636608621160572`"}], 
        RowBox[{"-", "0.48102054892019475`"}], 
        RowBox[{"-", "1.505293612177754`"}], 
        RowBox[{"-", "0.5647044749815942`"}], 
        RowBox[{"-", "1.397623872593452`"}], 
        RowBox[{"-", "0.6691985299883182`"}], 
        RowBox[{"-", "1.0942446075127092`"}], 
        RowBox[{"-", "0.6416923310541924`"}], 
        RowBox[{"-", "0.6798006348368089`"}], 
        RowBox[{"-", "0.41697886361212594`"}], 
        RowBox[{"-", "0.26708425344682474`"}], 
        RowBox[{"-", "0.06808127267421836`"}], "0.12780690717407478`", 
        "0.31528123303650385`", "0.5475586736113903`", "0.6690675708566597`", 
        "0.9922883901809699`", "0.9048175313208372`", "1.345468260205962`", 
        "0.9133858306538873`", "1.4568744173715966`", "0.7054680858682103`", 
        "1.3336851873758435`", "0.45855783696151126`", "1.0952501728809303`", 
        "0.3155679383586422`", "0.8030508118077109`", "0.2699619568662419`", 
        "0.4390649963519251`", "0.2107862293218941`", 
        "6.611103442466515`*^-9", "6.611103442466515`*^-9"},
       {"0.`", "0.`", "0.1985496440790892`", 
        RowBox[{"-", "0.1985496440790892`"}], "0.10202929518375409`", 
        RowBox[{"-", "0.5499374064862503`"}], 
        RowBox[{"-", "0.19217072067321345`"}], 
        RowBox[{"-", "0.8471815470832911`"}], 
        RowBox[{"-", "0.5545273721197772`"}], 
        RowBox[{"-", "1.0171120806882348`"}], 
        RowBox[{"-", "0.9514521315366168`"}], 
        RowBox[{"-", "1.1367739523506781`"}], 
        RowBox[{"-", "1.3912442401167346`"}], 
        RowBox[{"-", "1.340681882406513`"}], 
        RowBox[{"-", "1.8079608150015445`"}], 
        RowBox[{"-", "1.7105645433405505`"}], 
        RowBox[{"-", "2.037809389412207`"}], 
        RowBox[{"-", "2.1548034580913202`"}], 
        RowBox[{"-", "2.0081816831247883`"}], 
        RowBox[{"-", "2.480990768859666`"}], 
        RowBox[{"-", "1.8400819169560712`"}], 
        RowBox[{"-", "2.623694053398314`"}], 
        RowBox[{"-", "1.6873199262835683`"}], 
        RowBox[{"-", "2.644165228064314`"}], 
        RowBox[{"-", "1.6171816193054211`"}], 
        RowBox[{"-", "2.593754496875406`"}], 
        RowBox[{"-", "1.5991649517977073`"}], 
        RowBox[{"-", "2.458074681806421`"}], 
        RowBox[{"-", "1.5285847024440398`"}], 
        RowBox[{"-", "2.198263408789058`"}], 
        RowBox[{"-", "1.3206164061859218`"}], 
        RowBox[{"-", "1.8448206917352936`"}], 
        RowBox[{"-", "1.002758780698504`"}], 
        RowBox[{"-", "1.4863632474449413`"}], 
        RowBox[{"-", "0.6515877106940708`"}], 
        RowBox[{"-", "1.1514824844014084`"}], 
        RowBox[{"-", "0.3192620322350894`"}], 
        RowBox[{"-", "0.797009382245164`"}], 
        RowBox[{"-", "0.06581595995183359`"}], 
        RowBox[{"-", "0.39074156617763983`"}], "3.965294315122492`*^-9", 
        "3.965294315122492`*^-9"},
       {"0.5`", 
        RowBox[{"-", "0.5`"}], "0.45888782816315554`", 
        RowBox[{"-", "0.45888782816315554`"}], "0.45585439621964186`", 
        RowBox[{"-", "0.26205540958008267`"}], "0.5572244024563894`", 
        "0.06997554870240655`", "0.7302483230622098`", "0.47481599416455655`",
         "0.8954552815094688`", "0.9040481792764904`", "0.9558674762603777`", 
        "1.2916285896444069`", "0.8394435007945849`", "1.5176105098896915`", 
        "0.6072137162176023`", "1.4912435964284612`", "0.4454780920550341`", 
        "1.2865347411379051`", "0.4598890335267633`", "1.0484039751555823`", 
        "0.5996200713098011`", "0.821657117021534`", "0.7326204088983512`", 
        "0.5550225305844438`", "0.7063355028913292`", "0.20173375165716934`", 
        "0.44350014543202065`", 
        RowBox[{"-", "0.16051575349100244`"}], "0.06516448387938628`", 
        RowBox[{"-", "0.3355828094160917`"}], 
        RowBox[{"-", "0.2222219463950871`"}], 
        RowBox[{"-", "0.23892047760575416`"}], 
        RowBox[{"-", "0.3587050602634105`"}], "0.018390191347875173`", 
        RowBox[{"-", "0.4132870498302612`"}], "0.28497775868690045`", 
        RowBox[{"-", "0.4588878303829227`"}], "0.4588878259433884`", 
        RowBox[{"-", "0.5000000022197671`"}], "0.49999999778023285`"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["vertex position:", 
   MatrixForm[CompressedData["
1:eJxt0H1Q0wUcx/HxJK0BKgSIgYFAVgcJXGaK7Es8iDY1UeOKGV1AxUCG46kh
xCERRhCCkycRR6iBZDzVKbrY96fRBCTi4Qcx2hgbDtmAhciAIYvgju68s8/d
597/v5zC4458YkihUIxW/hrl2YXIdE5W0WL8r7z9IfTxKjW6MmdE430KvGT+
lz4mdga55qlRNR8pMF5w7DCc0aLsuRzO3nsy/If3+PttMfPYtOc86/n2YaSO
ed2ps15AzYn0LestFej2Yb649vgcRpRuplpFKzEv2bNqXeYjvL5pOVT49QNM
P/e73xShxJbiIoe2+iFcejXp23HbHoyzLd8pim3EAf3btEUmATs6vUMK3UlI
qU1pLftKDvUls5EUlhKYo5SiPuJvaBnyVvrPTgLFd+4W9YwWAnapJhJ3TwHj
z7N5zHfnwYt/tcuTNwbVJnFBohAt5GLAguEHUnCILKG5Zj8C55rbUn8vEjY3
3qwoaVKBy5juS4ugHigtoVpesZNAoU+jGe1JB6yQeSxF7qE/1f/xbIe1InnU
LLtky21I480dsymTY5hr4KBZWRtK1H+k2NtPYHzz8vYGoRzT7r4ebLt3Gqs3
FbUw4jX4VnWAYpfHDP56n3Ikx28OvVmJg+wELb5s1xUcNbWEyVk7prhhT/Ca
xfuGcQcphOAUu5TqY0AM8yby72ygEAsntzdsFBsRA6WJv+hO6jGH033oqN6Y
6GOT7v7Li/iNeZid7zYTYkzI6tfJdPhx8lmmIWFMdNtY6N2LdXhRRlvvXGtE
9JZXeVsnLWD5dKAjrdiAaLf0+oHupMXT9/k/hWfpkTTN7zhAm0Yh1Z50aZvH
KMMvuF3iBzgpECm5J2bQkdtn3MEmccl5osfutArJoDzeYXEDvqhZVI0biHGF
zHHU1JP+VFc2AmtFTQHfPCZMCmvFZKsR9U03KXTe4ppn/daNP9ZuDWwj5eB3
0EupVjVCRKiHwDPsISjSLvPDI4ZBW3W5v7B6EpxNM+LnpiZhwlUQ8XmxBiz4
nJbM2lmIfmGwolmihtTrvlqnfQtQ0HEhicEehYyUbvpWyTzkpTvk3siUQHmd
MuFq0Sw8fq+J1cuWAqPKBfxF02BSmcO28RiF7/xapUYMNQzstGJWch7Cm+Nu
F4V35dCZUaE6cGEMMuY1x1m97XDlhl3coXAJ1LwzLLiX24puUS/xL9U1gKBO
Eexxqh+Vb9h3tnI60fsauXvmfBemxtZvXKcdwAaLSvEIeQ4cP2vOZiQMYUE8
K9TKpxdeERhsWHX5+VMf2qqTg7WnwaqbqL9Cv7wsg38Bgw//EA==
    "]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.702883055170362*^9, 3.7028832047624197`*^9, 3.709086871406316*^9, 
   3.7090939916980877`*^9, {3.709096422020007*^9, 3.7090964340896683`*^9}, 
   3.857887853132971*^9},
 CellLabel->
  "During evaluation of \
In[349]:=",ExpressionUUID->"17cb936c-2a93-479f-acc5-e1fe9e272681"]
}, Open  ]],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJx1k31Q0wUch8ebtMZQIUAMDASyOkjYZaYTvsSLaFMTNa6Y0QVUDGTIa0OI
QyKMIAQnbyKOUAPJeKtTdLHvT6MJSMTLD2K0MRgOtwELkQFDFsGdf3nn5+5z
z93z/+McHnfkM2MKhfLG6k0oz9soPMdjiFzvbB0tecoO0BYK6DFhMnjG41OP
/P0hPqpqDZJHLXJKt9yGFOtRzU13GbixZ8WqfgWm8+eP2ZaPYdctHj37jx68
RP/HEBM7i2FugUMW5e34c93WwHZyDHj0tKjaTxQo1fyV6uAwiX4HGUqNugkS
hMcOwxkdJrSsbG8UjWFEqKfQK+whyF/Ijd97T47pd98Mtts7g4r0y4LwiBH4
j//4x20xC1izqbiVlaBFXfXlgaKaKWjec57zYscIvlMToNjlOYsu5pkJ89NT
QJ1g3Km3WcTf71OO5PrN46SbMOLLEi1oT2RsWW+lQCYnaYibqENLQXxrVt0c
uH9cIKk7Po+v2ncHR00vY/RLQ5UtUg1ElG2mWkcrMSV7xzQv7AmmXffVOe9b
hPwUr+p1WY/wmuWHxnEHKURh54VkFnccrm9aCRV9+wCFp7hlVG8jIjO1x2er
dAEyzv3pN00ocYQ/WXBnA4XIz3DMu5ElhdaSYsf2hmFcPLm9caPEhKioVyZe
LZ6D5deTv1fZ9eJgWdJv+pMGfPxBM6ePK4M4u4qd4tgmzI3vOXTUYEqwql3B
XzwDg4Z3aUtsAvq5pIf/yhKaVeVybT3HYUcXM6TIg4Tv6GH2vtvMiB/82mQm
LA2k1qW2lX8zBhMizoBersfBndbsqviH0FA6F0nhKOHTlLNsY8KUeFvlflF0
dwzY45TifuJf6LG1NHiU6LErs1J94MIEtA4zlf5zU3BRTlvvUmdCZC5oj3P6
OoDiO3+LekYHfRXVTJvkRbxywz7uULgUAnapJ5N2T0PFTKATrcSIqH1vRHgv
rw1Zf5/NZ7+/AB1WjJ98nHXoHvWK4FJ9IzAEV7u9+BNw+r7gl/BsAwrrFcGe
pwawxiwuSByiA9K8oPMAbQaVbzl0tcV3YR4GLBp/JAMR1YF0bV9A5jVy9+z5
bnSMLKW55TyCKOOveN2SB5gW27BxnW4QXWpvy/wZJEwJxUreiVlstKySjJLn
YHPTzcrSZjU48fpNO7kkOn3RksNKHEbXCf3XlkG9sOwy2Wt/Wo2FCZxQa+8+
KCulWl2xlwIZlM8/LGnE14RGG9Y6KvJusqA96YSXtUtqlZEEf/3cm7bW3WqU
nsuRe3xW6TRu7uXjaONltNbps148UGlYWZHD/5JF/xA=
   "], 
   Polygon3DBox[{{1, 2, 3}, {1, 2, 4}, {3, 4, 1}, {3, 4, 2}, {3, 4, 5}, {3, 4,
     6}, {5, 6, 3}, {5, 6, 4}, {5, 6, 7}, {5, 6, 8}, {7, 8, 5}, {7, 8, 6}, {7,
     8, 9}, {7, 8, 10}, {9, 10, 7}, {9, 10, 8}, {9, 10, 11}, {9, 10, 12}, {11,
     12, 9}, {11, 12, 10}, {11, 12, 13}, {11, 12, 14}, {13, 14, 11}, {13, 14, 
    12}, {13, 14, 15}, {13, 14, 16}, {15, 16, 13}, {15, 16, 14}, {15, 16, 
    17}, {15, 16, 18}, {17, 18, 15}, {17, 18, 16}, {17, 18, 19}, {17, 18, 
    20}, {19, 20, 17}, {19, 20, 18}, {19, 20, 21}, {19, 20, 22}, {21, 22, 
    19}, {21, 22, 20}, {21, 22, 23}, {21, 22, 24}, {23, 24, 21}, {23, 24, 
    22}, {23, 24, 25}, {23, 24, 26}, {25, 26, 23}, {25, 26, 24}, {25, 26, 
    27}, {25, 26, 28}, {27, 28, 25}, {27, 28, 26}, {27, 28, 29}, {27, 28, 
    30}, {29, 30, 27}, {29, 30, 28}, {29, 30, 31}, {29, 30, 32}, {31, 32, 
    29}, {31, 32, 30}, {31, 32, 33}, {31, 32, 34}, {33, 34, 31}, {33, 34, 
    32}, {33, 34, 35}, {33, 34, 36}, {35, 36, 33}, {35, 36, 34}, {35, 36, 
    37}, {35, 36, 38}, {37, 38, 35}, {37, 38, 36}, {37, 38, 39}, {37, 38, 
    40}, {39, 40, 37}, {39, 40, 38}, {39, 40, 41}, {39, 40, 42}, {41, 42, 
    39}, {41, 42, 40}}]],
  ImageSize->{492.51369734158993`, 484.8563488800304},
  ImageSizeRaw->Automatic,
  ViewPoint->{0.06800628638069238, -0.732904845516984, 3.3027603050222147`},
  ViewVertical->{-0.3585687898134528, 0.40358489349421506`, 
   0.8417527289620028}]], "Output",
 CellChangeTimes->{3.702883055294403*^9, 3.7028832048650227`*^9, 
  3.7090888097751093`*^9, 3.7090958744588833`*^9, 3.709096426332646*^9, 
  3.709098303038657*^9, 3.857887853134549*^9},
 CellLabel->
  "Out[349]=",ExpressionUUID->"f6067c03-2fca-49a6-b26d-39fc2e9a2d4d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Non", "-", 
    RowBox[{"Orientable", " ", "7"}], "-", 
    RowBox[{"fold", " ", "Kaleidocycle", " ", "with", " ", "non"}], "-", 
    RowBox[{"constant", " ", "twist", " ", "angle"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Setup", "[", 
    RowBox[{"7", ",", "False", ",", "0", ",", " ", "True"}], "]"}], ";", 
   RowBox[{"sol", "=", 
    RowBox[{"MKn", "[", "energyE", "]"}]}], ";", 
   RowBox[{"Disp", "[", "sol", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.722863398988143*^9, 3.722863410937648*^9}, {
   3.724286420625606*^9, 3.724286420819097*^9}, {3.72428648225447*^9, 
   3.724286482451828*^9}, {3.7242865438058653`*^9, 3.724286565896308*^9}, {
   3.724287782771634*^9, 3.724287811604128*^9}, {3.724287843729388*^9, 
   3.7242878441282454`*^9}, {3.724994128733694*^9, 3.724994131044592*^9}, {
   3.857708863931777*^9, 3.857708865631119*^9}, {3.857775177473854*^9, 
   3.857775179674655*^9}, {3.857782993866959*^9, 3.8577830041037292`*^9}, {
   3.857786268081089*^9, 3.85778628359018*^9}, {3.857786993571212*^9, 
   3.857786994614558*^9}, {3.85778708187208*^9, 3.857787086944603*^9}, {
   3.857886973815988*^9, 3.8578869891250343`*^9}, {3.857887075845043*^9, 
   3.8578870766340227`*^9}, {3.857887683644568*^9, 3.857887727501039*^9}, 
   3.857887816501511*^9},
 CellLabel->
  "In[360]:=",ExpressionUUID->"42ca2895-280c-46da-87c5-8d49328ef931"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Setup \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\" tetrahedra system with slide=\"\>", 
   "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" oriented=\"\>", 
   "\[InvisibleSpace]", "False", 
   "\[InvisibleSpace]", "\<\" free (non-constant) twist angle=\"\>", 
   "\[InvisibleSpace]", "True"}],
  SequenceForm[
  "Setup ", 7, " tetrahedra system with slide=", 0, " oriented=", False, 
   " free (non-constant) twist angle=", True],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7228638985479193`*^9, 3.7228640201000767`*^9, 3.722864162857712*^9, 
   3.724229127024406*^9, 3.724229302278944*^9, 3.7242329186121798`*^9, 
   3.724241868636179*^9, 3.7242856032176228`*^9, 3.724286295664899*^9, 
   3.724286421503414*^9, 3.724286483091036*^9, {3.724286547363082*^9, 
   3.724286566454721*^9}, {3.724287816052813*^9, 3.7242878451527*^9}, 
   3.724994142055285*^9, {3.725580149809071*^9, 3.725580176654491*^9}, 
   3.857714387040452*^9, 3.8577751367738028`*^9, 3.857775182331374*^9, 
   3.857775928014345*^9, 3.8577765260490913`*^9, 3.8577812999784203`*^9, {
   3.8577829957274218`*^9, 3.857783011303362*^9}, 3.8577862889284077`*^9, 
   3.857786428880281*^9, 3.85778677083666*^9, 3.857786999123663*^9, 
   3.85778709088177*^9, 3.857886991126585*^9, 3.857887079615416*^9, 
   3.8578874686238613`*^9, 3.857887591027964*^9, {3.8578876621116943`*^9, 
   3.857887727996763*^9}, {3.857887784274876*^9, 3.857887801243001*^9}, 
   3.857933728982647*^9},
 CellLabel->
  "During evaluation of \
In[360]:=",ExpressionUUID->"a016d752-0da9-432a-8cb4-8f2c6747c67a"],

Cell[BoxData["\<\"Finding global minima...\"\>"], "Print",
 CellChangeTimes->{
  3.7228638985479193`*^9, 3.7228640201000767`*^9, 3.722864162857712*^9, 
   3.724229127024406*^9, 3.724229302278944*^9, 3.7242329186121798`*^9, 
   3.724241868636179*^9, 3.7242856032176228`*^9, 3.724286295664899*^9, 
   3.724286421503414*^9, 3.724286483091036*^9, {3.724286547363082*^9, 
   3.724286566454721*^9}, {3.724287816052813*^9, 3.7242878451527*^9}, 
   3.724994142055285*^9, {3.725580149809071*^9, 3.725580176654491*^9}, 
   3.857714387040452*^9, 3.8577751367738028`*^9, 3.857775182331374*^9, 
   3.857775928014345*^9, 3.8577765260490913`*^9, 3.8577812999784203`*^9, {
   3.8577829957274218`*^9, 3.857783011303362*^9}, 3.8577862889284077`*^9, 
   3.857786428880281*^9, 3.85778677083666*^9, 3.857786999123663*^9, 
   3.85778709088177*^9, 3.857886991126585*^9, 3.857887079615416*^9, 
   3.8578874686238613`*^9, 3.857887591027964*^9, {3.8578876621116943`*^9, 
   3.857887727996763*^9}, {3.857887784274876*^9, 3.857887801243001*^9}, 
   3.85793372898487*^9},
 CellLabel->
  "During evaluation of \
In[360]:=",ExpressionUUID->"9d4809a4-4a3a-4af9-8805-55127de08744"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Cos(twist):\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.790285596638328`"}]}],
  SequenceForm["Cos(twist):", -0.790285596638328],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7228638985479193`*^9, 3.7228640201000767`*^9, 3.722864162857712*^9, 
   3.724229127024406*^9, 3.724229302278944*^9, 3.7242329186121798`*^9, 
   3.724241868636179*^9, 3.7242856032176228`*^9, 3.724286295664899*^9, 
   3.724286421503414*^9, 3.724286483091036*^9, {3.724286547363082*^9, 
   3.724286566454721*^9}, {3.724287816052813*^9, 3.7242878451527*^9}, 
   3.724994142055285*^9, {3.725580149809071*^9, 3.725580176654491*^9}, 
   3.857714387040452*^9, 3.8577751367738028`*^9, 3.857775182331374*^9, 
   3.857775928014345*^9, 3.8577765260490913`*^9, 3.8577812999784203`*^9, {
   3.8577829957274218`*^9, 3.857783011303362*^9}, 3.8577862889284077`*^9, 
   3.857786428880281*^9, 3.85778677083666*^9, 3.857786999123663*^9, 
   3.85778709088177*^9, 3.857886991126585*^9, 3.857887079615416*^9, 
   3.8578874686238613`*^9, 3.857887591027964*^9, {3.8578876621116943`*^9, 
   3.857887727996763*^9}, {3.857887784274876*^9, 3.857887801243001*^9}, 
   3.857942911420938*^9},
 CellLabel->
  "During evaluation of \
In[360]:=",ExpressionUUID->"07e94369-6b15-4b49-bccc-7cf4e0c3e2fc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"total local twist:\"\>", "\[InvisibleSpace]", 
   "2.9999914316404004`"}],
  SequenceForm["total local twist:", 2.9999914316404004`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7228638985479193`*^9, 3.7228640201000767`*^9, 3.722864162857712*^9, 
   3.724229127024406*^9, 3.724229302278944*^9, 3.7242329186121798`*^9, 
   3.724241868636179*^9, 3.7242856032176228`*^9, 3.724286295664899*^9, 
   3.724286421503414*^9, 3.724286483091036*^9, {3.724286547363082*^9, 
   3.724286566454721*^9}, {3.724287816052813*^9, 3.7242878451527*^9}, 
   3.724994142055285*^9, {3.725580149809071*^9, 3.725580176654491*^9}, 
   3.857714387040452*^9, 3.8577751367738028`*^9, 3.857775182331374*^9, 
   3.857775928014345*^9, 3.8577765260490913`*^9, 3.8577812999784203`*^9, {
   3.8577829957274218`*^9, 3.857783011303362*^9}, 3.8577862889284077`*^9, 
   3.857786428880281*^9, 3.85778677083666*^9, 3.857786999123663*^9, 
   3.85778709088177*^9, 3.857886991126585*^9, 3.857887079615416*^9, 
   3.8578874686238613`*^9, 3.857887591027964*^9, {3.8578876621116943`*^9, 
   3.857887727996763*^9}, {3.857887784274876*^9, 3.857887801243001*^9}, 
   3.8579429114369593`*^9},
 CellLabel->
  "During evaluation of \
In[360]:=",ExpressionUUID->"acf2b143-2184-4bc2-9858-14c2e525e4d3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writhe:\"\>", "\[InvisibleSpace]", "8.568354794465105`*^-6"}],
  SequenceForm["Writhe:", 8.568354794465105*^-6],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7228638985479193`*^9, 3.7228640201000767`*^9, 3.722864162857712*^9, 
   3.724229127024406*^9, 3.724229302278944*^9, 3.7242329186121798`*^9, 
   3.724241868636179*^9, 3.7242856032176228`*^9, 3.724286295664899*^9, 
   3.724286421503414*^9, 3.724286483091036*^9, {3.724286547363082*^9, 
   3.724286566454721*^9}, {3.724287816052813*^9, 3.7242878451527*^9}, 
   3.724994142055285*^9, {3.725580149809071*^9, 3.725580176654491*^9}, 
   3.857714387040452*^9, 3.8577751367738028`*^9, 3.857775182331374*^9, 
   3.857775928014345*^9, 3.8577765260490913`*^9, 3.8577812999784203`*^9, {
   3.8577829957274218`*^9, 3.857783011303362*^9}, 3.8577862889284077`*^9, 
   3.857786428880281*^9, 3.85778677083666*^9, 3.857786999123663*^9, 
   3.85778709088177*^9, 3.857886991126585*^9, 3.857887079615416*^9, 
   3.8578874686238613`*^9, 3.857887591027964*^9, {3.8578876621116943`*^9, 
   3.857887727996763*^9}, {3.857887784274876*^9, 3.857887801243001*^9}, 
   3.857942911440353*^9},
 CellLabel->
  "During evaluation of \
In[360]:=",ExpressionUUID->"a26cf3f6-9314-456a-851d-f4fe71eb2385"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Total half twist:\"\>", "\[InvisibleSpace]", 
   "2.999999999995195`"}],
  SequenceForm["Total half twist:", 2.999999999995195],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7228638985479193`*^9, 3.7228640201000767`*^9, 3.722864162857712*^9, 
   3.724229127024406*^9, 3.724229302278944*^9, 3.7242329186121798`*^9, 
   3.724241868636179*^9, 3.7242856032176228`*^9, 3.724286295664899*^9, 
   3.724286421503414*^9, 3.724286483091036*^9, {3.724286547363082*^9, 
   3.724286566454721*^9}, {3.724287816052813*^9, 3.7242878451527*^9}, 
   3.724994142055285*^9, {3.725580149809071*^9, 3.725580176654491*^9}, 
   3.857714387040452*^9, 3.8577751367738028`*^9, 3.857775182331374*^9, 
   3.857775928014345*^9, 3.8577765260490913`*^9, 3.8577812999784203`*^9, {
   3.8577829957274218`*^9, 3.857783011303362*^9}, 3.8577862889284077`*^9, 
   3.857786428880281*^9, 3.85778677083666*^9, 3.857786999123663*^9, 
   3.85778709088177*^9, 3.857886991126585*^9, 3.857887079615416*^9, 
   3.8578874686238613`*^9, 3.857887591027964*^9, {3.8578876621116943`*^9, 
   3.857887727996763*^9}, {3.857887784274876*^9, 3.857887801243001*^9}, 
   3.857942911447343*^9},
 CellLabel->
  "During evaluation of \
In[360]:=",ExpressionUUID->"68d03039-73c7-45b7-9990-c8d22c87d663"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge vectors:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "0.2426473029921555`"}], "0.16889412023403325`", 
        "0.17911551570687115`", "0.17547766750819346`", 
        RowBox[{"-", "0.38174410253380875`"}], "0"},
       {"0", "0.6127386684097391`", "0.4874307953898004`", 
        RowBox[{"-", "0.46583139993190725`"}], 
        RowBox[{"-", "0.49407891193116144`"}], 
        RowBox[{"-", "0.49950724266839114`"}], "0.4567244252283651`", "0"},
       {"1", 
        RowBox[{"-", "0.790285596638328`"}], 
        RowBox[{"-", "0.8387690424477335`"}], "0.8686057120539139`", 
        "0.8507665137002579`", "0.8483514028742528`", 
        RowBox[{"-", "0.8035385742706951`"}], 
        RowBox[{"-", "1"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge vectors:", 
   MatrixForm[{{
     0, 0, -0.2426473029921555, 0.16889412023403325`, 0.17911551570687115`, 
      0.17547766750819346`, -0.38174410253380875`, 0}, {
     0, 0.6127386684097391, 
      0.4874307953898004, -0.46583139993190725`, -0.49407891193116144`, \
-0.49950724266839114`, 0.4567244252283651, 0}, {
     1, -0.790285596638328, -0.8387690424477335, 0.8686057120539139, 
      0.8507665137002579, 0.8483514028742528, -0.8035385742706951, -1}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7228638985479193`*^9, 3.7228640201000767`*^9, 3.722864162857712*^9, 
   3.724229127024406*^9, 3.724229302278944*^9, 3.7242329186121798`*^9, 
   3.724241868636179*^9, 3.7242856032176228`*^9, 3.724286295664899*^9, 
   3.724286421503414*^9, 3.724286483091036*^9, {3.724286547363082*^9, 
   3.724286566454721*^9}, {3.724287816052813*^9, 3.7242878451527*^9}, 
   3.724994142055285*^9, {3.725580149809071*^9, 3.725580176654491*^9}, 
   3.857714387040452*^9, 3.8577751367738028`*^9, 3.857775182331374*^9, 
   3.857775928014345*^9, 3.8577765260490913`*^9, 3.8577812999784203`*^9, {
   3.8577829957274218`*^9, 3.857783011303362*^9}, 3.8577862889284077`*^9, 
   3.857786428880281*^9, 3.85778677083666*^9, 3.857786999123663*^9, 
   3.85778709088177*^9, 3.857886991126585*^9, 3.857887079615416*^9, 
   3.8578874686238613`*^9, 3.857887591027964*^9, {3.8578876621116943`*^9, 
   3.857887727996763*^9}, {3.857887784274876*^9, 3.857887801243001*^9}, 
   3.8579429114582243`*^9},
 CellLabel->
  "During evaluation of \
In[360]:=",ExpressionUUID->"12e62777-873f-4199-b481-28efd1cbbbc3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Elastic Energy:\"\>", "\[InvisibleSpace]", 
   "1.5528846951381987`"}],
  SequenceForm["Elastic Energy:", 1.5528846951381987`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7228638985479193`*^9, 3.7228640201000767`*^9, 3.722864162857712*^9, 
   3.724229127024406*^9, 3.724229302278944*^9, 3.7242329186121798`*^9, 
   3.724241868636179*^9, 3.7242856032176228`*^9, 3.724286295664899*^9, 
   3.724286421503414*^9, 3.724286483091036*^9, {3.724286547363082*^9, 
   3.724286566454721*^9}, {3.724287816052813*^9, 3.7242878451527*^9}, 
   3.724994142055285*^9, {3.725580149809071*^9, 3.725580176654491*^9}, 
   3.857714387040452*^9, 3.8577751367738028`*^9, 3.857775182331374*^9, 
   3.857775928014345*^9, 3.8577765260490913`*^9, 3.8577812999784203`*^9, {
   3.8577829957274218`*^9, 3.857783011303362*^9}, 3.8577862889284077`*^9, 
   3.857786428880281*^9, 3.85778677083666*^9, 3.857786999123663*^9, 
   3.85778709088177*^9, 3.857886991126585*^9, 3.857887079615416*^9, 
   3.8578874686238613`*^9, 3.857887591027964*^9, {3.8578876621116943`*^9, 
   3.857887727996763*^9}, {3.857887784274876*^9, 3.857887801243001*^9}, 
   3.857942911470799*^9},
 CellLabel->
  "During evaluation of \
In[360]:=",ExpressionUUID->"4108b8ae-49ad-490f-8139-6ac2bae7ab5f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Torsion Energy:\"\>", "\[InvisibleSpace]", 
   "13.21304849054329`"}],
  SequenceForm["Torsion Energy:", 13.21304849054329],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7228638985479193`*^9, 3.7228640201000767`*^9, 3.722864162857712*^9, 
   3.724229127024406*^9, 3.724229302278944*^9, 3.7242329186121798`*^9, 
   3.724241868636179*^9, 3.7242856032176228`*^9, 3.724286295664899*^9, 
   3.724286421503414*^9, 3.724286483091036*^9, {3.724286547363082*^9, 
   3.724286566454721*^9}, {3.724287816052813*^9, 3.7242878451527*^9}, 
   3.724994142055285*^9, {3.725580149809071*^9, 3.725580176654491*^9}, 
   3.857714387040452*^9, 3.8577751367738028`*^9, 3.857775182331374*^9, 
   3.857775928014345*^9, 3.8577765260490913`*^9, 3.8577812999784203`*^9, {
   3.8577829957274218`*^9, 3.857783011303362*^9}, 3.8577862889284077`*^9, 
   3.857786428880281*^9, 3.85778677083666*^9, 3.857786999123663*^9, 
   3.85778709088177*^9, 3.857886991126585*^9, 3.857887079615416*^9, 
   3.8578874686238613`*^9, 3.857887591027964*^9, {3.8578876621116943`*^9, 
   3.857887727996763*^9}, {3.857887784274876*^9, 3.857887801243001*^9}, 
   3.85794291147495*^9},
 CellLabel->
  "During evaluation of \
In[360]:=",ExpressionUUID->"8d729504-b319-4eb6-ad61-1f34428f7cad"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Target func:\"\>", "\[InvisibleSpace]", "1.5528846951381987`"}],
  SequenceForm["Target func:", 1.5528846951381987`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7228638985479193`*^9, 3.7228640201000767`*^9, 3.722864162857712*^9, 
   3.724229127024406*^9, 3.724229302278944*^9, 3.7242329186121798`*^9, 
   3.724241868636179*^9, 3.7242856032176228`*^9, 3.724286295664899*^9, 
   3.724286421503414*^9, 3.724286483091036*^9, {3.724286547363082*^9, 
   3.724286566454721*^9}, {3.724287816052813*^9, 3.7242878451527*^9}, 
   3.724994142055285*^9, {3.725580149809071*^9, 3.725580176654491*^9}, 
   3.857714387040452*^9, 3.8577751367738028`*^9, 3.857775182331374*^9, 
   3.857775928014345*^9, 3.8577765260490913`*^9, 3.8577812999784203`*^9, {
   3.8577829957274218`*^9, 3.857783011303362*^9}, 3.8577862889284077`*^9, 
   3.857786428880281*^9, 3.85778677083666*^9, 3.857786999123663*^9, 
   3.85778709088177*^9, 3.857886991126585*^9, 3.857887079615416*^9, 
   3.8578874686238613`*^9, 3.857887591027964*^9, {3.8578876621116943`*^9, 
   3.857887727996763*^9}, {3.857887784274876*^9, 3.857887801243001*^9}, 
   3.857942911483032*^9},
 CellLabel->
  "During evaluation of \
In[360]:=",ExpressionUUID->"e702674b-56cf-4368-afa6-fed3b492f24f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge centre:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", 
        RowBox[{"-", "1.`"}], 
        RowBox[{"-", "1.4686733629177793`"}], 
        RowBox[{"-", "1.0721650691438698`"}], 
        RowBox[{"-", "0.13188805300427964`"}], "0.7023115660401154`", 
        "0.767278219711123`", 
        RowBox[{"-", "6.532069329878709`*^-9"}]},
       {"0", "0", "0.6981158050767128`", "1.5370382096972457`", 
        "1.8774483456163393`", "1.4952830298492652`", "0.6413143782008615`", 
        "6.357301352011291`*^-9"},
       {"0", "0", "0.5412759015450744`", "0.9140900268061836`", 
        "0.91382117150425`", "0.5162527283264258`", "3.4787999148022664`*^-9",
         "3.478799803779964`*^-9"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge centre:", 
   MatrixForm[{{
     0, -1., -1.4686733629177793`, -1.0721650691438698`, \
-0.13188805300427964`, 0.7023115660401154, 
      0.767278219711123, -6.532069329878709*^-9}, {
     0, 0, 0.6981158050767128, 1.5370382096972457`, 1.8774483456163393`, 
      1.4952830298492652`, 0.6413143782008615, 6.357301352011291*^-9}, {
     0, 0, 0.5412759015450744, 0.9140900268061836, 0.91382117150425, 
      0.5162527283264258, 3.4787999148022664`*^-9, 3.478799803779964*^-9}}]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7228638985479193`*^9, 3.7228640201000767`*^9, 3.722864162857712*^9, 
   3.724229127024406*^9, 3.724229302278944*^9, 3.7242329186121798`*^9, 
   3.724241868636179*^9, 3.7242856032176228`*^9, 3.724286295664899*^9, 
   3.724286421503414*^9, 3.724286483091036*^9, {3.724286547363082*^9, 
   3.724286566454721*^9}, {3.724287816052813*^9, 3.7242878451527*^9}, 
   3.724994142055285*^9, {3.725580149809071*^9, 3.725580176654491*^9}, 
   3.857714387040452*^9, 3.8577751367738028`*^9, 3.857775182331374*^9, 
   3.857775928014345*^9, 3.8577765260490913`*^9, 3.8577812999784203`*^9, {
   3.8577829957274218`*^9, 3.857783011303362*^9}, 3.8577862889284077`*^9, 
   3.857786428880281*^9, 3.85778677083666*^9, 3.857786999123663*^9, 
   3.85778709088177*^9, 3.857886991126585*^9, 3.857887079615416*^9, 
   3.8578874686238613`*^9, 3.857887591027964*^9, {3.8578876621116943`*^9, 
   3.857887727996763*^9}, {3.857887784274876*^9, 3.857887801243001*^9}, 
   3.857942911488792*^9},
 CellLabel->
  "During evaluation of \
In[360]:=",ExpressionUUID->"1fef734f-073c-460f-8231-0cb9eceffdd3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"vertex position:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0.`", "0.`", 
        RowBox[{"-", "1.`"}], 
        RowBox[{"-", "1.`"}], 
        RowBox[{"-", "1.589997014413857`"}], 
        RowBox[{"-", "1.3473497114217015`"}], 
        RowBox[{"-", "0.9877180090268531`"}], 
        RowBox[{"-", "1.1566121292608864`"}], 
        RowBox[{"-", "0.04233029515084406`"}], 
        RowBox[{"-", "0.2214458108577152`"}], "0.7900503997942121`", 
        "0.6145727322860186`", "0.5764061684442185`", "0.9581502709780274`", 
        RowBox[{"-", "6.532069329878709`*^-9"}], 
        RowBox[{"-", "6.532069329878709`*^-9"}]},
       {"0.`", "0.`", "0.30636933420486956`", 
        RowBox[{"-", "0.30636933420486956`"}], "0.9418312027716129`", 
        "0.4544004073818126`", "1.304122509731292`", "1.7699539096631993`", 
        "1.6304088896507587`", "2.12448780158192`", "1.2455294085150697`", 
        "1.7450366511834607`", "0.869676590815044`", "0.4129521655866789`", 
        "6.357301352011291`*^-9", "6.357301352011291`*^-9"},
       {"0.5`", 
        RowBox[{"-", "0.5`"}], 
        RowBox[{"-", "0.395142798319164`"}], "0.395142798319164`", 
        "0.12189138032120767`", "0.9606604227689413`", "1.3483928828331404`", 
        "0.4797871707792266`", "1.339204428354379`", "0.48843791465412106`", 
        "0.9404284297635521`", "0.09207702688929936`", 
        RowBox[{"-", "0.4017692836565476`"}], "0.40176929061414746`", 
        RowBox[{"-", "0.4999999965212002`"}], "0.5000000034787998`"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["vertex position:", 
   MatrixForm[CompressedData["
1:eJxTTMoPSmViYGBgBmIBBlzgw34YPSFo1tYFBT/3n/DRnbSv7+t+BUm/M0mz
3+9fEhi6o7rx034+sdlMgWuW7r+jvUcyLOLMfq5bK4+Je7y0z7romj9l1WP7
mOOhka8LH9krKF04qLXynT3IWjE+m31INArYxr9Lvm/2ZXsovX+OyQmDauV3
9sJz7Yueity1nx0/ZcL6u1/sK59cM9gd+Mf+buuhhepiv+z3xTwp/fyPwaGt
ZI/dhref7WUqjHpXv/5tn769hCHlymv7qNKG1+dyb4Hsd3jra22HRAPBA3so
vb/jOyMrq9dNGG2/5KoKi5vJfnuxUO+3u/a+s+e4HpfFMvmr/bSER/ZXt9yz
Z+ZJn5+Y+9W+3TxFcqLTffsrLIdi/oq/s/9z2Vg7ZtJ2+zfPSpunbbu5vybl
XReQtrc66Pzn///7+5Pl7zGC7AUAJRuiUg==
    "]]],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7228638985479193`*^9, 3.7228640201000767`*^9, 3.722864162857712*^9, 
   3.724229127024406*^9, 3.724229302278944*^9, 3.7242329186121798`*^9, 
   3.724241868636179*^9, 3.7242856032176228`*^9, 3.724286295664899*^9, 
   3.724286421503414*^9, 3.724286483091036*^9, {3.724286547363082*^9, 
   3.724286566454721*^9}, {3.724287816052813*^9, 3.7242878451527*^9}, 
   3.724994142055285*^9, {3.725580149809071*^9, 3.725580176654491*^9}, 
   3.857714387040452*^9, 3.8577751367738028`*^9, 3.857775182331374*^9, 
   3.857775928014345*^9, 3.8577765260490913`*^9, 3.8577812999784203`*^9, {
   3.8577829957274218`*^9, 3.857783011303362*^9}, 3.8577862889284077`*^9, 
   3.857786428880281*^9, 3.85778677083666*^9, 3.857786999123663*^9, 
   3.85778709088177*^9, 3.857886991126585*^9, 3.857887079615416*^9, 
   3.8578874686238613`*^9, 3.857887591027964*^9, {3.8578876621116943`*^9, 
   3.857887727996763*^9}, {3.857887784274876*^9, 3.857887801243001*^9}, 
   3.857942911495607*^9},
 CellLabel->
  "During evaluation of \
In[360]:=",ExpressionUUID->"810c9cc2-a34a-42c8-9e81-3e48ae94a806"]
}, Open  ]],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJxTTMoPSmViYGAQAGJmBlzggT0O8f0Q+sP+bfy75PtmX7bv+M7Iyup1E118
P1TcfkLQrK0LCn7un2NywqBa+Z39kqsqLG4m++1P+OhO2tf3db/wXPuipyJ3
7cVCvd/u2vvOXkHS70zS7Pf7Z8dPmbD+7hd7jutxWSyTv9ovCQzdUd34aX/l
k2sGuwP/2E9LeGR/dcs9ez6x2UyBa5buv9t6aKG62C97Zp70+Ym5X+3vaO+R
DIs4s39fzJPSz/8YHNrNUyQnOt2357q18pi4x0v7tpI9dhvefra/wnIo5q/4
O/usi675U1Y9tpepMOpd/fq3/Z/Lxtoxk7bbxxwPjXxd+Mg+fXsJQ8qV1/Zv
npU2T9t2c7+C0oWDWivf2UeVNrw+l3vLviblXRdQHBRuAmJ8NvuAtMNbX2s7
q4POf/7/v78fXTxZ/h4jKJwB7yuiUg==
   "], 
   Polygon3DBox[{{1, 2, 3}, {1, 2, 4}, {3, 4, 1}, {3, 4, 2}, {3, 4, 5}, {3, 4,
     6}, {5, 6, 3}, {5, 6, 4}, {5, 6, 7}, {5, 6, 8}, {7, 8, 5}, {7, 8, 6}, {7,
     8, 9}, {7, 8, 10}, {9, 10, 7}, {9, 10, 8}, {9, 10, 11}, {9, 10, 12}, {11,
     12, 9}, {11, 12, 10}, {11, 12, 13}, {11, 12, 14}, {13, 14, 11}, {13, 14, 
    12}, {13, 14, 15}, {13, 14, 16}, {15, 16, 13}, {15, 16, 14}}]]]], "Output",\

 CellChangeTimes->{
  3.857783526374401*^9, 3.857786348318029*^9, 3.857786506640738*^9, 
   3.857786848911965*^9, {3.857787077696266*^9, 3.857787094362926*^9}, 
   3.857887052508109*^9, 3.857887173051889*^9, 3.857887469403617*^9, 
   3.857887591551721*^9, {3.857887662640348*^9, 3.857887730037972*^9}, {
   3.857887792132139*^9, 3.857887809141301*^9}, 3.857942911511858*^9},
 CellLabel->
  "Out[360]=",ExpressionUUID->"579cfd24-a6e2-4243-b8c7-688247f17c3c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Kirchhoff", " ", "energy"}], ";", " ", 
     RowBox[{
     "since", " ", "we", " ", "demand", " ", "the", " ", "binormal", " ", 
      "is", " ", "orthogonal", " ", "to", " ", "the", " ", "previous", " ", 
      "tangent"}]}], ",", " ", 
    RowBox[{
    "we", " ", "do", " ", "not", " ", "get", " ", "constant", " ", "torsion", 
     " ", "as", " ", "the", " ", "minimiser", " ", "as", " ", "opposed", " ", 
     "to", " ", "the", " ", "classical", " ", "result", " ", "on", " ", 
     "Kirchhoff", " ", 
     RowBox[{"rod", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Setup", "[", 
    RowBox[{"7", ",", "True", ",", "0", ",", " ", "True"}], "]"}], ";", 
   RowBox[{"sol", "=", 
    RowBox[{"MKn", "[", 
     RowBox[{"energyE", "+", "energyT"}], "]"}]}], ";", 
   RowBox[{"Disp", "[", "sol", "]"}]}]}]], "Input",
 CellChangeTimes->{
  3.7242436689560843`*^9, {3.7242752391154203`*^9, 3.724275246389357*^9}, 
   3.724285607319992*^9, 3.724286313672827*^9, {3.724286560811517*^9, 
   3.724286561179874*^9}, {3.724994146755974*^9, 3.7249941480679827`*^9}, {
   3.725580190422721*^9, 3.7255801910287523`*^9}, {3.8577751418690853`*^9, 
   3.8577751628434258`*^9}, {3.857777557671974*^9, 3.857777565599794*^9}, {
   3.857783023255631*^9, 3.85778302835898*^9}, {3.857784068839324*^9, 
   3.857784118877638*^9}, {3.857784308408949*^9, 3.8577843090186977`*^9}, {
   3.857787098674925*^9, 3.857787099054001*^9}, {3.85788016977255*^9, 
   3.857880283547967*^9}, 
   3.8578871139090757`*^9},ExpressionUUID->"c40e05b4-2d18-403f-ae21-\
32566745f4c5"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Setup \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\" tetrahedra system with slide=\"\>", 
   "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\" oriented=\"\>", 
   "\[InvisibleSpace]", "True", 
   "\[InvisibleSpace]", "\<\" free (non-constant) twist angle=\"\>", 
   "\[InvisibleSpace]", "True"}],
  SequenceForm[
  "Setup ", 7, " tetrahedra system with slide=", 0, " oriented=", True, 
   " free (non-constant) twist angle=", True],
  Editable->False]], "Print",
 CellChangeTimes->{{3.857784080771546*^9, 3.8577841196200037`*^9}, 
   3.8577843129517183`*^9},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"1512b778-fd60-406f-9322-bfebdaaa1d75"],

Cell[BoxData["\<\"Finding global minima...\"\>"], "Print",
 CellChangeTimes->{{3.857784080771546*^9, 3.8577841196200037`*^9}, 
   3.8577843129527607`*^9},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"20e534db-8b24-4b0f-9f80-3d4c7c5c51f1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Cos(twist):\"\>", "\[InvisibleSpace]", "0.8835754600328988`"}],
  
  SequenceForm["Cos(twist):", 0.8835754600328988],
  Editable->False]], "Print",
 CellChangeTimes->{{3.857784080771546*^9, 3.8577841196200037`*^9}, 
   3.8577854577574663`*^9},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"0242ae09-08d9-4b94-93dd-769df5b5b04e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"total local twist:\"\>", "\[InvisibleSpace]", 
   "1.616334584090938`"}],
  SequenceForm["total local twist:", 1.616334584090938],
  Editable->False]], "Print",
 CellChangeTimes->{{3.857784080771546*^9, 3.8577841196200037`*^9}, 
   3.857785457762789*^9},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"3195d297-ceab-4c16-b122-ae4c865676ad"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Writhe:\"\>", "\[InvisibleSpace]", "0.38366360423740115`"}],
  SequenceForm["Writhe:", 0.38366360423740115`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.857784080771546*^9, 3.8577841196200037`*^9}, 
   3.857785457763488*^9},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"c3ad2c83-410a-4977-9971-b8c11b205631"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Total half twist:\"\>", "\[InvisibleSpace]", 
   "1.999998188328339`"}],
  SequenceForm["Total half twist:", 1.999998188328339],
  Editable->False]], "Print",
 CellChangeTimes->{{3.857784080771546*^9, 3.8577841196200037`*^9}, 
   3.8577854577641077`*^9},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"33e54ceb-8447-42d7-a0a9-72e541893ecc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge vectors:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "0", 
        RowBox[{"-", "0.46828569206109716`"}], 
        RowBox[{"-", "0.5530625522335878`"}], 
        RowBox[{"-", "0.4738763540357446`"}], 
        RowBox[{"-", "0.6973486251376709`"}], 
        RowBox[{"-", "0.8159380319808432`"}], "0"},
       {"0", 
        RowBox[{"-", "0.4682888523088363`"}], 
        RowBox[{"-", "0.415366202641398`"}], "0.6355027891883825`", 
        "0.8674619718478985`", "0.6692431203763481`", "0.4023329267978505`", 
        "0"},
       {"1", "0.8835754600328988`", "0.7798586407822137`", 
        "0.5387565072116389`", 
        RowBox[{"-", "0.15149836430676658`"}], 
        RowBox[{"-", "0.25655275249752935`"}], "0.4151790027292495`", "1"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge vectors:", 
   MatrixForm[{{
     0, 0, -0.46828569206109716`, -0.5530625522335878, -0.4738763540357446, \
-0.6973486251376709, -0.8159380319808432, 0}, {
     0, -0.4682888523088363, -0.415366202641398, 0.6355027891883825, 
      0.8674619718478985, 0.6692431203763481, 0.4023329267978505, 0}, {
     1, 0.8835754600328988, 0.7798586407822137, 
      0.5387565072116389, -0.15149836430676658`, -0.25655275249752935`, 
      0.4151790027292495, 1}}]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.857784080771546*^9, 3.8577841196200037`*^9}, 
   3.857785457765155*^9},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"855b5af6-536f-49bb-a4f4-2e346dc2752a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Elastic Energy:\"\>", "\[InvisibleSpace]", 
   "2.6292184014772655`"}],
  SequenceForm["Elastic Energy:", 2.6292184014772655`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.857784080771546*^9, 3.8577841196200037`*^9}, 
   3.857785457766163*^9},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"5e5dc6d4-5c5f-48c8-a8ab-f41e92c76175"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Torsion Energy:\"\>", "\[InvisibleSpace]", 
   "1.1251649090705746`"}],
  SequenceForm["Torsion Energy:", 1.1251649090705746`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.857784080771546*^9, 3.8577841196200037`*^9}, 
   3.857785457766734*^9},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"aa8d5a62-74c9-41eb-890a-6a013b87bcee"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Target func:\"\>", "\[InvisibleSpace]", "3.7543833105478397`"}],
  SequenceForm["Target func:", 3.7543833105478397`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.857784080771546*^9, 3.8577841196200037`*^9}, 
   3.857785457767314*^9},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"3658267b-8acf-4abd-86a4-f3ca6289d0f3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Dipole energy:\"\>", "\[InvisibleSpace]", 
   "3.636092611482022`"}],
  SequenceForm["Dipole energy:", 3.636092611482022],
  Editable->False]], "Print",
 CellChangeTimes->{{3.857784080771546*^9, 3.8577841196200037`*^9}, 
   3.8577854577945232`*^9},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"c7078389-c067-4886-8db9-ef3efbb2ecef"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Hinge centre:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0", "1.`", "1.003861450897336`", "0.21310425486873252`", 
        RowBox[{"-", "0.6138298504981616`"}], 
        RowBox[{"-", "1.0013501946395817`"}], 
        RowBox[{"-", "0.4422513105125686`"}], 
        RowBox[{"-", "8.013278020024828`*^-7"}]},
       {"0", "0", 
        RowBox[{"-", "0.8835688537038069`"}], 
        RowBox[{"-", "1.0803488270688355`"}], 
        RowBox[{"-", "1.5778517320409575`"}], 
        RowBox[{"-", "1.6287930620031228`"}], 
        RowBox[{"-", "0.8968914358111569`"}], "1.33513593958412`*^-7"},
       {"0", "0", 
        RowBox[{"-", "0.4682853510003365`"}], 
        RowBox[{"-", "1.0479237719244843`"}], 
        RowBox[{"-", "1.3099749976902761`"}], 
        RowBox[{"-", "0.38952241130779397`"}], "9.478704261489668`*^-7", 
        "9.478704263710114`*^-7"}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["Hinge centre:", 
   MatrixForm[{{
     0, 1., 1.003861450897336, 
      0.21310425486873252`, -0.6138298504981616, -1.0013501946395817`, \
-0.4422513105125686, -8.013278020024828*^-7}, {
     0, 0, -0.8835688537038069, -1.0803488270688355`, -1.5778517320409575`, \
-1.6287930620031228`, -0.8968914358111569, 1.33513593958412*^-7}, {
     0, 0, -0.4682853510003365, -1.0479237719244843`, -1.3099749976902761`, \
-0.38952241130779397`, 9.478704261489668*^-7, 9.478704263710114*^-7}}]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.857784080771546*^9, 3.8577841196200037`*^9}, 
   3.857785457795644*^9},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"c983cdbb-d3d0-46f5-9bd4-8f87608f3483"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"vertex position:\"\>", "\[InvisibleSpace]", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {"0.`", "0.`", "1.`", "1.`", "0.7697186048667874`", 
        "1.2380042969278846`", 
        RowBox[{"-", "0.06342702124806138`"}], "0.4896355309855264`", 
        RowBox[{"-", "0.8507680275160339`"}], 
        RowBox[{"-", "0.37689167348028935`"}], 
        RowBox[{"-", "1.3500245072084172`"}], 
        RowBox[{"-", "0.6526758820707463`"}], 
        RowBox[{"-", "0.8502203265029902`"}], 
        RowBox[{"-", "0.03428229452214698`"}], 
        RowBox[{"-", "8.013278020024828`*^-7"}], 
        RowBox[{"-", "8.013278020024828`*^-7"}]},
       {"0.`", "0.`", 
        RowBox[{"-", "0.23414442615441816`"}], "0.23414442615441816`", 
        RowBox[{"-", "1.091251955024506`"}], 
        RowBox[{"-", "0.6758857523831079`"}], 
        RowBox[{"-", "0.7625974324746443`"}], 
        RowBox[{"-", "1.3981002216630267`"}], 
        RowBox[{"-", "1.1441207461170082`"}], 
        RowBox[{"-", "2.011582717964907`"}], 
        RowBox[{"-", "1.2941715018149487`"}], 
        RowBox[{"-", "1.963414622191297`"}], 
        RowBox[{"-", "0.6957249724122316`"}], 
        RowBox[{"-", "1.0980578992100822`"}], "1.33513593958412`*^-7", 
        "1.33513593958412`*^-7"},
       {"0.5`", 
        RowBox[{"-", "0.5`"}], "0.4417877300164494`", 
        RowBox[{"-", "0.4417877300164494`"}], 
        RowBox[{"-", "0.07835603060922969`"}], 
        RowBox[{"-", "0.8582146713914434`"}], 
        RowBox[{"-", "0.7785455183186648`"}], 
        RowBox[{"-", "1.3173020255303038`"}], 
        RowBox[{"-", "1.3857241798436595`"}], 
        RowBox[{"-", "1.2342258155368928`"}], 
        RowBox[{"-", "0.5177987875565586`"}], 
        RowBox[{"-", "0.2612460350590293`"}], "0.2075904492350509`", 
        RowBox[{"-", "0.2075885534941986`"}], "0.5000009478704264`", 
        RowBox[{"-", "0.49999905212957363`"}]}
      },
      GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}],
  SequenceForm["vertex position:", 
   MatrixForm[CompressedData["
1:eJxTTMoPSmViYGBgBmIBBlzggz2M3nIx4WXHwhf2x87+nH733Gf7mIKPVw/Y
bNivv13JxSDsvv0Z26v3ai1f71d/9M7hn9yN/Y3KJj6bZ37df8ycp2PHoyf7
CwzFnRhNX++PeDT7dVHvwv0MDBcqoh6v2oegUUHSnfxzhT/O7ofS9qeyNeYc
Kf24v0DbS+P2gqf7L+3n322U/mK/uXZn2Ly4b/tLvhn3Bfp92h90V2zdDnGG
A9dirXXfbvmyn+dMTrFq1v/9YWsKWBKdn+2P6XmssXTiR6D9DP9qXzfaIdFA
8ADq3wf7s8t4uB3c7thD6f0JFi95VPi37LeKDppbV/Z6fyVHideNly/2q2x/
6bla+Ov+fHdpubfa3/aLHpo5MXn/5/0cN/wOn5v4YP+DQiMvxx0X9ntON3se
NOmUvSanCoPzpFP7jwU++sMItK8kxprtz//7+wE0ca/d
    "]]],
  Editable->False]], "Print",
 CellChangeTimes->{{3.857784080771546*^9, 3.8577841196200037`*^9}, 
   3.857785457797408*^9},
 CellLabel->
  "During evaluation of \
In[17]:=",ExpressionUUID->"3cb82126-9516-4b47-bdf1-c19938527793"]
}, Open  ]],

Cell[BoxData[
 Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJxTTMoPSmViYGAQAGJmBlzggT0O8f0Q+oN90p38c4U/zu7PLuPhdnC7Y48m
bg8V37/lYsLLjoUv7E9la8w5Uvpxf4LFSx4V/i37j539Of3uuc/2BdpeGrcX
PN1vFR00t67s9f6Ygo9XD9hs2H9pP/9uo/QX+ys5SrxuvHyxX3+7kotB2H17
c+3OsHlx3/arbH/puVr46/4ztlfv1Vq+3l/yzbgv0O/T/nx3abm32t/2qz96
5/BP7sb+oLti63aIMxwQPTRzYvL+z/sblU18Ns/8uv9arLXu2y1f9nPc8Dt8
buKD/cfMeTp2PHqyn+dMTrFq1v/9DwqNvBx3XNhfYCjuxGj6en/YmgKWROdn
+z2nmz0PmnTKPuLR7NdFvQv3x/Q81lg68eN+TU4VBudJp4Dhc6Ei6vGqfcDA
+Ff7utHuWOCjP4zg8EQVL4mxZvvz//5+AMo3r90=
   "], 
   Polygon3DBox[{{1, 2, 3}, {1, 2, 4}, {3, 4, 1}, {3, 4, 2}, {3, 4, 5}, {3, 4,
     6}, {5, 6, 3}, {5, 6, 4}, {5, 6, 7}, {5, 6, 8}, {7, 8, 5}, {7, 8, 6}, {7,
     8, 9}, {7, 8, 10}, {9, 10, 7}, {9, 10, 8}, {9, 10, 11}, {9, 10, 12}, {11,
     12, 9}, {11, 12, 10}, {11, 12, 13}, {11, 12, 14}, {13, 14, 11}, {13, 14, 
    12}, {13, 14, 15}, {13, 14, 16}, {15, 16, 13}, {15, 16, 14}}]],
  ImageSize->{353.6186970418276, 344.77738196985644`},
  ImageSizeRaw->Automatic,
  ViewPoint->{1.020502339563544, -2.696483353377559, 1.771313777935193},
  ViewVertical->{-0.036675267324557365`, -0.09134309056568174, 
   0.9951438913908791}]], "Output",
 CellChangeTimes->{{3.857784099056395*^9, 3.8577841129048843`*^9}, 
   3.857784231824369*^9, 3.857785457799068*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"65672f4f-0ebd-4cf7-bdcd-c33942397085"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"torsion", " ", "is", " ", "not", " ", "constant"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"HH", "=", 
    RowBox[{"H", " ", "/.", " ", 
     RowBox[{"sol", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}]}], ";", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"HH", "[", 
       RowBox[{"[", "i", "]"}], "]"}], ".", 
      RowBox[{"HH", "[", 
       RowBox[{"[", 
        RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.724994209595132*^9, 3.7249942464027452`*^9}, {
  3.857713120175975*^9, 3.8577131311830053`*^9}, {3.857716442300207*^9, 
  3.857716447872942*^9}, {3.857933744434813*^9, 
  3.8579337470727997`*^9}},ExpressionUUID->"d3aefe40-b121-4c75-a6a2-\
3e631ea169c9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.8835754600328988`", ",", "0.8835753196125955`", ",", 
   "0.41517881713922866`", ",", "0.7317370388281598`", ",", 
   "0.9498673031811605`", ",", "0.7317364922303521`", ",", 
   "0.4151790027292495`"}], "}"}]], "Output",
 CellChangeTimes->{3.724994247092636*^9, 3.725581705235873*^9, 
  3.857714381849008*^9, 3.8577163253271017`*^9, 3.857784293824313*^9, 
  3.857786259661268*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"be976609-93ff-44a6-a46d-d5f4d9ebed84"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"optimisation", " ", "using", " ", "initial", " ", "point"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Setup", "[", 
     RowBox[{"7", ",", "True", ",", "0"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sol", "=", 
     RowBox[{"MKn", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"h", "[", 
           RowBox[{"2", ",", "3"}], "]"}], "-", "0.1"}], ")"}], "^", "2"}], 
       ",", "True"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"prevSol", " ", "=", " ", 
     RowBox[{"Transpose", "[", 
      RowBox[{"Join", "[", 
       RowBox[{
        RowBox[{"{", "vars", "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"vars", " ", "/.", " ", 
          RowBox[{"sol", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.857957385285075*^9, 
  3.8579574478028793`*^9}},ExpressionUUID->"a30ca6a1-8bd8-4262-b80b-\
96addc208921"]
}, Open  ]]
},
WindowSize->{1227, 816},
WindowMargins->{{Automatic, 36}, {Automatic, 0}},
Magnification->1.5,
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (June 22, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"17fa29f6-2d8a-40ba-a6dd-d10bd10b8347"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 65959, 1511, 5930, "Input",ExpressionUUID->"4721de3c-ac49-4e74-9734-971a89b8dcd5",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[66541, 1535, 159, 3, 146, "Title",ExpressionUUID->"1e4b7b8b-87da-4c13-b746-dd835620df87"],
Cell[CellGroupData[{
Cell[66725, 1542, 1697, 27, 78, "Input",ExpressionUUID->"708eaf9d-57eb-47ed-8af7-fc544a21a827"],
Cell[68425, 1571, 1563, 28, 36, "Print",ExpressionUUID->"f58befc3-f666-4998-94c2-8803ea945d42"]
}, Open  ]],
Cell[CellGroupData[{
Cell[70025, 1604, 1792, 34, 78, "Input",ExpressionUUID->"854ffd0a-b3d8-4955-b5f6-79d4169df8ff"],
Cell[CellGroupData[{
Cell[71842, 1642, 832, 13, 36, "Print",ExpressionUUID->"8e04a70c-6dba-4190-a683-914af42063a7"],
Cell[72677, 1657, 989, 18, 36, "Print",ExpressionUUID->"5fff9292-0f07-4fa6-bbb4-1e55ea9377e9"],
Cell[73669, 1677, 982, 18, 36, "Print",ExpressionUUID->"4ce9c0ea-237e-49bc-87f3-b8f9e39e5fb8"],
Cell[74654, 1697, 981, 18, 36, "Print",ExpressionUUID->"577cb7f4-60b6-48ad-bf5e-f32640667d79"],
Cell[75638, 1717, 983, 18, 36, "Print",ExpressionUUID->"4548ce65-234d-4904-a3ef-fb679ec68f86"],
Cell[76624, 1737, 2518, 52, 80, "Print",ExpressionUUID->"a871ce25-f812-4173-88db-7e864e0693cb"],
Cell[79145, 1791, 981, 18, 36, "Print",ExpressionUUID->"66cf08b7-35ee-47c5-89d6-d390236b1d20"],
Cell[80129, 1811, 974, 18, 36, "Print",ExpressionUUID->"bdb0d30d-8f50-457f-8440-7fd5e9a4167f"],
Cell[81106, 1831, 991, 18, 36, "Print",ExpressionUUID->"4c419062-674d-4904-9d25-660e7a8f6d64"],
Cell[82100, 1851, 993, 18, 36, "Print",ExpressionUUID->"cb74f040-5997-40df-b066-1ea47ea20df0"],
Cell[83096, 1871, 2670, 55, 88, "Print",ExpressionUUID->"8dbe238c-7dcb-465a-ae83-b66c622dfada"],
Cell[85769, 1928, 3585, 73, 86, "Print",ExpressionUUID->"05cb4207-4bf1-41ff-a732-bf36e43da774"]
}, Open  ]],
Cell[89369, 2004, 1678, 27, 618, "Output",ExpressionUUID->"756a80b8-1aae-4edf-a5d0-2b4f29f4ba25"]
}, Open  ]],
Cell[CellGroupData[{
Cell[91084, 2036, 878, 21, 109, "Input",ExpressionUUID->"18a44f77-9ab0-4c41-904e-b97c39531899"],
Cell[CellGroupData[{
Cell[91987, 2061, 377, 7, 36, "Print",ExpressionUUID->"41457aa6-38c5-4552-9465-3d5460c163f5"],
Cell[92367, 2070, 513, 11, 36, "Print",ExpressionUUID->"ff55d232-b8f9-4b6d-aad8-7971c9559a94"],
Cell[92883, 2083, 530, 12, 36, "Print",ExpressionUUID->"9959c1f4-f2d0-42f9-a851-07cc05d96fc0"],
Cell[93416, 2097, 505, 11, 36, "Print",ExpressionUUID->"a4c78667-25c5-41a6-822b-353a2bc74ba5"],
Cell[93924, 2110, 525, 12, 36, "Print",ExpressionUUID->"301a7236-ecb9-4686-ad9c-3ea4cb166b8f"],
Cell[94452, 2124, 2058, 46, 80, "Print",ExpressionUUID->"39792490-061a-4c9e-b379-9f87dc87cead"],
Cell[96513, 2172, 521, 12, 36, "Print",ExpressionUUID->"eae3182c-a29c-4e0d-af7a-c35f44cb39bc"],
Cell[97037, 2186, 521, 12, 36, "Print",ExpressionUUID->"c0a4b1db-441a-44ba-824c-760cd2c11ad6"],
Cell[97561, 2200, 523, 12, 36, "Print",ExpressionUUID->"5f2ec9de-bfcd-46ef-8388-47d8738349be"],
Cell[98087, 2214, 533, 12, 36, "Print",ExpressionUUID->"0cfb02bb-1570-4d47-8f79-3a329af7db81"],
Cell[98623, 2228, 2237, 50, 88, "Print",ExpressionUUID->"b0d49a2a-19b4-402b-a95f-36fd1669a7c8"],
Cell[100863, 2280, 3233, 70, 86, "Print",ExpressionUUID->"780882b9-9acc-41ca-b1e9-f6829d6bd365"]
}, Open  ]],
Cell[104111, 2353, 1544, 25, 505, "Output",ExpressionUUID->"2542c38f-5fd1-46fe-a3c4-2b9b6b5fa7bf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[105692, 2383, 676, 16, 78, "Input",ExpressionUUID->"86d36d27-18bb-4237-ac68-27a7870ae547"],
Cell[CellGroupData[{
Cell[106393, 2403, 412, 7, 36, "Print",ExpressionUUID->"9e58c32d-f5c6-4b63-8120-864cd40cba58"],
Cell[106808, 2412, 568, 12, 36, "Print",ExpressionUUID->"0ab936e4-7d4d-449e-914f-084cfb9428a1"],
Cell[107379, 2426, 564, 12, 36, "Print",ExpressionUUID->"05759fd0-885d-469d-a337-54654aba4f6d"],
Cell[107946, 2440, 563, 12, 36, "Print",ExpressionUUID->"5824e4c7-ccae-4cb6-a0d0-a0fe4a7b94b3"],
Cell[108512, 2454, 562, 12, 36, "Print",ExpressionUUID->"29da3f84-aa97-4754-a6a1-930ed8dd5b95"],
Cell[109077, 2468, 2118, 47, 80, "Print",ExpressionUUID->"e116b8f6-63c7-4e5a-9e2e-3b1df97ca109"],
Cell[111198, 2517, 561, 12, 36, "Print",ExpressionUUID->"1e92b3f8-ab47-4562-8d8d-43668c156017"],
Cell[111762, 2531, 558, 12, 36, "Print",ExpressionUUID->"9ca21f75-2aff-4954-b5a0-a2830392f8c1"],
Cell[112323, 2545, 556, 12, 36, "Print",ExpressionUUID->"33fc4506-db59-45d7-b1cc-8085bbb670e0"],
Cell[112882, 2559, 570, 12, 36, "Print",ExpressionUUID->"0268c076-649e-4768-8124-6e587692441d"],
Cell[113455, 2573, 2358, 52, 88, "Print",ExpressionUUID->"7e7099b6-2bf7-4923-b141-4dea7b950a8d"],
Cell[115816, 2627, 3347, 73, 86, "Print",ExpressionUUID->"78a6cdc9-4133-45fa-8c7e-6b5b5dafa16c"]
}, Open  ]],
Cell[119178, 2703, 1382, 25, 692, "Output",ExpressionUUID->"166ff5a1-eddc-4fff-b860-2414097ac11e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[120597, 2733, 1223, 21, 78, "Input",ExpressionUUID->"49ef6a38-d8da-4234-a034-47d5ef581441"],
Cell[121823, 2756, 1545, 28, 36, "Print",ExpressionUUID->"0d8b3219-3b1c-4aa9-800d-67a051d48273"]
}, Open  ]],
Cell[CellGroupData[{
Cell[123405, 2789, 826, 22, 109, "Input",ExpressionUUID->"f437f947-b786-4e83-9896-420510cb41e8"],
Cell[CellGroupData[{
Cell[124256, 2815, 544, 9, 36, "Print",ExpressionUUID->"64e141ac-4af8-4d93-a050-7a0059792a50"],
Cell[124803, 2826, 683, 14, 36, "Print",ExpressionUUID->"900b2176-0796-4da2-bfab-3df1d2910262"],
Cell[125489, 2842, 701, 14, 36, "Print",ExpressionUUID->"1eea30d6-6498-4470-b7ec-cc9bf1ad155c"],
Cell[126193, 2858, 675, 13, 36, "Print",ExpressionUUID->"845d7b79-3ce3-4d60-9984-48fdcee9517e"],
Cell[126871, 2873, 694, 14, 36, "Print",ExpressionUUID->"3253c98a-157e-4cc2-a4bd-7d3aa0a6df3e"],
Cell[127568, 2889, 2382, 51, 80, "Print",ExpressionUUID->"394345b3-bace-4f6b-8cd8-e6ac1c5b8672"],
Cell[129953, 2942, 690, 14, 36, "Print",ExpressionUUID->"a04fa59f-48fc-4903-bc64-57afde4b5a93"],
Cell[130646, 2958, 690, 14, 36, "Print",ExpressionUUID->"915fc678-7639-4086-bdee-3ad22065e4f0"],
Cell[131339, 2974, 702, 14, 36, "Print",ExpressionUUID->"c1ac1cb0-8383-4e74-a294-c487883c352f"],
Cell[132044, 2990, 2538, 54, 88, "Print",ExpressionUUID->"dd466285-c7fb-4b7f-9ec1-2b4c6b886d3c"],
Cell[134585, 3046, 3537, 72, 86, "Print",ExpressionUUID->"a2484234-61ac-4c3c-8acf-f6ff99354fea"]
}, Open  ]],
Cell[138137, 3121, 1540, 27, 589, "Output",ExpressionUUID->"c92dd5e3-614d-40b9-ac52-c61cc5a5291f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[139714, 3153, 949, 21, 109, "Input",ExpressionUUID->"f0d1d9c4-26d4-41cc-b098-2dc7f27ed6dc"],
Cell[CellGroupData[{
Cell[140688, 3178, 306, 6, 36, "Print",ExpressionUUID->"3078b6c8-ecae-4d39-95fd-675c80e5e600"],
Cell[140997, 3186, 462, 11, 36, "Print",ExpressionUUID->"b739a66e-806f-42ec-9580-d7069d282e4f"],
Cell[141462, 3199, 458, 11, 36, "Print",ExpressionUUID->"1f5f79c7-0138-4537-83ca-ab39ec2c5e71"],
Cell[141923, 3212, 457, 11, 36, "Print",ExpressionUUID->"16708af3-dc77-44fe-a02f-71236cb66fc5"],
Cell[142383, 3225, 459, 11, 36, "Print",ExpressionUUID->"191df36f-94a5-4462-a981-979ee701f21b"],
Cell[142845, 3238, 2190, 49, 80, "Print",ExpressionUUID->"9dec9467-828b-4376-8191-7981799cbbba"],
Cell[145038, 3289, 455, 11, 36, "Print",ExpressionUUID->"821533ef-079b-4842-9f77-f36a9aa5cbfd"],
Cell[145496, 3302, 455, 11, 36, "Print",ExpressionUUID->"79239470-b6e6-40f9-b0fe-ccb30300bdb7"],
Cell[145954, 3315, 467, 11, 36, "Print",ExpressionUUID->"ec265b9e-de12-439f-b404-bc28736e9832"],
Cell[146424, 3328, 2230, 49, 88, "Print",ExpressionUUID->"211011d5-e6f3-42b8-b30a-47886fec73ec"],
Cell[148657, 3379, 3198, 66, 86, "Print",ExpressionUUID->"4759163b-ed0f-47e5-8fc0-3184602ea54b"]
}, Open  ]],
Cell[151870, 3448, 1268, 22, 556, "Output",ExpressionUUID->"58ab9aa4-df93-4cf1-9552-98dbc4cc38ac"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153175, 3475, 1318, 29, 171, "Input",ExpressionUUID->"1dc6ffcd-62d9-4b2c-b905-43d98ecc8748"],
Cell[CellGroupData[{
Cell[154518, 3508, 874, 18, 36, "Print",ExpressionUUID->"1b1bf260-a449-44e9-9a4d-04cfca11b91f"],
Cell[155395, 3528, 397, 7, 36, "Print",ExpressionUUID->"9a91bb03-9fc4-43fd-aa65-80e054c57573"]
}, Open  ]],
Cell[155807, 3538, 184, 3, 52, "Output",ExpressionUUID->"7f285d44-733b-4793-b157-fb73a00762ea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[156028, 3546, 1781, 42, 171, "Input",ExpressionUUID->"fba82a70-e601-4bd6-ba44-752f36c2c808"],
Cell[CellGroupData[{
Cell[157834, 3592, 1167, 22, 36, "Print",ExpressionUUID->"7d56d40b-f5b2-4faa-b56b-1416deac5077"],
Cell[159004, 3616, 689, 11, 36, "Print",ExpressionUUID->"618713d6-0052-4641-931c-8f394b3dc6e3"]
}, Open  ]],
Cell[159708, 3630, 162, 3, 52, "Output",ExpressionUUID->"5f8aa8e9-aa5d-4d4a-8a1c-20d5ac87ca35"]
}, Open  ]],
Cell[CellGroupData[{
Cell[159907, 3638, 1848, 36, 140, "Input",ExpressionUUID->"17522997-bc0f-4941-8425-9c2268616f6b"],
Cell[CellGroupData[{
Cell[161780, 3678, 1398, 26, 36, "Print",ExpressionUUID->"69d23e98-0167-4813-ab6a-63208bcdb6a1"],
Cell[163181, 3706, 938, 15, 36, "Print",ExpressionUUID->"d0615055-1b9e-4f3a-ae48-9ba60b13aac9"],
Cell[164122, 3723, 1085, 20, 36, "Print",ExpressionUUID->"05f73959-e18c-491e-9d79-181e597a87ad"],
Cell[165210, 3745, 1101, 20, 36, "Print",ExpressionUUID->"02b1834c-f1c2-404e-9e45-7eff2539e611"],
Cell[166314, 3767, 1077, 19, 36, "Print",ExpressionUUID->"17d93b55-3738-4a73-94d0-50ce4cc13e01"],
Cell[167394, 3788, 1099, 20, 36, "Print",ExpressionUUID->"ac7eaded-3a3a-48e8-a1a3-8dd6bea3755c"],
Cell[168496, 3810, 3256, 66, 80, "Print",ExpressionUUID->"d62a2f20-b6ab-4f1e-8494-18d95e50a0ed"],
Cell[171755, 3878, 1094, 20, 36, "Print",ExpressionUUID->"446f1148-b9ba-4b5c-bfa4-ef11dd2cce35"],
Cell[172852, 3900, 1085, 20, 36, "Print",ExpressionUUID->"368bc6bc-af0e-4366-94c8-84e071cacdd6"],
Cell[173940, 3922, 3454, 70, 88, "Print",ExpressionUUID->"54cb82ee-b8b3-4e75-ad81-8e642a1cd8fe"],
Cell[177397, 3994, 4748, 95, 86, "Print",ExpressionUUID->"c10ba425-0184-4cd0-b9b2-642be18c7a6b"]
}, Open  ]],
Cell[182160, 4092, 2423, 39, 560, "Output",ExpressionUUID->"933f4376-015f-490d-819a-82aede90f968"]
}, Open  ]],
Cell[CellGroupData[{
Cell[184620, 4136, 899, 17, 78, "Input",ExpressionUUID->"a10da374-8121-4746-9a87-4e20257aa9d8"],
Cell[185522, 4155, 909, 19, 36, "Print",ExpressionUUID->"796d303b-649d-40b8-8b25-d3a7ba1be874"]
}, Open  ]],
Cell[CellGroupData[{
Cell[186468, 4179, 373, 10, 46, "Input",ExpressionUUID->"ea88c7eb-94e8-43c9-b9fc-eb40b206b2c7"],
Cell[CellGroupData[{
Cell[186866, 4193, 589, 10, 36, "Print",ExpressionUUID->"459b23e8-3808-465b-a719-7cddb6496898"],
Cell[187458, 4205, 745, 15, 36, "Print",ExpressionUUID->"411ed435-c255-4a14-b651-4c5cdeaf536f"],
Cell[188206, 4222, 741, 15, 36, "Print",ExpressionUUID->"fd0519c0-e2b0-4783-8f08-bf9d3eb8d70e"],
Cell[188950, 4239, 731, 15, 36, "Print",ExpressionUUID->"afe9d9c4-996d-4a81-a7bf-af301317bf13"],
Cell[189684, 4256, 739, 15, 36, "Print",ExpressionUUID->"e0e0d8ab-01d3-4e0e-9704-a7730efccc1f"],
Cell[190426, 4273, 2261, 48, 80, "Print",ExpressionUUID->"17590a67-6da4-452b-a9f2-340786269378"],
Cell[192690, 4323, 738, 15, 36, "Print",ExpressionUUID->"ba07fba0-e554-4fa6-9f79-d06eb7b035fe"],
Cell[193431, 4340, 738, 15, 36, "Print",ExpressionUUID->"9639cea1-70d0-4ca1-8e64-5bfc9553d68f"],
Cell[194172, 4357, 747, 15, 36, "Print",ExpressionUUID->"e25e1b74-36ff-4b7e-a785-ec4a9bbc64e2"],
Cell[194922, 4374, 733, 15, 36, "Print",ExpressionUUID->"82c2fccb-c3c2-4e5a-999c-b740038f62c8"],
Cell[195658, 4391, 2353, 49, 88, "Print",ExpressionUUID->"c8ccfe71-7082-40e2-9a50-df23f5a0b8a5"],
Cell[198014, 4442, 3295, 69, 86, "Print",ExpressionUUID->"eae76268-c1ee-42c0-8a60-b173ba34ce26"]
}, Open  ]],
Cell[201324, 4514, 1700, 29, 701, "Output",ExpressionUUID->"e4f83842-c995-4c35-846c-83a80609a818"]
}, Open  ]],
Cell[CellGroupData[{
Cell[203061, 4548, 974, 21, 109, "Input",ExpressionUUID->"33c8da61-16c7-484e-9e29-2fa8da95cd14"],
Cell[CellGroupData[{
Cell[204060, 4573, 576, 10, 36, "Print",ExpressionUUID->"144b8d13-51d5-41b8-9544-7e86dd9c9561"],
Cell[204639, 4585, 737, 15, 36, "Print",ExpressionUUID->"59382b68-0a05-460e-9076-491283292775"],
Cell[205379, 4602, 728, 15, 36, "Print",ExpressionUUID->"a2f260b4-ee1c-462d-ad3b-ab46d8e433cd"],
Cell[206110, 4619, 725, 15, 36, "Print",ExpressionUUID->"b43b1f54-526f-4966-817d-1009b1ce996c"],
Cell[206838, 4636, 726, 15, 36, "Print",ExpressionUUID->"41047f29-0b57-4c6f-8a1f-e80a00b157ec"],
Cell[207567, 4653, 2234, 48, 80, "Print",ExpressionUUID->"ec3ecbba-74e1-4a0a-bf2e-af321004c854"],
Cell[209804, 4703, 722, 15, 36, "Print",ExpressionUUID->"e168c337-b2c2-45e7-abff-674d034ab7f1"],
Cell[210529, 4720, 727, 15, 36, "Print",ExpressionUUID->"d131774c-309f-4ffe-bd8d-590739143e7b"],
Cell[211259, 4737, 717, 14, 36, "Print",ExpressionUUID->"fa940fdc-145e-4f85-b00a-79fa2734b1ce"],
Cell[211979, 4753, 738, 15, 36, "Print",ExpressionUUID->"eedf3ace-97be-4dfe-8839-147df4778849"],
Cell[212720, 4770, 2388, 51, 88, "Print",ExpressionUUID->"3565880c-8b84-4045-9ce7-35643672293d"],
Cell[215111, 4823, 3307, 69, 86, "Print",ExpressionUUID->"dd204978-8793-4cbf-9cb3-1462ad8f9002"]
}, Open  ]],
Cell[218433, 4895, 1678, 29, 682, "Output",ExpressionUUID->"df49bf06-84da-4692-bac0-39db4f6645cf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[220148, 4929, 684, 17, 109, "Input",ExpressionUUID->"cffc9d2e-6b44-4c81-b7c3-a8d44b4730b0"],
Cell[CellGroupData[{
Cell[220857, 4950, 229, 4, 36, "Print",ExpressionUUID->"9723e910-0e3b-4d9d-b764-e90a2cc6b916"],
Cell[221089, 4956, 363, 8, 36, "Print",ExpressionUUID->"789622bf-c3c3-428b-9c6c-e20c5cec3661"],
Cell[221455, 4966, 384, 9, 36, "Print",ExpressionUUID->"0791457e-0b89-4c11-b1dd-2d0ee973c4db"],
Cell[221842, 4977, 385, 9, 36, "Print",ExpressionUUID->"14e01ee6-6c63-437b-a86e-02113e2572ea"],
Cell[222230, 4988, 381, 9, 36, "Print",ExpressionUUID->"f33b1ed0-0d75-4170-b146-36218575f116"],
Cell[222614, 4999, 1856, 42, 80, "Print",ExpressionUUID->"62a1088f-3ccf-409e-ab85-15b22943b940"],
Cell[224473, 5043, 378, 9, 36, "Print",ExpressionUUID->"6994c58e-bc9b-4208-9327-ef351371615f"],
Cell[224854, 5054, 375, 9, 36, "Print",ExpressionUUID->"e5e34aab-9ccc-4729-b980-19317a53f851"],
Cell[225232, 5065, 370, 9, 36, "Print",ExpressionUUID->"a8c371ca-1441-4207-8f22-dfb2502ebea7"],
Cell[225605, 5076, 396, 9, 36, "Print",ExpressionUUID->"837d2b33-05c6-4656-b094-4bbbe295fb0b"],
Cell[226004, 5087, 1996, 45, 88, "Print",ExpressionUUID->"6ec9d763-f30b-40a2-84c1-9637dee7c39b"],
Cell[228003, 5134, 2815, 59, 86, "Print",ExpressionUUID->"4ad30152-20b5-4900-be71-4758973338c2"]
}, Open  ]],
Cell[230833, 5196, 1113, 20, 674, "Output",ExpressionUUID->"b106121a-66b4-4676-8b66-32e4035496fc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[231983, 5221, 671, 15, 78, "Input",ExpressionUUID->"6f05fe96-0d7d-4819-a0a3-ba00369891e7"],
Cell[232657, 5238, 796, 17, 36, "Print",ExpressionUUID->"90f971fb-5807-4551-880e-f74e1295d1e5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[233490, 5260, 666, 15, 46, "Input",ExpressionUUID->"549f6e95-0b5f-48e2-aa47-3d9449de632d"],
Cell[CellGroupData[{
Cell[234181, 5279, 379, 7, 36, "Print",ExpressionUUID->"833f30b5-fb9d-459b-9848-f3780043e8b3"],
Cell[234563, 5288, 569, 12, 36, "Print",ExpressionUUID->"0da2b982-1337-4b6f-95e7-838e195706d0"],
Cell[235135, 5302, 619, 14, 36, "Print",ExpressionUUID->"cd958ad7-ec45-45d1-82bf-2aecd1dfeab9"],
Cell[235757, 5318, 511, 11, 36, "Print",ExpressionUUID->"d378799d-9c32-4753-873b-2fb9c896159d"],
Cell[236271, 5331, 576, 13, 36, "Print",ExpressionUUID->"f6656d6a-848d-404a-b756-f8020bb72f28"],
Cell[236850, 5346, 1970, 43, 80, "Print",ExpressionUUID->"2bf46edc-bf78-4bb7-82c5-789c17c29445"],
Cell[238823, 5391, 614, 14, 36, "Print",ExpressionUUID->"53f6cd36-c038-436e-b51e-fc46e7952131"],
Cell[239440, 5407, 592, 13, 36, "Print",ExpressionUUID->"d4f78864-dbec-4f7e-b38f-93c41003d20a"],
Cell[240035, 5422, 632, 15, 36, "Print",ExpressionUUID->"d926fdd8-94d6-4660-ab3d-7c9a3da95ad6"],
Cell[240670, 5439, 2473, 54, 88, "Print",ExpressionUUID->"5c43213f-3d48-4fba-89aa-1b11cc855bf3"],
Cell[243146, 5495, 2520, 53, 86, "Print",ExpressionUUID->"44d32523-fcd8-4d74-950f-41be53f6dcde"]
}, Open  ]],
Cell[245681, 5551, 1419, 26, 566, "Output",ExpressionUUID->"b6f041d4-021b-43f2-96fd-eeed600b384b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[247137, 5582, 654, 15, 78, "Input",ExpressionUUID->"53539604-9082-49e8-8ca7-f66e0d7b3bb6"],
Cell[247794, 5599, 734, 16, 36, "Print",ExpressionUUID->"091da5c3-b3bf-4c08-9e6a-95d042401883"]
}, Open  ]],
Cell[CellGroupData[{
Cell[248565, 5620, 821, 20, 78, "Input",ExpressionUUID->"9aab90a8-472a-4fc8-be07-20b4fbcf7ebe"],
Cell[CellGroupData[{
Cell[249411, 5644, 356, 7, 36, "Print",ExpressionUUID->"aef101fb-895c-4f28-a572-8483255d938a"],
Cell[249770, 5653, 495, 12, 36, "Print",ExpressionUUID->"20f33f57-461a-4606-8b4c-cc162d12cd8e"],
Cell[250268, 5667, 508, 12, 36, "Print",ExpressionUUID->"8ef6ae52-3bed-48b6-b035-98ebd77fb96f"],
Cell[250779, 5681, 489, 11, 36, "Print",ExpressionUUID->"80b7750e-23a0-4145-ba4d-1694365dfdb2"],
Cell[251271, 5694, 509, 12, 36, "Print",ExpressionUUID->"70ef713a-0f61-4a79-97c2-2030e7c24a35"],
Cell[251783, 5708, 4273, 83, 80, "Print",ExpressionUUID->"3144d2d7-2bce-49cb-82cf-d1d9230674bc"],
Cell[256059, 5793, 505, 12, 36, "Print",ExpressionUUID->"12b1266d-6fae-4826-9d84-191633f5b1c5"],
Cell[256567, 5807, 504, 12, 36, "Print",ExpressionUUID->"aae4821d-5a22-43be-98a0-d446794df172"],
Cell[257074, 5821, 514, 12, 36, "Print",ExpressionUUID->"9a93e6c5-88fa-4a2b-a3f4-e76032b101d1"],
Cell[257591, 5835, 4560, 91, 88, "Print",ExpressionUUID->"e43b9bb8-e0a1-4653-b260-0726b89b3308"],
Cell[262154, 5928, 6894, 134, 86, "Print",ExpressionUUID->"17cb936c-2a93-479f-acc5-e1fe9e272681"]
}, Open  ]],
Cell[269063, 6065, 3094, 50, 753, "Output",ExpressionUUID->"f6067c03-2fca-49a6-b26d-39fc2e9a2d4d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[272194, 6120, 1432, 27, 140, "Input",ExpressionUUID->"42ca2895-280c-46da-87c5-8d49328ef931"],
Cell[CellGroupData[{
Cell[273651, 6151, 1624, 29, 36, "Print",ExpressionUUID->"a016d752-0da9-432a-8cb4-8f2c6747c67a"],
Cell[275278, 6182, 1148, 18, 36, "Print",ExpressionUUID->"9d4809a4-4a3a-4af9-8805-55127de08744"],
Cell[276429, 6202, 1302, 23, 36, "Print",ExpressionUUID->"07e94369-6b15-4b49-bccc-7cf4e0c3e2fc"],
Cell[277734, 6227, 1305, 23, 36, "Print",ExpressionUUID->"acf2b143-2184-4bc2-9858-14c2e525e4d3"],
Cell[279042, 6252, 1282, 22, 36, "Print",ExpressionUUID->"a26cf3f6-9314-456a-851d-f4fe71eb2385"],
Cell[280327, 6276, 1298, 23, 36, "Print",ExpressionUUID->"68d03039-73c7-45b7-9990-c8d22c87d663"],
Cell[281628, 6301, 2841, 57, 80, "Print",ExpressionUUID->"12e62777-873f-4199-b481-28efd1cbbbc3"],
Cell[284472, 6360, 1297, 23, 36, "Print",ExpressionUUID->"4108b8ae-49ad-490f-8139-6ac2bae7ab5f"],
Cell[285772, 6385, 1293, 23, 36, "Print",ExpressionUUID->"8d729504-b319-4eb6-ad61-1f34428f7cad"],
Cell[287068, 6410, 1287, 22, 36, "Print",ExpressionUUID->"e702674b-56cf-4368-afa6-fed3b492f24f"],
Cell[288358, 6434, 2812, 56, 88, "Print",ExpressionUUID->"1fef734f-073c-460f-8231-0cb9eceffdd3"],
Cell[291173, 6492, 3657, 71, 86, "Print",ExpressionUUID->"810c9cc2-a34a-42c8-9e81-3e48ae94a806"]
}, Open  ]],
Cell[294845, 6566, 1392, 24, 546, "Output",ExpressionUUID->"579cfd24-a6e2-4243-b8c7-688247f17c3c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[296274, 6595, 1650, 34, 202, "Input",ExpressionUUID->"c40e05b4-2d18-403f-ae21-32566745f4c5"],
Cell[CellGroupData[{
Cell[297949, 6633, 732, 16, 36, "Print",ExpressionUUID->"1512b778-fd60-406f-9322-bfebdaaa1d75"],
Cell[298684, 6651, 259, 5, 36, "Print",ExpressionUUID->"20e534db-8b24-4b0f-9f80-3d4c7c5c51f1"],
Cell[298946, 6658, 397, 10, 36, "Print",ExpressionUUID->"0242ae09-08d9-4b94-93dd-769df5b5b04e"],
Cell[299346, 6670, 408, 10, 36, "Print",ExpressionUUID->"3195d297-ceab-4c16-b122-ae4c865676ad"],
Cell[299757, 6682, 387, 9, 36, "Print",ExpressionUUID->"c3ad2c83-410a-4977-9971-b8c11b205631"],
Cell[300147, 6693, 408, 10, 36, "Print",ExpressionUUID->"33e54ceb-8447-42d7-a0a9-72e541893ecc"],
Cell[300558, 6705, 1944, 45, 80, "Print",ExpressionUUID->"855b5af6-536f-49bb-a4f4-2e346dc2752a"],
Cell[302505, 6752, 405, 10, 36, "Print",ExpressionUUID->"5e5dc6d4-5c5f-48c8-a8ab-f41e92c76175"],
Cell[302913, 6764, 405, 10, 36, "Print",ExpressionUUID->"aa8d5a62-74c9-41eb-890a-6a013b87bcee"],
Cell[303321, 6776, 395, 9, 36, "Print",ExpressionUUID->"3658267b-8acf-4abd-86a4-f3ca6289d0f3"],
Cell[303719, 6787, 402, 10, 36, "Print",ExpressionUUID->"c7078389-c067-4886-8db9-ef3efbb2ecef"],
Cell[304124, 6799, 2077, 47, 88, "Print",ExpressionUUID->"c983cdbb-d3d0-46f5-9bd4-8f87608f3483"],
Cell[306204, 6848, 3130, 69, 86, "Print",ExpressionUUID->"3cb82126-9516-4b47-bdf1-c19938527793"]
}, Open  ]],
Cell[309349, 6920, 1378, 23, 543, "Output",ExpressionUUID->"65672f4f-0ebd-4cf7-bdcd-c33942397085"]
}, Open  ]],
Cell[CellGroupData[{
Cell[310764, 6948, 883, 24, 109, "Input",ExpressionUUID->"d3aefe40-b121-4c75-a6a2-3e631ea169c9"],
Cell[311650, 6974, 504, 10, 84, "Output",ExpressionUUID->"be976609-93ff-44a6-a46d-d5f4d9ebed84"]
}, Open  ]],
Cell[312169, 6987, 1084, 33, 140, "Input",ExpressionUUID->"a30ca6a1-8bd8-4262-b80b-96addc208921"]
}, Open  ]]
}
]
*)