NematicActivityPlot01.nb

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

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

(* CreatedBy='Mathematica 13.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    319461,       5657]
NotebookOptionsPosition[    316667,       5609]
NotebookOutlinePosition[    317138,       5627]
CellTagsIndexPosition[    317095,       5624]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Once", "@", 
   RowBox[{"PrependTo", "[", 
    RowBox[{"$Path", ",", "\"\</home/ingo/git/surfsup\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "\"\<SurfsUp`\>\""}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"?", "\"\<SurfsUp`*\>\""}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Once", "@", 
     RowBox[{"LaunchKernels", "[", "14", "]"}]}], ";"}], "*)"}], 
  RowBox[{"(*", 
   RowBox[{"optional", ";", " ", 
    RowBox[{
    "on", " ", "my", " ", "16", " ", "kernel", " ", "machine", " ", "it", " ",
      "take", " ", "8", " ", "kernel"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"$KernelCount", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"X", "=", 
  RowBox[{"{", 
   RowBox[{"y1", ",", "y2", ",", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"y1", "^", "2"}]}], "-", 
     RowBox[{"y2", "^", "2"}], "+", "1"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vars", "=", 
   RowBox[{"{", 
    RowBox[{"y1", ",", "y2"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"InitParameterization", "[", 
   RowBox[{"X", ",", "vars"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.9120878485289516`*^9, 3.912087873391719*^9}, {
   3.9120885662154903`*^9, 3.912088671128661*^9}, {3.912088823712516*^9, 
   3.912088843751397*^9}, {3.91208889556355*^9, 3.912088895775659*^9}, {
   3.9120889641333847`*^9, 3.912088968687875*^9}, {3.912146071803026*^9, 
   3.912146085055224*^9}, {3.9121462265943623`*^9, 3.91214626151243*^9}, {
   3.912146444785282*^9, 3.912146451409123*^9}, 3.9121465023360577`*^9, {
   3.912166952414016*^9, 3.912166965550562*^9}, {3.912771282968028*^9, 
   3.912771312441022*^9}, {3.912771447127698*^9, 3.912771455780593*^9}, 
   3.912771903197764*^9, 3.9129368097083387`*^9, {3.913282961111938*^9, 
   3.913282964139681*^9}, {3.9136979029913483`*^9, 3.913697924122053*^9}, {
   3.913967512821052*^9, 3.9139675139075937`*^9}, {3.9139692792809887`*^9, 
   3.9139692838751802`*^9}, {3.913969355649913*^9, 3.913969361712606*^9}, {
   3.915795315923263*^9, 3.9157953282429457`*^9}, {3.915795585030431*^9, 
   3.915795595604258*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"3e1c7508-8d44-4d8f-b0a9-0fc2ef66258b"],

Cell[BoxData[
 StyleBox[
  FrameBox[GridBox[{
     {
      DynamicModuleBox[{Typeset`open$$ = True}, 
       PaneSelectorBox[{False->
        ButtonBox[
         RowBox[{
          
          DynamicBox[FEPrivate`FrontEndResource[
           "FEBitmaps", "RightPointerOpener"]], " ", 
          StyleBox["SurfsUp`", "InformationGridGroupHeader"]}],
         Appearance->None,
         BaseStyle->"InformationGridLink",
         ButtonFunction:>FEPrivate`Set[Typeset`open$$, True],
         Evaluator->Automatic,
         Method->"Preemptive"], True->
        PaneBox[GridBox[{
           {
            ButtonBox[
             RowBox[{
              
              DynamicBox[FEPrivate`FrontEndResource[
               "FEBitmaps", "DownPointerOpener"],
               ImageSizeCache->{7.5, {2., 5.5}}], " ", 
              StyleBox["SurfsUp`", "InformationGridGroupHeader"]}],
             Appearance->None,
             BaseStyle->"InformationGridLink",
             ButtonFunction:>FEPrivate`Set[Typeset`open$$, False],
             Evaluator->Automatic,
             Method->"Preemptive"]},
           {
            PaneBox[GridBox[{
               {
                ButtonBox[
                 StyleBox["APolarVecEPlot3D", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "APolarVecEPlot3D", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["DAt0", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "DAt0", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["DtMatE", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "DtMatE", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GetMeanCurvature", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "GetMeanCurvature", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["HodgeStar", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "HodgeStar", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["IsTraceFree2E", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "IsTraceFree2E", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["ProjTan", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "ProjTan", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["TanNorPart", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "TanNorPart", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["BeforeLast", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "BeforeLast", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["DecomposeQ2E", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "DecomposeQ2E", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["DtMatTan", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "DtMatTan", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GetMetric", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "GetMetric", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["InitMetric", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "InitMetric", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["LinMapCol", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "LinMapCol", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["Same", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "Same", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["ToEuclidean", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "ToEuclidean", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["ChangePitch", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "ChangePitch", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["DeleteSurface", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "DeleteSurface", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["EvalAtSurf", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "EvalAtSurf", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GetNormal", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "GetNormal", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 
                 StyleBox["InitMovingParameterization", 
                  "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "InitMovingParameterization", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["LinMapColsE", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "LinMapColsE", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["SaveSurface", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "SaveSurface", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["ToLocal", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "ToLocal", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["ClearSurface", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "ClearSurface", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["DeployQ2FromComponentsE", "InformationGridButton"],
                 
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "DeployQ2FromComponentsE", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["FillSurface", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "FillSurface", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GetObserverVelocity", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "GetObserverVelocity", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["InitParameterization", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "InitParameterization", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["LoadSurface", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "LoadSurface", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["SharpProxy", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "SharpProxy", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["Trc", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "Trc", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["CompADiv", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "CompADiv", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 
                 StyleBox["DeployQ2FromDecompositionE", 
                  "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "DeployQ2FromDecompositionE", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["FlatProxy", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "FlatProxy", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GetParameterization", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "GetParameterization", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["InnerP", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "InnerP", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["MapProxy", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "MapProxy", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["ShowSurfaceStore", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "ShowSurfaceStore", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["TrcE", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "TrcE", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["CompD", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "CompD", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["Deployq2FromDirection", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "Deployq2FromDirection", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GetChristoffel2", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "GetChristoffel2", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GetRelativeVelocity", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "GetRelativeVelocity", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["InnerPE", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "InnerPE", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["MinMaxColorBar", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "MinMaxColorBar", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["SimplifyProxy", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "SimplifyProxy", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["VecConColsE", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "VecConColsE", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["CompTDiv", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "CompTDiv", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["DeployQ2FromEulerAnglesE", "InformationGridButton"],
                 
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "DeployQ2FromEulerAnglesE", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GetFrame", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "GetFrame", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GetRelativeVelocityE", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "GetRelativeVelocityE", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["Isq2", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "Isq2", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["Norm2", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "Norm2", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["StoreAndClearSurface", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "StoreAndClearSurface", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["VecEPlot3D", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "VecEPlot3D", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic]},
               {
                ButtonBox[
                 StyleBox["CovD", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "CovD", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["DirVar", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "DirVar", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GetGaussCurvature", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "GetGaussCurvature", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GetSecondFundamentalForm", "InformationGridButton"],
                 
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "GetSecondFundamentalForm", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["IsQ2E", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "IsQ2E", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["NorPart", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "NorPart", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["StoreAndSwitchToSurface", "InformationGridButton"],
                 
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "StoreAndSwitchToSurface", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], ""},
               {
                ButtonBox[
                 StyleBox["CovDE", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "CovDE", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["DtConv", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "DtConv", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GetInverseMetric", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "GetInverseMetric", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GetSurfaceIdentity", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "GetSurfaceIdentity", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["IsSymmetric2", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "IsSymmetric2", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["OTimes", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "OTimes", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["StoreSurface", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "StoreSurface", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], ""},
               {
                ButtonBox[
                 StyleBox["CovDiv", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "CovDiv", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["DtConvE", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "DtConvE", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GetLeviCivita", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "GetLeviCivita", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GetTimeVar", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "GetTimeVar", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["IsSymmetric2E", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "IsSymmetric2E", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["Projq2", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "Projq2", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["SurfacePlot3D", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "SurfacePlot3D", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], ""},
               {
                ButtonBox[
                 StyleBox["CovRot", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "CovRot", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["DtJauE", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "DtJauE", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GetMaterialVelocity", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "GetMaterialVelocity", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["GetVars", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "GetVars", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["IsTraceFree2", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "IsTraceFree2", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["ProjQ2E", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "ProjQ2E", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], 
                ButtonBox[
                 StyleBox["SwitchToSurface", "InformationGridButton"],
                 Appearance->None,
                 BaseStyle->"InformationGridLink",
                 
                 ButtonData:>{
                  "Info-a2d9a106-5fd1-40d5-a13e-51d2bae3fb40", {
                   "SwitchToSurface", "SurfsUp`"}, False},
                 ButtonNote->"SurfsUp`",
                 Evaluator->Automatic], ""}
              },
              DefaultBaseStyle->"Text",
              
              GridBoxAlignment->{
               "Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
              GridBoxItemSize->{"Columns" -> {{
                   Scaled[0.11875]}}}],
             ImageMargins->{{10, 0}, {0, 2}}]}
          },
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}],
         FrameMargins->{{0, 0}, {8, 0}}]}, Dynamic[Typeset`open$$],
        ImageSize->Automatic]]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxDividers->{"ColumnsIndexed" -> {{False}}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.8]}, 
        Offset[0.2]}}],
   BaseStyle->"InformationTitleFrame"], "InformationGridPlain"]], "Output",
 CellChangeTimes->{
  3.912146265969791*^9, {3.9121464754267597`*^9, 3.912146497084119*^9}, {
   3.912147475999652*^9, 3.912147509050091*^9}, {3.9121484812052517`*^9, 
   3.912148490857861*^9}, 3.9121489486327457`*^9, 3.912149006784841*^9, {
   3.9121491709297*^9, 3.912149191583872*^9}, 3.912149252606485*^9, 
   3.912150170244965*^9, 3.91215036243221*^9, 3.912150610103982*^9, {
   3.912162242374949*^9, 3.912162254182612*^9}, 3.912163120017555*^9, 
   3.912163170860931*^9, 3.912163310531211*^9, 3.912163872089027*^9, 
   3.91216397636733*^9, 3.912164267435274*^9, 3.912164389504011*^9, 
   3.912165419293868*^9, 3.912165873350162*^9, 3.9121659377630177`*^9, 
   3.912166208369101*^9, {3.91216632483315*^9, 3.9121663512968197`*^9}, {
   3.912166384252569*^9, 3.912166404918795*^9}, 3.912166440937303*^9, 
   3.9121664745389977`*^9, {3.912166714000505*^9, 3.912166750081933*^9}, {
   3.912166956707903*^9, 3.91216696898697*^9}, 3.912167529197166*^9,